Revision 1a83013a
Von Jan Büren vor fast 2 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 46 | 46 |
use SL::GenericTranslations; |
| 47 | 47 |
use SL::HTML::Restrict; |
| 48 | 48 |
use SL::IO; |
| 49 |
use SL::Locale::String qw(t8); |
|
| 49 | 50 |
use SL::MoreCommon; |
| 50 | 51 |
use SL::DB::Default; |
| 51 | 52 |
use SL::DB::TaxZone; |
| ... | ... | |
| 1166 | 1167 |
LEFT JOIN currencies cu ON (v.currency_id = cu.id) |
| 1167 | 1168 |
WHERE 1=1 $where|; |
| 1168 | 1169 |
my $ref = selectfirst_hashref_query($form, $dbh, $query, @values); |
| 1170 |
die t8("Cannot find a single vendor. Maybe there is no vendor yet?") unless $ref;
|
|
| 1171 |
|
|
| 1169 | 1172 |
map { $params->{$_} = $ref->{$_} } keys %$ref;
|
| 1170 | 1173 |
|
| 1171 | 1174 |
# use vendor currency |
Auch abrufbar als: Unified diff
Fehlermeldung bei Belegen falls Kunde oder Lieferant == 0