ikiwiki-upstream - Unnamed repository; edit this file to name it for gitweb.

diff options

Diffstat (limited to 'doc/basewiki')

0 files changed, 0 insertions, 0 deletions

lass="hl opt">::OP;

use LedgerSMB::IS;

use LedgerSMB::IR;

require "$form->{path}/arap.pl";

# end of main

sub payment {

  if ($form->{type} eq 'receipt') {

    $form->{ARAP} = "AR";

    $form->{arap} = "ar";

    $form->{vc} = "customer";

    $form->{formname} = "receipt";

}

  if ($form->{type} eq 'check') {

    $form->{ARAP} = "AP";

    $form->{arap} = "ap";

    $form->{vc} = "vendor";

    $form->{formname} = "check";

}

  $form->{payment} = "payment";

  $form->{callback} = "$form->{script}?action=payment&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&all_vc=$form->{all_vc}&type=$form->{type}";

# setup customer/vendor selection for open invoices

  if ($form->{all_vc}) {

    $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP}, undef, $form->{datepaid});

  } else {

    CP->get_openvc(\%myconfig, \%$form);

    if ($myconfig{vclimit} > 0) {

      $form->{"all_$form->{vc}"} = $form->{name_list};

}

  $form->{"select$form->{vc}"} = "";

  if (@{ $form->{"all_$form->{vc}"} }) {

    $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id};

    for (@{ $form->{"all_$form->{vc}"} }) { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }

}

# departments

  if (@{ $form->{all_department} }) { 

    $form->{selectdepartment} = "<option>\n";

    $form->{department} = "$form->{department}--$form->{department_id}" if $form->{department};

    for (@{ $form->{all_department} }) { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| }

}

  if (@{ $form->{all_language} }) {

    $form->{selectlanguage} = "<option>\n";

    for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| }

}

  CP->paymentaccounts(\%myconfig, \%$form);

  $form->{selectaccount} = "";

  $form->{"select$form->{ARAP}"} = "";

  for (@{ $form->{PR}{"$form->{ARAP}_paid"} }) { $form->{selectaccount} .= "<option>$_->{accno}--$_->{description}\n" }

  for (@{ $form->{PR}{$form->{ARAP}} }) { $form->{"select$form->{ARAP}"} .= "<option>$_->{accno}--$_->{description}\n" }

# currencies

  @curr = split /:/, $form->{currencies};

  $form->{defaultcurrency} = $curr[0];

  chomp $form->{defaultcurrency};

  $form->{selectcurrency} = "";

  for (@curr) { $form->{selectcurrency} .= "<option>$_\n" }

  $form->{currency} = $form->{defaultcurrency};

  $form->{oldcurrency} = $form->{currency};

  if ($form->{currency} ne $form->{defaultcurrency}) {

    $form->{forex} = $form->{exchangerate} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{datepaid}, ($form->{vc} eq 'customer') ? "buy" : "sell");

}

  $form->{olddatepaid} = $form->{datepaid};

  $form->{media} = $myconfig{printer};

  $form->{format} = "pdf" unless $myconfig{printer};

&payment_header;

&payment_footer;

}

sub payments {

  if ($form->{type} eq 'receipt') {

    $form->{ARAP} = "AR";

    $form->{arap} = "ar";

    $form->{vc} = "customer";

    $form->{formname} = "receipt";

}

  if ($form->{type} eq 'check') {

    $form->{ARAP} = "AP";

    $form->{arap} = "ap";

    $form->{vc} = "vendor";

    $form->{formname} = "check";

}

  $form->{payment} = "payments";

  $form->{callback} = "$form->{script}?action=$form->{action}";

  for (qw(path login sessionid type)) { $form->{callback} .= "&$_=$form->{$_}" }

  CP->paymentaccounts(\%myconfig, \%$form);

  if (@{ $form->{all_language} }) {

    $form->{selectlanguage} = "<option>\n";

    for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| }

}

