Revision fa2cbb11
Von Moritz Bunkus vor fast 12 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 100 | 100 |
|
| 101 | 101 |
AR->get_transdate(\%myconfig, $form); |
| 102 | 102 |
$form->{initial_transdate} = $form->{transdate};
|
| 103 |
&create_links;
|
|
| 103 |
create_links(dont_save => 1);
|
|
| 104 | 104 |
$form->{transdate} = $form->{initial_transdate};
|
| 105 | 105 |
&display_form; |
| 106 | 106 |
$main::lxdebug->leave_sub(); |
| ... | ... | |
| 119 | 119 |
$form->{javascript} .= qq|<script type="text/javascript" src="js/common.js"></script>|;
|
| 120 | 120 |
$form->{title} = "Edit";
|
| 121 | 121 |
|
| 122 |
&create_links;
|
|
| 122 |
create_links();
|
|
| 123 | 123 |
&display_form; |
| 124 | 124 |
|
| 125 | 125 |
$main::lxdebug->leave_sub(); |
| ... | ... | |
| 143 | 143 |
|
| 144 | 144 |
$main::auth->assert('general_ledger');
|
| 145 | 145 |
|
| 146 |
my %params = @_; |
|
| 146 | 147 |
my $form = $main::form; |
| 147 | 148 |
my %myconfig = %main::myconfig; |
| 148 | 149 |
|
| 149 | 150 |
$form->create_links("AR", \%myconfig, "customer");
|
| 150 | 151 |
|
| 151 |
my %saved = map { ($_ => $form->{$_}) } qw(direct_debit duedate id taxincluded);
|
|
| 152 |
my %saved; |
|
| 153 |
if (!$params{dont_save}) {
|
|
| 154 |
%saved = map { ($_ => $form->{$_}) } qw(direct_debit id taxincluded);
|
|
| 155 |
$saved{duedate} = $form->{duedate} if $form->{duedate};
|
|
| 156 |
} |
|
| 152 | 157 |
|
| 153 | 158 |
IS->get_customer(\%myconfig, \%$form); |
| 154 | 159 |
|
Auch abrufbar als: Unified diff
Debitorenbuchungen: "Lastschrifteinzug" auch nach Buchen aus Stammdaten vorbelegen