monkeysphere - Unnamed repository; edit this file 'description' to name the repository.

summary refs log tree commit diff

path: root/doc/artwork

diff options

Diffstat (limited to 'doc/artwork')

0 files changed, 0 insertions, 0 deletions

hl"># This program is free software; you can redistribute it and/or modify

# it under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 2 of the License, or

# (at your option) any later version.

# This program is distributed in the hope that it will be useful,

# but WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

# You should have received a copy of the GNU General Public License

# along with this program; if not, write to the Free Software

# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#======================================================================

# Inventory received module

#======================================================================

use LedgerSMB::IR;

use LedgerSMB::PE;

use LedgerSMB::Tax;

require "bin/io.pl";

require "bin/arap.pl";

# end of main

sub add {

  $form->{title} = $locale->text('Add Vendor Invoice');

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

&invoice_links;

&prepare_invoice;

&display_form;

}

sub edit {

  $form->{title} = $locale->text('Edit Vendor Invoice');

&invoice_links;

&prepare_invoice;

&display_form;

}

sub invoice_links {

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

  $form->{type} = "invoice";

# create links

  $form->create_links("AP", \%myconfig, "vendor", 1);

# currencies

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

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

  chomp $form->{defaultcurrency};

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

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

    unless ($form->{vendor_id}) {

      $form->{vendor_id} = $form->{all_vendor}->[0]->{id};

}

  AA->get_name(\%myconfig, \%$form);

  delete $form->{notes};

  IR->retrieve_invoice(\%myconfig, \%$form);

  $form->{oldlanguage_code} = $form->{language_code};

  $form->get_partsgroup(\%myconfig, { language_code => $form->{language_code} });

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

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

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

      if ($ref->{translation}) {

    $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{translation}\n|;

      } else {

        $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|;

}

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

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

    for (@{ $form->{all_project} }) { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| }

}

  $form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}";

  $form->{oldtransdate} = $form->{transdate};

# vendors

  $form->{selectvendor} = "";

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

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

    for (@{ $form->{all_vendor} }) { $form->{selectvendor} .= 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_id};

    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| }

}

# forex

  $form->{forex} = $form->{exchangerate};

  $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;

  foreach $key (keys %{ $form->{AP_links} }) {

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

    foreach $ref (@{ $form->{AP_links}{$key} }) {

      $form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n";

}

    if ($key eq "AP_paid") {

      for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) {

    $form->{"AP_paid_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";

# reverse paid

    $form->{"paid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{amount};

    $form->{"datepaid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{transdate};

    $form->{"forex_$i"} = $form->{"exchangerate_$i"} = $form->{acc_trans}{$key}->[$i-1]->{exchangerate};

    $form->{"source_$i"} = $form->{acc_trans}{$key}->[$i-1]->{source};

    $form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i-1]->{memo};

    $form->{"cleared_$i"} = $form->{acc_trans}{$key}->[$i-1]->{cleared};

    $form->{paidaccounts} = $i;

}

    } else {

      $form->{$key} = "$form->{acc_trans}{$key}->[0]->{accno}--$form->{acc_trans}{$key}->[0]->{description}" if $form->{acc_trans}{$key}->[0]->{accno};

}

  $form->{paidaccounts} = 1 unless (exists $form->{paidaccounts});

  $form->{AP} = $form->{AP_1} unless $form->{id};

  $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum(\%myconfig, $form->{transdate}) <= $form->datetonum(\%myconfig, $form->{closedto}));

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

    $form->{readonly} = 1 if $myconfig{acs} =~ /AP--Vendor Invoice/;

}

