X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/b8916e5c2982dd12e0a612252c85f5e1648e162c..c8c6d6d:/templates/webpages/is/_payments_master.html diff --git a/templates/webpages/is/_payments_master.html b/templates/webpages/is/_payments_master.html index 09c0812c2..1c39b20e3 100644 --- a/templates/webpages/is/_payments_master.html +++ b/templates/webpages/is/_payments_master.html @@ -1,100 +1,87 @@ +[%- USE LxERP %][% USE T8 %] + + + + +[% IF is_type_credit_note %] + +[% ELSE %] + +[%- END %] + + + + + + + + +[% IF show_exchangerate %] + +[% END %] + + + + +[% 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 %] + +[% END %] + + + - - - - - 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} = ""; - $column_data{paid} = ""; - $column_data{exchangerate} = ""; - $column_data{AR_paid} = ""; - $column_data{source} = ""; - $column_data{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||; - $column_data{"AR_paid_$i"} = - qq||; - $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 %] - - + + - - + + - map({ print($cgi->hidden("-name" => $_, "-value" => $form->{$_})); } qw(paidaccounts selectAR_paid oldinvtotal)); + + + - +
[%- 'Payments' | $T8 %][%- 'Incoming Payments' | $T8 %]
[%- 'Date' | $T8 %][%- 'Source' | $T8 %][%- 'Memo' | $T8 %][%- 'Amount' | $T8 %][%- 'Exch' | $T8 %][%- 'Account' | $T8 %]
+ + + + [% SET forex = 'forex_' _ i %] + [% SET exchangerate = 'exchangerate_' _ i %] + [% IF forex %] + + [% LxERP.format_amount(exchangerate, 2) %] + [% ELSE %] + + [% END %] + ; +
" . $locale->text('Date') . "" . $locale->text('Amount') . "" . $locale->text('Exch') . "" . $locale->text('Account') . "" . $locale->text('Source') . "" . $locale->text('Memo') . "
$exchangerate -
| . $locale->text('Total') . qq|| . H($form->format_amount(\%myconfig, $totalpaid, 2)) . qq|[%- 'Total' | $T8 %][% LxERP.foramt_amount(totalpaid, 2) | html %]
| . $locale->text('Missing amount') . qq|| . H($form->format_amount(\%myconfig, $paid_missing, 2)) . qq|[%- 'Missing amount' | $T8 %][% LxERP.format_amount(paid_missing, 2) | html %]
+ + +