# departments

  if (@{ $form->{all_department} }) { 

    $form->{selectdepartment} = "<option>\n";

    $form->{department} = "$form->{department}--$form->{department_id}" if $form->{department};

    for (@{ $form->{all_department} }) { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| }

}

  $form->{selectaccount} = "";

  $form->{"select$form->{ARAP}"} = "";

  for (@{ $form->{PR}{"$form->{ARAP}_paid"} }) { $form->{selectaccount} .= "<option>$_->{accno}--$_->{description}\n" }

  for (@{ $form->{PR}{$form->{ARAP}} }) { $form->{"select$form->{ARAP}"} .= "<option>$_->{accno}--$_->{description}\n" }

# currencies

  @curr = split /:/, $form->{currencies};

  $form->{defaultcurrency} = $curr[0];

  chomp $form->{defaultcurrency};

  $form->{selectcurrency} = "";

  for (@curr) { $form->{selectcurrency} .= "<option>$_\n" }

  $form->{oldcurrency} = $form->{currency} = $form->{defaultcurrency};

  $form->{oldduedateto} = $form->{datepaid};

  $form->{media} = $myconfig{printer};

  $form->{format} = "pdf" unless $myconfig{printer};

&payments_header;

&invoices_due;

&payments_footer;

}

sub payments_header {

  if ($form->{type} eq 'receipt') {

    $form->{title} = $locale->text('Receipts');

}

  if ($form->{type} eq 'check') {

    $form->{title} = $locale->text('Payments');

}

  for ("department") {

    $form->{"select$_"} = $form->unescape($form->{"select$_"});

    $form->{"select$_"} =~ s/ selected//;

    $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;

}

  for ("account", "currency", "$form->{ARAP}") {

    $form->{"select$_"} =~ s/ selected//;

    $form->{"select$_"} =~ s/option>\Q$form->{$_}\E/option selected>$form->{$_}/;

}

  if ($form->{defaultcurrency}) {

     $exchangerate = qq|

<tr>

        <th align=right nowrap>|.$locale->text('Currency').qq|</th>

        <td><select name=currency>$form->{selectcurrency}</select></td>

        <input type=hidden name=selectcurrency value="$form->{selectcurrency}">

        <input type=hidden name=oldcurrency value=$form->{oldcurrency}>

</tr>

}

  if ($form->{currency} ne $form->{defaultcurrency}) {

    $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});

    if ($form->{forex}) {

      $exchangerate .= qq|

<tr>

        <th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th>

        <td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td>

</tr>

    } else {

      $exchangerate .= qq|

<tr>

        <th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th>

        <td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>

</tr>

}

  $department = qq|

<tr>

            <th align="right" nowrap>|.$locale->text('Department').qq|</th>

        <td><select name=department>$form->{selectdepartment}</select>

        <input type=hidden name=selectdepartment value="|.$form->escape($form->{selectdepartment},1).qq|">

</td>

</tr>

| if $form->{selectdepartment};

  $form->header;

print qq|

<body>

<form method=post action=$form->{script}>

  $form->hide_form(qw(defaultcurrency closedto vc type formname arap ARAP title oldduedatefrom oldduedateto payment olddepartment));

print qq|

<table width=100%>

<tr>

    <th class=listtop>$form->{title}</th>

</tr>

  <tr height="5"></tr>

<tr>

<td>

      <table width=100%>

        <tr valign=top>

<td>

<table>

<tr>

            <th align=right>|.$locale->text('Due Date').qq|&nbsp;|.$locale->text('From').qq|</th>

        <td><input name=duedatefrom value="$form->{duedatefrom}" title="$myconfig{dateformat}" size=11></td>

            <th align=right>|.$locale->text('To').qq|</th>

        <td><input name=duedateto value="$form->{duedateto}" title="$myconfig{dateformat}" size=11></td>

</tr>

</table>