sub prepare_invoice {

  $form->{type} = "invoice";

  $form->{currency} =~ s/ //g;

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

  if ($form->{id}) {

    for (qw(invnumber ordnumber ponumber quonumber)) { $form->{$_} = $form->quote($form->{$_}) }

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

$i++;

      for (keys %$ref) { $form->{"${_}_$i"} = $ref->{$_} }

      $form->{"projectnumber_$i"} = qq|$ref->{projectnumber}--$ref->{project_id}| if $ref->{project_id};

      $form->{"partsgroup_$i"} = qq|$ref->{partsgroup}--$ref->{partsgroup_id}| if $ref->{partsgroup_id};

      $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100);

      ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);

      $dec = length $dec;

      $decimalplaces = ($dec > 2) ? $dec : 2;

      $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);

      $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});

      $form->{"oldqty_$i"} = $form->{"qty_$i"};

      for (qw(partnumber sku description unit)) { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) }

      $form->{rowcount} = $i;

}

sub form_header {

# set option selected

  for (qw(AP currency)) {

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

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

}

  for (qw(vendor department)) {

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

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

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

}

  if ($form->{selectlanguage}) {

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

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

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

    $lang = qq|

<tr>

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

        <td><select name=language_code>$form->{selectlanguage}</select></td>

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

                <input type=hidden name="selectlanguage" value="|.

        $form->escape($form->{selectlanguage},1).qq|">

</tr>

}

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

  $exchangerate = qq|<tr>|;

  $exchangerate .= qq|

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

        <td><select name=currency>$form->{selectcurrency}</select></td> | if $form->{defaultcurrency};

  $exchangerate .= qq|

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

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

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

    if ($form->{forex}) {

      $exchangerate .= qq|

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

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

    } else {

      $exchangerate .= qq|

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

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

}

  $exchangerate .= qq|

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

</tr>

  if ($form->{selectvendor}) {

    $vendor = qq|<select name=vendor>$form->{selectvendor}</select>

                 <input type=hidden name="selectvendor" value="|.

         $form->escape($form->{selectvendor},1).qq|">|;

  } else {

    $vendor = qq|<input name=vendor value="$form->{vendor}" size=35>|;

}

  $department = qq|

<tr>

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

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

          <input type=hidden name=selectdepartment value="|.

          $form->escape($form->{selectdepartment},1).qq|">

</td>

</tr>

| if $form->{selectdepartment};

  $n = ($form->{creditremaining} < 0) ? "0" : "1";

  $i = $form->{rowcount} + 1;

  $focus = "partnumber_$i";

  $form->header;

print qq|

<body onLoad="document.forms[0].${focus}.focus()" />

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

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

  $form->hide_form(qw(id title vc type terms creditlimit creditremaining closedto locked shipped oldtransdate recurring));

print qq|

<table width=100%>

  <tr class=listtop>

    <th>$form->{title}</th>

</tr>

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

<tr>

<td>

      <table width=100%>

        <tr valign=top>

<td>

<table>

<tr>

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

        <td colspan=3>$vendor</td>

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

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

</tr>

<tr>

            <td></td>

        <td colspan=3>

<table>

<tr>

              <th nowrap>|.$locale->text('Credit Limit').qq|</th>

              <td>|.$form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0").qq|</td>

              <td width=20%></td>

              <th nowrap>|.$locale->text('Remaining').qq|</th>

              <td class="plus$n" nowrap>|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</td>

</tr>

</table>

</td>

<tr>

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

        <td colspan=3><select name=AP>$form->{selectAP}</select></td>

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

</tr>

$department

$exchangerate

</table>

</td>

      <td align=right>

<table>

<tr>

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

        <td><input name=invnumber size=20 value="$form->{invnumber}"></td>

</tr>

<tr>

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

        <td><input name=ordnumber size=20 value="$form->{ordnumber}"></td>

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

</tr>

<tr>

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

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

</tr>

<tr>

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

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

</tr>

<tr>

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

        <td><input name=ponumber size=20 value="$form->{ponumber}"></td>

</tr>

$lang

</table>

</td>

</tr>

</table>

</td>

</tr>

  $form->hide_form(qw(selectcurrency defaultcurrency taxaccounts));

  for (split / /, $form->{taxaccounts}) { $form->hide_form("${_}_rate", "${_}_description") }

}

