Revision 6f4692e8
Von Sven Schöling vor fast 13 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 1046 | 1046 |
|
| 1047 | 1047 |
$form->{invdate} = $form->{transdate};
|
| 1048 | 1048 |
|
| 1049 |
my %saved_variables = map +( $_ => $form->{$_} ), qw(AR AR_amount_1 taxchart_1 oldcustomer);
|
|
| 1049 |
my %saved_variables = map +( $_ => $form->{$_} ), qw(AR AR_amount_1 taxchart_1 customer_id);
|
|
| 1050 | 1050 |
|
| 1051 | 1051 |
&check_name("customer");
|
| 1052 | 1052 |
|
| 1053 |
# check_name ruft get_customer auf, oldcustomer wird überschrieben, daher wird dies vorher gemerkt |
|
| 1054 |
# get_customer holt Bemerkungen als intnotes, für Debitorenbuchungen gibt es aber nur das Feld notes |
|
| 1055 |
$form->{notes} = $form->{intnotes} if $saved_variables{oldcustomer} ne $form->{customer};
|
|
| 1053 |
# check_name loads customer notes into notes, but ar only knows intnotes, so copy them |
|
| 1054 |
$form->{notes} = $form->{intnotes} if $saved_variables{customer_id} != $form->{customer_id};
|
|
| 1056 | 1055 |
|
| 1057 | 1056 |
$form->{AR} = $saved_variables{AR};
|
| 1058 | 1057 |
if ($saved_variables{AR_amount_1} =~ m/.--./) {
|
Auch abrufbar als: Unified diff
customer_id statt oldcustomer nach check_name benutzen um Kundenänderung festzustellen.
Das Format von oldcustomer ist abhängig vom vclimit Status, im select Fall ist es Name--Id, ansonsten nur Name.