#=====================================================================
# SQL-Ledger Accounting
-# Copyright (c) 1998-2002
+# Copyright (c) 2001
#
# Author: Dieter Simader
# Email: dsimader@sql-ledger.org
#
#======================================================================
-# $locale->text('Customers')
-# $locale->text('Vendors')
-
use SL::CT;
1;
sub add {
$form->{title} = "Add";
+# $locale->text('Add Customer')
+# $locale->text('Add Vendor')
- $form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback};
+ $form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback};
- CT->taxaccounts(\%myconfig, \%$form);
+ CT->create_links(\%myconfig, \%$form);
&form_header;
&form_footer;
}
+sub history {
+
+# $locale->text('Customer History')
+# $locale->text('Vendor History')
+
+ $history = 1;
+ $label = ucfirst $form->{db};
+ $label .= " History";
+
+ if ($form->{db} eq 'customer') {
+ $invlabel = $locale->text('Sales Invoices');
+ $ordlabel = $locale->text('Sales Orders');
+ $quolabel = $locale->text('Quotations');
+ } else {
+ $invlabel = $locale->text('Vendor Invoices');
+ $ordlabel = $locale->text('Purchase Orders');
+ $quolabel = $locale->text('Request for Quotations');
+ }
+
+ $form->{title} = $locale->text($label);
+
+ $form->{nextsub} = "list_history";
+
+ $transactions = qq|
+ <tr>
+ <td></td>
+ <td>
+ <table>
+ <tr>
+ <td>
+ <table>
+ <tr>
+ <td><input name=type type=radio class=radio value=invoice checked> $invlabel</td>
+ </tr>
+ <tr>
+ <td><input name=type type=radio class=radio value=order> $ordlabel</td>
+ </tr>
+ <tr>
+ <td><input name="type" type=radio class=radio value=quotation> $quolabel</td>
+ </tr>
+ </table>
+ </td>
+ <td>
+ <table>
+ <tr>
+ <th>|.$locale->text('From').qq|</th>
+ <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
+ <th>|.$locale->text('To').qq|</th>
+ <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
+ </tr>
+ <tr>
+ <td></td>
+ <td colspan=3>
+ <input name="open" type=checkbox class=checkbox value=Y checked> |.$locale->text('Open').qq|
+ <input name="closed" type=checkbox class=checkbox value=Y checked> |.$locale->text('Closed').qq|
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+|;
+
+ $include = qq|
+ <tr>
+ <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
+ <td>
+ <table>
+ <tr>
+ <td><input name=history type=radio class=radio value=summary checked> |.$locale->text('Summary').qq|</td>
+ <td><input name=history type=radio class=radio value=detail> |.$locale->text('Detail').qq|
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <input name="l_partnumber" type=checkbox class=checkbox value=Y checked> |.$locale->text('Part Number').qq|
+ </td>
+ <td>
+ <input name="l_description" type=checkbox class=checkbox value=Y checked> |.$locale->text('Description').qq|
+ </td>
+ <td>
+ <input name="l_sellprice" type=checkbox class=checkbox value=Y checked> |.$locale->text('Sell Price').qq|
+ </td>
+ <td>
+ <input name="l_curr" type=checkbox class=checkbox value=Y> |.$locale->text('Currency').qq|
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <input name="l_qty" type=checkbox class=checkbox value=Y> |.$locale->text('Qty').qq|
+ </td>
+ <td>
+ <input name="l_unit" type=checkbox class=checkbox value=Y> |.$locale->text('Unit').qq|
+ </td>
+ <td>
+ <input name="l_discount" type=checkbox class=checkbox value=Y> |.$locale->text('Discount').qq|
+ </td>
+ <tr>
+ </tr>
+ <td>
+ <input name="l_deliverydate" type=checkbox class=checkbox value=Y> |.$locale->text('Delivery Date').qq|
+ </td>
+ <td>
+ <input name="l_projectnumber" type=checkbox class=checkbox value=Y> |.$locale->text('Project Number').qq|
+ </td>
+ <td>
+ <input name="l_serialnumber" type=checkbox class=checkbox value=Y> |.$locale->text('Serial Number').qq|
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+|;
+
+ &search_name;
+
+}
+
+
+sub transactions {
+
+ if ($form->{db} eq 'customer') {
+ $translabel = $locale->text('AR Transactions');
+ $invlabel = $locale->text('Sales Invoices');
+ $ordlabel = $locale->text('Sales Orders');
+ $quolabel = $locale->text('Quotations');
+ } else {
+ $translabel = $locale->text('AP Transactions');
+ $invlabel = $locale->text('Vendor Invoices');
+ $ordlabel = $locale->text('Purchase Orders');
+ $quolabel = $locale->text('Request for Quotations');
+ }
+
+
+ $transactions = qq|
+ <tr>
+ <td></td>
+ <td>
+ <table>
+ <tr>
+ <td>
+ <table>
+ <tr>
+ <td><input name="l_transnumber" type=checkbox class=checkbox value=Y> $translabel</td>
+ </tr>
+ <tr>
+ <td><input name="l_invnumber" type=checkbox class=checkbox value=Y> $invlabel</td>
+ </tr>
+ <tr>
+ <td><input name="l_ordnumber" type=checkbox class=checkbox value=Y> $ordlabel</td>
+ </tr>
+ <tr>
+ <td><input name="l_quonumber" type=checkbox class=checkbox value=Y> $quolabel</td>
+ </tr>
+ </table>
+ </td>
+ <td>
+ <table>
+ <tr>
+ <th>|.$locale->text('From').qq|</th>
+ <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td>
+ <th>|.$locale->text('To').qq|</th>
+ <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td>
+ </tr>
+ <tr>
+ <td></td>
+ <td colspan=3>
+ <input name="open" type=checkbox class=checkbox value=Y checked> |.$locale->text('Open').qq|
+ <input name="closed" type=checkbox class=checkbox value=Y checked> |.$locale->text('Closed').qq|
+ </td>
+ </tr>
+ <tr>
+ <td></td>
+ <td colspan=3>
+ <input name="l_amount" type=checkbox class=checkbox value=Y checked> |.$locale->text('Amount').qq|
+ <input name="l_tax" type=checkbox class=checkbox value=Y checked> |.$locale->text('Tax').qq|
+ <input name="l_total" type=checkbox class=checkbox value=Y checked> |.$locale->text('Total').qq|
+ <input name="l_subtotal" type=checkbox class=checkbox value=Y> |.$locale->text('Subtotal').qq|
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+|;
+
+}
+
+
+sub include_in_report {
+
+ $label = ucfirst $form->{db};
+
+ if ($myconfig{role} =~ /(admin|manager)/) {
+ $bcc = qq|
+ <td><input name="l_bcc" type=checkbox class=checkbox value=Y> |.$locale->text('Bcc').qq|</td>
+|;
+ }
+
+ if ($form->{db} eq 'customer') {
+ $employee = qq|
+ <td><input name="l_employee" type=checkbox class=checkbox value=Y> |.$locale->text('Salesperson').qq|</td>
+|;
+
+ $pricegroup = qq|
+ <td><input name="l_pricegroup" type=checkbox class=checkbox value=Y> |.$locale->text('Pricegroup').qq|</td>
+|;
+
+ } else {
+ $employee = qq|
+ <td><input name="l_employee" type=checkbox class=checkbox value=Y> |.$locale->text('Employee').qq|</td>
+|;
+ }
+
+ $employee .= qq|
+ <td><input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager').qq|</td>
+|;
+
+ $include = qq|
+ <tr>
+ <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
+ <td>
+ <table>
+ <tr>
+ <td><input name="l_id" type=checkbox class=checkbox value=Y> |.$locale->text('ID').qq|</td>
+ <td><input name="l_$form->{db}number" type=checkbox class=checkbox value=Y> |.$locale->text($label . ' Number').qq|</td>
+ <td><input name="l_name" type=checkbox class=checkbox value=Y $form->{l_name}> |.$locale->text('Company Name').qq|</td>
+ <td><input name="l_contact" type=checkbox class=checkbox value=Y $form->{l_contact}> |.$locale->text('Contact').qq|</td>
+ <td><input name="l_email" type=checkbox class=checkbox value=Y $form->{l_email}> |.$locale->text('E-mail').qq|</td>
+ </tr>
+ <tr>
+ <td><input name="l_address" type=checkbox class=checkbox value=Y> |.$locale->text('Address').qq|</td>
+ <td><input name="l_city" type=checkbox class=checkbox value=Y> |.$locale->text('City').qq|</td>
+ <td><input name="l_state" type=checkbox class=checkbox value=Y> |.$locale->text('State/Province').qq|</td>
+ <td><input name="l_zipcode" type=checkbox class=checkbox value=Y> |.$locale->text('Zip/Postal Code').qq|</td>
+ <td><input name="l_country" type=checkbox class=checkbox value=Y> |.$locale->text('Country').qq|</td>
+ </tr>
+ <tr>
+ <td><input name="l_phone" type=checkbox class=checkbox value=Y $form->{l_phone}> |.$locale->text('Phone').qq|</td>
+ <td><input name="l_fax" type=checkbox class=checkbox value=Y> |.$locale->text('Fax').qq|</td>
+ <td><input name="l_cc" type=checkbox class=checkbox value=Y> |.$locale->text('Cc').qq|</td>
+ $bcc
+ <td><input name="l_notes" type=checkbox class=checkbox value=Y> |.$locale->text('Notes').qq|</td>
+ <td><input name="l_discount" type=checkbox class=checkbox value=Y> |.$locale->text('Discount').qq|</td>
+ </tr>
+ <tr>
+ <td><input name="l_taxnumber" type=checkbox class=checkbox value=Y> |.$locale->text('Tax Number').qq|</td>
+ $gifi
+ <td><input name="l_sic_code" type=checkbox class=checkbox value=Y> |.$locale->text('SIC').qq|</td>
+ <td><input name="l_iban" type=checkbox class=checkbox value=Y> |.$locale->text('IBAN').qq|</td>
+ <td><input name="l_bic" type=checkbox class=checkbox value=Y> |.$locale->text('BIC').qq|</td>
+ </tr>
+ <tr>
+ $employee
+ <td><input name="l_business" type=checkbox class=checkbox value=Y> |.$locale->text('Type of Business').qq|</td>
+ $pricegroup
+ <td><input name="l_language" type=checkbox class=checkbox value=Y> |.$locale->text('Language').qq|</td>
+ </tr>
+ <tr>
+ <td><input name="l_startdate" type=checkbox class=checkbox value=Y> |.$locale->text('Startdate').qq|</td>
+ <td><input name="l_enddate" type=checkbox class=checkbox value=Y> |.$locale->text('Enddate').qq|</td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+|;
+
+}
+
+
sub search {
+# $locale->text('Customers')
+# $locale->text('Vendors')
+
+ $form->{title} = $locale->text('Search') unless $form->{title};
+
+ map { $form->{"l_$_"} = 'checked' } qw(name contact phone email);
+
+ $form->{nextsub} = "list_names";
+
+ $orphan = qq|
+ <tr>
+ <td></td>
+ <td><input name=status class=radio type=radio value=all checked> |.$locale->text('All').qq|
+ <input name=status class=radio type=radio value=orphaned> |.$locale->text('Orphaned').qq|</td>
+ </tr>
+|;
+
+ if ($form->{db} eq 'vendor') {
+ $gifi = qq|
+ <td><input name="l_gifi_accno" type=checkbox class=checkbox value=Y> |.$locale->text('GIFI').qq|</td>
+|;
+ }
+
+ &transactions;
+ &include_in_report;
+ &search_name;
+
+}
+
+
+sub search_name {
+
$label = ucfirst $form->{db};
- $form->{title} = $locale->text($label."s");
+
$form->header;
<td>
<table>
<tr>
- <th align=right nowrap>|.$locale->text('Number').qq|</th>
- <td><input name=$form->{db}number size=35></td>
+ <th align=right nowrap>|.$locale->text($label . ' Number').qq|</th>
+ <td><input name=$form->{db}number size=32></td>
</tr>
<tr>
- <th align=right nowrap>|.$locale->text('Name').qq|</th>
- <td><input name=name size=35></td>
+ <th align=right nowrap>|.$locale->text('Company Name').qq|</th>
+ <td><input name=name size=64></td>
</tr>
<tr>
- <th align=right nowrap>|.$locale->text('Contact').qq|</th>
- <td><input name=contact size=35></td>
+ <th align=right nowrap>|.$locale->text('Address').qq|</th>
+ <td><input name=address size=64></td>
</tr>
<tr>
- <th align=right nowrap>|.$locale->text('E-mail').qq|</th>
- <td><input name=email size=35></td>
+ <th align=right nowrap>|.$locale->text('City').qq|</th>
+ <td><input name=city size=32></td>
</tr>
<tr>
- <td></td>
- <td><input name=status class=radio type=radio value=all checked> |.$locale->text('All').qq|
- <input name=status class=radio type=radio value=orphaned> |.$locale->text('Orphaned').qq|</td>
+ <th align=right nowrap>|.$locale->text('State/Province').qq|</th>
+ <td><input name=state size=32></td>
</tr>
<tr>
- <th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
- <td>
- <input name="l_$form->{db}number" type=checkbox class=checkbox value=Y> |.$locale->text('Number').qq|
- <input name="l_name" type=checkbox class=checkbox value=Y checked> |.$locale->text('Name').qq|
- <input name="l_address" type=checkbox class=checkbox value=Y> |.$locale->text('Address').qq|<br>
- <input name="l_contact" type=checkbox class=checkbox value=Y checked> |.$locale->text('Contact').qq|
- <input name="l_phone" type=checkbox class=checkbox value=Y checked> |.$locale->text('Phone').qq|
- <input name="l_fax" type=checkbox class=checkbox value=Y> |.$locale->text('Fax').qq|
- <input name="l_email" type=checkbox class=checkbox value=Y checked> |.$locale->text('E-mail').qq|
- <input name="l_cc" type=checkbox class=checkbox value=Y> |.$locale->text('Cc').qq|
- </td>
+ <th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th>
+ <td><input name=zipcode size=10></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('Country').qq|</th>
+ <td><input name=country size=32></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('Contact').qq|</th>
+ <td><input name=contact size=64></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('E-mail').qq|</th>
+ <td><input name=email size=32></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('Notes').qq|</th>
+ <td><input name=notes size=64></td>
</tr>
+
+ $invnumber
+ $orphan
+ $transactions
+ $include
+
</table>
</td>
</tr>
+
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
-<input type=hidden name=nextsub value=list_names>
+<input type=hidden name=nextsub value=$form->{nextsub}>
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
+<input type=hidden name=sessionid value=$form->{sessionid}>
<br>
<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
sub list_names {
-
+
CT->search(\%myconfig, \%$form);
- $callback = "$form->{script}?action=list_names&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}";
- $href = $callback;
+ $href = "$form->{script}?action=list_names&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&l_subtotal=$form->{l_subtotal}";
+
+ $form->sort_order();
- @columns = $form->sort_columns(name, "$form->{db}number", address, contact, phone, fax, email, cc);
+ $callback = "$form->{script}?action=list_names&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&l_subtotal=$form->{l_subtotal}";
+
+ @columns = $form->sort_columns(id, name, "$form->{db}number", address,
+ city, state, zipcode, country, contact,
+ phone, fax, email, cc, bcc, employee,
+ manager, notes, discount,
+ taxnumber, gifi_accno, sic_code, business,
+ pricegroup, language, iban, bic,
+ startdate, enddate,
+ invnumber, invamount, invtax, invtotal,
+ ordnumber, ordamount, ordtax, ordtotal,
+ quonumber, quoamount, quotax, quototal);
+
+ foreach $item (qw(inv ord quo)) {
+ if ($form->{"l_${item}number"}) {
+ map { $form->{"l_$item$_"} = $form->{"l_$_"} } qw(amount tax total);
+ $removeemployee = 1;
+ $openclosed = 1;
+ }
+ }
+ $form->{open} = $form->{closed} = "" if !$openclosed;
+
+ if ($form->{l_transnumber}) {
+ map { $form->{"l_inv$_"} = $form->{"l_$_"} } qw(amount tax total);
+ $removeemployee = 1;
+ }
+
+ if ($removeemployee) {
+ @columns = grep !/(employee|manager)/, @columns;
+ }
+
foreach $item (@columns) {
if ($form->{"l_$item"} eq "Y") {
}
}
+ foreach $item (qw(amount tax total transnumber)) {
+ if ($form->{"l_$item"} eq "Y") {
+ $callback .= "&l_$item=Y";
+ $href .= "&l_$item=Y";
+ }
+ }
+
+
if ($form->{status} eq 'all') {
$option = $locale->text('All');
}
$option .= $locale->text('Orphaned');
}
if ($form->{name}) {
- $callback .= "&name=$form->{name}";
+ $callback .= "&name=".$form->escape($form->{name},1);
$href .= "&name=".$form->escape($form->{name});
$option .= "\n<br>".$locale->text('Name')." : $form->{name}";
}
+ if ($form->{address}) {
+ $callback .= "&address=".$form->escape($form->{address},1);
+ $href .= "&address=".$form->escape($form->{address});
+ $option .= "\n<br>".$locale->text('Address')." : $form->{address}";
+ }
+ if ($form->{city}) {
+ $callback .= "&city=".$form->escape($form->{city},1);
+ $href .= "&city=".$form->escape($form->{city});
+ $option .= "\n<br>".$locale->text('City')." : $form->{city}";
+ }
+ if ($form->{state}) {
+ $callback .= "&state=".$form->escape($form->{state},1);
+ $href .= "&state=".$form->escape($form->{state});
+ $option .= "\n<br>".$locale->text('State')." : $form->{state}";
+ }
+ if ($form->{zipcode}) {
+ $callback .= "&zipcode=".$form->escape($form->{zipcode},1);
+ $href .= "&zipcode=".$form->escape($form->{zipcode});
+ $option .= "\n<br>".$locale->text('Zip/Postal Code')." : $form->{zipcode}";
+ }
+ if ($form->{country}) {
+ $callback .= "&country=".$form->escape($form->{country},1);
+ $href .= "&country=".$form->escape($form->{country});
+ $option .= "\n<br>".$locale->text('Country')." : $form->{country}";
+ }
if ($form->{contact}) {
- $callback .= "&contact=$form->{contact}";
+ $callback .= "&contact=".$form->escape($form->{contact},1);
$href .= "&contact=".$form->escape($form->{contact});
$option .= "\n<br>".$locale->text('Contact')." : $form->{contact}";
}
+ if ($form->{notes}) {
+ $callback .= "¬es=".$form->escape($form->{notes},1);
+ $href .= "¬es=".$form->escape($form->{notes});
+ $option .= "\n<br>".$locale->text('Notes')." : $form->{notes}";
+ }
if ($form->{"$form->{db}number"}) {
- $callback .= qq|&$form->{db}number=$form->{"$form->{db}number"}|;
+ $callback .= qq|&$form->{db}number=|.$form->escape($form->{"$form->{db}number"},1);
$href .= "&$form->{db}number=".$form->escape($form->{"$form->{db}number"});
$option .= "\n<br>".$locale->text('Number').qq| : $form->{"$form->{db}number"}|;
}
if ($form->{email}) {
- $callback .= "&email=$form->{email}";
+ $callback .= "&email=".$form->escape($form->{email},1);
$href .= "&email=".$form->escape($form->{email});
$option .= "\n<br>".$locale->text('E-mail')." : $form->{email}";
}
+ if ($form->{transdatefrom}) {
+ $callback .= "&transdatefrom=$form->{transdatefrom}";
+ $href .= "&transdatefrom=$form->{transdatefrom}";
+ $option .= "\n<br>" if ($option);
+ $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{transdatefrom}, 1);
+ }
+ if ($form->{transdateto}) {
+ $callback .= "&transdateto=$form->{transdateto}";
+ $href .= "&transdateto=$form->{transdateto}";
+ if ($form->{transdatefrom}) {
+ $option .= " ";
+ } else {
+ $option .= "\n<br>" if ($option);
+ }
+ $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{transdateto}, 1);
+ }
+ if ($form->{open}) {
+ $callback .= "&open=$form->{open}";
+ $href .= "&open=$form->{open}";
+ $option .= "\n<br>" if ($option);
+ $option .= $locale->text('Open');
+ }
+ if ($form->{closed}) {
+ $callback .= "&closed=$form->{closed}";
+ $href .= "&closed=$form->{closed}";
+ $option .= "\n<br>" if ($option);
+ $option .= $locale->text('Closed');
+ }
+
$form->{callback} = "$callback&sort=$form->{sort}";
$callback = $form->escape($form->{callback});
+ $column_header{id} = qq|<th class=listheading>|.$locale->text('ID').qq|</th>|;
$column_header{"$form->{db}number"} = qq|<th><a class=listheading href=$href&sort=$form->{db}number>|.$locale->text('Number').qq|</a></th>|;
$column_header{name} = qq|<th><a class=listheading href=$href&sort=name>|.$locale->text('Name').qq|</a></th>|;
- $column_header{address} = qq|<th><a class=listheading href=$href&sort=address>|.$locale->text('Address').qq|</a></th>|;
+ $column_header{address} = qq|<th class=listheading>|.$locale->text('Address').qq|</th>|;
+ $column_header{city} = qq|<th><a class=listheading href=$href&sort=city>|.$locale->text('City').qq|</a></th>|;
+ $column_header{state} = qq|<th><a class=listheading href=$href&sort=state>|.$locale->text('State/Province').qq|</a></th>|;
+ $column_header{zipcode} = qq|<th><a class=listheading href=$href&sort=zipcode>|.$locale->text('Zip/Postal Code').qq|</a></th>|;
+ $column_header{country} = qq|<th><a class=listheading href=$href&sort=country>|.$locale->text('Country').qq|</a></th>|;
$column_header{contact} = qq|<th><a class=listheading href=$href&sort=contact>|.$locale->text('Contact').qq|</a></th>|;
$column_header{phone} = qq|<th><a class=listheading href=$href&sort=phone>|.$locale->text('Phone').qq|</a></th>|;
$column_header{fax} = qq|<th><a class=listheading href=$href&sort=fax>|.$locale->text('Fax').qq|</a></th>|;
$column_header{email} = qq|<th><a class=listheading href=$href&sort=email>|.$locale->text('E-mail').qq|</a></th>|;
$column_header{cc} = qq|<th><a class=listheading href=$href&sort=cc>|.$locale->text('Cc').qq|</a></th>|;
+ $column_header{bcc} = qq|<th><a class=listheading href=$href&sort=cc>|.$locale->text('Bcc').qq|</a></th>|;
+ $column_header{notes} = qq|<th><a class=listheading href=$href&sort=notes>|.$locale->text('Notes').qq|</a></th>|;
+ $column_header{discount} = qq|<th class=listheading>%</th>|;
- $label = ucfirst $form->{db}."s";
- $form->{title} = $locale->text($label);
+ $column_header{taxnumber} = qq|<th><a class=listheading href=$href&sort=taxnumber>|.$locale->text('Tax Number').qq|</a></th>|;
+ $column_header{gifi_accno} = qq|<th><a class=listheading href=$href&sort=gifi_accno>|.$locale->text('GIFI').qq|</a></th>|;
+ $column_header{sic_code} = qq|<th><a class=listheading href=$href&sort=sic_code>|.$locale->text('SIC').qq|</a></th>|;
+ $column_header{business} = qq|<th><a class=listheading href=$href&sort=business>|.$locale->text('Type of Business').qq|</a></th>|;
+ $column_header{iban} = qq|<th class=listheading>|.$locale->text('IBAN').qq|</th>|;
+ $column_header{bic} = qq|<th class=listheading>|.$locale->text('BIC').qq|</th>|;
+ $column_header{startdate} = qq|<th><a class=listheading href=$href&sort=startdate>|.$locale->text('Startdate').qq|</a></th>|;
+ $column_header{enddate} = qq|<th><a class=listheading href=$href&sort=enddate>|.$locale->text('Enddate').qq|</a></th>|;
+
+ $column_header{invnumber} = qq|<th><a class=listheading href=$href&sort=invnumber>|.$locale->text('Invoice').qq|</a></th>|;
+ $column_header{ordnumber} = qq|<th><a class=listheading href=$href&sort=ordnumber>|.$locale->text('Order').qq|</a></th>|;
+ $column_header{quonumber} = qq|<th><a class=listheading href=$href&sort=quonumber>|.$locale->text('Quotation').qq|</a></th>|;
+
+ if ($form->{db} eq 'customer') {
+ $column_header{employee} = qq|<th><a class=listheading href=$href&sort=employee>|.$locale->text('Salesperson').qq|</a></th>|;
+ } else {
+ $column_header{employee} = qq|<th><a class=listheading href=$href&sort=employee>|.$locale->text('Employee').qq|</a></th>|;
+ }
+ $column_header{manager} = qq|<th><a class=listheading href=$href&sort=manager>|.$locale->text('Manager').qq|</a></th>|;
+
+ $column_header{pricegroup} = qq|<th><a class=listheading href=$href&sort=pricegroup>|.$locale->text('Pricegroup').qq|</a></th>|;
+ $column_header{language} = qq|<th><a class=listheading href=$href&sort=language>|.$locale->text('Language').qq|</a></th>|;
+
+
+ $amount = $locale->text('Amount');
+ $tax = $locale->text('Tax');
+ $total = $locale->text('Total');
+
+ $column_header{invamount} = qq|<th class=listheading>$amount</th>|;
+ $column_header{ordamount} = qq|<th class=listheading>$amount</th>|;
+ $column_header{quoamount} = qq|<th class=listheading>$amount</th>|;
+
+ $column_header{invtax} = qq|<th class=listheading>$tax</th>|;
+ $column_header{ordtax} = qq|<th class=listheading>$tax</th>|;
+ $column_header{quotax} = qq|<th class=listheading>$tax</th>|;
+
+ $column_header{invtotal} = qq|<th class=listheading>$total</th>|;
+ $column_header{ordtotal} = qq|<th class=listheading>$total</th>|;
+ $column_header{quototal} = qq|<th class=listheading>$total</th>|;
+
+
+ if ($form->{status}) {
+ $label = ucfirst $form->{db}."s";
+ $form->{title} = $locale->text($label);
+ } else {
+ $label = ucfirst $form->{db};
+ $form->{title} = $locale->text($label ." Transactions");
+ }
$form->header;
|;
map { print "$column_header{$_}\n" } @column_index;
-
+
print qq|
</tr>
|;
+ $ordertype = ($form->{db} eq 'customer') ? 'sales_order' : 'purchase_order';
+ $quotationtype = ($form->{db} eq 'customer') ? 'sales_quotation' : 'request_quotation';
+ $subtotal = 0;
+
foreach $ref (@{ $form->{CT} }) {
- map { $column_data{$_} = "<td>$ref->{$_} </td>" } ("$form->{db}number", address, contact, phone, fax);
-
- $column_data{name} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}&callback=$callback>$ref->{name} </td>";
+ if ("$ref->{$form->{sort}}$ref->{id}" ne $sameitem && $form->{l_subtotal}) {
+ # print subtotal
+ if ($subtotal) {
+ map { $column_data{$_} = "<td> </td>" } @column_index;
+ &list_subtotal;
+ }
+ }
+
+ if ("$ref->{$form->{sort}}$ref->{id}" eq $sameitem && $form->{sort} eq 'name') {
+ map { $column_data{$_} = "<td> </td>" } @column_index;
+ } else {
+
+ map { $column_data{$_} = "<td>$ref->{$_} </td>" } @column_index;
+ $column_data{$form->{sort}} = "<td> </td>" if $ref->{$form->{sort}} eq $sameitem && $form->{l_subtotal};
+
+ $column_data{address} = "<td>$ref->{address1} $ref->{address2} </td>";
+ $column_data{name} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&callback=$callback>$ref->{name} </td>";
+
+ $email = "";
+ if ($form->{sort} =~ /(email|cc)/) {
+ if ("$ref->{$form->{sort}}$ref->{id}" ne $sameitem) {
+ $email = 1;
+ }
+ } else {
+ $email = 1;
+ }
+
+ if ($email) {
+ foreach $item (qw(email cc bcc)) {
+ if ($ref->{$item}) {
+ $email = $ref->{$item};
+ $email =~ s/</\</;
+ $email =~ s/>/\>/;
+
+ $column_data{$item} = qq|<td><a href="mailto:$ref->{$item}">$email</a></td>|;
+ }
+ }
+ }
+ }
- $column_data{email} = ($ref->{email}) ? qq|<td><a href="mailto:$ref->{email}">$ref->{email}</a></td>| : "<td> </td>";
- $column_data{cc} = ($ref->{cc}) ? qq|<td><a href="mailto:$ref->{cc}">$ref->{cc}</a></td>| : "<td> </td>";
+ if ($ref->{formtype} eq 'invoice') {
+ $column_data{invnumber} = "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{invnumber} </td>";
+
+ $column_data{invamount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{netamount}, 2, " ")."</td>";
+ $column_data{invtax} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} - $ref->{netamount}, 2, " ")."</td>";
+ $column_data{invtotal} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, " ")."</td>";
+
+ $invamountsubtotal += $ref->{netamount};
+ $invtaxsubtotal += ($ref->{amount} - $ref->{netamount});
+ $invtotalsubtotal += $ref->{amount};
+ }
+
+ if ($ref->{formtype} eq 'order') {
+ $column_data{ordnumber} = "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{ordnumber} </td>";
+
+ $column_data{ordamount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{netamount}, 2, " ")."</td>";
+ $column_data{ordtax} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} - $ref->{netamount}, 2, " ")."</td>";
+ $column_data{ordtotal} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, " ")."</td>";
+
+ $ordamountsubtotal += $ref->{netamount};
+ $ordtaxsubtotal += ($ref->{amount} - $ref->{netamount});
+ $ordtotalsubtotal += $ref->{amount};
+ }
+
+ if ($ref->{formtype} eq 'quotation') {
+ $column_data{quonumber} = "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{quonumber} </td>";
+
+ $column_data{quoamount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{netamount}, 2, " ")."</td>";
+ $column_data{quotax} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} - $ref->{netamount}, 2, " ")."</td>";
+ $column_data{quototal} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, " ")."</td>";
+
+ $quoamountsubtotal += $ref->{netamount};
+ $quotaxsubtotal += ($ref->{amount} - $ref->{netamount});
+ $quototalsubtotal += $ref->{amount};
+ }
+ if ($form->{l_discount}) {
+ $column_data{discount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{discount} * 100, "", " ")."</td>";
+ }
+
$i++; $i %= 2;
print "
<tr class=listrow$i>
</tr>
|;
+ $sameitem = "$ref->{$form->{sort}}$ref->{id}";
+ $subtotal = 1;
+
}
+ if ($form->{l_subtotal}) {
+ map { $column_data{$_} = "<td> </td>" } @column_index;
+ &list_subtotal;
+ }
+
+ $i = 1;
+ if ($myconfig{acs} !~ /AR--AR/) {
+ if ($form->{db} eq 'customer') {
+ $button{'AR--Customers-Add Customer'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Customer').qq|"> |;
+ $button{'AR--Customers--Add Customer'}{order} = $i++;
+ }
+ }
+ if ($myconfig{acs} !~ /AP--AP/) {
+ if ($form->{db} eq 'vendor') {
+ $button{'AP--Vendors--Add Vendor'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Vendor').qq|"> |;
+ $button{'AP--Vendors--Add Vendor'}{order} = $i++;
+ }
+ }
+
+ foreach $item (split /;/, $myconfig{acs}) {
+ delete $button{$item};
+ }
+
print qq|
</table>
</td>
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
+<input type=hidden name=sessionid value=$form->{sessionid}>
+|;
+
+ if ($form->{status}) {
+ foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
+ print $item->{code};
+ }
+ }
-<input class=submit type=submit name=action value="|.$locale->text('Add').qq|">
+ if ($form->{menubar}) {
+ require "$form->{path}/menu.pl";
+ &menubar;
+ }
-</form>
+ print qq|
+ </form>
</body>
</html>
}
-sub edit {
-
-# $locale->text('Edit Customer')
-# $locale->text('Edit Vendor')
+sub list_subtotal {
- CT->get_tuple(\%myconfig, \%$form);
+ $column_data{invamount} = "<td align=right>".$form->format_amount(\%myconfig, $invamountsubtotal, 2, " ")."</td>";
+ $column_data{invtax} = "<td align=right>".$form->format_amount(\%myconfig, $invtaxsubtotal, 2, " ")."</td>";
+ $column_data{invtotal} = "<td align=right>".$form->format_amount(\%myconfig, $invtotalsubtotal, 2, " ")."</td>";
- # format " into "
- map { $form->{$_} =~ s/"/"/g } keys %$form;
+ $invamountsubtotal = 0;
+ $invtaxsubtotal = 0;
+ $invtotalsubtotal = 0;
- $form->{title} = "Edit";
+ $column_data{ordamount} = "<td align=right>".$form->format_amount(\%myconfig, $ordamountsubtotal, 2, " ")."</td>";
+ $column_data{ordtax} = "<td align=right>".$form->format_amount(\%myconfig, $ordtaxsubtotal, 2, " ")."</td>";
+ $column_data{ordtotal} = "<td align=right>".$form->format_amount(\%myconfig, $ordtotalsubtotal, 2, " ")."</td>";
- # format discount
- $form->{discount} *= 100;
-
- &form_header;
- &form_footer;
+ $ordamountsubtotal = 0;
+ $ordtaxsubtotal = 0;
+ $ordtotalsubtotal = 0;
-}
+ $column_data{quoamount} = "<td align=right>".$form->format_amount(\%myconfig, $quoamountsubtotal, 2, " ")."</td>";
+ $column_data{quotax} = "<td align=right>".$form->format_amount(\%myconfig, $quotaxsubtotal, 2, " ")."</td>";
+ $column_data{quototal} = "<td align=right>".$form->format_amount(\%myconfig, $quototalsubtotal, 2, " ")."</td>";
+ $quoamountsubtotal = 0;
+ $quotaxsubtotal = 0;
+ $quototalsubtotal = 0;
+
+ print "
+ <tr class=listsubtotal>
+";
+ map { print "$column_data{$_}\n" } @column_index;
-sub form_header {
+ print qq|
+ </tr>
+|;
+
- foreach $item (split / /, $form->{taxaccounts}) {
- if (($form->{tax}{$item}{taxable}) || !($form->{id})) {
- $taxable .= qq| <input name="tax_$item" value=1 class=checkbox type=checkbox checked> <b>$form->{tax}{$item}{description}</b>|;
- } else {
- $taxable .= qq| <input name="tax_$item" value=1 class=checkbox type=checkbox> <b>$form->{tax}{$item}{description}</b>|;
- }
- }
+}
- $tax = qq|
- <tr>
- <td>
- <table>
- <tr>
- <th align=right>|.$locale->text('Taxable').qq|</th>
- <td>$taxable</td>
- </tr>
- </table>
- </td>
- </tr>
-|;
- $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
- $form->{creditlimit} = $form->format_amount(\%myconfig, $form->{creditlimit}, 0);
+sub list_history {
- if ($myconfig{admin}) {
- $bcc = qq|
- <tr>
- <th align=right nowrap>|.$locale->text('Bcc').qq|</th>
- <td><input name=bcc size=35 value="$form->{bcc}"></td>
- </tr>
-|;
- }
+ CT->get_history(\%myconfig, \%$form);
+
+ $href = "$form->{script}?action=list_history&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$form->{type}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&history=$form->{history}";
+
+ $form->sort_order();
+ $callback = "$form->{script}?action=list_history&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$form->{type}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&history=$form->{history}";
- $label = ucfirst $form->{db};
- $form->{title} = $locale->text("$form->{title} $label");
+ $form->{l_fxsellprice} = $form->{l_curr};
+ @columns = $form->sort_columns(partnumber, description, qty, unit, sellprice, fxsellprice, curr, discount, deliverydate, projectnumber, serialnumber);
- if ($form->{db} eq 'customer') {
- $creditlimit = qq|
- <th align=right>|.$locale->text('Credit Limit').qq|</th>
- <td><input name=creditlimit size=9 value="$form->{creditlimit}"></td>
- <th align=right>|.$locale->text('Discount').qq|</th>
- <td><input name=discount size=4 value="$form->{discount}"></td>
- <th>%</th>
-|;
+ if ($form->{history} eq 'summary') {
+ @columns = $form->sort_columns(partnumber, description, qty, unit, sellprice, curr);
}
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
+ foreach $item (@columns) {
+ if ($form->{"l_$item"} eq "Y") {
+ push @column_index, $item;
-<table width=100%>
- <tr>
- <th class=listtop>$form->{title}</th>
- </tr>
- <tr>
- <td>
- <table width=100%>
+ # add column to href and callback
+ $callback .= "&l_$item=Y";
+ $href .= "&l_$item=Y";
+ }
+ }
+
+ if ($form->{history} eq 'detail') {
+ $option = $locale->text('Detail');
+ }
+ if ($form->{history} eq 'summary') {
+ $option .= $locale->text('Summary');
+ }
+ if ($form->{name}) {
+ $callback .= "&name=".$form->escape($form->{name},1);
+ $href .= "&name=".$form->escape($form->{name});
+ $option .= "\n<br>".$locale->text('Name')." : $form->{name}";
+ }
+ if ($form->{contact}) {
+ $callback .= "&contact=".$form->escape($form->{contact},1);
+ $href .= "&contact=".$form->escape($form->{contact});
+ $option .= "\n<br>".$locale->text('Contact')." : $form->{contact}";
+ }
+ if ($form->{"$form->{db}number"}) {
+ $callback .= qq|&$form->{db}number=|.$form->escape($form->{"$form->{db}number"},1);
+ $href .= "&$form->{db}number=".$form->escape($form->{"$form->{db}number"});
+ $option .= "\n<br>".$locale->text('Number').qq| : $form->{"$form->{db}number"}|;
+ }
+ if ($form->{email}) {
+ $callback .= "&email=".$form->escape($form->{email},1);
+ $href .= "&email=".$form->escape($form->{email});
+ $option .= "\n<br>".$locale->text('E-mail')." : $form->{email}";
+ }
+ if ($form->{transdatefrom}) {
+ $callback .= "&transdatefrom=$form->{transdatefrom}";
+ $href .= "&transdatefrom=$form->{transdatefrom}";
+ $option .= "\n<br>" if ($option);
+ $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{transdatefrom}, 1);
+ }
+ if ($form->{transdateto}) {
+ $callback .= "&transdateto=$form->{transdateto}";
+ $href .= "&transdateto=$form->{transdateto}";
+ if ($form->{transdatefrom}) {
+ $option .= " ";
+ } else {
+ $option .= "\n<br>" if ($option);
+ }
+ $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{transdateto}, 1);
+ }
+ if ($form->{open}) {
+ $callback .= "&open=$form->{open}";
+ $href .= "&open=$form->{open}";
+ $option .= "\n<br>" if ($option);
+ $option .= $locale->text('Open');
+ }
+ if ($form->{closed}) {
+ $callback .= "&closed=$form->{closed}";
+ $href .= "&closed=$form->{closed}";
+ $option .= "\n<br>" if ($option);
+ $option .= $locale->text('Closed');
+ }
+
+
+ $form->{callback} = "$callback&sort=$form->{sort}";
+ $callback = $form->escape($form->{callback});
+
+ $column_header{partnumber} = qq|<th><a class=listheading href=$href&sort=partnumber>|.$locale->text('Part Number').qq|</a></th>|;
+ $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|;
+
+ if ($form->{history} eq 'summary') {
+ $column_header{sellprice} = qq|<th class=listheading>|.$locale->text('Total').qq|</th>|;
+ } else {
+ $column_header{sellprice} = qq|<th class=listheading>|.$locale->text('Sell Price').qq|</th>|;
+ }
+ $column_header{fxsellprice} = qq|<th> </th>|;
+
+ $column_header{curr} = qq|<th class=listheading>|.$locale->text('Curr').qq|</th>|;
+ $column_header{discount} = qq|<th class=listheading>|.$locale->text('Discount').qq|</th>|;
+ $column_header{qty} = qq|<th class=listheading>|.$locale->text('Qty').qq|</th>|;
+ $column_header{unit} = qq|<th class=listheading>|.$locale->text('Unit').qq|</th>|;
+ $column_header{deliverydate} = qq|<th><a class=listheading href=$href&sort=deliverydate>|.$locale->text('Delivery Date').qq|</a></th>|;
+ $column_header{projectnumber} = qq|<th><a class=listheading href=$href&sort=projectnumber>|.$locale->text('Project Number').qq|</a></th>|;
+ $column_header{serialnumber} = qq|<th><a class=listheading href=$href&sort=serialnumber>|.$locale->text('Serial Number').qq|</a></th>|;
+
+
+# $locale->text('Customer History')
+# $locale->text('Vendor History')
+
+ $label = ucfirst $form->{db};
+ $form->{title} = $locale->text($label." History");
+
+ $colspan = $#column_index + 1;
+
+ $form->header;
+
+ print qq|
+<body>
+
+<table width=100%>
+ <tr>
+ <th class=listtop>$form->{title}</th>
+ </tr>
+ <tr height="5"></tr>
+ <tr>
+ <td>$option</td>
+ </tr>
+ <tr>
+ <td>
+ <table width=100%>
<tr class=listheading>
- <th class=listheading colspan=2 width=50%"> </th>
- <th class=listheading width=50%">|.$locale->text('Ship to').qq|</th>
- </tr>
- <tr height="5"></tr>
- <tr>
- <th align=right nowrap>|.$locale->text('Number').qq|</th>
- <td><input name="$form->{db}number" size=35 maxsize=35 value="$form->{"$form->{db}number"}"></td>
- </tr>
- <tr>
- <th align=right nowrap>|.$locale->text('Name').qq|</th>
- <td><input name=name size=35 maxsize=35 value="$form->{name}"></td>
- <td><input name=shiptoname size=35 maxsize=35 value="$form->{shiptoname}"></td>
+|;
+
+ map { print "$column_header{$_}\n" } @column_index;
+
+ print qq|
+ </tr>
+|;
+
+
+ $module = 'oe';
+ if ($form->{db} eq 'customer') {
+ $invlabel = $locale->text('Sales Invoice');
+ $ordlabel = $locale->text('Sales Order');
+ $quolabel = $locale->text('Quotation');
+
+ $ordertype = 'sales_order';
+ $quotationtype = 'sales_quotation';
+ if ($form->{type} eq 'invoice') {
+ $module = 'is';
+ }
+ } else {
+ $invlabel = $locale->text('Vendor Invoice');
+ $ordlabel = $locale->text('Purchase Order');
+ $quolabel = $locale->text('RFQ');
+
+ $ordertype = 'purchase_order';
+ $quotationtype = 'request_quotation';
+ if ($form->{type} eq 'invoice') {
+ $module = 'ir';
+ }
+ }
+
+
+ foreach $ref (@{ $form->{CT} }) {
+
+ if ($ref->{id} ne $sameid) {
+ # print the header
+ print qq|
+ <tr class=listheading>
+ <th colspan=$colspan><a class=listheading href=$form->{script}?action=edit&id=$ref->{ctid}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{name} $ref->{address}</a></th>
</tr>
- <tr>
- <th align=right nowrap>|.$locale->text('Address').qq|</th>
- <td><input name=addr1 size=35 maxsize=35 value="$form->{addr1}"></td>
- <td><input name=shiptoaddr1 size=35 maxsize=35 value="$form->{shiptoaddr1}"></td>
+|;
+ }
+
+ if ($form->{type} ne 'invoice') {
+ $ref->{fxsellprice} = $ref->{sellprice};
+ $ref->{sellprice} *= $ref->{exchangerate};
+ }
+
+ if ($form->{history} eq 'detail' and $ref->{invid} ne $sameinvid) {
+ # print inv, ord, quo number
+ $i++; $i %= 2;
+
+ print qq|
+ <tr class=listrow$i>
+|;
+
+ if ($form->{type} eq 'invoice') {
+ print qq|<th align=left colspan=$colspan><a href=${module}.pl?action=edit&id=$ref->{invid}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$invlabel $ref->{invnumber} / $ref->{employee}</a></th>|;
+ }
+
+ if ($form->{type} eq 'order') {
+ print qq|<th align=left colspan=$colspan><a href=${module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ordlabel $ref->{ordnumber} / $ref->{employee}</a></th>|;
+ }
+
+ if ($form->{type} eq 'quotation') {
+ print qq|<th align=left colspan=$colspan><a href=${module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$quolabel $ref->{quonumber} / $ref->{employee}</a></th>|;
+ }
+
+ print qq|
+ </tr>
+|;
+ }
+
+ map { $column_data{$_} = "<td>$ref->{$_} </td>" } @column_index;
+
+ if ($form->{l_curr}) {
+ $column_data{fxsellprice} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{fxsellprice}, 2)."</td>";
+ }
+ $column_data{sellprice} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{sellprice}, 2)."</td>";
+
+ $column_data{qty} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{qty})."</td>";
+ $column_data{discount} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{discount} * 100, "", " ")."</td>";
+ $column_data{partnumber} = qq|<td><a href=ic.pl?action=edit&id=$ref->{pid}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partnumber}</td>|;
+
+
+ $i++; $i %= 2;
+ print qq|
+ <tr class=listrow$i>
+|;
+
+ map { print "$column_data{$_}\n" } @column_index;
+
+ print qq|
+ </tr>
+|;
+
+ $sameid = $ref->{id};
+ $sameinvid = $ref->{invid};
+
+ }
+
+
+ print qq|
+ </table>
+ </td>
+ </tr>
+ <tr>
+ <td><hr size=3 noshade></td>
+ </tr>
+</table>
+
+|;
+
+ if ($form->{menubar}) {
+ require "$form->{path}/menu.pl";
+ &menubar;
+ }
+
+ print qq|
+ </form>
+
+</body>
+</html>
+|;
+
+}
+
+
+
+sub edit {
+
+# $locale->text('Edit Customer')
+# $locale->text('Edit Vendor')
+
+ CT->create_links(\%myconfig, \%$form);
+
+ map { $form->{$_} = $form->quote($form->{$_}) } keys %$form;
+
+ $form->{title} = "Edit";
+
+ # format discount
+ $form->{discount} *= 100;
+
+ &form_header;
+ &form_footer;
+
+}
+
+
+sub form_header {
+
+ $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
+ $form->{creditlimit} = $form->format_amount(\%myconfig, $form->{creditlimit}, 0);
+
+ if ($myconfig{role} =~ /(admin|manager)/) {
+ $bcc = qq|
+ <tr>
+ <th align=right nowrap>|.$locale->text('Bcc').qq|</th>
+ <td><input name=bcc size=35 value="$form->{bcc}"></td>
</tr>
+|;
+ }
+
+ # currencies
+ map { $form->{selectcurrency} .= "<option>$_\n" } split /:/, $form->{currencies};
+ $form->{selectcurrency} =~ s/option>($form->{curr})/option selected>$1/;
+
+ foreach $item (split / /, $form->{taxaccounts}) {
+ if ($form->{tax}{$item}{taxable}) {
+ $taxable .= qq| <input name="tax_$item" value=1 class=checkbox type=checkbox checked> <b>$form->{tax}{$item}{description}</b>|;
+ } else {
+ $taxable .= qq| <input name="tax_$item" value=1 class=checkbox type=checkbox> <b>$form->{tax}{$item}{description}</b>|;
+ }
+ }
+
+ if ($taxable) {
+ $tax = qq|
<tr>
- <th></th>
- <td><input name=addr2 size=35 maxsize=35 value="$form->{addr2}"></td>
- <td><input name=shiptoaddr2 size=35 maxsize=35 value="$form->{shiptoaddr2}"></td>
+ <th align=right>|.$locale->text('Taxable').qq|</th>
+ <td colspan=5>
+ <table>
+ <tr>
+ <td>$taxable</td>
+ <td><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
+ <th align=left>|.$locale->text('Tax Included').qq|</th>
+ </tr>
+ </table>
+ </td>
</tr>
- <tr>
- <th></th>
- <td><input name=addr3 size=35 maxsize=35 value="$form->{addr3}"></td>
- <td><input name=shiptoaddr3 size=35 maxsize=35 value="$form->{shiptoaddr3}"></td>
+|;
+ }
+
+ $typeofbusiness = qq|
+ <th></th>
+ <td></td>
+|;
+
+ if (@{ $form->{all_business} }) {
+ $form->{selectbusiness} = qq|<option>\n|;
+ map { $form->{selectbusiness} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } @{ $form->{all_business} };
+
+ $form->{selectbusiness} =~ s/(<option value="\Q$form->{business}--$form->{business_id}\E")>/$1 selected>/;
+
+ $typeofbusiness = qq|
+ <th align=right>|.$locale->text('Type of Business').qq|</th>
+ <td><select name=business>$form->{selectbusiness}</select></td>
+|;
+
+
+ }
+
+ $pricegroup = qq|
+ <th></th>
+ <td></td>
+|;
+
+ if (@{ $form->{all_pricegroup} } && $form->{db} eq 'customer') {
+ $form->{selectpricegroup} = qq|<option>\n|;
+ map { $form->{selectpricegroup} .= qq|<option value="$_->{pricegroup}--$_->{id}">$_->{pricegroup}\n| } @{ $form->{all_pricegroup} };
+
+ $form->{selectpricegroup} =~ s/(<option value="\Q$form->{pricegroup}--$form->{pricegroup_id}\E")/$1 selected/;
+
+ $pricegroup = qq|
+ <th align=right>|.$locale->text('Pricegroup').qq|</th>
+ <td><select name=pricegroup>$form->{selectpricegroup}</select></td>
+|;
+ }
+
+ $lang = qq|
+ <th></th>
+ <td></td>
+|;
+
+ if (@{ $form->{all_language} }) {
+ $form->{selectlanguage} = qq|<option>\n|;
+ map { $form->{selectlanguage} .= qq|<option value="$_->{description}--$_->{code}">$_->{description}\n| } @{ $form->{all_language} };
+
+ $form->{selectlanguage} =~ s/(<option value="\Q$form->{language}--$form->{language_code}\E")/$1 selected/;
+
+ $lang = qq|
+ <th align=right>|.$locale->text('Language').qq|</th>
+ <td><select name=language>$form->{selectlanguage}</select></td>
+|;
+ }
+
+
+ $employeelabel = $locale->text('Salesperson');
+
+ $form->{selectemployee} = qq|<option>\n|;
+ map { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_employee} };
+
+ $form->{selectemployee} =~ s/(<option value="\Q$form->{employee}--$form->{employee_id}\E")/$1 selected/;
+
+ if ($form->{db} eq 'vendor') {
+ $gifi = qq|
+ <th align=right>|.$locale->text('Sub-contract GIFI').qq|</th>
+ <td><input name=gifi_accno size=9 value="$form->{gifi_accno}"></td>
+|;
+ $employeelabel = $locale->text('Employee');
+ }
+
+
+ if (@{ $form->{all_employee} }) {
+ $employee = qq|
+ <th align=right>$employeelabel</th>|;
+
+ if ($myconfig{role} ne 'user' || !$form->{id}) {
+ $employee .= qq|
+ <td><select name=employee>$form->{selectemployee}</select></td>
+|;
+ } else {
+ $employee .= qq|
+ <td>$form->{employee}</td>
+ <input type=hidden name=employee value="$form->{employee}--$form->{employee_id}">|;
+ }
+ }
+
+
+# $locale->text('Customer Number')
+# $locale->text('Vendor Number')
+
+ $label = ucfirst $form->{db};
+ $form->{title} = $locale->text("$form->{title} $label");
+
+ $form->header;
+
+ print qq|
+<body>
+
+<form method=post action=$form->{script}>
+
+<table width=100%>
+ <tr>
+ <th class=listtop>$form->{title}</th>
+ </tr>
+ <tr height="5"></tr>
+ <tr>
+ <td>
+ <table width=100%>
+ <tr valign=top>
+ <td width=50%>
+ <table width=100%>
+ <tr class=listheading>
+ <th class=listheading colspan=2 width=50%>|.$locale->text('Billing Address').qq|</th>
+ <tr>
+ <th align=right nowrap>|.$locale->text($label .' Number').qq|</th>
+ <td><input name="$form->{db}number" size=35 maxlength=32 value="$form->{"$form->{db}number"}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('Company Name').qq|</th>
+ <td><input name=name size=35 maxlength=64 value="$form->{name}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('Address').qq|</th>
+ <td><input name=address1 size=35 maxlength=32 value="$form->{address1}"></td>
+ </tr>
+ <tr>
+ <th></th>
+ <td><input name=address2 size=35 maxlength=32 value="$form->{address2}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('City').qq|</th>
+ <td><input name=city size=35 maxlength=32 value="$form->{city}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('State/Province').qq|</th>
+ <td><input name=state size=35 maxlength=32 value="$form->{state}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th>
+ <td><input name=zipcode size=10 maxlength=10 value="$form->{zipcode}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('Country').qq|</th>
+ <td><input name=country size=35 maxlength=32 value="$form->{country}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('Contact').qq|</th>
+ <td><input name=contact size=35 maxlength=64 value="$form->{contact}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('Phone').qq|</th>
+ <td><input name=phone size=20 maxlength=20 value="$form->{phone}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('Fax').qq|</th>
+ <td><input name=fax size=20 maxlength=20 value="$form->{fax}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('E-mail').qq|</th>
+ <td><input name=email size=35 value="$form->{email}"></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|.$locale->text('Cc').qq|</th>
+ <td><input name=cc size=35 value="$form->{cc}"></td>
+ </tr>
+ $bcc
+ </table>
+ </td>
+ <td width=50%>
+ <table width=100%>
+ <tr>
+ <th class=listheading colspan=2>|.$locale->text('Shipping Address').qq|</th>
+ </tr>
+ <tr>
+ <td><input name=none size=35 value=|. ("=" x 35) .qq|></td>
+ </tr>
+ <tr>
+ <td><input name=shiptoname size=35 maxlength=64 value="$form->{shiptoname}"></td>
+ </tr>
+ <tr>
+ <td><input name=shiptoaddress1 size=35 maxlength=32 value="$form->{shiptoaddress1}"></td>
+ </tr>
+ <tr>
+ <td><input name=shiptoaddress2 size=35 maxlength=32 value="$form->{shiptoaddress2}"></td>
+ </tr>
+ <tr>
+ <td><input name=shiptocity size=35 maxlength=32 value="$form->{shiptocity}"></td>
+ </tr>
+ <tr>
+ <td><input name=shiptostate size=35 maxlength=32 value="$form->{shiptostate}"></td>
+ </tr>
+ <tr>
+ <td><input name=shiptozipcode size=10 maxlength=10 value="$form->{shiptozipcode}"></td>
+ </tr>
+ <tr>
+ <td><input name=shiptocountry size=35 maxlength=32 value="$form->{shiptocountry}"></td>
+ </tr>
+ <tr>
+ <td><input name=shiptocontact size=35 maxlength=64 value="$form->{shiptocontact}"></td>
+ </tr>
+ <tr>
+ <td><input name=shiptophone size=20 maxlength=20 value="$form->{shiptophone}"></td>
+ </tr>
+ <tr>
+ <td><input name=shiptofax size=20 maxlength=20 value="$form->{shiptofax}"></td>
+ </tr>
+ <tr>
+ <td><input name=shiptoemail size=35 value="$form->{shiptoemail}"></td>
+ </tr>
+ </table>
+ </td>
</tr>
+ </table>
+ </td>
+ </tr>
+ <tr>
+ <td>
+ <table>
+ $tax
<tr>
- <th></th>
- <td><input name=addr4 size=35 maxsize=35 value="$form->{addr4}"></td>
- <td><input name=shiptoaddr4 size=35 maxsize=35 value="$form->{shiptoaddr4}"></td>
+ <th align=right>|.$locale->text('Startdate').qq|</th>
+ <td><input name=startdate size=11 title="$myconfig{dateformat}" value=$form->{startdate}></td>
+ <th align=right>|.$locale->text('Enddate').qq|</th>
+ <td><input name=enddate size=11 title="$myconfig{dateformat}" value=$form->{enddate}></td>
</tr>
<tr>
- <th align=right nowrap>|.$locale->text('Contact').qq|</th>
- <td><input name=contact size=35 maxsize=35 value="$form->{contact}"></td>
- <td><input name=shiptocontact size=35 maxsize=35 value="$form->{shiptocontact}"></td>
+ <th align=right>|.$locale->text('Credit Limit').qq|</th>
+ <td><input name=creditlimit size=9 value="$form->{creditlimit}"></td>
+ <th align=right>|.$locale->text('Terms').qq|</th>
+ <td><input name=terms size=2 value="$form->{terms}"> <b>|.$locale->text('days').qq|</b></td>
+ <th align=right>|.$locale->text('Discount').qq|</th>
+ <td><input name=discount size=4 value="$form->{discount}">
+ <b>%</b></td>
</tr>
<tr>
- <th align=right nowrap>|.$locale->text('Phone').qq|</th>
- <td><input name=phone size=20 maxsize=20 value="$form->{phone}"></td>
- <td><input name=shiptophone size=20 maxsize=20 value="$form->{shiptophone}"></td>
+ <th align=right>|.$locale->text('Tax Number / SSN').qq|</th>
+ <td><input name=taxnumber size=20 value="$form->{taxnumber}"></td>
+ $gifi
+ <th align=right>|.$locale->text('SIC').qq|</th>
+ <td><input name=sic size=6 maxlength=6 value="$form->{sic}"></td>
</tr>
<tr>
- <th align=right nowrap>|.$locale->text('Fax').qq|</th>
- <td><input name=fax size=20 maxsize=20 value="$form->{fax}"></td>
- <td><input name=shiptofax size=20 maxsize=20 value="$form->{shiptofax}"></td>
+ $typeofbusiness
+ <th align=right>|.$locale->text('BIC').qq|</th>
+ <td><input name=bic size=11 maxlength=11 value="$form->{bic}"></td>
+ <th align=right>|.$locale->text('IBAN').qq|</th>
+ <td><input name=iban size=24 maxlength=34 value="$form->{iban}"></td>
</tr>
<tr>
- <th align=right nowrap>|.$locale->text('E-mail').qq|</th>
- <td><input name=email size=35 value="$form->{email}"></td>
- <td><input name=shiptoemail size=35 value="$form->{shiptoemail}"></td>
+ $pricegroup
+ $lang
+ <th>|.$locale->text('Currency').qq|</th>
+ <td><select name=curr>$form->{selectcurrency}</select></td>
</tr>
- <tr>
- <th align=right nowrap>|.$locale->text('Cc').qq|</th>
- <td><input name=cc size=35 value="$form->{cc}"></td>
+ <tr valign=top>
+ $employee
+ <td colspan=4>
+ <table>
+ <tr valign=top>
+ <th align=left nowrap>|.$locale->text('Notes').qq|</th>
+ <td><textarea name=notes rows=3 cols=40 wrap=soft>$form->{notes}</textarea></td>
+ </tr>
+ </table>
+ </td>
</tr>
- $bcc
</table>
</td>
</tr>
<tr>
+ <td><hr size=3 noshade></td>
+ </tr>
+</table>
+|;
+
+}
+
+
+
+sub form_footer {
+
+ $i = 1;
+ if ($form->{db} eq 'customer') {
+ if ($myconfig{acs} !~ /AR--AR/) {
+ $button{'AR--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AR Transaction').qq|"> |;
+ $button{'AR--Add Transaction'}{order} = $i++;
+ $button{'AR--Sales Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Invoice').qq|"> |;
+ $button{'AR--Sales Invoice'}{order} = $i++;
+ }
+ if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
+ $button{'Order Entry--Sales Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Order').qq|"> |;
+ $button{'Order Entry--Sales Order'}{order} = $i++;
+ }
+ if ($myconfig{acs} !~ /Quotations--Quotations/) {
+ $button{'Quotations--Quotation'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Quotation').qq|"> |;
+ $button{'Quotations--Quotation'}{order} = $i++;
+ }
+ }
+ if ($form->{db} eq 'vendor') {
+ if ($myconfig{acs} !~ /AP--AP/) {
+ $button{'AP--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AP Transaction').qq|"> |;
+ $button{'AP--Add Transaction'}{order} = $i++;
+ $button{'AP--Vendor Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Vendor Invoice').qq|"> |;
+ $button{'AP--Vendor Invoice'}{order} = $i++;
+ }
+ if ($myconfig{acs} !~ /Order Entry--Order Entry/) {
+ $button{'Order Entry--Purchase Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Purchase Order').qq|"> |;
+ $button{'Order Entry--Purchase Order'}{order} = $i++;
+ }
+ if ($myconfig{acs} !~ /Quotations--Quotations/) {
+ $button{'Quotations--RFQ'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('RFQ').qq|"> |;
+ $button{'Quotations--RFQ'}{order} = $i++;
+ }
+ }
+ if ($myconfig{acs} !~ /Goods & Services--Goods & Services/) {
+ $myconfig{acs} =~ s/(Goods & Services--Add )(Service|Assembly).*;/$1--Add Part/g;
+ $button{'Goods & Services--Add Part'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Pricelist').qq|"> |;
+ $button{'Goods & Services--Add Part'}{order} = $i++;
+ }
+
+ foreach $item (split /;/, $myconfig{acs}) {
+ delete $button{$item};
+ }
+
+ print qq|
+<input name=id type=hidden value=$form->{id}>
+<input name=taxaccounts type=hidden value="$form->{taxaccounts}">
+
+<input type=hidden name=path value=$form->{path}>
+<input type=hidden name=login value=$form->{login}>
+<input type=hidden name=sessionid value=$form->{sessionid}>
+
+<input type=hidden name=callback value="$form->{callback}">
+<input type=hidden name=db value=$form->{db}>
+
+<br>
+|;
+
+ if ($form->{db} eq 'customer') {
+ $item = 'AR--Customers--Add Customer';
+ }
+ if ($form->{db} eq 'vendor') {
+ $item = 'AP--Vendors--Add Vendor';
+ }
+
+ if ($myconfig{acs} !~ /$item/) {
+ print qq|
+<input class=submit type=submit name=action value="|.$locale->text("Save").qq|">
+|;
+ if ($form->{id} && $form->{status} eq 'orphaned') {
+ print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|;
+ }
+ }
+
+ foreach $item (sort { $a->{order} <=> $b->{order} } %button) {
+ print $item->{code};
+ }
+
+ if ($form->{menubar}) {
+ require "$form->{path}/menu.pl";
+ &menubar;
+ }
+
+ print qq|
+
+ </form>
+
+</body>
+</html>
+|;
+
+}
+
+
+sub pricelist {
+
+ $form->isblank("name", $locale->text('Name missing!'));
+
+ CT->pricelist(\%myconfig, \%$form);
+
+ foreach $ref (@{ $form->{"all_partspricelist"} }) {
+ $i++;
+ map { $form->{"${_}_$i"} = $ref->{$_} } keys %$ref;
+ }
+ $form->{rowcount} = $i;
+
+ # currencies
+ @curr = split /:/, $form->{currencies};
+ map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
+
+ if (@ { $form->{all_partsgroup} }) {
+ $form->{selectpartsgroup} = "<option>\n";
+ foreach $ref (@ { $form->{all_partsgroup} }) {
+ $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|;
+ }
+ }
+
+ map { delete $form->{$_} } ("currencies", "all_partsgroup", "all_partspricelist");
+
+ foreach $i (1 .. $form->{rowcount}) {
+
+ if ($form->{db} eq 'customer') {
+
+ $form->{"pricebreak_$i"} = $form->format_amount(\%myconfig, $form->{"pricebreak_$i"});
+
+ ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
+ $dec = length $dec;
+ $decimalplaces = ($dec > 2) ? $dec : 2;
+
+ $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces);
+
+ }
+
+ if ($form->{db} eq 'vendor') {
+
+ $form->{"leadtime_$i"} = $form->format_amount(\%myconfig, $form->{"leadtime_$i"});
+ ($dec) = ($form->{"lastcost_$i"} =~ /\.(\d+)/);
+ $dec = length $dec;
+ $decimalplaces = ($dec > 2) ? $dec : 2;
+
+ $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces);
+
+ }
+ }
+
+ $form->{rowcount}++;
+ &{ "$form->{db}_pricelist" };
+
+}
+
+
+sub customer_pricelist {
+
+ @flds = qw(runningnumber id partnumber description sellprice unit partsgroup pricebreak curr validfrom validto);
+
+ $form->{rowcount}--;
+
+ # remove empty rows
+ if ($form->{rowcount}) {
+
+ foreach $i (1 .. $form->{rowcount}) {
+
+ map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(pricebreak sellprice);
+
+ ($a, $b) = split /\./, $form->{"pricebreak_$i"};
+ $a = length $a;
+ $b = length $b;
+ $whole = ($whole > $a) ? $whole : $a;
+ $dec = ($dec > $b) ? $dec : $b;
+ }
+ $pad1 = '0' x $whole;
+ $pad2 = '0' x $dec;
+
+ foreach $i (1 .. $form->{rowcount}) {
+ ($a, $b) = split /\./, $form->{"pricebreak_$i"};
+
+ $a = substr("$pad1$a", -$whole);
+ $b = substr("$b$pad2", 0, $dec);
+ $ndx{qq|$form->{"partnumber_$i"}_$form->{"id_$i"}_$a$b|} = $i;
+ }
+
+ $i = 1;
+ map { $form->{"runningnumber_$ndx{$_}"} = $i++ } sort keys %ndx;
+
+ foreach $i (1 .. $form->{rowcount}) {
+ if ($form->{"partnumber_$i"} && $form->{"sellprice_$i"}) {
+ if ($form->{"id_$i"} eq $sameid) {
+ $j = $i + 1;
+ next if ($form->{"id_$j"} eq $sameid && !$form->{"pricebreak_$i"});
+ }
+
+ push @a, {};
+ $j = $#a;
+
+ map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
+ $count++;
+ }
+ $sameid = $form->{"id_$i"};
+ }
+
+ $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
+ $form->{rowcount} = $count;
+
+ }
+
+ $form->{rowcount}++;
+
+ &pricelist_header;
+ $form->hide_form();
+ &pricelist_footer;
+
+}
+
+
+sub vendor_pricelist {
+
+ @flds = qw(runningnumber id sku partnumber description lastcost unit partsgroup curr leadtime);
+
+ $form->{rowcount}--;
+
+ # remove empty rows
+ if ($form->{rowcount}) {
+
+ foreach $i (1 .. $form->{rowcount}) {
+
+ map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(leadtime lastcost);
+ $var = ($form->{"partnumber_$i"}) ? $form->{"sku_$i"} : qq|_$form->{"sku_$i"}|;
+ $ndx{$var} = $i;
+
+ }
+
+ $i = 1;
+ map { $form->{"runningnumber_$ndx{$_}"} = $i++ } sort keys %ndx;
+
+ foreach $i (1 .. $form->{rowcount}) {
+ if ($form->{"sku_$i"}) {
+ push @a, {};
+ $j = $#a;
+
+ map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds;
+ $count++;
+ }
+ }
+
+ $form->redo_rows(\@flds, \@a, $count, $form->{rowcount});
+ $form->{rowcount} = $count;
+
+ }
+
+ $form->{rowcount}++;
+
+ &pricelist_header;
+ $form->hide_form();
+ &pricelist_footer;
+
+}
+
+
+
+sub pricelist_header {
+
+ $form->{title} = $form->{name};
+
+ $form->header;
+
+ print qq|
+<body>
+
+<form method=post action="$form->{script}">
+
+<table width=100%>
+ <tr>
+ <th class=listtop>$form->{title}</th>
+ </tr>
+ <tr height="5"></tr>
+|;
+
+ if ($form->{db} eq 'customer') {
+ @column_index = qw(partnumber description);
+ push @column_index, "partsgroup" if $form->{selectpartsgroup};
+ push @column_index, qw(pricebreak sellprice curr validfrom validto);
+
+ $column_header{pricebreak} = qq|<th class=listheading nowrap>|.$locale->text('Break').qq|</th>|;
+ $column_header{sellprice} = qq|<th class=listheading nowrap>|.$locale->text('Sell Price').qq|</th>|;
+ $column_header{validfrom} = qq|<th class=listheading nowrap>|.$locale->text('From').qq|</th>|;
+ $column_header{validto} = qq|<th class=listheading nowrap>|.$locale->text('To').qq|</th>|;
+ }
+
+ if ($form->{db} eq 'vendor') {
+ @column_index = qw(sku partnumber description);
+ push @column_index, "partsgroup" if $form->{selectpartsgroup};
+ push @column_index, qw(lastcost curr leadtime);
+
+
+ $column_header{sku} = qq|<th class=listheading nowrap>|.$locale->text('SKU').qq|</th>|;
+ $column_header{leadtime} = qq|<th class=listheading nowrap>|.$locale->text('Leadtime').qq|</th>|;
+ $column_header{lastcost} = qq|<th class=listheading nowrap>|.$locale->text('Cost').qq|</th>|;
+ }
+
+ $column_header{partnumber} = qq|<th class=listheading nowrap>|.$locale->text('Number').qq|</th>|;
+ $column_header{description} = qq|<th class=listheading nowrap width=80%>|.$locale->text('Description').qq|</th>|;
+ $column_header{partsgroup} = qq|<th class=listheading nowrap>|.$locale->text('Group').qq|</th>|;
+ $column_header{curr} = qq|<th class=listheading nowrap>|.$locale->text('Curr').qq|</th>|;
+
+ print qq|
+ <tr>
<td>
<table width=100%>
- <tr>
- <th align=right>|.$locale->text('Terms: Net').qq|</th>
- <td><input name=terms size=2 value="$form->{terms}"></td>
- <th>|.$locale->text('days').qq|</th>
- $creditlimit
- <td><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
- <th align=left>|.$locale->text('Tax Included').qq|</th>
- </tr>
+ <tr class=listheading>
+|;
+
+ map { print "\n$column_header{$_}" } @column_index;
+
+ print qq|
+ </tr>
+|;
+
+ $sameid = "";
+ foreach $i (1 .. $form->{rowcount}) {
+
+ $selectcurrency = $form->{selectcurrency};
+ $selectcurrency =~ s/option>\Q$form->{"curr_$i"}\E/option selected>$form->{"curr_$i"}/;
+
+ if ($form->{selectpartsgroup}) {
+ if ($i < $form->{rowcount}) {
+ ($partsgroup) = split /--/, $form->{"partsgroup_$i"};
+ $column_data{partsgroup} = qq|<td>$partsgroup</td>
+ <input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">|;
+ }
+ }
+
+
+ if ($i < $form->{rowcount}) {
+
+ if ($form->{"id_$i"} eq $sameid) {
+ map { $column_data{$_} = qq|<td> </td>
+ <input type=hidden name="${_}_$i" value="|.$form->quote($form->{"${_}_$i"}).qq|">| } qw(partnumber description partsgroup);
+
+ } else {
+
+ $column_data{sku} = qq|<td><input name="sku_$i" value="$form->{"sku_$i"}"></td>|;
+ $column_data{partnumber} = qq|<td><input name="partnumber_$i" value="$form->{"partnumber_$i"}"></td>|;
+
+ $column_data{description} = qq|<td>$form->{"description_$i"} </td>
+ <input type=hidden name="description_$i" value="|.$form->quote($form->{"description_$i"}).qq|">|;
+
+ }
+
+ $column_data{partnumber} .= qq|
+ <input type=hidden name="id_$i" value="$form->{"id_$i"}">|;
+
+ } else {
+
+ if ($form->{db} eq 'customer') {
+ $column_data{partnumber} = qq|<td><input name="partnumber_$i" value="$form->{"partnumber_$i"}"></td>|;
+ } else {
+ $column_data{partnumber} = qq|<td> </td>|;
+ }
+
+ $column_data{partnumber} .= qq|
+ <input type=hidden name="id_$i" value="$form->{"id_$i"}">|;
+
+ $column_data{sku} = qq|<td><input name="sku_$i" value="$form->{"sku_$i"}"></td>|;
+ $column_data{description} = qq|<td><input name="description_$i" value="$form->{"description_$i"}"></td>|;
+
+ if ($form->{selectpartsgroup}) {
+ $column_data{partsgroup} = qq|<td><select name="partsgroup_$i">$form->{selectpartsgroup}</select></td>|;
+ }
+
+ }
+
+
+ if ($form->{db} eq 'customer') {
+ ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/);
+ $dec = length $dec;
+ $decimalplaces = ($dec > 2) ? $dec : 2;
+
+ $column_data{pricebreak} = qq|<td align=right><input name="pricebreak_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"pricebreak_$i"}).qq|></td>|;
+ $column_data{sellprice} = qq|<td align=right><input name="sellprice_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces).qq|></td>|;
+
+ $column_data{validfrom} = qq|<td><input name="validfrom_$i" size=11 value=$form->{"validfrom_$i"}></td>|;
+ $column_data{validto} = qq|<td><input name="validto_$i" size=11 value=$form->{"validto_$i"}></td>|;
+ }
+
+ if ($form->{db} eq 'vendor') {
+ ($dec) = ($form->{"lastcost_$i"} =~ /\.(\d+)/);
+ $dec = length $dec;
+ $decimalplaces = ($dec > 2) ? $dec : 2;
+
+ $column_data{leadtime} = qq|<td align=right><input name="leadtime_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"leadtime_$i"}).qq|></td>|;
+ $column_data{lastcost} = qq|<td align=right><input name="lastcost_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces).qq|></td>|;
+ }
+
+
+ $column_data{curr} = qq|<td><select name="curr_$i">$selectcurrency</select></td>|;
+
+
+ print qq|<tr valign=top>|;
+
+ map { print "\n$column_data{$_}" } @column_index;
+
+ print qq|</tr>|;
+
+ $sameid = $form->{"id_$i"};
+
+ }
+
+ print qq|
</table>
</td>
</tr>
- $tax
- <tr>
- <th align=left nowrap>|.$locale->text('Notes').qq|</th>
- </tr>
- <tr>
- <td><textarea name=notes rows=3 cols=60 wrap=soft>$form->{notes}</textarea></td>
- </tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
|;
+ # delete variables
+ foreach $i (1 .. $form->{rowcount}) {
+ map { delete $form->{"${_}_$i"} } (@column_index, "id");
+ }
+ map { delete $form->{$_} } qw(title titlebar script none header action);
+
+}
+
+
+sub pricelist_footer {
+
+ print qq|
+ <input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
+ <input class=submit type=submit name=action value="|.$locale->text('Save Pricelist').qq|">|;
+
+ print qq|
+</form>
+
+<a name="end"></a>
+
+ </body>
+ </html>
+|;
+
}
+sub update {
+
+ $i = $form->{rowcount};
+ $additem = 0;
-sub form_footer {
+ if ($form->{db} eq 'customer') {
+ $additem = 1 if ! (($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "") && ($form->{"partsgroup_$i"} eq ""));
+ }
+ if ($form->{db} eq 'vendor') {
+ if (! (($form->{"sku_$i"} eq "") && ($form->{"description_$i"} eq "") && ($form->{"partsgroup_$i"} eq ""))) {
+ $additem = 1;
+ $form->{"partnumber_$i"} = $form->{"sku_$i"};
+ }
+ }
- $label = ucfirst $form->{db};
+ if ($additem) {
+
+ CT->retrieve_item(\%myconfig, \%$form);
+
+ $rows = scalar @{ $form->{item_list} };
+
+ if ($rows > 0) {
+
+ if ($rows > 1) {
+
+ &select_item;
+ exit;
+
+ } else {
+
+ $sellprice = $form->{"sellprice_$i"};
+ $pricebreak = $form->{"pricebreak_$i"};
+ $lastcost = $form->{"lastcost_$i"};
+
+ map { $form->{item_list}[$i]{$_} = $form->quote($form->{item_list}[$i]{$_}) } qw(partnumber description);
+ map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
+
+ if ($form->{db} eq 'customer') {
+
+ if ($sellprice) {
+ $form->{"sellprice_$i"} = $sellprice;
+ }
+
+ ($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->{"pricebreak_$i"} = $pricebreak;
+
+ } else {
+
+ foreach $j (1 .. $form->{rowcount}) {
+ if ($form->{"sku_$j"} eq $form->{"partnumber_$i"}) {
+ $form->error($locale->text('Item already on pricelist!'));
+ }
+ }
+
+ if ($lastcost) {
+ $form->{"lastcost_$i"} = $lastcost;
+ }
+
+ ($dec) = ($form->{"lastcost_$i"} =~ /\.(\d+)/);
+ $dec = length $dec;
+ $decimalplaces = ($dec > 2) ? $dec : 2;
+
+ $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces);
+
+ $form->{"sku_$i"} = $form->{"partnumber_$i"};
+ delete $form->{"partnumber_$i"};
+
+ }
+
+ $form->{rowcount}++;
+
+ }
+
+ } else {
+ $form->error($locale->text('Item not on file!'));
+
+ }
+ }
+
+ &{ "$form->{db}_pricelist" };
+
+}
+
+
+
+sub select_item {
+
+ @column_index = qw(ndx partnumber description partsgroup unit sellprice lastcost);
+
+ $column_data{ndx} = qq|<th> </th>|;
+ $column_data{partnumber} = qq|<th class=listheading>|.$locale->text('Number').qq|</th>|;
+ $column_data{description} = qq|<th class=listheading>|.$locale->text('Description').qq|</th>|;
+ $column_data{partsgroup} = qq|<th class=listheading>|.$locale->text('Group').qq|</th>|;
+ $column_data{unit} = qq|<th class=listheading>|.$locale->text('Unit').qq|</th>|;
+ $column_data{sellprice} = qq|<th class=listheading>|.$locale->text('Sell Price').qq|</th>|;
+ $column_data{lastcost} = qq|<th class=listheading>|.$locale->text('Cost').qq|</th>|;
+
+ $form->header;
+
+ $title = $locale->text('Select from one of the items below');
+
print qq|
-<input name=id type=hidden value=$form->{id}>
-<input name=taxaccounts type=hidden value="$form->{taxaccounts}">
+<body>
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
+<form method=post action="$form->{script}">
-<input type=hidden name=callback value="$form->{callback}">
-<input type=hidden name=db value=$form->{db}>
+<table width=100%>
+ <tr>
+ <th class=listtop>$title</th>
+ </tr>
+ <tr height="5"></tr>
+ <tr>
+ <td>$option</td>
+ </tr>
+ <tr>
+ <td>
+ <table width=100%>
+ <tr class=listheading>|;
-<br>
+ map { print "\n$column_data{$_}" } @column_index;
+
+ print qq|
+ </tr>
+|;
+
+ my $i = 0;
+ foreach $ref (@{ $form->{item_list} }) {
+ $checked = ($i++) ? "" : "checked";
+
+ map { $ref->{$_} = $form->quote($ref->{$_}) } qw(partnumber description unit);
+
+ $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
+
+ map { $column_data{$_} = qq|<td>$ref->{$_} </td>| } qw(partnumber description partsgroup unit);
+
+ $column_data{sellprice} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{sellprice}, 2, " ").qq|</td>|;
+ $column_data{lastcost} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{lastcost}, 2, " ").qq|</td>|;
+
+ $j++; $j %= 2;
+
+ print qq|
+ <tr class=listrow$j>|;
+
+ map { print "\n$column_data{$_}" } @column_index;
+
+ print qq|
+ </tr>
+
+<input name="new_partnumber_$i" type=hidden value="$ref->{partnumber}">
+<input name="new_description_$i" type=hidden value="$ref->{description}">
+<input name="new_partsgroup_$i" type=hidden value="$ref->{partsgroup}">
+<input name="new_partsgroup_id_$i" type=hidden value="$ref->{partsgroup_id}">
+<input name="new_sellprice_$i" type=hidden value=$ref->{sellprice}>
+<input name="new_lastcost_$i" type=hidden value=$ref->{lastcost}>
+<input name="new_unit_$i" type=hidden value="$ref->{unit}">
+
+<input name="new_id_$i" type=hidden value=$ref->{id}>
-<input class=submit type=submit name=action value="|.$locale->text("Save").qq|">
-<input class=submit type=submit name=action value="|.$locale->text("Invoice").qq|">
-<input class=submit type=submit name=action value="|.$locale->text('Order').qq|">
|;
- if ($form->{id} && $form->{status} eq 'orphaned') {
- print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|;
}
print qq|
-
- </form>
+ </table>
+ </td>
+ </tr>
+ <tr>
+ <td><hr size=3 noshade></td>
+ </tr>
+</table>
+
+<input name=lastndx type=hidden value=$i>
+
+|;
+
+ # delete action variable
+ map { delete $form->{$_} } qw(action item_list header);
+
+ $form->hide_form();
+
+ print qq|
+<input type=hidden name=nextsub value=item_selected>
+
+<br>
+<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
+</form>
</body>
</html>
|;
-
}
-sub invoice { &{ "$form->{db}_invoice" } };
-sub customer_invoice {
+sub item_selected {
- $form->isblank("name", $locale->text("Name missing!"));
- CT->save_customer(\%myconfig, \%$form);
-
- delete $form->{script};
+ # replace the last row with the checked row
+ $i = $form->{rowcount};
+
+ # index for new item
+ $j = $form->{ndx};
+
+ @new = qw(id partnumber description unit);
+ push @new, "sellprice" if ! $form->{"sellprice_$i"};
+ push @new, "lastcost" if ! $form->{"lastcost_$i"};
- $form->{action} = "add";
- $form->{callback} = $form->escape($form->{callback},1);
+ map { $form->{"${_}_$i"} = $form->{"new_${_}_$j"} } @new;
- $form->{customer} = $form->{name};
- $form->{customer_id} = $form->{id};
- $form->{vc} = 'customer';
+ $form->{"partsgroup_$i"} = qq|$form->{"new_partsgroup_$j"}--$form->{"new_partsgroup_id_$j"}|;
- delete $form->{id};
+ map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(sellprice lastcost);
+
+ push @new, qw(partsgroup partsgroup_id);
+
+ # delete all the new_ variables
+ for $i (1 .. $form->{lastndx}) {
+ map { delete $form->{"new_${_}_$i"} } @new;
+ }
+
+ map { delete $form->{$_} } qw(ndx lastndx nextsub);
- map { $argv .= "$_=$form->{$_}&" } keys %$form;
+ # format amounts
+ map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(sellprice lastcost);
- exec ("perl", "is.pl", $argv);
+ foreach $j (1 .. $form->{rowcount}) {
+ if ($form->{"sku_$j"} eq $form->{"partnumber_$i"}) {
+ $form->error($locale->text('Item already on pricelist!'));
+ }
+ }
+
+ $form->{"sku_$i"} = $form->{"partnumber_$i"};
+ delete $form->{"partnumber_$i"} if $form->{db} eq 'vendor';
+
+ $form->{rowcount}++;
+ &{ "$form->{db}_pricelist" };
}
-sub vendor_invoice {
- $form->isblank("name", $locale->text("Name missing!"));
- CT->save_vendor(\%myconfig, \%$form);
-
- delete $form->{script};
-
- $form->{action} = "add";
- $form->{callback} = $form->escape($form->{callback},1);
+
+sub save_pricelist {
+
+ &{ "CT::save_$form->{db}" }("", \%myconfig, \%$form);
- $form->{vendor} = $form->{name};
- $form->{vendor_id} = $form->{id};
- $form->{vc} = 'vendor';
-
- delete $form->{id};
+ $rc = CT->save_pricelist(\%myconfig, \%$form);
- map { $argv .= "$_=$form->{$_}&" } keys %$form;
+ $form->{callback} = "$form->{script}?action=edit&db=$form->{db}&id=$form->{id}&login=$form->{login}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}";
- exec ("perl", "ir.pl", $argv);
+ $form->redirect if $rc;
+ $form->error($locale->text('Could not save pricelist!'));
}
-sub order { &{ "$form->{db}_order" } };
-sub customer_order {
-
- $form->isblank("name", $locale->text("Name missing!"));
- CT->save_customer(\%myconfig, \%$form);
+sub add_transaction {
- delete $form->{script};
+ $form->isblank("name", $locale->text("Name missing!"));
+
+ &{ "CT::save_$form->{db}" }("", \%myconfig, \%$form);
- $form->{action} = "add";
$form->{callback} = $form->escape($form->{callback},1);
-
- $form->{customer} = $form->{name};
- $form->{customer_id} = $form->{id};
- $form->{vc} = 'customer';
+ $name = $form->escape($form->{name},1);
- $form->{type} = 'sales_order';
-
- delete $form->{id};
+ $form->{callback} = "$form->{script}?login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}&action=add&vc=$form->{db}&$form->{db}_id=$form->{id}&$form->{db}=$name&type=$form->{type}&callback=$form->{callback}";
- map { $argv .= "$_=$form->{$_}&" } keys %$form;
+ $form->redirect;
- exec ("perl", "oe.pl", $argv);
+}
+
+sub ap_transaction {
+
+ $form->{script} = "ap.pl";
+ $form->{type} = "ap_transaction";
+ &add_transaction;
}
-sub vendor_order {
+sub ar_transaction {
- $form->isblank("name", $locale->text("Name missing!"));
- CT->save_vendor(\%myconfig, \%$form);
-
- delete $form->{script};
-
- $form->{action} = "add";
- $form->{callback} = $form->escape($form->{callback},1);
+ $form->{script} = "ar.pl";
+ $form->{type} = "ar_transaction";
+ &add_transaction;
+
+}
+
+
+sub sales_invoice {
+
+ $form->{script} = "is.pl";
+ $form->{type} = "invoice";
+ &add_transaction;
- $form->{vendor} = $form->{name};
- $form->{vendor_id} = $form->{id};
- $form->{vc} = 'vendor';
+}
- $form->{type} = 'purchase_order';
- delete $form->{id};
+sub vendor_invoice {
- map { $argv .= "$_=$form->{$_}&" } keys %$form;
+ $form->{script} = "ir.pl";
+ $form->{type} = "invoice";
+ &add_transaction;
- exec ("perl", "oe.pl", $argv);
+}
+
+
+sub rfq {
+
+ $form->{script} = "oe.pl";
+ $form->{type} = "request_quotation";
+ &add_transaction;
}
-sub save { &{ "save_$form->{db}" } };
+sub quotation {
+
+ $form->{script} = "oe.pl";
+ $form->{type} = "sales_quotation";
+ &add_transaction;
+
+}
-sub save_customer {
- $form->isblank("name", $locale->text("Name missing!"));
- CT->save_customer(\%myconfig, \%$form);
- $form->redirect($locale->text('Customer saved!'));
+sub sales_order {
+ $form->{script} = "oe.pl";
+ $form->{type} = "sales_order";
+ &add_transaction;
+
}
-sub save_vendor {
+sub purchase_order {
- $form->isblank("name", $locale->text("Name missing!"));
- CT->save_vendor(\%myconfig, \%$form);
- $form->redirect($locale->text('Vendor saved!'));
+ $form->{script} = "oe.pl";
+ $form->{type} = "purchase_order";
+ &add_transaction;
}
-sub delete { &{ "delete_$form->{db}" } };
+sub save {
-sub delete_customer {
+# $locale->text('Customer saved!')
+# $locale->text('Vendor saved!')
- $rc = CT->delete_customer(\%myconfig, \%$form);
+ $msg = ucfirst $form->{db};
+ $msg .= " saved!";
+
+ $form->isblank("name", $locale->text("Name missing!"));
+ &{ "CT::save_$form->{db}" }("", \%myconfig, \%$form);
+
+ $form->redirect($locale->text($msg));
- $form->error($locale->text('Transactions exist, cannot delete customer!')) if ($rc == -1);
- $form->redirect($locale->text('Customer deleted!')) if $rc;
- $form->error($locale->text('Cannot delete customer!'));
-
}
-sub delete_vendor {
+sub delete {
- $rc = CT->delete_vendor(\%myconfig, \%$form);
+# $locale->text('Customer deleted!')
+# $locale->text('Cannot delete customer!')
+# $locale->text('Vendor deleted!')
+# $locale->text('Cannot delete vendor!')
+
+ CT->delete(\%myconfig, \%$form);
+
+ $msg = ucfirst $form->{db};
+ $msg .= " deleted!";
+ $form->redirect($locale->text($msg));
- $form->error($locale->text('Transactions exist, cannot delete vendor!')) if ($rc == -1);
- $form->redirect($locale->text('Vendor deleted!')) if $rc;
- $form->error($locale->text('Cannot delete vendor!'));
+ $msg = "Cannot delete $form->{db}";
+ $form->error($locale->text($msg));
}
sub continue { &{ $form->{nextsub} } };
+sub add_customer { &add };
+sub add_vendor { &add };