Revision 94802c79
Von Bernd Blessmann vor fast 13 Jahren hinzugefügt
bin/mozilla/ct.pl | ||
---|---|---|
313 | 313 |
my %myconfig = %main::myconfig; |
314 | 314 |
my $locale = $main::locale; |
315 | 315 |
|
316 |
$form->get_lists(employees => "ALL_EMPLOYEES", |
|
317 |
taxzones => "ALL_TAXZONES"); |
|
316 |
$form->get_lists(employees => "ALL_EMPLOYEES", |
|
317 |
taxzones => "ALL_TAXZONES", |
|
318 |
currencies => "ALL_CURRENCIES"); |
|
318 | 319 |
$form->get_pricegroup(\%myconfig, { all => 1 }); |
319 | 320 |
|
320 | 321 |
$form->get_lists(customers => { key => "ALL_SALESMAN_CUSTOMERS", business_is_salesman => 1 }) if $::lx_office_conf{features}->{vertreter}; |
... | ... | |
345 | 346 |
} |
346 | 347 |
} |
347 | 348 |
|
349 |
if (!$form->{'id'}) { |
|
350 |
$form->{'currency'} = $form->get_default_currency(\%myconfig); |
|
351 |
} else { |
|
352 |
$form->{currency} = $form->{curr}; |
|
353 |
} |
|
354 |
|
|
348 | 355 |
$form->{CUSTOM_VARIABLES} = CVar->get_custom_variables('module' => 'CT', 'trans_id' => $form->{id}); |
349 | 356 |
|
350 | 357 |
CVar->render_inputs('variables' => $form->{CUSTOM_VARIABLES}) if (scalar @{ $form->{CUSTOM_VARIABLES} }); |
Auch abrufbar als: Unified diff
Fix für Bug 1759: (Verbesserung) Währung bei Kunden / Lieferanten vorbelegen
Für Kunden und Lieferanten kann jetzt in den Stammdaten eine Währung
eingestellt werden, die als Voreinstellung in den Ver- und Einkaufs-
Masken dient.