</td>

      <td align=right>

<table>

$department

<tr>

            <th align=right nowrap>|.$locale->text($form->{ARAP}).qq|</th>

        <td colspan=3><select name=$form->{ARAP}>$form->{"select$form->{ARAP}"}</select>

</td>

        <input type=hidden name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}">

</tr>

<tr>

        <th align=right nowrap>|.$locale->text('Account').qq|</th>

        <td colspan=3><select name=account>$form->{selectaccount}</select>

        <input type=hidden name=selectaccount value="$form->{selectaccount}">

</td>

</tr>

<tr>

        <th align=right nowrap>|.$locale->text('Date').qq|</th>

        <td><input name=datepaid value="$form->{datepaid}" title="$myconfig{dateformat}" size=11></td>

</tr>

$exchangerate

</table>

</td>

</tr>

</table>

</td>

</tr>

}

sub invoices_due {

  @column_index = qw(name invnumber transdate amount due checked paid memo source);

  push @column_index, "language" if $form->{selectlanguage};

  $colspan = $#column_index + 1;

  $invoice = $locale->text('Invoices');

  $vclabel = ucfirst $form->{vc};

  $vclabel = $locale->text($vclabel);

print qq|

  <input type=hidden name=column_index value="id @column_index">

<tr>

<td>

      <table width=100%>

<tr>

      <th class=listheading colspan=$colspan>$invoice</th>

</tr>

  $column_data{name} = qq|<th nowrap>$vclabel</th>|;

  $column_data{invnumber} = qq|<th nowrap>|.$locale->text('Invoice')."</th>";

  $column_data{transdate} = qq|<th nowrap>|.$locale->text('Date')."</th>";

  $column_data{amount} = qq|<th nowrap>|.$locale->text('Amount')."</th>";

  $column_data{due} = qq|<th nowrap>|.$locale->text('Amount Due')."</th>";

  $column_data{paid} = qq|<th nowrap>|.$locale->text('Amount')."</th>";

  $column_data{checked} = qq|<th nowrap>|.$locale->text('Select')."</th>";

  $column_data{memo} = qq|<th nowrap>|.$locale->text('Memo')."</th>";

  $column_data{source} = qq|<th nowrap>|.$locale->text('Source')."</th>";

  $column_data{language} = qq|<th nowrap>|.$locale->text('Language')."</th>";

print qq|

<tr>

  for (@column_index) { print "$column_data{$_}\n" }

print qq|

</tr>

  $form->{selectlanguage} = $form->unescape($form->{selectlanguage});

  for $i (1 .. $form->{rowcount}) {

    for (qw(amount due paid)) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) }

    $totalamount += $form->{"amount_$i"};

    $totaldue += $form->{"due_$i"};

    $totalpaid += $form->{"paid_$i"};

    for (qw(amount due paid)) { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) }

    $column_data{invnumber} = qq|<td>$form->{"invnumber_$i"}</td>

      <input type=hidden name="invnumber_$i" value="$form->{"invnumber_$i"}">

      <input type=hidden name="id_$i" value=$form->{"id_$i"}>|;

    $column_data{transdate} = qq|<td>$form->{"transdate_$i"}</td>

      <input type=hidden name="transdate_$i" value=$form->{"transdate_$i"}>|;

    $column_data{amount} = qq|<td align=right>$form->{"amount_$i"}</td>

      <input type=hidden name="amount_$i" value=$form->{"amount_$i"}>|;

    $column_data{due} = qq|<td align=right>$form->{"due_$i"}</td>

      <input type=hidden name="due_$i" value=$form->{"due_$i"}>|;

    $column_data{paid} = qq|<td align=right><input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|;

    if ($same_id eq $form->{"$form->{vc}_id_$i"}) {

      for (qw(name memo source language)) { $column_data{$_} = qq|<td>&nbsp;</td>| }

    } else {

      $column_data{name} = qq|<td>$form->{"name_$i"}</td>|;

      $column_data{memo} = qq|<td align=right><input name="memo_$i" size=10 value="$form->{"memo_$i"}"></td>|;

      $column_data{source} = qq|<td align=right><input name="source_$i" size=10 value="$form->{"source_$i"}"></td>|;

      if ($form->{selectlanguage}) {

    $selectlanguage = $form->{selectlanguage};

    $selectlanguage =~ s/(<option value="\Q$form->{"language_code_$i"}\E")/$1 selected/;

    $column_data{language} = qq|<td><select name="language_code_$i">$selectlanguage</select></td>|;

}

    $column_data{name} .= qq|

      <input type=hidden name="name_$i" value="$form->{"name_$i"}">

      <input type=hidden name="$form->{vc}_id_$i" value="$form->{"$form->{vc}_id_$i"}">|;

    $form->{"checked_$i"} = ($form->{"checked_$i"}) ? "checked" : "";

    $column_data{checked} = qq|<td align=center><input name="checked_$i" type=checkbox class=checkbox $form->{"checked_$i"}></td>|;

    $j++; $j %= 2;

print qq|

    <tr class=listrow$j>

    for (@column_index) { print "$column_data{$_}\n" }

print qq|

</tr>

    $same_id = $form->{"$form->{vc}_id_$i"};

}

  for (@column_index) { $column_data{$_} = "<td>&nbsp;</td>" }

  $column_data{amount} = qq|<th class=listtotal align=right>|.$form->format_amount(\%myconfig, $totalamount, 2, "&nbsp;").qq|</th>|;

  $column_data{due} = qq|<th class=listtotal align=right>|.$form->format_amount(\%myconfig, $totaldue, 2, "&nbsp;").qq|</th>|;

  $column_data{paid} = qq|<th class=listtotal align=right>|.$form->format_amount(\%myconfig, $totalpaid, 2, "&nbsp;").qq|</th>|;

