diff options
Diffstat (limited to 'bin/ct.pl')
| -rw-r--r-- | bin/ct.pl | 3613 |
1 files changed, 2031 insertions, 1582 deletions
@@ -8,9 +8,9 @@ # 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, +# 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): @@ -44,50 +44,52 @@ use LedgerSMB::CT; 1; + # end of main +sub add { + $form->{title} = "Add"; -sub add { + # $locale->text('Add Customer') + # $locale->text('Add Vendor') - $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}&sessionid=$form->{sessionid}" + 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->create_links( \%myconfig, \%$form ); - CT->create_links(\%myconfig, \%$form); - - &form_header; - &form_footer; - -} + &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| + # $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> @@ -109,16 +111,18 @@ sub history { <td> <table> <tr> - <th>|.$locale->text('From').qq|</th> + <th>| . $locale->text('From') . qq|</th> <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td> - <th>|.$locale->text('To').qq|</th> + <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| + <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> @@ -129,50 +133,63 @@ sub history { </tr> |; - $include = qq| + $include = qq| <tr> - <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <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><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| + <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| + <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| + <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| + <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| + <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| + <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| + <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| + <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| + <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| + <input name="l_serialnumber" type=checkbox class=checkbox value=Y> | + . $locale->text('Serial Number') . qq| </td> </tr> </table> @@ -180,37 +197,36 @@ sub history { </tr> |; - &search_name; - - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + &search_name; - print qq| + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } + + print qq| </body> </html> |; } - 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'); - } + 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| + $transactions = qq| <tr> <td></td> <td> @@ -235,25 +251,31 @@ sub transactions { <td> <table> <tr> - <th>|.$locale->text('From').qq|</th> + <th>| . $locale->text('From') . qq|</th> <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td> - <th>|.$locale->text('To').qq|</th> + <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| + <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| + <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> @@ -266,76 +288,122 @@ sub transactions { } - sub include_in_report { - - $label = ucfirst $form->{db}; - - @a = (); - - push @a, qq|<input name="l_ndx" type=checkbox class=checkbox value=Y> |.$locale->text('No.'); - push @a, qq|<input name="l_id" type=checkbox class=checkbox value=Y> |.$locale->text('ID'); - push @a, qq|<input name="l_$form->{db}number" type=checkbox class=checkbox value=Y> |.$locale->text($label . ' Number'); - push @a, qq|<input name="l_name" type=checkbox class=checkbox value=Y $form->{l_name}> |.$locale->text('Company Name'); - push @a, qq|<input name="l_contact" type=checkbox class=checkbox value=Y $form->{l_contact}> |.$locale->text('Contact'); - push @a, qq|<input name="l_email" type=checkbox class=checkbox value=Y $form->{l_email}> |.$locale->text('E-mail'); - push @a, qq|<input name="l_address" type=checkbox class=checkbox value=Y> |.$locale->text('Address'); - push @a, qq|<input name="l_city" type=checkbox class=checkbox value=Y> |.$locale->text('City'); - push @a, qq|<input name="l_state" type=checkbox class=checkbox value=Y> |.$locale->text('State/Province'); - push @a, qq|<input name="l_zipcode" type=checkbox class=checkbox value=Y> |.$locale->text('Zip/Postal Code'); - push @a, qq|<input name="l_country" type=checkbox class=checkbox value=Y> |.$locale->text('Country'); - push @a, qq|<input name="l_phone" type=checkbox class=checkbox value=Y $form->{l_phone}> |.$locale->text('Phone'); - push @a, qq|<input name="l_fax" type=checkbox class=checkbox value=Y> |.$locale->text('Fax'); - push @a, qq|<input name="l_cc" type=checkbox class=checkbox value=Y> |.$locale->text('Cc'); - - if ($myconfig{role} =~ /(admin|manager)/) { - push @a, qq|<input name="l_bcc" type=checkbox class=checkbox value=Y> |.$locale->text('Bcc'); - } - - push @a, qq|<input name="l_notes" type=checkbox class=checkbox value=Y> |.$locale->text('Notes'); - push @a, qq|<input name="l_discount" type=checkbox class=checkbox value=Y> |.$locale->text('Discount'); - push @a, qq|<input name="l_taxaccount" type=checkbox class=checkbox value=Y> |.$locale->text('Tax Account'); - push @a, qq|<input name="l_taxnumber" type=checkbox class=checkbox value=Y> |.$locale->text('Tax Number'); - - if ($form->{db} eq 'customer') { - push @a, qq|<input name="l_employee" type=checkbox class=checkbox value=Y> |.$locale->text('Salesperson'); - push @a, qq|<input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager'); - push @a, qq|<input name="l_pricegroup" type=checkbox class=checkbox value=Y> |.$locale->text('Pricegroup'); - - } else { - push @a, qq|<input name="l_employee" type=checkbox class=checkbox value=Y> |.$locale->text('Employee'); - push @a, qq|<input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager'); - push @a, qq|<input name="l_gifi_accno" type=checkbox class=checkbox value=Y> |.$locale->text('GIFI'); - - } - - push @a, qq|<input name="l_sic_code" type=checkbox class=checkbox value=Y> |.$locale->text('SIC'); - push @a, qq|<input name="l_iban" type=checkbox class=checkbox value=Y> |.$locale->text('IBAN'); - push @a, qq|<input name="l_bic" type=checkbox class=checkbox value=Y> |.$locale->text('BIC'); - push @a, qq|<input name="l_business" type=checkbox class=checkbox value=Y> |.$locale->text('Type of Business'); - push @a, qq|<input name="l_terms" type=checkbox class=checkbox value=Y> |.$locale->text('Terms'); - push @a, qq|<input name="l_language" type=checkbox class=checkbox value=Y> |.$locale->text('Language'); - push @a, qq|<input name="l_startdate" type=checkbox class=checkbox value=Y> |.$locale->text('Startdate'); - push @a, qq|<input name="l_enddate" type=checkbox class=checkbox value=Y> |.$locale->text('Enddate'); - - - $include = qq| + + $label = ucfirst $form->{db}; + + @a = (); + + push @a, qq|<input name="l_ndx" type=checkbox class=checkbox value=Y> | + . $locale->text('No.'); + push @a, qq|<input name="l_id" type=checkbox class=checkbox value=Y> | + . $locale->text('ID'); + push @a, +qq|<input name="l_$form->{db}number" type=checkbox class=checkbox value=Y> | + . $locale->text( $label . ' Number' ); + push @a, +qq|<input name="l_name" type=checkbox class=checkbox value=Y $form->{l_name}> | + . $locale->text('Company Name'); + push @a, +qq|<input name="l_contact" type=checkbox class=checkbox value=Y $form->{l_contact}> | + . $locale->text('Contact'); + push @a, +qq|<input name="l_email" type=checkbox class=checkbox value=Y $form->{l_email}> | + . $locale->text('E-mail'); + push @a, qq|<input name="l_address" type=checkbox class=checkbox value=Y> | + . $locale->text('Address'); + push @a, qq|<input name="l_city" type=checkbox class=checkbox value=Y> | + . $locale->text('City'); + push @a, qq|<input name="l_state" type=checkbox class=checkbox value=Y> | + . $locale->text('State/Province'); + push @a, qq|<input name="l_zipcode" type=checkbox class=checkbox value=Y> | + . $locale->text('Zip/Postal Code'); + push @a, qq|<input name="l_country" type=checkbox class=checkbox value=Y> | + . $locale->text('Country'); + push @a, +qq|<input name="l_phone" type=checkbox class=checkbox value=Y $form->{l_phone}> | + . $locale->text('Phone'); + push @a, qq|<input name="l_fax" type=checkbox class=checkbox value=Y> | + . $locale->text('Fax'); + push @a, qq|<input name="l_cc" type=checkbox class=checkbox value=Y> | + . $locale->text('Cc'); + + if ( $myconfig{role} =~ /(admin|manager)/ ) { + push @a, qq|<input name="l_bcc" type=checkbox class=checkbox value=Y> | + . $locale->text('Bcc'); + } + + push @a, qq|<input name="l_notes" type=checkbox class=checkbox value=Y> | + . $locale->text('Notes'); + push @a, qq|<input name="l_discount" type=checkbox class=checkbox value=Y> | + . $locale->text('Discount'); + push @a, + qq|<input name="l_taxaccount" type=checkbox class=checkbox value=Y> | + . $locale->text('Tax Account'); + push @a, + qq|<input name="l_taxnumber" type=checkbox class=checkbox value=Y> | + . $locale->text('Tax Number'); + + if ( $form->{db} eq 'customer' ) { + push @a, + qq|<input name="l_employee" type=checkbox class=checkbox value=Y> | + . $locale->text('Salesperson'); + push @a, + qq|<input name="l_manager" type=checkbox class=checkbox value=Y> | + . $locale->text('Manager'); + push @a, + qq|<input name="l_pricegroup" type=checkbox class=checkbox value=Y> | + . $locale->text('Pricegroup'); + + } + else { + push @a, + qq|<input name="l_employee" type=checkbox class=checkbox value=Y> | + . $locale->text('Employee'); + push @a, + qq|<input name="l_manager" type=checkbox class=checkbox value=Y> | + . $locale->text('Manager'); + push @a, + qq|<input name="l_gifi_accno" type=checkbox class=checkbox value=Y> | + . $locale->text('GIFI'); + + } + + push @a, qq|<input name="l_sic_code" type=checkbox class=checkbox value=Y> | + . $locale->text('SIC'); + push @a, qq|<input name="l_iban" type=checkbox class=checkbox value=Y> | + . $locale->text('IBAN'); + push @a, qq|<input name="l_bic" type=checkbox class=checkbox value=Y> | + . $locale->text('BIC'); + push @a, qq|<input name="l_business" type=checkbox class=checkbox value=Y> | + . $locale->text('Type of Business'); + push @a, qq|<input name="l_terms" type=checkbox class=checkbox value=Y> | + . $locale->text('Terms'); + push @a, qq|<input name="l_language" type=checkbox class=checkbox value=Y> | + . $locale->text('Language'); + push @a, + qq|<input name="l_startdate" type=checkbox class=checkbox value=Y> | + . $locale->text('Startdate'); + push @a, qq|<input name="l_enddate" type=checkbox class=checkbox value=Y> | + . $locale->text('Enddate'); + + $include = qq| <tr> - <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <th align=right nowrap>| . $locale->text('Include in Report') . qq|</th> <td> <table> |; - while (@a) { - $include .= qq|<tr>\n|; - for (1 .. 5) { - $include .= qq|<td nowrap>|. shift @a; - $include .= qq|</td>\n|; + while (@a) { + $include .= qq|<tr>\n|; + for ( 1 .. 5 ) { + $include .= qq|<td nowrap>| . shift @a; + $include .= qq|</td>\n|; + } + $include .= qq|</tr>\n|; } - $include .= qq|</tr>\n|; - } - $include .= qq| + $include .= qq| </table> </td> </tr> @@ -343,39 +411,42 @@ sub include_in_report { } - sub search { -# $locale->text('Customers') -# $locale->text('Vendors') + # $locale->text('Customers') + # $locale->text('Vendors') + + $form->{title} = $locale->text('Search') unless $form->{title}; - $form->{title} = $locale->text('Search') unless $form->{title}; - - for (qw(name contact phone email)) { $form->{"l_$_"} = 'checked' } + for (qw(name contact phone email)) { $form->{"l_$_"} = 'checked' } - $form->{nextsub} = "list_names"; + $form->{nextsub} = "list_names"; - $orphan = qq| + $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=active> |.$locale->text('Active').qq| - <input name=status class=radio type=radio value=inactive> |.$locale->text('Inactive').qq| - <input name=status class=radio type=radio value=orphaned> |.$locale->text('Orphaned').qq|</td> + <td><input name=status class=radio type=radio value=all checked> | + . $locale->text('All') . qq| + <input name=status class=radio type=radio value=active> | + . $locale->text('Active') . qq| + <input name=status class=radio type=radio value=inactive> | + . $locale->text('Inactive') . qq| + <input name=status class=radio type=radio value=orphaned> | + . $locale->text('Orphaned') + . qq|</td> </tr> |; + &transactions; + &include_in_report; + &search_name; - &transactions; - &include_in_report; - &search_name; - - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + print qq| </body> </html> @@ -383,28 +454,26 @@ sub search { } - sub search_name { - $label = ucfirst $form->{db}; + $label = ucfirst $form->{db}; - if ($form->{db} eq 'customer') { - $employee = qq| - <th align=right nowrap>|.$locale->text('Salesperson').qq|</th> + if ( $form->{db} eq 'customer' ) { + $employee = qq| + <th align=right nowrap>| . $locale->text('Salesperson') . qq|</th> <td><input name=employee size=32></td> |; - } - if ($form->{db} eq 'vendor') { - $employee = qq| - <th align=right nowrap>|.$locale->text('Employee').qq|</th> + } + if ( $form->{db} eq 'vendor' ) { + $employee = qq| + <th align=right nowrap>| . $locale->text('Employee') . qq|</th> <td><input name=employee size=32></td> |; - } - - - $form->header; - - print qq| + } + + $form->header; + + print qq| <body> <form method=post action=$form->{script}> @@ -423,26 +492,26 @@ sub search_name { <td> <table> <tr> - <th align=right nowrap>|.$locale->text('Company Name').qq|</th> + <th align=right nowrap>| . $locale->text('Company Name') . qq|</th> <td><input name=name size=32></td> </tr> <tr> - <th align=right nowrap>|.$locale->text('Contact').qq|</th> + <th align=right nowrap>| . $locale->text('Contact') . qq|</th> <td><input name=contact size=32></td> </tr> <tr> - <th align=right nowrap>|.$locale->text('E-mail').qq|</th> + <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('Phone').qq|</th> + <th align=right nowrap>| . $locale->text('Phone') . qq|</th> <td><input name=phone size=20></td> </tr> <tr> $employee </tr> <tr> - <th align=right nowrap>|.$locale->text('Notes').qq|</th> + <th align=right nowrap>| . $locale->text('Notes') . qq|</th> <td colspan=3><textarea name=notes rows=3 cols=32></textarea></td> </tr> </table> @@ -451,32 +520,36 @@ sub search_name { <td> <table> <tr> - <th align=right nowrap>|.$locale->text($label . ' Number').qq|</th> + <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('Address').qq|</th> + <th align=right nowrap>| . $locale->text('Address') . qq|</th> <td><input name=address size=32></td> </tr> <tr> - <th align=right nowrap>|.$locale->text('City').qq|</th> + <th align=right nowrap>| . $locale->text('City') . qq|</th> <td><input name=city size=32></td> </tr> <tr> - <th align=right nowrap>|.$locale->text('State/Province').qq|</th> + <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('Zip/Postal Code').qq|</th> + <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> + <th align=right nowrap>| . $locale->text('Country') . qq|</th> <td><input name=country size=32></td> </tr> <tr> - <th align=right nowrap>|.$locale->text('Startdate').qq|</th> - <td>|.$locale->text('From').qq| <input name=startdatefrom size=11 title="$myconfig{dateformat}"> |.$locale->text('To').qq| <input name=startdateto size=11 title="$myconfig{dateformat}"></td> + <th align=right nowrap>| . $locale->text('Startdate') . qq|</th> + <td>| + . $locale->text('From') + . qq| <input name=startdatefrom size=11 title="$myconfig{dateformat}"> | + . $locale->text('To') + . qq| <input name=startdateto size=11 title="$myconfig{dateformat}"></td> </tr> </table> </td> @@ -509,266 +582,369 @@ sub search_name { <input type="hidden" name="sessionid" value="$form->{sessionid}"> <br> -<button type="submit" class="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button> +<button type="submit" class="submit" name="action" value="continue">| + . $locale->text('Continue') + . qq|</button> </form> |; } - sub list_names { - CT->search(\%myconfig, \%$form); - - $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(); - - $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, terms, - taxaccount, taxnumber, gifi_accno, sic_code, business, - pricegroup, language, iban, bic, - startdate, enddate, - invnumber, invamount, invtax, invtotal, - ordnumber, ordamount, ordtax, ordtotal, - quonumber, quoamount, quotax, quototal); - unshift @columns, "ndx"; - - $form->{l_invnumber} = "Y" if $form->{l_transnumber}; - foreach $item (qw(inv ord quo)) { - if ($form->{"l_${item}number"}) { - for (qw(amount tax total)) { $form->{"l_$item$_"} = $form->{"l_$_"} } - $removeemployee = 1; - $openclosed = 1; - } - } - $form->{open} = $form->{closed} = "" if !$openclosed; - - - foreach $item (@columns) { - if ($form->{"l_$item"} eq "Y") { - push @column_index, $item; - - # add column to href and callback - $callback .= "&l_$item=Y"; - $href .= "&l_$item=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'); - } - if ($form->{status} eq 'orphaned') { - $option = $locale->text('Orphaned'); - } - if ($form->{status} eq 'active') { - $option = $locale->text('Active'); - } - if ($form->{status} eq 'inactive') { - $option = $locale->text('Inactive'); - } - - 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->{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->escape($form->{contact},1); - $href .= "&contact=".$form->escape($form->{contact}); - $option .= "\n<br>".$locale->text('Contact')." : $form->{contact}"; - } - if ($form->{employee}) { - $callback .= "&employee=".$form->escape($form->{employee},1); - $href .= "&employee=".$form->escape($form->{employee}); - $option .= "\n<br>"; - if ($form->{db} eq 'customer') { - $option .= $locale->text('Salesperson'); - } - if ($form->{db} eq 'vendor') { - $option .= $locale->text('Employee'); - } - $option .= " : $form->{employee}"; - } - - $fromdate = ""; - $todate = ""; - if ($form->{startdatefrom}) { - $callback .= "&startdatefrom=$form->{startdatefrom}"; - $href .= "&startdatefrom=$form->{startdatefrom}"; - $fromdate = $locale->date(\%myconfig, $form->{startdatefrom}, 1); - } - if ($form->{startdateto}) { - $callback .= "&startdateto=$form->{startdateto}"; - $href .= "&startdateto=$form->{startdateto}"; - $todate = $locale->date(\%myconfig, $form->{startdateto}, 1); - } - if ($fromdate || $todate) { - $option .= "\n<br>".$locale->text('Startdate')." $fromdate - $todate"; - } - - 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->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->{phone}) { - $callback .= "&phone=".$form->escape($form->{phone},1); - $href .= "&phone=".$form->escape($form->{phone}); - $option .= "\n<br>".$locale->text('Phone')." : $form->{phone}"; - } - 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{ndx} = qq|<th class=listheading> </th>|; - $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 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>|; - $column_header{terms} = qq|<th class=listheading>|.$locale->text('Terms').qq|</th>|; - - $column_header{taxnumber} = qq|<th><a class=listheading href=$href&sort=taxnumber>|.$locale->text('Tax Number').qq|</a></th>|; - $column_header{taxaccount} = qq|<th class=listheading>|.$locale->text('Tax Account').qq|</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>|; - + CT->search( \%myconfig, \%$form ); + + $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(); + + $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, terms, taxaccount, + taxnumber, gifi_accno, sic_code, business, + pricegroup, language, iban, bic, + startdate, enddate, invnumber, invamount, + invtax, invtotal, ordnumber, ordamount, + ordtax, ordtotal, quonumber, quoamount, + quotax, quototal + ); + unshift @columns, "ndx"; + + $form->{l_invnumber} = "Y" if $form->{l_transnumber}; + foreach $item (qw(inv ord quo)) { + if ( $form->{"l_${item}number"} ) { + for (qw(amount tax total)) { + $form->{"l_$item$_"} = $form->{"l_$_"}; + } + $removeemployee = 1; + $openclosed = 1; + } + } + $form->{open} = $form->{closed} = "" if !$openclosed; - if ($form->{status}) { - $label = ucfirst $form->{db}."s"; - $form->{title} = $locale->text($label); - } else { - $label = ucfirst $form->{db}; - $form->{title} = $locale->text($label ." Transactions"); - } + foreach $item (@columns) { + if ( $form->{"l_$item"} eq "Y" ) { + push @column_index, $item; + + # add column to href and callback + $callback .= "&l_$item=Y"; + $href .= "&l_$item=Y"; + } + } - $form->header; + foreach $item (qw(amount tax total transnumber)) { + if ( $form->{"l_$item"} eq "Y" ) { + $callback .= "&l_$item=Y"; + $href .= "&l_$item=Y"; + } + } - print qq| + if ( $form->{status} eq 'all' ) { + $option = $locale->text('All'); + } + if ( $form->{status} eq 'orphaned' ) { + $option = $locale->text('Orphaned'); + } + if ( $form->{status} eq 'active' ) { + $option = $locale->text('Active'); + } + if ( $form->{status} eq 'inactive' ) { + $option = $locale->text('Inactive'); + } + + 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->{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->escape( $form->{contact}, 1 ); + $href .= "&contact=" . $form->escape( $form->{contact} ); + $option .= "\n<br>" . $locale->text('Contact') . " : $form->{contact}"; + } + if ( $form->{employee} ) { + $callback .= "&employee=" . $form->escape( $form->{employee}, 1 ); + $href .= "&employee=" . $form->escape( $form->{employee} ); + $option .= "\n<br>"; + if ( $form->{db} eq 'customer' ) { + $option .= $locale->text('Salesperson'); + } + if ( $form->{db} eq 'vendor' ) { + $option .= $locale->text('Employee'); + } + $option .= " : $form->{employee}"; + } + + $fromdate = ""; + $todate = ""; + if ( $form->{startdatefrom} ) { + $callback .= "&startdatefrom=$form->{startdatefrom}"; + $href .= "&startdatefrom=$form->{startdatefrom}"; + $fromdate = $locale->date( \%myconfig, $form->{startdatefrom}, 1 ); + } + if ( $form->{startdateto} ) { + $callback .= "&startdateto=$form->{startdateto}"; + $href .= "&startdateto=$form->{startdateto}"; + $todate = $locale->date( \%myconfig, $form->{startdateto}, 1 ); + } + if ( $fromdate || $todate ) { + $option .= + "\n<br>" . $locale->text('Startdate') . " $fromdate - $todate"; + } + + 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->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->{phone} ) { + $callback .= "&phone=" . $form->escape( $form->{phone}, 1 ); + $href .= "&phone=" . $form->escape( $form->{phone} ); + $option .= "\n<br>" . $locale->text('Phone') . " : $form->{phone}"; + } + 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{ndx} = qq|<th class=listheading> </th>|; + $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 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>|; + $column_header{terms} = + qq|<th class=listheading>| . $locale->text('Terms') . qq|</th>|; + + $column_header{taxnumber} = + qq|<th><a class=listheading href=$href&sort=taxnumber>| + . $locale->text('Tax Number') + . qq|</a></th>|; + $column_header{taxaccount} = + qq|<th class=listheading>| . $locale->text('Tax Account') . qq|</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; + + print qq| <body> <table width=100%> @@ -785,155 +961,214 @@ sub list_names { <tr class=listheading> |; - for (@column_index) { print "$column_header{$_}\n" } + for (@column_index) { print "$column_header{$_}\n" } - print qq| + print qq| </tr> |; - $ordertype = ($form->{db} eq 'customer') ? 'sales_order' : 'purchase_order'; - $quotationtype = ($form->{db} eq 'customer') ? 'sales_quotation' : 'request_quotation'; - $subtotal = 0; - - $i = 0; - foreach $ref (@{ $form->{CT} }) { - - if ($ref->{$form->{sort}} ne $sameitem && $form->{l_subtotal}) { - # print subtotal - if ($subtotal) { - for (@column_index) { $column_data{$_} = "<td> </td>" } - &list_subtotal; - } - } - - if ($ref->{id} eq $sameid) { - for (@column_index) { $column_data{$_} = "<td> </td>" } - } else { - - $i++; - - $ref->{notes} =~ s/\r?\n/<br>/g; - for (@column_index) { $column_data{$_} = "<td>$ref->{$_} </td>" } - - $column_data{ndx} = "<td align=right>$i</td>"; - - if ($ref->{$form->{sort}} eq $sameitem) { - $column_data{$form->{sort}} = "<td> </td>"; - } - - $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}} 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>|; - } - } - } - } - - 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}; - $subtotal = 1; - } - - 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}; - $subtotal = 1; - } - - 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}; - $subtotal = 1; - } - - if ($sameid ne "$ref->{id}") { - if ($form->{l_discount}) { - $column_data{discount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{discount} * 100, "", " ")."</td>"; - } - if ($form->{l_terms}) { - $column_data{terms} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{terms}, "", " ")."</td>"; - } - } - - $j++; $j %= 2; - print " + $ordertype = + ( $form->{db} eq 'customer' ) ? 'sales_order' : 'purchase_order'; + $quotationtype = + ( $form->{db} eq 'customer' ) ? 'sales_quotation' : 'request_quotation'; + $subtotal = 0; + + $i = 0; + foreach $ref ( @{ $form->{CT} } ) { + + if ( $ref->{ $form->{sort} } ne $sameitem && $form->{l_subtotal} ) { + + # print subtotal + if ($subtotal) { + for (@column_index) { $column_data{$_} = "<td> </td>" } + &list_subtotal; + } + } + + if ( $ref->{id} eq $sameid ) { + for (@column_index) { $column_data{$_} = "<td> </td>" } + } + else { + + $i++; + + $ref->{notes} =~ s/\r?\n/<br>/g; + for (@column_index) { + $column_data{$_} = "<td>$ref->{$_} </td>"; + } + + $column_data{ndx} = "<td align=right>$i</td>"; + + if ( $ref->{ $form->{sort} } eq $sameitem ) { + $column_data{ $form->{sort} } = "<td> </td>"; + } + + $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} } 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>|; + } + } + } + } + + 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}; + $subtotal = 1; + } + + 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}; + $subtotal = 1; + } + + 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}; + $subtotal = 1; + } + + if ( $sameid ne "$ref->{id}" ) { + if ( $form->{l_discount} ) { + $column_data{discount} = "<td align=right>" + . $form->format_amount( \%myconfig, $ref->{discount} * 100, + "", " " ) + . "</td>"; + } + if ( $form->{l_terms} ) { + $column_data{terms} = "<td align=right>" + . $form->format_amount( \%myconfig, $ref->{terms}, "", + " " ) + . "</td>"; + } + } + + $j++; + $j %= 2; + print " <tr class=listrow$j> "; - for (@column_index) { print "$column_data{$_}\n" } + for (@column_index) { print "$column_data{$_}\n" } - print qq| + print qq| </tr> |; - - $sameitem = "$ref->{$form->{sort}}"; - $sameid = $ref->{id}; - - } - - if ($form->{l_subtotal} && $subtotal) { - for (@column_index) { $column_data{$_} = "<td> </td>" } - &list_subtotal; - } - - $i = 1; - if ($myconfig{acs} !~ /AR--AR/) { - if ($form->{db} eq 'customer') { - $button{'AR--Customers--Add Customer'}{code} = qq|<button class="submit" type="submit" name="action" value="add_customer">|.$locale->text('Add Customer').qq|</button> |; - $button{'AR--Customers--Add Customer'}{order} = $i++; - } - } - if ($myconfig{acs} !~ /AP--AP/) { - if ($form->{db} eq 'vendor') { - $button{'AP--Vendors--Add Vendor'}{code} = qq|<button class="submit" type="submit" name="action" value="add_vendor">|.$locale->text('Add Vendor').qq|</button> |; - $button{'AP--Vendors--Add Vendor'}{order} = $i++; - } - } - - foreach $item (split /;/, $myconfig{acs}) { - delete $button{$item}; - } - - print qq| + + $sameitem = "$ref->{$form->{sort}}"; + $sameid = $ref->{id}; + + } + + if ( $form->{l_subtotal} && $subtotal ) { + for (@column_index) { $column_data{$_} = "<td> </td>" } + &list_subtotal; + } + + $i = 1; + if ( $myconfig{acs} !~ /AR--AR/ ) { + if ( $form->{db} eq 'customer' ) { + $button{'AR--Customers--Add Customer'}{code} = +qq|<button class="submit" type="submit" name="action" value="add_customer">| + . $locale->text('Add Customer') + . qq|</button> |; + $button{'AR--Customers--Add Customer'}{order} = $i++; + } + } + if ( $myconfig{acs} !~ /AP--AP/ ) { + if ( $form->{db} eq 'vendor' ) { + $button{'AP--Vendors--Add Vendor'}{code} = +qq|<button class="submit" type="submit" name="action" value="add_vendor">| + . $locale->text('Add Vendor') + . qq|</button> |; + $button{'AP--Vendors--Add Vendor'}{order} = $i++; + } + } + + foreach $item ( split /;/, $myconfig{acs} ) { + delete $button{$item}; + } + + print qq| </table> </td> </tr> @@ -946,184 +1181,245 @@ sub list_names { <form method=post action=$form->{script}> |; - $form->hide_form(qw(callback db path login sessionid)); - - if ($form->{status}) { - foreach $item (sort { $a->{order} <=> $b->{order} } %button) { - print $item->{code}; + $form->hide_form(qw(callback db path login sessionid)); + + if ( $form->{status} ) { + foreach $item ( sort { $a->{order} <=> $b->{order} } %button ) { + print $item->{code}; + } } - } - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + print qq| </form> </body> </html> |; - -} +} sub list_subtotal { - $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>"; - - $invamountsubtotal = 0; - $invtaxsubtotal = 0; - $invtotalsubtotal = 0; + $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>"; + + $invamountsubtotal = 0; + $invtaxsubtotal = 0; + $invtotalsubtotal = 0; + + $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>"; + + $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; - $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>"; - - $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 " + print " <tr class=listsubtotal> "; - for (@column_index) { print "$column_data{$_}\n" } + for (@column_index) { print "$column_data{$_}\n" } - print qq| + print qq| </tr> |; - } - sub list_history { - - 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}"; - - $form->{l_fxsellprice} = $form->{l_curr}; - @columns = $form->sort_columns(partnumber, description, qty, unit, sellprice, fxsellprice, curr, discount, deliverydate, projectnumber, serialnumber); - - if ($form->{history} eq 'summary') { - @columns = $form->sort_columns(partnumber, description, qty, unit, sellprice, curr); - } - - foreach $item (@columns) { - if ($form->{"l_$item"} eq "Y") { - push @column_index, $item; - - # 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| + + 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}"; + + $form->{l_fxsellprice} = $form->{l_curr}; + @columns = $form->sort_columns( partnumber, description, qty, unit, + sellprice, fxsellprice, curr, discount, + deliverydate, projectnumber, serialnumber + ); + + if ( $form->{history} eq 'summary' ) { + @columns = + $form->sort_columns( partnumber, description, qty, unit, sellprice, + curr ); + } + + foreach $item (@columns) { + if ( $form->{"l_$item"} eq "Y" ) { + push @column_index, $item; + + # 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%> @@ -1140,109 +1436,125 @@ sub list_history { <tr class=listheading> |; - for (@column_index) { print "$column_header{$_}\n" } + for (@column_index) { print "$column_header{$_}\n" } - print qq| + 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'; + } + } + + $ml = ( $form->{db} eq 'vendor' ) ? -1 : 1; - $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'; - } - } - - $ml = ($form->{db} eq 'vendor') ? -1 : 1; - - foreach $ref (@{ $form->{CT} }) { - - if ($ref->{id} ne $sameid) { - # print the header - print qq| + 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> |; - } + } - 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| + 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 '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>|; - } + 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| + print qq| </tr> |; - } - - for (@column_index) { $column_data{$_} = "<td>$ref->{$_} </td>" } - - 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} * $ml)."</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| + } + + for (@column_index) { $column_data{$_} = "<td>$ref->{$_} </td>" } + + 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} * $ml ) . "</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> |; - for (@column_index) { print "$column_data{$_}\n" } + for (@column_index) { print "$column_data{$_}\n" } - print qq| + print qq| </tr> |; - - $sameid = $ref->{id}; - $sameinvid = $ref->{invid}; - } + $sameid = $ref->{id}; + $sameinvid = $ref->{invid}; - - print qq| + } + + print qq| </table> </td> </tr> @@ -1253,187 +1565,206 @@ sub list_history { |; - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } - print qq| + print qq| </form> </body> </html> |; - -} - +} sub edit { -# $locale->text('Edit Customer') -# $locale->text('Edit Vendor') + # $locale->text('Edit Customer') + # $locale->text('Edit Vendor') - CT->create_links(\%myconfig, \%$form); + CT->create_links( \%myconfig, \%$form ); - for (keys %$form) { $form->{$_} = $form->quote($form->{$_}) } + for ( keys %$form ) { $form->{$_} = $form->quote( $form->{$_} ) } - $form->{title} = "Edit"; + $form->{title} = "Edit"; - # format discount - $form->{discount} *= 100; - - &form_header; - &form_footer; + # 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); - $form->{discount} = $form->format_amount(\%myconfig, $form->{discount}, ""); - $form->{terms} = $form->format_amount(\%myconfig, $form->{terms}, ""); - - if ($myconfig{role} =~ /(admin|manager)/) { - $bcc = qq| + $form->{taxincluded} = ( $form->{taxincluded} ) ? "checked" : ""; + $form->{creditlimit} = + $form->format_amount( \%myconfig, $form->{creditlimit}, 0 ); + $form->{discount} = + $form->format_amount( \%myconfig, $form->{discount}, "" ); + $form->{terms} = $form->format_amount( \%myconfig, $form->{terms}, "" ); + + if ( $myconfig{role} =~ /(admin|manager)/ ) { + $bcc = qq| <tr> - <th align=right nowrap>|.$locale->text('Bcc').qq|</th> + <th align=right nowrap>| . $locale->text('Bcc') . qq|</th> <td><input name=bcc size=35 value="$form->{bcc}"></td> </tr> |; - } - - if ($form->{currencies}) { - # currencies - for (split /:/, $form->{currencies}) { $form->{selectcurrency} .= "<option>$_\n" } - $form->{selectcurrency} =~ s/option>($form->{curr})/option selected>$1/; - $currency = qq| - <th>|.$locale->text('Currency').qq|</th> + } + + if ( $form->{currencies} ) { + + # currencies + for ( split /:/, $form->{currencies} ) { + $form->{selectcurrency} .= "<option>$_\n"; + } + $form->{selectcurrency} =~ s/option>($form->{curr})/option selected>$1/; + $currency = qq| + <th>| . $locale->text('Currency') . qq|</th> <td><select name=curr>$form->{selectcurrency}</select></td> |; - } - - 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| + 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 align=right>|.$locale->text('Taxable').qq|</th> + <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> + <th align=left>| . $locale->text('Tax Included') . qq|</th> </tr> </table> </td> </tr> |; - } + } - $typeofbusiness = qq| + $typeofbusiness = qq| <th></th> <td></td> |; - if (@{ $form->{all_business} }) { - $form->{selectbusiness} = qq|<option>\n|; - for (@{ $form->{all_business} }) { $form->{selectbusiness} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } + if ( @{ $form->{all_business} } ) { + $form->{selectbusiness} = qq|<option>\n|; + for ( @{ $form->{all_business} } ) { + $form->{selectbusiness} .= +qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|; + } - $form->{selectbusiness} =~ s/(<option value="\Q$form->{business}--$form->{business_id}\E")>/$1 selected>/; + $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> + $typeofbusiness = qq| + <th align=right>| . $locale->text('Type of Business') . qq|</th> <td><select name=business>$form->{selectbusiness}</select></td> |; + } - } - - $pricegroup = qq| + $pricegroup = qq| <th></th> <td></td> |; - if (@{ $form->{all_pricegroup} } && $form->{db} eq 'customer') { - $form->{selectpricegroup} = qq|<option>\n|; - for (@{ $form->{all_pricegroup} }) { $form->{selectpricegroup} .= qq|<option value="$_->{pricegroup}--$_->{id}">$_->{pricegroup}\n| } - - $form->{selectpricegroup} =~ s/(<option value="\Q$form->{pricegroup}--$form->{pricegroup_id}\E")/$1 selected/; + if ( @{ $form->{all_pricegroup} } && $form->{db} eq 'customer' ) { + $form->{selectpricegroup} = qq|<option>\n|; + for ( @{ $form->{all_pricegroup} } ) { + $form->{selectpricegroup} .= + qq|<option value="$_->{pricegroup}--$_->{id}">$_->{pricegroup}\n|; + } - $pricegroup = qq| - <th align=right>|.$locale->text('Pricegroup').qq|</th> + $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| + } + + $lang = qq| <th></th> <td></td> |; - if (@{ $form->{all_language} }) { - $form->{selectlanguage} = qq|<option>\n|; - for (@{ $form->{all_language} }) { $form->{selectlanguage} .= qq|<option value="$_->{description}--$_->{code}">$_->{description}\n| } - - $form->{selectlanguage} =~ s/(<option value="\Q$form->{language}--$form->{language_code}\E")/$1 selected/; + if ( @{ $form->{all_language} } ) { + $form->{selectlanguage} = qq|<option>\n|; + for ( @{ $form->{all_language} } ) { + $form->{selectlanguage} .= +qq|<option value="$_->{description}--$_->{code}">$_->{description}\n|; + } - $lang = qq| - <th align=right>|.$locale->text('Language').qq|</th> + $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|; - for (@{ $form->{all_employee} }) { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } - - $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> + } + + $employeelabel = $locale->text('Salesperson'); + + $form->{selectemployee} = qq|<option>\n|; + for ( @{ $form->{all_employee} } ) { + $form->{selectemployee} .= + qq|<option value="$_->{name}--$_->{id}">$_->{name}\n|; + } + + $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'); - } - + $employeelabel = $locale->text('Employee'); + } - if (@{ $form->{all_employee} }) { - $employee = qq| + if ( @{ $form->{all_employee} } ) { + $employee = qq| <th align=right>$employeelabel</th>|; - - if ($myconfig{role} ne 'user' || !$form->{id}) { - $employee .= qq| + + if ( $myconfig{role} ne 'user' || !$form->{id} ) { + $employee .= qq| <td><select name=employee>$form->{selectemployee}</select></td> |; - } else { - $employee .= qq| + } + 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') -# $locale->text('Customer Number') -# $locale->text('Vendor Number') + $label = ucfirst $form->{db}; + $form->{title} = $locale->text("$form->{title} $label"); - $label = ucfirst $form->{db}; - $form->{title} = $locale->text("$form->{title} $label"); - - $form->header; + $form->header; - print qq| + print qq| <body> <form method=post action=$form->{script}> @@ -1450,17 +1781,19 @@ sub form_header { <td width=50%> <table width=100%> <tr class=listheading> - <th class=listheading colspan=2 width=50%>|.$locale->text('Billing Address').qq|</th> + <th class=listheading colspan=2 width=50%>| + . $locale->text('Billing Address') + . qq|</th> <tr> - <th align=right nowrap>|.$locale->text($label .' Number').qq|</th> + <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> + <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> + <th align=right nowrap>| . $locale->text('Address') . qq|</th> <td><input name=address1 size=35 maxlength=32 value="$form->{address1}"></td> </tr> <tr> @@ -1468,39 +1801,39 @@ sub form_header { <td><input name=address2 size=35 maxlength=32 value="$form->{address2}"></td> </tr> <tr> - <th align=right nowrap>|.$locale->text('City').qq|</th> + <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> + <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> + <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> + <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> + <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> + <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> + <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> + <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> + <th align=right nowrap>| . $locale->text('Cc') . qq|</th> <td><input name=cc size=35 value="$form->{cc}"></td> </tr> $bcc @@ -1509,10 +1842,12 @@ sub form_header { <td width=50%> <table width=100%> <tr> - <th class=listheading colspan=2>|.$locale->text('Shipping Address').qq|</th> + <th class=listheading colspan=2>| + . $locale->text('Shipping Address') + . qq|</th> </tr> <tr> - <td><input name=none size=35 value=|. ("=" x 35) .qq|></td> + <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> @@ -1558,32 +1893,34 @@ sub form_header { <table> $tax <tr> - <th align=right>|.$locale->text('Startdate').qq|</th> + <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> + <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>|.$locale->text('Credit Limit').qq|</th> + <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> + <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>|.$locale->text('Tax Number / SSN').qq|</th> + <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> + <th align=right>| . $locale->text('SIC') . qq|</th> <td><input name=sic_code size=6 maxlength=6 value="$form->{sic_code}"></td> </tr> <tr> $typeofbusiness - <th align=right>|.$locale->text('BIC').qq|</th> + <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> + <th align=right>| . $locale->text('IBAN') . qq|</th> <td><input name=iban size=24 maxlength=34 value="$form->{iban}"></td> </tr> <tr> @@ -1596,7 +1933,7 @@ sub form_header { <td colspan=4> <table> <tr valign=top> - <th align=left nowrap>|.$locale->text('Notes').qq|</th> + <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> @@ -1613,129 +1950,139 @@ sub form_header { } +sub form_footer { + # type=submit $locale->text('Save') + # type=submit $locale->text('Save as new') + # type=submit $locale->text('AR Transaction') + # type=submit $locale->text('Sales Invoice') + # type=submit $locale->text('Sales Order') + # type=submit $locale->text('Quotation') + # type=submit $locale->text('AP Transaction') + # type=submit $locale->text('Vendor Invoice') + # type=submit $locale->text('Purchase Order') + # type=submit $locale->text('RFQ') + # type=submit $locale->text('Pricelist') + # type=submit $locale->text('Delete') + # type=submit $locale->text('POS') + + %button = ( + 'save' => { ndx => 1, key => 'S', value => $locale->text('Save') }, + 'save_as_new' => + { ndx => 2, key => 'N', value => $locale->text('Save as new') }, + 'ar_transaction' => + { ndx => 7, key => 'A', value => $locale->text('AR Transaction') }, + 'ap_transaction' => + { ndx => 8, key => 'A', value => $locale->text('AP Transaction') }, + 'sales_invoice' => + { ndx => 9, key => 'I', value => $locale->text('Sales Invoice') }, + 'pos' => { ndx => 10, key => 'C', value => $locale->text('POS') }, + 'sales_order' => + { ndx => 11, key => 'O', value => $locale->text('Sales Order') }, + 'quotation' => + { ndx => 12, key => 'Q', value => $locale->text('Quotation') }, + 'vendor_invoice' => + { ndx => 13, key => 'I', value => $locale->text('Vendor Invoice') }, + 'purchase_order' => + { ndx => 14, key => 'O', value => $locale->text('Purchase Order') }, + 'rfq' => { ndx => 15, key => 'Q', value => $locale->text('RFQ') }, + 'pricelist' => + { ndx => 16, key => 'P', value => $locale->text('Pricelist') }, + 'delete' => { ndx => 17, key => 'D', value => $locale->text('Delete') }, + ); + + %a = (); + + if ( $form->{db} eq 'customer' ) { + if ( $myconfig{acs} !~ /AR--Customers--Add Customer/ ) { + $a{'save'} = 1; + + if ( $form->{id} ) { + $a{'save_as_new'} = 1; + if ( $form->{status} eq 'orphaned' ) { + $a{'delete'} = 1; + } + } + } + + if ( $myconfig{acs} !~ /AR--AR/ ) { + if ( $myconfig{acs} !~ /AR--Add Transaction/ ) { + $a{'ar_transaction'} = 1; + } + if ( $myconfig{acs} !~ /AR--Sales Invoice/ ) { + $a{'sales_invoice'} = 1; + } + } + if ( $myconfig{acs} !~ /POS--POS/ ) { + if ( $myconfig{acs} !~ /POS--Sale/ ) { + $a{'pos'} = 1; + } + } + if ( $myconfig{acs} !~ /Order Entry--Order Entry/ ) { + if ( $myconfig{acs} !~ /Order Entry--Sales Order/ ) { + $a{'sales_order'} = 1; + } + } + if ( $myconfig{acs} !~ /Quotations--Quotations/ ) { + if ( $myconfig{acs} !~ /Quotations--Quotation/ ) { + $a{'quotation'} = 1; + } + } + } -sub form_footer { + if ( $form->{db} eq 'vendor' ) { + if ( $myconfig{acs} !~ /AP--Vendors--Add Vendor/ ) { + $a{'save'} = 1; + + if ( $form->{id} ) { + $a{'save_as_new'} = 1; + if ( $form->{status} eq 'orphaned' ) { + $a{'delete'} = 1; + } + } + } + + if ( $myconfig{acs} !~ /AP--AP/ ) { + if ( $myconfig{acs} !~ /AP--Add Transaction/ ) { + $a{'ap_transaction'} = 1; + } + if ( $myconfig{acs} !~ /AP--Vendor Invoice/ ) { + $a{'vendor_invoice'} = 1; + } + } + if ( $myconfig{acs} !~ /Order Entry--Order Entry/ ) { + if ( $myconfig{acs} !~ /Order Entry--Purchase Order/ ) { + $a{'purchase_order'} = 1; + } + } + if ( $myconfig{acs} !~ /Quotations--Quotations/ ) { + if ( $myconfig{acs} !~ /Quotations--RFQ/ ) { + $a{'rfq'} = 1; + } + } + } -# type=submit $locale->text('Save') -# type=submit $locale->text('Save as new') -# type=submit $locale->text('AR Transaction') -# type=submit $locale->text('Sales Invoice') -# type=submit $locale->text('Sales Order') -# type=submit $locale->text('Quotation') -# type=submit $locale->text('AP Transaction') -# type=submit $locale->text('Vendor Invoice') -# type=submit $locale->text('Purchase Order') -# type=submit $locale->text('RFQ') -# type=submit $locale->text('Pricelist') -# type=submit $locale->text('Delete') -# type=submit $locale->text('POS') - - %button = ('save' => { ndx => 1, key => 'S', value => $locale->text('Save') }, - 'save_as_new' => { ndx => 2, key => 'N', value => $locale->text('Save as new') }, - 'ar_transaction' => { ndx => 7, key => 'A', value => $locale->text('AR Transaction') }, - 'ap_transaction' => { ndx => 8, key => 'A', value => $locale->text('AP Transaction') }, - 'sales_invoice' => { ndx => 9, key => 'I', value => $locale->text('Sales Invoice') }, - 'pos' => { ndx => 10, key => 'C', value => $locale->text('POS') }, - 'sales_order' => { ndx => 11, key => 'O', value => $locale->text('Sales Order') }, - 'quotation' => { ndx => 12, key => 'Q', value => $locale->text('Quotation') }, - 'vendor_invoice' => { ndx => 13, key => 'I', value => $locale->text('Vendor Invoice') }, - 'purchase_order' => { ndx => 14, key => 'O', value => $locale->text('Purchase Order') }, - 'rfq' => { ndx => 15, key => 'Q', value => $locale->text('RFQ') }, - 'pricelist' => { ndx => 16, key => 'P', value => $locale->text('Pricelist') }, - 'delete' => { ndx => 17, key => 'D', value => $locale->text('Delete') }, - ); - - - %a = (); - - if ($form->{db} eq 'customer') { - if ($myconfig{acs} !~ /AR--Customers--Add Customer/) { - $a{'save'} = 1; - - if ($form->{id}) { - $a{'save_as_new'} = 1; - if ($form->{status} eq 'orphaned') { - $a{'delete'} = 1; - } - } - } - - if ($myconfig{acs} !~ /AR--AR/) { - if ($myconfig{acs} !~ /AR--Add Transaction/) { - $a{'ar_transaction'} = 1; - } - if ($myconfig{acs} !~ /AR--Sales Invoice/) { - $a{'sales_invoice'} = 1; - } - } - if ($myconfig{acs} !~ /POS--POS/) { - if ($myconfig{acs} !~ /POS--Sale/) { - $a{'pos'} = 1; - } - } - if ($myconfig{acs} !~ /Order Entry--Order Entry/) { - if ($myconfig{acs} !~ /Order Entry--Sales Order/) { - $a{'sales_order'} = 1; - } - } - if ($myconfig{acs} !~ /Quotations--Quotations/) { - if ($myconfig{acs} !~ /Quotations--Quotation/) { - $a{'quotation'} = 1; - } - } - } - - if ($form->{db} eq 'vendor') { - if ($myconfig{acs} !~ /AP--Vendors--Add Vendor/) { - $a{'save'} = 1; - - if ($form->{id}) { - $a{'save_as_new'} = 1; - if ($form->{status} eq 'orphaned') { - $a{'delete'} = 1; - } - } + if ( $myconfig{acs} !~ /Goods & Services--Goods & Services/ ) { + $myconfig{acs} =~ + s/(Goods & Services--)Add (Service|Assembly).*;/$1--Add Part/g; + if ( $myconfig{acs} !~ /Goods & Services--Add Part/ ) { + $a{'pricelist'} = 1; + } } - - if ($myconfig{acs} !~ /AP--AP/) { - if ($myconfig{acs} !~ /AP--Add Transaction/) { - $a{'ap_transaction'} = 1; - } - if ($myconfig{acs} !~ /AP--Vendor Invoice/) { - $a{'vendor_invoice'} = 1; - } - } - if ($myconfig{acs} !~ /Order Entry--Order Entry/) { - if ($myconfig{acs} !~ /Order Entry--Purchase Order/) { - $a{'purchase_order'} = 1; - } - } - if ($myconfig{acs} !~ /Quotations--Quotations/) { - if ($myconfig{acs} !~ /Quotations--RFQ/) { - $a{'rfq'} = 1; - } - } - } - - if ($myconfig{acs} !~ /Goods & Services--Goods & Services/) { - $myconfig{acs} =~ s/(Goods & Services--)Add (Service|Assembly).*;/$1--Add Part/g; - if ($myconfig{acs} !~ /Goods & Services--Add Part/) { - $a{'pricelist'} = 1; - } - } - - $form->hide_form(qw(id taxaccounts path login sessionid callback db)); - - for (keys %button) { delete $button{$_} if ! $a{$_} } - for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } - - if ($form->{lynx}) { - require "bin/menu.pl"; - &menubar; - } - - print qq| + + $form->hide_form(qw(id taxaccounts path login sessionid callback db)); + + for ( keys %button ) { delete $button{$_} if !$a{$_} } + for ( sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button ) { + $form->print_button( \%button, $_ ); + } + + if ( $form->{lynx} ) { + require "bin/menu.pl"; + &menubar; + } + + print qq| </form> @@ -1745,183 +2092,197 @@ sub form_footer { } - sub pricelist { - $form->isblank("name", $locale->text('Name missing!')); + $form->isblank( "name", $locale->text('Name missing!') ); - $form->{display_form} ||= "display_pricelist"; + $form->{display_form} ||= "display_pricelist"; - CT->pricelist(\%myconfig, \%$form); + CT->pricelist( \%myconfig, \%$form ); - foreach $ref (@{ $form->{"all_partspricelist"} }) { - $i++; - for (keys %$ref) { $form->{"${_}_$i"} = $ref->{$_} } - } - $form->{rowcount} = $i; + foreach $ref ( @{ $form->{"all_partspricelist"} } ) { + $i++; + for ( keys %$ref ) { $form->{"${_}_$i"} = $ref->{$_} } + } + $form->{rowcount} = $i; + + # currencies + @curr = split /:/, $form->{currencies}; + for (@curr) { $form->{selectcurrency} .= "<option>$_\n" } + + if ( @{ $form->{all_partsgroup} } ) { + $form->{selectpartsgroup} = ""; + foreach $ref ( @{ $form->{all_partsgroup} } ) { + $form->{selectpartsgroup} .= qq|$ref->{partsgroup}--$ref->{id}\n|; + } + } - # currencies - @curr = split /:/, $form->{currencies}; - for (@curr) { $form->{selectcurrency} .= "<option>$_\n" } - - if (@ { $form->{all_partsgroup} }) { - $form->{selectpartsgroup} = ""; - foreach $ref (@ { $form->{all_partsgroup} }) { - $form->{selectpartsgroup} .= qq|$ref->{partsgroup}--$ref->{id}\n|; + for (qw(currencies all_partsgroup all_partspricelist)) { + delete $form->{$_}; } - } - for (qw(currencies all_partsgroup all_partspricelist)) { delete $form->{$_} } + foreach $i ( 1 .. $form->{rowcount} ) { - foreach $i (1 .. $form->{rowcount}) { - - if ($form->{db} eq 'customer') { - - $form->{"pricebreak_$i"} = $form->format_amount(\%myconfig, $form->{"pricebreak_$i"}); + if ( $form->{db} eq 'customer' ) { - $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, 2); - - } - - if ($form->{db} eq 'vendor') { - - $form->{"leadtime_$i"} = $form->format_amount(\%myconfig, $form->{"leadtime_$i"}); - - $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, 2); - + $form->{"pricebreak_$i"} = + $form->format_amount( \%myconfig, $form->{"pricebreak_$i"} ); + + $form->{"sellprice_$i"} = + $form->format_amount( \%myconfig, $form->{"sellprice_$i"}, 2 ); + + } + + if ( $form->{db} eq 'vendor' ) { + + $form->{"leadtime_$i"} = + $form->format_amount( \%myconfig, $form->{"leadtime_$i"} ); + + $form->{"lastcost_$i"} = + $form->format_amount( \%myconfig, $form->{"lastcost_$i"}, 2 ); + + } } - } - $form->{rowcount}++; - &{ "$form->{db}_pricelist" }; - + $form->{rowcount}++; + &{"$form->{db}_pricelist"}; + } - sub customer_pricelist { - @flds = qw(runningnumber id partnumber description sellprice unit partsgroup pricebreak curr validfrom validto); + @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} ) { + + for (qw(pricebreak sellprice)) { + $form->{"${_}_$i"} = + $form->parse_amount( \%myconfig, $form->{"${_}_$i"} ); + } + + ( $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; - $form->{rowcount}--; - - # remove empty rows - if ($form->{rowcount}) { + foreach $i ( 1 .. $form->{rowcount} ) { + ( $a, $b ) = split /\./, $form->{"pricebreak_$i"}; - foreach $i (1 .. $form->{rowcount}) { + $a = substr( "$pad1$a", -$whole ); + $b = substr( "$b$pad2", 0, $dec ); + $ndx{qq|$form->{"partnumber_$i"}_$form->{"id_$i"}_$a$b|} = $i; + } + + $i = 1; + for ( sort keys %ndx ) { $form->{"runningnumber_$ndx{$_}"} = $i++ } + + 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; + + for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} } + $count++; + } + $sameid = $form->{"id_$i"}; + } + + $form->redo_rows( \@flds, \@a, $count, $form->{rowcount} ); + $form->{rowcount} = $count; - for (qw(pricebreak sellprice)) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } - - ($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; + $form->{rowcount}++; + + if ( $form->{display_form} ) { + &{"$form->{display_form}"}; } - - $i = 1; - for (sort keys %ndx) { $form->{"runningnumber_$ndx{$_}"} = $i++ } - - 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; - - for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} } - $count++; - } - $sameid = $form->{"id_$i"}; - } - - $form->redo_rows(\@flds, \@a, $count, $form->{rowcount}); - $form->{rowcount} = $count; - - } - - $form->{rowcount}++; - - if ($form->{display_form}) { - &{ "$form->{display_form}" }; - } } - sub vendor_pricelist { - @flds = qw(runningnumber id sku partnumber description lastcost unit partsgroup curr leadtime); + @flds = + qw(runningnumber id sku partnumber description lastcost unit partsgroup curr leadtime); - $form->{rowcount}--; - - # remove empty rows - if ($form->{rowcount}) { + $form->{rowcount}--; - foreach $i (1 .. $form->{rowcount}) { + # remove empty rows + if ( $form->{rowcount} ) { - for (qw(leadtime lastcost)) { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } - $var = ($form->{"partnumber_$i"}) ? $form->{"sku_$i"} : qq|_$form->{"sku_$i"}|; - $ndx{$var} = $i; - - } + foreach $i ( 1 .. $form->{rowcount} ) { - $i = 1; - for (sort keys %ndx) { $form->{"runningnumber_$ndx{$_}"} = $i++ } + for (qw(leadtime lastcost)) { + $form->{"${_}_$i"} = + $form->parse_amount( \%myconfig, $form->{"${_}_$i"} ); + } + $var = + ( $form->{"partnumber_$i"} ) + ? $form->{"sku_$i"} + : qq|_$form->{"sku_$i"}|; + $ndx{$var} = $i; - foreach $i (1 .. $form->{rowcount}) { - if ($form->{"sku_$i"}) { - push @a, {}; - $j = $#a; + } - for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} } - $count++; - } - } - - $form->redo_rows(\@flds, \@a, $count, $form->{rowcount}); - $form->{rowcount} = $count; + $i = 1; + for ( sort keys %ndx ) { $form->{"runningnumber_$ndx{$_}"} = $i++ } - } + foreach $i ( 1 .. $form->{rowcount} ) { + if ( $form->{"sku_$i"} ) { + push @a, {}; + $j = $#a; - $form->{rowcount}++; + for (@flds) { $a[$j]->{$_} = $form->{"${_}_$i"} } + $count++; + } + } - if ($form->{display_form}) { - &{ "$form->{display_form}" }; - } + $form->redo_rows( \@flds, \@a, $count, $form->{rowcount} ); + $form->{rowcount} = $count; -} + } + $form->{rowcount}++; + + if ( $form->{display_form} ) { + &{"$form->{display_form}"}; + } -sub display_pricelist { - - &pricelist_header; - delete $form->{action}; - $form->hide_form; - &pricelist_footer; - } +sub display_pricelist { + + &pricelist_header; + delete $form->{action}; + $form->hide_form; + &pricelist_footer; + +} sub pricelist_header { - - $form->{title} = $form->{name}; - - $form->header; - print qq| + $form->{title} = $form->{name}; + + $form->header; + + print qq| <body> <form method=post action="$form->{script}"> @@ -1933,133 +2294,181 @@ sub pricelist_header { <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); - + 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>|; + } - $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>|; - } + 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>|; + $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| + print qq| <tr> <td> <table width=100%> <tr class=listheading> |; - for (@column_index) { print "\n$column_header{$_}" } - - print qq| + for (@column_index) { print "\n$column_header{$_}" } + + 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->quote($form->{"partsgroup_$i"}).qq|">|; - } - } - - - if ($i < $form->{rowcount}) { - - if ($form->{"id_$i"} eq $sameid) { - for (qw(partnumber description partsgroup)) { $column_data{$_} = qq|<td> </td> - <input type=hidden name="${_}_$i" value="|.$form->quote($form->{"${_}_$i"}).qq|">| } - } 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| + $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->quote( $form->{"partsgroup_$i"} ) . qq|">|; + } + } + + if ( $i < $form->{rowcount} ) { + + if ( $form->{"id_$i"} eq $sameid ) { + for (qw(partnumber description partsgroup)) { + $column_data{$_} = qq|<td> </td> + <input type=hidden name="${_}_$i" value="| + . $form->quote( $form->{"${_}_$i"} ) . qq|">|; + } + } + 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| + + } + 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}) { - $selectpartsgroup = "<option>"; - foreach $line (split /\n/, $form->{selectpartsgroup}) { - $selectpartsgroup .= qq|\n<option value="|.$form->quote($line).qq|">| .(split /--/, $line)[0]; - } - $column_data{partsgroup} = qq|<td><select name="partsgroup_$i">$selectpartsgroup</select></td>|; - } - - } - - - if ($form->{db} eq 'customer') { - - $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"}, 2).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') { - $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"}, 2).qq|></td>|; - } - - - $column_data{curr} = qq|<td><select name="curr_$i">$selectcurrency</select></td>|; - - - print qq|<tr valign=top>|; - - for (@column_index) { print "\n$column_data{$_}" } - print qq|</tr>|; + $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} ) { + $selectpartsgroup = "<option>"; + foreach $line ( split /\n/, $form->{selectpartsgroup} ) { + $selectpartsgroup .= + qq|\n<option value="| + . $form->quote($line) . qq|">| + . ( split /--/, $line )[0]; + } + $column_data{partsgroup} = +qq|<td><select name="partsgroup_$i">$selectpartsgroup</select></td>|; + } + + } + + if ( $form->{db} eq 'customer' ) { + + $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"}, 2 ) + . 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' ) { + $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"}, 2 ) + . qq|></td>|; + } + + $column_data{curr} = + qq|<td><select name="curr_$i">$selectcurrency</select></td>|; + + print qq|<tr valign=top>|; + + for (@column_index) { print "\n$column_data{$_}" } + + print qq|</tr>|; + + $sameid = $form->{"id_$i"}; - $sameid = $form->{"id_$i"}; + } - } - - print qq| + print qq| </table> </td> </tr> @@ -2069,136 +2478,167 @@ sub pricelist_header { </table> |; - # delete variables - foreach $i (1 .. $form->{rowcount}) { - for (@column_index, "id") { delete $form->{"${_}_$i"} } - } - for (qw(title titlebar script none)) { delete $form->{$_} } + # delete variables + foreach $i ( 1 .. $form->{rowcount} ) { + for ( @column_index, "id" ) { delete $form->{"${_}_$i"} } + } + for (qw(title titlebar script none)) { delete $form->{$_} } } - sub pricelist_footer { -# type=submit $locale->text('Update') -# type=submit $locale->text('Save Pricelist') + # type=submit $locale->text('Update') + # type=submit $locale->text('Save Pricelist') + + %button = ( + 'update' => { ndx => 1, key => 'U', value => $locale->text('Update') }, + 'save_pricelist' => + { ndx => 3, key => 'S', value => $locale->text('Save Pricelist') }, + ); - %button = ('update' => { ndx => 1, key => 'U', value => $locale->text('Update') }, - 'save_pricelist' => { ndx => 3, key => 'S', value => $locale->text('Save Pricelist') }, - ); - - for (sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button) { $form->print_button(\%button, $_) } - - print qq| + for ( sort { $button{$a}->{ndx} <=> $button{$b}->{ndx} } keys %button ) { + $form->print_button( \%button, $_ ); + } + + print qq| </form> </body> </html> -|; +|; } - sub update { - - $i = $form->{rowcount}; - $additem = 0; - - 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"}; - } - } - - 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"}; - - for (qw(partnumber description)) { $form->{item_list}[0]{$_} = $form->quote($form->{item_list}[0]{$_}) } - for (keys %{ $form->{item_list}[0] }) { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } - - if ($form->{db} eq 'customer') { - - if ($sellprice) { - $form->{"sellprice_$i"} = $sellprice; - } - - $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, 2); - - $form->{"pricebreak_$i"} = $pricebreak; - - } else { - - foreach $j (1 .. $form->{rowcount} - 1) { - if ($form->{"sku_$j"} eq $form->{"partnumber_$i"}) { - $form->error($locale->text('Item already on pricelist!')); - } - } - - if ($lastcost) { - $form->{"lastcost_$i"} = $lastcost; - } - - $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, 2); - - $form->{"sku_$i"} = $form->{"partnumber_$i"}; -# delete $form->{"partnumber_$i"}; - - } - - $form->{rowcount}++; - - } - - } else { - - $form->error($locale->text('Item not on file!')); - - } - } - - &{ "$form->{db}_pricelist" }; - -} + $i = $form->{rowcount}; + $additem = 0; + 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"}; + } + } + + 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"}; + + for (qw(partnumber description)) { + $form->{item_list}[0]{$_} = + $form->quote( $form->{item_list}[0]{$_} ); + } + for ( keys %{ $form->{item_list}[0] } ) { + $form->{"${_}_$i"} = $form->{item_list}[0]{$_}; + } + + if ( $form->{db} eq 'customer' ) { + + if ($sellprice) { + $form->{"sellprice_$i"} = $sellprice; + } + + $form->{"sellprice_$i"} = + $form->format_amount( \%myconfig, $form->{"sellprice_$i"}, + 2 ); + + $form->{"pricebreak_$i"} = $pricebreak; + + } + else { + + foreach $j ( 1 .. $form->{rowcount} - 1 ) { + if ( $form->{"sku_$j"} eq $form->{"partnumber_$i"} ) { + $form->error( + $locale->text('Item already on pricelist!') ); + } + } + + if ($lastcost) { + $form->{"lastcost_$i"} = $lastcost; + } + + $form->{"lastcost_$i"} = + $form->format_amount( \%myconfig, $form->{"lastcost_$i"}, + 2 ); + + $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 items'); - - print qq| + @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 items'); + + print qq| <body> <form method=post action="$form->{script}"> @@ -2216,42 +2656,58 @@ sub select_item { <table width=100%> <tr class=listheading>|; - for (@column_index) { print "\n$column_data{$_}" } + for (@column_index) { print "\n$column_data{$_}" } - print qq| + print qq| </tr> |; - my $i = 0; - foreach $ref (@{ $form->{item_list} }) { - $i++; + my $i = 0; + foreach $ref ( @{ $form->{item_list} } ) { + $i++; - for (qw(partnumber description unit)) { $ref->{$_} = $form->quote($ref->{$_}) } - - $column_data{ndx} = qq|<td><input name="ndx_$i" class=checkbox type=checkbox value=$i></td>|; + for (qw(partnumber description unit)) { + $ref->{$_} = $form->quote( $ref->{$_} ); + } - for (qw(partnumber description partsgroup unit)) { $column_data{$_} = qq|<td>$ref->{$_} </td>| } + $column_data{ndx} = +qq|<td><input name="ndx_$i" class=checkbox type=checkbox value=$i></td>|; - $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>|; + for (qw(partnumber description partsgroup unit)) { + $column_data{$_} = qq|<td>$ref->{$_} </td>|; + } - $j++; $j %= 2; + $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>|; - print qq| + $j++; + $j %= 2; + + print qq| <tr class=listrow$j>|; - for (@column_index) { print "\n$column_data{$_}" } + for (@column_index) { print "\n$column_data{$_}" } - print qq| + print qq| </tr> |; - for (qw(partnumber description partsgroup partsgroup_id sellprice lastcost unit id)) { - print qq|<input type=hidden name="new_${_}_$i" value="$ref->{$_}">\n|; + for ( + qw(partnumber description partsgroup partsgroup_id sellprice lastcost unit id) + ) + { + print + qq|<input type=hidden name="new_${_}_$i" value="$ref->{$_}">\n|; + } } - } - print qq| + print qq| </table> </td> </tr> @@ -2264,18 +2720,20 @@ sub select_item { |; - # delete action variable - for (qw(nextsub item_list)) { delete $form->{$_} } - - $form->{action} = "item_selected"; + # delete action variable + for (qw(nextsub item_list)) { delete $form->{$_} } - $form->hide_form; + $form->{action} = "item_selected"; - print qq| + $form->hide_form; + + print qq| <input type="hidden" name="nextsub" value="item_selected"> <br> -<button class="submit" type="submit" name="action" value="continue">|.$locale->text('Continue').qq|</button> +<button class="submit" type="submit" name="action" value="continue">| + . $locale->text('Continue') + . qq|</button> </form> </body> @@ -2283,212 +2741,203 @@ sub select_item { |; } +sub item_selected { + # add rows + $i = $form->{rowcount}; -sub item_selected { + %id = (); + for $i ( 1 .. $form->{rowcount} - 1 ) { + $id{ $form->{"id_$i"} } = 1; + } - # add rows - $i = $form->{rowcount}; + for $j ( 1 .. $form->{lastndx} ) { - %id = (); - for $i (1 .. $form->{rowcount} - 1) { - $id{$form->{"id_$i"}} = 1; - } - - for $j (1 .. $form->{lastndx}) { - - if ($form->{"ndx_$j"}) { - - if ($id{$form->{"new_id_$j"}}) { - next if $form->{db} eq 'vendor'; - } - - for (qw(id partnumber description unit sellprice lastcost)) { - $form->{"${_}_$i"} = $form->{"new_${_}_$j"}; - } - - $form->{"partsgroup_$i"} = qq|$form->{"new_partsgroup_$j"}--$form->{"new_partsgroup_id_$j"}|; - $form->{"sku_$i"} = $form->{"new_partnumber_$j"}; - - $i++; - + if ( $form->{"ndx_$j"} ) { + + if ( $id{ $form->{"new_id_$j"} } ) { + next if $form->{db} eq 'vendor'; + } + + for (qw(id partnumber description unit sellprice lastcost)) { + $form->{"${_}_$i"} = $form->{"new_${_}_$j"}; + } + + $form->{"partsgroup_$i"} = + qq|$form->{"new_partsgroup_$j"}--$form->{"new_partsgroup_id_$j"}|; + $form->{"sku_$i"} = $form->{"new_partnumber_$j"}; + + $i++; + + } } - } - $form->{rowcount} = $i; - - # delete all the new_ variables - for $i (1 .. $form->{lastndx}) { - for (qw(id partnumber description unit sellprice lastcost partsgroup partsgroup_id)) { delete $form->{"new_${_}_$i"} } - delete $form->{"ndx_$i"}; - } - - for (qw(ndx lastndx nextsub)) { delete $form->{$_} } + $form->{rowcount} = $i; + + # delete all the new_ variables + for $i ( 1 .. $form->{lastndx} ) { + for ( + qw(id partnumber description unit sellprice lastcost partsgroup partsgroup_id) + ) + { + delete $form->{"new_${_}_$i"}; + } + delete $form->{"ndx_$i"}; + } + + for (qw(ndx lastndx nextsub)) { delete $form->{$_} } - &{ "$form->{db}_pricelist" }; + &{"$form->{db}_pricelist"}; } +sub save_pricelist { + &{"CT::save_$form->{db}"}( "", \%myconfig, \%$form ); - -sub save_pricelist { - - &{ "CT::save_$form->{db}" }("", \%myconfig, \%$form); - - $callback = $form->{callback}; - $form->{callback} = "$form->{script}?action=edit"; - for (qw(db id login path sessionid)) { $form->{callback} .= "&$_=$form->{$_}" } - $form->{callback} .= "&callback=".$form->escape($callback,1); - - if (CT->save_pricelist(\%myconfig, \%$form)) { - $form->redirect; - } else { - $form->error($locale->text('Could not save pricelist!')); - } + $callback = $form->{callback}; + $form->{callback} = "$form->{script}?action=edit"; + for (qw(db id login path sessionid)) { + $form->{callback} .= "&$_=$form->{$_}"; + } + $form->{callback} .= "&callback=" . $form->escape( $callback, 1 ); + + if ( CT->save_pricelist( \%myconfig, \%$form ) ) { + $form->redirect; + } + else { + $form->error( $locale->text('Could not save pricelist!') ); + } } +sub add_transaction { + + $form->isblank( "name", $locale->text("Name missing!") ); + &{"CT::save_$form->{db}"}( "", \%myconfig, \%$form ); -sub add_transaction { - - $form->isblank("name", $locale->text("Name missing!")); + $form->{callback} = $form->escape( $form->{callback}, 1 ); + $name = $form->escape( $form->{name}, 1 ); - &{ "CT::save_$form->{db}" }("", \%myconfig, \%$form); - - $form->{callback} = $form->escape($form->{callback},1); - $name = $form->escape($form->{name},1); + $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}"; - $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}"; + $form->redirect; - $form->redirect; - } sub ap_transaction { - $form->{script} = "ap.pl"; - $form->{type} = "ap_transaction"; - &add_transaction; + $form->{script} = "ap.pl"; + $form->{type} = "ap_transaction"; + &add_transaction; } - sub ar_transaction { - $form->{script} = "ar.pl"; - $form->{type} = "ar_transaction"; - &add_transaction; + $form->{script} = "ar.pl"; + $form->{type} = "ar_transaction"; + &add_transaction; } - sub sales_invoice { - $form->{script} = "is.pl"; - $form->{type} = "invoice"; - &add_transaction; - -} + $form->{script} = "is.pl"; + $form->{type} = "invoice"; + &add_transaction; +} sub pos { - - $form->{script} = "ps.pl"; - $form->{type} = "pos_invoice"; - &add_transaction; -} + $form->{script} = "ps.pl"; + $form->{type} = "pos_invoice"; + &add_transaction; +} sub vendor_invoice { - $form->{script} = "ir.pl"; - $form->{type} = "invoice"; - &add_transaction; - -} + $form->{script} = "ir.pl"; + $form->{type} = "invoice"; + &add_transaction; +} sub rfq { - $form->{script} = "oe.pl"; - $form->{type} = "request_quotation"; - &add_transaction; + $form->{script} = "oe.pl"; + $form->{type} = "request_quotation"; + &add_transaction; } - sub quotation { - - $form->{script} = "oe.pl"; - $form->{type} = "sales_quotation"; - &add_transaction; -} + $form->{script} = "oe.pl"; + $form->{type} = "sales_quotation"; + &add_transaction; +} sub sales_order { - - $form->{script} = "oe.pl"; - $form->{type} = "sales_order"; - &add_transaction; -} + $form->{script} = "oe.pl"; + $form->{type} = "sales_order"; + &add_transaction; +} sub purchase_order { - $form->{script} = "oe.pl"; - $form->{type} = "purchase_order"; - &add_transaction; - -} + $form->{script} = "oe.pl"; + $form->{type} = "purchase_order"; + &add_transaction; +} sub save_as_new { - - delete $form->{id}; - &save; - -} + delete $form->{id}; + &save; + +} sub save { -# $locale->text('Customer saved!') -# $locale->text('Vendor saved!') - - $msg = ucfirst $form->{db}; - $msg .= " saved!"; - - $form->isblank("name", $locale->text("Name missing!")); - &{ "CT::save_$form->{db}" }("", \%myconfig, \%$form); - - $form->redirect($locale->text($msg)); - -} + # $locale->text('Customer saved!') + # $locale->text('Vendor saved!') + $msg = ucfirst $form->{db}; + $msg .= " saved!"; -sub delete { + $form->isblank( "name", $locale->text("Name missing!") ); + &{"CT::save_$form->{db}"}( "", \%myconfig, \%$form ); + + $form->redirect( $locale->text($msg) ); -# $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)); - } +sub delete { + + # $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) ); + +} -sub continue { &{ $form->{nextsub} } }; +sub continue { &{ $form->{nextsub} } } -sub add_customer { &add }; -sub add_vendor { &add }; +sub add_customer { &add } +sub add_vendor { &add } |