Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 6f4692e8

Von Sven Schöling vor fast 13 Jahren hinzugefügt

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.

Unterschiede anzeigen:

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