| . $locale->text('Address') . qq| |
@@ -518,7 +530,19 @@ sub update {
}
}
}
-
+ # Falls Suche über Rechnungsnummer und kein Kundenname vorhanden
+ if ($form->{invnumber} && !($form->{$form->{vc}})){
+ $form->{open} ='Y'; # nur die offenen rechnungen
+ if ($form->{ARAP} eq 'AR'){
+ AR->ar_transactions(\%myconfig, \%$form);
+ # den ersten treffen nehmen und mit dem namen überschreiben
+ $form->{$form->{vc}} = $form->{AR}[0]{name};
+ } else {
+ # s.o. nur für zahlungsausgang
+ AP->ap_transactions(\%myconfig, \%$form);
+ $form->{$form->{vc}} = $form->{AP}[0]{name};
+ }
+ }
# get customer and invoices
$updated = &check_name($form->{vc});
@@ -626,7 +650,9 @@ sub post {
}
# Beim Aktualisieren wird das Konto übernommen
- $form->{callback} = "cp.pl?action=payment&vc=$form->{vc}&type=$form->{type}&account=$form->{account}&$form->{currency}";
+ # und jetzt auch Beleg und Datum
+ $form->{callback} = "cp.pl?action=payment&vc=$form->{vc}&type=$form->{type}&account=$form->{account}&$form->{currency}" .
+ "&datepaid=$form->{datepaid}&source=$form->{source}";
my $msg1 = "$form->{origtitle} posted!";
my $msg2 = "Cannot post $form->{origtitle}!";
|