W O R K O R D E R

To	Ship To
, Attn: Tel: Fax:	, Tel: Fax:

Order #	Order Date	Required by	Salesperson	Shipping Point	Ship Via

Item	Number	Description	Qt'y		Bin	Serial #
.

slc"># with permission.

# This file contains source code included with or based on SQL-Ledger which

# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed

# under the GNU General Public License version 2 or, at your option, any later

# version. For a full list including contact information of contributors,

# maintainers, and copyright holders, see the CONTRIBUTORS file.

# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):

# Author: DWS Systems Inc.

# Web: http://www.sql-ledger.org

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