print qq|

        <tr class=listtotal>

  for (@column_index) { print "$column_data{$_}\n" }

print qq|

</tr>

</table>

</td>

</tr>

<input type=hidden name=selectlanguage value="|.$form->escape($form->{selectlanguage},1).qq|">

}

sub payments_footer {

  $form->{DF}{$form->{format}} = "selected";

  $transdate = $form->datetonum(\%myconfig, $form->{datepaid});

  $closedto = $form->datetonum(\%myconfig, $form->{closedto});

  if ($latex) {

    $media = qq|<select name=media>

          <option value=screen>|.$locale->text('Screen');

    if (%printer) {

      for (sort keys %printer) { $media .= qq| 

          <option value="$_">$_| }

}

    $media .= qq|</select>|;

    $format = qq|<select name=format>

            <option value=postscript $form->{DF}{postscript}>|.$locale->text('Postscript').qq|

        <option value=pdf $form->{DF}{pdf}>|.$locale->text('PDF').qq|</select>|;

}

print qq|

<tr>

    <td><hr size=3 noshade></td>

</tr>

</table>

# type=submit $locale->text('Update')

# type=submit $locale->text('Post')

# type=submit $locale->text('Print')

# type=submit $locale->text('Select all')

  %button = ('Update' => { ndx => 1, key => 'U', value => $locale->text('Update') },

         'Select all' => { ndx => 2, key => 'A', value => $locale->text('Select all') },

             'Print' => { ndx => 3, key => 'P', value => $locale->text('Print') },

         'Post' => { ndx => 4, key => 'O', value => $locale->text('Post') },

);

  if (! $latex) {

    delete $button{'Print'};

}

  if ($transdate <= $closedto) {

    for ('Post', 'Print') { delete $button{$_} }

    $media = $format = "";

}

  for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) }

  $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/;

print qq|

$format

$media

  $form->hide_form(qw(callback rowcount path login sessionid));

  if ($form->{menubar}) {

    require "$form->{path}/menu.pl";

&menubar;

}

