Revision f612f63e
Von Moritz Bunkus vor etwa 12 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 161 | 161 |
$form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";
|
| 162 | 162 |
$form->{rowcount} = 1;
|
| 163 | 163 |
|
| 164 |
# notes |
|
| 165 |
$form->{notes} = $form->{intnotes} unless $form->{notes};
|
|
| 166 |
|
|
| 167 | 164 |
# currencies |
| 168 | 165 |
$form->{defaultcurrency} = $form->get_default_currency(\%myconfig);
|
| 169 | 166 |
|
| ... | ... | |
| 617 | 614 |
|
| 618 | 615 |
$form->{invdate} = $form->{transdate};
|
| 619 | 616 |
|
| 620 |
my %saved_variables = map +( $_ => $form->{$_} ), qw(AR AR_amount_1 taxchart_1 customer_id);
|
|
| 617 |
my %saved_variables = map +( $_ => $form->{$_} ), qw(AR AR_amount_1 taxchart_1 customer_id notes);
|
|
| 621 | 618 |
|
| 622 | 619 |
&check_name("customer");
|
| 623 | 620 |
|
| 624 |
# check_name loads customer notes into notes, but ar only knows intnotes, so copy them |
|
| 625 |
$form->{notes} = $form->{intnotes} if $saved_variables{customer_id} != $form->{customer_id};
|
|
| 626 |
|
|
| 627 | 621 |
$form->{AR} = $saved_variables{AR};
|
| 628 | 622 |
if ($saved_variables{AR_amount_1} =~ m/.--./) {
|
| 629 | 623 |
map { $form->{$_} = $saved_variables{$_} } qw(AR_amount_1 taxchart_1);
|
Auch abrufbar als: Unified diff
Debitoren-, Kreditorenbuchungen: K/L-Bemerkungen als Extra-Feld anzeigen, nicht in normale Bemerkungen kopieren
Fixt #1858.