Revision ee2b1ef3
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 146 | 146 |
my $form = $main::form; |
| 147 | 147 |
my %myconfig = %main::myconfig; |
| 148 | 148 |
|
| 149 |
my ($duedate, $taxincluded); |
|
| 150 |
|
|
| 151 | 149 |
$form->create_links("AR", \%myconfig, "customer");
|
| 152 |
$duedate = $form->{duedate};
|
|
| 153 | 150 |
|
| 154 |
$taxincluded = $form->{taxincluded};
|
|
| 155 |
my $id = $form->{id};
|
|
| 151 |
my %saved = map { ($_ => $form->{$_}) } qw(direct_debit duedate id taxincluded);
|
|
| 152 |
|
|
| 156 | 153 |
IS->get_customer(\%myconfig, \%$form); |
| 157 |
$form->{taxincluded} = $taxincluded;
|
|
| 158 |
$form->{id} = $id;
|
|
| 159 | 154 |
|
| 160 |
$form->{duedate} = $duedate if $duedate;
|
|
| 155 |
$form->{$_} = $saved{$_} for keys %saved;
|
|
| 161 | 156 |
$form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";
|
| 162 | 157 |
$form->{rowcount} = 1;
|
| 163 | 158 |
|
Auch abrufbar als: Unified diff
Debitorenbuchungen: Checkbox für "Lastschrifteinzug"; Vorbelegung aus Stammdaten