print qq|

</form>

</body>

</html>

}

sub select_all {

  for (1 .. $form->{rowcount}) { $form->{"checked_$_"} = 1 }

  &{"update_$form->{payment}"}

}

sub update {

  my ($new_name_selected) = @_;

  &{"update_$form->{payment}"};

}

sub update_payments {

  if ($form->{ARAP} eq 'AR') {

    $buysell = "buy";

  } else {

    $buysell = "sell";

}

  if (($form->{oldduedatefrom} ne $form->{duedatefrom}) || ($form->{oldduedateto} ne $form->{duedateto}) || ($form->{department} ne $form->{olddepartment})) {

    CP->get_openinvoices(\%myconfig, \%$form);

    $form->{redo} = 1;

}

  if ($form->{currency} ne $form->{oldcurrency}) {

    $form->{oldcurrency} = $form->{currency};

    if (!$form->{redo}) {

      CP->get_openinvoices(\%myconfig, \%$form);

      $form->{redo} = 1;

}

  for (qw(duedatefrom duedateto department)) { $form->{"old$_"} = $form->{$_} }

  $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{datepaid}, $buysell)));

  if ($form->{redo}) {

    $form->{rowcount} = 0;

    $i = 0;

    foreach $ref (@{ $form->{PR} }) {

$i++;

      for (qw(id name invnumber transdate)) { $form->{"${_}_$i"} = $ref->{$_} }

      $form->{"$form->{vc}_id_$i"} = $ref->{"$form->{vc}_id"};

      $ref->{exchangerate} = 1 unless $ref->{exchangerate};

      $form->{"amount_$i"} = $ref->{amount} / $ref->{exchangerate};

      $form->{"due_$i"} = ($ref->{amount} - $ref->{paid}) / $ref->{exchangerate};

      $form->{"checked_$i"} = "";

      $form->{"paid_$i"} = "";

# need to format

      for (qw(amount due)) { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) }

}

    $form->{rowcount} = $i;

}

  $form->{amount} = $form->parse_amount(\%myconfig, $form->{amount});

# recalculate

  $amount = 0;

  for $i (1 .. $form->{rowcount}) {

    for (qw(amount due paid)) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) }

    if ($form->{"checked_$i"}) {

# calculate paid_$i

      if (!$form->{"paid_$i"}) {

    $form->{"paid_$i"} = $form->{"due_$i"};

}

      $amount += $form->{"paid_$i"};

      $form->{redo} = 1;

    } else {

      $form->{"paid_$i"} = "";

}

    for (qw(amount due paid)) { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) }

}

  $form->{amount} += ($amount - $form->{oldamount}) if $form->{redo};

&payments_header;

&invoices_due;

&payments_footer;

}