sub form_footer {

  $form->{invtotal} = $form->{invsubtotal};

  if (($rows = $form->numtextrows($form->{notes}, 35, 8)) < 2) {

    $rows = 2;

}

  if (($introws = $form->numtextrows($form->{intnotes}, 35, 8)) < 2) {

    $introws = 2;

}

  $rows = ($rows > $introws) ? $rows : $introws;

  $notes = qq|<textarea name=notes rows=$rows cols=35 wrap=soft>$form->{notes}</textarea>|;

  $intnotes = qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|;

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

  $taxincluded = "";

  if ($form->{taxaccounts}) {

    $taxincluded = qq|

        <input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}> <b>|.$locale->text('Tax Included').qq|</b>

}

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

    my @taxset = Tax::init_taxes($form, $form->{taxaccounts});

    $form->{invtotal} += $form->round_amount(

      Tax::calculate_taxes(\@taxset, $form, $form->{invsubtotal}, 0), 2);

    foreach $taxobj (@taxset) {

      $item = $taxobj->account;

      if ($form->{"${item}_base"}) {

        $form->{"${item}_total"} = $form->format_amount(\%myconfig,

      $form->round_amount($taxobj->value, 2), 2);

    $tax .= qq|

<tr>

          <th align=right>$form->{"${item}_description"}</th>

          <td align=right>$form->{"${item}_total"}</td>

</tr>

}

    $form->{invsubtotal} = $form->format_amount(\%myconfig, $form->{invsubtotal}, 2, 0);

    $subtotal = qq|

<tr>

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

        <td align=right>$form->{invsubtotal}</td>

</tr>

}

  $form->{oldinvtotal} = $form->{invtotal};

  $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2, 0);

print qq|

<tr>

<td>

      <table width=100%>

    <tr valign=bottom>

<td>

<table>

<tr>

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

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

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

</tr>

          <tr valign=top>

        <td>$notes</td>

        <td>$intnotes</td>

                <td><textarea name=import_text rows=$rows cols=25></textarea>

</tr>

</table>

</td>

      <td align=right>

$taxincluded

<br>

<table>

$subtotal

$tax

<tr>

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

        <td align=right>$form->{invtotal}</td>

</tr>

</table>

</td>

</tr>

</table>

</td>

</tr>

<tr>

<td>

      <table width=100%>

<tr>

      <th colspan=6 class=listheading>|.$locale->text('Payments').qq|</th>

</tr>

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

      @column_index = qw(datepaid source memo paid AP_paid);

    } else {

      @column_index = qw(datepaid source memo paid exchangerate AP_paid);

}

    $column_data{datepaid} = "<th>".$locale->text('Date')."</th>";

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

    $column_data{exchangerate} = "<th>".$locale->text('Exch')."</th>";

    $column_data{AP_paid} = "<th>".$locale->text('Account')."</th>";

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

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

print qq|

<tr>

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

print qq|

</tr>

    $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"});

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

      $form->hide_form("cleared_$i");

print qq|

<tr>

      $form->{"selectAP_paid_$i"} = $form->{selectAP_paid};

      $form->{"selectAP_paid_$i"} =~ s/option>\Q$form->{"AP_paid_$i"}\E/option selected>$form->{"AP_paid_$i"}/;

# format amounts

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

      $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);

      $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"});

      $exchangerate = qq|&nbsp;|;

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

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

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

    } else {

      $exchangerate = qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|;

}

      $exchangerate .= qq|

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

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

      $column_data{"exchangerate_$i"} = qq|<td align=center>$exchangerate</td>|;

      $column_data{"AP_paid_$i"} = qq|<td align=center><select name="AP_paid_$i">$form->{"selectAP_paid_$i"}</select></td>|;

      $column_data{"datepaid_$i"} = qq|<td align=center><input name="datepaid_$i" size=11 title="$myconfig{dateformat}" value=$form->{"datepaid_$i"}></td>|;

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


context:
space:
mode: