Revision d623e974
Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt
| bin/mozilla/ap.pl | ||
|---|---|---|
| 97 | 97 |
|
| 98 | 98 |
AP->get_transdate(\%myconfig, $form); |
| 99 | 99 |
$form->{initial_transdate} = $form->{transdate};
|
| 100 |
&create_links;
|
|
| 100 |
create_links(dont_save => 1);
|
|
| 101 | 101 |
$form->{transdate} = $form->{initial_transdate};
|
| 102 | 102 |
&display_form; |
| 103 | 103 |
|
| ... | ... | |
| 113 | 113 |
|
| 114 | 114 |
$form->{title} = "Edit";
|
| 115 | 115 |
|
| 116 |
&create_links;
|
|
| 116 |
create_links();
|
|
| 117 | 117 |
&display_form; |
| 118 | 118 |
|
| 119 | 119 |
$main::lxdebug->leave_sub(); |
| ... | ... | |
| 135 | 135 |
sub create_links {
|
| 136 | 136 |
$main::lxdebug->enter_sub(); |
| 137 | 137 |
|
| 138 |
my %params = @_; |
|
| 139 |
|
|
| 138 | 140 |
my $form = $main::form; |
| 139 | 141 |
my %myconfig = %main::myconfig; |
| 140 | 142 |
|
| 141 | 143 |
$main::auth->assert('general_ledger');
|
| 142 | 144 |
|
| 143 | 145 |
$form->create_links("AP", \%myconfig, "vendor");
|
| 144 |
my $taxincluded = $form->{taxincluded};
|
|
| 145 |
my $duedate = $form->{duedate};
|
|
| 146 |
my %saved; |
|
| 147 |
if (!$params{dont_save}) {
|
|
| 148 |
%saved = map { ($_ => $form->{$_}) } qw(direct_debit taxincluded);
|
|
| 149 |
$saved{duedate} = $form->{duedate} if $form->{duedate};
|
|
| 150 |
} |
|
| 146 | 151 |
|
| 147 | 152 |
IR->get_vendor(\%myconfig, \%$form); |
| 148 |
$form->{taxincluded} = $taxincluded;
|
|
| 149 |
$form->{duedate} = $duedate if $duedate;
|
|
| 153 |
|
|
| 154 |
$form->{$_} = $saved{$_} for keys %saved;
|
|
| 150 | 155 |
$form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}";
|
| 151 | 156 |
$form->{rowcount} = 1;
|
| 152 | 157 |
|
Auch abrufbar als: Unified diff
Kreditorenbuchungen: Checkbox für "Lastschrifteinzug"; Vorbelegung aus Stammdaten