sub update_payment {

  if ($form->{vc} eq 'customer') {

    $buysell = "buy";

  } else {

    $buysell = "sell";

}

  $department = $form->{department};

# get customer/vendor

&check_openvc;

  $form->{department} = $department;

  if ($form->{datepaid} ne $form->{olddatepaid}) {

    $form->{olddatepaid} = $form->{datepaid};

    $form->{oldall_vc} = !$form->{oldall_vc} if $form->{all_vc};

}

  if ($form->{department} ne $form->{olddepartment}) {

    $form->{olddepartment} = $form->{department};

    $form->{redo} = 1;

}

# if we switched to all_vc

  if ($form->{all_vc} ne $form->{oldall_vc}) {

    if ($form->{"select$form->{vc}"}) {

      $form->{redo} = ($form->{"old$name"} ne $form->{$name});

    } else {

      $form->{redo} = ($form->{"old$name"} ne qq|$form->{$name}--$form->{"${name}_id"}|);

}

    $form->{"select$form->{vc}"} = "";

    if ($form->{all_vc}) {

      $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP}, undef, $form->{datepaid});

      if (@{ $form->{"all_$form->{vc}"} }) {

    for (@{ $form->{"all_$form->{vc}"} }) { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }

}

    } else {

      if (($myconfig{vclimit} * 1) > 0) {

    $form->{$form->{vc}} = "";

}

      CP->get_openvc(\%myconfig, \%$form);

      if (($myconfig{vclimit} * 1) > 0) {

    $form->{"all_$form->{vc}"} = $form->{name_list};

}

      if (@{ $form->{"all_$form->{vc}"} }) {

    $newvc = qq|$form->{"all_$form->{vc}"}[0]->{name}--$form->{"all_$form->{vc}"}[0]->{id}|;

    for (@{ $form->{"all_$form->{vc}"} }) { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| }

# if the name is not the same

    if ($form->{"select$form->{vc}"} !~ /$form->{$form->{vc}}/) {

      $form->{$form->{vc}} = $newvc;

&check_openvc;

}

    if (@{ $form->{all_language} }) {

      $form->{selectlanguage} = "<option>\n";

      for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| }

}

  if ($new_name_selected || $form->{redo}) {

    CP->get_openinvoices(\%myconfig, \%$form);

    ($newvc) = split /--/, $form->{$form->{vc}};

    $form->{"old$form->{vc}"} = qq|$newvc--$form->{"$form->{vc}_id"}|;;

    $form->{redo} = 1;

}

  if ($form->{currency} ne $form->{oldcurrency}) {

    $form->{oldcurrency} = $form->{currency};

    if (!$form->{redo}) {

      CP->get_openinvoices(\%myconfig, \%$form);

      $form->{redo} = 1;

}

  $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{datepaid}, $buysell)));

  if ($form->{redo}) {

    $form->{rowcount} = 0;

    $i = 0;

    foreach $ref (@{ $form->{PR} }) {

$i++;

      $form->{"id_$i"} = $ref->{id};

      $form->{"invnumber_$i"} = $ref->{invnumber};

      $form->{"transdate_$i"} = $ref->{transdate};

      $ref->{exchangerate} = 1 unless $ref->{exchangerate};

      $form->{"amount_$i"} = $ref->{amount} / $ref->{exchangerate};

      $form->{"due_$i"} = ($ref->{amount} - $ref->{paid}) / $ref->{exchangerate};

      $form->{"checked_$i"} = "";

      $form->{"paid_$i"} = "";

# need to format

      for (qw(amount due)) { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) }

}

    $form->{rowcount} = $i;

}

  $form->{amount} = $form->parse_amount(\%myconfig, $form->{amount});

# recalculate

  $amount = 0;

  for $i (1 .. $form->{rowcount}) {

    for (qw(amount due paid)) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) }

    if ($form->{"checked_$i"}) {

# calculate paid_$i

      if (!$form->{"paid_$i"}) {

    $form->{"paid_$i"} = $form->{"due_$i"};

}

      $amount += $form->{"paid_$i"};

      $form->{redo} = 1;

    } else {

      $form->{"paid_$i"} = "";

}

    for (qw(amount due paid)) { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) }

}

  $form->{amount} += ($amount - $form->{oldamount}) if $form->{redo};

&payment_header;

&list_invoices;

&payment_footer;

}

