- <td colspan=2>|
- . $locale->text(
- 'Enter up to 3 letters separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies'
- )
- . qq|<br><input name=curr size=40 value="$form->{defaults}{curr}"></td>
- </tr>
- </table>
- </td>
- </tr>
- <tr>
- <td colspan=2>
- <table width=100%>
- <tr>
- <th align=right nowrap>| . $locale->text('Last Invoice Number') . qq|</th>
- <td><input name=invnumber size=10 value=$form->{defaults}{invnumber}></td>
- <th align=right nowrap>|
- . $locale->text('Last Customer Number') . qq|</th>
- <td><input name=customernumber size=10 value=$form->{defaults}{customernumber}></td>
- </tr>
- <tr>
- <th align=right nowrap>|
- . $locale->text('Last Credit Note Number') . qq|</th>
- <td><input name=cnnumber size=10 value=$form->{defaults}{cnnumber}></td>
- <th align=right nowrap>|
- . $locale->text('Last Vendor Number') . qq|</th>
- <td><input name=vendornumber size=10 value=$form->{defaults}{vendornumber}></td>
- </tr>
- <tr>
- <th align=right nowrap>|
- . $locale->text('Last Sales Order Number') . qq|</th>
- <td><input name=sonumber size=10 value=$form->{defaults}{sonumber}></td>
- </tr>
- <tr>
- <th align=right nowrap>|
- . $locale->text('Last Purchase Order Number') . qq|</th>
- <td><input name=ponumber size=10 value=$form->{defaults}{ponumber}></td>
- <th align=right nowrap>|
- . $locale->text('Last Article Number') . qq|</th>
- <td><input name=articlenumber size=10 value=$form->{defaults}{articlenumber}></td>
- </tr>
- <tr>
- <th align=right nowrap>|
- . $locale->text('Last Sales Quotation Number') . qq|</th>
- <td><input name=sqnumber size=10 value=$form->{defaults}{sqnumber}></td>
- <th align=right nowrap>|
- . $locale->text('Last Service Number') . qq|</th>
- <td><input name=servicenumber size=10 value=$form->{defaults}{servicenumber}></td>
- </tr>
- <tr>
- <th align=right nowrap>| . $locale->text('Last RFQ Number') . qq|</th>
- <td><input name=rfqnumber size=10 value=$form->{defaults}{rfqnumber}></td>
- <th align=right nowrap></th>
- <td></td>
- </tr>
- </table>
- </td>
- </tr>
- <tr class=listheading>
- <th colspan=2>| . $locale->text('Tax Accounts') . qq|</th>
- </tr>
- <tr>
- <td colspan=2>
- <table>
- <tr>
- <th> </th>
- <th>| . $locale->text('Rate') . qq| (%)</th>
- <th>| . $locale->text('Number') . qq|</th>
- </tr>
-|;
-
- foreach $accno (sort keys %{ $form->{taxrates} }) {
- print qq|
- <tr>
- <th align=right>$form->{taxrates}{$accno}{description}</th>
- <td><input name=$form->{taxrates}{$accno}{id} size=6 value=$form->{taxrates}{$accno}{rate}></td>
- <td><input name="taxnumber_$form->{taxrates}{$accno}{id}" value="$form->{taxrates}{$accno}{taxnumber}"></td>
- </tr>
-|;
- $form->{taxaccounts} .= "$form->{taxrates}{$accno}{id} ";
- }
-
- chop $form->{taxaccounts};
-
- print qq|
-<input name=taxaccounts type=hidden value="$form->{taxaccounts}">
-
- </table>
- </td>
- </tr>
- </table>
- </td>
- </tr>
- <tr>
- <td><hr size=3 noshade></td>
- </tr>
-</table>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<br>
-<input type=submit class=submit name=action value="|
- . $locale->text('Save') . qq|">|;
-
- if ($form->{menubar}) {
- require "$form->{path}/menu.pl";
- &menubar;
- }
-
- print qq|
- </form>
-
-</body>
-</html>
-|;
-
- $lxdebug->leave_sub();
-}
-
-sub save_preferences {
- $lxdebug->enter_sub();
-
- $form->{stylesheet} = $form->{usestylesheet};
-
- $form->redirect($locale->text('Preferences saved!'))
- if (
- AM->save_preferences(\%myconfig, \%$form, $memberfile, $userspath, $webdav
- ));
- $form->error($locale->text('Cannot save preferences!'));
-
- $lxdebug->leave_sub();
-}
-
-sub backup {
- $lxdebug->enter_sub();
-
- if ($form->{media} eq 'email') {
- $form->error($locale->text('No email address for') . " $myconfig{name}")
- unless ($myconfig{email});
-
- $form->{OUT} = "$sendmail";
-
- }
-
- AM->backup(\%myconfig, \%$form, $userspath);
-
- if ($form->{media} eq 'email') {
- $form->redirect($locale->text('Backup sent to') . qq| $myconfig{email}|);
- }
-
- $lxdebug->leave_sub();
-}
-
-sub audit_control {
- $lxdebug->enter_sub();
-
- $form->{title} = $locale->text('Audit Control');
-
- AM->closedto(\%myconfig, \%$form);
-
- if ($form->{revtrans}) {
- $checked{Y} = "checked";
- } else {
- $checked{N} = "checked";
- }
-
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<table width=100%>
- <tr><th class=listtop>$form->{title}</th></tr>
- <tr height="5"></tr>
- <tr>
- <td>
- <table>
- <tr>
- <td>|
- . $locale->text('Enforce transaction reversal for all dates') . qq|</th>
- <td><input name=revtrans class=radio type=radio value="1" $checked{Y}> |
- . $locale->text('Yes')
- . qq| <input name=revtrans class=radio type=radio value="0" $checked{N}> |
- . $locale->text('No')
- . qq|</td>
- </tr>
- <tr>
- <th>| . $locale->text('Close Books up to') . qq|</th>
- <td><input name=closedto size=11 title="$myconfig{dateformat}" value=$form->{closedto}></td>
- </tr>
- </table>
- </td>
- </tr>
-</table>
-
-<hr size=3 noshade>
-
-<br>
-<input type=hidden name=nextsub value=doclose>
-
-<input type=submit class=submit name=action value="|
- . $locale->text('Continue') . qq|">
-
-</form>
-
-</body>
-</html>
-|;
-
- $lxdebug->leave_sub();
-}
-
-sub doclose {
- $lxdebug->enter_sub();
-
- AM->closebooks(\%myconfig, \%$form);
-
- if ($form->{revtrans}) {
- $form->redirect(
- $locale->text('Transaction reversal enforced for all dates'));
- } else {
- if ($form->{closedto}) {
- $form->redirect(
- $locale->text('Transaction reversal enforced up to') . " "
- . $locale->date(\%myconfig, $form->{closedto}, 1));
- } else {
- $form->redirect($locale->text('Books are open'));
- }
- }
-
- $lxdebug->leave_sub();
-}
-
-sub add_warehouse {
- $lxdebug->enter_sub();
-
- $form->{title} = "Add";
-
- $form->{callback} =
- "$form->{script}?action=add_warehouse&path=$form->{path}&login=$form->{login}&password=$form->{password}"
- unless $form->{callback};
-
- &warehouse_header;
- &form_footer;
-
- $lxdebug->leave_sub();
-}
-
-sub edit_warehouse {
- $lxdebug->enter_sub();
-
- $form->{title} = "Edit";
-
- AM->get_warehouse(\%myconfig, \%$form);
-
- &warehouse_header;
- &form_footer;
-
- $lxdebug->leave_sub();
-}
-
-sub list_warehouse {
- $lxdebug->enter_sub();
-
- AM->warehouses(\%myconfig, \%$form);
-
- $form->{callback} =
- "$form->{script}?action=list_warehouse&path=$form->{path}&login=$form->{login}&password=$form->{password}";
-
- $callback = $form->escape($form->{callback});
-
- $form->{title} = $locale->text('Warehouses');
-
- @column_index = qw(description);
-
- $column_header{description} =
- qq|<th class=listheading width=100%>|
- . $locale->text('Description')
- . qq|</th>|;
-
- $form->header;
-
- print qq|
-<body>
-
-<table width=100%>
- <tr>
- <th class=listtop>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr>
- <td>
- <table width=100%>
- <tr class=listheading>
-|;
-
- map { print "$column_header{$_}\n" } @column_index;
-
- print qq|
- </tr>
-|;
-
- foreach $ref (@{ $form->{ALL} }) {
-
- $i++;
- $i %= 2;
-
- print qq|
- <tr valign=top class=listrow$i>
-|;
-
- $column_data{description} =
- qq|<td><a href=$form->{script}?action=edit_warehouse&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}</td>|;
-
- map { print "$column_data{$_}\n" } @column_index;
-
- print qq|
- </tr>
-|;
- }
-
- print qq|
- </table>
+ <td colspan=2>|
+ . $locale->text(
+ 'Enter up to 3 letters separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies'
+ )
+ . qq|<br><input name=curr size=40 value="$form->{defaults}{curr}"></td>
+ </tr>
+ </table>
+ </td>
+ </tr>
+ <tr>
+ <td colspan=2>
+ <table width=100%>
+ <tr>
+ <th align=right nowrap>| . $locale->text('Last Invoice Number') . qq|</th>
+ <td><input name=invnumber size=10 value=$form->{defaults}{invnumber}></td>
+ <th align=right nowrap>|
+ . $locale->text('Last Customer Number') . qq|</th>
+ <td><input name=customernumber size=10 value=$form->{defaults}{customernumber}></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|
+ . $locale->text('Last Credit Note Number') . qq|</th>
+ <td><input name=cnnumber size=10 value=$form->{defaults}{cnnumber}></td>
+ <th align=right nowrap>|
+ . $locale->text('Last Vendor Number') . qq|</th>
+ <td><input name=vendornumber size=10 value=$form->{defaults}{vendornumber}></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|
+ . $locale->text('Last Sales Order Number') . qq|</th>
+ <td><input name=sonumber size=10 value=$form->{defaults}{sonumber}></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|
+ . $locale->text('Last Purchase Order Number') . qq|</th>
+ <td><input name=ponumber size=10 value=$form->{defaults}{ponumber}></td>
+ <th align=right nowrap>|
+ . $locale->text('Last Article Number') . qq|</th>
+ <td><input name=articlenumber size=10 value=$form->{defaults}{articlenumber}></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>|
+ . $locale->text('Last Sales Quotation Number') . qq|</th>
+ <td><input name=sqnumber size=10 value=$form->{defaults}{sqnumber}></td>
+ <th align=right nowrap>|
+ . $locale->text('Last Service Number') . qq|</th>
+ <td><input name=servicenumber size=10 value=$form->{defaults}{servicenumber}></td>
+ </tr>
+ <tr>
+ <th align=right nowrap>| . $locale->text('Last RFQ Number') . qq|</th>
+ <td><input name=rfqnumber size=10 value=$form->{defaults}{rfqnumber}></td>
+ <th align=right nowrap></th>
+ <td></td>
+ </tr>
+ </table>
+ </td>
+ </tr>|;
+# <tr class=listheading>
+# <th colspan=2>| . $locale->text('Tax Accounts') . qq|</th>
+# </tr>
+# <tr>
+# <td colspan=2>
+# <table>
+# <tr>
+# <th> </th>
+# <th>| . $locale->text('Rate') . qq| (%)</th>
+# <th>| . $locale->text('Number') . qq|</th>
+# </tr>
+# |;
+#
+# foreach $accno (sort keys %{ $form->{taxrates} }) {
+# print qq|
+# <tr>
+# <th align=right>$form->{taxrates}{$accno}{description}</th>
+# <td><input name=$form->{taxrates}{$accno}{id} size=6 value=$form->{taxrates}{$accno}{rate}></td>
+# <td><input name="taxnumber_$form->{taxrates}{$accno}{id}" value="$form->{taxrates}{$accno}{taxnumber}"></td>
+# </tr>
+# |;
+# $form->{taxaccounts} .= "$form->{taxrates}{$accno}{id} ";
+# }
+#
+# chop $form->{taxaccounts};
+#
+# print qq|
+# <input name=taxaccounts type=hidden value="$form->{taxaccounts}">
+#
+# </table>
+# </td>
+# </tr>
+print qq| </table>