Revision d6beac43
Von Moritz Bunkus vor etwa 9 Jahren hinzugefügt
| bin/mozilla/ar.pl | ||
|---|---|---|
| 140 | 140 |
$main::lxdebug->leave_sub(); |
| 141 | 141 |
} |
| 142 | 142 |
|
| 143 |
sub _retrieve_invoice_object {
|
|
| 144 |
return undef if !$::form->{id};
|
|
| 145 |
return $::form->{invoice_obj} if $::form->{invoice_obj} && $::form->{invoice_obj}->id == $::form->{id};
|
|
| 146 |
return SL::DB::Invoice->new(id => $::form->{id})->load;
|
|
| 147 |
} |
|
| 148 |
|
|
| 143 | 149 |
sub create_links {
|
| 144 | 150 |
$main::lxdebug->enter_sub(); |
| 145 | 151 |
|
| ... | ... | |
| 150 | 156 |
my %myconfig = %main::myconfig; |
| 151 | 157 |
|
| 152 | 158 |
$form->create_links("AR", \%myconfig, "customer");
|
| 153 |
$form->{invoice_obj} = $form->{id} ? SL::DB::Invoice->new(id => $form->{id})->load : undef;
|
|
| 159 |
$form->{invoice_obj} = _retrieve_invoice_object();
|
|
| 154 | 160 |
|
| 155 | 161 |
my %saved; |
| 156 | 162 |
if (!$params{dont_save}) {
|
| ... | ... | |
| 218 | 224 |
my $locale = $main::locale; |
| 219 | 225 |
my $cgi = $::request->{cgi};
|
| 220 | 226 |
|
| 227 |
$form->{invoice_obj} = _retrieve_invoice_object();
|
|
| 228 |
|
|
| 221 | 229 |
my ($title, $readonly, $exchangerate, $rows); |
| 222 | 230 |
my ($notes, $department, $customer, $employee, $amount, $project); |
| 223 | 231 |
my ($ARselected); |
| templates/webpages/ar/form_header.html | ||
|---|---|---|
| 76 | 76 |
<span class="plus[% creditremaining < 0 ? 0 : 1 %]">[% LxERP.format_amount(creditremaining, 0) %][% L.hidden_tag('creditremaining', LxERP.format_amount(creditremaining, 0)) %]</span>
|
| 77 | 77 |
</td> |
| 78 | 78 |
</tr> |
| 79 |
[%- IF invoice_obj.sepa_exports.as_list.size %] |
|
| 80 |
<tr> |
|
| 81 |
<th align="right">[% LxERP.t8("SEPA exports") %]</th>
|
|
| 82 |
<td> |
|
| 83 |
[% FOREACH export = invoice_obj.sepa_exports.as_list %] |
|
| 84 |
<a href="sepa.pl?action=bank_transfer_edit&vc=customer&id=[% HTML.url(export.id) %]">[% HTML.escape(export.id) %]</a> |
|
| 85 |
[% UNLESS loop.last %], [% END %] |
|
| 86 |
[% END %] |
|
| 87 |
</td> |
|
| 88 |
</tr> |
|
| 89 |
[%- END %] |
|
| 79 | 90 |
<tr> |
| 80 | 91 |
<th align=right>[% 'Currency' | $T8 %]</th> |
| 81 | 92 |
<td><select name=currency>[% selectcurrency %]</select></td> |
Auch abrufbar als: Unified diff
Debitorenbuchungen: In Kopf anzeigen, in welchen SEPA-Exporten der Beleg enthalten ist