sub payment_header {

  $vclabel = ucfirst $form->{vc};

  $vclabel = $locale->text($vclabel);

  if ($form->{type} eq 'receipt') {

    $form->{title} = $locale->text('Receipt');

}

  if ($form->{type} eq 'check') {

    $form->{title} = $locale->text('Payment');

}

# $locale->text('Customer')

# $locale->text('Vendor')

  if ($form->{$form->{vc}} eq "") {

    for (qw(address1 address2 city zipcode state country)) { $form->{$_} = "" }

}

  for ("$form->{vc}", "department") {

    $form->{"select$_"} = $form->unescape($form->{"select$_"});

    $form->{"select$_"} =~ s/ selected//;

    $form->{"select$_"} =~ s/(<option value="\Q$form->{$_}\E")/$1 selected/;

}

  for ("account", "currency", "$form->{ARAP}") {

    $form->{"select$_"} =~ s/ selected//;

    $form->{"select$_"} =~ s/option>\Q$form->{$_}\E/option selected>$form->{$_}/;

}

  if ($form->{defaultcurrency}) {

    $exchangerate = qq|

<tr>

        <th align=right nowrap>|.$locale->text('Currency').qq|</th>

        <td><select name=currency>$form->{selectcurrency}</select></td>

        <input type=hidden name=selectcurrency value="$form->{selectcurrency}">

        <input type=hidden name=oldcurrency value=$form->{oldcurrency}>

</tr>

}

  if ($form->{currency} ne $form->{defaultcurrency}) {

    $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});

    if ($form->{forex}) {

      $exchangerate .= qq|

<tr>

        <th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th>

        <td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td>

</tr>

    } else {

      $exchangerate .= qq|

<tr>

        <th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th>

        <td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>

</tr>

}

  $vc = ($form->{"select$form->{vc}"}) ? qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}\n</select>| : qq|<input name=$form->{vc} size=35 value="$form->{$form->{vc}}">|;

  if ($form->{all_vc}) {

    $allvc = "checked";

  } else {

    $allvc = "";

}

# $locale->text('AR')

# $locale->text('AP')

  $department = qq|

<tr>

            <th align="right" nowrap>|.$locale->text('Department').qq|</th>

        <td><select name=department>$form->{selectdepartment}</select>

        <input type=hidden name=selectdepartment value="|.$form->escape($form->{selectdepartment},1).qq|">

</td>

</tr>

| if $form->{selectdepartment};

  $form->header;

print qq|

<body>

<form method=post action=$form->{script}>

  $form->hide_form(qw(defaultcurrency closedto vc type ARAP arap title formname payment olddepartment));

print qq|

<table width=100%>

<tr>

    <th class=listtop>$form->{title}</th>

</tr>

  <tr height="5"></tr>

<tr>

<td>

      <table width=100%>

        <tr valign=top>

<td>

<table>

<tr>

            <td align=right>

        <input name=all_vc type=checkbox class=checkbox value=Y $allvc>

        <input type=hidden name="oldall_vc" value="$form->{all_vc}"></td>

        <th align=left>|.$locale->text('All').qq|</th>

</tr>

<tr>

        <th align=right>$vclabel</th>

        <td>$vc</td>

                <input type=hidden name="select$form->{vc}" value="|.$form->escape($form->{"select$form->{vc}"},1).qq|">

                <input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}>

        <input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}">

</tr>

          <tr valign=top>

        <th align=right nowrap>|.$locale->text('Address').qq|</th>

        <td colspan=2>

<table>

<tr>

              <td>$form->{address1}</td>

</tr>

<tr>

              <td>$form->{address2}</td>

</tr>

              <td>$form->{city}</td>

</tr>

              <td>$form->{state}</td>

</tr>

              <td>$form->{zipcode}</td>

</tr>

<tr>

              <td>$form->{country}</td>

</tr>

</table>

</td>

        <input type=hidden name=address1 value="$form->{address1}">

        <input type=hidden name=address2 value="$form->{address2}">

        <input type=hidden name=city value="$form->{city}">

        <input type=hidden name=state value="$form->{state}">

        <input type=hidden name=zipcode value="$form->{zipcode}">

        <input type=hidden name=country value="$form->{country}">

</tr>

<tr>

        <th align=right>|.$locale->text('Memo').qq|</th>

        <td colspan=2><input name="memo" size=30 value="$form->{memo}"></td>

</tr>

</table>

</td>

      <td align=right>

<table>

$department

<tr>

            <th align=right nowrap>|.$locale->text($form->{ARAP}).qq|</th>


context:
space:
mode: