Revision 662ded38
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 285 | 285 |
|
| 286 | 286 |
$main::auth->assert('invoice_edit');
|
| 287 | 287 |
|
| 288 |
our %TMPL_VAR = ();
|
|
| 288 |
my %TMPL_VAR = ();
|
|
| 289 | 289 |
my @custom_hiddens; |
| 290 | 290 |
|
| 291 | 291 |
$form->{employee_id} = $form->{old_employee_id} if $form->{old_employee_id};
|
| ... | ... | |
| 596 | 596 |
|
| 597 | 597 |
$main::auth->assert('invoice_edit');
|
| 598 | 598 |
|
| 599 |
our $invdate;
|
|
| 599 |
my $invdate = $form->datetonum($form->{invdate}, \%myconfig);
|
|
| 600 | 600 |
|
| 601 | 601 |
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
|
| 602 | 602 |
for my $i (1 .. $form->{paidaccounts}) {
|
| ... | ... | |
| 886 | 886 |
|
| 887 | 887 |
$form->{title} = $locale->text('Add Credit Note');
|
| 888 | 888 |
$form->{script} = 'is.pl';
|
| 889 |
our $script = "is"; |
|
| 890 |
our $buysell = 'buy'; |
|
| 891 | 889 |
|
| 892 | 890 |
|
| 893 | 891 |
# bo creates the id, reset it |
| ... | ... | |
| 906 | 904 |
&invoice_links; |
| 907 | 905 |
|
| 908 | 906 |
$form->{currency} = $currency;
|
| 909 |
$form->{forex} = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{invdate}, $buysell);
|
|
| 907 |
$form->{forex} = $form->check_exchangerate( \%myconfig, $form->{currency}, $form->{invdate}, 'buy');
|
|
| 910 | 908 |
$form->{exchangerate} = $form->{forex} || '';
|
| 911 | 909 |
|
| 912 | 910 |
$form->{creditremaining} -= ($form->{oldinvtotal} - $form->{ordtotal});
|
Auch abrufbar als: Unified diff
Globale Variablen entfernt/umgewandelt.
Conflicts: