templates/webpages/is/_payments_master.html

   1
   2
   3
   4
   5
   6
   7   my @column_index;
   8   if ($form->{currency} eq $form->{defaultcurrency}) {
   9     @column_index = qw(datepaid source memo paid AR_paid);
  10   } else {
  11     @column_index = qw(datepaid source memo paid exchangerate AR_paid);
  12   }
  13
  14   my %column_data;
  15   $column_data{datepaid}     = "<th>" . $locale->text('Date') . "</th>";
  16   $column_data{paid}         = "<th>" . $locale->text('Amount') . "</th>";
  17   $column_data{exchangerate} = "<th>" . $locale->text('Exch') . "</th>";
  18   $column_data{AR_paid}      = "<th>" . $locale->text('Account') . "</th>";
  19   $column_data{source}       = "<th>" . $locale->text('Source') . "</th>";
  20   $column_data{memo}         = "<th>" . $locale->text('Memo') . "</th>";
  21
  22     <tr>
  23
  24   map { print "$column_data{$_}\n" } @column_index;
  25
  26         </tr>
  27
  28   my @triggers  = ();
  29   my $totalpaid = 0;
  30
  31   $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});
  32
  33
  34
  35   [% FOREACH i = 1 .. paidaccounts %]
  36
  37         <tr>
  38
  39
  40     $form->{"selectAR_paid_$i"} = $form->{selectAR_paid};
  41     $form->{"selectAR_paid_$i"} =~
  42       s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/;
  43
  44     # format amounts
  45     $totalpaid += $form->{"paid_$i"};
  46     if ($form->{"paid_$i"}) {
  47       $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
  48     }
  49     $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
  50
  51     if ($form->{"exchangerate_$i"} == 0) {
  52       $form->{"exchangerate_$i"} = "";
  53     }
  54     my $exchangerate = qq|&nbsp;|;
  55     if ($form->{currency} ne $form->{defaultcurrency}) {
  56       if ($form->{"forex_$i"}) {
  57         $exchangerate = qq|<input type="hidden" name="exchangerate_$i" value="$form->{"exchangerate_$i"}">$form->{"exchangerate_$i"}|;
  58       } else {
  59         $exchangerate = qq|<input name="exchangerate_$i" size="10" value="$form->{"exchangerate_$i"}">|;
  60       }
  61     }
  62
  63     $exchangerate .= qq|<input type="hidden" name="forex_$i" value="$form->{"forex_$i"}">|;
  64
  65     $column_data{"paid_$i"} =
  66       qq|<td align="center"><input name="paid_$i" size="11" value="$form->{"paid_$i"}" onBlur=\"check_right_number_format(this)\"></td>|;
  67     $column_data{"exchangerate_$i"} = qq|<td align="center">$exchangerate</td>|;
  68     $column_data{"AR_paid_$i"}      =
  69       qq|<td align="center"><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|;
  70     $column_data{"datepaid_$i"} =
  71       qq|<td align="center"><input id="datepaid_$i" name="datepaid_$i"  size="11" title="$myconfig{dateformat}" value="$form->{"datepaid_$i"}" onBlur=\"check_right_date_format(this)\">
  72          <input type="button" name="datepaid_$i" id="trigger_datepaid_$i" value="?"></td>|;
  73     $column_data{"source_$i"} =
  74       qq|<td align=center><input name="source_$i" size="11" value="$form->{"source_$i"}"></td>|;
  75     $column_data{"memo_$i"} =
  76       qq|<td align="center"><input name="memo_$i" size="11" value="$form->{"memo_$i"}"></td>|;
  77
  78     map { print qq|$column_data{"${_}_$i"}\n| } @column_index;
  79     print "
  80         </tr>\n";
  81     push(@triggers, "datepaid_$i", "BL", "trigger_datepaid_$i");
  82   }
  83
  84     <tr>
  85       <td></td>
  86       <td></td>
  87       <td align="center">| . $locale->text('Total') . qq|</td>
  88       <td align="center">| . H($form->format_amount(\%myconfig, $totalpaid, 2)) . qq|</td>
  89     </tr>
  90     <tr>
  91       <td></td>
  92       <td></td>
  93       <td align="center">| . $locale->text('Missing amount') . qq|</td>
  94       <td align="center">| . H($form->format_amount(\%myconfig, $paid_missing, 2)) . qq|</td>
  95     </tr>
  96
  97   map({ print($cgi->hidden("-name" => $_, "-value" => $form->{$_})); } qw(paidaccounts selectAR_paid oldinvtotal));
  98
  99   <input type="hidden" name="oldtotalpaid" value="$totalpaid">
 100     </table>