X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b8916e5c2982dd12e0a612252c85f5e1648e162c..1465da30:/templates/webpages/is/_payments_master.html
diff --git a/templates/webpages/is/_payments_master.html b/templates/webpages/is/_payments_master.html
index 09c0812c2..521666192 100644
--- a/templates/webpages/is/_payments_master.html
+++ b/templates/webpages/is/_payments_master.html
@@ -1,100 +1,87 @@
+[%- USE LxERP %]
+
+
+
+
+[% IF is_type_credit_note %]
+ Payments
+[% ELSE %]
+ Incoming Payments
+[%- END %]
+
+
+
+
+ Date
+ Source
+ Memo
+ Amount
+[% IF show_exchangerate %]
+ Exch
+[% END %]
+ Account
+
+
+
+[% FOREACH i = paid_indices %]
+ [% SET datepaid = 'datepaid_' _ i %]
+ [% SET source = 'source_' _ i %]
+ [% SET memo = 'memo_' _ i %]
+ [% SET paid = 'paid_' _ i %]
+ [% SET selectAR_paid_ref = 'selectAR_paid_' _ i %]
+
+
+
+
+
+
+
+
+
+
+[% IF show_exchangerate %]
+
+ [% SET forex = 'forex_' _ i %]
+ [% SET exchangerate = 'exchangerate_' _ i %]
+ [% IF forex %]
+
+ [% LxERP.format_amount(exchangerate, 2) %]
+ [% ELSE %]
+
+ [% END %]
+ ;
+
+[% END %]
+ [% $selectAR_paid_ref %]
+
+
-
-
-
-
- my @column_index;
- if ($form->{currency} eq $form->{defaultcurrency}) {
- @column_index = qw(datepaid source memo paid AR_paid);
- } else {
- @column_index = qw(datepaid source memo paid exchangerate AR_paid);
- }
-
- my %column_data;
- $column_data{datepaid} = "" . $locale->text('Date') . " ";
- $column_data{paid} = "" . $locale->text('Amount') . " ";
- $column_data{exchangerate} = "" . $locale->text('Exch') . " ";
- $column_data{AR_paid} = "" . $locale->text('Account') . " ";
- $column_data{source} = "" . $locale->text('Source') . " ";
- $column_data{memo} = "" . $locale->text('Memo') . " ";
-
-
-
- map { print "$column_data{$_}\n" } @column_index;
-
-
-
- my @triggers = ();
- my $totalpaid = 0;
-
- $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
-
-
-
- [% FOREACH i = 1 .. paidaccounts %]
-
-
-
-
- $form->{"selectAR_paid_$i"} = $form->{selectAR_paid};
- $form->{"selectAR_paid_$i"} =~
- s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/;
-
- # format amounts
- $totalpaid += $form->{"paid_$i"};
- if ($form->{"paid_$i"}) {
- $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
- }
- $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
-
- if ($form->{"exchangerate_$i"} == 0) {
- $form->{"exchangerate_$i"} = "";
- }
- my $exchangerate = qq| |;
- if ($form->{currency} ne $form->{defaultcurrency}) {
- if ($form->{"forex_$i"}) {
- $exchangerate = qq| $form->{"exchangerate_$i"}|;
- } else {
- $exchangerate = qq| |;
- }
- }
-
- $exchangerate .= qq| |;
-
- $column_data{"paid_$i"} =
- qq| |;
- $column_data{"exchangerate_$i"} = qq|$exchangerate |;
- $column_data{"AR_paid_$i"} =
- qq|$form->{"selectAR_paid_$i"} |;
- $column_data{"datepaid_$i"} =
- qq|
- |;
- $column_data{"source_$i"} =
- qq| |;
- $column_data{"memo_$i"} =
- qq| |;
-
- map { print qq|$column_data{"${_}_$i"}\n| } @column_index;
- print "
- \n";
- push(@triggers, "datepaid_$i", "BL", "trigger_datepaid_$i");
- }
+[% END # foreach %]
- | . $locale->text('Total') . qq|
- | . H($form->format_amount(\%myconfig, $totalpaid, 2)) . qq|
+ Total
+ [% LxERP.foramt_amount(totalpaid, 2) | html %]
- | . $locale->text('Missing amount') . qq|
- | . H($form->format_amount(\%myconfig, $paid_missing, 2)) . qq|
+ Missing amount
+ [% LxERP.format_amount(paid_missing, 2) | html %]
- map({ print($cgi->hidden("-name" => $_, "-value" => $form->{$_})); } qw(paidaccounts selectAR_paid oldinvtotal));
+
+
+
-
+
+
+
+