diff options
Diffstat (limited to 'sql-ledger/bin')
27 files changed, 28689 insertions, 0 deletions
diff --git a/sql-ledger/bin/js/menu.pl b/sql-ledger/bin/js/menu.pl new file mode 100644 index 000000000..718d22dfd --- /dev/null +++ b/sql-ledger/bin/js/menu.pl @@ -0,0 +1,188 @@ +###################################################################### +# SQL-Ledger Accounting +# Copyright (c) 2004 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +####################################################################### + +$menufile = "menu.ini"; +use SL::Menu; + + +1; +# end of main + + +sub display { + + $menuwidth = ($myconfig{menuwidth}) ? $myconfig{menuwidth} : ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "155"; + + $form->header(1); + + print qq| + +<FRAMESET COLS="$menuwidth,*" BORDER="1"> + + <FRAME NAME="acc_menu" SRC="$form->{script}?login=$form->{login}&sessionid=$form->{sessionid}&action=acc_menu&path=$form->{path}"> + <FRAME NAME="main_window" SRC="am.pl?login=$form->{login}&sessionid=$form->{sessionid}&action=company_logo&path=$form->{path}"> + +</FRAMESET> + +</BODY> +</HTML> +|; + +} + + +sub acc_menu { + + my $menu = new Menu "$menufile"; + $menu = new Menu "custom_$menufile" if (-f "custom_$menufile"); + $menu = new Menu "$form->{login}_$menufile" if (-f "$form->{login}_$menufile"); + + $form->{title} = $locale->text('Accounting Menu'); + + $form->header; + + print qq| +<script type="text/javascript"> +function SwitchMenu(obj) { + if (document.getElementById) { + var el = document.getElementById(obj); + var ar = document.getElementById("cont").getElementsByTagName("DIV"); + + if (el.style.display == "none") { + el.style.display = "block"; //display the block of info + } else { + el.style.display = "none"; + } + + } +} +function ChangeClass(menu, newClass) { + if (document.getElementById) { + document.getElementById(menu).className = newClass; + } +} +document.onselectstart = new Function("return false"); +</script> + +<body class=menu> +|; + + §ion_menu($menu); + + print qq| +</body> +</html> +|; + +} + + +sub section_menu { + my ($menu, $level) = @_; + + print qq| + <div id="cont"> + |; + + # build tiered menus + my @menuorder = $menu->access_control(\%myconfig, $level); + + while (@menuorder){ + $i++; + $item = shift @menuorder; + $label = $item; + $label =~ s/.*--//g; + $label = $locale->text($label); + + $menu->{$item}{target} = "main_window" unless $menu->{$item}{target}; + + if ($menu->{$item}{submenu}) { + + $display = "display: none;" unless $level eq ' '; + + print qq| +<div id="menu$i" class="menuOut" onclick="SwitchMenu('sub$i')" onmouseover="ChangeClass('menu$i','menuOver')" onmouseout="ChangeClass('menu$i','menuOut')">$label</div> + <div class="submenu" id="sub$i" style="$display">|; + + # remove same level items + map { shift @menuorder } grep /^$item/, @menuorder; + + §ion_menu($menu, $item); + + print qq| + + </div> + |; + + } else { + + if ($menu->{$item}{module}) { + if ($level eq "") { + print qq|<div id="menu$i" class="menuOut" onmouseover="ChangeClass('menu$i','menuOver')" onmouseout="ChangeClass('menu$i','menuOut')"> |. + $menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a></div>|; + + # remove same level items + map { shift @menuorder } grep /^$item/, @menuorder; + + §ion_menu($menu, $item); + + } else { + + print qq|<div class="submenu"> |. + $menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a></div>|; + } + + } else { + + $display = "display: none;" unless $item eq ' '; + + print qq| +<div id="menu$i" class="menuOut" onclick="SwitchMenu('sub$i')" onmouseover="ChangeClass('menu$i','menuOver')" onmouseout="ChangeClass('menu$i','menuOut')">$label</div> + <div class="submenu" id="sub$i" style="$display">|; + + §ion_menu($menu, $item); + + print qq| + + </div> + |; + + } + + } + + } + + print qq| + </div> + |; +} + + +sub menubar { + + 1; + +} + + diff --git a/sql-ledger/bin/lynx/menu.pl b/sql-ledger/bin/lynx/menu.pl new file mode 100644 index 000000000..16abe975e --- /dev/null +++ b/sql-ledger/bin/lynx/menu.pl @@ -0,0 +1,151 @@ +###################################################################### +# SQL-Ledger Accounting +# Copyright (c) 2000 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# Contributors: Christopher Browne <cbrowne@acm.org> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +####################################################################### +# +# menu for text based browsers (lynx) +# +####################################################################### + +$menufile = "menu.ini"; +use SL::Menu; + + +1; +# end of main + + + +sub display { + + $menu = new Menu "$menufile"; + $menu = new Menu "custom_$menufile" if (-f "custom_$menufile"); + $menu = new Menu "$form->{login}_$menufile" if (-f "$form->{login}_$menufile"); + + @menuorder = $menu->access_control(\%myconfig); + + $form->{title} = "SQL-Ledger $form->{version}"; + + $form->header(1); + + $offset = int (21 - $#menuorder)/2; + + print "<pre>"; + print "\n" x $offset; + print "</pre>"; + + print qq|<center><table>|; + + map { print "<tr><td>".$menu->menuitem(\%myconfig, \%$form, $_).$locale->text($_).qq|</a></td></tr>|; } @menuorder; + + print qq' +</table> + +</body> +</html> +'; + +} + + +sub section_menu { + + $menu = new Menu "$menufile", $form->{level}; + $menu = new Menu "custom_$menufile", $form->{level} if (-f "custom_$menufile"); + $menu = new Menu "$form->{login}_$menufile", $form->{level} if (-f "$form->{login}_$menufile"); + + # build tiered menus + @menuorder = $menu->access_control(\%myconfig, $form->{level}); + + foreach $item (@menuorder) { + $a = $item; + $item =~ s/^$form->{level}--//; + push @neworder, $a unless ($item =~ /--/); + } + @menuorder = @neworder; + + $level = $form->{level}; + $level =~ s/--/ /g; + + $form->{title} = $locale->text($level); + + $form->header; + + $offset = int (21 - $#menuorder)/2; + print "<pre>"; + print "\n" x $offset; + print "</pre>"; + + print qq|<center><table>|; + + foreach $item (@menuorder) { + $label = $item; + $label =~ s/$form->{level}--//g; + + # remove target + $menu->{$item}{target} = ""; + + print "<tr><td>".$menu->menuitem(\%myconfig, \%$form, $item, $form->{level}).$locale->text($label)."</a></td></tr>"; + } + + print qq'</table> + +</body> +</html> +'; + +} + + +sub acc_menu { + + §ion_menu; + +} + + +sub menubar { + $menu = new Menu "$menufile", ""; + + # build menubar + @menuorder = $menu->access_control(\%myconfig, ""); + + @neworder = (); + map { push @neworder, $_ unless ($_ =~ /--/) } @menuorder; + @menuorder = @neworder; + + print "<p>"; + $form->{script} = "menu.pl"; + + print "| "; + foreach $item (@menuorder) { + $label = $item; + + # remove target + $menu->{$item}{target} = ""; + + print $menu->menuitem(\%myconfig, \%$form, $item, "").$locale->text($label)."</a> | "; + } + +} + + diff --git a/sql-ledger/bin/mozilla/admin.pl b/sql-ledger/bin/mozilla/admin.pl new file mode 100644 index 000000000..8a4daba78 --- /dev/null +++ b/sql-ledger/bin/mozilla/admin.pl @@ -0,0 +1,1638 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2002 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# setup module +# add/edit/delete users +# +#====================================================================== + +$menufile = "menu.ini"; + +use SL::Form; +use SL::User; + + +$form = new Form; + +$locale = new Locale $language, "admin"; + +eval { require DBI; }; +$form->error($locale->text('DBI not installed!')) if ($@); + +$form->{stylesheet} = "sql-ledger.css"; +$form->{favicon} = "favicon.ico"; +$form->{timeout} = 600; + +require "$form->{path}/pw.pl"; + +# customization +if (-f "$form->{path}/custom_$form->{script}") { + eval { require "$form->{path}/custom_$form->{script}"; }; + $form->error($@) if ($@); +} + + +if ($form->{action}) { + + $subroutine = $locale->findsub($form->{action}); + + &check_password unless $form->{action} eq 'logout'; + + &$subroutine; + +} else { + + # if there are no drivers bail out + $form->error($locale->text('No Database Drivers available!')) unless (User->dbdrivers); + + # create memberfile + if (! -f $memberfile) { + open(FH, ">$memberfile") or $form->error("$memberfile : $!"); + print FH qq|# SQL-Ledger Accounting members + +[root login] +password= + +|; + close FH; + } + + &adminlogin; + +} + +1; +# end + + +sub adminlogin { + + $form->{title} = qq|SQL-Ledger $form->{version} |.$locale->text('Administration'); + + $form->{login} = "root login"; + $form->header(1); + + print qq| +<script language="JavaScript" type="text/javascript"> +<!-- +function sf(){ + document.admin.password.focus(); +} +// End --> +</script> + +<body class=admin onload="sf()"> + +<div align=center> + +<a href="http://www.sql-ledger.org"><img src=sql-ledger.png border=0></a> +<h1 class=login>|.$locale->text('Version').qq| $form->{version}<p>|.$locale->text('Administration').qq|</h1> + +<form method=post action="$form->{script}" name=admin> + +<table> + <tr> + <th>|.$locale->text('Password').qq|</th> + <td><input type=password name=password></td> + <td><input type=submit class=submit name=action value="|.$locale->text('Login').qq|"></td> + </tr> +<input type=hidden name=action value=login> +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=sessionid value=$form->{sessionid}> +</table> + +</form> + +<a href=http://www.sql-ledger.org>SQL-Ledger |.$locale->text('website').qq|</a> + +</div> + +</body> +</html> +|; + +} + + +sub login { + + &list_users; + +} + + +sub logout { + + $form->{callback} = "$form->{script}?path=$form->{path}&endsession=1"; + $form->redirect($locale->text('You are logged out')); + +} + + +sub add_user { + + $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Administration')." / ".$locale->text('Add User'); + + $form->{Oracle_sid} = $sid; + $form->{Oracle_dbport} = '1521'; + $form->{Oracle_dbhost} = `hostname`; + + if (-f "css/sql-ledger.css") { + $myconfig->{stylesheet} = "sql-ledger.css"; + } + $myconfig->{vclimit} = 1000; + $myconfig->{menuwidth} = 155; + $myconfig->{timeout} = 3600; + + &form_header; + &form_footer; + +} + + + +sub edit { + + $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Administration')." / ".$locale->text('Edit User'); + $form->{edit} = 1; + + &form_header; + &form_footer; + +} + + +sub form_footer { + + if ($form->{edit}) { + $delete = qq|<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|"> +<input type=hidden name=edit value=1>|; + } + + print qq| + +<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}&sessionid=$form->{sessionid}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=submit class=submit name=action value="|.$locale->text('Save').qq|"> +$delete + +</form> + +</body> +</html> +|; + +} + + +sub list_users { + + open(FH, "$memberfile") or $form->error("$memberfile : $!"); + + $nologin = qq| +<input type=submit class=submit name=action value="|.$locale->text('Lock System').qq|">|; + + if (-e "$userspath/nologin") { + $nologin = qq| +<input type=submit class=submit name=action value="|.$locale->text('Unlock System').qq|">|; + } + + + while (<FH>) { + chop; + + if (/^\[.*\]/) { + $login = $_; + $login =~ s/(\[|\])//g; + } + + if (/^(name=|company=|templates=|dbuser=|dbdriver=|dbname=|dbhost=)/) { + chop ($var = $&); + ($null, $member{$login}{$var}) = split /=/, $_, 2; + } + } + + close(FH); + +# type=submit $locale->text('Pg Database Administration') +# type=submit $locale->text('PgPP Database Administration') +# type=submit $locale->text('Oracle Database Administration') + + foreach $item (User->dbdrivers) { + $dbdrivers .= qq|<input name=action type=submit class=submit value="|.$locale->text("$item Database Administration").qq|">|; + } + + + $column_header{login} = qq|<th>|.$locale->text('Login').qq|</th>|; + $column_header{name} = qq|<th>|.$locale->text('Name').qq|</th>|; + $column_header{company} = qq|<th>|.$locale->text('Company').qq|</th>|; + $column_header{dbdriver} = qq|<th>|.$locale->text('Driver').qq|</th>|; + $column_header{dbhost} = qq|<th>|.$locale->text('Host').qq|</th>|; + $column_header{dataset} = qq|<th>|.$locale->text('Dataset').qq|</th>|; + $column_header{templates} = qq|<th>|.$locale->text('Templates').qq|</th>|; + + @column_index = qw(login name company dbdriver dbhost dataset templates); + + $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Administration'); + + $form->{login} = "root login"; + $form->header; + + print qq| +<body class=admin> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <tr class=listheading> + <th>$form->{title}</th> + </tr> + <tr size=5></tr> + <tr> + <td> + <table width=100%> + <tr class=listheading>|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| + </tr> +|; + +foreach $key (sort keys %member) { + $href = "$script?action=edit&login=$key&path=$form->{path}&sessionid=$form->{sessionid}"; + $href =~ s/ /%20/g; + + $member{$key}{templates} =~ s/^$templates\///; + $member{$key}{dbhost} = $locale->text('localhost') unless $member{$key}{dbhost}; + $member{$key}{dbname} = $member{$key}{dbuser} if ($member{$key}{dbdriver} eq 'Oracle'); + + $column_data{login} = qq|<td><a href=$href>$key</a></td>|; + $column_data{name} = qq|<td>$member{$key}{name}</td>|; + $column_data{company} = qq|<td>$member{$key}{company}</td>|; + $column_data{dbdriver} = qq|<td>$member{$key}{dbdriver}</td>|; + $column_data{dbhost} = qq|<td>$member{$key}{dbhost}</td>|; + $column_data{dataset} = qq|<td>$member{$key}{dbname}</td>|; + $column_data{templates} = qq|<td>$member{$key}{templates}</td>|; + + $i++; $i %= 2; + print qq| + <tr class=listrow$i>|; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr>|; +} + + +print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br><input type=submit class=submit name=action value="|.$locale->text('Add User').qq|"> +<input type=submit class=submit name=action value="|.$locale->text('Change Admin Password').qq|"> + +$dbdrivers +$nologin + +<input type=submit class=submit name=action value="|.$locale->text('Logout').qq|"> + +</form> + +|.$locale->text('Click on login name to edit!').qq| +<br> +|.$locale->text('To add a user to a group edit a name, change the login name and save. A new user with the same variables will then be saved under the new login name.').qq| + +</body> +</html> +|; + +} + + + +sub form_header { + + # if there is a login, get user + if ($form->{login}) { + # get user + $myconfig = new User "$memberfile", "$form->{login}"; + + $myconfig->{signature} =~ s/\\n/\r\n/g; + $myconfig->{address} =~ s/\\n/\r\n/g; + + # strip basedir from templates directory + $myconfig->{templates} =~ s/^$templates\///; + + $myconfig->{dbpasswd} = unpack 'u', $myconfig->{dbpasswd}; + } + + + foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) { + $dateformat .= ($item eq $myconfig->{dateformat}) ? "<option selected>$item\n" : "<option>$item\n"; + } + + foreach $item (qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00)) { + $numberformat .= ($item eq $myconfig->{numberformat}) ? "<option selected>$item\n" : "<option>$item\n"; + } + + + %countrycodes = User->country_codes; + $countrycodes = ""; + + foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} } keys %countrycodes) { + $countrycodes .= ($myconfig->{countrycode} eq $key) ? "<option selected value=$key>$countrycodes{$key}" : "<option value=$key>$countrycodes{$key}"; + } + $countrycodes = qq|<option value="">English\n$countrycodes|; + + # is there a templates basedir + if (! -d "$templates") { + $form->error($locale->text('Directory').": $templates ".$locale->text('does not exist')); + } + + opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $!"); + @all = grep !/^\.\.?$/, readdir TEMPLATEDIR; + closedir TEMPLATEDIR; + + @allhtml = sort grep /\.html/, @all; + @alldir = grep !/\.(html|tex|txt)$/, @all; + + @allhtml = reverse grep !/Default/, @allhtml; + push @allhtml, 'Default'; + @allhtml = reverse @allhtml; + + foreach $item (sort @alldir) { + if ($item eq $myconfig->{templates}) { + $usetemplates .= qq|<option selected>$item\n|; + } else { + $usetemplates .= qq|<option>$item\n|; + } + } + + $lastitem = $allhtml[0]; + $lastitem =~ s/-.*//g; + $mastertemplates = qq|<option>$lastitem\n|; + foreach $item (@allhtml) { + $item =~ s/-.*//g; + + if ($item ne $lastitem) { + $mastertemplates .= qq|<option>$item\n|; + $lastitem = $item; + } + } + + opendir CSS, "css/."; + @all = grep /.*\.css$/, readdir CSS; + closedir CSS; + + foreach $item (@all) { + if ($item eq $myconfig->{stylesheet}) { + $selectstylesheet .= qq|<option selected>$item\n|; + } else { + $selectstylesheet .= qq|<option>$item\n|; + } + } + $selectstylesheet .= "<option>\n"; + + if (%printer && $latex) { + $selectprinter = "<option>\n"; + foreach $item (sort keys %printer) { + if ($myconfig->{printer} eq $item) { + $selectprinter .= qq|<option value="$item" selected>$item\n|; + } else { + $selectprinter .= qq|<option value="$item">$item\n|; + } + } + + $printer = qq| + <tr> + <th align=right>|.$locale->text('Printer').qq|</th> + <td><select name=printer>$selectprinter</select></td> + </tr> +|; + + } + + $user = $form->{login}; + $form->{login} = "root login"; + $form->header; + $form->{login} = $user; + + print qq| +<body class=admin> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr class=listheading><th colspan=2>$form->{title}</th></tr> + <tr size=5></tr> + <tr valign=top> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Login').qq|</th> + <td><input name=login value="$myconfig->{login}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Password').qq|</th> + <td><input type=password name=new_password size=8 value=$myconfig->{password}></td> + <input type=hidden name=old_password value=$myconfig->{password}> + </tr> + <tr> + <th align=right>|.$locale->text('Name').qq|</th> + <td><input name=name size=15 value="$myconfig->{name}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('E-mail').qq|</th> + <td><input name=email size=30 value="$myconfig->{email}"></td> + </tr> + <tr valign=top> + <th align=right>|.$locale->text('Signature').qq|</th> + <td><textarea name=signature rows=3 cols=35>$myconfig->{signature}</textarea></td> + </tr> + <tr> + <th align=right>|.$locale->text('Phone').qq|</th> + <td><input name=tel size=14 value="$myconfig->{tel}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Fax').qq|</th> + <td><input name=fax size=14 value="$myconfig->{fax}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Company').qq|</th> + <td><input name=company size=35 value="$myconfig->{company}"></td> + </tr> + <tr valign=top> + <th align=right>|.$locale->text('Address').qq|</th> + <td><textarea name=address rows=4 cols=35>$myconfig->{address}</textarea></td> + </tr> + </table> + </td> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Date Format').qq|</th> + <td><select name=dateformat>$dateformat</select></td> + </tr> + <tr> + <th align=right>|.$locale->text('Number Format').qq|</th> + <td><select name=numberformat>$numberformat</select></td> + </tr> + <tr> + <th align=right>|.$locale->text('Dropdown Limit').qq|</th> + <td><input name=vclimit value="$myconfig->{vclimit}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Menu Width').qq|</th> + <td><input name=menuwidth value="$myconfig->{menuwidth}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Language').qq|</th> + <td><select name=countrycode>$countrycodes</select></td> + </tr> + <tr> + <th align=right>|.$locale->text('Character Set').qq|</th> + <td><input name=charset value="$myconfig->{charset}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Session Timeout').qq|</th> + <td><input name=timeout value="$myconfig->{timeout}"></td> + </tr> + + <tr> + <th align=right>|.$locale->text('Stylesheet').qq|</th> + <td><select name=userstylesheet>$selectstylesheet</select></td> + </tr> + $printer + <tr> + <th align=right>|.$locale->text('Use Templates').qq|</th> + <td><select name=usetemplates>$usetemplates</select></td> + </tr> + <tr> + <th align=right>|.$locale->text('New Templates').qq|</th> + <td><input name=newtemplates></td> + </tr> + <tr> + <th align=right>|.$locale->text('Setup Templates').qq|</th> + <td><select name=mastertemplates>$mastertemplates</select></td> + </tr> + <input type=hidden name=templates value=$myconfig->{templates}> + </table> + </td> + </tr> + <tr class=listheading> + <th colspan=2>|.$locale->text('Database').qq|</th> + </tr>|; + + # list section for database drivers + foreach $item (User->dbdrivers) { + + print qq| + <tr> + <td colspan=2> + <table> + <tr>|; + + $checked = ""; + if ($myconfig->{dbdriver} eq $item) { + map { $form->{"${item}_$_"} = $myconfig->{$_} } qw(dbhost dbport dbuser dbpasswd dbname sid); + $checked = "checked"; + } + + print qq| + <th align=right>|.$locale->text('Driver').qq|</th> + <td><input name=dbdriver type=radio class=radio value=$item $checked> $item</td> + <th align=right>|.$locale->text('Host').qq|</th> + <td><input name="${item}_dbhost" size=30 value=$form->{"${item}_dbhost"}></td> + </tr> + <tr>|; + + if ($item =~ /Pg/) { + print qq| + <th align=right>|.$locale->text('Dataset').qq|</th> + <td><input name="${item}_dbname" size=15 value=$form->{"${item}_dbname"}></td> + <th align=right>|.$locale->text('Port').qq|</th> + <td><input name="${item}_dbport" size=4 value=$form->{"${item}_dbport"}></td> + </tr> + <tr> + <th align=right>|.$locale->text('User').qq|</th> + <td><input name="${item}_dbuser" size=15 value=$form->{"${item}_dbuser"}></td> + <th align=right>|.$locale->text('Password').qq|</th> + <td><input name="${item}_dbpasswd" type=password size=10 value=$form->{"${item}_dbpasswd"}></td> + </tr>|; + + } + + if ($item eq 'Oracle') { + print qq| + <th align=right>SID</th> + <td><input name=Oracle_sid value=$form->{Oracle_sid}></td> + <th align=right>|.$locale->text('Port').qq|</th> + <td><input name="${item}_dbport size=4 value=$form->{"${item}_dbport"}></td> + </tr> + <tr> + <th align=right>|.$locale->text('Dataset').qq|</th> + <td><input name="${item}_dbuser" size=15 value=$form->{"${item}_dbuser"}></td> + <th align=right>|.$locale->text('Password').qq|</th> + <td><input name="${item}_dbpasswd" type=password size=10 value=$form->{"${item}_dbpasswd"}></td> + + </tr>|; + } + + + print qq| + <input type=hidden name=old_dbpasswd value=$myconfig->{dbpasswd}> + </table> + </td> + </tr> + <tr> + <td colspan=2><hr size=2 noshade></td> + </tr> +|; + + } + + + # access control + open(FH, $menufile) or $form->error("$menufile : $!"); + # scan for first menu level + @a = <FH>; + close(FH); + + if (open(FH, "custom_$menufile")) { + push @a, <FH>; + } + close(FH); + + foreach $item (@a) { + next unless $item =~ /\[\w+/; + next if $item =~ /\#/; + + $item =~ s/(\[|\])//g; + chop $item; + + if ($item =~ /--/) { + ($level, $menuitem) = split /--/, $item, 2; + } else { + $level = $item; + $menuitem = $item; + push @acsorder, $item; + } + + push @{ $acs{$level} }, $menuitem; + + } + + %role = ( 'admin' => $locale->text('Administrator'), + 'user' => $locale->text('User'), + 'manager' => $locale->text('Manager') + + ); + + $selectrole = ""; + foreach $item (qw(user admin manager)) { + $selectrole .= ($myconfig->{role} eq $item) ? "<option selected value=$item>$role{$item}\n" : "<option value=$item>$role{$item}\n"; + } + + print qq| + <tr class=listheading> + <th colspan=2>|.$locale->text('Access Control').qq|</th> + </tr> + <tr> + <td><select name=role>$selectrole</select></td> + </tr> +|; + + foreach $item (split /;/, $myconfig->{acs}) { + ($key, $value) = split /--/, $item, 2; + $excl{$key}{$value} = 1; + } + + foreach $key (@acsorder) { + + $checked = "checked"; + if ($form->{login}) { + $checked = ($excl{$key}{$key}) ? "" : "checked"; + } + + # can't have variable names with spaces + # the 1 is for apache 2 + $item = $form->escape("${key}--$key", 1); + + $acsheading = $key; + $acsheading =~ s/ / /g; + + $acsheading = qq| + <th align=left><input name="$item" class=checkbox type=checkbox value=1 $checked> $acsheading</th>\n|; + $menuitems .= "$item;"; + $acsdata = " + <td>"; + + foreach $item (@{ $acs{$key} }) { + next if ($key eq $item); + + $checked = "checked"; + if ($form->{login}) { + $checked = ($excl{$key}{$item}) ? "" : "checked"; + } + + $acsitem = $form->escape("${key}--$item", 1); + + $acsdata .= qq| + <br><input name="$acsitem" class=checkbox type=checkbox value=1 $checked> $item|; + $menuitems .= "$acsitem;"; + } + + $acsdata .= " + </td>"; + + print qq| + <tr valign=top>$acsheading $acsdata + </tr> +|; + } + + print qq|<input type=hidden name=acs value="$menuitems"> + + <tr> + <td colspan=2><hr size=3 noshade></td> + </tr> +</table> +</div> +|; + +} + + +sub save { + + # no driver checked + $form->error($locale->text('Database Driver not checked!')) unless $form->{dbdriver}; + + # no spaces allowed in login name + ($form->{login}) = split / /, $form->{login}; + + $form->isblank("login", $locale->text('Login name missing!')); + + # check for duplicates + if (!$form->{edit}) { + $temp = new User "$memberfile", "$form->{login}"; + + if ($temp->{login}) { + $form->error("$form->{login} ".$locale->text('is already a member!')); + } + } + + # no spaces allowed in directories + ($form->{newtemplates}) = split / /, $form->{newtemplates}; + + if ($form->{newtemplates}) { + $form->{templates} = $form->{newtemplates}; + } else { + $form->{templates} = ($form->{usetemplates}) ? $form->{usetemplates} : $form->{login}; + } + + # is there a basedir + if (! -d "$templates") { + $form->error($locale->text('Directory').": $templates ".$locale->text('does not exist')); + } + + # add base directory to $form->{templates} + $form->{templates} = "$templates/$form->{templates}"; + + + $myconfig = new User "$memberfile", "$form->{login}"; + + # redo acs variable and delete all the acs codes + @acs = split /;/, $form->{acs}; + + $form->{acs} = ""; + foreach $item (@acs) { + $item = $form->escape($item, 1); + + if (!$form->{$item}) { + $form->{acs} .= $form->unescape($form->unescape($item)).";"; + } + delete $form->{$item}; + } + + # check which database was filled in + + $form->{dbhost} = $form->{"$form->{dbdriver}_dbhost"}; + $form->{dbport} = $form->{"$form->{dbdriver}_dbport"}; + $form->{dbpasswd} = $form->{"$form->{dbdriver}_dbpasswd"}; + $form->{dbuser} = $form->{"$form->{dbdriver}_dbuser"}; + $form->{dbname} = $form->{"$form->{dbdriver}_dbname"}; + + if ($form->{dbdriver} eq 'Oracle') { + $form->{sid} = $form->{Oracle_sid}, ; + + $form->isblank("dbhost", $locale->text('Hostname missing!')); + $form->isblank("dbport", $locale->text('Port missing!')); + $form->isblank("dbuser", $locale->text('Dataset missing!')); + } + if ($form->{dbdriver} =~ /Pg/) { + $form->isblank("dbname", $locale->text('Dataset missing!')); + $form->isblank("dbuser", $locale->text('Database User missing!')); + } + + foreach $item (keys %{$form}) { + $myconfig->{$item} = $form->{$item}; + } + + $myconfig->{password} = $form->{new_password} if $form->{new_password} ne $form->{old_password}; + + delete $myconfig->{stylesheet}; + if ($form->{userstylesheet}) { + $myconfig->{stylesheet} = $form->{userstylesheet}; + } + + $myconfig->save_member($memberfile, $userspath); + + # create user template directory and copy master files + if (! -d "$form->{templates}") { + umask(002); + + if (mkdir "$form->{templates}", oct("771")) { + + umask(007); + + # copy templates to the directory + opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $!"); + @templates = grep /$form->{mastertemplates}.*?\.(html|tex|txt)$/, readdir TEMPLATEDIR; + closedir TEMPLATEDIR; + + foreach $file (@templates) { + open(TEMP, "$templates/$file") or $form->error("$templates/$file : $!"); + + $file =~ s/$form->{mastertemplates}-//; + open(NEW, ">$form->{templates}/$file") or $form->error("$form->{templates}/$file : $!"); + + while ($line = <TEMP>) { + print NEW $line; + } + close(TEMP); + close(NEW); + } + } else { + $form->error("$!: $form->{templates}"); + } + } + + $form->redirect($locale->text('User saved!')); + +} + + +sub delete { + + $form->{templates} = ($form->{templates}) ? "$templates/$form->{templates}" : "$templates/$form->{login}"; + + $form->error("$memberfile ".$locale->text('locked!')) if (-f ${memberfile}.LCK); + open(FH, ">${memberfile}.LCK") or $form->error("${memberfile}.LCK : $!"); + close(FH); + + if (! open(CONF, "+<$memberfile")) { + unlink "${memberfile}.LCK"; + $form->error("$memberfile : $!"); + } + + @config = <CONF>; + + seek(CONF, 0, 0); + truncate(CONF, 0); + + while ($line = shift @config) { + + chop $line; + + if ($line =~ /^\[/) { + last if ($line =~ /\[$form->{login}\]/); + $login = &login_name($line); + } + + if ($line =~ /^templates=/) { + $user{$login} = &get_value($line); + } + + print CONF "$line\n"; + } + + # remove everything up to next login or EOF + # and save template variable + while ($line = shift @config) { + + chop $line; + + ($key, $value) = split /=/, $line, 2; + $myconfig{$key} = $value; + + last if ($line =~ /^\[/); + } + + # this one is either the next login or EOF + print CONF "$line\n"; + + $login = &login_name($line); + + + while ($line = shift @config) { + + chop $line; + + if ($line =~ /^\[/) { + $login = &login_name($line); + } + + if ($line =~ /^templates=/) { + $user{$login} = &get_value($line); + } + + print CONF "$line\n"; + } + + close(CONF); + unlink "${memberfile}.LCK"; + + # scan %user for $templatedir + foreach $login (keys %user) { + last if ($found = ($myconfig{templates} eq $user{$login})); + } + + map { $form->{$_} = $myconfig{$_} } keys %myconfig; + + # if found keep directory otherwise delete + if (!$found) { + # delete it if there is a template directory + $dir = "$form->{templates}"; + if (-d "$dir") { + unlink <$dir/*.html>; + unlink <$dir/*.tex>; + unlink <$dir/*.txt>; + rmdir "$dir"; + } + } + + # delete config file for user + unlink "$userspath/$form->{login}.conf"; + + User::delete_login("", \%$form); + + $form->redirect($locale->text('User deleted!')); + +} + + +sub login_name { + my $login = shift; + + $login =~ s/\[\]//g; + return ($login) ? $login : undef; + +} + + + +sub get_value { + my $line = shift; + + my ($null, $value) = split /=/, $line, 2; + + # remove comments + $value =~ s/^\s*#.*//g; + + # remove any trailing whitespace + $value =~ s/^\s*(.*?)\s*$/$1/; + + $value; +} + + + +sub change_admin_password { + + $form->{title} = qq|SQL-Ledger |.$locale->text('Accounting')." ".$locale->text('Administration')." / ".$locale->text('Change Admin Password'); + + $form->{login} = "root login"; + $form->header; + + print qq| +<body class=admin> + +<form method=post action=$form->{script}> + +<table> + <tr> + <tr class=listheading> + <th>|.$locale->text('Change Password').qq|</th> + </tr> + <tr size=5></tr> + <tr> + <td> + <table width=100%> + <tr> + <th align=right>|.$locale->text('Password').qq|</th> + <td><input type=password name=new_password></td> + </tr> + <tr> + <th align=right>|.$locale->text('Confirm').qq|</th> + <td><input type=password name=confirm_password></td> + </tr> + </table> + </td> + </tr> + +</table> + +<br> +<hr size=3 noshade> +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<p> +<input type=submit class=submit name=action value="|.$locale->text('Change Password').qq|"> + +</form> + +</body> +</html> +|; + +} + + +sub change_password { + + $form->error($locale->text('Passwords do not match!')) if $form->{new_password} ne $form->{confirm_password}; + + $root->{password} = $form->{new_password}; + + $root->{'root login'} = 1; + $root->save_member($memberfile); + + $form->{callback} = "$form->{script}?action=list_users&path=$form->{path}&sessionid=$form->{sessionid}"; + + $form->redirect($locale->text('Password changed!')); + +} + + +sub check_password { + + $root = new User "$memberfile", "root login"; + + if ($root->{password}) { + + if ($form->{password}) { + $form->{callback} .= "&password=$form->{password}" if $form->{callback}; + $form->{sessionid} = time; + if ($root->{password} ne crypt $form->{password}, 'ro') { + &getpassword; + exit; + } + } else { + if ($ENV{HTTP_USER_AGENT}) { + $ENV{HTTP_COOKIE} =~ s/;\s*/;/g; + %cookie = split /[=;]/, $ENV{HTTP_COOKIE}; + if ((! $cookie{"SQL-Ledger-root login"}) || $cookie{"SQL-Ledger-root login"} ne $form->{sessionid}) { + &getpassword(1); + exit; + } + } + } + } + +} + + +sub pg_database_administration { + + $form->{dbdriver} = 'Pg'; + &dbselect_source; + +} + + +sub pgpp_database_administration { + + $form->{dbdriver} = 'PgPP'; + &dbselect_source; + +} + + +sub oracle_database_administration { + + $form->{dbdriver} = 'Oracle'; + &dbselect_source; + +} + + +sub dbdriver_defaults { + + # load some defaults for the selected driver + %driverdefaults = ( 'Pg' => { dbport => '', + dbuser => 'sql-ledger', + dbdefault => 'template1', + dbhost => '', + connectstring => $locale->text('Connect to') + }, + 'Oracle' => { dbport => '1521', + dbuser => 'oralin', + dbdefault => $sid, + dbhost => `hostname`, + connectstring => 'SID' + } + ); + + $driverdefaults{PgPP} = $driverdefaults{Pg}; + + map { $form->{$_} = $driverdefaults{$form->{dbdriver}}{$_} } keys %{ $driverdefaults{Pg} }; + +} + + +sub dbselect_source { + + &dbdriver_defaults; + + $msg{Pg} = $locale->text('Leave host and port field empty unless you want to make a remote connection.'); + $msg{PgPP} = $msg{Pg}; + $msg{Oracle} = $locale->text('You must enter a host and port for local and remote connections!'); + + + $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." / ".$locale->text('Database Administration'); + + $form->{login} = "root login"; + $form->header; + + print qq| +<body class=admin> + +<center> +<h2>$form->{title}</h2> + +<form method=post action=$form->{script}> + +<table> + <tr> + <td> + <table> + <tr class=listheading> + <th colspan=4>|.$locale->text('Database').qq|</th> + </tr> + <input type=hidden name=dbdriver value=$form->{dbdriver}> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Host').qq|</th> + <td><input name=dbhost size=25 value=$form->{dbhost}></td> + <th align=right>|.$locale->text('Port').qq|</th> + <td><input name=dbport size=5 value=$form->{dbport}></td> + </tr> + <tr> + <th align=right>|.$locale->text('User').qq|</th> + <td><input name=dbuser size=10 value=$form->{dbuser}></td> + <th align=right>|.$locale->text('Password').qq|</th> + <td><input type=password name=dbpasswd size=10></td> + </tr> + <tr> + + <th align=right>$form->{connectstring}</th> + <td colspan=3><input name=dbdefault size=10 value=$form->{dbdefault}></td> + + </tr> + </table> + </td> + </tr> + </table> + +<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}"> +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> + +<input type=submit class=submit name=action value="|.$locale->text('Create Dataset').qq|"> +<input type=submit class=submit name=action value="|.$locale->text('Update Dataset').qq|"> +<input type=submit class=submit name=action value="|.$locale->text('Delete Dataset').qq|"> + +</form> + + </td> + </tr> +</table> + +<p>|.$locale->text('This is a preliminary check for existing sources. Nothing will be created or deleted at this stage!') + +.qq| +<br>$msg{$form->{dbdriver}} + + +</body> +</html> +|; + +} + + +sub continue { + + &{ $form->{nextsub} }; + +} + + +sub update_dataset { + + %needsupdate = User->dbneedsupdate(\%$form); + + $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Database Administration')." / ".$locale->text('Update Dataset'); + + $form->{login} = "root login"; + $form->header; + + print qq| +<body class=admin> + + +<center> +<h2>$form->{title}</h2> +|; + + + foreach $key (sort keys %needsupdate) { + if ($needsupdate{$key} ne $form->{dbversion}) { + $upd .= qq|<input name="db$key" type=checkbox value=1 checked> $key\n|; + $form->{dbupdate} .= "db$key "; + } + } + + chop $form->{dbupdate}; + + + if ($form->{dbupdate}) { + + print qq| +<table width=100%> +<form method=post action=$form->{script}> + +<input type=hidden name=dbdriver value=$form->{dbdriver}> +<input type=hidden name=dbhost value=$form->{dbhost}> +<input type=hidden name=dbport value=$form->{dbport}> +<input type=hidden name=dbuser value=$form->{dbuser}> +<input type=hidden name=dbpasswd value=$form->{dbpasswd}> +<input type=hidden name=dbdefault value=$form->{dbdefault}> + +<tr class=listheading> + <th>|.$locale->text('The following Datasets need to be updated').qq|</th> +</tr> +<tr> +<td> + +$upd + +</td> +</tr> +<tr> +<td> + +<input name=dbupdate type=hidden value="$form->{dbupdate}"> + +<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=nextsub value=dbupdate> + +<hr size=3 noshade> + +<br> +<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> + +</td></tr> +</table> +</form> +|; + + } else { + + print $locale->text('All Datasets up to date!'); + + } + + print qq| + +</body> +</html> +|; + +} + + +sub dbupdate { + + User->dbupdate(\%$form); + + $form->redirect($locale->text('Dataset updated!')); + +} + + +sub create_dataset { + + @dbsources = sort User->dbsources(\%$form); + + opendir SQLDIR, "sql/." or $form->error($!); + foreach $item (sort grep /-chart\.sql/, readdir SQLDIR) { + next if ($item eq 'Default-chart.sql'); + $item =~ s/-chart\.sql//; + push @charts, qq|<input name=chart class=radio type=radio value="$item">$item|; + } + closedir SQLDIR; + + # add Default at beginning + unshift @charts, qq|<input name=chart class=radio type=radio value="Default" checked>Default|; + + $selectencoding = qq|<option> + <option value=SQL_ASCII>ASCII + <option value=EUC_JP>Japanese EUC + <option value=EUC_CN>Chinese EUC + <option value=EUC_KR>Korean EUC + <option value=JOHAB>Korean EUC (Hangle base) + <option value=EUC_TW>Taiwan EUC + <option value=UNICODE>Unicode (UTF-8) + <option value=MULE_INTERNAL>Mule internal type + <option value=LATIN1>ISO 8859-1/ECMA 94 (Latin alphabet no. 1) + <option value=LATIN2>ISO 8859-2/ECMA 94 (Latin alphabet no. 2) + <option value=LATIN3>ISO 8859-3/ECMA 94 (Latin alphabet no. 3) + <option value=LATIN4>ISO 8859-4/ECMA 94 (Latin alphabet no. 4) + <option value=LATIN5>ISO 8859-9/ECMA 128 (Latin alphabet no. 5) + <option value=LATIN6>ISO 8859-10/ECMA 144 (Latin alphabet no. 6) + <option value=LATIN7>ISO 8859-13 (Latin alphabet no. 7) + <option value=LATIN8>ISO 8859-14 (Latin alphabet no. 8) + <option value=LATIN9>ISO 8859-15 (Latin alphabet no. 9) + <option value=LATIN10>ISO 8859-16/ASRO SR 14111 (Latin alphabet no. 10) + <option value=ISO_8859_5>ISO 8859-5/ECMA 113 (Latin/Cyrillic) + <option value=ISO_8859_6>ISO 8859-6/ECMA 114 (Latin/Arabic) + <option value=ISO_8859_7>ISO 8859-7/ECMA 118 (Latin/Greek) + <option value=ISO_8859_8>ISO 8859-8/ECMA 121 (Latin/Hebrew) + <option value=KOI8>KOI8-R(U) + <option value=WIN>Windows CP1251 + <option value=ALT>Windows CP866 + <option value=WIN1256>Windows CP1256 (Arabic) + <option value=TCVN>Windows CP1258 (Vietnamese) + <option value=WIN874>Windows CP874 (Thai) + |; + + $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Database Administration')." / ".$locale->text('Create Dataset'); + + $form->{login} = "root login"; + $form->header; + + print qq| +<body class=admin> + + +<center> +<h2>$form->{title}</h2> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr class=listheading> + <th colspan=2> </th> + </tr> + + <tr> + + <th align=right nowrap>|.$locale->text('Existing Datasets').qq|</th> + <td> +|; + + map { print "[ $_ ] " } @dbsources; + + print qq| + </td> + </tr> + + <tr> + + <th align=right nowrap>|.$locale->text('Create Dataset').qq|</th> + <td><input name=db></td> + + </tr> + + <tr> + + <th align=right nowrap>|.$locale->text('Multibyte Encoding').qq|</th> + <td><select name=encoding>$selectencoding</select></td> + + </tr> + + <tr> + + <th align=right nowrap>|.$locale->text('Create Chart of Accounts').qq|</th> + <td> + <table> +|; + + while (@charts) { + print qq| + <tr> +|; + + map { print "<td>$charts[$_]</td>\n" } (0 .. 2); + + print qq| + </tr> +|; + + splice @charts, 0, 3; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td colspan=2> + <hr size=3 noshade> + </td> + </tr> +</table> + +<input type=hidden name=dbdriver value=$form->{dbdriver}> +<input type=hidden name=dbuser value=$form->{dbuser}> +<input type=hidden name=dbhost value=$form->{dbhost}> +<input type=hidden name=dbport value=$form->{dbport}> +<input type=hidden name=dbpasswd value=$form->{dbpasswd}> +<input type=hidden name=dbdefault value=$form->{dbdefault}> + +<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=nextsub value=dbcreate> + +<br> +<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> + + +</form> + +</body> +</html> +|; + +} + + +sub dbcreate { + + $form->isblank("db", $locale->text('Dataset missing!')); + + User->dbcreate(\%$form); + + $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Database Administration')." / ".$locale->text('Create Dataset'); + + $form->{login} = "root login"; + $form->header; + + print qq| +<body class=admin> + + +<center> +<h2>$form->{title}</h2> + +<form method=post action=$form->{script}>| + +.$locale->text('Dataset')." $form->{db} ".$locale->text('successfully created!') + +.qq| + +<input type=hidden name=path value="$form->{path}"> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=nextsub value=list_users> + +<p><input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + + +</body> +</html> +|; + +} + + +sub delete_dataset { + + if (@dbsources = User->dbsources_unused(\%$form, $memberfile)) { + foreach $item (sort @dbsources) { + $dbsources .= qq|<input name=db class=radio type=radio value=$item> $item |; + } + } else { + $form->error($locale->text('Nothing to delete!')); + } + + $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Database Administration')." / ".$locale->text('Delete Dataset'); + + $form->{login} = "root login"; + $form->header; + + print qq| +<body class=admin> + +<h2>$form->{title}</h2> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr class=listheading> + <th>|.$locale->text('The following Datasets are not in use and can be deleted').qq|</th> + </tr> + + <tr> + <td> + $dbsources + </td> + </tr> + + <tr><td> +<p> +<input type=hidden name=dbdriver value=$form->{dbdriver}> +<input type=hidden name=dbuser value=$form->{dbuser}> +<input type=hidden name=dbhost value=$form->{dbhost}> +<input type=hidden name=dbport value=$form->{dbport}> +<input type=hidden name=dbpasswd value=$form->{dbpasswd}> +<input type=hidden name=dbdefault value=$form->{dbdefault}> + +<input name=callback type=hidden value="$form->{script}?action=list_users&path=$form->{path}"> + +<input type=hidden name=path value="$form->{path}"> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=nextsub value=dbdelete> + +<hr size=3 noshade> + +<br> +<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> + + </td></tr> +</table> + +</form> + +</body> +</html> +|; + +} + + +sub dbdelete { + + if (!$form->{db}) { + $form->error($locale->text('No Dataset selected!')); + } + + User->dbdelete(\%$form); + + $form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Database Administration')." / ".$locale->text('Delete Dataset'); + + $form->{login} = "root login"; + $form->header; + + print qq| +<body class=admin> + + +<center> +<h2>$form->{title}</h2> + +<form method=post action=$form->{script}> + +$form->{db} |.$locale->text('successfully deleted!') + +.qq| + +<input type=hidden name=path value="$form->{path}"> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=nextsub value=list_users> + +<p><input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + + +</body> +</html> +|; + +} + + +sub unlock_system { + + unlink "$userspath/nologin"; + + $form->{callback} = "$form->{script}?action=list_users&path=$form->{path}&sessionid=$form->{sessionid}"; + + $form->redirect($locale->text('Lockfile removed!')); + +} + + +sub lock_system { + + open(FH, ">$userspath/nologin") or $form->error($locale->text('Cannot create Lock!')); + close(FH); + + $form->{callback} = "$form->{script}?action=list_users&path=$form->{path}&sessionid=$form->{sessionid}"; + + $form->redirect($locale->text('Lockfile created!')); + +} + + diff --git a/sql-ledger/bin/mozilla/am.pl b/sql-ledger/bin/mozilla/am.pl new file mode 100644 index 000000000..834290343 --- /dev/null +++ b/sql-ledger/bin/mozilla/am.pl @@ -0,0 +1,2394 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2001 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# administration +# +#====================================================================== + + +use SL::AM; +use SL::CA; +use SL::Form; +use SL::User; +use SL::RP; +use SL::GL; + + +1; +# end of main + + + +sub add { &{ "add_$form->{type}" } }; +sub edit { &{ "edit_$form->{type}" } }; +sub save { &{ "save_$form->{type}" } }; +sub delete { &{ "delete_$form->{type}" } }; + + +sub save_as_new { + + delete $form->{id}; + + &save; + +} + + +sub add_account { + + $form->{title} = "Add"; + $form->{charttype} = "A"; + + $form->{callback} = "$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &account_header; + &form_footer; + +} + + +sub edit_account { + + $form->{title} = "Edit"; + + $form->{accno} =~ s/\\'/'/g; + $form->{accno} =~ s/\\\\/\\/g; + + AM->get_account(\%myconfig, \%$form); + + foreach my $item (split(/:/, $form->{link})) { + $form->{$item} = "checked"; + } + + &account_header; + &form_footer; + +} + + +sub account_header { + + $form->{title} = $locale->text("$form->{title} Account"); + + $checked{$form->{charttype}} = "checked"; + $checked{"$form->{category}_"} = "checked"; + $checked{CT_tax} = ($form->{CT_tax}) ? "" : "checked"; + + map { $form->{$_} = $form->quote($form->{$_}) } qw(accno description); + +# this is for our parser only! +# type=submit $locale->text('Add Account') +# type=submit $locale->text('Edit Account') + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=id value=$form->{id}> +<input type=hidden name=type value=account> + +<input type=hidden name=inventory_accno_id value=$form->{inventory_accno_id}> +<input type=hidden name=income_accno_id value=$form->{income_accno_id}> +<input type=hidden name=expense_accno_id value=$form->{expense_accno_id}> +<input type=hidden name=fxgain_accno_id values=$form->{fxgain_accno_id}> +<input type=hidden name=fxloss_accno_id values=$form->{fxloss_accno_id}> + +<table border=0 width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr valign=top> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Account Number').qq|</th> + <td><input name=accno size=20 value="$form->{accno}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Description').qq|</th> + <td><input name=description size=40 value="$form->{description}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Account Type').qq|</th> + <td> + <table> + <tr valign=top> + <td><input name=category type=radio class=radio value=A $checked{A_}> |.$locale->text('Asset').qq|\n<br> + <input name=category type=radio class=radio value=C $checked{C_}> |.$locale->text('Contra').qq|\n<br> + <input name=category type=radio class=radio value=L $checked{L_}> |.$locale->text('Liability').qq|\n<br> + <input name=category type=radio class=radio value=Q $checked{Q_}> |.$locale->text('Equity').qq|\n<br> + <input name=category type=radio class=radio value=I $checked{I_}> |.$locale->text('Income').qq|\n<br> + <input name=category type=radio class=radio value=E $checked{E_}> |.$locale->text('Expense') + .qq|</td> + <td width=50> </td> + <td> + <input name=charttype type=radio class=radio value="H" $checked{H}> |.$locale->text('Heading').qq|<br> + <input name=charttype type=radio class=radio value="A" $checked{A}> |.$locale->text('Account') + .qq|</td> + </tr> + </table> + </td> + </tr> +|; + + +if ($form->{charttype} eq "A") { + print qq| + <tr> + <td colspan=2> + <table> + <tr> + <th align=left>|.$locale->text('Is this a summary account to record').qq|</th> + <td> + <input name=AR type=checkbox class=checkbox value=AR $form->{AR}> |.$locale->text('AR') + .qq| <input name=AP type=checkbox class=checkbox value=AP $form->{AP}> |.$locale->text('AP') + .qq| <input name=IC type=checkbox class=checkbox value=IC $form->{IC}> |.$locale->text('Inventory') + .qq|</td> + </tr> + </table> + </td> + </tr> + <tr> + <th colspan=2>|.$locale->text('Include in drop-down menus').qq|</th> + </tr> + <tr valign=top> + <td colspan=2> + <table width=100%> + <tr> + <th align=left>|.$locale->text('Receivables').qq|</th> + <th align=left>|.$locale->text('Payables').qq|</th> + <th align=left>|.$locale->text('Parts Inventory').qq|</th> + <th align=left>|.$locale->text('Service Items').qq|</th> + <th align=left>|.$locale->text('Labor/Overhead').qq|</th> + </tr> + <tr> + <td> + <input name=AR_amount type=checkbox class=checkbox value=AR_amount $form->{AR_amount}> |.$locale->text('Income').qq|\n<br> + <input name=AR_paid type=checkbox class=checkbox value=AR_paid $form->{AR_paid}> |.$locale->text('Payment').qq|\n<br> + <input name=AR_tax type=checkbox class=checkbox value=AR_tax $form->{AR_tax}> |.$locale->text('Tax') .qq| + </td> + <td> + <input name=AP_amount type=checkbox class=checkbox value=AP_amount $form->{AP_amount}> |.$locale->text('Expense/Asset').qq|\n<br> + <input name=AP_paid type=checkbox class=checkbox value=AP_paid $form->{AP_paid}> |.$locale->text('Payment').qq|\n<br> + <input name=AP_tax type=checkbox class=checkbox value=AP_tax $form->{AP_tax}> |.$locale->text('Tax') .qq| + </td> + <td> + <input name=IC_sale type=checkbox class=checkbox value=IC_sale $form->{IC_sale}> |.$locale->text('Income').qq|\n<br> + <input name=IC_cogs type=checkbox class=checkbox value=IC_cogs $form->{IC_cogs}> |.$locale->text('COGS').qq|\n<br> + <input name=IC_taxpart type=checkbox class=checkbox value=IC_taxpart $form->{IC_taxpart}> |.$locale->text('Tax') .qq| + </td> + <td> + <input name=IC_income type=checkbox class=checkbox value=IC_income $form->{IC_income}> |.$locale->text('Income').qq|\n<br> + <input name=IC_expense type=checkbox class=checkbox value=IC_expense $form->{IC_expense}> |.$locale->text('Expense').qq|\n<br> + <input name=IC_taxservice type=checkbox class=checkbox value=IC_taxservice $form->{IC_taxservice}> |.$locale->text('Tax') .qq| + </td> + <td> + <br> + <input name=IC_cogs type=checkbox class=checkbox value=IC_cogs $form->{IC_cogs}> |.$locale->text('COGS').qq|\n<br> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td colspan=2> + <table> + <tr> + <th align=left>|.$locale->text('Include this account on the customer/vendor forms to flag customer/vendor as taxable?').qq|</th> + <td> + <input name=CT_tax type=radio class=radio value=CT_tax $form->{CT_tax}> |.$locale->text('Yes').qq| + <input name=CT_tax type=radio class=radio value="" $checked{CT_tax}> |.$locale->text('No') + .qq| + </td> + </tr> + </table> + </td> + </tr> +|; +} + +print qq| + <tr> + <th align=right>|.$locale->text('GIFI').qq|</th> + <td><input name=gifi_accno size=9 value=$form->{gifi_accno}></td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub form_footer { + + print qq| + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +<input type=submit class=submit name=action value="|.$locale->text('Save').qq|"> +|; + + if ($form->{id}) { + print qq| +<input type=submit class=submit name=action value="|.$locale->text('Save as new').qq|"> +|; + } + + if ($form->{id} && $form->{orphaned}) { + print qq|<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| +</form> + +</body> +</html> +|; + +} + + +sub save_account { + + $form->isblank("accno", $locale->text('Account Number missing!')); + $form->isblank("category", $locale->text('Account Type missing!')); + + # check for conflicting accounts + if ($form->{AR} || $form->{AP} || $form->{IC}) { + map { $a .= $form->{$_} } qw(AR AP IC); + $form->error($locale->text('Cannot set account for more than one of AR, AP or IC')) if length $a > 2; + + map { $form->error("$form->{AR}$form->{AP}$form->{IC} ". $locale->text('account cannot be set to any other type of account')) if $form->{$_} } qw(AR_amount AR_tax AR_paid AP_amount AP_tax AP_paid IC_sale IC_cogs IC_taxpart IC_income IC_expense IC_taxservice); + } + + foreach $item ("AR", "AP") { + $i = 0; + map { $i++ if $form->{$_} } ("${item}_amount", "${item}_paid", "${item}_tax"); + $form->error($locale->text('Cannot set multiple options for')." $item") if $i > 1; + } + + $i = 0; + map { $i++ if $form->{$_} } qw(IC_sale IC_cogs IC_taxpart); + $form->error($locale->text('Cannot set multiple options for Parts Inventory')) if $i > 1; + + $i = 0; + map { $i++ if $form->{$_} } qw(IC_income IC_expense IC_taxservice); + $form->error($locale->text('Cannot set multiple options for Service Items')) if $i > 1; + + $form->redirect($locale->text('Account saved!')) if (AM->save_account(\%myconfig, \%$form)); + $form->error($locale->text('Cannot save account!')); + +} + + +sub list_account { + + CA->all_accounts(\%myconfig, \%$form); + + $form->{title} = $locale->text('Chart of Accounts'); + + # construct callback + $callback = "$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + @column_index = qw(accno gifi_accno description debit credit link); + + $column_header{accno} = qq|<th class=listtop>|.$locale->text('Account').qq|</a></th>|; + $column_header{gifi_accno} = qq|<th class=listtop>|.$locale->text('GIFI').qq|</a></th>|; + $column_header{description} = qq|<th class=listtop>|.$locale->text('Description').qq|</a></th>|; + $column_header{debit} = qq|<th class=listtop>|.$locale->text('Debit').qq|</a></th>|; + $column_header{credit} = qq|<th class=listtop>|.$locale->text('Credit').qq|</a></th>|; + $column_header{link} = qq|<th class=listtop>|.$locale->text('Link').qq|</a></th>|; + + + $form->header; + $colspan = $#column_index + 1; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop colspan=$colspan>$form->{title}</th> + </tr> + <tr height=5></tr> + <tr class=listheading> +|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| +</tr> +|; + + # escape callback + $callback = $form->escape($callback); + + foreach $ca (@{ $form->{CA} }) { + + $ca->{debit} = " "; + $ca->{credit} = " "; + + if ($ca->{amount} > 0) { + $ca->{credit} = $form->format_amount(\%myconfig, $ca->{amount}, 2, " "); + } + if ($ca->{amount} < 0) { + $ca->{debit} = $form->format_amount(\%myconfig, -$ca->{amount}, 2, " "); + } + + $ca->{link} =~ s/:/<br>/og; + + if ($ca->{charttype} eq "H") { + print qq|<tr class=listheading>|; + + $column_data{accno} = qq|<th><a class=listheading href=$form->{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{accno}</a></th>|; + $column_data{gifi_accno} = qq|<th class=listheading><a href=$form->{script}?action=edit_gifi&accno=$ca->{gifi_accno}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{gifi_accno}</a> </th>|; + $column_data{description} = qq|<th class=listheading>$ca->{description} </th>|; + $column_data{debit} = qq|<th> </th>|; + $column_data{credit} = qq| <th> </th>|; + $column_data{link} = qq|<th> </th>|; + + } else { + $i++; $i %= 2; + print qq| +<tr valign=top class=listrow$i>|; + $column_data{accno} = qq|<td><a href=$form->{script}?action=edit_account&id=$ca->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{accno}</a></td>|; + $column_data{gifi_accno} = qq|<td><a href=$form->{script}?action=edit_gifi&accno=$ca->{gifi_accno}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{gifi_accno}</a> </td>|; + $column_data{description} = qq|<td>$ca->{description} </td>|; + $column_data{debit} = qq|<td align=right>$ca->{debit}</td>|; + $column_data{credit} = qq|<td align=right>$ca->{credit}</td>|; + $column_data{link} = qq|<td>$ca->{link} </td>|; + + } + + map { print "$column_data{$_}\n" } @column_index; + + print "</tr>\n"; + } + + print qq| + <tr><td colspan=$colspan><hr size=3 noshade></td></tr> +</table> + +</body> +</html> +|; + +} + + +sub delete_account { + + $form->{title} = $locale->text('Delete Account'); + + foreach $id (qw(inventory_accno_id income_accno_id expense_accno_id fxgain_accno_id fxloss_accno_id)) { + if ($form->{id} == $form->{$id}) { + $form->error($locale->text('Cannot delete default account!')); + } + } + + $form->redirect($locale->text('Account deleted!')) if (AM->delete_account(\%myconfig, \%$form)); + $form->error($locale->text('Cannot delete account!')); + +} + + +sub list_gifi { + + @{ $form->{fields} } = qw(accno description); + $form->{table} = "gifi"; + + AM->gifi_accounts(\%myconfig, \%$form); + + $form->{title} = $locale->text('GIFI'); + + # construct callback + $callback = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + @column_index = qw(accno description); + + $column_header{accno} = qq|<th class=listheading>|.$locale->text('GIFI').qq|</a></th>|; + $column_header{description} = qq|<th class=listheading>|.$locale->text('Description').qq|</a></th>|; + + + $form->header; + $colspan = $#column_index + 1; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop colspan=$colspan>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr class=listheading> +|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| +</tr> +|; + + # escape callback + $callback = $form->escape($callback); + + foreach $ca (@{ $form->{ALL} }) { + + $i++; $i %= 2; + + print qq| +<tr valign=top class=listrow$i>|; + + $column_data{accno} = qq|<td><a href=$form->{script}?action=edit_gifi&coa=1&accno=$ca->{accno}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{accno}</td>|; + $column_data{description} = qq|<td>$ca->{description} </td>|; + + map { print "$column_data{$_}\n" } @column_index; + + print "</tr>\n"; + } + + print qq| + <tr> + <td colspan=$colspan><hr size=3 noshade></td> + </tr> +</table> + +</body> +</html> +|; + +} + + +sub add_gifi { + $form->{title} = "Add"; + + # construct callback + $form->{callback} = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->{coa} = 1; + + &gifi_header; + &gifi_footer; + +} + + +sub edit_gifi { + + $form->{title} = "Edit"; + + AM->get_gifi(\%myconfig, \%$form); + + $form->error($locale->text('Account does not exist!')) unless $form->{accno}; + + &gifi_header; + &gifi_footer; + +} + + +sub gifi_header { + + $form->{title} = $locale->text("$form->{title} GIFI"); + +# $locale->text('Add GIFI') +# $locale->text('Edit GIFI') + + map { $form->{$_} = $form->quote($form->{$_}) } qw(accno description); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=id value="$form->{accno}"> +<input type=hidden name=type value=gifi> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('GIFI').qq|</th> + <td><input name=accno size=20 value="$form->{accno}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Description').qq|</th> + <td><input name=description size=60 value="$form->{description}"></td> + </tr> + </table> + </td> + </tr> + <tr> + <td colspan=2><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub gifi_footer { + + print qq| + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br><input type=submit class=submit name=action value="|.$locale->text('Save').qq|">|; + + if ($form->{coa}) { + print qq| +<input type=submit class=submit name=action value="|.$locale->text('Copy to COA').qq|"> +|; + + if ($form->{accno} && $form->{orphaned}) { + print qq|<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|; + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +sub save_gifi { + + $form->isblank("accno", $locale->text('GIFI missing!')); + AM->save_gifi(\%myconfig, \%$form); + $form->redirect($locale->text('GIFI saved!')); + +} + + +sub copy_to_coa { + + $form->isblank("accno", $locale->text('GIFI missing!')); + + AM->save_gifi(\%myconfig, \%$form); + + delete $form->{id}; + $form->{gifi_accno} = $form->{accno}; + + $form->{title} = "Add"; + $form->{charttype} = "A"; + + &account_header; + &form_footer; + +} + + +sub delete_gifi { + + AM->delete_gifi(\%myconfig, \%$form); + $form->redirect($locale->text('GIFI deleted!')); + +} + + +sub add_department { + + $form->{title} = "Add"; + $form->{role} = "P"; + + $form->{callback} = "$form->{script}?action=add_department&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &department_header; + &form_footer; + +} + + +sub edit_department { + + $form->{title} = "Edit"; + + AM->get_department(\%myconfig, \%$form); + + &department_header; + &form_footer; + +} + + +sub list_department { + + AM->departments(\%myconfig, \%$form); + + $href = "$form->{script}?action=list_department&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->sort_order(); + + $form->{callback} = "$form->{script}?action=list_department&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $callback = $form->escape($form->{callback}); + + $form->{title} = $locale->text('Departments'); + + @column_index = qw(description cost profit); + + $column_header{description} = qq|<th width=90%><a class=listheading href=$href>|.$locale->text('Description').qq|</a></th>|; + $column_header{cost} = qq|<th class=listheading nowrap>|.$locale->text('Cost Center').qq|</th>|; + $column_header{profit} = qq|<th class=listheading nowrap>|.$locale->text('Profit Center').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> +|; + + $costcenter = ($ref->{role} eq "C") ? "*" : " "; + $profitcenter = ($ref->{role} eq "P") ? "*" : " "; + + $column_data{description} = qq|<td><a href=$form->{script}?action=edit_department&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</td>|; + $column_data{cost} = qq|<td align=center>$costcenter</td>|; + $column_data{profit} = qq|<td align=center>$profitcenter</td>|; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=type value=department> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input class=submit type=submit name=action value="|.$locale->text('Add Department').qq|">|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + + </body> + </html> +|; + +} + + +sub department_header { + + $form->{title} = $locale->text("$form->{title} Department"); + +# $locale->text('Add Department') +# $locale->text('Edit Department') + + $form->{description} = $form->quote($form->{description}); + + if (($rows = $form->numtextrows($form->{description}, 60)) > 1) { + $description = qq|<textarea name="description" rows=$rows cols=60 wrap=soft>$form->{description}</textarea>|; + } else { + $description = qq|<input name=description size=60 value="$form->{description}">|; + } + + $costcenter = "checked" if $form->{role} eq "C"; + $profitcenter = "checked" if $form->{role} eq "P"; + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=id value=$form->{id}> +<input type=hidden name=type value=department> + +<table width=100%> + <tr> + <th class=listtop colspan=2>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <th align=right>|.$locale->text('Description').qq|</th> + <td>$description</td> + </tr> + <tr> + <td></td> + <td><input type=radio style=radio name=role value="C" $costcenter> |.$locale->text('Cost Center').qq| + <input type=radio style=radio name=role value="P" $profitcenter> |.$locale->text('Profit Center').qq| + </td> + <tr> + <td colspan=2><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub save_department { + + $form->isblank("description", $locale->text('Description missing!')); + AM->save_department(\%myconfig, \%$form); + $form->redirect($locale->text('Department saved!')); + +} + + +sub delete_department { + + AM->delete_department(\%myconfig, \%$form); + $form->redirect($locale->text('Department deleted!')); + +} + + +sub add_business { + + $form->{title} = "Add"; + + $form->{callback} = "$form->{script}?action=add_business&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &business_header; + &form_footer; + +} + + +sub edit_business { + + $form->{title} = "Edit"; + + AM->get_business(\%myconfig, \%$form); + + &business_header; + + $form->{orphaned} = 1; + &form_footer; + +} + + +sub list_business { + + AM->business(\%myconfig, \%$form); + + $href = "$form->{script}?action=list_business&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->sort_order(); + + $form->{callback} = "$form->{script}?action=list_business&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $callback = $form->escape($form->{callback}); + + $form->{title} = $locale->text('Type of Business'); + + @column_index = qw(description discount); + + $column_header{description} = qq|<th width=90%><a class=listheading href=$href>|.$locale->text('Description').qq|</a></th>|; + $column_header{discount} = qq|<th class=listheading>|.$locale->text('Discount').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> +|; + + $discount = $form->format_amount(\%myconfig, $ref->{discount} * 100, 2, " "); + + $column_data{description} = qq|<td><a href=$form->{script}?action=edit_business&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</td>|; + $column_data{discount} = qq|<td align=right>$discount</td>|; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=type value=business> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input class=submit type=submit name=action value="|.$locale->text('Add Business').qq|">|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + + </form> + + </body> + </html> +|; + +} + + +sub business_header { + + $form->{title} = $locale->text("$form->{title} Business"); + +# $locale->text('Add Business') +# $locale->text('Edit Business') + + $form->{description} = $form->quote($form->{description}); + $form->{discount} = $form->format_amount(\%myconfig, $form->{discount} * 100); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=id value=$form->{id}> +<input type=hidden name=type value=business> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Type of Business').qq|</th> + <td><input name=description size=30 value="$form->{description}"></td> + <tr> + <tr> + <th align=right>|.$locale->text('Discount').qq| %</th> + <td><input name=discount size=5 value=$form->{discount}></td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub save_business { + + $form->isblank("description", $locale->text('Description missing!')); + AM->save_business(\%myconfig, \%$form); + $form->redirect($locale->text('Business saved!')); + +} + + +sub delete_business { + + AM->delete_business(\%myconfig, \%$form); + $form->redirect($locale->text('Business deleted!')); + +} + + + +sub add_sic { + + $form->{title} = "Add"; + + $form->{callback} = "$form->{script}?action=add_sic&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &sic_header; + &form_footer; + +} + + +sub edit_sic { + + $form->{title} = "Edit"; + + $form->{code} =~ s/\\'/'/g; + $form->{code} =~ s/\\\\/\\/g; + + AM->get_sic(\%myconfig, \%$form); + $form->{id} = $form->{code}; + + &sic_header; + + $form->{orphaned} = 1; + &form_footer; + +} + + +sub list_sic { + + AM->sic(\%myconfig, \%$form); + + $href = "$form->{script}?action=list_sic&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->sort_order(); + + $form->{callback} = "$form->{script}?action=list_sic&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $callback = $form->escape($form->{callback}); + + $form->{title} = $locale->text('Standard Industrial Codes'); + + @column_index = $form->sort_columns(qw(code description)); + + $column_header{code} = qq|<th><a class=listheading href=$href&sort=code>|.$locale->text('Code').qq|</a></th>|; + $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></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; + + if ($ref->{sictype} eq 'H') { + print qq| + <tr valign=top class=listheading> +|; + $column_data{code} = qq|<th><a href=$form->{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}</th>|; + $column_data{description} = qq|<th>$ref->{description}</th>|; + + } else { + print qq| + <tr valign=top class=listrow$i> +|; + + $column_data{code} = qq|<td><a href=$form->{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}</td>|; + $column_data{description} = qq|<td>$ref->{description}</td>|; + + } + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=type value=sic> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input class=submit type=submit name=action value="|.$locale->text('Add SIC').qq|">|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + + </body> + </html> +|; + +} + + +sub sic_header { + + $form->{title} = $locale->text("$form->{title} SIC"); + +# $locale->text('Add SIC') +# $locale->text('Edit SIC') + + map { $form->{$_} = $form->quote($form->{$_}) } qw(code description); + + $checked = ($form->{sictype} eq 'H') ? "checked" : ""; + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=type value=sic> +<input type=hidden name=id value="$form->{code}"> + +<table width=100%> + <tr> + <th class=listtop colspan=2>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <th align=right>|.$locale->text('Code').qq|</th> + <td><input name=code size=10 value="$form->{code}"></td> + <tr> + <tr> + <td></td> + <th align=left><input name=sictype type=checkbox style=checkbox value="H" $checked> |.$locale->text('Heading').qq|</th> + <tr> + <tr> + <th align=right>|.$locale->text('Description').qq|</th> + <td><input name=description size=60 value="$form->{description}"></td> + </tr> + <td colspan=2><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub save_sic { + + $form->isblank("code", $locale->text('Code missing!')); + $form->isblank("description", $locale->text('Description missing!')); + AM->save_sic(\%myconfig, \%$form); + $form->redirect($locale->text('SIC saved!')); + +} + + +sub delete_sic { + + AM->delete_sic(\%myconfig, \%$form); + $form->redirect($locale->text('SIC deleted!')); + +} + + +sub add_language { + + $form->{title} = "Add"; + + $form->{callback} = "$form->{script}?action=add_language&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &language_header; + &form_footer; + +} + + +sub edit_language { + + $form->{title} = "Edit"; + + $form->{code} =~ s/\\'/'/g; + $form->{code} =~ s/\\\\/\\/g; + + AM->get_language(\%myconfig, \%$form); + $form->{id} = $form->{code}; + + &language_header; + + $form->{orphaned} = 1; + &form_footer; + +} + + +sub list_language { + + AM->language(\%myconfig, \%$form); + + $href = "$form->{script}?action=list_language&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->sort_order(); + + $form->{callback} = "$form->{script}?action=list_language&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $callback = $form->escape($form->{callback}); + + $form->{title} = $locale->text('Languages'); + + @column_index = $form->sort_columns(qw(code description)); + + $column_header{code} = qq|<th><a class=listheading href=$href&sort=code>|.$locale->text('Code').qq|</a></th>|; + $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></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{code} = qq|<td><a href=$form->{script}?action=edit_language&code=$ref->{code}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{code}</td>|; + $column_data{description} = qq|<td>$ref->{description}</td>|; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=type value=language> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input class=submit type=submit name=action value="|.$locale->text('Add Language').qq|">|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + + </body> + </html> +|; + +} + + +sub language_header { + + $form->{title} = $locale->text("$form->{title} Language"); + +# $locale->text('Add Language') +# $locale->text('Edit Language') + + map { $form->{$_} = $form->quote($form->{$_}) } qw(code description); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=type value=language> +<input type=hidden name=id value="$form->{code}"> + +<table width=100%> + <tr> + <th class=listtop colspan=2>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <th align=right>|.$locale->text('Code').qq|</th> + <td><input name=code size=10 value="$form->{code}"></td> + <tr> + <tr> + <th align=right>|.$locale->text('Description').qq|</th> + <td><input name=description size=60 value="$form->{description}"></td> + </tr> + <td colspan=2><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub save_language { + + $form->isblank("code", $locale->text('Code missing!')); + $form->isblank("description", $locale->text('Description missing!')); + AM->save_language(\%myconfig, \%$form); + $form->redirect($locale->text('Language saved!')); + +} + + +sub delete_language { + + AM->delete_language(\%myconfig, \%$form); + $form->redirect($locale->text('Language deleted!')); + +} + + +sub display_stylesheet { + + $form->{file} = "css/$myconfig{stylesheet}"; + &display_form; + +} + + +sub display_form { + + $form->{file} =~ s/^(.:)*?\/|\.\.\///g; + $form->{file} =~ s/^\/*//g; + $form->{file} =~ s/$userspath//; + + $form->error("$!: $form->{file}") unless -f $form->{file}; + + AM->load_template(\%$form); + + $form->{title} = $form->{file}; + + # if it is anything but html + if ($form->{file} !~ /\.html$/) { + $form->{body} = "<pre>\n$form->{body}\n</pre>"; + } + + $form->header; + + print qq| +<body> + +$form->{body} + +<form method=post action=$form->{script}> + +<input name=file type=hidden value=$form->{file}> +<input name=type type=hidden value=template> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input name=action type=submit class=submit value="|.$locale->text('Edit').qq|">|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +sub edit_template { + + AM->load_template(\%$form); + + $form->{title} = $locale->text('Edit Template'); + # convert   to &nbsp; + $form->{body} =~ s/ /&nbsp;/gi; + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input name=file type=hidden value=$form->{file}> +<input name=type type=hidden value=template> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input name=callback type=hidden value="$form->{script}?action=display_form&file=$form->{file}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"> + +<textarea name=body rows=25 cols=70> +$form->{body} +</textarea> + +<br> +<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print q| + </form> + + +</body> +</html> +|; + +} + + +sub save_template { + + AM->save_template(\%$form); + $form->redirect($locale->text('Template saved!')); + +} + + +sub defaults { + + # get defaults for account numbers and last numbers + AM->defaultaccounts(\%myconfig, \%$form); + + foreach $key (keys %{ $form->{IC} }) { + foreach $accno (sort keys %{ $form->{IC}{$key} }) { + $form->{account}{$key} .= ($form->{IC}{$key}{$accno}{id} == $form->{defaults}{$key}) ? "<option selected>$accno--$form->{IC}{$key}{$accno}{description}\n" : "<option>$accno--$form->{IC}{$key}{$accno}{description}\n"; + } + } + + $form->{title} = $locale->text('System Defaults'); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=type value=defaults> + +<table width=100%> + <tr><th class=listtop>$form->{title}</th></tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Business Number').qq|</th> + <td><input name=businessnumber size=25 value="$form->{defaults}{businessnumber}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Weight Unit').qq|</th> + <td><input name=weightunit size=5 value="$form->{defaults}{weightunit}"></td> + </tr> + </table> + </td> + </tr> + <tr> + <th class=listheading>|.$locale->text('Last Numbers & Default Accounts').qq|</th> + </tr> + <tr> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Inventory Account').qq|</th> + <td><select name=inventory_accno>$form->{account}{IC}</select></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Income Account').qq|</th> + <td><select name=income_accno>$form->{account}{IC_income}</select></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Expense Account').qq|</th> + <td><select name=expense_accno>$form->{account}{IC_expense}</select></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Foreign Exchange Gain').qq|</th> + <td><select name=fxgain_accno>$form->{account}{FX_gain}</select></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Foreign Exchange Loss').qq|</th> + <td><select name=fxloss_accno>$form->{account}{FX_loss}</select></td> + </tr> + </table> + </td> + </tr> + <tr> + <th align=left>|.$locale->text('Enter up to 3 letters separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies').qq|</th> + </tr> + <tr> + <td> + <input name=curr size=40 value="$form->{defaults}{curr}"> + </td> + </tr> + <tr> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Sales Invoice Number').qq|</th> + <td><input name=sinumber size=40 value="$form->{defaults}{sinumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Sales Order Number').qq|</th> + <td><input name=sonumber size=40 value="$form->{defaults}{sonumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Vendor Invoice Number').qq|</th> + <td><input name=vinumber size=40 value="$form->{defaults}{vinumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Purchase Order Number').qq|</th> + <td><input name=ponumber size=40 value="$form->{defaults}{ponumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Sales Quotation Number').qq|</th> + <td><input name=sqnumber size=40 value="$form->{defaults}{sqnumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('RFQ Number').qq|</th> + <td><input name=rfqnumber size=40 value="$form->{defaults}{rfqnumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Partnumber').qq|</th> + <td><input name=partnumber size=40 value="$form->{defaults}{partnumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Employee Number').qq|</th> + <td><input name=employeenumber size=40 value="$form->{defaults}{employeenumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Customer Number').qq|</th> + <td><input name=customernumber size=40 value="$form->{defaults}{customernumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Vendor Number').qq|</th> + <td><input name=vendornumber size=40 value="$form->{defaults}{vendornumber}"></td> + </tr> + </table> + </td> + </tr> + <tr> + <th class=listheading>|.$locale->text('Tax Accounts').qq|</th> + </tr> + <tr> + <td> + <table> + <tr> + <th></th> + <th>|.$locale->text('Rate').qq| (%)</th> + <th>|.$locale->text('Number').qq|</th> + </tr> +|; + + foreach $accno (sort keys %{ $form->{taxrates} }) { + $form->{taxrates}{$accno}{rate} = $form->format_amount(\%myconfig, $form->{taxrates}{$accno}{rate}); + + 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| + </table> + </td> + </tr> +<input name=taxaccounts type=hidden value="$form->{taxaccounts}"> + <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=sessionid value=$form->{sessionid}> + +<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> +|; + + +} + + +sub config { + + foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) { + $dateformat .= ($item eq $myconfig{dateformat}) ? "<option selected>$item\n" : "<option>$item\n"; + } + + foreach $item (qw(1,000.00 1000.00 1.000,00 1000,00 1'000.00)) { + $numberformat .= ($item eq $myconfig{numberformat}) ? "<option selected>$item\n" : "<option>$item\n"; + } + + map { $myconfig{$_} = $form->quote($myconfig{$_}) } qw(name company address signature); + map { $myconfig{$_} =~ s/\\n/\r\n/g } qw(address signature); + + %countrycodes = User->country_codes; + $countrycodes = ''; + + foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} } keys %countrycodes) { + $countrycodes .= ($myconfig{countrycode} eq $key) ? "<option selected value=$key>$countrycodes{$key}\n" : "<option value=$key>$countrycodes{$key}\n"; + } + $countrycodes = qq|<option value="">English\n$countrycodes|; + + opendir CSS, "css/."; + @all = grep /.*\.css$/, readdir CSS; + closedir CSS; + + foreach $item (@all) { + if ($item eq $myconfig{stylesheet}) { + $selectstylesheet .= qq|<option selected>$item\n|; + } else { + $selectstylesheet .= qq|<option>$item\n|; + } + } + $selectstylesheet .= "<option>\n"; + + if (%printer && $latex) { + $selectprinter = "<option>\n"; + foreach $item (sort keys %printer) { + if ($myconfig{printer} eq $item) { + $selectprinter .= qq|<option value="$item" selected>$item\n|; + } else { + $selectprinter .= qq|<option value="$item">$item\n|; + } + } + + $printer = qq| + <tr> + <th align=right>|.$locale->text('Printer').qq|</th> + <td><select name=printer>$selectprinter</select></td> + </tr> +|; + } + + $form->{title} = $locale->text('Edit Preferences for').qq| $form->{login}|; + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=old_password value=$myconfig{password}> +<input type=hidden name=type value=preferences> +<input type=hidden name=role value=$myconfig{role}> + +<table width=100%> + <tr><th class=listtop>$form->{title}</th></tr> + <tr> + <td> + <table width=100%> + <tr valign=top> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Name').qq|</th> + <td><input name=name size=20 value="$myconfig{name}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('E-mail').qq|</th> + <td><input name=email size=35 value="$myconfig{email}"></td> + </tr> + <tr valign=top> + <th align=right>|.$locale->text('Signature').qq|</th> + <td><textarea name=signature rows=3 cols=35>$myconfig{signature}</textarea></td> + </tr> + <tr> + <th align=right>|.$locale->text('Phone').qq|</th> + <td><input name=tel size=14 value="$myconfig{tel}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Fax').qq|</th> + <td><input name=fax size=14 value="$myconfig{fax}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Company').qq|</th> + <td><input name=company size=35 value="$myconfig{company}"></td> + </tr> + <tr valign=top> + <th align=right>|.$locale->text('Address').qq|</th> + <td><textarea name=address rows=4 cols=35>$myconfig{address}</textarea></td> + </tr> + </table> + </td> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Password').qq|</th> + <td><input type=password name=new_password size=10 value=$myconfig{password}></td> + </tr> + <tr> + <th align=right>|.$locale->text('Confirm').qq|</th> + <td><input type=password name=confirm_password size=10></td> + </tr> + <tr> + <th align=right>|.$locale->text('Date Format').qq|</th> + <td><select name=dateformat>$dateformat</select></td> + </tr> + <tr> + <th align=right>|.$locale->text('Number Format').qq|</th> + <td><select name=numberformat>$numberformat</select></td> + </tr> + <tr> + <th align=right>|.$locale->text('Dropdown Limit').qq|</th> + <td><input name=vclimit size=10 value="$myconfig{vclimit}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Menu Width').qq|</th> + <td><input name=menuwidth size=10 value="$myconfig{menuwidth}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Language').qq|</th> + <td><select name=countrycode>$countrycodes</select></td> + </tr> + <tr> + <th align=right>|.$locale->text('Character Set').qq|</th> + <td><input name=charset size=20 value="$myconfig{charset}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Session Timeout').qq|</th> + <td><input name=timeout size=10 value="$myconfig{timeout}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Stylesheet').qq|</th> + <td><select name=usestylesheet>$selectstylesheet</select></td> + </tr> + $printer + </table> + </td> + </tr> + </table> + </td> + <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=sessionid value=$form->{sessionid}> + +<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> +|; + +} + + +sub save_defaults { + + $form->redirect($locale->text('Defaults saved!')) if (AM->save_defaults(\%myconfig, \%$form)); + $form->error($locale->text('Cannot save defaults!')); + +} + + +sub save_preferences { + + $form->{stylesheet} = $form->{usestylesheet}; + + if ($form->{new_password} ne $form->{old_password}) { + $form->error($locale->text('Password does not match!')) if $form->{new_password} ne $form->{confirm_password}; + } + + $form->redirect($locale->text('Preferences saved!')) if AM->save_preferences(\%myconfig, \%$form, $memberfile, $userspath); + $form->error($locale->text('Cannot save preferences!')); + +} + + +sub backup { + + if ($form->{media} eq 'email') { + $form->error($locale->text('No email address for')." $myconfig{name}") unless ($myconfig{email}); + + $form->{OUT} = "$sendmail"; + + } + + $SIG{INT} = 'IGNORE'; + AM->backup(\%myconfig, \%$form, $userspath, $gzip); + + if ($form->{media} eq 'email') { + $form->redirect($locale->text('Backup sent to').qq| $myconfig{email}|); + } + +} + + + +sub audit_control { + + $form->{title} = $locale->text('Audit Control'); + + AM->closedto(\%myconfig, \%$form); + + if ($form->{revtrans}) { + $checked{revtransY} = "checked"; + } else { + $checked{revtransN} = "checked"; + } + + if ($form->{audittrail}) { + $checked{audittrailY} = "checked"; + } else { + $checked{audittrailN} = "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=sessionid value=$form->{sessionid}> + +<table width=100%> + <tr><th class=listtop>$form->{title}</th></tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Enforce transaction reversal for all dates').qq|</th> + <td><input name=revtrans class=radio type=radio value="1" $checked{revtransY}> |.$locale->text('Yes').qq| <input name=revtrans class=radio type=radio value="0" $checked{revtransN}> |.$locale->text('No').qq|</td> + </tr> + <tr> + <th align=right>|.$locale->text('Close Books up to').qq|</th> + <td><input name=closedto size=11 title="$myconfig{dateformat}" value=$form->{closedto}></td> + </tr> + <tr> + <th align=right>|.$locale->text('Activate Audit trails').qq|</th> + <td><input name=audittrail class=radio type=radio value="1" $checked{audittrailY}> |.$locale->text('Yes').qq| <input name=audittrail class=radio type=radio value="0" $checked{audittrailN}> |.$locale->text('No').qq|</td> + </tr> + <tr> + <th align=right>|.$locale->text('Remove Audit trails up to').qq|</th> + <td><input name=removeaudittrail size=11 title="$myconfig{dateformat}"></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> +|; + +} + + +sub doclose { + + AM->closebooks(\%myconfig, \%$form); + + if ($form->{revtrans}) { + $msg = $locale->text('Transaction reversal enforced for all dates'); + } else { + if ($form->{closedto}) { + $msg = $locale->text('Transaction reversal enforced up to') + ." ".$locale->date(\%myconfig, $form->{closedto}, 1); + } else { + $msg = $locale->text('Books are open'); + } + } + + $msg .= "<p>"; + if ($form->{audittrail}) { + $msg .= $locale->text('Audit trails enabled'); + } else { + $msg .= $locale->text('Audit trails disabled'); + } + + $msg .= "<p>"; + if ($form->{removeaudittrail}) { + $msg .= $locale->text('Audit trail removed up to') + ." ".$locale->date(\%myconfig, $form->{removeaudittrail}, 1); + } + + $form->redirect($msg); + +} + + +sub add_warehouse { + + $form->{title} = "Add"; + + $form->{callback} = "$form->{script}?action=add_warehouse&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &warehouse_header; + &form_footer; + +} + + +sub edit_warehouse { + + $form->{title} = "Edit"; + + AM->get_warehouse(\%myconfig, \%$form); + + &warehouse_header; + &form_footer; + +} + + +sub list_warehouse { + + AM->warehouses(\%myconfig, \%$form); + + $href = "$form->{script}?action=list_warehouse&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->sort_order(); + + $form->{callback} = "$form->{script}?action=list_warehouse&direction=$form->{direction}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $callback = $form->escape($form->{callback}); + + $form->{title} = $locale->text('Warehouses'); + + @column_index = qw(description); + + $column_header{description} = qq|<th width=100%><a class=listheading href=$href>|.$locale->text('Description').qq|</a></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}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</td>|; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=type value=warehouse> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input class=submit type=submit name=action value="|.$locale->text('Add Warehouse').qq|">|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + + </body> + </html> +|; + +} + + + +sub warehouse_header { + + $form->{title} = $locale->text("$form->{title} Warehouse"); + +# $locale->text('Add Warehouse') +# $locale->text('Edit Warehouse') + + $form->{description} = $form->quote($form->{description}); + + if (($rows = $form->numtextrows($form->{description}, 60)) > 1) { + $description = qq|<textarea name="description" rows=$rows cols=60 wrap=soft>$form->{description}</textarea>|; + } else { + $description = qq|<input name=description size=60 value="$form->{description}">|; + } + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=id value=$form->{id}> +<input type=hidden name=type value=warehouse> + +<table width=100%> + <tr> + <th class=listtop colspan=2>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <th align=right>|.$locale->text('Description').qq|</th> + <td>$description</td> + </tr> + <tr> + <td colspan=2><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub save_warehouse { + + $form->isblank("description", $locale->text('Description missing!')); + AM->save_warehouse(\%myconfig, \%$form); + $form->redirect($locale->text('Warehouse saved!')); + +} + + +sub delete_warehouse { + + AM->delete_warehouse(\%myconfig, \%$form); + $form->redirect($locale->text('Warehouse deleted!')); + +} + + +sub yearend { + + AM->earningsaccounts(\%myconfig, \%$form); + map { $chart .= "<option>$_->{accno}--$_->{description}" } @{ $form->{chart} }; + + $form->{title} = $locale->text('Yearend'); + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=decimalplaces value=2> +<input type=hidden name=l_accno value=Y> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Yearend').qq|</th> + <td><input name=todate size=11 title="$myconfig{dateformat}" value=$todate></td> + </tr> + <tr> + <th align=right>|.$locale->text('Reference').qq|</th> + <td><input name=reference size=20 value="|.$locale->text('Yearend').qq|"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Description').qq|</th> + <td><textarea name=description rows=3 cols=50 wrap=soft></textarea></td> + </tr> + <tr> + <th align=right>|.$locale->text('Retained Earnings').qq|</th> + <td><select name=accno>$chart</select></td> + </tr> + <tr> + <th align=right>|.$locale->text('Method').qq|</th> + <td><input name=method class=radio type=radio value=accrual checked> |.$locale->text('Accrual').qq| <input name=method class=radio type=radio value=cash> |.$locale->text('Cash').qq|</td> + </tr> + </table> + </td> + </tr> +</table> + +<hr size=3 noshade> + +<input type=hidden name=nextsub value=generate_yearend> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">|; + +} + + +sub generate_yearend { + + $form->isblank("todate", $locale->text('Yearend date missing!')); + + RP->yearend_statement(\%myconfig, \%$form); + + $form->{transdate} = $form->{todate}; + + $earnings = 0; + + $form->{rowcount} = 1; + foreach $key (keys %{ $form->{I} }) { + if ($form->{I}{$key}{charttype} eq "A") { + $form->{"debit_$form->{rowcount}"} = $form->{I}{$key}{this}; + $earnings += $form->{I}{$key}{this}; + $form->{"accno_$form->{rowcount}"} = $key; + $form->{rowcount}++; + $ok = 1; + } + } + + foreach $key (keys %{ $form->{E} }) { + if ($form->{E}{$key}{charttype} eq "A") { + $form->{"credit_$form->{rowcount}"} = $form->{E}{$key}{this} * -1; + $earnings += $form->{E}{$key}{this}; + $form->{"accno_$form->{rowcount}"} = $key; + $form->{rowcount}++; + $ok = 1; + } + } + if ($earnings > 0) { + $form->{"credit_$form->{rowcount}"} = $earnings; + $form->{"accno_$form->{rowcount}"} = $form->{accno} + } else { + $form->{"debit_$form->{rowcount}"} = $earnings * -1; + $form->{"accno_$form->{rowcount}"} = $form->{accno} + } + + if ($ok) { + if (AM->post_yearend(\%myconfig, \%$form)) { + $form->redirect($locale->text('Yearend posted!')); + } + $form->error($locale->text('Yearend posting failed!')); + } else { + $form->error('Nothing to do!'); + } + +} + + + +sub company_logo { + + $myconfig{address} =~ s/\\n/<br>/g; + $myconfig{dbhost} = $locale->text('localhost') unless $myconfig{dbhost}; + + map { $form->{$_} = $myconfig{$_} } qw(charset stylesheet); + + $form->{title} = $locale->text('About'); + + # create the logo screen + $form->header; + + print qq| +<body> + +<pre> + +</pre> +<center> +<a href="http://www.sql-ledger.org" target=_top><img src=sql-ledger.gif border=0></a> +<h1 class=login>|.$locale->text('Version').qq| $form->{version}</h1> + +<p> +|.$locale->text('Licensed to').qq| +<p> +<b> +$myconfig{company} +<br>$myconfig{address} +</b> + +<p> +<table border=0> + <tr> + <th align=right>|.$locale->text('User').qq|</th> + <td>$myconfig{name}</td> + </tr> + <tr> + <th align=right>|.$locale->text('Dataset').qq|</th> + <td>$myconfig{dbname}</td> + </tr> + <tr> + <th align=right>|.$locale->text('Database Host').qq|</th> + <td>$myconfig{dbhost}</td> + </tr> +</table> + +</center> + +</body> +</html> +|; + +} + + +sub continue { + + &{ $form->{nextsub} }; + +} + + diff --git a/sql-ledger/bin/mozilla/ap.pl b/sql-ledger/bin/mozilla/ap.pl new file mode 100644 index 000000000..30494b6e6 --- /dev/null +++ b/sql-ledger/bin/mozilla/ap.pl @@ -0,0 +1,1439 @@ +#===================================================================== +# SQL-Ledger, accounting project +# Copyright (C) 2000 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# Contributors: +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# Accounts Payable +# +#====================================================================== + + +use SL::AP; +use SL::IR; +use SL::PE; + +require "$form->{path}/arap.pl"; +require "$form->{path}/arapprn.pl"; + +1; +# end of main + + +# this is for our long dates +# $locale->text('January') +# $locale->text('February') +# $locale->text('March') +# $locale->text('April') +# $locale->text('May ') +# $locale->text('June') +# $locale->text('July') +# $locale->text('August') +# $locale->text('September') +# $locale->text('October') +# $locale->text('November') +# $locale->text('December') + +# this is for our short month +# $locale->text('Jan') +# $locale->text('Feb') +# $locale->text('Mar') +# $locale->text('Apr') +# $locale->text('May') +# $locale->text('Jun') +# $locale->text('Jul') +# $locale->text('Aug') +# $locale->text('Sep') +# $locale->text('Oct') +# $locale->text('Nov') +# $locale->text('Dec') + + +sub add { + + $form->{title} = "Add"; + + $form->{callback} = "$form->{script}?action=add&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &create_links; + &display_form; + +} + + +sub edit { + + $form->{title} = "Edit"; + + &create_links; + &display_form; + +} + + +sub display_form { + + &form_header; + &form_footer; + +} + + +sub create_links { + + $form->create_links("AP", \%myconfig, "vendor"); + + $duedate = $form->{duedate}; + + $form->{formname} = "transaction"; + $form->{format} = "postscript" if $myconfig{printer}; + $form->{media} = $myconfig{printer}; + + # currencies + @curr = split /:/, $form->{currencies}; + chomp $curr[0]; + $form->{defaultcurrency} = $curr[0]; + + map { $form->{selectcurrency} .= "<option>$_\n" } @curr; + + IR->get_vendor(\%myconfig, \%$form); + + $form->{duedate} = $duedate if $duedate; + $form->{notes} = $form->{intnotes} if !$form->{id}; + + $form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}"; + $form->{oldtransdate} = $form->{transdate}; + + # vendors + if (@{ $form->{all_vendor} }) { + $form->{vendor} = qq|$form->{vendor}--$form->{vendor_id}|; + map { $form->{selectvendor} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_vendor} }); + } + + # departments + if (@{ $form->{all_departments} }) { + $form->{selectdepartment} = "<option>\n"; + $form->{department} = "$form->{department}--$form->{department_id}"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + $form->{employee} = "$form->{employee}--$form->{employee_id}"; + + # projects + if (@{ $form->{all_projects} }) { + $form->{selectprojectnumber} = "<option>\n"; + map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } (@{ $form->{all_projects} }); + } + + if (@{ $form->{all_languages} }) { + $form->{selectlanguage} = "<option>\n"; + map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} }; + } + + # forex + $form->{forex} = $form->{exchangerate}; + $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1; + + foreach $key (keys %{ $form->{AP_links} }) { + + foreach $ref (@{ $form->{AP_links}{$key} }) { + if ($key eq "AP_tax") { + $form->{"selectAP_tax_$ref->{accno}"} = "<option>$ref->{accno}--$ref->{description}\n"; + $form->{"calctax_$ref->{accno}"} = 1; + next; + } + $form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n"; + } + + # if there is a value we have an old entry + for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) { + + if ($key eq "AP_paid") { + $form->{"AP_paid_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}"; + $form->{"paid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{amount}; + $form->{"datepaid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{transdate}; + $form->{"source_$i"} = $form->{acc_trans}{$key}->[$i-1]->{source}; + $form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i-1]->{memo}; + + $form->{"forex_$i"} = $form->{"exchangerate_$i"} = $form->{acc_trans}{$key}->[$i-1]->{exchangerate}; + + $form->{paidaccounts}++; + } else { + + $akey = $key; + $akey =~ s/AP_//; + + if ($key eq "AP_tax") { + $form->{"${key}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}"; + $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} = $form->round_amount($form->{acc_trans}{$key}->[$i-1]->{amount} / $exchangerate * -1, 2); + if ($form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"} > 0) { + $totaltax += $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"}; + $taxrate += $form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"}; + } else { + $totalwithholding += $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"}; + $withholdingrate += $form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"}; + } + + } else { + $form->{"${akey}_$i"} = $form->round_amount($form->{acc_trans}{$key}->[$i-1]->{amount} / $exchangerate, 2); + if ($akey eq 'amount') { + $form->{"${akey}_$i"} *= -1; + $totalamount += $form->{"${akey}_$i"}; + $form->{rowcount}++; + + $form->{"projectnumber_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{projectnumber}--$form->{acc_trans}{$key}->[$i-1]->{project_id}"; + } + $form->{"${key}_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}"; + } + } + } + } + + $form->{paidaccounts} = 1 if not defined $form->{paidaccounts}; + + if ($form->{taxincluded} && $totalamount) { + # add tax to amounts and invtotal + for $i (1 .. $form->{rowcount}) { + $taxamount = ($totaltax + $totalwithholding) * $form->{"amount_$i"} / $totalamount; + $tax = $form->round_amount($taxamount, 2); + $diff += ($taxamount - $tax); + $form->{"amount_$i"} += $tax; + } + $form->{amount_1} += $form->round_amount($diff, 2); + } + + # check if calculated is equal to stored + foreach $item (split / /, $form->{taxaccounts}) { + if ($form->{taxincluded}) { + if ($form->{"${item}_rate"} > 0) { + if ($taxrate) { + $taxamount = $form->round_amount(($totalamount + $totaltax + $totalwithholding) * $taxrate / (1 + $taxrate), 2) * $form->{"${item}_rate"} / $taxrate; + } + } else { + if ($withholdingrate) { + $taxamount = $form->round_amount(($totalamount + $totaltax + $totalwithholding) * $withholdingrate / (1 - $withholdingrate), 2) * $form->{"${item}_rate"} / $withholdingrate; + } + } + } else { + $taxamount = $totalamount * $form->{"${item}_rate"}; + } + $taxamount = $form->round_amount($taxamount, 2); + + $form->{"calctax_$item"} = 0; + if ($form->{"tax_$item"} == $taxamount) { + $form->{"calctax_$item"} = 1; + } + } + + $form->{invtotal} = $totalamount + $totaltax + $totalwithholding; + $form->{rowcount}++ if $form->{id}; + + $form->{AP} = $form->{AP_1}; + $form->{rowcount} = 1 unless $form->{AP_amount_1}; + + $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig)); + + # readonly + $form->{readonly} = 1 if $myconfig{acs} =~ /AP--Add Transaction/; + +} + + +sub form_header { + + $title = $form->{title}; + $form->{title} = $locale->text("$title AP Transaction"); + + $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : ""; + +# type=submit $locale->text('Add AP Transaction') +# type=submit $locale->text('Edit AP Transaction') + + # set option selected + foreach $item (qw(AP currency)) { + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; + } + + foreach $item (qw(vendor department)) { + $form->{"select$item"} = $form->unescape($form->{"select$item"}); + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/; + } + + $form->{selectprojectnumber} = $form->unescape($form->{selectprojectnumber}); + + # format amounts + $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate}); + + $exchangerate = qq| +<input type=hidden name=forex value=$form->{forex}> +|; + if ($form->{currency} ne $form->{defaultcurrency}) { + if ($form->{forex}) { + $exchangerate .= qq| + <th align=right>|.$locale->text('Exchange Rate').qq|</th> + <td><input type=hidden name=exchangerate value=$form->{exchangerate}>$form->{exchangerate}</td> +|; + } else { + $exchangerate .= qq| + <th align=right>|.$locale->text('Exchange Rate').qq|</th> + <td><input name=exchangerate size=10 value=$form->{exchangerate}></td> +|; + } + } + + $taxincluded = ""; + if ($form->{taxaccounts}) { + $taxincluded = qq| + <tr> + <td align=right><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td> + <th align=left nowrap>|.$locale->text('Tax Included').qq|</th> + </tr> +|; + } + + + if (($rows = $form->numtextrows($form->{notes}, 50)) < 2) { + $rows = 2; + } + $notes = qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|; + + $department = qq| + <tr> + <th align="right" nowrap>|.$locale->text('Department').qq|</th> + <td colspan=3><select name=department>$form->{selectdepartment}</select> + <input type=hidden name=selectdepartment value="|.$form->escape($form->{selectdepartment},1).qq|"> + </td> + </tr> +| if $form->{selectdepartment}; + + $n = ($form->{creditremaining} < 0) ? "0" : "1"; + + $vendor = ($form->{selectvendor}) ? qq|<select name=vendor>$form->{selectvendor}</select>| : qq|<input name=vendor value="$form->{vendor}" size=35>|; + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=id value=$form->{id}> + +<input type=hidden name=type value="transaction"> +<input type=hidden name=vc value="vendor"> + +<input type=hidden name=queued value="$form->{queued}"> +<input type=hidden name=printed value="$form->{printed}"> +<input type=hidden name=emailed value="$form->{emailed}"> + +<input type=hidden name=sort value=$form->{sort}> + +<input type=hidden name=closedto value=$form->{closedto}> +<input type=hidden name=locked value=$form->{locked}> + +<input type=hidden name=title value="$title"> + +<input type=hidden name=employee value="$form->{employee}"> + +<input type=hidden name=oldtransdate value=$form->{oldtransdate}> +<input type=hidden name=audittrail value="$form->{audittrail}"> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr valign=top> + <td> + <table width=100%> + <tr valign=top> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Vendor').qq|</th> + <td colspan=3>$vendor</td> + <input type=hidden name=selectvendor value="|.$form->escape($form->{selectvendor},1).qq|"> + <input type=hidden name=oldvendor value="$form->{oldvendor}"> + <input type=hidden name=vendor_id value="$form->{vendor_id}"> + <input type=hidden name=terms value=$form->{terms}> + </tr> + <tr> + <td></td> + <td colspan=3> + <table width=100%> + <tr> + <th align=left nowrap>|.$locale->text('Credit Limit').qq|</th> + <td>$form->{creditlimit}</td> + <th align=left nowrap>|.$locale->text('Remaining').qq|</th> + <td class="plus$n">|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</td> + <input type=hidden name=creditlimit value=$form->{creditlimit}> + <input type=hidden name=creditremaining value=$form->{creditremaining}> + </tr> + </table> + </td> + <tr> + <th align=right nowrap>|.$locale->text('Currency').qq|</th> + <td><select name=currency>$form->{selectcurrency}</select></td> + <input type=hidden name=selectcurrency value="$form->{selectcurrency}"> + <input type=hidden name=defaultcurrency value=$form->{defaultcurrency}> + <input type=hidden name=fxgain_accno value=$form->{fxgain_accno}> + <input type=hidden name=fxloss_accno value=$form->{fxloss_accno}> + $exchangerate + </tr> + $department + $taxincluded + </table> + </td> + <td align=right> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Invoice Number').qq|</th> + <td><input name=invnumber size=20 value="$form->{invnumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Order Number').qq|</th> + <td><input name=ordnumber size=20 value="$form->{ordnumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Invoice Date').qq|</th> + <td><input name=transdate size=11 title="$myconfig{'dateformat'}" value=$form->{transdate}></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Due Date').qq|</th> + <td><input name=duedate size=11 title="$myconfig{'dateformat'}" value=$form->{duedate}></td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <input type=hidden name=selectAP_amount value="$form->{selectAP_amount}"> + <input type=hidden name=selectprojectnumber value="|.$form->escape($form->{selectprojectnumber},1).qq|"> + <input type=hidden name=rowcount value=$form->{rowcount}> + <tr> + <td> + <table width=100%> +|; + + $amount = $locale->text('Amount'); + + for $i (1 .. $form->{rowcount}) { + + $selectAP_amount = $form->{selectAP_amount}; + $selectAP_amount =~ s/option>\Q$form->{"AP_amount_$i"}\E/option selected>$form->{"AP_amount_$i"}/; + + $selectprojectnumber = $form->{selectprojectnumber}; + $selectprojectnumber =~ s/(<option value="\Q$form->{"projectnumber_$i"}\E")/$1 selected/; + + # format amounts + $form->{"amount_$i"} = $form->format_amount(\%myconfig, $form->{"amount_$i"}, 2); + + $project = qq| + <td align=right><select name="projectnumber_$i">$selectprojectnumber</select></td> +| if $form->{selectprojectnumber}; + + print qq| + <tr> + <th align=right nowrap>$amount</th> + <td><input name="amount_$i" size=10 value=$form->{"amount_$i"}></td> + <td></td> + <td><select name="AP_amount_$i">$selectAP_amount</select></td> + $project + </tr> +|; + $amount = ""; + } + + $taxlabel = ($form->{taxincluded}) ? $locale->text('Tax Included') : $locale->text('Tax'); + + foreach $item (split / /, $form->{taxaccounts}) { + + $form->{"calctax_$item"} = ($form->{"calctax_$item"}) ? "checked" : ""; + + # format and reverse tax + $form->{"tax_$item"} = $form->format_amount(\%myconfig, $form->{"tax_$item"}, 2); + + print qq| + <tr> + <th align=right nowrap>${taxlabel}</th> + <td><input name="tax_$item" size=10 value=$form->{"tax_$item"}></td> + <td align=right><input name="calctax_$item" class=checkbox type=checkbox value=1 $form->{"calctax_$item"}></td> + <td><select name=AP_tax_$item>$form->{"selectAP_tax_$item"}</select></td> + </tr> + <input type=hidden name="${item}_rate" value="$form->{"${item}_rate"}"> + <input type=hidden name="${item}_description" value="$form->{"${item}_description"}"> + <input type=hidden name="${item}_taxnumber" value="$form->{"${item}_taxnumber"}"> + <input type=hidden name="selectAP_tax_$item" value="$form->{"selectAP_tax_$item"}"> +|; + } + + $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2); + + print qq| + <tr> + <th align=right nowrap>|.$locale->text('Total').qq|</th> + <td>$form->{invtotal}</td> + <td></td> + + <input type=hidden name=oldinvtotal value=$form->{oldinvtotal}> + <input type=hidden name=oldtotalpaid value=$form->{oldtotalpaid}> + + <input type=hidden name=taxaccounts value="$form->{taxaccounts}"> + + <td><select name=AP>$form->{selectAP}</select></td> + <input type=hidden name=selectAP value="$form->{selectAP}"> + + </tr> + <tr valign=top> + <th align=right nowrap>|.$locale->text('Notes').qq|</th> + <td colspan=5>$notes</td> + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> + <th class=listheading colspan=6>|.$locale->text('Payments').qq|</th> + </tr> +|; + + + if ($form->{currency} eq $form->{defaultcurrency}) { + @column_index = qw(datepaid source memo paid AP_paid); + } else { + @column_index = qw(datepaid source memo paid exchangerate AP_paid); + } + + $column_data{datepaid} = "<th>".$locale->text('Date')."</th>"; + $column_data{paid} = "<th>".$locale->text('Amount')."</th>"; + $column_data{exchangerate} = "<th>".$locale->text('Exch')."</th>"; + $column_data{AP_paid} = "<th>".$locale->text('Account')."</th>"; + $column_data{source} = "<th>".$locale->text('Source')."</th>"; + $column_data{memo} = "<th>".$locale->text('Memo')."</th>"; + + print " + <tr> +"; + map { print "$column_data{$_}\n" } @column_index; + print " + </tr> +"; + + $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"}); + for $i (1 .. $form->{paidaccounts}) { + print " + <tr> +"; + + $form->{"selectAP_paid_$i"} = $form->{selectAP_paid}; + $form->{"selectAP_paid_$i"} =~ s/option>\Q$form->{"AP_paid_$i"}\E/option selected>$form->{"AP_paid_$i"}/; + + # format amounts + $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2); + $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"}); + + $exchangerate = qq| |; + if ($form->{currency} ne $form->{defaultcurrency}) { + if ($form->{"forex_$i"}) { + $exchangerate = qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|; + } else { + $exchangerate = qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|; + } + } + + $exchangerate .= qq| +<input type=hidden name="forex_$i" value=$form->{"forex_$i"}> +|; + + $column_data{"paid_$i"} = qq|<td align=center><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>|; + $column_data{"AP_paid_$i"} = qq|<td align=center><select name="AP_paid_$i">$form->{"selectAP_paid_$i"}</select></td>|; + $column_data{"exchangerate_$i"} = qq|<td align=center>$exchangerate</td>|; + $column_data{"datepaid_$i"} = qq|<td align=center><input name="datepaid_$i" size=11 title="($myconfig{'dateformat'})" value=$form->{"datepaid_$i"}></td>|; + $column_data{"source_$i"} = qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|; + $column_data{"memo_$i"} = qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></td>|; + + map { print qq|$column_data{"${_}_$i"}\n| } @column_index; + + print " + </tr> +"; + } + + print qq| + <input type=hidden name=paidaccounts value=$form->{paidaccounts}> + <input type=hidden name=selectAP_paid value="$form->{selectAP_paid}"> + + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub form_footer { + + &print_options; + + print qq| + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<p> +|; + + + $transdate = $form->datetonum($form->{transdate}, \%myconfig); + $closedto = $form->datetonum($form->{closedto}, \%myconfig); + + if (! $form->{readonly}) { + + if ($form->{id}) { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> +|; + + if (!$form->{locked}) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Post').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Print').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Print and Post').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Delete').qq|"> + |; + } + + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Post as new').qq|"> +|; + + } else { + if ($transdate > $closedto) { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Print').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Post').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Print and Post').qq|">|; + } + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print " +</form> + +</body> +</html> +"; + +} + + +sub update { + my $display = shift; + + if ($display) { + goto TAXCALC; + } + + $form->{invtotal} = 0; + + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate); + + @flds = qw(amount AP_amount projectnumber); + $count = 0; + for $i (1 .. $form->{rowcount}) { + $form->{"amount_$i"} = $form->parse_amount(\%myconfig, $form->{"amount_$i"}); + if ($form->{"amount_$i"}) { + push @a, {}; + my $j = $#a; + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + $form->redo_rows(\@flds, \@a, $count, $form->{rowcount}); + $form->{rowcount} = $count + 1; + + map { $form->{invtotal} += $form->{"amount_$_"} } (1 .. $form->{rowcount}); + + $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, 'sell'))); + + if (&check_name(vendor)) { + $form->{notes} = $form->{intnotes} unless $form->{id}; + } + + if ($form->{transdate} ne $form->{oldtransdate}) { + $form->{duedate} = $form->current_date(\%myconfig, $form->{transdate}, $form->{terms} * 1); + $form->{oldtransdate} = $form->{transdate}; + } + + + +TAXCALC: + # recalculate taxes + + @taxaccounts = split / /, $form->{taxaccounts}; + + map { $form->{"tax_$_"} = $form->parse_amount(\%myconfig, $form->{"tax_$_"}) } @taxaccounts; + + if ($form->{taxincluded}) { + $taxrate = 0; + $withholdingrate = 0; + + foreach $item (@taxaccounts) { + $form->{"calctax_$item"} = 1 if $form->{calctax}; + + if ($form->{"calctax_$item"}) { + if ($form->{"${item}_rate"} > 0) { + $taxrate += $form->{"${item}_rate"}; + } else { + $withholdingrate += $form->{"${item}_rate"}; + } + } + } + + foreach $item (@taxaccounts) { + if ($form->{"calctax_$item"}) { + if ($form->{"${item}_rate"} > 0) { + if ($taxrate) { + $amount = $form->round_amount($form->{invtotal} * $taxrate / (1 + $taxrate), 2) * $form->{"${item}_rate"} / $taxrate; + $form->{"tax_$item"} = $form->round_amount($amount, 2); + $taxdiff += ($amount - $form->{"tax_$item"}); + } + } else { + if ($withholdingrate) { + $amount = $form->round_amount($form->{invtotal} * $withholdingrate / (1 - $withholdingrate), 2) * $form->{"${item}_rate"} / $withholdingrate; + $form->{"tax_$item"} = $form->round_amount($amount, 2); + $taxdiff += ($amount - $form->{"tax_$item"}); + } + } + + if (abs $taxdiff >= 0.005) { + $form->{"tax_$item"} += $form->round_amount($taxdiff, 2); + $taxdiff = 0; + } + } + $form->{"selectAP_tax_$item"} = qq|<option>$item--$form->{"${item}_description"}|; + $totaltax += $form->{"tax_$item"}; + } + } else { + foreach $item (@taxaccounts) { + $form->{"calctax_$item"} = 1 if $form->{calctax}; + + if ($form->{"calctax_$item"}) { + $form->{"tax_$item"} = $form->round_amount($form->{invtotal} * $form->{"${item}_rate"}, 2); + } + $form->{"selectAP_tax_$item"} = qq|<option>$item--$form->{"${item}_description"}|; + $totaltax += $form->{"tax_$item"}; + } + } + + $form->{invtotal} = ($form->{taxincluded}) ? $form->{invtotal} : $form->{invtotal} + $totaltax; + + for $i (1 .. $form->{paidaccounts}) { + if ($form->{"paid_$i"}) { + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate); + + $totalpaid += $form->{"paid_$i"}; + + $form->{"exchangerate_$i"} = $exchangerate if ($form->{"forex_$i"} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'sell'))); + } + } + + $form->{creditremaining} -= ($form->{invtotal} - $totalpaid + $form->{oldtotalpaid} - $form->{oldinvtotal}); + $form->{oldinvtotal} = $form->{invtotal}; + $form->{oldtotalpaid} = $totalpaid; + + &display_form; + +} + + +sub post { + + # check if there is a vendor, invoice and due date + $form->isblank("transdate", $locale->text("Invoice Date missing!")); + $form->isblank("duedate", $locale->text("Due Date missing!")); + $form->isblank("vendor", $locale->text('Vendor missing!')); + + + $closedto = $form->datetonum($form->{closedto}, \%myconfig); + $transdate = $form->datetonum($form->{transdate}, \%myconfig); + + $form->error($locale->text('Cannot post transaction for a closed period!')) if ($transdate <= $closedto); + + $form->isblank("exchangerate", $locale->text('Exchange rate missing!')) if ($form->{currency} ne $form->{defaultcurrency}); + + for $i (1 .. $form->{paidaccounts}) { + if ($form->{"paid_$i"}) { + $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig); + + $form->isblank("datepaid_$i", $locale->text('Payment date missing!')); + + $form->error($locale->text('Cannot post payment for a closed period!')) if ($datepaid <= $closedto); + + if ($form->{currency} ne $form->{defaultcurrency}) { + $form->{"exchangerate_$i"} = $form->{exchangerate} if ($transdate == $datepaid); + $form->isblank("exchangerate_$i", $locale->text('Exchange rate for payment missing!')); + } + + } + } + + + # if old vendor ne vendor redo form + ($vendor) = split /--/, $form->{vendor}; + if ($form->{oldvendor} ne "$vendor--$form->{vendor_id}") { + &update; + exit; + } + + $form->{invnumber} = $form->update_defaults(\%myconfig, "vinumber") unless $form->{invnumber}; + + $form->{id} = 0 if $form->{postasnew}; + + $form->redirect($locale->text('Transaction posted!')) if (AP->post_transaction(\%myconfig, \%$form)); + $form->error($locale->text('Cannot post transaction!')); + +} + + +sub post_as_new { + + $form->{postasnew} = 1; + &post; + +} + + +sub delete { + + $form->{title} = $locale->text('Confirm!'); + + $form->header; + + delete $form->{header}; + + print qq| +<body> + +<form method=post action=$form->{script}> +|; + + $form->hide_form(); + + print qq| +<h2 class=confirm>$form->{title}</h2> + +<h4>|.$locale->text('Are you sure you want to delete Transaction').qq| $form->{invnumber}</h4> + +<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|"> +</form> + +</body> +</html> +|; + +} + + + +sub yes { + + $form->redirect($locale->text('Transaction deleted!')) if (AP->delete_transaction(\%myconfig, \%$form, $spool)); + $form->error($locale->text('Cannot delete transaction!')); + +} + + +sub search { + + $form->create_links("AP", \%myconfig, "vendor"); + + $form->{selectAP} = "<option>\n"; + map { $form->{selectAP} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{AP_links}{AP} }; + + + if (@{ $form->{all_vendor} }) { + map { $vendor .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_vendor} }; + $vendor = qq|<select name=vendor><option>\n$vendor\n</select>|; + } else { + $vendor = qq|<input name=vendor size=35>|; + } + + # departments + if (@{ $form->{all_departments} }) { + $form->{selectdepartment} = "<option>\n"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + $department = qq| + <tr> + <th align=right nowrap>|.$locale->text('Department').qq|</th> + <td colspan=3><select name=department>$form->{selectdepartment}</select></td> + </tr> +| if $form->{selectdepartment}; + + $form->{title} = $locale->text('AP Transactions'); + + $invnumber = qq| + <tr> + <th align=right nowrap>|.$locale->text('Invoice Number').qq|</th> + <td colspan=3><input name=invnumber size=20></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Order Number').qq|</th> + <td colspan=3><input name=ordnumber size=20></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Notes').qq|</th> + <td colspan=3><input name=notes size=40></td> + </tr> +|; + + $openclosed = qq| + <tr> + <td align=right><input name=open class=checkbox type=checkbox value=Y checked></td> + <td nowrap>|.$locale->text('Open').qq|</td> + <td align=right><input name=closed class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Closed').qq|</td> + </tr> +|; + + if ($form->{outstanding}) { + $form->{title} = $locale->text('AP Outstanding'); + $invnumber = ""; + $openclosed = ""; + } + + # accounting years + $form->{selectaccountingyear} = "<option>\n"; + map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} }; + $form->{selectaccountingmonth} = "<option>\n"; + map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} }; + + $selectfrom = qq| + <tr> + <th align=right>|.$locale->text('Period').qq|</th> + <td colspan=3> + <select name=month>$form->{selectaccountingmonth}</select> + <select name=year>$form->{selectaccountingyear}</select> + <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq| + <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq| + <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq| + <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq| + </td> + </tr> +|; + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=title value="$form->{title}"> +<input type=hidden name=outstanding value=$form->{outstanding}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Account').qq|</th> + <td colspan=3><select name=AP>$form->{selectAP}</select></td> + </tr> + <tr> + <th align=right>|.$locale->text('Vendor').qq|</th> + <td colspan=3>$vendor</td> + </tr> + $department + $invnumber + <tr> + <th align=right nowrap>|.$locale->text('From').qq|</th> + <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td> + </tr> + <input type=hidden name=sort value=transdate> + $selectfrom + </table> + </td> + </tr> + <tr> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <td> + <table width=100%> + $openclosed + <tr> + <td align=right><input name="l_id" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('ID').qq|</td> + <td align=right><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td> + <td nowrap>|.$locale->text('Invoice Number').qq|</td> + <td align=right><input name="l_ordnumber" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Order Number').qq|</td> + </tr> + <tr> + <td align=right><input name="l_name" class=checkbox type=checkbox value=Y checked></td> + <td nowrap>|.$locale->text('Vendor').qq|</td> + <td align=right><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td> + <td nowrap>|.$locale->text('Invoice Date').qq|</td> + </tr> + <tr> + <td align=right><input name="l_netamount" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Amount').qq|</td> + <td align=right><input name="l_tax" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Tax').qq|</td> + <td align=right><input name="l_amount" class=checkbox type=checkbox value=Y checked></td> + <td nowrap>|.$locale->text('Total').qq|</td> + <td align=right><input name="l_curr" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Currency').qq|</td> + </tr> + <tr> + <td align=right><input name="l_datepaid" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Date Paid').qq|</td> + <td align=right><input name="l_paid" class=checkbox type=checkbox value=Y checked></td> + <td nowrap>|.$locale->text('Paid').qq|</td> + <td align=right><input name="l_duedate" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Due Date').qq|</td> + <td align=right><input name="l_due" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Amount Due').qq|</td> + </tr> + <tr valign=top> + <td align=right><input name="l_notes" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Notes').qq|</td> + <td align=right><input name="l_employee" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Employee').qq|</td> + <td align=right><input name="l_manager" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Manager').qq|</td> + </tr> + <tr> + <td align=right><input name="l_subtotal" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Subtotal').qq|</td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<input type=hidden name=nextsub value=$form->{nextsub}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + +sub ap_transactions { + + if ($form->{vendor}) { + $form->{vendor} = $form->unescape($form->{vendor}); + ($form->{vendor}, $form->{vendor_id}) = split(/--/, $form->{vendor}); + } + + AP->ap_transactions(\%myconfig, \%$form); + + $href = "$form->{script}?action=ap_transactions&direction=$form->{direction}&oldsort=$form->{oldsort}&outstanding=$form->{outstanding}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->sort_order(); + + $callback = "$form->{script}?action=ap_transactions&direction=$form->{direction}&oldsort=$form->{oldsort}&outstanding=$form->{outstanding}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $callback .= "&title=".$form->escape($form->{title},1); + $href .= "&title=".$form->escape($form->{title}); + + if ($form->{AP}) { + $callback .= "&AP=".$form->escape($form->{AP},1); + $href .= "&AP=".$form->escape($form->{AP}); + $form->{AP} =~ s/--/ /; + $option = $locale->text('Account')." : $form->{AP}"; + } + + if ($form->{vendor}) { + $callback .= "&vendor=".$form->escape($form->{vendor},1)."--$form->{vendor_id}"; + $href .= "&vendor=".$form->escape($form->{vendor})."--$form->{vendor_id}"; + $option .= "\n<br>" if ($option); + $option .= $locale->text('Vendor')." : $form->{vendor}"; + } + if ($form->{department}) { + $callback .= "&department=".$form->escape($form->{department},1); + $href .= "&department=".$form->escape($form->{department}); + ($department) = split /--/, $form->{department}; + $option .= "\n<br>" if ($option); + $option .= $locale->text('Department')." : $department"; + } + if ($form->{invnumber}) { + $callback .= "&invnumber=".$form->escape($form->{invnumber},1); + $href .= "&invnumber=".$form->escape($form->{invnumber}); + $option .= "\n<br>" if ($option); + $option .= $locale->text('Invoice Number')." : $form->{invnumber}"; + } + if ($form->{ordnumber}) { + $callback .= "&ordnumber=".$form->escape($form->{ordnumber},1); + $href .= "&ordnumber=".$form->escape($form->{ordnumber}); + $option .= "\n<br>" if ($option); + $option .= $locale->text('Order Number')." : $form->{ordnumber}"; + } + if ($form->{notes}) { + $callback .= "¬es=".$form->escape($form->{notes},1); + $href .= "¬es=".$form->escape($form->{notes}); + $option .= "\n<br>" if $option; + $option .= $locale->text('Notes')." : $form->{notes}"; + } + + 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}"; + $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'); + } + + @columns = $form->sort_columns(qw(transdate id invnumber ordnumber name netamount tax amount paid due curr datepaid duedate notes employee manager)); + + foreach $item (@columns) { + if ($form->{"l_$item"} eq "Y") { + push @column_index, $item; + + if ($form->{l_curr} && $item =~ /(amount|tax|paid|due)/) { + push @column_index, "fx_$item"; + } + + # add column to href and callback + $callback .= "&l_$item=Y"; + $href .= "&l_$item=Y"; + } + } + + if ($form->{l_subtotal} eq 'Y') { + $callback .= "&l_subtotal=Y"; + $href .= "&l_subtotal=Y"; + } + + + $column_header{id} = qq|<th><a class=listheading href=$href&sort=id>|.$locale->text('ID').qq|</a></th>|; + $column_header{transdate} = qq|<th><a class=listheading href=$href&sort=transdate>|.$locale->text('Date').qq|</a></th>|; + $column_header{duedate} = qq|<th><a class=listheading href=$href&sort=duedate>|.$locale->text('Due Date').qq|</a></th>|; + $column_header{due} = qq|<th class=listheading>|.$locale->text('Amount Due').qq|</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{name} = qq|<th><a class=listheading href=$href&sort=name>|.$locale->text('Vendor').qq|</a></th>|; + $column_header{netamount} = qq|<th class=listheading>|.$locale->text('Amount').qq|</th>|; + $column_header{tax} = qq|<th class=listheading>|.$locale->text('Tax').qq|</th>|; + $column_header{amount} = qq|<th class=listheading>|.$locale->text('Total').qq|</th>|; + $column_header{paid} = qq|<th class=listheading>|.$locale->text('Paid').qq|</th>|; + $column_header{datepaid} = qq|<th><a class=listheading href=$href&sort=datepaid>|.$locale->text('Date Paid').qq|</a></th>|; + $column_header{notes} = qq|<th class=listheading>|.$locale->text('Notes').qq|</th>|; + $column_header{employee} = "<th><a class=listheading href=$href&sort=employee>".$locale->text('Employee')."</th>"; + $column_header{manager} = "<th><a class=listheading href=$href&sort=manager>".$locale->text('Manager')."</th>"; + + $column_header{curr} = "<th><a class=listheading href=$href&sort=curr>" . $locale->text('Curr') . "</a></th>"; + map { $column_header{"fx_$_"} = "<th> </th>" } qw(amount tax netamount paid due); + + $form->{title} = ($form->{title}) ? $form->{title} : $locale->text('AP Transactions'); + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "\n$column_header{$_}" } @column_index; + + print qq| + </tr> +|; + + # add sort and escape callback + $form->{callback} = "$callback&sort=$form->{sort}"; + $callback = $form->escape($form->{callback}); + + # flip direction + $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC"; + $href =~ s/&direction=(\w+)&/&direction=$direction&/; + + if (@{ $form->{transactions} }) { + $sameitem = $form->{transactions}->[0]->{$form->{sort}}; + } + + # sums and tax on reports by Antonio Gallardo + # + foreach $ap (@{ $form->{transactions} }) { + + if ($form->{l_subtotal} eq 'Y') { + if ($sameitem ne $ap->{$form->{sort}}) { + &ap_subtotal; + $sameitem = $ap->{$form->{sort}}; + } + } + + if ($form->{l_curr}) { + map { $ap->{"fx_$_"} = $ap->{$_}/$ap->{exchangerate} } qw(netamount amount paid); + + map { $column_data{"fx_$_"} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{"fx_$_"}, 2, " ")."</td>" } qw(netamount amount paid); + + $column_data{fx_tax} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{fx_amount} - $ap->{fx_netamount}, 2, " ")."</td>"; + $column_data{fx_due} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{fx_amount} - $ap->{fx_paid}, 2, " ")."</td>"; + + $subtotalfxnetamount += $ap->{fx_netamount}; + $subtotalfxamount += $ap->{fx_amount}; + $subtotalfxpaid += $ap->{fx_paid}; + + $totalfxnetamount += $ap->{fx_netamount}; + $totalfxamount += $ap->{fx_amount}; + $totalfxpaid += $ap->{fx_paid}; + + } + + map { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{$_}, 2, " ")."</td>" } qw(netamount amount paid); + + $column_data{tax} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{amount} - $ap->{netamount}, 2, " ") . "</td>"; + $column_data{due} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{amount} - $ap->{paid}, 2, " ")."</td>"; + + $totalnetamount += $ap->{netamount}; + $totalamount += $ap->{amount}; + $totalpaid += $ap->{paid}; + + $subtotalnetamount += $ap->{netamount}; + $subtotalamount += $ap->{amount}; + $subtotalpaid += $ap->{paid}; + + $column_data{transdate} = "<td>$ap->{transdate} </td>"; + $column_data{duedate} = "<td>$ap->{duedate} </td>"; + $column_data{datepaid} = "<td>$ap->{datepaid} </td>"; + + $module = ($ap->{invoice}) ? "ir.pl" : $form->{script}; + + $column_data{invnumber} = qq|<td><a href="$module?action=edit&path=$form->{path}&id=$ap->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback">$ap->{invnumber}</a></td>|; + $column_data{id} = "<td>$ap->{id}</td>"; + $column_data{ordnumber} = "<td>$ap->{ordnumber} </td>"; + + $name = $form->escape($ap->{name}); + $column_data{name} = "<td><a href=$href&vendor=$name--$ap->{vendor_id}&sort=$form->{sort}>$ap->{name}</a></td>"; + + $ap->{notes} =~ s/\r\n/<br>/g; + $column_data{notes} = "<td>$ap->{notes} </td>"; + $column_data{employee} = "<td>$ap->{employee} </td>"; + $column_data{manager} = "<td>$ap->{manager} </td>"; + $column_data{curr} = "<td>$ap->{curr}</td>"; + + $i++; + $i %= 2; + print " + <tr class=listrow$i > +"; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + } + + if ($form->{l_subtotal} eq 'Y') { + &ap_subtotal; + } + + # print totals + print qq| + <tr class=listtotal> +|; + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalnetamount, 2, " ")."</th>"; + $column_data{tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalnetamount, 2, " ")."</th>"; + $column_data{amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount, 2, " ")."</th>"; + $column_data{paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalpaid, 2, " ")."</th>"; + $column_data{due} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalpaid, 2, " ")."</th>"; + + if ($form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal}) { + $column_data{fx_netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxnetamount, 2, " ")."</th>"; + $column_data{fx_tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount - $totalnetfxamount, 2, " ")."</th>"; + $column_data{fx_amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount, 2, " ")."</th>"; + $column_data{fx_paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxpaid, 2, " ")."</th>"; + $column_data{fx_due} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount - $totalfxpaid, 2, " ")."</th>"; + } + + map { print "$column_data{$_}\n" } @column_index; + + if ($myconfig{acs} !~ /AP--AP/) { + $i = 1; + $button{'AP--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AP Transaction').qq|"> |; + $button{'AP--Add Transaction'}{order} = $i++; + $button{'AP--Vendor Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Vendor Invoice.').qq|"> |; + $button{'AP--Vendor Invoice'}{order} = $i++; + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + } + + print qq| + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input type=hidden name=vendor value="$form->{vendor}"> +<input type=hidden name=vendor_id value=$form->{vendor_id}> +<input type=hidden name=vc value=vendor> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +sub ap_subtotal { + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{netamount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalnetamount, 2, " ")."</th>"; + $column_data{tax} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalnetamount, 2, " ")."</th>"; + $column_data{amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount, 2, " ")."</th>"; + $column_data{paid} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalpaid, 2, " ")."</th>"; + $column_data{due} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalpaid, 2, " ")."</th>"; + + if ($form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal}) { + $column_data{fx_tax} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount - $subtotalfxnetamount, 2, " ")."</th>"; + $column_data{fx_amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount, 2, " ")."</th>"; + $column_data{fx_paid} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxpaid, 2, " ")."</th>"; + $column_data{fx_due} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount - $subtotalfxpaid, 2, " ")."</th>"; + } + + $subtotalnetamount = 0; + $subtotalamount = 0; + $subtotalpaid = 0; + + $subtotalfxnetamount = 0; + $subtotalfxamount = 0; + $subtotalfxpaid = 0; + + print "<tr class=listsubtotal>"; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + +} + + diff --git a/sql-ledger/bin/mozilla/ar.pl b/sql-ledger/bin/mozilla/ar.pl new file mode 100644 index 000000000..8f98981e5 --- /dev/null +++ b/sql-ledger/bin/mozilla/ar.pl @@ -0,0 +1,1486 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2000 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# Contributors: +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# Accounts Receivable +# +#====================================================================== + + +use SL::AR; +use SL::IS; +use SL::PE; + +require "$form->{path}/arap.pl"; +require "$form->{path}/arapprn.pl"; + +1; +# end of main + +# this is for our long dates +# $locale->text('January') +# $locale->text('February') +# $locale->text('March') +# $locale->text('April') +# $locale->text('May ') +# $locale->text('June') +# $locale->text('July') +# $locale->text('August') +# $locale->text('September') +# $locale->text('October') +# $locale->text('November') +# $locale->text('December') + +# this is for our short month +# $locale->text('Jan') +# $locale->text('Feb') +# $locale->text('Mar') +# $locale->text('Apr') +# $locale->text('May') +# $locale->text('Jun') +# $locale->text('Jul') +# $locale->text('Aug') +# $locale->text('Sep') +# $locale->text('Oct') +# $locale->text('Nov') +# $locale->text('Dec') + + +sub add { + + $form->{title} = "Add"; + $form->{callback} = "$form->{script}?action=add&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &create_links; + &display_form; + +} + + +sub edit { + + $form->{title} = "Edit"; + + &create_links; + &display_form; + +} + + +sub display_form { + + &form_header; + &form_footer; + +} + + +sub create_links { + + $form->create_links("AR", \%myconfig, "customer"); + $duedate = $form->{duedate}; + + $form->{formname} = "transaction"; + $form->{format} = "postscript" if $myconfig{printer}; + $form->{media} = $myconfig{printer}; + + # currencies + @curr = split /:/, $form->{currencies}; + chomp $curr[0]; + $form->{defaultcurrency} = $curr[0]; + + map { $form->{selectcurrency} .= "<option>$_\n" } @curr; + + IS->get_customer(\%myconfig, \%$form); + + $form->{duedate} = $duedate if $duedate; + $form->{notes} = $form->{intnotes} if !$form->{id}; + + $form->{oldcustomer} = "$form->{customer}--$form->{customer_id}"; + $form->{oldtransdate} = $form->{transdate}; + + # customers + if (@{ $form->{all_customer} }) { + $form->{customer} = "$form->{customer}--$form->{customer_id}"; + map { $form->{selectcustomer} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_customer} }); + } + + # departments + if (@{ $form->{all_departments} }) { + $form->{selectdepartment} = "<option>\n"; + $form->{department} = "$form->{department}--$form->{department_id}"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + $form->{employee} = "$form->{employee}--$form->{employee_id}"; + # sales staff + if (@{ $form->{all_employees} }) { + $form->{selectemployee} = ""; + map { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_employees} }); + } + + # projects + if (@{ $form->{all_projects} }) { + $form->{selectprojectnumber} = "<option>\n"; + map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } (@{ $form->{all_projects} }); + } + + if (@{ $form->{all_languages} }) { + $form->{selectlanguage} = "<option>\n"; + map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} }; + } + + # forex + $form->{forex} = $form->{exchangerate}; + $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1; + + foreach $key (keys %{ $form->{AR_links} }) { + + foreach $ref (@{ $form->{AR_links}{$key} }) { + if ($key eq 'AR_tax') { + $form->{"selectAR_tax_$ref->{accno}"} = "<option>$ref->{accno}--$ref->{description}\n"; + $form->{"calctax_$ref->{accno}"} = 1; + next; + } + $form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n"; + } + + # if there is a value we have an old entry + for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) { + if ($key eq "AR_paid") { + $form->{"AR_paid_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}"; + # reverse paid + $form->{"paid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{amount} * -1; + $form->{"datepaid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{transdate}; + $form->{"source_$i"} = $form->{acc_trans}{$key}->[$i-1]->{source}; + $form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i-1]->{memo}; + + $form->{"forex_$i"} = $form->{"exchangerate_$i"} = $form->{acc_trans}{$key}->[$i-1]->{exchangerate}; + + $form->{paidaccounts}++; + } else { + + $akey = $key; + $akey =~ s/AR_//; + + if ($key eq "AR_tax") { + $form->{"${key}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}"; + $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"} = $form->round_amount($form->{acc_trans}{$key}->[$i-1]->{amount} / $exchangerate, 2); + + if ($form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"} > 0) { + $totaltax += $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"}; + $taxrate += $form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"}; + } else { + $totalwithholding += $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"}; + $withholdingrate += $form->{"$form->{acc_trans}{$key}->[$i-1]->{accno}_rate"}; + } + + } else { + $form->{"${akey}_$i"} = $form->round_amount($form->{acc_trans}{$key}->[$i-1]->{amount} / $exchangerate, 2); + if ($akey eq 'amount') { + $form->{rowcount}++; + $totalamount += $form->{"${akey}_$i"}; + + $form->{"projectnumber_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{projectnumber}--$form->{acc_trans}{$key}->[$i-1]->{project_id}"; + } + $form->{"${key}_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}"; + } + } + } + } + + $form->{paidaccounts} = 1 if not defined $form->{paidaccounts}; + + if ($form->{taxincluded} && $totalamount) { + # add tax to individual amounts + for $i (1 .. $form->{rowcount}) { + $taxamount = ($totaltax + $totalwithholding) * $form->{"amount_$i"} / $totalamount; + $tax = $form->round_amount($taxamount, 2); + $diff += ($taxamount - $tax); + $form->{"amount_$i"} += $tax; + } + $form->{amount_1} += $form->round_amount($diff, 2); + } + + # check if calculated is equal to stored + # taxincluded is terrible to calculate + # this works only if all taxes are checked + foreach $item (split / /, $form->{taxaccounts}) { + if ($form->{taxincluded}) { + if ($form->{"${item}_rate"} > 0) { + if ($taxrate) { + $taxamount = $form->round_amount(($totalamount + $totaltax + $totalwithholding) * $taxrate / (1 + $taxrate), 2) * $form->{"${item}_rate"} / $taxrate; + } + } else { + if ($withholdingrate) { + $taxamount = $form->round_amount(($totalamount + $totaltax + $totalwithholding) * $withholdingrate / (1 - $withholdingrate), 2) * $form->{"${item}_rate"} / $withholdingrate; + } + } + } else { + $taxamount = $totalamount * $form->{"${item}_rate"}; + } + $taxamount = $form->round_amount($taxamount, 2); + + $form->{"calctax_$item"} = 0; + if ($form->{"tax_$item"} == $taxamount) { + $form->{"calctax_$item"} = 1; + } + } + + $form->{invtotal} = $totalamount + $totaltax + $totalwithholding; + $form->{rowcount}++ if $form->{id}; + + $form->{AR} = $form->{AR_1}; + $form->{rowcount} = 1 unless $form->{AR_amount_1}; + + $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig)); + + # readonly + $form->{readonly} = 1 if $myconfig{acs} =~ /AR--Add Transaction/; + +} + + +sub form_header { + + $title = $form->{title}; + $form->{title} = $locale->text("$title AR Transaction"); + + $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : ""; + +# $locale->text('Add AR Transaction') +# $locale->text('Edit AR Transaction') + + # set option selected + foreach $item (qw(AR currency)) { + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/<option>\Q$form->{$item}\E/<option selected>$form->{$item}/; + } + + foreach $item (qw(customer department employee)) { + $form->{"select$item"} = $form->unescape($form->{"select$item"}); + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/; + } + + $form->{selectprojectnumber} = $form->unescape($form->{selectprojectnumber}); + + # format amounts + $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate}); + + $exchangerate = qq| +<input type=hidden name=forex value=$form->{forex}> +|; + if ($form->{currency} ne $form->{defaultcurrency}) { + if ($form->{forex}) { + $exchangerate .= qq| + <th align=right>|.$locale->text('Exchange Rate').qq|</th> + <td><input type=hidden name=exchangerate value=$form->{exchangerate}>$form->{exchangerate}</td> +|; + } else { + $exchangerate .= qq| + <th align=right>|.$locale->text('Exchange Rate').qq|</th> + <td><input name=exchangerate size=10 value=$form->{exchangerate}></td> +|; + } + } + + $taxincluded = ""; + if ($form->{taxaccounts}) { + $taxincluded = qq| + <tr> + <td align=right><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td> + <th align=left nowrap>|.$locale->text('Tax Included').qq|</th> + </tr> +|; + } + + + if (($rows = $form->numtextrows($form->{notes}, 50)) < 2) { + $rows = 2; + } + $notes = qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|; + + $department = qq| + <tr> + <th align="right" nowrap>|.$locale->text('Department').qq|</th> + <td colspan=3><select name=department>$form->{selectdepartment}</select> + <input type=hidden name=selectdepartment value="|.$form->escape($form->{selectdepartment},1).qq|"> + </td> + </tr> +| if $form->{selectdepartment}; + + + $n = ($form->{creditremaining} < 0) ? "0" : "1"; + + $customer = ($form->{selectcustomer}) ? qq|<select name=customer>$form->{selectcustomer}</select>| : qq|<input name=customer value="$form->{customer}" size=35>|; + + $employee = qq| + <input type=hidden name=employee value="$form->{employee}"> +|; + + $employee = qq| + <tr> + <th align=right nowrap>|.$locale->text('Salesperson').qq|</th> + <td><select name=employee>$form->{selectemployee}</select></td> + <input type=hidden name=selectemployee value="|.$form->escape($form->{selectemployee},1).qq|"> + </tr> +| if $form->{selectemployee}; + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=id value=$form->{id}> + +<input type=hidden name=type value="transaction"> +<input type=hidden name=vc value="customer"> + +<input type=hidden name=queued value="$form->{queued}"> +<input type=hidden name=printed value="$form->{printed}"> +<input type=hidden name=emailed value="$form->{emailed}"> + +<input type=hidden name=sort value=$form->{sort}> + +<input type=hidden name=closedto value=$form->{closedto}> +<input type=hidden name=locked value=$form->{locked}> + +<input type=hidden name=title value="$title"> + +<input type=hidden name=oldtransdate value=$form->{oldtransdate}> +<input type=hidden name=audittrail value="$form->{audittrail}"> + +<table width=100%> + <tr class=listtop> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr valign=top> + <td> + <table width=100%> + <tr valign=top> + <td> + <table> + <tr> + <th align="right" nowrap>|.$locale->text('Customer').qq|</th> + <td colspan=3>$customer</td> + <input type=hidden name=selectcustomer value="|.$form->escape($form->{selectcustomer},1).qq|"> + <input type=hidden name=oldcustomer value="$form->{oldcustomer}"> + <input type=hidden name=customer_id value="$form->{customer_id}"> + <input type=hidden name=terms value=$form->{terms}> + </tr> + <tr> + <td></td> + <td colspan=3> + <table width=100%> + <tr> + <th align=left nowrap>|.$locale->text('Credit Limit').qq|</th> + <td>$form->{creditlimit}</td> + <th align=left nowrap>|.$locale->text('Remaining').qq|</th> + <td class="plus$n">|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</td> + <input type=hidden name=creditlimit value=$form->{creditlimit}> + <input type=hidden name=creditremaining value=$form->{creditremaining}> + </tr> + </table> + </td> + </tr> + <tr> + <th align=right>|.$locale->text('Currency').qq|</th> + <td><select name=currency>$form->{selectcurrency}</select></td> + <input type=hidden name=selectcurrency value="$form->{selectcurrency}"> + <input type=hidden name=defaultcurrency value=$form->{defaultcurrency}> + <input type=hidden name=fxgain_accno value=$form->{fxgain_accno}> + <input type=hidden name=fxloss_accno value=$form->{fxloss_accno}> + $exchangerate + </tr> + $department + $taxincluded + </table> + </td> + <td align=right> + <table> + $employee + <tr> + <th align=right nowrap>|.$locale->text('Invoice Number').qq|</th> + <td><input name=invnumber size=20 value="$form->{invnumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Order Number').qq|</th> + <td><input name=ordnumber size=20 value="$form->{ordnumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Invoice Date').qq|</th> + <td><input name=transdate size=11 title="($myconfig{'dateformat'})" value=$form->{transdate}></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Due Date').qq|</th> + <td><input name=duedate size=11 title="$myconfig{'dateformat'}" value=$form->{duedate}></td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table width=100%> + +<input type=hidden name=selectAR_amount value="$form->{selectAR_amount}"> +<input type=hidden name=selectprojectnumber value="|.$form->escape($form->{selectprojectnumber},1).qq|"> +<input type=hidden name=rowcount value=$form->{rowcount}> +|; + + $amount = $locale->text('Amount'); + + for $i (1 .. $form->{rowcount}) { + + $selectAR_amount = $form->{selectAR_amount}; + $selectAR_amount =~ s/option>\Q$form->{"AR_amount_$i"}\E/option selected>$form->{"AR_amount_$i"}/; + + $selectprojectnumber = $form->{selectprojectnumber}; + $selectprojectnumber =~ s/(<option value="\Q$form->{"projectnumber_$i"}\E")/$1 selected/; + + # format amounts + $form->{"amount_$i"} = $form->format_amount(\%myconfig, $form->{"amount_$i"}, 2); + + $project = qq| + <td align=right><select name="projectnumber_$i">$selectprojectnumber</select></td> +| if $form->{selectprojectnumber}; + + print qq| + <tr> + <th align=right>$amount</th> + <td><input name="amount_$i" size=10 value=$form->{"amount_$i"}></td> + <td></td> + <td><select name="AR_amount_$i">$selectAR_amount</select></td> + $project + </tr> +|; + $amount = ""; + } + + + $taxlabel = ($form->{taxincluded}) ? $locale->text('Tax Included') : $locale->text('Tax'); + + foreach $item (split / /, $form->{taxaccounts}) { + + $form->{"calctax_$item"} = ($form->{"calctax_$item"}) ? "checked" : ""; + + $form->{"tax_$item"} = $form->format_amount(\%myconfig, $form->{"tax_$item"}, 2); + print qq| + <tr> + <th align=right nowrap>$taxlabel</th> + <td><input name="tax_$item" size=10 value=$form->{"tax_$item"}></td> + <td align=right><input name="calctax_$item" class=checkbox type=checkbox value=1 $form->{"calctax_$item"}></td> + <td><select name="AR_tax_$item">$form->{"selectAR_tax_$item"}</select></td> + </tr> + <input type=hidden name="${item}_rate" value="$form->{"${item}_rate"}"> + <input type=hidden name="${item}_description" value="$form->{"${item}_description"}"> + <input type=hidden name="selectAR_tax_$item" value="$form->{"selectAR_tax_$item"}"> +|; + + } + + $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2); + + print qq| + <tr> + + <th align=right>|.$locale->text('Total').qq|</th> + <th align=left>$form->{invtotal}</th> + <td></td> + + <input type=hidden name=oldinvtotal value=$form->{oldinvtotal}> + <input type=hidden name=oldtotalpaid value=$form->{oldtotalpaid}> + + <input type=hidden name=taxaccounts value="$form->{taxaccounts}"> + + <td><select name=AR>$form->{selectAR}</select></td> + <input type=hidden name=selectAR value="$form->{selectAR}"> + + </tr> + <tr valign=top> + <th align=right>|.$locale->text('Notes').qq|</th> + <td colspan=4>$notes</td> + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> + <th colspan=6 class=listheading>|.$locale->text('Payments').qq|</th> + </tr> +|; + + if ($form->{currency} eq $form->{defaultcurrency}) { + @column_index = qw(datepaid source memo paid AR_paid); + } else { + @column_index = qw(datepaid source memo paid exchangerate AR_paid); + } + + $column_data{datepaid} = "<th>".$locale->text('Date')."</th>"; + $column_data{paid} = "<th>".$locale->text('Amount')."</th>"; + $column_data{exchangerate} = "<th>".$locale->text('Exch')."</th>"; + $column_data{AR_paid} = "<th>".$locale->text('Account')."</th>"; + $column_data{source} = "<th>".$locale->text('Source')."</th>"; + $column_data{memo} = "<th>".$locale->text('Memo')."</th>"; + + print " + <tr> +"; + map { print "$column_data{$_}\n" } @column_index; + print " + </tr> +"; + + + $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"}); + for $i (1 .. $form->{paidaccounts}) { + print " + <tr> +"; + + $form->{"selectAR_paid_$i"} = $form->{selectAR_paid}; + $form->{"selectAR_paid_$i"} =~ s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/; + + # format amounts + $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2); + $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"}); + + $exchangerate = qq| |; + if ($form->{currency} ne $form->{defaultcurrency}) { + if ($form->{"forex_$i"}) { + $exchangerate = qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|; + } else { + $exchangerate = qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|; + } + } + + $exchangerate .= qq| +<input type=hidden name="forex_$i" value=$form->{"forex_$i"}> +|; + + $column_data{paid} = qq|<td align=center><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>|; + $column_data{AR_paid} = qq|<td align=center><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|; + $column_data{exchangerate} = qq|<td align=center>$exchangerate</td>|; + $column_data{datepaid} = qq|<td align=center><input name="datepaid_$i" size=11 value=$form->{"datepaid_$i"}></td>|; + $column_data{source} = qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|; + $column_data{memo} = qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></td>|; + + map { print qq|$column_data{$_}\n| } @column_index; + + print " + </tr> +"; + } + + print qq| +<input type=hidden name=paidaccounts value=$form->{paidaccounts}> +<input type=hidden name=selectAR_paid value="$form->{selectAR_paid}"> + + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub form_footer { + + &print_options; + + print qq| + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +|; + + $transdate = $form->datetonum($form->{transdate}, \%myconfig); + $closedto = $form->datetonum($form->{closedto}, \%myconfig); + + if (! $form->{readonly}) { + + if ($form->{id}) { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> +|; + + if (!$form->{locked}) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Post').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Print').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Print and Post').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Delete').qq|"> +|; + } + + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Post as new').qq|"> +|; + + } else { + if ($transdate > $closedto) { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Print').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Post').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Print and Post').qq|">|; + } + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print " +</form> + +</body> +</html> +"; + +} + + +sub update { + my $display = shift; + + if ($display) { + goto TAXCALC; + } + + $form->{invtotal} = 0; + + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate); + + @flds = qw(amount AR_amount projectnumber); + $count = 0; + @a = (); + for $i (1 .. $form->{rowcount}) { + $form->{"amount_$i"} = $form->parse_amount(\%myconfig, $form->{"amount_$i"}); + if ($form->{"amount_$i"}) { + push @a, {}; + $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + + $form->redo_rows(\@flds, \@a, $count, $form->{rowcount}); + $form->{rowcount} = $count + 1; + + map { $form->{invtotal} += $form->{"amount_$_"} } (1 .. $form->{rowcount}); + + $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, 'buy'))); + + + if (&check_name(customer)) { + $form->{notes} = $form->{intnotes} unless $form->{id}; + } + + if ($form->{transdate} ne $form->{oldtransdate}) { + $form->{duedate} = $form->current_date(\%myconfig, $form->{transdate}, $form->{terms} * 1); + $form->{oldtransdate} = $form->{transdate}; + } + + + +TAXCALC: + # recalculate taxes + + @taxaccounts = split / /, $form->{taxaccounts}; + + map { $form->{"tax_$_"} = $form->parse_amount(\%myconfig, $form->{"tax_$_"}) } @taxaccounts; + + if ($form->{taxincluded}) { + $taxrate = 0; + $withholdingrate = 0; + + foreach $item (@taxaccounts) { + $form->{"calctax_$item"} = 1 if $form->{calctax}; + + if ($form->{"calctax_$item"}) { + if ($form->{"${item}_rate"} > 0) { + $taxrate += $form->{"${item}_rate"}; + } else { + $withholdingrate += $form->{"${item}_rate"}; + } + } + } + + foreach $item (@taxaccounts) { + + if ($form->{"calctax_$item"}) { + if ($form->{"${item}_rate"} > 0) { + if ($taxrate) { + $amount = $form->round_amount($form->{invtotal} * $taxrate / (1 + $taxrate), 2) * $form->{"${item}_rate"} / $taxrate; + $form->{"tax_$item"} = $form->round_amount($amount, 2); + $taxdiff += ($amount - $form->{"tax_$item"}); + } + } else { + if ($withholdingrate) { + $amount = $form->round_amount($form->{invtotal} * $withholdingrate / (1 - $withholdingrate), 2) * $form->{"${item}_rate"} / $withholdingrate; + $form->{"tax_$item"} = $form->round_amount($amount, 2); + $taxdiff += ($amount - $form->{"tax_$item"}); + } + } + + if (abs($taxdiff) >= 0.005) { + $form->{"tax_$item"} += $form->round_amount($taxdiff, 2); + $taxdiff = 0; + } + } + $form->{"selectAR_tax_$item"} = qq|<option>$item--$form->{"${item}_description"}|; + $totaltax += $form->{"tax_$item"}; + } + } else { + foreach $item (@taxaccounts) { + $form->{"calctax_$item"} = 1 if $form->{calctax}; + + if ($form->{"calctax_$item"}) { + $form->{"tax_$item"} = $form->round_amount($form->{invtotal} * $form->{"${item}_rate"}, 2); + } + $form->{"selectAR_tax_$item"} = qq|<option>$item--$form->{"${item}_description"}|; + $totaltax += $form->{"tax_$item"}; + } + } + + $form->{invtotal} = ($form->{taxincluded}) ? $form->{invtotal} : $form->{invtotal} + $totaltax; + + for $i (1 .. $form->{paidaccounts}) { + if ($form->{"paid_$i"}) { + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate); + + $totalpaid += $form->{"paid_$i"}; + + $form->{"exchangerate_$i"} = $exchangerate if ($form->{"forex_$i"} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'buy'))); + } + } + + $form->{creditremaining} -= ($form->{invtotal} - $totalpaid + $form->{oldtotalpaid} - $form->{oldinvtotal}); + $form->{oldinvtotal} = $form->{invtotal}; + $form->{oldtotalpaid} = $totalpaid; + + &display_form; + +} + + +sub post { + + # check if there is an invoice number, invoice and due date + $form->isblank("transdate", $locale->text('Invoice Date missing!')); + $form->isblank("duedate", $locale->text('Due Date missing!')); + $form->isblank("customer", $locale->text('Customer missing!')); + + $closedto = $form->datetonum($form->{closedto}, \%myconfig); + $transdate = $form->datetonum($form->{transdate}, \%myconfig); + + $form->error($locale->text('Cannot post transaction for a closed period!')) if ($transdate <= $closedto); + + $form->isblank("exchangerate", $locale->text('Exchange rate missing!')) if ($form->{currency} ne $form->{defaultcurrency}); + + for $i (1 .. $form->{paidaccounts}) { + if ($form->{"paid_$i"}) { + $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig); + + $form->isblank("datepaid_$i", $locale->text('Payment date missing!')); + + $form->error($locale->text('Cannot post payment for a closed period!')) if ($datepaid <= $closedto); + + if ($form->{currency} ne $form->{defaultcurrency}) { + $form->{"exchangerate_$i"} = $form->{exchangerate} if ($transdate == $datepaid); + $form->isblank("exchangerate_$i", $locale->text('Exchange rate for payment missing!')); + } + } + } + + # if oldcustomer ne customer redo form + ($customer) = split /--/, $form->{customer}; + if ($form->{oldcustomer} ne "$customer--$form->{customer_id}") { + &update; + exit; + } + + $form->{invnumber} = $form->update_defaults(\%myconfig, "sinumber") unless $form->{invnumber}; + + $form->{id} = 0 if $form->{postasnew}; + + $form->redirect($locale->text('Transaction posted!')) if (AR->post_transaction(\%myconfig, \%$form)); + $form->error($locale->text('Cannot post transaction!')); + +} + + +sub post_as_new { + + $form->{postasnew} = 1; + &post; + +} + + +sub delete { + + $form->{title} = $locale->text('Confirm!'); + + $form->header; + + delete $form->{header}; + + print qq| +<body> + +<form method=post action=$form->{script}> +|; + + $form->hide_form(); + + print qq| +<h2 class=confirm>$form->{title}</h2> + +<h4>|.$locale->text('Are you sure you want to delete Transaction').qq| $form->{invnumber}</h4> + +<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|"> +</form> + +</body> +</html> +|; + +} + + + +sub yes { + + $form->redirect($locale->text('Transaction deleted!')) if (AR->delete_transaction(\%myconfig, \%$form, $spool)); + $form->error($locale->text('Cannot delete transaction!')); + +} + + +sub search { + + $form->create_links("AR", \%myconfig, "customer"); + + $form->{selectAR} = "<option>\n"; + map { $form->{selectAR} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{AR_links}{AR} }; + + if (@{ $form->{all_customer} }) { + map { $customer .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_customer} }; + $customer = qq|<select name=customer><option>\n$customer</select>|; + } else { + $customer = qq|<input name=customer size=35>|; + } + + # departments + if (@{ $form->{all_departments} }) { + $form->{selectdepartment} = "<option>\n"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + $department = qq| + <tr> + <th align=right nowrap>|.$locale->text('Department').qq|</th> + <td colspan=3><select name=department>$form->{selectdepartment}</select></td> + </tr> +| if $form->{selectdepartment}; + + + $form->{title} = $locale->text('AR Transactions'); + + $invnumber = qq| + <tr> + <th align=right nowrap>|.$locale->text('Invoice Number').qq|</th> + <td colspan=3><input name=invnumber size=20></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Order Number').qq|</th> + <td colspan=3><input name=ordnumber size=20></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Notes').qq|</th> + <td colspan=3><input name=notes size=40></td> + </tr> +|; + + $openclosed = qq| + <tr> + <td align=right><input name=open class=checkbox type=checkbox value=Y checked></td> + <td nowrap>|.$locale->text('Open').qq|</td> + <td align=right><input name=closed class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Closed').qq|</td> + </tr> +|; + + if ($form->{outstanding}) { + $form->{title} = $locale->text('AR Outstanding'); + $invnumber = ""; + $openclosed = ""; + } + + # accounting years + $form->{selectaccountingyear} = "<option>\n"; + map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} }; + $form->{selectaccountingmonth} = "<option>\n"; + map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} }; + + $selectfrom = qq| + <tr> + <th align=right>|.$locale->text('Period').qq|</th> + <td colspan=3> + <select name=month>$form->{selectaccountingmonth}</select> + <select name=year>$form->{selectaccountingyear}</select> + <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq| + <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq| + <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq| + <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq| + </td> + </tr> +|; + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=title value="$form->{title}"> +<input type=hidden name=outstanding value=$form->{outstanding}> + +<table width=100%> + <tr><th class=listtop>$form->{title}</th></tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Account').qq|</th> + <td colspan=3><select name=AR>$form->{selectAR}</select></td> + </tr> + <tr> + <th align=right>|.$locale->text('Customer').qq|</th> + <td colspan=3>$customer</td> + </tr> + $department + $invnumber + <tr> + <th align=right>|.$locale->text('Ship via').qq|</th> + <td colspan=3><input name=shipvia size=40></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('From').qq|</th> + <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td> + </tr> + <input type=hidden name=sort value=transdate> + $selectfrom + </table> + </td> + </tr> + <tr> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <td> + <table width=100%> + $openclosed + <tr> + <td align=right><input name="l_id" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('ID').qq|</td> + <td align=right><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td> + <td nowrap>|.$locale->text('Invoice Number').qq|</td> + <td align=right><input name="l_ordnumber" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Order Number').qq|</td> + <td align=right><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td> + <td nowrap>|.$locale->text('Invoice Date').qq|</td> + </tr> + <tr> + <td align=right><input name="l_name" class=checkbox type=checkbox value=Y checked></td> + <td nowrap>|.$locale->text('Customer').qq|</td> + <td align=right><input name="l_employee" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Salesperson').qq|</td> + <td align=right><input name="l_manager" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Manager').qq|</td> + </tr> + <tr> + <td align=right><input name="l_netamount" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Amount').qq|</td> + <td align=right><input name="l_tax" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Tax').qq|</td> + <td align=right><input name="l_amount" class=checkbox type=checkbox value=Y checked></td> + <td nowrap>|.$locale->text('Total').qq|</td> + <td align=right><input name="l_curr" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Currency').qq|</td> + </tr> + <tr> + <td align=right><input name="l_datepaid" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Date Paid').qq|</td> + <td align=right><input name="l_paid" class=checkbox type=checkbox value=Y checked></td> + <td nowrap>|.$locale->text('Paid').qq|</td> + <td align=right><input name="l_duedate" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Due Date').qq|</td> + <td align=right><input name="l_due" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Amount Due').qq|</td> + </tr> + <tr valign=top> + <td align=right><input name="l_notes" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Notes').qq|</td> + <td align=right><input name="l_till" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Till').qq|</td> + <td align=right><input name="l_shippingpoint" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Shipping Point').qq|</td> + <td align=right><input name="l_shipvia" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Ship via').qq|</td> + </tr> + <tr> + <td align=right><input name="l_subtotal" class=checkbox type=checkbox value=Y></td> + <td nowrap>|.$locale->text('Subtotal').qq|</td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=nextsub value=$form->{nextsub}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> + +</form> + +</body> +</html> +|; + +} + + +sub ar_transactions { + + if ($form->{customer}) { + $form->{customer} = $form->unescape($form->{customer}); + ($form->{customer}, $form->{customer_id}) = split(/--/, $form->{customer}); + } + + AR->ar_transactions(\%myconfig, \%$form); + + $href = "$form->{script}?action=ar_transactions&direction=$form->{direction}&oldsort=$form->{oldsort}&till=$form->{till}&outstanding=$form->{outstanding}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $href .= "&title=".$form->escape($form->{title}); + + $form->sort_order(); + + $callback = "$form->{script}?action=ar_transactions&direction=$form->{direction}&oldsort=$form->{oldsort}&till=$form->{till}&outstanding=$form->{outstanding}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $callback .= "&title=".$form->escape($form->{title},1); + + if ($form->{AR}) { + $callback .= "&AR=".$form->escape($form->{AR},1); + $href .= "&AR=".$form->escape($form->{AR}); + $form->{AR} =~ s/--/ /; + $option = $locale->text('Account')." : $form->{AR}"; + } + + if ($form->{customer}) { + $callback .= "&customer=".$form->escape($form->{customer},1)."--$form->{customer_id}"; + $href .= "&customer=".$form->escape($form->{customer})."--$form->{customer_id}"; + $option .= "\n<br>" if ($option); + $option .= $locale->text('Customer')." : $form->{customer}"; + } + if ($form->{department}) { + $callback .= "&department=".$form->escape($form->{department},1); + $href .= "&department=".$form->escape($form->{department}); + ($department) = split /--/, $form->{department}; + $option .= "\n<br>" if ($option); + $option .= $locale->text('Department')." : $department"; + } + if ($form->{invnumber}) { + $callback .= "&invnumber=".$form->escape($form->{invnumber},1); + $href .= "&invnumber=".$form->escape($form->{invnumber}); + $option .= "\n<br>" if ($option); + $option .= $locale->text('Invoice Number')." : $form->{invnumber}"; + } + if ($form->{ordnumber}) { + $callback .= "&ordnumber=".$form->escape($form->{ordnumber},1); + $href .= "&ordnumber=".$form->escape($form->{ordnumber}); + $option .= "\n<br>" if ($option); + $option .= $locale->text('Order Number')." : $form->{ordnumber}"; + } + if ($form->{notes}) { + $callback .= "¬es=".$form->escape($form->{notes},1); + $href .= "¬es=".$form->escape($form->{notes}); + $option .= "\n<br>" if $option; + $option .= $locale->text('Notes')." : $form->{notes}"; + } + + 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}"; + $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'); + } + + @columns = $form->sort_columns(qw(transdate id invnumber ordnumber name netamount tax amount paid due curr datepaid duedate notes till employee manager shippingpoint shipvia)); + + foreach $item (@columns) { + if ($form->{"l_$item"} eq "Y") { + push @column_index, $item; + + if ($form->{l_curr} && $item =~ /(amount|tax|paid|due)/) { + push @column_index, "fx_$item"; + } + + # add column to href and callback + $callback .= "&l_$item=Y"; + $href .= "&l_$item=Y"; + } + } + + + + if ($form->{l_subtotal} eq 'Y') { + $callback .= "&l_subtotal=Y"; + $href .= "&l_subtotal=Y"; + } + + + $column_header{id} = "<th><a class=listheading href=$href&sort=id}>".$locale->text('ID')."</a></th>"; + $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>"; + $column_header{duedate} = "<th><a class=listheading href=$href&sort=duedate>".$locale->text('Due Date')."</a></th>"; + $column_header{invnumber} = "<th><a class=listheading href=$href&sort=invnumber>".$locale->text('Invoice')."</a></th>"; + $column_header{ordnumber} = "<th><a class=listheading href=$href&sort=ordnumber>".$locale->text('Order')."</a></th>"; + $column_header{name} = "<th><a class=listheading href=$href&sort=name>".$locale->text('Customer')."</a></th>"; + $column_header{netamount} = "<th class=listheading>" . $locale->text('Amount') . "</th>"; + $column_header{tax} = "<th class=listheading>" . $locale->text('Tax') . "</th>"; + $column_header{amount} = "<th class=listheading>" . $locale->text('Total') . "</th>"; + $column_header{paid} = "<th class=listheading>" . $locale->text('Paid') . "</th>"; + $column_header{datepaid} = "<th><a class=listheading href=$href&sort=datepaid>" . $locale->text('Date Paid') . "</a></th>"; + $column_header{due} = "<th class=listheading>" . $locale->text('Amount Due') . "</th>"; + $column_header{notes} = "<th class=listheading>".$locale->text('Notes')."</th>"; + $column_header{employee} = "<th><a class=listheading href=$href&sort=employee>".$locale->text('Salesperson')."</th>"; + $column_header{manager} = "<th><a class=listheading href=$href&sort=manager>".$locale->text('Manager')."</th>"; + $column_header{till} = "<th class=listheading><a class=listheading href=$href&sort=till>".$locale->text('Till')."</th>"; + + $column_header{shippingpoint} = "<th><a class=listheading href=$href&sort=shippingpoint>" . $locale->text('Shipping Point') . "</a></th>"; + $column_header{shipvia} = "<th><a class=listheading href=$href&sort=shipvia>" . $locale->text('Ship via') . "</a></th>"; + + $column_header{curr} = "<th><a class=listheading href=$href&sort=curr>" . $locale->text('Curr') . "</a></th>"; + map { $column_header{"fx_$_"} = "<th> </th>" } qw(amount tax netamount paid due); + + $form->{title} = ($form->{title}) ? $form->{title} : $locale->text('AR Transactions'); + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "\n$column_header{$_}" } @column_index; + + print qq| + </tr> +|; + + + # add sort and escape callback, this one we use for the add sub + $form->{callback} = $callback .= "&sort=$form->{sort}"; + + # escape callback for href + $callback = $form->escape($callback); + + # flip direction + $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC"; + $href =~ s/&direction=(\w+)&/&direction=$direction&/; + + if (@{ $form->{transactions} }) { + $sameitem = $form->{transactions}->[0]->{$form->{sort}}; + } + + # sums and tax on reports by Antonio Gallardo + # + foreach $ar (@{ $form->{transactions} }) { + + if ($form->{l_subtotal} eq 'Y') { + if ($sameitem ne $ar->{$form->{sort}}) { + &ar_subtotal; + } + } + + if ($form->{l_curr}) { + map { $ar->{"fx_$_"} = $ar->{$_}/$ar->{exchangerate} } qw(netamount amount paid); + + map { $column_data{"fx_$_"} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{"fx_$_"}, 2, " ")."</td>" } qw(netamount amount paid); + + $column_data{fx_tax} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{fx_amount} - $ar->{fx_netamount}, 2, " ")."</td>"; + $column_data{fx_due} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{fx_amount} - $ar->{fx_paid}, 2, " ")."</td>"; + + $subtotalfxnetamount += $ar->{fx_netamount}; + $subtotalfxamount += $ar->{fx_amount}; + $subtotalfxpaid += $ar->{fx_paid}; + + $totalfxnetamount += $ar->{fx_netamount}; + $totalfxamount += $ar->{fx_amount}; + $totalfxpaid += $ar->{fx_paid}; + + } + + map { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{$_}, 2, " ")."</td>" } qw(netamount amount paid); + + $column_data{tax} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{amount} - $ar->{netamount}, 2, " ")."</td>"; + $column_data{due} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{amount} - $ar->{paid}, 2, " ")."</td>"; + + + $subtotalnetamount += $ar->{netamount}; + $subtotalamount += $ar->{amount}; + $subtotalpaid += $ar->{paid}; + + $totalnetamount += $ar->{netamount}; + $totalamount += $ar->{amount}; + $totalpaid += $ar->{paid}; + + $column_data{transdate} = "<td>$ar->{transdate} </td>"; + $column_data{id} = "<td>$ar->{id}</td>"; + $column_data{datepaid} = "<td>$ar->{datepaid} </td>"; + $column_data{duedate} = "<td>$ar->{duedate} </td>"; + + $module = ($ar->{invoice}) ? "is.pl" : $form->{script}; + $module = ($ar->{till}) ? "ps.pl" : $module; + + $column_data{invnumber} = "<td><a href=$module?action=edit&id=$ar->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ar->{invnumber}</a></td>"; + $column_data{ordnumber} = "<td>$ar->{ordnumber} </td>"; + + + $name = $form->escape($ar->{name}); + $column_data{name} = "<td><a href=$href&customer=$name--$ar->{customer_id}&sort=$form->{sort}>$ar->{name}</a></td>"; + + $ar->{notes} =~ s/\r\n/<br>/g; + $column_data{notes} = "<td>$ar->{notes} </td>"; + $column_data{shippingpoint} = "<td>$ar->{shippingpoint} </td>"; + $column_data{shipvia} = "<td>$ar->{shipvia} </td>"; + $column_data{employee} = "<td>$ar->{employee} </td>"; + $column_data{manager} = "<td>$ar->{manager} </td>"; + $column_data{till} = "<td>$ar->{till} </td>"; + $column_data{curr} = "<td>$ar->{curr}</td>"; + + $i++; $i %= 2; + print " + <tr class=listrow$i> +"; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + + } + + if ($form->{l_subtotal} eq 'Y') { + &ar_subtotal; + } + + # print totals + print qq| + <tr class=listtotal> +|; + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalnetamount, 2, " ")."</th>"; + $column_data{tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalnetamount, 2, " ")."</th>"; + $column_data{amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount, 2, " ")."</th>"; + $column_data{paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalpaid, 2, " ")."</th>"; + $column_data{due} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalpaid, 2, " ")."</th>"; + + if ($form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal}) { + $column_data{fx_netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxnetamount, 2, " ")."</th>"; + $column_data{fx_tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount - $totalfxnetamount, 2, " ")."</th>"; + $column_data{fx_amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount, 2, " ")."</th>"; + $column_data{fx_paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxpaid, 2, " ")."</th>"; + $column_data{fx_due} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount - $totalfxpaid, 2, " ")."</th>"; + } + + map { print "\n$column_data{$_}" } @column_index; + + if ($myconfig{acs} !~ /AR--AR/) { + $i = 1; + $button{'AR--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AR Transaction').qq|"> |; + $button{'AR--Add Transaction'}{order} = $i++; + $button{'AR--Sales Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Invoice.').qq|"> |; + $button{'AR--Sales Invoice'}{order} = $i++; + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + } + + print qq| + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=customer value="$form->{customer}"> +<input type=hidden name=customer_id value=$form->{customer_id}> +<input type=hidden name=vc value=customer> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + if (! $form->{till}) { + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| +</form> + +</body> +</html> +|; + +} + + +sub ar_subtotal { + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{tax} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalnetamount, 2, " ")."</th>"; + $column_data{amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount, 2, " ")."</th>"; + $column_data{paid} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalpaid, 2, " ")."</th>"; + $column_data{due} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalpaid, 2, " ")."</th>"; + + if ($form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal}) { + $column_data{fx_tax} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount - $subtotalfxnetamount, 2, " ")."</th>"; + $column_data{fx_amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount, 2, " ")."</th>"; + $column_data{fx_paid} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxpaid, 2, " ")."</th>"; + $column_data{fx_due} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxmount - $subtotalfxpaid, 2, " ")."</th>"; + } + + $subtotalnetamount = 0; + $subtotalamount = 0; + $subtotalpaid = 0; + + $subtotalfxnetamount = 0; + $subtotalfxamount = 0; + $subtotalfxpaid = 0; + + $sameitem = $ar->{$form->{sort}}; + + print "<tr class=listsubtotal>"; + + map { print "\n$column_data{$_}" } @column_index; + +print " +</tr> +"; + +} + + + diff --git a/sql-ledger/bin/mozilla/arap.pl b/sql-ledger/bin/mozilla/arap.pl new file mode 100644 index 000000000..224ea402b --- /dev/null +++ b/sql-ledger/bin/mozilla/arap.pl @@ -0,0 +1,415 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2003 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# common routines for gl, ar, ap, is, ir, oe +# + +# any custom scripts for this one +if (-f "$form->{path}/custom_arap.pl") { + eval { require "$form->{path}/custom_arap.pl"; }; +} +if (-f "$form->{path}/$form->{login}_arap.pl") { + eval { require "$form->{path}/$form->{login}_arap.pl"; }; +} + + +1; +# end of main + + +sub check_name { + my ($name, $msg) = @_; + + my ($new_name, $new_id) = split /--/, $form->{$name}; + my $i = 0; + + # if we use a selection + if ($form->{"select$name"}) { + if ($form->{"old$name"} ne $form->{$name}) { + # this is needed for is, ir and oe + map { delete $form->{"${_}_rate"} } (split / /, $form->{taxaccounts}); + + # for credit calculations + $form->{oldinvtotal} = 0; + $form->{oldtotalpaid} = 0; + $form->{calctax} = 1; + + $form->{"${name}_id"} = $new_id; + IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer'); + IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor'); + + $form->{$name} = $form->{"old$name"} = "$new_name--$new_id"; + + # put employee together if there is a new employee_id + $form->{employee} = "$form->{employee}--$form->{employee_id}" if $form->{employee_id}; + + $i = 1; + } + } else { + + # check name, combine name and id + if ($form->{"old$name"} ne qq|$form->{$name}--$form->{"${name}_id"}|) { + # this is needed for is, ir and oe + map { delete $form->{"${_}_rate"} } (split / /, $form->{taxaccounts}); + + # for credit calculations + $form->{oldinvtotal} = 0; + $form->{oldtotalpaid} = 0; + $form->{calctax} = 1; + + # return one name or a list of names in $form->{name_list} + if (($i = $form->get_name(\%myconfig, $name)) > 1) { + &select_name($name); + exit; + } + + if ($i == 1) { + # we got one name + $form->{"${name}_id"} = $form->{name_list}[0]->{id}; + $form->{$name} = $form->{name_list}[0]->{name}; + $form->{"old$name"} = qq|$form->{$name}--$form->{"${name}_id"}|; + + IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer'); + IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor'); + + # put employee together if there is a new employee_id + $form->{employee} = "$form->{employee}--$form->{employee_id}" if $form->{employee_id}; + + } else { + # name is not on file or no outstanding invoice + $msg = ucfirst $name . " not on file!" unless $msg; + $form->error($locale->text($msg)); + } + } + } + + $i; + +} + +# $locale->text('Customer not on file!') +# $locale->text('Vendor not on file!') + + + +sub select_name { + my ($table) = @_; + + @column_index = qw(ndx name address); + + $label = ucfirst $table; + $column_data{ndx} = qq|<th> </th>|; + $column_data{name} = qq|<th class=listheading>|.$locale->text($label).qq|</th>|; + $column_data{address} = qq|<th class=listheading>|.$locale->text('Address').qq|</th>|; + + # list items with radio button on a form + $form->header; + + $title = $locale->text('Select from one of the names below'); + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <th class=listtop>$title</th> + </tr> + <tr space=5></tr> + <tr> + <td> + <table width=100%> + <tr class=listheading>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + my $i = 0; + foreach $ref (@{ $form->{name_list} }) { + $checked = ($i++) ? "" : "checked"; + + $ref->{name} = $form->quote($ref->{name}); + + $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|; + $column_data{name} = qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|; + $column_data{address} = qq|<td>$ref->{address1} $ref->{address2} $ref->{city} $ref->{state} $ref->{zipcode} $ref->{country}</td>|; + + $j++; $j %= 2; + print qq| + <tr class=listrow$j>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> + +<input name="new_id_$i" type=hidden value=$ref->{id}> + +|; + + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input name=lastndx type=hidden value=$i> + +|; + + # delete variables + map { delete $form->{$_} } qw(action name_list header); + + $form->hide_form(); + + print qq| +<input type=hidden name=nextsub value=name_selected> + +<input type=hidden name=vc value=$table> +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + + +sub name_selected { + + # replace the variable with the one checked + + # index for new item + $i = $form->{ndx}; + + $form->{$form->{vc}} = $form->{"new_name_$i"}; + $form->{"$form->{vc}_id"} = $form->{"new_id_$i"}; + $form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|; + + # delete all the new_ variables + for $i (1 .. $form->{lastndx}) { + map { delete $form->{"new_${_}_$i"} } (id, name); + } + + map { delete $form->{$_} } qw(ndx lastndx nextsub); + + IS->get_customer(\%myconfig, \%$form) if ($form->{vc} eq 'customer'); + IR->get_vendor(\%myconfig, \%$form) if ($form->{vc} eq 'vendor'); + + # put employee together if there is a new employee_id + $form->{employee} = "$form->{employee}--$form->{employee_id}" if $form->{employee_id}; + + &update(1); + +} + + +sub add_transaction { + my ($module) = @_; + + delete $form->{script}; + $form->{action} = "add"; + $form->{type} = "invoice" if $module =~ /(is|ir)/; + + $form->{callback} = $form->escape($form->{callback},1); + map { $argv .= "$_=$form->{$_}&" } keys %$form; + + $form->{callback} = "$module.pl?$argv"; + + $form->redirect; + +} + + + +sub check_project { + + for $i (1 .. $form->{rowcount}) { + $form->{"project_id_$i"} = "" unless $form->{"projectnumber_$i"}; + if ($form->{"projectnumber_$i"} ne $form->{"oldprojectnumber_$i"}) { + if ($form->{"projectnumber_$i"}) { + # get new project + $form->{projectnumber} = $form->{"projectnumber_$i"}; + if (($rows = PE->projects(\%myconfig, $form)) > 1) { + # check form->{project_list} how many there are + $form->{rownumber} = $i; + &select_project; + exit; + } + + if ($rows == 1) { + $form->{"project_id_$i"} = $form->{project_list}->[0]->{id}; + $form->{"projectnumber_$i"} = $form->{project_list}->[0]->{projectnumber}; + $form->{"oldprojectnumber_$i"} = $form->{project_list}->[0]->{projectnumber}; + } else { + # not on file + $form->error($locale->text('Project not on file!')); + } + } else { + $form->{"oldprojectnumber_$i"} = ""; + } + } + } + +} + + +sub select_project { + + @column_index = qw(ndx projectnumber description); + + $column_data{ndx} = qq|<th> </th>|; + $column_data{projectnumber} = qq|<th>|.$locale->text('Number').qq|</th>|; + $column_data{description} = qq|<th>|.$locale->text('Description').qq|</th>|; + + # list items with radio button on a form + $form->header; + + $title = $locale->text('Select from one of the projects below'); + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=rownumber value=$form->{rownumber}> + +<table width=100%> + <tr> + <th class=listtop>$title</th> + </tr> + <tr space=5></tr> + <tr> + <td> + <table width=100%> + <tr class=listheading>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + my $i = 0; + foreach $ref (@{ $form->{project_list} }) { + $checked = ($i++) ? "" : "checked"; + + $ref->{name} = $form->quote($ref->{name}); + + $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|; + $column_data{projectnumber} = qq|<td><input name="new_projectnumber_$i" type=hidden value="$ref->{projectnumber}">$ref->{projectnumber}</td>|; + $column_data{description} = qq|<td>$ref->{description}</td>|; + + $j++; $j %= 2; + print qq| + <tr class=listrow$j>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> + +<input name="new_id_$i" type=hidden value=$ref->{id}> + +|; + + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input name=lastndx type=hidden value=$i> + +|; + + # delete action variable + map { delete $form->{$_} } qw(action project_list header); + + $form->hide_form(); + + print qq| +<input type=hidden name=nextsub value=project_selected> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + +sub project_selected { + + # replace the variable with the one checked + + # index for new item + $i = $form->{ndx}; + + $form->{"projectnumber_$form->{rownumber}"} = $form->{"new_projectnumber_$i"}; + $form->{"oldprojectnumber_$form->{rownumber}"} = $form->{"new_projectnumber_$i"}; + $form->{"project_id_$form->{rownumber}"} = $form->{"new_id_$i"}; + + # delete all the new_ variables + for $i (1 .. $form->{lastndx}) { + map { delete $form->{"new_${_}_$i"} } qw(id projectnumber description); + } + + map { delete $form->{$_} } qw(ndx lastndx nextsub); + + if ($form->{update}) { + &{ $form->{update} }; + } else { + &update; + } + +} + + +sub continue { &{ $form->{nextsub} } }; +sub gl_transaction { &add }; +sub ar_transaction { &add_transaction(ar) }; +sub ap_transaction { &add_transaction(ap) }; +sub sales_invoice_ { &add_transaction(is) }; +sub vendor_invoice_ { &add_transaction(ir) }; + diff --git a/sql-ledger/bin/mozilla/arapprn.pl b/sql-ledger/bin/mozilla/arapprn.pl new file mode 100644 index 000000000..eea82c7e6 --- /dev/null +++ b/sql-ledger/bin/mozilla/arapprn.pl @@ -0,0 +1,660 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2003 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# +# printing routines for ar, ap +# + +# any custom scripts for this one +if (-f "$form->{path}/custom_arapprn.pl") { + eval { require "$form->{path}/custom_arapprn.pl"; }; +} +if (-f "$form->{path}/$form->{login}_arapprn.pl") { + eval { require "$form->{path}/$form->{login}_arapprn.pl"; }; +} + + +1; +# end of main + + +sub print { + + if ($form->{AP}) { + $form->{vc} = "vendor"; + $form->{ARAP} = "AP"; + $invfld = "vinumber"; + } + if ($form->{AR}) { + $form->{vc} = "customer"; + $form->{ARAP} = "AR"; + $invfld = "sinumber"; + } + + if ($form->{media} !~ /screen/) { + $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/; + } + + if ($form->{media} eq 'screen' && $form->{formname} =~ /(check|receipt)/) { + $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/; + } + + if (! $form->{invnumber}) { + $form->{invnumber} = $form->update_defaults(\%myconfig, $invfld); + if ($form->{media} eq 'screen') { + if ($form->{media} eq 'screen') { + &update; + exit; + } + } + } + + if ($form->{formname} =~ /(check|receipt)/) { + if ($form->{media} ne 'screen') { + map { delete $form->{$_} } qw(action header); + $form->{invtotal} = $form->{oldinvtotal}; + + foreach $key (keys %$form) { + $form->{$key} =~ s/&/%26/g; + $form->{previousform} .= qq|$key=$form->{$key}&|; + } + chop $form->{previousform}; + $form->{previousform} = $form->escape($form->{previousform}, 1); + } + + if ($form->{paidaccounts} > 1) { + if ($form->{"paid_$form->{paidaccounts}"}) { + &update; + exit; + } elsif ($form->{paidaccounts} > 2) { + # select payment + &select_payment; + exit; + } + } else { + $form->error($locale->text('Nothing to print!')); + } + + } + + &{ "print_$form->{formname}" }(1); + +} + + +sub print_check { + my ($i) = @_; + + $display_form = ($form->{display_form}) ? $form->{display_form} : "display_form"; + + if ($form->{"paid_$i"}) { + @a = (); + + if (exists $form->{longformat}) { + $form->{"datepaid_$i"} = $locale->date(\%myconfig, $form->{"datepaid_$i"}, $form->{longformat}); + } + + push @a, "source_$i", "memo_$i"; + $form->format_string(@a); + } + + $form->{amount} = $form->{"paid_$i"}; + map { $form->{$_} = $form->{"${_}_$i"} } qw(datepaid source memo); + + + &{ "$form->{vc}_details" }; + @a = qw(name address1 address2 city state zipcode country); + + foreach $item (qw(invnumber ordnumber)) { + $temp{$item} = $form->{$item}; + delete $form->{$item}; + push(@{ $form->{$item} }, $temp{$item}); + } + push(@{ $form->{invdate} }, $form->{transdate}); + push(@{ $form->{due} }, $form->format_amount(\%myconfig, $form->{oldinvtotal}, 2)); + push(@{ $form->{paid} }, $form->{"paid_$i"}); + + use SL::CP; + if ($form->{language_code}) { + $c = new CP $form->{language_code}; + } else { + $c = new CP $myconfig->{countrycode}; + } + $c->init; + ($whole, $form->{decimal}) = split /\./, $form->{amount}; + $form->{decimal} .= "00"; + $form->{decimal} = substr($form->{decimal}, 0, 2); + $form->{text_amount} = $c->num2text($whole); + + ($form->{employee}) = split /--/, $form->{employee}; + + $form->{notes} =~ s/^\s+//g; + push @a, "notes"; + + map { $form->{$_} = $myconfig{$_} } (qw(company address tel fax businessnumber)); + push @a, qw(company address tel fax businessnumber); + + $form->format_string(@a); + + $form->{templates} = "$myconfig{templates}"; + $form->{IN} = ($form->{formname} eq 'transaction') ? lc $form->{ARAP} . "_$form->{formname}.html" : "$form->{formname}.html"; + + if ($form->{format} =~ /(postscript|pdf)/) { + $form->{IN} =~ s/html$/tex/; + } + + if ($form->{media} !~ /(screen|queue)/) { + $form->{OUT} = "| $printer{$form->{media}}"; + + $reference = $form->{invnumber}; + + if ($form->{formname} =~ /(check|receipt)/) { + $form->{rowcount} = 1; + $form->{"id_1"} = $form->{id}; + $form->{"checked_1"} = 1; + $form->{account} = $form->{"$form->{ARAP}_paid_$i"}; + $reference = $form->{"source_$i"}; + } + + if ($form->{printed} !~ /$form->{formname}/) { + + $form->{printed} .= " $form->{formname}"; + $form->{printed} =~ s/^ //; + + $form->update_status(\%myconfig); + } + + %audittrail = ( tablename => lc $form->{ARAP}, + reference => $reference, + formname => $form->{formname}, + action => 'printed', + id => $form->{id} ); + + %status = (); + map { $status{$_} = $form->{$_} } qw(printed queued audittrail); + + $status{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail); + + } + + if ($form->{media} eq 'queue') { + %queued = split / /, $form->{queued}; + + $reference = $form->{invnumber}; + + if ($form->{formname} =~ /(check|receipt)/) { + $form->{rowcount} = 1; + $form->{"id_1"} = $form->{id}; + $form->{"checked_1"} = 1; + $form->{account} = $form->{"$form->{ARAP}_paid_$i"}; + $reference = $form->{"source_$i"}; + } + + if ($filename = $queued{$form->{formname}}) { + $form->{queued} =~ s/$form->{formname} $filename//; + unlink "$spool/$filename"; + $filename =~ s/\..*$//g; + } else { + $filename = time; + $filename .= $$; + } + + $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf'; + $form->{OUT} = ">$spool/$filename"; + + $form->{queued} .= " $form->{formname} $filename"; + $form->{queued} =~ s/^ //; + + # save status + $form->update_status(\%myconfig); + + %audittrail = ( tablename => lc $form->{ARAP}, + reference => $reference, + formname => $form->{formname}, + action => 'queued', + id => $form->{id} ); + + %status = (); + map { $status{$_} = $form->{$_} } qw(printed queued audittrail); + + $status{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail); + + } + + $form->{fileid} = $invnumber; + $form->{fileid} =~ s/(\s|\W)+//g; + + $form->parse_template(\%myconfig, $userspath); + + if ($form->{previousform}) { + + $previousform = $form->unescape($form->{previousform}); + + map { delete $form->{$_} } keys %$form; + + foreach $item (split /&/, $previousform) { + ($key, $value) = split /=/, $item, 2; + $value =~ s/%26/&/g; + $form->{$key} = $value; + } + + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining); + + map { $form->{"amount_$_"} = $form->parse_amount(\%myconfig, $form->{"amount_$_"}) } (1 .. $form->{rowcount}); + map { $form->{"tax_$_"} = $form->parse_amount(\%myconfig, $form->{"tax_$_"}) } split / /, $form->{taxaccounts}; + + for $i (1 .. $form->{paidaccounts}) { + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate); + } + + map { $form->{$_} = $status{$_} } qw(printed queued audittrail); + + &{ "$display_form" }; + + } + +} + + +sub print_receipt { &print_check; } + + +sub print_transaction { + + $display_form = ($form->{display_form}) ? $form->{display_form} : "display_form"; + + if ($form->{media} !~ /screen/) { + $old_form = new Form; + map { $old_form->{$_} = $form->{$_} } keys %$form; + } + + &{ "$form->{vc}_details" }; + @a = qw(name address1 address2 city state zipcode country); + + + $form->{invtotal} = 0; + foreach $i (1 .. $form->{rowcount} - 1) { + ($form->{tempaccno}, $form->{tempaccount}) = split /--/, $form->{"$form->{ARAP}_amount_$i"}; + ($form->{tempprojectnumber}) = split /--/, $form->{"projectnumber_$i"}; + + $form->format_string(qw(tempaccno tempaccount tempprojectnumber)); + + push(@{ $form->{accno} }, $form->{tempaccno}); + push(@{ $form->{account} }, $form->{tempaccount}); + push(@{ $form->{projectnumber} }, $form->{tempprojectnumber}); + + push(@{ $form->{amount} }, $form->{"amount_$i"}); + + $form->{subtotal} += $form->parse_amount(\%myconfig, $form->{"amount_$i"}); + + } + + foreach $accno (split / /, $form->{taxaccounts}) { + if ($form->{"tax_$accno"}) { + $tax += $form->parse_amount(\%myconfig, $form->{"tax_$accno"}); + push(@{ $form->{tax} }, $form->{"tax_$accno"}); + push(@{ $form->{taxdescription} }, $form->{"${accno}_description"}); + push(@{ $form->{taxrate} }, $form->{"${accno}_rate"} * 100); + push(@{ $form->{taxnumber} }, $form->{"${accno}_taxnumber"}); + } + } + + + push @a, $form->{ARAP}; + $form->format_string(@a); + + $form->{paid} = 0; + for $i (1 .. $form->{paidaccounts} - 1) { + + if ($form->{"paid_$i"}) { + @a = (); + $form->{paid} += $form->parse_amount(\%myconfig, $form->{"paid_$i"}); + + if (exists $form->{longformat}) { + $form->{"datepaid_$i"} = $locale->date(\%myconfig, $form->{"datepaid_$i"}, $form->{longformat}); + } + + push @a, "$form->{ARAP}_paid_$i", "source_$i", "memo_$i"; + $form->format_string(@a); + + ($accno, $account) = split /--/, $form->{"$form->{ARAP}_paid_$i"}; + + push(@{ $form->{payment} }, $form->{"paid_$i"}); + push(@{ $form->{paymentdate} }, $form->{"datepaid_$i"}); + push(@{ $form->{paymentaccount} }, $account); + push(@{ $form->{paymentsource} }, $form->{"source_$i"}); + push(@{ $form->{paymentmemo} }, $form->{"memo_$i"}); + } + + } + + + $form->{invtotal} = $form->{subtotal} + $tax; + $form->{total} = $form->{invtotal} - $form->{paid}; + + use SL::CP; + if ($form->{language_code}) { + $c = new CP $form->{language_code}; + } else { + $c = new CP $myconfig->{countrycode}; + } + $c->init; + ($whole, $form->{decimal}) = split /\./, $form->{invtotal}; + $form->{decimal} .= "00"; + $form->{decimal} = substr($form->{decimal}, 0, 2); + $form->{text_amount} = $c->num2text($whole); + + map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 2) } qw(invtotal subtotal paid total); + + ($form->{employee}) = split /--/, $form->{employee}; + + if (exists $form->{longformat}) { + map { $form->{$_} = $locale->date(\%myconfig, $form->{$_}, $form->{longformat}) } ("duedate", "transdate"); + } + + $form->{notes} =~ s/^\s+//g; + + push @a, ("invnumber", "transdate", "duedate", "notes"); + + map { $form->{$_} = $myconfig{$_} } (qw(company address tel fax businessnumber)); + push @a, qw(company address tel fax businessnumber); + + $form->format_string(@a); + + $form->{invdate} = $form->{transdate}; + + $form->{templates} = "$myconfig{templates}"; + $form->{IN} = ($form->{formname} eq 'transaction') ? lc $form->{ARAP} . "_$form->{formname}.html" : "$form->{formname}.html"; + + if ($form->{format} =~ /(postscript|pdf)/) { + $form->{IN} =~ s/html$/tex/; + } + + if ($form->{media} !~ /(screen|queue)/) { + $form->{OUT} = "| $printer{$form->{media}}"; + + if ($form->{printed} !~ /$form->{formname}/) { + + $form->{printed} .= " $form->{formname}"; + $form->{printed} =~ s/^ //; + + $form->update_status(\%myconfig); + } + + $old_form->{printed} = $form->{printed}; + + %audittrail = ( tablename => lc $form->{ARAP}, + reference => $form->{"invnumber"}, + formname => $form->{formname}, + action => 'printed', + id => $form->{id} ); + + $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail); + + } + + if ($form->{media} eq 'queue') { + %queued = split / /, $form->{queued}; + + if ($filename = $queued{$form->{formname}}) { + $form->{queued} =~ s/$form->{formname} $filename//; + unlink "$spool/$filename"; + $filename =~ s/\..*$//g; + } else { + $filename = time; + $filename .= $$; + } + + $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf'; + $form->{OUT} = ">$spool/$filename"; + + $form->{queued} .= " $form->{formname} $filename"; + $form->{queued} =~ s/^ //; + + # save status + $form->update_status(\%myconfig); + + $old_form->{queued} = $form->{queued}; + + %audittrail = ( tablename => lc $form->{ARAP}, + reference => $form->{invnumber}, + formname => $form->{formname}, + action => 'queued', + id => $form->{id} ); + $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail); + + } + + $form->{fileid} = $form->{invnumber}; + $form->{fileid} =~ s/(\s|\W)+//g; + + $form->parse_template(\%myconfig, $userspath); + + if ($old_form) { + $old_form->{invnumber} = $form->{invnumber}; + $old_form->{invtotal} = $form->{invtotal}; + + map { delete $form->{$_} } keys %$form; + map { $form->{$_} = $old_form->{$_} } keys %$old_form; + + if (! $form->{printandpost}) { + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining); + + map { $form->{"amount_$_"} = $form->parse_amount(\%myconfig, $form->{"amount_$_"}) } (1 .. $form->{rowcount}); + map { $form->{"tax_$_"} = $form->parse_amount(\%myconfig, $form->{"tax_$_"}) } split / /, $form->{taxaccounts}; + + for $i (1 .. $form->{paidaccounts}) { + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate); + } + } + + &{ "$display_form" }; + + } +} + + +sub vendor_details { IR->vendor_details(\%myconfig, \%$form) }; +sub customer_details { IS->customer_details(\%myconfig, \%$form) }; + + +sub select_payment { + + @column_index = ("ndx", "datepaid", "source", "memo", "paid", "$form->{ARAP}_paid"); + + # list payments with radio button on a form + $form->header; + + $title = $locale->text('Select payment'); + + $column_data{ndx} = qq|<th width=1%> </th>|; + $column_data{datepaid} = qq|<th>|.$locale->text('Date').qq|</th>|; + $column_data{source} = qq|<th>|.$locale->text('Source').qq|</th>|; + $column_data{memo} = qq|<th>|.$locale->text('Memo').qq|</th>|; + $column_data{paid} = qq|<th>|.$locale->text('Amount').qq|</th>|; + $column_data{"$form->{ARAP}_paid"} = qq|<th>|.$locale->text('Account').qq|</th>|; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <th class=listtop>$title</th> + </tr> + <tr space=5></tr> + <tr> + <td> + <table width=100%> + <tr class=listheading>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + foreach $i (1 .. $form->{paidaccounts} - 1) { + $checked = ($i == 1) ? "checked" : ""; + + map { $column_data{$_} = qq|<td>$form->{"${_}_$i"}</td>| } @column_index; + $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|; + $column_data{paid} = qq|<td align=right>$form->{"paid_$i"}</td>|; + + $j++; $j %= 2; + print qq| + <tr class=listrow$j>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + + $form->{nextsub} = "payment_selected"; + + $form->hide_form(); + + print qq| + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + +sub payment_selected { + + &{ "print_$form->{formname}" }($form->{ndx}); + +} + + +sub print_options { + + $form->{PD}{$form->{formname}} = "selected"; + $form->{DF}{$form->{format}} = "selected"; + + if ($form->{selectlanguage}) { + $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"}); + $form->{"selectlanguage"} =~ s/ selected//; + $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/; + $lang = qq|<select name=language_code>$form->{selectlanguage}</select> + <input type=hidden name=selectlanguage value="|. + $form->escape($form->{selectlanguage},1).qq|">|; + } + + $type = qq|<select name=formname> + <option value=transaction $form->{PD}{transaction}>|.$locale->text('Transaction'); + + if ($form->{AR}) { + $type .= qq| + <option value=receipt $form->{PD}{receipt}>|.$locale->text('Receipt').qq|</select>|; + } + + if ($form->{AP}) { + $type .= qq| + <option value=check $form->{PD}{check}>|.$locale->text('Check').qq|</select>|; + } + + $media = qq|<select name=media> + <option value=screen>|.$locale->text('Screen'); + + if (%printer && $latex) { + map { $media .= qq| + <option value="$_">$_| } sort keys %printer; + } + + $format = qq|<select name=format> + <option value=html $form->{DF}{html}>html|; + + if ($latex) { +# disable for now +# $media .= qq| +# <option value="queue">|.$locale->text('Queue'); + $format .= qq| + <option value=postscript $form->{DF}{postscript}>|.$locale->text('Postscript').qq| + <option value=pdf $form->{DF}{pdf}>|.$locale->text('PDF'); + } + + $format .= qq|</select>|; + $media .= qq|</select>|; + $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/; + + print qq| + <table width=100%> + <tr> + <td> + $type + $lang + $format + $media + </td> + <td align=right> + |; + + if ($form->{printed} =~ /$form->{formname}/) { + print $locale->text('Printed').qq|<br>|; + } + + if ($form->{queued} =~ /$form->{formname}/) { + print $locale->text('Queued'); + } + + print qq| + </td> + </tr> + </table> +|; + +} + + +sub print_and_post { + + $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/; + $form->error($locale->text('Select Printer or Queue!')) if $form->{media} eq 'screen'; + + $form->{printandpost} = 1; + $form->{display_form} = "post"; + &print; + +} + diff --git a/sql-ledger/bin/mozilla/bp.pl b/sql-ledger/bin/mozilla/bp.pl new file mode 100644 index 000000000..9d0cea480 --- /dev/null +++ b/sql-ledger/bin/mozilla/bp.pl @@ -0,0 +1,567 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2003 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# Batch printing +# +#====================================================================== + + +use SL::BP; + +1; +# end of main + + +sub search { + +# $locale->text('Sales Invoices') +# $locale->text('Packing Lists') +# $locale->text('Pick Lists') +# $locale->text('Sales Orders') +# $locale->text('Work Orders') +# $locale->text('Purchase Orders') +# $locale->text('Bin Lists') +# $locale->text('Quotations') +# $locale->text('RFQs') +# $locale->text('Checks') +# $locale->text('Receipts') + + # setup customer/vendor selection + BP->get_vc(\%myconfig, \%$form); + + if (@{ $form->{"all_$form->{vc}"} }) { + map { $name .= "<option>$_->{name}--$_->{id}\n" } @{ $form->{"all_$form->{vc}"} }; + $name = qq|<select name=$form->{vc}><option>\n$name</select>|; + } else { + $name = qq|<input name=$form->{vc} size=35>|; + } + +# $locale->text('Customer') +# $locale->text('Vendor') + + %label = ( invoice => { title => 'Sales Invoices', name => 'Customer' }, + packing_list => { title => 'Packing Lists', name => 'Customer' }, + pick_list => { title => 'Pick Lists', name => 'Customer' }, + sales_order => { title => 'Sales Orders', name => 'Customer' }, + work_order => { title => 'Work Orders', name => 'Customer' }, + purchase_order => { title => 'Purchase Orders', name => 'Vendor' }, + bin_list => { title => 'Bin Lists', name => 'Vendor' }, + sales_quotation => { title => 'Quotations', name => 'Customer' }, + request_quotation => { title => 'RFQs', name => 'Vendor' }, + check => { title => 'Checks', name => 'Vendor' }, + receipt => { title => 'Receipts', name => 'Customer' } + ); + + $label{invoice}{invnumber} = qq| + <tr> + <th align=right nowrap>|.$locale->text('Invoice Number').qq|</th> + <td colspan=3><input name=invnumber size=20></td> + </tr> +|; + $label{invoice}{ordnumber} = qq| + <tr> + <th align=right nowrap>|.$locale->text('Order Number').qq|</th> + <td colspan=3><input name=ordnumber size=20></td> + </tr> +|; + $label{sales_quotation}{quonumber} = qq| + <tr> + <th align=right nowrap>|.$locale->text('Quotation Number').qq|</th> + <td colspan=3><input name=quonumber size=20></td> + </tr> +|; + + $label{check}{chknumber} = qq| + <tr> + <th align=right nowrap>|.$locale->text('Reference').qq|</th> + <td colspan=3><input name=chknumber size=20></td> + </tr> +|; + + $label{packing_list}{invnumber} = $label{invoice}{invnumber}; + $label{packing_list}{ordnumber} = $label{invoice}{ordnumber}; + $label{pick_list}{invnumber} = $label{invoice}{invnumber}; + $label{pick_list}{ordnumber} = $label{invoice}{ordnumber}; + $label{sales_order}{ordnumber} = $label{invoice}{ordnumber}; + $label{work_order}{ordnumber} = $label{invoice}{ordnumber}; + $label{purchase_order}{ordnumber} = $label{invoice}{ordnumber}; + $label{bin_list}{ordnumber} = $label{invoice}{ordnumber}; + $label{request_quotation}{quonumber} = $label{sales_quotation}{quonumber}; + $label{receipt}{rctnumber} = $label{check}{chknumber}; + + # do one call to text + $form->{title} = $locale->text('Print')." ".$locale->text($label{$form->{type}}{title}); + + if ($form->{type} =~ /(check|receipt)/) { + if (BP->payment_accounts(\%myconfig, \%$form)) { + $account = qq| + <tr> + <th align=right>|.$locale->text('Account').qq|</th> +|; + + if ($form->{accounts}) { + $account .= qq| + <td colspan=3><select name=account> +|; + foreach $ref (@{ $form->{accounts} }) { + $account .= qq| + <option>$ref->{accno}--$ref->{description} +|; + } + + $account .= qq| + </select> +|; + } else { + $account .= qq| + <td colspan=3><input name=account></td> +|; + + } + + $account .= qq| + </tr> +|; + + } + } + + + # accounting years + $form->{selectaccountingyear} = "<option>\n"; + map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} }; + $form->{selectaccountingmonth} = "<option>\n"; + map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} }; + + $selectfrom = qq| + <tr> + <th align=right>|.$locale->text('Period').qq|</th> + <td colspan=3> + <select name=month>$form->{selectaccountingmonth}</select> + <select name=year>$form->{selectaccountingyear}</select> + <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq| + <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq| + <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq| + <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq| + </td> + </tr> +|; + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=vc value=$form->{vc}> +<input type=hidden name=type value=$form->{type}> +<input type=hidden name=title value="$form->{title}"> + +<table width=100%> + <tr><th class=listtop>$form->{title}</th></tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text($label{$form->{type}}{name}).qq|</th> + <td colspan=3>$name</td> + </tr> + $account + $label{$form->{type}}{invnumber} + $label{$form->{type}}{ordnumber} + $label{$form->{type}}{quonumber} + $label{$form->{type}}{chknumber} + $label{$form->{type}}{rctnumber} + <tr> + <th align=right nowrap>|.$locale->text('From').qq|</th> + <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td> + </tr> + <input type=hidden name=sort value=transdate> + $selectfrom + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=nextsub value=list_spool> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> + +</form> + +</body> +</html> +|; + +} + + + +sub remove { + + $selected = 0; + + for $i (1 .. $form->{rowcount}) { + if ($form->{"checked_$i"}) { + $selected = 1; + last; + } + } + + $form->error('Nothing selected!') unless $selected; + + $form->{title} = $locale->text('Confirm!'); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> +|; + + map { delete $form->{$_} } qw(action header); + + foreach $key (keys %$form) { + print qq|<input type=hidden name=$key value="$form->{$key}">\n|; + } + + print qq| +<h2 class=confirm>$form->{title}</h2> + +<h4>|.$locale->text('Are you sure you want to remove the marked entries from the queue?').qq|</h4> + +<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|"> +</form> + +</body> +</html> +|; + +} + + + +sub yes { + + $form->info($locale->text('Removing marked entries from queue ...')); + $form->{callback} .= "&header=1" if $form->{callback}; + + $form->redirect($locale->text('Removed spoolfiles!')) if (BP->delete_spool(\%myconfig, \%$form, $spool)); + $form->error($locale->text('Cannot remove files!')); + +} + + +sub print { + + if ($form->{callback}) { + map { $form->{callback} .= "&checked_$_=1" if $form->{"checked_$_"} } (1 .. $form->{rowcount}); + $form->{callback} .= "&header=1"; + } + + for $i (1 .. $form->{rowcount}) { + if ($form->{"checked_$i"}) { + $form->{OUT} = "| $printer{$form->{media}}"; + $form->info($locale->text('Printing ... ')); + + if (BP->print_spool(\%myconfig, \%$form, $spool)) { + print $locale->text('done'); + $form->redirect($locale->text('Marked entries printed!')); + } + exit; + } + } + + $form->error('Nothing selected!'); + +} + + +sub list_spool { + + $form->{$form->{vc}} = $form->unescape($form->{$form->{vc}}); + ($form->{$form->{vc}}, $form->{"$form->{vc}_id"}) = split(/--/, $form->{$form->{vc}}); + + BP->get_spoolfiles(\%myconfig, \%$form); + + $title = $form->escape($form->{title}); + $href = "$form->{script}?action=list_spool&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&vc=$form->{vc}&type=$form->{type}&title=$title"; + + $form->sort_order(); + + $title = $form->escape($form->{title},1); + $callback = "$form->{script}?action=list_spool&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&vc=$form->{vc}&type=$form->{type}&title=$title"; + + if ($form->{$form->{vc}}) { + $callback .= "&$form->{vc}=".$form->escape($form->{$form->{vc}},1); + $href .= "&$form->{vc}=".$form->escape($form->{$form->{vc}}); + $option = ($form->{vc} eq 'customer') ? $locale->text('Customer') : $locale->text('Vendor'); + $option .= " : $form->{$form->{vc}}"; + } + if ($form->{account}) { + $callback .= "&account=".$form->escape($form->{account},1); + $href .= "&account=".$form->escape($form->{account}); + $option .= "\n<br>" if ($option); + $option .= $locale->text('Account')." : $form->{account}"; + } + if ($form->{invnumber}) { + $callback .= "&invnumber=".$form->escape($form->{invnumber},1); + $href .= "&invnumber=".$form->escape($form->{invnumber}); + $option .= "\n<br>" if ($option); + $option .= $locale->text('Invoice Number')." : $form->{invnumber}"; + } + if ($form->{ordnumber}) { + $callback .= "&ordnumber=".$form->escape($form->{ordnumber},1); + $href .= "&ordnumber=".$form->escape($form->{ordnumber}); + $option .= "\n<br>" if ($option); + $option .= $locale->text('Order Number')." : $form->{ordnumber}"; + } + if ($form->{quonumber}) { + $callback .= "&quonumber=".$form->escape($form->{quonumber},1); + $href .= "&quonumber=".$form->escape($form->{quonumber}); + $option .= "\n<br>" if ($option); + $option .= $locale->text('Quotation Number')." : $form->{quonumber}"; + } + + 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}"; + $option .= "\n<br>" if ($option); + $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{transdateto}, 1); + } + + $name = ucfirst $form->{vc}; + + @columns = qw(transdate); + if ($form->{type} =~ /(invoice|check|receipt)/) { + push @columns, "invnumber"; + } + if ($form->{type} =~ /(packing|pick)_list/) { + push @columns, "invnumber"; + } + if ($form->{type} =~ /_(order|list)$/) { + push @columns, "ordnumber"; + } + if ($form->{type} =~ /_quotation$/) { + push @columns, "quonumber"; + } + + push @columns, (name, spoolfile); + @column_index = $form->sort_columns(@columns); + unshift @column_index, "checked"; + + $column_header{checked} = "<th class=listheading> </th>"; + $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>"; + $column_header{invnumber} = "<th><a class=listheading href=$href&sort=invnumber>".$locale->text('Invoice')."</a></th>"; + $column_header{ordnumber} = "<th><a class=listheading href=$href&sort=ordnumber>".$locale->text('Order')."</a></th>"; + $column_header{quonumber} = "<th><a class=listheading href=$href&sort=quonumber>".$locale->text('Quotation')."</a></th>"; + $column_header{name} = "<th><a class=listheading href=$href&sort=name>".$locale->text($name)."</a></th>"; + $column_header{spoolfile} = "<th class=listheading>".$locale->text('Spoolfile')."</th>"; + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "\n$column_header{$_}" } @column_index; + + print qq| + </tr> +|; + + + # add sort and escape callback, this one we use for the add sub + $form->{callback} = $callback .= "&sort=$form->{sort}"; + + # escape callback for href + $callback = $form->escape($callback); + + $i = 0; + + foreach $ref (@{ $form->{SPOOL} }) { + + $i++; + + $form->{"checked_$i"} = "checked" if $form->{"checked_$i"}; + + # this is for audittrail + $form->{module} = $ref->{module}; + + if ($ref->{invoice}) { + $ref->{module} = ($ref->{module} eq 'ar') ? "is" : "ir"; + } + $module = "$ref->{module}.pl"; + + $column_data{transdate} = "<td>$ref->{transdate} </td>"; + + if ($spoolfile eq $ref->{spoolfile}) { + $column_data{checked} = qq|<td></td>|; + } else { + $column_data{checked} = qq|<td><input name=checked_$i type=checkbox style=checkbox $form->{"checked_$i"} $form->{"checked_$i"}></td>|; + } + + if ($ref->{module} eq 'oe') { + $column_data{invnumber} = qq|<td> </td>|; + $column_data{ordnumber} = qq|<td><a href=$module?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$form->{type}&callback=$callback>$ref->{ordnumber}</a></td> + <input type=hidden name="reference_$i" value="$ref->{ordnumber}">|; + + $column_data{quonumber} = qq|<td><a href=$module?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$form->{type}&callback=$callback>$ref->{quonumber}</a></td> + <input type=hidden name="reference_$i" value="$ref->{quonumber}">|; + + } else { + $column_data{ordnumber} = qq|<td>$ref->{ordnumber}</td>|; + $column_data{quonumber} = qq|<td>$ref->{quonumber}</td>|; + $column_data{invnumber} = qq|<td><a href=$module?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&type=$form->{type}&callback=$callback>$ref->{invnumber}</a></td> + <input type=hidden name="reference_$i" value="$ref->{invnumber}">|; + } + + + $column_data{name} = "<td>$ref->{name}</td>"; + $column_data{spoolfile} = qq|<td><a href=$spool/$ref->{spoolfile}>$ref->{spoolfile}</a></td> + +|; + + $spoolfile = $ref->{spoolfile}; + + $j++; $j %= 2; + print " + <tr class=listrow$j> +"; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| +<input type=hidden name="id_$i" value=$ref->{id}> +<input type=hidden name="spoolfile_$i" value=$ref->{spoolfile}> + + </tr> +|; + + } + + print qq| +<input type=hidden name=rowcount value=$i> + + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=title value="$form->{title}"> +<input type=hidden name=vc value="$form->{vc}"> +<input type=hidden name=type value="$form->{type}"> +<input type=hidden name=sort value="$form->{sort}"> +<input type=hidden name=module value=$form->{module}> + +<input type=hidden name=account value="$form->{account}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + if (%printer && $latex) { + foreach $key (sort keys %printer) { + print qq| +<input name=media type=radio class=radio value="$key" |; + print qq|checked| if $key eq $myconfig{printer}; + print qq|>$key|; + } + + print qq| +<p> +<input class=submit type=submit name=action value="|.$locale->text('Select all').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('Print').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('Remove').qq|"> +|; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| +</form> + +</body> +</html> +|; + +} + + +sub select_all { + + map { $form->{"checked_$_"} = 1 } (1 .. $form->{rowcount}); + &list_spool; + +} + + +sub continue { &{ $form->{nextsub} } }; + diff --git a/sql-ledger/bin/mozilla/ca.pl b/sql-ledger/bin/mozilla/ca.pl new file mode 100644 index 000000000..9ee602e74 --- /dev/null +++ b/sql-ledger/bin/mozilla/ca.pl @@ -0,0 +1,478 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (C) 2001 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# Contributors: +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# module for Chart of Accounts, Income Statement and Balance Sheet +# search and edit transactions posted by the GL, AR and AP +# +#====================================================================== + +use SL::CA; + +1; +# end of main + +# this is for our long dates +# $locale->text('January') +# $locale->text('February') +# $locale->text('March') +# $locale->text('April') +# $locale->text('May ') +# $locale->text('June') +# $locale->text('July') +# $locale->text('August') +# $locale->text('September') +# $locale->text('October') +# $locale->text('November') +# $locale->text('December') + +# this is for our short month +# $locale->text('Jan') +# $locale->text('Feb') +# $locale->text('Mar') +# $locale->text('Apr') +# $locale->text('May') +# $locale->text('Jun') +# $locale->text('Jul') +# $locale->text('Aug') +# $locale->text('Sep') +# $locale->text('Oct') +# $locale->text('Nov') +# $locale->text('Dec') + + +sub chart_of_accounts { + + CA->all_accounts(\%myconfig, \%$form); + + @column_index = qw(accno gifi_accno description debit credit); + + $column_header{accno} = qq|<th class=listtop>|.$locale->text('Account').qq|</th>\n|; + $column_header{gifi_accno} = qq|<th class=listtop>|.$locale->text('GIFI').qq|</th>\n|; + $column_header{description} = qq|<th class=listtop>|.$locale->text('Description').qq|</th>\n|; + $column_header{debit} = qq|<th class=listtop>|.$locale->text('Debit').qq|</th>\n|; + $column_header{credit} = qq|<th class=listtop>|.$locale->text('Credit').qq|</th>\n|; + + + $form->{title} = $locale->text('Chart of Accounts'); + + $colspan = $#column_index + 1; + + $form->header; + + print qq| +<body> + +<table border=0 width=100%> + <tr><th class=listtop colspan=$colspan>$form->{title}</th></tr> + <tr height="5"></tr> + <tr class=listheading>|; + + map { print $column_header{$_} } @column_index; + + print qq| + </tr> +|; + + + foreach $ca (@{ $form->{CA} }) { + + $description = $form->escape($ca->{description}); + $gifi_description = $form->escape($ca->{gifi_description}); + + $href = qq|$form->{script}?path=$form->{path}&action=list&accno=$ca->{accno}&login=$form->{login}&sessionid=$form->{sessionid}&description=$description&gifi_accno=$ca->{gifi_accno}&gifi_description=$gifi_description|; + + if ($ca->{charttype} eq "H") { + print qq|<tr class=listheading>|; + map { $column_data{$_} = "<th class=listheading>$ca->{$_}</th>"; } qw(accno description); + $column_data{gifi_accno} = "<th class=listheading>$ca->{gifi_accno} </th>"; + } else { + $i++; $i %= 2; + print qq|<tr class=listrow$i>|; + $column_data{accno} = "<td><a href=$href>$ca->{accno}</a></td>"; + $column_data{gifi_accno} = "<td><a href=$href&accounttype=gifi>$ca->{gifi_accno}</a> </td>"; + $column_data{description} = "<td>$ca->{description}</td>"; + } + + $column_data{debit} = "<td align=right>".$form->format_amount(\%myconfig, $ca->{debit}, 2, " ")."</td>\n"; + $column_data{credit} = "<td align=right>".$form->format_amount(\%myconfig, $ca->{credit}, 2, " ")."</td>\n"; + + $totaldebit += $ca->{debit}; + $totalcredit += $ca->{credit}; + + map { print $column_data{$_} } @column_index; + + print qq| +</tr> +|; + } + + map { $column_data{$_} = "<td> </td>"; } qw(accno gifi_accno description); + + $column_data{debit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totaldebit, 2, 0)."</th>"; + $column_data{credit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totalcredit, 2, 0)."</th>"; + + print "<tr class=listtotal>"; + + map { print $column_data{$_} } @column_index; + + print qq| +</tr> +<tr> + <td colspan=$colspan><hr size=3 noshade></td> +</tr> +</table> + +</body> +</html> +|; + +} + + +sub list { + + $form->{title} = $locale->text('List Transactions'); + if ($form->{accounttype} eq 'gifi') { + $form->{title} .= " - ".$locale->text('GIFI')." $form->{gifi_accno}"; + } else { + $form->{title} .= " - ".$locale->text('Account')." $form->{accno}"; + } + + # get departments + $form->all_departments(\%myconfig); + if (@{ $form->{all_departments} }) { + $form->{selectdepartment} = "<option>\n"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + $department = qq| + <tr> + <th align=right nowrap>|.$locale->text('Department').qq|</th> + <td colspan=3><select name=department>$form->{selectdepartment}</select></td> + </tr> +| if $form->{selectdepartment}; + + # accounting years + $form->{selectaccountingyear} = "<option>\n"; + map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} }; + $form->{selectaccountingmonth} = "<option>\n"; + map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} }; + + $selectfrom = qq| + <tr> + <th align=right>|.$locale->text('Period').qq|</th> + <td colspan=3> + <select name=month>$form->{selectaccountingmonth}</select> + <select name=year>$form->{selectaccountingyear}</select> + <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq| + <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq| + <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq| + <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq| + </td> + </tr> +|; + + + $form->header; + + map { $form->{$_} = $form->quote($form->{$_}) } qw(description gifi_description); + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=accno value=$form->{accno}> +<input type=hidden name=description value="$form->{description}"> +<input type=hidden name=sort value=transdate> + +<input type=hidden name=accounttype value=$form->{accounttype}> +<input type=hidden name=gifi_accno value=$form->{gifi_accno}> +<input type=hidden name=gifi_description value="$form->{gifi_description}"> + +<table border=0 width=100%> + <tr><th class=listtop>$form->{title}</th></tr> + <tr height="5"></tr + <tr valign=top> + <td> + <table> + $department + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td><input name=fromdate size=11 title="$myconfig{dateformat}"></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=todate size=11 title="$myconfig{dateformat}"></td> + </tr> + $selectfrom + <tr> + <th align=right>|.$locale->text('Include in Report').qq|</th> + <td colspan=3> + <input name=l_subtotal class=checkbox type=checkbox value=Y> |.$locale->text('Subtotal').qq|</td> + </tr> + </table> + </td> + </tr> + <tr><td><hr size=3 noshade></td></tr> +</table> + +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br><input class=submit type=submit name=action value="|.$locale->text('List Transactions').qq|"> +</form> + +</body> +</html> +|; + +} + + +sub list_transactions { + + CA->all_transactions(\%myconfig, \%$form); + + $description = $form->escape($form->{description}); + $gifi_description = $form->escape($form->{gifi_description}); + $department = $form->escape($form->{department}); + $projectnumber = $form->escape($form->{projectnumber}); + $title = $form->escape($form->{title}); + + # construct href + $href = "$form->{script}?path=$form->{path}&direction=$form->{direction}&oldsort=$form->{oldsort}&action=list_transactions&accno=$form->{accno}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&description=$description&accounttype=$form->{accounttype}&gifi_accno=$form->{gifi_accno}&gifi_description=$gifi_description&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&title=$title"; + + $form->sort_order(); + + $description = $form->escape($form->{description},1); + $gifi_description = $form->escape($form->{gifi_description},1); + $department = $form->escape($form->{department},1); + $projectnumber = $form->escape($form->{projectnumber},1); + $title = $form->escape($form->{title},1); + + # construct callback + $callback = "$form->{script}?path=$form->{path}&direction=$form->{direction}&oldsort=$form->{oldsort}&action=list_transactions&accno=$form->{accno}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&description=$description&accounttype=$form->{accounttype}&gifi_accno=$form->{gifi_accno}&gifi_description=$gifi_description&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&title=$title"; + + # figure out which column comes first + $column_header{transdate} = qq|<th><a class=listheading href=$href&sort=transdate>|.$locale->text('Date').qq|</a></th>|; + $column_header{reference} = qq|<th><a class=listheading href=$href&sort=reference>|.$locale->text('Reference').qq|</a></th>|; + $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|; + $column_header{cleared} = qq|<th class=listheading>|.$locale->text('R').qq|</th>|; + $column_header{debit} = qq|<th class=listheading>|.$locale->text('Debit').qq|</th>|; + $column_header{credit} = qq|<th class=listheading>|.$locale->text('Credit').qq|</th>|; + $column_header{balance} = qq|<th class=listheading>|.$locale->text('Balance').qq|</th>|; + + @column_index = $form->sort_columns(qw(transdate reference description debit credit)); + + if ($form->{link} =~ /_paid/) { + @column_index = $form->sort_columns(qw(transdate reference description cleared debit credit)); + } + + if ($form->{accounttype} eq 'gifi') { + map { $form->{$_} = $form->{"gifi_$_"} } qw(accno description); + } + if ($form->{accno}) { + push @column_index, "balance"; + } + + $form->{title} = ($form->{accounttype} eq 'gifi') ? $locale->text('GIFI') : $locale->text('Account'); + + $form->{title} .= " $form->{accno} - $form->{description}"; + + if ($form->{department}) { + ($department) = split /--/, $form->{department}; + $options = $locale->text('Department')." : $department<br>"; + } + if ($form->{projectnumber}) { + ($projectnumber) = split /--/, $form->{projectnumber}; + $options .= $locale->text('Project Number')." : $projectnumber<br>"; + } + + if ($form->{fromdate} || $form->{todate}) { + if ($form->{fromdate}) { + $fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1); + } + if ($form->{todate}) { + $todate = $locale->date(\%myconfig, $form->{todate}, 1); + } + + $form->{period} = "$fromdate - $todate"; + } else { + $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig),1); + } + + $options .= $form->{period}; + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$options</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + +map { print "$column_header{$_}\n" } @column_index; + +print qq| + </tr> +|; + + # add sort to callback + $callback = $form->escape($callback . "&sort=$form->{sort}"); + + if (@{ $form->{CA} }) { + $sameitem = $form->{CA}->[0]->{$form->{sort}}; + } + + $ml = ($form->{category} =~ /(A|E)/) ? -1 : 1; + if ($form->{accno} && $form->{balance}) { + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</td>"; + + $i++; $i %= 2; + print qq| + <tr class=listrow$i> +|; + map { print $column_data{$_} } @column_index; + print qq| + </tr> +|; + } + + foreach $ca (@{ $form->{CA} }) { + + if ($form->{l_subtotal} eq 'Y') { + if ($sameitem ne $ca->{$form->{sort}}) { + &ca_subtotal; + } + } + + # construct link to source + $href = "<a href=$ca->{module}.pl?path=$form->{path}&action=edit&id=$ca->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ca->{reference}</a>"; + + + $column_data{debit} = "<td align=right>".$form->format_amount(\%myconfig, $ca->{debit}, 2, " ")."</td>"; + $column_data{credit} = "<td align=right>".$form->format_amount(\%myconfig, $ca->{credit}, 2, " ")."</td>"; + + $form->{balance} += $ca->{amount}; + $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</td>"; + + $subtotaldebit += $ca->{debit}; + $subtotalcredit += $ca->{credit}; + + $totaldebit += $ca->{debit}; + $totalcredit += $ca->{credit}; + + $column_data{transdate} = qq|<td>$ca->{transdate}</td>|; + $column_data{reference} = qq|<td>$href</td>|; + $column_data{description} = qq|<td>$ca->{description} </td>|; + + $column_data{cleared} = ($ca->{cleared}) ? qq|<td>*</td>| : qq|<td> </td>|; + + $i++; $i %= 2; + print qq| + <tr class=listrow$i> +|; + + map { print $column_data{$_} } @column_index; + + print qq| + </tr> +|; + + } + + + if ($form->{l_subtotal} eq 'Y') { + &ca_subtotal; + } + + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{debit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totaldebit, 2, " ")."</th>"; + $column_data{credit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totalcredit, 2, " ")."</th>"; + $column_data{balance} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</th>"; + + print qq| + <tr class=listtotal> +|; + + map { print $column_data{$_} } @column_index; + + print qq| + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +</body> +</html> +|; + +} + + +sub ca_subtotal { + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{debit} = "<th align=right class=listsubtotal>".$form->format_amount(\%myconfig, $subtotaldebit, 2, " ") . "</th>"; + $column_data{credit} = "<th align=right class=listsubtotal>".$form->format_amount(\%myconfig, $subtotalcredit, 2, " ") . "</th>"; + + $subtotaldebit = 0; + $subtotalcredit = 0; + + $sameitem = $ca->{$form->{sort}}; + + print qq| + <tr class=listsubtotal> +|; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + +} + diff --git a/sql-ledger/bin/mozilla/cp.pl b/sql-ledger/bin/mozilla/cp.pl new file mode 100644 index 000000000..8aefa0ccd --- /dev/null +++ b/sql-ledger/bin/mozilla/cp.pl @@ -0,0 +1,724 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2002 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# Contributors: +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# Payment module +# +#====================================================================== + + +use SL::CP; +use SL::OP; +use SL::IS; +use SL::IR; + +require "$form->{path}/arap.pl"; + +1; +# end of main + + +sub payment { + + $form->{callback} = "$form->{script}?action=payment&vc=$form->{vc}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&all_vc=$form->{all_vc}&type=$form->{type}"; + + $form->{ARAP} = ($form->{type} eq 'receipt') ? "AR" : "AP"; + $form->{arap} = lc $form->{ARAP}; + + # setup customer/vendor selection for open invoices + if ($form->{all_vc}) { + $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP}); + } else { + CP->get_openvc(\%myconfig, \%$form); + } + + $form->{"select$form->{vc}"} = ""; + + if ($form->{"all_$form->{vc}"}) { + $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id}; + map { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{"all_$form->{vc}"} }; + } + + # departments + if (@{ $form->{all_departments} }) { + $form->{selectdepartment} = "<option>\n"; + $form->{department} = "$form->{department}--$form->{department_id}" if $form->{department}; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + if (@{ $form->{all_languages} }) { + $form->{selectlanguage} = "<option>\n"; + map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} }; + } + + CP->paymentaccounts(\%myconfig, \%$form); + + $form->{selectaccount} = ""; + $form->{"select$form->{ARAP}"} = ""; + + map { $form->{selectaccount} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{PR}{"$form->{ARAP}_paid"} }; + map { $form->{"select$form->{ARAP}"} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{PR}{$form->{ARAP}} }; + + # currencies + @curr = split /:/, $form->{currencies}; + chomp $curr[0]; + $form->{defaultcurrency} = $curr[0]; + + $form->{selectcurrency} = ""; + map { $form->{selectcurrency} .= "<option>$_\n" } @curr; + + $form->{oldcurrency} = $form->{currency}; + + if ($form->{currency} ne $form->{defaultcurrency}) { + $form->{forex} = $form->{exchangerate} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{datepaid}, ($form->{vc} eq 'customer') ? "buy" : "sell"); + } + + $form->{media} = $myconfig{printer}; + $form->{format} = "pdf" unless $myconfig{printer}; + + &form_header; + &form_footer; + +} + + + +sub form_header { + + $vclabel = ucfirst $form->{vc}; + $vclabel = $locale->text($vclabel); + + if ($form->{type} eq 'receipt') { + $form->{title} = $locale->text('Receipt'); + } + if ($form->{type} eq 'check') { + $form->{title} = $locale->text('Payment'); + } + + +# $locale->text('Customer') +# $locale->text('Vendor') + + if ($form->{$form->{vc}} eq "") { + map { $form->{$_} = "" } qw(address1 address2 city zipcode state country); + } + + $exchangerate = ""; + if ($form->{currency} ne $form->{defaultcurrency}) { + $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate}); + if ($form->{forex}) { + $exchangerate = qq| + <tr> + <th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th> + <td colspan=3><input type=hidden name=exchangerate size=10 value=$form->{exchangerate}>$form->{exchangerate}</td> + </tr> +|; + } else { + $exchangerate = qq| + <tr> + <th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th> + <td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td> + </tr> +|; + } + } + + foreach $item ($form->{vc}, department) { + $form->{"select$item"} = $form->unescape($form->{"select$item"}); + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/; + } + + foreach $item (account, currency, $form->{ARAP}) { + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; + } + + $vc = ($form->{"select$form->{vc}"}) ? qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}\n</select>| : qq|<input name=$form->{vc} size=35 value="$form->{$form->{vc}}">|; + + if ($form->{all_vc}) { + $allvc = "checked"; + $form->{openinvoices} = ""; + } else { + $allvc = ""; + $form->{openinvoices} = 1; + } + +# $locale->text('AR') +# $locale->text('AP') + + $department = qq| + <tr> + <th align="right" nowrap>|.$locale->text('Department').qq|</th> + <td><select name=department>$form->{selectdepartment}</select> + <input type=hidden name=selectdepartment value="|.$form->escape($form->{selectdepartment},1).qq|"> + <input type=hidden name=olddepartment value="$form->{department}"> + + </td> + </tr> +| if $form->{selectdepartment}; + + $form->header; + + $arap = lc $form->{ARAP}; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<!-- <input type=hidden name=id value=1> --> + +<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}> +<input type=hidden name=closedto value=$form->{closedto}> +<input type=hidden name=vc value=$form->{vc}> +<input type=hidden name=type value=$form->{type}> +<input type=hidden name=formname value=$form->{type}> +<input type=hidden name=queued value="$form->{queued}"> +<input type=hidden name=arap value=$arap> +<input type=hidden name=ARAP value=$form->{ARAP}> +<input type=hidden name=openinvoices value=$form->{openinvoices}> +<input type=hidden name=title value="$form->{title}"> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width=100%> + <tr valign=top> + <td> + <table> + <tr> + <td align=right> + <input name=all_vc type=checkbox style=checkbox value=Y $allvc> + <input type=hidden name="oldall_vc" value="$form->{all_vc}"></td> + <th align=left>|.$locale->text('All').qq|</th> + </tr> + <tr> + <th align=right>$vclabel</th> + <td>$vc</td> + <input type=hidden name="select$form->{vc}" value="|.$form->escape($form->{"select$form->{vc}"},1).qq|"> + <input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}> + <input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}"> + </tr> + <tr valign=top> + <th align=right nowrap>|.$locale->text('Address').qq|</th> + <td colspan=2> + <table> + <tr> + <td>$form->{address1}</td> + </tr> + <tr> + <td>$form->{address2}</td> + </tr> + <td>$form->{city}</td> + </tr> + </tr> + <td>$form->{state}</td> + </tr> + </tr> + <td>$form->{zipcode}</td> + </tr> + <tr> + <td>$form->{country}</td> + </tr> + </table> + </td> + <input type=hidden name=address1 value="$form->{address1}"> + <input type=hidden name=address2 value="$form->{address2}"> + <input type=hidden name=city value="$form->{city}"> + <input type=hidden name=state value="$form->{state}"> + <input type=hidden name=zipcode value="$form->{zipcode}"> + <input type=hidden name=country value="$form->{country}"> + </tr> + <tr> + <th align=right>|.$locale->text('Memo').qq|</th> + <td colspan=2><input name="memo" size=30 value="$form->{memo}"></td> + </tr> + </table> + </td> + <td align=right> + <table> + $department + <tr> + <th align=right nowrap>|.$locale->text($form->{ARAP}).qq|</th> + <td colspan=3><select name=$form->{ARAP}>$form->{"select$form->{ARAP}"}</select> + </td> + <input type=hidden name="select$form->{ARAP}" value="$form->{"select$form->{ARAP}"}"> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Account').qq|</th> + <td colspan=3><select name=account>$form->{selectaccount}</select> + <input type=hidden name=selectaccount value="$form->{selectaccount}"> + </td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Date').qq|</th> + <td><input name=datepaid value="$form->{datepaid}" title="$myconfig{dateformat}" size=11></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Currency').qq|</th> + <td><select name=currency>$form->{selectcurrency}</select></td> + <input type=hidden name=selectcurrency value="$form->{selectcurrency}"> + <input type=hidden name=oldcurrency value=$form->{oldcurrency}> + </tr> + $exchangerate + <tr> + <th align=right nowrap>|.$locale->text('Source').qq|</th> + <td colspan=3><input name=source value="$form->{source}" size=10></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Amount').qq|</th> + <td colspan=3><input name=amount size=10 value=|.$form->format_amount(\%myconfig, $form->{amount}, 2).qq|></td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> +|; + +} + + +sub list_invoices { + + @column_index = qw(invnumber transdate amount due checked paid); + + $colspan = $#column_index + 1; + + $invoice = $locale->text('Invoices'); + + print qq| + <input type=hidden name=column_index value="id @column_index"> + <tr> + <td> + <table width=100%> + <tr> + <th class=listheading colspan=$colspan>$invoice</th> + </tr> +|; + + $column_data{invnumber} = qq|<th nowrap>|.$locale->text('Invoice')."</th>"; + $column_data{transdate} = qq|<th nowrap>|.$locale->text('Date')."</th>"; + $column_data{amount} = qq|<th nowrap>|.$locale->text('Amount')."</th>"; + $column_data{due} = qq|<th nowrap>|.$locale->text('Amount Due')."</th>"; + $column_data{paid} = qq|<th nowrap>|.$locale->text('Amount')."</th>"; + $column_data{checked} = qq|<th nowrap>|.$locale->text('Select')."</th>"; + + print qq| + <tr> +|; + map { print "$column_data{$_}\n" } @column_index; + print qq| + </tr> +|; + + for $i (1 .. $form->{rowcount}) { + + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(amount due paid); + + $totalamount += $form->{"amount_$i"}; + $totaldue += $form->{"due_$i"}; + $totalpaid += $form->{"paid_$i"}; + + map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(amount due paid); + + $column_data{invnumber} = qq|<td>$form->{"invnumber_$i"}</td> + <input type=hidden name="invnumber_$i" value="$form->{"invnumber_$i"}"> + <input type=hidden name="id_$i" value=$form->{"id_$i"}>|; + $column_data{transdate} = qq|<td width=15%>$form->{"transdate_$i"}</td> + <input type=hidden name="transdate_$i" value=$form->{"transdate_$i"}>|; + $column_data{amount} = qq|<td align=right width=15%>$form->{"amount_$i"}</td> + <input type=hidden name="amount_$i" value=$form->{"amount_$i"}>|; + $column_data{due} = qq|<td align=right width=15%>$form->{"due_$i"}</td> + <input type=hidden name="due_$i" value=$form->{"due_$i"}>|; + + $column_data{paid} = qq|<td align=right width=15%><input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|; + + $form->{"checked_$i"} = ($form->{"checked_$i"}) ? "checked" : ""; + $column_data{checked} = qq|<td align=center width=10%><input name="checked_$i" type=checkbox style=checkbox $form->{"checked_$i"}></td>|; + + $j++; $j %= 2; + print qq| + <tr class=listrow$j> +|; + map { print "$column_data{$_}\n" } @column_index; + print qq| + </tr> +|; + } + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{amount} = qq|<th class=listtotal align=right>|.$form->format_amount(\%myconfig, $totalamount, 2, " ").qq|</th>|; + $column_data{due} = qq|<th class=listtotal align=right>|.$form->format_amount(\%myconfig, $totaldue, 2, " ").qq|</th>|; + $column_data{paid} = qq|<th class=listtotal align=right>|.$form->format_amount(\%myconfig, $totalpaid, 2, " ").qq|</th>|; + + print qq| + <tr class=listtotal> +|; + map { print "$column_data{$_}\n" } @column_index; + print qq| + </tr> + </table> + </td> + </tr> +|; + +} + + +sub form_footer { + + $form->{DF}{$form->{format}} = "selected"; + + if ($form->{selectlanguage}) { + $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"}); + $form->{"selectlanguage"} =~ s/ selected//; + $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/; + $lang = qq|<select name=language_code>$form->{selectlanguage}</select> + <input type=hidden name=selectlanguage value="|. + $form->escape($form->{selectlanguage},1).qq|">|; + } + + $media = qq| + <option value=screen>|.$locale->text('Screen') if $latex; + + if (%printer && $latex) { + map { $media .= qq| + <option value="$_">$_| } sort keys %printer; + } + if ($latex) { + $media .= qq| + <option value=queue>|.$locale->text('Queue'); + $format .= qq| + <option value=postscript $form->{DF}{postscript}>|.$locale->text('Postscript').qq| + <option value=pdf $form->{DF}{pdf}>|.$locale->text('PDF'); + } + + + print qq| + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=callback value="$form->{callback}"> +<input type=hidden name=rowcount value=$form->{rowcount}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('Post').qq|">|; + + if ($latex) { + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Print').qq|">|; + } + + $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/; + + print qq| + $lang +<select name=format>$format</select> +<select name=media>$media</select> +|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +sub update { + my ($new_name_selected) = @_; + + if ($form->{vc} eq 'customer') { + $buysell = "buy"; + } else { + $buysell = "sell"; + } + + # get customer + $updated = &check_name($form->{vc}, $locale->text('Nothing outstanding for ') . $form->{customer}); + + if ($form->{department} ne $form->{olddepartment}) { + $updated = 1; + } + + # if we switched to all_vc + if ($form->{all_vc} ne $form->{oldall_vc}) { + + $form->{openinvoices} = ($form->{all_vc}) ? 0 : 1; + + $form->{"select$form->{vc}"} = ""; + + if ($form->{all_vc}) { + $form->all_vc(\%myconfig, $form->{vc}, $form->{ARAP}); + + if ($form->{"all_$form->{vc}"}) { + map { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{"all_$form->{vc}"} }; + } + + } else { + CP->get_openvc(\%myconfig, \%$form); + + if ($form->{"all_$form->{vc}"}) { + $newvc = qq|$form->{"all_$form->{vc}"}[0]->{name}--$form->{"all_$form->{vc}"}[0]->{id}|; + map { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{"all_$form->{vc}"} }; + + + # if the name is not the same + if ($form->{"select$form->{vc}"} !~ /$form->{$form->{vc}}/) { + $form->{$form->{vc}} = $newvc; + &check_name($form->{vc}, $locale->text('Nothing outstanding for ') . $form->{customer}); + } + } + } + + if (@{ $form->{all_languages} }) { + $form->{selectlanguage} = "<option>\n"; + map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} }; + } + + } + + if ($new_name_selected || $updated) { + CP->get_openinvoices(\%myconfig, \%$form); + ($newvc) = split /--/, $form->{$form->{vc}}; + $form->{"old$form->{vc}"} = qq|$newvc--$form->{"$form->{vc}_id"}|;; + $updated = 1; + } + + if ($form->{currency} ne $form->{oldcurrency}) { + $form->{oldcurrency} = $form->{currency}; + if (!$updated) { + CP->get_openinvoices(\%myconfig, \%$form); + $updated = 1; + } + } + + + $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{datepaid}, $buysell))); + + $amount = $form->{amount} = $form->parse_amount(\%myconfig, $form->{amount}); + + + if ($updated) { + $form->{rowcount} = 0; + + $form->{queued} = ""; + + $i = 0; + foreach $ref (@{ $form->{PR} }) { + $i++; + $form->{"id_$i"} = $ref->{id}; + $form->{"invnumber_$i"} = $ref->{invnumber}; + $form->{"transdate_$i"} = $ref->{transdate}; + $ref->{exchangerate} = 1 unless $ref->{exchangerate}; + $form->{"amount_$i"} = $ref->{amount} / $ref->{exchangerate}; + $form->{"due_$i"} = ($ref->{amount} - $ref->{paid}) / $ref->{exchangerate}; + $form->{"checked_$i"} = ""; + $form->{"paid_$i"} = ""; + + # need to format + map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(amount due); + + } + $form->{rowcount} = $i; + } + + # recalculate + $amount = $form->{amount}; + for $i (1 .. $form->{rowcount}) { + + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(amount due paid); + + if ($form->{"checked_$i"}) { + # calculate paid_$i + if (!$form->{"paid_$i"}) { + $form->{"paid_$i"} = $form->{"due_$i"}; + } + + $amount -= $form->{"paid_$i"}; + } else { + $form->{"paid_$i"} = ""; + } + + map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(amount due paid); + + } + + &form_header; + &list_invoices; + &form_footer; + +} + + +sub post { + + &check_form; + + if ($form->{currency} ne $form->{defaultcurrency}) { + $form->error($locale->text('Exchange rate missing!')) unless $form->{exchangerate}; + } + + $msg1 = "$form->{title} posted!"; + $msg2 = "Cannot post $form->{title}!"; + +# $locale->text('Payment posted!') +# $locale->text('Receipt posted!') +# $locale->text('Cannot post Payment!') +# $locale->text('Cannot post Receipt!') + + + $form->{amount} = $form->format_amount(\%myconfig, $form->{amount}, 2); + + $form->redirect($locale->text($msg1)) if (CP->process_payment(\%myconfig, \%$form)); + $form->error($locale->text($msg2)); + +} + + +sub print { + + &check_form; + + ($whole, $form->{decimal}) = split /\./, $form->{amount}; + + $form->{amount} = $form->format_amount(\%myconfig, $form->{amount}, 2); + + $form->{decimal} .= "00"; + $form->{decimal} = substr($form->{decimal}, 0, 2); + + $countrycode = ($form->{language_code}) ? $form->{language_code} : $myconfig{countrycode}; + $check = new CP $countrycode; + $check->init; + $form->{text_amount} = $check->num2text($whole); + + &{ "$form->{vc}_details" }; + + $form->{templates} = "$myconfig{templates}"; + $form->{IN} = "$form->{formname}.tex"; + + if ($form->{media} !~ /(screen|queue)/) { + $form->{OUT} = "| $printer{$form->{media}}"; + } + if ($form->{media} eq 'queue') { + %queued = split / /, $form->{queued}; + + if ($filename = $queued{$form->{formname}}) { + unlink "$spool/$filename"; + $filename =~ s/\..*$//g; + } else { + $filename = time; + $filename .= $$; + } + $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf'; + $form->{queued} = "$form->{formname} $filename"; + $form->{OUT} = ">$spool/$filename"; + + $form->update_status(\%myconfig); + + } + + + $form->{company} = $myconfig{company}; + $form->{address} = $myconfig{address}; + + @a = qw(name company address text_amount address1 address2 city state zipcode country memo); + $form->format_string(@a); + + $form->parse_template(\%myconfig, $userspath); + + &update if $form->{media} ne 'screen'; + +} + + +sub customer_details { IS->customer_details(\%myconfig, \%$form) }; +sub vendor_details { IR->vendor_details(\%myconfig, \%$form) }; + + +sub check_form { + + &check_name($form->{vc}, $locale->text('Nothing outstanding for ') . $form->{customer}); + + if ($form->{currency} ne $form->{oldcurrency}) { + &update; + exit; + } + + $form->error($locale->text('Date missing!')) unless $form->{datepaid}; + + $closedto = $form->datetonum($form->{closedto}, \%myconfig); + $datepaid = $form->datetonum($form->{datepaid}, \%myconfig); + + $form->error($locale->text('Cannot process payment for a closed period!')) if ($datepaid <= $closedto); + + # this is just to format the year + $form->{datepaid} = $locale->date(\%myconfig, $form->{datepaid}); + + $amount = $form->parse_amount(\%myconfig, $form->{amount}); + $form->{amount} = $amount; + + for $i (1 .. $form->{rowcount}) { + if ($form->{"paid_$i"}) { + $amount -= $form->parse_amount(\%myconfig, $form->{"paid_$i"}); + + push(@{ $form->{paid} }, $form->{"paid_$i"}); + push(@{ $form->{due} }, $form->{"due_$i"}); + push(@{ $form->{invnumber} }, $form->{"invnumber_$i"}); + push(@{ $form->{invdate} }, $form->{"transdate_$i"}); + } + } + + if ($form->round_amount($amount, 2) != 0) { + push(@{ $form->{paid} }, $form->format_amount(\%myconfig, $amount, 2)); + push(@{ $form->{due} }, $form->format_amount(\%myconfig, 0, "0")); + push(@{ $form->{invnumber} }, ($form->{ARAP} eq 'AR') ? $locale->text('Deposit') : $locale->text('Prepayment')); + push(@{ $form->{invdate} }, $form->{datepaid}); + } + +} + + diff --git a/sql-ledger/bin/mozilla/ct.pl b/sql-ledger/bin/mozilla/ct.pl new file mode 100644 index 000000000..988422b9d --- /dev/null +++ b/sql-ledger/bin/mozilla/ct.pl @@ -0,0 +1,2327 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2001 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# Contributors: Reed White <alta@alta-research.com> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# customer/vendor module +# +#====================================================================== + +use SL::CT; + +1; +# end of main + + + +sub add { + + $form->{title} = "Add"; +# $locale->text('Add Customer') +# $locale->text('Add Vendor') + + $form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + CT->create_links(\%myconfig, \%$form); + + &form_header; + &form_footer; + +} + + +sub history { + +# $locale->text('Customer History') +# $locale->text('Vendor History') + + $history = 1; + $label = ucfirst $form->{db}; + $label .= " History"; + + if ($form->{db} eq 'customer') { + $invlabel = $locale->text('Sales Invoices'); + $ordlabel = $locale->text('Sales Orders'); + $quolabel = $locale->text('Quotations'); + } else { + $invlabel = $locale->text('Vendor Invoices'); + $ordlabel = $locale->text('Purchase Orders'); + $quolabel = $locale->text('Request for Quotations'); + } + + $form->{title} = $locale->text($label); + + $form->{nextsub} = "list_history"; + + $transactions = qq| + <tr> + <td></td> + <td> + <table> + <tr> + <td> + <table> + <tr> + <td><input name=type type=radio class=radio value=invoice checked> $invlabel</td> + </tr> + <tr> + <td><input name=type type=radio class=radio value=order> $ordlabel</td> + </tr> + <tr> + <td><input name="type" type=radio class=radio value=quotation> $quolabel</td> + </tr> + </table> + </td> + <td> + <table> + <tr> + <th>|.$locale->text('From').qq|</th> + <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td> + <th>|.$locale->text('To').qq|</th> + <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td> + </tr> + <tr> + <td></td> + <td colspan=3> + <input name="open" type=checkbox class=checkbox value=Y checked> |.$locale->text('Open').qq| + <input name="closed" type=checkbox class=checkbox value=Y checked> |.$locale->text('Closed').qq| + </td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> +|; + + $include = qq| + <tr> + <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <td> + <table> + <tr> + <td><input name=history type=radio class=radio value=summary checked> |.$locale->text('Summary').qq|</td> + <td><input name=history type=radio class=radio value=detail> |.$locale->text('Detail').qq| + </td> + </tr> + <tr> + <td> + <input name="l_partnumber" type=checkbox class=checkbox value=Y checked> |.$locale->text('Part Number').qq| + </td> + <td> + <input name="l_description" type=checkbox class=checkbox value=Y checked> |.$locale->text('Description').qq| + </td> + <td> + <input name="l_sellprice" type=checkbox class=checkbox value=Y checked> |.$locale->text('Sell Price').qq| + </td> + <td> + <input name="l_curr" type=checkbox class=checkbox value=Y> |.$locale->text('Currency').qq| + </td> + </tr> + <tr> + <td> + <input name="l_qty" type=checkbox class=checkbox value=Y> |.$locale->text('Qty').qq| + </td> + <td> + <input name="l_unit" type=checkbox class=checkbox value=Y> |.$locale->text('Unit').qq| + </td> + <td> + <input name="l_discount" type=checkbox class=checkbox value=Y> |.$locale->text('Discount').qq| + </td> + <tr> + </tr> + <td> + <input name="l_deliverydate" type=checkbox class=checkbox value=Y> |.$locale->text('Delivery Date').qq| + </td> + <td> + <input name="l_projectnumber" type=checkbox class=checkbox value=Y> |.$locale->text('Project Number').qq| + </td> + <td> + <input name="l_serialnumber" type=checkbox class=checkbox value=Y> |.$locale->text('Serial Number').qq| + </td> + </tr> + </table> + </td> + </tr> +|; + + &search_name; + +} + + +sub transactions { + + if ($form->{db} eq 'customer') { + $translabel = $locale->text('AR Transactions'); + $invlabel = $locale->text('Sales Invoices'); + $ordlabel = $locale->text('Sales Orders'); + $quolabel = $locale->text('Quotations'); + } else { + $translabel = $locale->text('AP Transactions'); + $invlabel = $locale->text('Vendor Invoices'); + $ordlabel = $locale->text('Purchase Orders'); + $quolabel = $locale->text('Request for Quotations'); + } + + + $transactions = qq| + <tr> + <td></td> + <td> + <table> + <tr> + <td> + <table> + <tr> + <td><input name="l_transnumber" type=checkbox class=checkbox value=Y> $translabel</td> + </tr> + <tr> + <td><input name="l_invnumber" type=checkbox class=checkbox value=Y> $invlabel</td> + </tr> + <tr> + <td><input name="l_ordnumber" type=checkbox class=checkbox value=Y> $ordlabel</td> + </tr> + <tr> + <td><input name="l_quonumber" type=checkbox class=checkbox value=Y> $quolabel</td> + </tr> + </table> + </td> + <td> + <table> + <tr> + <th>|.$locale->text('From').qq|</th> + <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td> + <th>|.$locale->text('To').qq|</th> + <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td> + </tr> + <tr> + <td></td> + <td colspan=3> + <input name="open" type=checkbox class=checkbox value=Y checked> |.$locale->text('Open').qq| + <input name="closed" type=checkbox class=checkbox value=Y checked> |.$locale->text('Closed').qq| + </td> + </tr> + <tr> + <td></td> + <td colspan=3> + <input name="l_amount" type=checkbox class=checkbox value=Y checked> |.$locale->text('Amount').qq| + <input name="l_tax" type=checkbox class=checkbox value=Y checked> |.$locale->text('Tax').qq| + <input name="l_total" type=checkbox class=checkbox value=Y checked> |.$locale->text('Total').qq| + <input name="l_subtotal" type=checkbox class=checkbox value=Y> |.$locale->text('Subtotal').qq| + </td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> +|; + +} + + +sub include_in_report { + + $label = ucfirst $form->{db}; + + if ($myconfig{role} =~ /(admin|manager)/) { + $bcc = qq| + <td><input name="l_bcc" type=checkbox class=checkbox value=Y> |.$locale->text('Bcc').qq|</td> +|; + } + + if ($form->{db} eq 'customer') { + $employee = qq| + <td><input name="l_employee" type=checkbox class=checkbox value=Y> |.$locale->text('Salesperson').qq|</td> +|; + + $pricegroup = qq| + <td><input name="l_pricegroup" type=checkbox class=checkbox value=Y> |.$locale->text('Pricegroup').qq|</td> +|; + + } else { + $employee = qq| + <td><input name="l_employee" type=checkbox class=checkbox value=Y> |.$locale->text('Employee').qq|</td> +|; + } + + $employee .= qq| + <td><input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager').qq|</td> +|; + + $include = qq| + <tr> + <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <td> + <table> + <tr> + <td><input name="l_id" type=checkbox class=checkbox value=Y> |.$locale->text('ID').qq|</td> + <td><input name="l_$form->{db}number" type=checkbox class=checkbox value=Y> |.$locale->text($label . ' Number').qq|</td> + <td><input name="l_name" type=checkbox class=checkbox value=Y $form->{l_name}> |.$locale->text('Company Name').qq|</td> + <td><input name="l_contact" type=checkbox class=checkbox value=Y $form->{l_contact}> |.$locale->text('Contact').qq|</td> + <td><input name="l_email" type=checkbox class=checkbox value=Y $form->{l_email}> |.$locale->text('E-mail').qq|</td> + </tr> + <tr> + <td><input name="l_address" type=checkbox class=checkbox value=Y> |.$locale->text('Address').qq|</td> + <td><input name="l_city" type=checkbox class=checkbox value=Y> |.$locale->text('City').qq|</td> + <td><input name="l_state" type=checkbox class=checkbox value=Y> |.$locale->text('State/Province').qq|</td> + <td><input name="l_zipcode" type=checkbox class=checkbox value=Y> |.$locale->text('Zip/Postal Code').qq|</td> + <td><input name="l_country" type=checkbox class=checkbox value=Y> |.$locale->text('Country').qq|</td> + </tr> + <tr> + <td><input name="l_phone" type=checkbox class=checkbox value=Y $form->{l_phone}> |.$locale->text('Phone').qq|</td> + <td><input name="l_fax" type=checkbox class=checkbox value=Y> |.$locale->text('Fax').qq|</td> + <td><input name="l_cc" type=checkbox class=checkbox value=Y> |.$locale->text('Cc').qq|</td> + $bcc + <td><input name="l_notes" type=checkbox class=checkbox value=Y> |.$locale->text('Notes').qq|</td> + <td><input name="l_discount" type=checkbox class=checkbox value=Y> |.$locale->text('Discount').qq|</td> + </tr> + <tr> + <td><input name="l_taxnumber" type=checkbox class=checkbox value=Y> |.$locale->text('Tax Number').qq|</td> + $gifi + <td><input name="l_sic_code" type=checkbox class=checkbox value=Y> |.$locale->text('SIC').qq|</td> + <td><input name="l_iban" type=checkbox class=checkbox value=Y> |.$locale->text('IBAN').qq|</td> + <td><input name="l_bic" type=checkbox class=checkbox value=Y> |.$locale->text('BIC').qq|</td> + </tr> + <tr> + $employee + <td><input name="l_business" type=checkbox class=checkbox value=Y> |.$locale->text('Type of Business').qq|</td> + $pricegroup + <td><input name="l_language" type=checkbox class=checkbox value=Y> |.$locale->text('Language').qq|</td> + </tr> + <tr> + <td><input name="l_startdate" type=checkbox class=checkbox value=Y> |.$locale->text('Startdate').qq|</td> + <td><input name="l_enddate" type=checkbox class=checkbox value=Y> |.$locale->text('Enddate').qq|</td> + </tr> + </table> + </td> + </tr> +|; + +} + + +sub search { + +# $locale->text('Customers') +# $locale->text('Vendors') + + $form->{title} = $locale->text('Search') unless $form->{title}; + + map { $form->{"l_$_"} = 'checked' } qw(name contact phone email); + + $form->{nextsub} = "list_names"; + + $orphan = qq| + <tr> + <td></td> + <td><input name=status class=radio type=radio value=all checked> |.$locale->text('All').qq| + <input name=status class=radio type=radio value=orphaned> |.$locale->text('Orphaned').qq|</td> + </tr> +|; + + if ($form->{db} eq 'vendor') { + $gifi = qq| + <td><input name="l_gifi_accno" type=checkbox class=checkbox value=Y> |.$locale->text('GIFI').qq|</td> +|; + } + + &transactions; + &include_in_report; + &search_name; + +} + + +sub search_name { + + $label = ucfirst $form->{db}; + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=db value=$form->{db}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr valign=top> + <td> + <table> + <tr> + <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('Company Name').qq|</th> + <td><input name=name size=64></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Address').qq|</th> + <td><input name=address size=64></td> + </tr> + <tr> + <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> + <td><input name=state size=32></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th> + <td><input name=zipcode size=10></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Country').qq|</th> + <td><input name=country size=32></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Contact').qq|</th> + <td><input name=contact size=64></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('E-mail').qq|</th> + <td><input name=email size=32></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Notes').qq|</th> + <td><input name=notes size=64></td> + </tr> + + $invnumber + $orphan + $transactions + $include + + </table> + </td> + </tr> + + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=nextsub value=$form->{nextsub}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; +} + + +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, + taxnumber, gifi_accno, sic_code, business, + pricegroup, language, iban, bic, + startdate, enddate, + invnumber, invamount, invtax, invtotal, + ordnumber, ordamount, ordtax, ordtotal, + quonumber, quoamount, quotax, quototal); + + foreach $item (qw(inv ord quo)) { + if ($form->{"l_${item}number"}) { + map { $form->{"l_$item$_"} = $form->{"l_$_"} } qw(amount tax total); + $removeemployee = 1; + $openclosed = 1; + } + } + $form->{open} = $form->{closed} = "" if !$openclosed; + + if ($form->{l_transnumber}) { + map { $form->{"l_inv$_"} = $form->{"l_$_"} } qw(amount tax total); + $removeemployee = 1; + } + + if ($removeemployee) { + @columns = grep !/(employee|manager)/, @columns; + } + + + foreach $item (@columns) { + if ($form->{"l_$item"} eq "Y") { + 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->{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->{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->{email}) { + $callback .= "&email=".$form->escape($form->{email},1); + $href .= "&email=".$form->escape($form->{email}); + $option .= "\n<br>".$locale->text('E-mail')." : $form->{email}"; + } + if ($form->{transdatefrom}) { + $callback .= "&transdatefrom=$form->{transdatefrom}"; + $href .= "&transdatefrom=$form->{transdatefrom}"; + $option .= "\n<br>" if ($option); + $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{transdatefrom}, 1); + } + if ($form->{transdateto}) { + $callback .= "&transdateto=$form->{transdateto}"; + $href .= "&transdateto=$form->{transdateto}"; + if ($form->{transdatefrom}) { + $option .= " "; + } else { + $option .= "\n<br>" if ($option); + } + $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{transdateto}, 1); + } + if ($form->{open}) { + $callback .= "&open=$form->{open}"; + $href .= "&open=$form->{open}"; + $option .= "\n<br>" if ($option); + $option .= $locale->text('Open'); + } + if ($form->{closed}) { + $callback .= "&closed=$form->{closed}"; + $href .= "&closed=$form->{closed}"; + $option .= "\n<br>" if ($option); + $option .= $locale->text('Closed'); + } + + + $form->{callback} = "$callback&sort=$form->{sort}"; + $callback = $form->escape($form->{callback}); + + $column_header{id} = qq|<th class=listheading>|.$locale->text('ID').qq|</th>|; + $column_header{"$form->{db}number"} = qq|<th><a class=listheading href=$href&sort=$form->{db}number>|.$locale->text('Number').qq|</a></th>|; + $column_header{name} = qq|<th><a class=listheading href=$href&sort=name>|.$locale->text('Name').qq|</a></th>|; + $column_header{address} = qq|<th 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{taxnumber} = qq|<th><a class=listheading href=$href&sort=taxnumber>|.$locale->text('Tax Number').qq|</a></th>|; + $column_header{gifi_accno} = qq|<th><a class=listheading href=$href&sort=gifi_accno>|.$locale->text('GIFI').qq|</a></th>|; + $column_header{sic_code} = qq|<th><a class=listheading href=$href&sort=sic_code>|.$locale->text('SIC').qq|</a></th>|; + $column_header{business} = qq|<th><a class=listheading href=$href&sort=business>|.$locale->text('Type of Business').qq|</a></th>|; + $column_header{iban} = qq|<th class=listheading>|.$locale->text('IBAN').qq|</th>|; + $column_header{bic} = qq|<th class=listheading>|.$locale->text('BIC').qq|</th>|; + $column_header{startdate} = qq|<th><a class=listheading href=$href&sort=startdate>|.$locale->text('Startdate').qq|</a></th>|; + $column_header{enddate} = qq|<th><a class=listheading href=$href&sort=enddate>|.$locale->text('Enddate').qq|</a></th>|; + + $column_header{invnumber} = qq|<th><a class=listheading href=$href&sort=invnumber>|.$locale->text('Invoice').qq|</a></th>|; + $column_header{ordnumber} = qq|<th><a class=listheading href=$href&sort=ordnumber>|.$locale->text('Order').qq|</a></th>|; + $column_header{quonumber} = qq|<th><a class=listheading href=$href&sort=quonumber>|.$locale->text('Quotation').qq|</a></th>|; + + if ($form->{db} eq 'customer') { + $column_header{employee} = qq|<th><a class=listheading href=$href&sort=employee>|.$locale->text('Salesperson').qq|</a></th>|; + } else { + $column_header{employee} = qq|<th><a class=listheading href=$href&sort=employee>|.$locale->text('Employee').qq|</a></th>|; + } + $column_header{manager} = qq|<th><a class=listheading href=$href&sort=manager>|.$locale->text('Manager').qq|</a></th>|; + + $column_header{pricegroup} = qq|<th><a class=listheading href=$href&sort=pricegroup>|.$locale->text('Pricegroup').qq|</a></th>|; + $column_header{language} = qq|<th><a class=listheading href=$href&sort=language>|.$locale->text('Language').qq|</a></th>|; + + + $amount = $locale->text('Amount'); + $tax = $locale->text('Tax'); + $total = $locale->text('Total'); + + $column_header{invamount} = qq|<th class=listheading>$amount</th>|; + $column_header{ordamount} = qq|<th class=listheading>$amount</th>|; + $column_header{quoamount} = qq|<th class=listheading>$amount</th>|; + + $column_header{invtax} = qq|<th class=listheading>$tax</th>|; + $column_header{ordtax} = qq|<th class=listheading>$tax</th>|; + $column_header{quotax} = qq|<th class=listheading>$tax</th>|; + + $column_header{invtotal} = qq|<th class=listheading>$total</th>|; + $column_header{ordtotal} = qq|<th class=listheading>$total</th>|; + $column_header{quototal} = qq|<th class=listheading>$total</th>|; + + + if ($form->{status}) { + $label = ucfirst $form->{db}."s"; + $form->{title} = $locale->text($label); + } else { + $label = ucfirst $form->{db}; + $form->{title} = $locale->text($label ." Transactions"); + } + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| + </tr> +|; + + $ordertype = ($form->{db} eq 'customer') ? 'sales_order' : 'purchase_order'; + $quotationtype = ($form->{db} eq 'customer') ? 'sales_quotation' : 'request_quotation'; + $subtotal = 0; + + foreach $ref (@{ $form->{CT} }) { + + if ("$ref->{$form->{sort}}$ref->{id}" ne $sameitem && $form->{l_subtotal}) { + # print subtotal + if ($subtotal) { + map { $column_data{$_} = "<td> </td>" } @column_index; + &list_subtotal; + } + } + + if ("$ref->{$form->{sort}}$ref->{id}" eq $sameitem && $form->{sort} eq 'name') { + map { $column_data{$_} = "<td> </td>" } @column_index; + } else { + + map { $column_data{$_} = "<td>$ref->{$_} </td>" } @column_index; + $column_data{$form->{sort}} = "<td> </td>" if $ref->{$form->{sort}} eq $sameitem && $form->{l_subtotal}; + + $column_data{address} = "<td>$ref->{address1} $ref->{address2} </td>"; + $column_data{name} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&callback=$callback>$ref->{name} </td>"; + + $email = ""; + if ($form->{sort} =~ /(email|cc)/) { + if ("$ref->{$form->{sort}}$ref->{id}" ne $sameitem) { + $email = 1; + } + } else { + $email = 1; + } + + if ($email) { + foreach $item (qw(email cc bcc)) { + if ($ref->{$item}) { + $email = $ref->{$item}; + $email =~ s/</\</; + $email =~ s/>/\>/; + + $column_data{$item} = qq|<td><a href="mailto:$ref->{$item}">$email</a></td>|; + } + } + } + } + + if ($ref->{formtype} eq 'invoice') { + $column_data{invnumber} = "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{invnumber} </td>"; + + $column_data{invamount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{netamount}, 2, " ")."</td>"; + $column_data{invtax} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} - $ref->{netamount}, 2, " ")."</td>"; + $column_data{invtotal} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, " ")."</td>"; + + $invamountsubtotal += $ref->{netamount}; + $invtaxsubtotal += ($ref->{amount} - $ref->{netamount}); + $invtotalsubtotal += $ref->{amount}; + } + + if ($ref->{formtype} eq 'order') { + $column_data{ordnumber} = "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{ordnumber} </td>"; + + $column_data{ordamount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{netamount}, 2, " ")."</td>"; + $column_data{ordtax} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} - $ref->{netamount}, 2, " ")."</td>"; + $column_data{ordtotal} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, " ")."</td>"; + + $ordamountsubtotal += $ref->{netamount}; + $ordtaxsubtotal += ($ref->{amount} - $ref->{netamount}); + $ordtotalsubtotal += $ref->{amount}; + } + + if ($ref->{formtype} eq 'quotation') { + $column_data{quonumber} = "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{quonumber} </td>"; + + $column_data{quoamount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{netamount}, 2, " ")."</td>"; + $column_data{quotax} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} - $ref->{netamount}, 2, " ")."</td>"; + $column_data{quototal} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, " ")."</td>"; + + $quoamountsubtotal += $ref->{netamount}; + $quotaxsubtotal += ($ref->{amount} - $ref->{netamount}); + $quototalsubtotal += $ref->{amount}; + } + + if ($form->{l_discount}) { + $column_data{discount} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{discount} * 100, "", " ")."</td>"; + } + + $i++; $i %= 2; + print " + <tr class=listrow$i> +"; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + + $sameitem = "$ref->{$form->{sort}}$ref->{id}"; + $subtotal = 1; + + } + + if ($form->{l_subtotal}) { + map { $column_data{$_} = "<td> </td>" } @column_index; + &list_subtotal; + } + + $i = 1; + if ($myconfig{acs} !~ /AR--AR/) { + if ($form->{db} eq 'customer') { + $button{'AR--Customers-Add Customer'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Customer').qq|"> |; + $button{'AR--Customers--Add Customer'}{order} = $i++; + } + } + if ($myconfig{acs} !~ /AP--AP/) { + if ($form->{db} eq 'vendor') { + $button{'AP--Vendors--Add Vendor'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Vendor').qq|"> |; + $button{'AP--Vendors--Add Vendor'}{order} = $i++; + } + } + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> +<input name=db type=hidden value=$form->{db}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + if ($form->{status}) { + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +sub 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{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 " + <tr class=listsubtotal> +"; + map { print "$column_data{$_}\n" } @column_index; + + 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| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| + </tr> +|; + + + $module = 'oe'; + if ($form->{db} eq 'customer') { + $invlabel = $locale->text('Sales Invoice'); + $ordlabel = $locale->text('Sales Order'); + $quolabel = $locale->text('Quotation'); + + $ordertype = 'sales_order'; + $quotationtype = 'sales_quotation'; + if ($form->{type} eq 'invoice') { + $module = 'is'; + } + } else { + $invlabel = $locale->text('Vendor Invoice'); + $ordlabel = $locale->text('Purchase Order'); + $quolabel = $locale->text('RFQ'); + + $ordertype = 'purchase_order'; + $quotationtype = 'request_quotation'; + if ($form->{type} eq 'invoice') { + $module = 'ir'; + } + } + + + foreach $ref (@{ $form->{CT} }) { + + if ($ref->{id} ne $sameid) { + # print the header + print qq| + <tr class=listheading> + <th colspan=$colspan><a class=listheading href=$form->{script}?action=edit&id=$ref->{ctid}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{name} $ref->{address}</a></th> + </tr> +|; + } + + if ($form->{type} ne 'invoice') { + $ref->{fxsellprice} = $ref->{sellprice}; + $ref->{sellprice} *= $ref->{exchangerate}; + } + + if ($form->{history} eq 'detail' and $ref->{invid} ne $sameinvid) { + # print inv, ord, quo number + $i++; $i %= 2; + + print qq| + <tr class=listrow$i> +|; + + if ($form->{type} eq 'invoice') { + print qq|<th align=left colspan=$colspan><a href=${module}.pl?action=edit&id=$ref->{invid}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$invlabel $ref->{invnumber} / $ref->{employee}</a></th>|; + } + + if ($form->{type} eq 'order') { + print qq|<th align=left colspan=$colspan><a href=${module}.pl?action=edit&id=$ref->{invid}&type=$ordertype&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ordlabel $ref->{ordnumber} / $ref->{employee}</a></th>|; + } + + if ($form->{type} eq 'quotation') { + print qq|<th align=left colspan=$colspan><a href=${module}.pl?action=edit&id=$ref->{invid}&type=$quotationtype&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$quolabel $ref->{quonumber} / $ref->{employee}</a></th>|; + } + + print qq| + </tr> +|; + } + + map { $column_data{$_} = "<td>$ref->{$_} </td>" } @column_index; + + if ($form->{l_curr}) { + $column_data{fxsellprice} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{fxsellprice}, 2)."</td>"; + } + $column_data{sellprice} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{sellprice}, 2)."</td>"; + + $column_data{qty} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{qty})."</td>"; + $column_data{discount} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{discount} * 100, "", " ")."</td>"; + $column_data{partnumber} = qq|<td><a href=ic.pl?action=edit&id=$ref->{pid}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partnumber}</td>|; + + + $i++; $i %= 2; + print qq| + <tr class=listrow$i> +|; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + + $sameid = $ref->{id}; + $sameinvid = $ref->{invid}; + + } + + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + + +sub edit { + +# $locale->text('Edit Customer') +# $locale->text('Edit Vendor') + + CT->create_links(\%myconfig, \%$form); + + map { $form->{$_} = $form->quote($form->{$_}) } keys %$form; + + $form->{title} = "Edit"; + + # format discount + $form->{discount} *= 100; + + &form_header; + &form_footer; + +} + + +sub form_header { + + $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : ""; + $form->{creditlimit} = $form->format_amount(\%myconfig, $form->{creditlimit}, 0); + + if ($myconfig{role} =~ /(admin|manager)/) { + $bcc = qq| + <tr> + <th align=right nowrap>|.$locale->text('Bcc').qq|</th> + <td><input name=bcc size=35 value="$form->{bcc}"></td> + </tr> +|; + } + + # currencies + map { $form->{selectcurrency} .= "<option>$_\n" } split /:/, $form->{currencies}; + $form->{selectcurrency} =~ s/option>($form->{curr})/option selected>$1/; + + foreach $item (split / /, $form->{taxaccounts}) { + if ($form->{tax}{$item}{taxable}) { + $taxable .= qq| <input name="tax_$item" value=1 class=checkbox type=checkbox checked> <b>$form->{tax}{$item}{description}</b>|; + } else { + $taxable .= qq| <input name="tax_$item" value=1 class=checkbox type=checkbox> <b>$form->{tax}{$item}{description}</b>|; + } + } + + if ($taxable) { + $tax = qq| + <tr> + <th align=right>|.$locale->text('Taxable').qq|</th> + <td colspan=5> + <table> + <tr> + <td>$taxable</td> + <td><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td> + <th align=left>|.$locale->text('Tax Included').qq|</th> + </tr> + </table> + </td> + </tr> +|; + } + + $typeofbusiness = qq| + <th></th> + <td></td> +|; + + if (@{ $form->{all_business} }) { + $form->{selectbusiness} = qq|<option>\n|; + map { $form->{selectbusiness} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } @{ $form->{all_business} }; + + $form->{selectbusiness} =~ s/(<option value="\Q$form->{business}--$form->{business_id}\E")>/$1 selected>/; + + $typeofbusiness = qq| + <th align=right>|.$locale->text('Type of Business').qq|</th> + <td><select name=business>$form->{selectbusiness}</select></td> +|; + + + } + + $pricegroup = qq| + <th></th> + <td></td> +|; + + if (@{ $form->{all_pricegroup} } && $form->{db} eq 'customer') { + $form->{selectpricegroup} = qq|<option>\n|; + map { $form->{selectpricegroup} .= qq|<option value="$_->{pricegroup}--$_->{id}">$_->{pricegroup}\n| } @{ $form->{all_pricegroup} }; + + $form->{selectpricegroup} =~ s/(<option value="\Q$form->{pricegroup}--$form->{pricegroup_id}\E")/$1 selected/; + + $pricegroup = qq| + <th align=right>|.$locale->text('Pricegroup').qq|</th> + <td><select name=pricegroup>$form->{selectpricegroup}</select></td> +|; + } + + $lang = qq| + <th></th> + <td></td> +|; + + if (@{ $form->{all_language} }) { + $form->{selectlanguage} = qq|<option>\n|; + map { $form->{selectlanguage} .= qq|<option value="$_->{description}--$_->{code}">$_->{description}\n| } @{ $form->{all_language} }; + + $form->{selectlanguage} =~ s/(<option value="\Q$form->{language}--$form->{language_code}\E")/$1 selected/; + + $lang = qq| + <th align=right>|.$locale->text('Language').qq|</th> + <td><select name=language>$form->{selectlanguage}</select></td> +|; + } + + + $employeelabel = $locale->text('Salesperson'); + + $form->{selectemployee} = qq|<option>\n|; + map { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_employee} }; + + $form->{selectemployee} =~ s/(<option value="\Q$form->{employee}--$form->{employee_id}\E")/$1 selected/; + + if ($form->{db} eq 'vendor') { + $gifi = qq| + <th align=right>|.$locale->text('Sub-contract GIFI').qq|</th> + <td><input name=gifi_accno size=9 value="$form->{gifi_accno}"></td> +|; + $employeelabel = $locale->text('Employee'); + } + + + if (@{ $form->{all_employee} }) { + $employee = qq| + <th align=right>$employeelabel</th>|; + + if ($myconfig{role} ne 'user' || !$form->{id}) { + $employee .= qq| + <td><select name=employee>$form->{selectemployee}</select></td> +|; + } else { + $employee .= qq| + <td>$form->{employee}</td> + <input type=hidden name=employee value="$form->{employee}--$form->{employee_id}">|; + } + } + + +# $locale->text('Customer Number') +# $locale->text('Vendor Number') + + $label = ucfirst $form->{db}; + $form->{title} = $locale->text("$form->{title} $label"); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width=100%> + <tr valign=top> + <td width=50%> + <table width=100%> + <tr class=listheading> + <th class=listheading colspan=2 width=50%>|.$locale->text('Billing Address').qq|</th> + <tr> + <th align=right nowrap>|.$locale->text($label .' Number').qq|</th> + <td><input name="$form->{db}number" size=35 maxlength=32 value="$form->{"$form->{db}number"}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Company Name').qq|</th> + <td><input name=name size=35 maxlength=64 value="$form->{name}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Address').qq|</th> + <td><input name=address1 size=35 maxlength=32 value="$form->{address1}"></td> + </tr> + <tr> + <th></th> + <td><input name=address2 size=35 maxlength=32 value="$form->{address2}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('City').qq|</th> + <td><input name=city size=35 maxlength=32 value="$form->{city}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('State/Province').qq|</th> + <td><input name=state size=35 maxlength=32 value="$form->{state}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th> + <td><input name=zipcode size=10 maxlength=10 value="$form->{zipcode}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Country').qq|</th> + <td><input name=country size=35 maxlength=32 value="$form->{country}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Contact').qq|</th> + <td><input name=contact size=35 maxlength=64 value="$form->{contact}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Phone').qq|</th> + <td><input name=phone size=20 maxlength=20 value="$form->{phone}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Fax').qq|</th> + <td><input name=fax size=20 maxlength=20 value="$form->{fax}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('E-mail').qq|</th> + <td><input name=email size=35 value="$form->{email}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Cc').qq|</th> + <td><input name=cc size=35 value="$form->{cc}"></td> + </tr> + $bcc + </table> + </td> + <td width=50%> + <table width=100%> + <tr> + <th class=listheading colspan=2>|.$locale->text('Shipping Address').qq|</th> + </tr> + <tr> + <td><input name=none size=35 value=|. ("=" x 35) .qq|></td> + </tr> + <tr> + <td><input name=shiptoname size=35 maxlength=64 value="$form->{shiptoname}"></td> + </tr> + <tr> + <td><input name=shiptoaddress1 size=35 maxlength=32 value="$form->{shiptoaddress1}"></td> + </tr> + <tr> + <td><input name=shiptoaddress2 size=35 maxlength=32 value="$form->{shiptoaddress2}"></td> + </tr> + <tr> + <td><input name=shiptocity size=35 maxlength=32 value="$form->{shiptocity}"></td> + </tr> + <tr> + <td><input name=shiptostate size=35 maxlength=32 value="$form->{shiptostate}"></td> + </tr> + <tr> + <td><input name=shiptozipcode size=10 maxlength=10 value="$form->{shiptozipcode}"></td> + </tr> + <tr> + <td><input name=shiptocountry size=35 maxlength=32 value="$form->{shiptocountry}"></td> + </tr> + <tr> + <td><input name=shiptocontact size=35 maxlength=64 value="$form->{shiptocontact}"></td> + </tr> + <tr> + <td><input name=shiptophone size=20 maxlength=20 value="$form->{shiptophone}"></td> + </tr> + <tr> + <td><input name=shiptofax size=20 maxlength=20 value="$form->{shiptofax}"></td> + </tr> + <tr> + <td><input name=shiptoemail size=35 value="$form->{shiptoemail}"></td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table> + $tax + <tr> + <th align=right>|.$locale->text('Startdate').qq|</th> + <td><input name=startdate size=11 title="$myconfig{dateformat}" value=$form->{startdate}></td> + <th align=right>|.$locale->text('Enddate').qq|</th> + <td><input name=enddate size=11 title="$myconfig{dateformat}" value=$form->{enddate}></td> + </tr> + <tr> + <th align=right>|.$locale->text('Credit Limit').qq|</th> + <td><input name=creditlimit size=9 value="$form->{creditlimit}"></td> + <th align=right>|.$locale->text('Terms').qq|</th> + <td><input name=terms size=2 value="$form->{terms}"> <b>|.$locale->text('days').qq|</b></td> + <th align=right>|.$locale->text('Discount').qq|</th> + <td><input name=discount size=4 value="$form->{discount}"> + <b>%</b></td> + </tr> + <tr> + <th align=right>|.$locale->text('Tax Number / SSN').qq|</th> + <td><input name=taxnumber size=20 value="$form->{taxnumber}"></td> + $gifi + <th align=right>|.$locale->text('SIC').qq|</th> + <td><input name=sic size=6 maxlength=6 value="$form->{sic}"></td> + </tr> + <tr> + $typeofbusiness + <th align=right>|.$locale->text('BIC').qq|</th> + <td><input name=bic size=11 maxlength=11 value="$form->{bic}"></td> + <th align=right>|.$locale->text('IBAN').qq|</th> + <td><input name=iban size=24 maxlength=34 value="$form->{iban}"></td> + </tr> + <tr> + $pricegroup + $lang + <th>|.$locale->text('Currency').qq|</th> + <td><select name=curr>$form->{selectcurrency}</select></td> + </tr> + <tr valign=top> + $employee + <td colspan=4> + <table> + <tr valign=top> + <th align=left nowrap>|.$locale->text('Notes').qq|</th> + <td><textarea name=notes rows=3 cols=40 wrap=soft>$form->{notes}</textarea></td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + + +sub form_footer { + + $i = 1; + if ($form->{db} eq 'customer') { + if ($myconfig{acs} !~ /AR--AR/) { + $button{'AR--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AR Transaction').qq|"> |; + $button{'AR--Add Transaction'}{order} = $i++; + $button{'AR--Sales Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Invoice').qq|"> |; + $button{'AR--Sales Invoice'}{order} = $i++; + } + if ($myconfig{acs} !~ /Order Entry--Order Entry/) { + $button{'Order Entry--Sales Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Order').qq|"> |; + $button{'Order Entry--Sales Order'}{order} = $i++; + } + if ($myconfig{acs} !~ /Quotations--Quotations/) { + $button{'Quotations--Quotation'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Quotation').qq|"> |; + $button{'Quotations--Quotation'}{order} = $i++; + } + } + if ($form->{db} eq 'vendor') { + if ($myconfig{acs} !~ /AP--AP/) { + $button{'AP--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AP Transaction').qq|"> |; + $button{'AP--Add Transaction'}{order} = $i++; + $button{'AP--Vendor Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Vendor Invoice').qq|"> |; + $button{'AP--Vendor Invoice'}{order} = $i++; + } + if ($myconfig{acs} !~ /Order Entry--Order Entry/) { + $button{'Order Entry--Purchase Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Purchase Order').qq|"> |; + $button{'Order Entry--Purchase Order'}{order} = $i++; + } + if ($myconfig{acs} !~ /Quotations--Quotations/) { + $button{'Quotations--RFQ'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('RFQ').qq|"> |; + $button{'Quotations--RFQ'}{order} = $i++; + } + } + if ($myconfig{acs} !~ /Goods & Services--Goods & Services/) { + $myconfig{acs} =~ s/(Goods & Services--Add )(Service|Assembly).*;/$1--Add Part/g; + $button{'Goods & Services--Add Part'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Pricelist').qq|"> |; + $button{'Goods & Services--Add Part'}{order} = $i++; + } + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + + print qq| +<input name=id type=hidden value=$form->{id}> +<input name=taxaccounts type=hidden value="$form->{taxaccounts}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=callback value="$form->{callback}"> +<input type=hidden name=db value=$form->{db}> + +<br> +|; + + if ($form->{db} eq 'customer') { + $item = 'AR--Customers--Add Customer'; + } + if ($form->{db} eq 'vendor') { + $item = 'AP--Vendors--Add Vendor'; + } + + if ($myconfig{acs} !~ /$item/) { + print qq| +<input class=submit type=submit name=action value="|.$locale->text("Save").qq|"> +|; + if ($form->{id} && $form->{status} eq 'orphaned') { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|; + } + } + + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + + </form> + +</body> +</html> +|; + +} + + +sub pricelist { + + $form->isblank("name", $locale->text('Name missing!')); + + CT->pricelist(\%myconfig, \%$form); + + foreach $ref (@{ $form->{"all_partspricelist"} }) { + $i++; + map { $form->{"${_}_$i"} = $ref->{$_} } keys %$ref; + } + $form->{rowcount} = $i; + + # currencies + @curr = split /:/, $form->{currencies}; + map { $form->{selectcurrency} .= "<option>$_\n" } @curr; + + if (@ { $form->{all_partsgroup} }) { + $form->{selectpartsgroup} = "<option>\n"; + foreach $ref (@ { $form->{all_partsgroup} }) { + $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|; + } + } + + map { delete $form->{$_} } ("currencies", "all_partsgroup", "all_partspricelist"); + + foreach $i (1 .. $form->{rowcount}) { + + if ($form->{db} eq 'customer') { + + $form->{"pricebreak_$i"} = $form->format_amount(\%myconfig, $form->{"pricebreak_$i"}); + + ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces); + + } + + if ($form->{db} eq 'vendor') { + + $form->{"leadtime_$i"} = $form->format_amount(\%myconfig, $form->{"leadtime_$i"}); + ($dec) = ($form->{"lastcost_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces); + + } + } + + $form->{rowcount}++; + &{ "$form->{db}_pricelist" }; + +} + + +sub customer_pricelist { + + @flds = qw(runningnumber id partnumber description sellprice unit partsgroup pricebreak curr validfrom validto); + + $form->{rowcount}--; + + # remove empty rows + if ($form->{rowcount}) { + + foreach $i (1 .. $form->{rowcount}) { + + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(pricebreak sellprice); + + ($a, $b) = split /\./, $form->{"pricebreak_$i"}; + $a = length $a; + $b = length $b; + $whole = ($whole > $a) ? $whole : $a; + $dec = ($dec > $b) ? $dec : $b; + } + $pad1 = '0' x $whole; + $pad2 = '0' x $dec; + + foreach $i (1 .. $form->{rowcount}) { + ($a, $b) = split /\./, $form->{"pricebreak_$i"}; + + $a = substr("$pad1$a", -$whole); + $b = substr("$b$pad2", 0, $dec); + $ndx{qq|$form->{"partnumber_$i"}_$form->{"id_$i"}_$a$b|} = $i; + } + + $i = 1; + map { $form->{"runningnumber_$ndx{$_}"} = $i++ } sort keys %ndx; + + foreach $i (1 .. $form->{rowcount}) { + if ($form->{"partnumber_$i"} && $form->{"sellprice_$i"}) { + if ($form->{"id_$i"} eq $sameid) { + $j = $i + 1; + next if ($form->{"id_$j"} eq $sameid && !$form->{"pricebreak_$i"}); + } + + push @a, {}; + $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + $sameid = $form->{"id_$i"}; + } + + $form->redo_rows(\@flds, \@a, $count, $form->{rowcount}); + $form->{rowcount} = $count; + + } + + $form->{rowcount}++; + + &pricelist_header; + $form->hide_form(); + &pricelist_footer; + +} + + +sub vendor_pricelist { + + @flds = qw(runningnumber id sku partnumber description lastcost unit partsgroup curr leadtime); + + $form->{rowcount}--; + + # remove empty rows + if ($form->{rowcount}) { + + foreach $i (1 .. $form->{rowcount}) { + + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(leadtime lastcost); + $var = ($form->{"partnumber_$i"}) ? $form->{"sku_$i"} : qq|_$form->{"sku_$i"}|; + $ndx{$var} = $i; + + } + + $i = 1; + map { $form->{"runningnumber_$ndx{$_}"} = $i++ } sort keys %ndx; + + foreach $i (1 .. $form->{rowcount}) { + if ($form->{"sku_$i"}) { + push @a, {}; + $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + + $form->redo_rows(\@flds, \@a, $count, $form->{rowcount}); + $form->{rowcount} = $count; + + } + + $form->{rowcount}++; + + &pricelist_header; + $form->hide_form(); + &pricelist_footer; + +} + + + +sub pricelist_header { + + $form->{title} = $form->{name}; + + $form->header; + + print qq| +<body> + +<form method=post action="$form->{script}"> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> +|; + + if ($form->{db} eq 'customer') { + @column_index = qw(partnumber description); + push @column_index, "partsgroup" if $form->{selectpartsgroup}; + push @column_index, qw(pricebreak sellprice curr validfrom validto); + + $column_header{pricebreak} = qq|<th class=listheading nowrap>|.$locale->text('Break').qq|</th>|; + $column_header{sellprice} = qq|<th class=listheading nowrap>|.$locale->text('Sell Price').qq|</th>|; + $column_header{validfrom} = qq|<th class=listheading nowrap>|.$locale->text('From').qq|</th>|; + $column_header{validto} = qq|<th class=listheading nowrap>|.$locale->text('To').qq|</th>|; + } + + if ($form->{db} eq 'vendor') { + @column_index = qw(sku partnumber description); + push @column_index, "partsgroup" if $form->{selectpartsgroup}; + push @column_index, qw(lastcost curr leadtime); + + + $column_header{sku} = qq|<th class=listheading nowrap>|.$locale->text('SKU').qq|</th>|; + $column_header{leadtime} = qq|<th class=listheading nowrap>|.$locale->text('Leadtime').qq|</th>|; + $column_header{lastcost} = qq|<th class=listheading nowrap>|.$locale->text('Cost').qq|</th>|; + } + + $column_header{partnumber} = qq|<th class=listheading nowrap>|.$locale->text('Number').qq|</th>|; + $column_header{description} = qq|<th class=listheading nowrap width=80%>|.$locale->text('Description').qq|</th>|; + $column_header{partsgroup} = qq|<th class=listheading nowrap>|.$locale->text('Group').qq|</th>|; + $column_header{curr} = qq|<th class=listheading nowrap>|.$locale->text('Curr').qq|</th>|; + + print qq| + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "\n$column_header{$_}" } @column_index; + + print qq| + </tr> +|; + + $sameid = ""; + foreach $i (1 .. $form->{rowcount}) { + + $selectcurrency = $form->{selectcurrency}; + $selectcurrency =~ s/option>\Q$form->{"curr_$i"}\E/option selected>$form->{"curr_$i"}/; + + if ($form->{selectpartsgroup}) { + if ($i < $form->{rowcount}) { + ($partsgroup) = split /--/, $form->{"partsgroup_$i"}; + $column_data{partsgroup} = qq|<td>$partsgroup</td> + <input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">|; + } + } + + + if ($i < $form->{rowcount}) { + + if ($form->{"id_$i"} eq $sameid) { + map { $column_data{$_} = qq|<td> </td> + <input type=hidden name="${_}_$i" value="|.$form->quote($form->{"${_}_$i"}).qq|">| } qw(partnumber description partsgroup); + + } else { + + $column_data{sku} = qq|<td><input name="sku_$i" value="$form->{"sku_$i"}"></td>|; + $column_data{partnumber} = qq|<td><input name="partnumber_$i" value="$form->{"partnumber_$i"}"></td>|; + + $column_data{description} = qq|<td>$form->{"description_$i"} </td> + <input type=hidden name="description_$i" value="|.$form->quote($form->{"description_$i"}).qq|">|; + + } + + $column_data{partnumber} .= qq| + <input type=hidden name="id_$i" value="$form->{"id_$i"}">|; + + } else { + + if ($form->{db} eq 'customer') { + $column_data{partnumber} = qq|<td><input name="partnumber_$i" value="$form->{"partnumber_$i"}"></td>|; + } else { + $column_data{partnumber} = qq|<td> </td>|; + } + + $column_data{partnumber} .= qq| + <input type=hidden name="id_$i" value="$form->{"id_$i"}">|; + + $column_data{sku} = qq|<td><input name="sku_$i" value="$form->{"sku_$i"}"></td>|; + $column_data{description} = qq|<td><input name="description_$i" value="$form->{"description_$i"}"></td>|; + + if ($form->{selectpartsgroup}) { + $column_data{partsgroup} = qq|<td><select name="partsgroup_$i">$form->{selectpartsgroup}</select></td>|; + } + + } + + + if ($form->{db} eq 'customer') { + ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + $column_data{pricebreak} = qq|<td align=right><input name="pricebreak_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"pricebreak_$i"}).qq|></td>|; + $column_data{sellprice} = qq|<td align=right><input name="sellprice_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces).qq|></td>|; + + $column_data{validfrom} = qq|<td><input name="validfrom_$i" size=11 value=$form->{"validfrom_$i"}></td>|; + $column_data{validto} = qq|<td><input name="validto_$i" size=11 value=$form->{"validto_$i"}></td>|; + } + + if ($form->{db} eq 'vendor') { + ($dec) = ($form->{"lastcost_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + $column_data{leadtime} = qq|<td align=right><input name="leadtime_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"leadtime_$i"}).qq|></td>|; + $column_data{lastcost} = qq|<td align=right><input name="lastcost_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces).qq|></td>|; + } + + + $column_data{curr} = qq|<td><select name="curr_$i">$selectcurrency</select></td>|; + + + print qq|<tr valign=top>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq|</tr>|; + + $sameid = $form->{"id_$i"}; + + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + + # delete variables + foreach $i (1 .. $form->{rowcount}) { + map { delete $form->{"${_}_$i"} } (@column_index, "id"); + } + map { delete $form->{$_} } qw(title titlebar script none header action); + +} + + +sub pricelist_footer { + + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Save Pricelist').qq|">|; + + print qq| +</form> + +<a name="end"></a> + + </body> + </html> +|; + +} + + +sub update { + + $i = $form->{rowcount}; + $additem = 0; + + 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"}; + + map { $form->{item_list}[$i]{$_} = $form->quote($form->{item_list}[$i]{$_}) } qw(partnumber description); + map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] }; + + if ($form->{db} eq 'customer') { + + if ($sellprice) { + $form->{"sellprice_$i"} = $sellprice; + } + + ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces); + + $form->{"pricebreak_$i"} = $pricebreak; + + } else { + + foreach $j (1 .. $form->{rowcount}) { + if ($form->{"sku_$j"} eq $form->{"partnumber_$i"}) { + $form->error($locale->text('Item already on pricelist!')); + } + } + + if ($lastcost) { + $form->{"lastcost_$i"} = $lastcost; + } + + ($dec) = ($form->{"lastcost_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + $form->{"lastcost_$i"} = $form->format_amount(\%myconfig, $form->{"lastcost_$i"}, $decimalplaces); + + $form->{"sku_$i"} = $form->{"partnumber_$i"}; + delete $form->{"partnumber_$i"}; + + } + + $form->{rowcount}++; + + } + + } else { + + $form->error($locale->text('Item not on file!')); + + } + } + + &{ "$form->{db}_pricelist" }; + +} + + + +sub select_item { + + @column_index = qw(ndx partnumber description partsgroup unit sellprice lastcost); + + $column_data{ndx} = qq|<th> </th>|; + $column_data{partnumber} = qq|<th class=listheading>|.$locale->text('Number').qq|</th>|; + $column_data{description} = qq|<th class=listheading>|.$locale->text('Description').qq|</th>|; + $column_data{partsgroup} = qq|<th class=listheading>|.$locale->text('Group').qq|</th>|; + $column_data{unit} = qq|<th class=listheading>|.$locale->text('Unit').qq|</th>|; + $column_data{sellprice} = qq|<th class=listheading>|.$locale->text('Sell Price').qq|</th>|; + $column_data{lastcost} = qq|<th class=listheading>|.$locale->text('Cost').qq|</th>|; + + $form->header; + + $title = $locale->text('Select from one of the items below'); + + print qq| +<body> + +<form method=post action="$form->{script}"> + +<table width=100%> + <tr> + <th class=listtop>$title</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + my $i = 0; + foreach $ref (@{ $form->{item_list} }) { + $checked = ($i++) ? "" : "checked"; + + map { $ref->{$_} = $form->quote($ref->{$_}) } qw(partnumber description unit); + + $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|; + + map { $column_data{$_} = qq|<td>$ref->{$_} </td>| } qw(partnumber description partsgroup unit); + + $column_data{sellprice} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{sellprice}, 2, " ").qq|</td>|; + $column_data{lastcost} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{lastcost}, 2, " ").qq|</td>|; + + $j++; $j %= 2; + + print qq| + <tr class=listrow$j>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> + +<input name="new_partnumber_$i" type=hidden value="$ref->{partnumber}"> +<input name="new_description_$i" type=hidden value="$ref->{description}"> +<input name="new_partsgroup_$i" type=hidden value="$ref->{partsgroup}"> +<input name="new_partsgroup_id_$i" type=hidden value="$ref->{partsgroup_id}"> +<input name="new_sellprice_$i" type=hidden value=$ref->{sellprice}> +<input name="new_lastcost_$i" type=hidden value=$ref->{lastcost}> +<input name="new_unit_$i" type=hidden value="$ref->{unit}"> + +<input name="new_id_$i" type=hidden value=$ref->{id}> + +|; + + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input name=lastndx type=hidden value=$i> + +|; + + # delete action variable + map { delete $form->{$_} } qw(action item_list header); + + $form->hide_form(); + + print qq| +<input type=hidden name=nextsub value=item_selected> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; +} + + + +sub item_selected { + + # replace the last row with the checked row + $i = $form->{rowcount}; + + # index for new item + $j = $form->{ndx}; + + @new = qw(id partnumber description unit); + push @new, "sellprice" if ! $form->{"sellprice_$i"}; + push @new, "lastcost" if ! $form->{"lastcost_$i"}; + + map { $form->{"${_}_$i"} = $form->{"new_${_}_$j"} } @new; + + $form->{"partsgroup_$i"} = qq|$form->{"new_partsgroup_$j"}--$form->{"new_partsgroup_id_$j"}|; + + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(sellprice lastcost); + + push @new, qw(partsgroup partsgroup_id); + + # delete all the new_ variables + for $i (1 .. $form->{lastndx}) { + map { delete $form->{"new_${_}_$i"} } @new; + } + + map { delete $form->{$_} } qw(ndx lastndx nextsub); + + # format amounts + map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(sellprice lastcost); + + foreach $j (1 .. $form->{rowcount}) { + if ($form->{"sku_$j"} eq $form->{"partnumber_$i"}) { + $form->error($locale->text('Item already on pricelist!')); + } + } + + $form->{"sku_$i"} = $form->{"partnumber_$i"}; + delete $form->{"partnumber_$i"} if $form->{db} eq 'vendor'; + + $form->{rowcount}++; + &{ "$form->{db}_pricelist" }; + +} + + + + +sub save_pricelist { + + &{ "CT::save_$form->{db}" }("", \%myconfig, \%$form); + + $rc = CT->save_pricelist(\%myconfig, \%$form); + + $form->{callback} = "$form->{script}?action=edit&db=$form->{db}&id=$form->{id}&login=$form->{login}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->redirect if $rc; + $form->error($locale->text('Could not save pricelist!')); + +} + + + +sub add_transaction { + + $form->isblank("name", $locale->text("Name missing!")); + + &{ "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->redirect; + +} + +sub ap_transaction { + + $form->{script} = "ap.pl"; + $form->{type} = "ap_transaction"; + &add_transaction; + +} + + +sub ar_transaction { + + $form->{script} = "ar.pl"; + $form->{type} = "ar_transaction"; + &add_transaction; + +} + + +sub sales_invoice { + + $form->{script} = "is.pl"; + $form->{type} = "invoice"; + &add_transaction; + +} + + +sub vendor_invoice { + + $form->{script} = "ir.pl"; + $form->{type} = "invoice"; + &add_transaction; + +} + + +sub rfq { + + $form->{script} = "oe.pl"; + $form->{type} = "request_quotation"; + &add_transaction; + +} + + +sub quotation { + + $form->{script} = "oe.pl"; + $form->{type} = "sales_quotation"; + &add_transaction; + +} + + +sub sales_order { + + $form->{script} = "oe.pl"; + $form->{type} = "sales_order"; + &add_transaction; + +} + + +sub purchase_order { + + $form->{script} = "oe.pl"; + $form->{type} = "purchase_order"; + &add_transaction; + +} + + +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)); + +} + + +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)); + + $msg = "Cannot delete $form->{db}"; + $form->error($locale->text($msg)); + +} + + +sub continue { &{ $form->{nextsub} } }; + +sub add_customer { &add }; +sub add_vendor { &add }; + diff --git a/sql-ledger/bin/mozilla/gl.pl b/sql-ledger/bin/mozilla/gl.pl new file mode 100644 index 000000000..5b29dc6ee --- /dev/null +++ b/sql-ledger/bin/mozilla/gl.pl @@ -0,0 +1,1066 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2001 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# Contributors: +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# Genereal Ledger +# +#====================================================================== + + +use SL::GL; +use SL::PE; + +require "$form->{path}/arap.pl"; + +1; +# end of main + + +# this is for our long dates +# $locale->text('January') +# $locale->text('February') +# $locale->text('March') +# $locale->text('April') +# $locale->text('May ') +# $locale->text('June') +# $locale->text('July') +# $locale->text('August') +# $locale->text('September') +# $locale->text('October') +# $locale->text('November') +# $locale->text('December') + +# this is for our short month +# $locale->text('Jan') +# $locale->text('Feb') +# $locale->text('Mar') +# $locale->text('Apr') +# $locale->text('May') +# $locale->text('Jun') +# $locale->text('Jul') +# $locale->text('Aug') +# $locale->text('Sep') +# $locale->text('Oct') +# $locale->text('Nov') +# $locale->text('Dec') + + +sub add { + + $form->{title} = "Add"; + + $form->{callback} = "$form->{script}?action=add&transfer=$form->{transfer}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + # we use this only to set a default date + GL->transaction(\%myconfig, \%$form); + + map { $form->{selectaccno} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{all_accno} }; + + if ($form->{all_projects}) { + $form->{selectprojectnumber} = "<option>\n"; + map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } @{ $form->{all_projects} }; + } + + + $form->{rowcount} = ($form->{transfer}) ? 2 : 9; + + # departments + $form->all_departments(\%myconfig); + if (@{ $form->{all_departments} }) { + $form->{selectdepartment} = "<option>\n"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + &display_form; + +} + + +sub edit { + + GL->transaction(\%myconfig, \%$form); + + map { $form->{selectaccno} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{all_accno} }; + + # projects + if ($form->{all_projects}) { + $form->{selectprojectnumber} = "<option>\n"; + map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } @{ $form->{all_projects} }; + } + + + # departments + $form->all_departments(\%myconfig); + if (@{ $form->{all_departments} }) { + + $form->{department} = "$form->{department}--$form->{department_id}"; + + $form->{selectdepartment} = "<option>\n"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig)); + + # readonly + $form->{readonly} = 1 if $myconfig{acs} =~ /General Ledger--Add Transaction/; + + $form->{title} = "Edit"; + + &form_header; + + $i = 1; + foreach $ref (@{ $form->{GL} }) { + $form->{"accno_$i"} = "$ref->{accno}--$ref->{description}"; + + $form->{"projectnumber_$i"} = "$ref->{projectnumber}--$ref->{project_id}"; + $form->{"fx_transaction_$i"} = $ref->{fx_transaction}; + + if ($ref->{amount} < 0) { + $form->{totaldebit} -= $ref->{amount}; + $form->{"debit_$i"} = $ref->{amount} * -1; + } else { + $form->{totalcredit} += $ref->{amount}; + $form->{"credit_$i"} = $ref->{amount}; + } + + $i++; + } + + $form->{rowcount} = $i; + + &display_rows; + + &form_footer; + +} + + + +sub search { + + $form->{title} = $locale->text('General Ledger')." ".$locale->text('Reports'); + + $form->all_departments(\%myconfig); + # departments + if (@{ $form->{all_departments} }) { + $form->{selectdepartment} = "<option>\n"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + + $department = qq| + <tr> + <th align=right nowrap>|.$locale->text('Department').qq|</th> + <td colspan=3><select name=department>$form->{selectdepartment}</select></td> + </tr> +|; + } + + + # accounting years + $form->{selectaccountingyear} = "<option>\n"; + map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} }; + $form->{selectaccountingmonth} = "<option>\n"; + map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} }; + + $selectfrom = qq| + <tr> + <th align=right>|.$locale->text('Period').qq|</th> + <td colspan=3> + <select name=month>$form->{selectaccountingmonth}</select> + <select name=year>$form->{selectaccountingyear}</select> + <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq| + <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq| + <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq| + <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq| + </td> + </tr> +|; + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=sort value=transdate> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Reference').qq|</th> + <td><input name=reference size=20></td> + <th align=right>|.$locale->text('Source').qq|</th> + <td><input name=source size=20></td> + </tr> + $department + <tr> + <th align=right>|.$locale->text('Description').qq|</th> + <td colspan=3><input name=description size=40></td> + </tr> + <tr> + <th align=right>|.$locale->text('Notes').qq|</th> + <td colspan=3><input name=notes size=40></td> + </tr> + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td><input name=datefrom size=11 title="$myconfig{dateformat}"></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=dateto size=11 title="$myconfig{dateformat}"></td> + </tr> + $selectfrom + <tr> + <th align=right>|.$locale->text('Amount').qq| >=</th> + <td><input name=amountfrom size=11></td> + <th align=right>|.$locale->text('Amount').qq| <=</th> + <td><input name=amountto size=11></td> + </tr> + <tr> + <th align=right>|.$locale->text('Include in Report').qq|</th> + <td colspan=3> + <table> + <tr> + <td> + <input name="category" class=radio type=radio value=X checked> |.$locale->text('All').qq| + <input name="category" class=radio type=radio value=A> |.$locale->text('Asset').qq| + <input name="category" class=radio type=radio value=C> |.$locale->text('Contra').qq| + <input name="category" class=radio type=radio value=L> |.$locale->text('Liability').qq| + <input name="category" class=radio type=radio value=Q> |.$locale->text('Equity').qq| + <input name="category" class=radio type=radio value=I> |.$locale->text('Income').qq| + <input name="category" class=radio type=radio value=E> |.$locale->text('Expense').qq| + </td> + </tr> + <tr> + <table> + <tr> + <td align=right><input name="l_id" class=checkbox type=checkbox value=Y></td> + <td>|.$locale->text('ID').qq|</td> + <td align=right><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Date').qq|</td> + <td align=right><input name="l_reference" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Reference').qq|</td> + <td align=right><input name="l_description" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Description').qq|</td> + <td align=right><input name="l_notes" class=checkbox type=checkbox value=Y></td> + <td>|.$locale->text('Notes').qq|</td> + </tr> + <tr> + <td align=right><input name="l_debit" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Debit').qq|</td> + <td align=right><input name="l_credit" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Credit').qq|</td> + <td align=right><input name="l_source" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Source').qq|</td> + <td align=right><input name="l_accno" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Account').qq|</td> + <td align=right><input name="l_gifi_accno" class=checkbox type=checkbox value=Y></td> + <td>|.$locale->text('GIFI').qq|</td> + </tr> + <tr> + <td align=right><input name="l_subtotal" class=checkbox type=checkbox value=Y></td> + <td>|.$locale->text('Subtotal').qq|</td> + </tr> + </table> + </tr> + </table> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=nextsub value=generate_report> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; +} + + +sub generate_report { + + $form->{sort} = "transdate" unless $form->{sort}; + + GL->all_transactions(\%myconfig, \%$form); + + $href = "$form->{script}?action=generate_report&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->sort_order(); + + $callback = "$form->{script}?action=generate_report&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + %acctype = ( 'A' => $locale->text('Asset'), + 'C' => $locale->text('Contra'), + 'L' => $locale->text('Liability'), + 'Q' => $locale->text('Equity'), + 'I' => $locale->text('Income'), + 'E' => $locale->text('Expense'), + ); + + $form->{title} = $locale->text('General Ledger'); + + $ml = ($form->{ml} =~ /(A|E)/) ? -1 : 1; + + unless ($form->{category} eq 'X') { + $form->{title} .= " : ".$locale->text($acctype{$form->{category}}); + } + if ($form->{accno}) { + $href .= "&accno=".$form->escape($form->{accno}); + $callback .= "&accno=".$form->escape($form->{accno},1); + $option = $locale->text('Account')." : $form->{accno} $form->{account_description}"; + } + if ($form->{gifi_accno}) { + $href .= "&gifi_accno=".$form->escape($form->{gifi_accno}); + $callback .= "&gifi_accno=".$form->escape($form->{gifi_accno},1); + $option .= "\n<br>" if $option; + $option .= $locale->text('GIFI')." : $form->{gifi_accno} $form->{gifi_account_description}"; + } + if ($form->{source}) { + $href .= "&source=".$form->escape($form->{source}); + $callback .= "&source=".$form->escape($form->{source},1); + $option .= "\n<br>" if $option; + $option .= $locale->text('Source')." : $form->{source}"; + } + if ($form->{reference}) { + $href .= "&reference=".$form->escape($form->{reference}); + $callback .= "&reference=".$form->escape($form->{reference},1); + $option .= "\n<br>" if $option; + $option .= $locale->text('Reference')." : $form->{reference}"; + } + if ($form->{department}) { + $href .= "&department=".$form->escape($form->{department}); + $callback .= "&department=".$form->escape($form->{department},1); + ($department) = split /--/, $form->{department}; + $option .= "\n<br>" if $option; + $option .= $locale->text('Department')." : $department"; + } + + if ($form->{description}) { + $href .= "&description=".$form->escape($form->{description}); + $callback .= "&description=".$form->escape($form->{description},1); + $option .= "\n<br>" if $option; + $option .= $locale->text('Description')." : $form->{description}"; + } + if ($form->{notes}) { + $href .= "¬es=".$form->escape($form->{notes}); + $callback .= "¬es=".$form->escape($form->{notes},1); + $option .= "\n<br>" if $option; + $option .= $locale->text('Notes')." : $form->{notes}"; + } + + if ($form->{datefrom}) { + $href .= "&datefrom=$form->{datefrom}"; + $callback .= "&datefrom=$form->{datefrom}"; + $option .= "\n<br>" if $option; + $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{datefrom}, 1); + } + if ($form->{dateto}) { + $href .= "&dateto=$form->{dateto}"; + $callback .= "&dateto=$form->{dateto}"; + if ($form->{datefrom}) { + $option .= " "; + } else { + $option .= "\n<br>" if $option; + } + $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{dateto}, 1); + } + + if ($form->{amountfrom}) { + $href .= "&amountfrom=$form->{amountfrom}"; + $callback .= "&amountfrom=$form->{amountfrom}"; + $option .= "\n<br>" if $option; + $option .= $locale->text('Amount')." >= ".$form->format_amount(\%myconfig, $form->{amountfrom}, 2); + } + if ($form->{amountto}) { + $href .= "&amountto=$form->{amountto}"; + $callback .= "&amountto=$form->{amountto}"; + if ($form->{amountfrom}) { + $option .= " <= "; + } else { + $option .= "\n<br>" if $option; + $option .= $locale->text('Amount')." <= "; + } + $option .= $form->format_amount(\%myconfig, $form->{amountto}, 2); + } + + + @columns = $form->sort_columns(qw(transdate id reference description notes source debit credit accno gifi_accno)); + + if ($form->{link} =~ /_paid/) { + @columns = $form->sort_columns(qw(transdate id reference description notes source cleared debit credit accno gifi_accno)); + $form->{l_cleared} = "Y"; + } + + if ($form->{accno} || $form->{gifi_accno}) { + @columns = grep !/(accno|gifi_accno)/, @columns; + push @columns, "balance"; + $form->{l_balance} = "Y"; + } + + + 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->{l_subtotal} eq 'Y') { + $callback .= "&l_subtotal=Y"; + $href .= "&l_subtotal=Y"; + } + + $callback .= "&category=$form->{category}"; + $href .= "&category=$form->{category}"; + + $column_header{id} = "<th><a class=listheading href=$href&sort=id>".$locale->text('ID')."</a></th>"; + $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>"; + $column_header{reference} = "<th><a class=listheading href=$href&sort=reference>".$locale->text('Reference')."</a></th>"; + $column_header{source} = "<th><a class=listheading href=$href&sort=source>".$locale->text('Source')."</a></th>"; + $column_header{description} = "<th><a class=listheading href=$href&sort=description>".$locale->text('Description')."</a></th>"; + $column_header{notes} = "<th class=listheading>".$locale->text('Notes')."</th>"; + $column_header{debit} = "<th class=listheading>".$locale->text('Debit')."</th>"; + $column_header{credit} = "<th class=listheading>".$locale->text('Credit')."</th>"; + $column_header{accno} = "<th><a class=listheading href=$href&sort=accno>".$locale->text('Account')."</a></th>"; + $column_header{gifi_accno} = "<th><a class=listheading href=$href&sort=gifi_accno>".$locale->text('GIFI')."</a></th>"; + $column_header{balance} = "<th>".$locale->text('Balance')."</th>"; + $column_header{cleared} = qq|<th>|.$locale->text('R').qq|</th>|; + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + +map { print "$column_header{$_}\n" } @column_index; + +print " + </tr> +"; + + # add sort to callback + $form->{callback} = "$callback&sort=$form->{sort}"; + $callback = $form->escape($form->{callback}); + + # initial item for subtotals + if (@{ $form->{GL} }) { + $sameitem = $form->{GL}->[0]->{$form->{sort}}; + } + + if (($form->{accno} || $form->{gifi_accno}) && $form->{balance}) { + + map { $column_data{$_} = "<td> </td>" } @column_index; + $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</td>"; + + $i++; $i %= 2; + print qq| + <tr class=listrow$i> +|; + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + } + + # reverse href + $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC"; + $form->sort_order(); + $href =~ s/direction=$form->{direction}/direction=$direction/; + + foreach $ref (@{ $form->{GL} }) { + + # if item ne sort print subtotal + if ($form->{l_subtotal} eq 'Y') { + if ($sameitem ne $ref->{$form->{sort}}) { + &gl_subtotal; + } + } + + $form->{balance} += $ref->{amount}; + + $subtotaldebit += $ref->{debit}; + $subtotalcredit += $ref->{credit}; + + $totaldebit += $ref->{debit}; + $totalcredit += $ref->{credit}; + + $ref->{debit} = $form->format_amount(\%myconfig, $ref->{debit}, 2, " "); + $ref->{credit} = $form->format_amount(\%myconfig, $ref->{credit}, 2, " "); + + $column_data{id} = "<td>$ref->{id}</td>"; + $column_data{transdate} = "<td>$ref->{transdate}</td>"; + $column_data{reference} = "<td><a href=$ref->{module}.pl?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{reference}</td>"; + $column_data{description} = "<td>$ref->{description} </td>"; + $column_data{source} = "<td>$ref->{source} </td>"; + $column_data{notes} = "<td>$ref->{notes} </td>"; + $column_data{debit} = "<td align=right>$ref->{debit}</td>"; + $column_data{credit} = "<td align=right>$ref->{credit}</td>"; + $column_data{accno} = "<td><a href=$href&accno=$ref->{accno}&callback=$callback>$ref->{accno}</a></td>"; + $column_data{gifi_accno} = "<td><a href=$href&gifi_accno=$ref->{gifi_accno}&callback=$callback>$ref->{gifi_accno}</a> </td>"; + $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</td>"; + $column_data{cleared} = ($ref->{cleared}) ? "<td>*</td>" : "<td> </td>"; + + $i++; $i %= 2; + print " + <tr class=listrow$i>"; + map { print "$column_data{$_}\n" } @column_index; + print "</tr>"; + + } + + + &gl_subtotal if ($form->{l_subtotal} eq 'Y'); + + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{debit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totaldebit, 2, " ")."</th>"; + $column_data{credit} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $totalcredit, 2, " ")."</th>"; + $column_data{balance} = "<th align=right class=listtotal>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</th>"; + + print qq| + <tr class=listtotal> +|; + + map { print "$column_data{$_}\n" } @column_index; + + $i = 1; + if ($myconfig{acs} !~ /GL--GL/) { + $button{'GL--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('GL Transaction').qq|"> |; + $button{'GL--Add Transaction'}{order} = $i++; + } + if ($myconfig{acs} !~ /AR--AR/) { + $button{'AR--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AR Transaction').qq|"> |; + $button{'AR--Add Transaction'}{order} = $i++; + $button{'AR--Sales Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Invoice ').qq|"> |; + $button{'AR--Sales Invoice'}{order} = $i++; + } + if ($myconfig{acs} !~ /AP--AP/) { + $button{'AP--Add Transaction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('AP Transaction').qq|"> |; + $button{'AP--Add Transaction'}{order} = $i++; + $button{'AP--Vendor Invoice'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Vendor Invoice ').qq|"> |; + $button{'AP--Vendor Invoice'}{order} = $i++; + } + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + + print qq| + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> + +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + +</form> + +</body> +</html> +|; + +} + + +sub gl_subtotal { + + $subtotaldebit = $form->format_amount(\%myconfig, $subtotaldebit, 2, " "); + $subtotalcredit = $form->format_amount(\%myconfig, $subtotalcredit, 2, " "); + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{debit} = "<th align=right class=listsubtotal>$subtotaldebit</td>"; + $column_data{credit} = "<th align=right class=listsubtotal>$subtotalcredit</td>"; + + + print "<tr class=listsubtotal>"; + map { print "$column_data{$_}\n" } @column_index; + print "</tr>"; + + $subtotaldebit = 0; + $subtotalcredit = 0; + + $sameitem = $ref->{$form->{sort}}; + +} + + +sub update { + + @a = (); + $count = 0; + @flds = qw(accno debit credit projectnumber); + + for $i (1 .. $form->{rowcount}) { + unless (($form->{"debit_$i"} eq "") && ($form->{"credit_$i"} eq "")) { + # take accno apart + ($form->{"accno_$i"}) = split(/--/, $form->{"accno_$i"}); + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(debit credit); + + push @a, {}; + $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + + + for $i (1 .. $count) { + $j = $i - 1; + map { $form->{"${_}_$i"} = $a[$j]->{$_} } @flds; + } + + for $i ($count + 1 .. $form->{rowcount}) { + map { delete $form->{"${_}_$i"} } @flds; + } + + $form->{rowcount} = $count + 1; + + &display_form; + +} + + +sub display_form { + + &form_header; + &display_rows; + &form_footer; + +} + + +sub display_rows { + + $form->{selectprojectnumber} = $form->unescape($form->{selectprojectnumber}); + + $form->{totaldebit} = 0; + $form->{totalcredit} = 0; + + for $i (1 .. $form->{rowcount}) { + + $form->{totaldebit} += $form->{"debit_$i"}; + $form->{totalcredit} += $form->{"credit_$i"}; + + map { $form->{"${_}_$i"} = ($form->{"${_}_$i"}) ? $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) : "" } qw(debit credit); + + $selectaccno = $form->{selectaccno}; + $selectaccno =~ s/option>\Q$form->{"accno_$i"}\E/option selected>$form->{"accno_$i"}/; + + if ($form->{selectprojectnumber}) { + $selectprojectnumber = $form->{selectprojectnumber}; + $selectprojectnumber =~ s/(<option value="$form->{"projectnumber_$i"}")/$1 selected/; + + $project = qq| + <td><select name="projectnumber_$i">$selectprojectnumber</select></td>|; + } + + + if ($form->{transfer}) { + $form->{"fx_transaction_$i"} = ($form->{"fx_transaction_$i"}) ? "checked" : ""; + $fx_transaction = qq| + <td><input name="fx_transaction_$i" class=checkbox type=checkbox value=1 $form->{"fx_transaction_$i"}></td> +|; + } else { + $fx_transaction = qq| + <input type=hidden name="fx_transaction_$i" value=$form->{"fx_transaction_$i"}> +|; + } + + + print qq|<tr> + <td><select name="accno_$i">$selectaccno</select></td> + $fx_transaction + <td><input name="debit_$i" size=12 value=$form->{"debit_$i"}></td> + <td><input name="credit_$i" size=12 value=$form->{"credit_$i"}></td> + $project +</tr> + +|; + } + + + print qq| +<input type=hidden name=rowcount value=$form->{rowcount}> +<input type=hidden name=selectaccno value="$form->{selectaccno}"> +<input type=hidden name=selectprojectnumber value="|.$form->escape($form->{selectprojectnumber},1).qq|">|; + +} + + +sub form_header { + + $title = $form->{title}; + if ($form->{transfer}) { + $form->{title} = $locale->text("$title Cash Transfer Transaction"); + } else { + $form->{title} = $locale->text("$title General Ledger Transaction"); + } + +# $locale->text('Add Cash Transfer Transaction') +# $locale->text('Edit Cash Transfer Transaction') +# $locale->text('Add General Ledger Transaction') +# $locale->text('Edit General Ledger Transaction') + + + $form->{selectdepartment} = $form->unescape($form->{selectdepartment}); + $form->{selectdepartment} =~ s/ selected//; + $form->{selectdepartment} =~ s/(<option value="\Q$form->{department}\E")/$1 selected/; + + map { $form->{$_} = $form->quote($form->{$_}) } qw(reference description notes); + + if (($rows = $form->numtextrows($form->{description}, 50)) > 1) { + $description = qq|<textarea name=description rows=$rows cols=50 wrap=soft>$form->{description}</textarea>|; + } else { + $description = qq|<input name=description size=50 value="$form->{description}">|; + } + + if (($rows = $form->numtextrows($form->{notes}, 50)) > 1) { + $notes = qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|; + } else { + $notes = qq|<input name=notes size=50 value="$form->{notes}">|; + } + + $department = qq| + <tr> + <th align=right nowrap>|.$locale->text('Department').qq|</th> + <td><select name=department>$form->{selectdepartment}</select></td> + <input type=hidden name=selectdepartment value="|.$form->escape($form->{selectdepartment},1).qq|"> + </tr> +| if $form->{selectdepartment}; + + $project = qq| + <th class=listheading>|.$locale->text('Project').qq|</th> +| if $form->{selectprojectnumber}; + + if ($form->{transfer}) { + $fx_transaction = qq| + <th class=listheading>|.$locale->text('FX').qq|</th> +|; + } + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input name=id type=hidden value=$form->{id}> + +<input type=hidden name=transfer value=$form->{transfer}> + +<input type=hidden name=selectaccno value="$form->{selectaccno}"> + +<input type=hidden name=closedto value=$form->{closedto}> +<input type=hidden name=locked value=$form->{locked}> +<input type=hidden name=title value="$title"> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width=100%> + <tr> + <th align=right>|.$locale->text('Reference').qq|</th> + <td><input name=reference size=20 value="$form->{reference}"></td> + <th align=right>|.$locale->text('Date').qq|</th> + <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td> + </tr> + $department + <tr> + <th align=right>|.$locale->text('Description').qq|</th> + <td colspan=3>$description</td> + </tr> + <tr> + <th align=right>|.$locale->text('Notes').qq|</th> + <td colspan=3>$notes</td> + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> + <th class=listheading>|.$locale->text('Account').qq|</th> + $fx_transaction + <th class=listheading>|.$locale->text('Debit').qq|</th> + <th class=listheading>|.$locale->text('Credit').qq|</th> + $project + </tr> +|; + +} + + +sub form_footer { + + ($dec) = ($form->{totaldebit} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, $decimalplaces, " ") } qw(totaldebit totalcredit); + + + $project = qq| + <th> </th> +| if $form->{selectprojectnumber}; + + if ($form->{transfer}) { + $fx_transaction = qq| + <th> </th> +|; + } + + print qq| + <tr class=listtotal> + <th> </th> + $fx_transaction + <th class=listtotal align=right>$form->{totaldebit}</th> + <th class=listtotal align=right>$form->{totalcredit}</th> + $project + </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=sessionid value=$form->{sessionid}> + +<input name=callback type=hidden value="$form->{callback}"> + +<br> +|; + + $transdate = $form->datetonum($form->{transdate}, \%myconfig); + $closedto = $form->datetonum($form->{closedto}, \%myconfig); + + if (! $form->{readonly}) { + + if ($form->{id}) { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> +|; + + if (!$form->{locked}) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Post').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Delete').qq|"> +|; + } + + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Post as new').qq|"> +|; + + } else { + if ($transdate > $closedto) { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Post').qq|">|; + } + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print " + </form> + +</body> +</html> +"; + +} + + +sub delete { + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> +|; + + $form->hide_form(); + + print qq| +<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2> + +<h4>|.$locale->text('Are you sure you want to delete Transaction').qq| $form->{reference}</h4> + +<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|"> +</form> +|; + +} + + +sub yes { + + $form->redirect($locale->text('Transaction deleted!')) if (GL->delete_transaction(\%myconfig, \%$form)); + $form->error($locale->text('Cannot delete transaction!')); + +} + + +sub post { + + # check if there is something in reference and date + $form->isblank("reference", $locale->text('Reference missing!')); + $form->isblank("transdate", $locale->text('Transaction Date missing!')); + + $transdate = $form->datetonum($form->{transdate}, \%myconfig); + $closedto = $form->datetonum($form->{closedto}, \%myconfig); + + + $form->error($locale->text('Cannot post transaction for a closed period!')) if ($transdate <= $closedto); + + # add up debits and credits + if (!$form->{adjustment}) { + for $i (1 .. $form->{rowcount}) { + $debit += $form->parse_amount(\%myconfig, $form->{"debit_$i"}); + $credit += $form->parse_amount(\%myconfig, $form->{"credit_$i"}); + } + + if ($form->round_amount($debit, 2) != $form->round_amount($credit, 2)) { + &post_adjustment; + exit; + } + } + + $form->redirect($locale->text('Transaction posted!')) if GL->post_transaction(\%myconfig, \%$form); + $form->error($locale->text('Cannot post transaction!')); + +} + + +sub post_as_new { + + $form->{id} = 0; + &post; + +} + + +sub post_adjustment { + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=adjustment value=1> +|; + + $form->hide_form(); + + print qq| +<h2 class=confirm>|.$locale->text('Warning!').qq|</h2> + +<h4>|.$locale->text('Out of balance transaction!').qq|</h4> + +<input name=action class=submit type=submit value="|.$locale->text('Post').qq|"> +</form> +|; + +} + + diff --git a/sql-ledger/bin/mozilla/hr.pl b/sql-ledger/bin/mozilla/hr.pl new file mode 100644 index 000000000..497daa1f7 --- /dev/null +++ b/sql-ledger/bin/mozilla/hr.pl @@ -0,0 +1,1217 @@ +#===================================================================== +# SQL-Ledger, Accounting +# Copyright (c) 2004 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# payroll module +# +#====================================================================== + +use SL::HR; +use SL::User; + +1; +# end of main + + + +sub add { + + $label = "Add ".ucfirst $form->{db}; + $form->{title} = $locale->text($label); + + $form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &{ "$form->{db}_links" }; + +} + + +sub search { &{ "search_$form->{db}" } }; + + +sub search_employee { + + $form->{title} = $locale->text('Employees'); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr valign=top> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Employee Number').qq|</th> + <td colspan=3><input name=employeenumber size=20></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Employee Name').qq|</th> + <td colspan=3><input name=name size=35></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Startdate').qq|</th> + <td><input name=startdate size=11 title="$myconfig{dateformat}" value=$form->{startdate}></td> + <th>|.$locale->text('Enddate').qq|</th> + <td><input name=enddate size=11 title="$myconfig{dateformat}" value=$form->{enddate}></td> + </tr> + <tr valign=top> + <th align=right nowrap>|.$locale->text('Notes').qq|</th> + <td colspan=3><input name=notes size=40></td> + </tr> + <tr> + <td></td> + <td colspan=3><input name=status class=radio type=radio value=all checked> |.$locale->text('All').qq| + <input name=status class=radio type=radio value=sales> |.$locale->text('Sales').qq| + <input name=status class=radio type=radio value=orphaned> |.$locale->text('Orphaned').qq|</td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <td colspan=3> + <table> + <tr> + <td><input name="l_id" type=checkbox class=checkbox value=Y> |.$locale->text('ID').qq|</td> + <td><input name="l_employeenumber" type=checkbox class=checkbox value=Y checked> |.$locale->text('Employee Number').qq|</td> + <td><input name="l_name" type=checkbox class=checkbox value=Y checked> |.$locale->text('Employee Name').qq|</td> + <td><input name="l_address" type=checkbox class=checkbox value=Y> |.$locale->text('Address').qq|</td> + <td><input name="l_city" type=checkbox class=checkbox value=Y> |.$locale->text('City').qq|</td> + </tr> + <tr> + <td><input name="l_state" type=checkbox class=checkbox value=Y> |.$locale->text('State/Province').qq|</td> + <td><input name="l_zipcode" type=checkbox class=checkbox value=Y> |.$locale->text('Zip/Postal Code').qq|</td> + <td><input name="l_country" type=checkbox class=checkbox value=Y> |.$locale->text('Country').qq|</td> + <td><input name="l_workphone" type=checkbox class=checkbox value=Y checked> |.$locale->text('Work Phone').qq|</td> + </tr> + <tr> + <td><input name="l_homephone" type=checkbox class=checkbox value=Y checked> |.$locale->text('Home Phone').qq|</td> + <td><input name="l_startdate" type=checkbox class=checkbox value=Y checked> |.$locale->text('Startdate').qq|</td> + <td><input name="l_enddate" type=checkbox class=checkbox value=Y checked> |.$locale->text('Enddate').qq|</td> + <td><input name="l_sales" type=checkbox class=checkbox value=Y> |.$locale->text('Sales').qq|</td> + </tr> + <tr> + <td><input name="l_manager" type=checkbox class=checkbox value=Y> |.$locale->text('Manager').qq|</td> + <td><input name="l_role" type=checkbox class=checkbox value=Y checked> |.$locale->text('Role').qq|</td> + <td><input name="l_login" type=checkbox class=checkbox value=Y checked> |.$locale->text('Login').qq|</td> + <td><input name="l_email" type=checkbox class=checkbox value=Y> |.$locale->text('E-mail').qq|</td> + </tr> + <tr> + <td><input name="l_ssn" type=checkbox class=checkbox value=Y> |.$locale->text('SSN').qq|</td> + <td><input name="l_dob" type=checkbox class=checkbox value=Y> |.$locale->text('DOB').qq|</td> + <td><input name="l_iban" type=checkbox class=checkbox value=Y> |.$locale->text('IBAN').qq|</td> + <td><input name="l_bic" type=checkbox class=checkbox value=Y> |.$locale->text('BIC').qq|</td> + <td><input name="l_notes" type=checkbox class=checkbox value=Y> |.$locale->text('Notes').qq|</td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=nextsub value=list_employees> +<input type=hidden name=db value=$form->{db}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; +} + + +sub list_employees { + + HR->employees(\%myconfig, \%$form); + + $href = "$form->{script}?action=list_employees&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}"; + + $form->sort_order(); + + $callback = "$form->{script}?action=list_employees&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}"; + + @columns = $form->sort_columns(qw(id employeenumber name address city state zipcode country workphone homephone email startdate enddate ssn dob iban bic sales role manager login notes)); + + 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"; + } + } + + %role = ( user => $locale->text('User'), + supervisor => $locale->text('Supervisor'), + manager => $locale->text('Manager'), + admin => $locale->text('Administrator') + ); + + $option = $locale->text('All'); + + if ($form->{status} eq 'sales') { + $option = $locale->text('Sales'); + } + if ($form->{status} eq 'orphaned') { + $option = $locale->text('Orphaned'); + } + if ($form->{employeenumber}) { + $callback .= "&employeenumber=".$form->escape($form->{employeenumber},1); + $href .= "&employeenumber=".$form->escape($form->{employeenumber}); + $option .= "\n<br>".$locale->text('Employee Number')." : $form->{employeenumber}"; + } + if ($form->{name}) { + $callback .= "&name=".$form->escape($form->{name},1); + $href .= "&name=".$form->escape($form->{name}); + $option .= "\n<br>".$locale->text('Employee Name')." : $form->{name}"; + } + if ($form->{startdate}) { + $callback .= "&startdate=$form->{startdate}"; + $href .= "&startdate=$form->{startdate}"; + $option .= "\n<br>" if ($option); + $option .= $locale->text('Startdate')." ".$locale->date(\%myconfig, $form->{startdate}, 1); + } + if ($form->{enddate}) { + $callback .= "&enddate=$form->{enddate}"; + $href .= "&enddate=$form->{enddate}"; + $option .= "\n<br>" if ($option); + $option .= $locale->text('Enddate')." ".$locale->date(\%myconfig, $form->{enddate}, 1); + } + if ($form->{notes}) { + $callback .= "¬es=".$form->escape($form->{notes},1); + $href .= "¬es=".$form->escape($form->{notes}); + $option .= "\n<br>" if $option; + $option .= $locale->text('Notes')." : $form->{notes}"; + } + + $form->{callback} = "$callback&sort=$form->{sort}"; + $callback = $form->escape($form->{callback}); + + $column_header{id} = qq|<th class=listheading>|.$locale->text('ID').qq|</th>|; + $column_header{employeenumber} = qq|<th><a class=listheading href=$href&sort=employeenumber>|.$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{manager} = qq|<th><a class=listheading href=$href&sort=manager>|.$locale->text('Manager').qq|</a></th>|; + $column_header{address} = qq|<th class=listheading>|.$locale->text('Address').qq|</a></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{workphone} = qq|<th><a class=listheading href=$href&sort=workphone>|.$locale->text('Work Phone').qq|</a></th>|; + $column_header{homephone} = qq|<th><a class=listheading href=$href&sort=homephone>|.$locale->text('Home Phone').qq|</a></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{notes} = qq|<th><a class=listheading href=$href&sort=notes>|.$locale->text('Notes').qq|</a></th>|; + $column_header{role} = qq|<th><a class=listheading href=$href&sort=role>|.$locale->text('Role').qq|</a></th>|; + $column_header{login} = qq|<th><a class=listheading href=$href&sort=login>|.$locale->text('Login').qq|</a></th>|; + + $column_header{sales} = qq|<th class=listheading>|.$locale->text('S').qq|</th>|; + $column_header{email} = qq|<th><a class=listheading href=$href&sort=email>|.$locale->text('E-mail').qq|</a></th>|; + $column_header{ssn} = qq|<th><a class=listheading href=$href&sort=ssn>|.$locale->text('SSN').qq|</a></th>|; + $column_header{dob} = qq|<th><a class=listheading href=$href&sort=dob>|.$locale->text('DOB').qq|</a></th>|; + $column_header{iban} = qq|<th><a class=listheading href=$href&sort=iban>|.$locale->text('IBAN').qq|</a></th>|; + $column_header{bic} = qq|<th><a class=listheading href=$href&sort=bic>|.$locale->text('BIC').qq|</a></th>|; + + $form->{title} = $locale->text('Employees'); + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| + </tr> +|; + + foreach $ref (@{ $form->{all_employee} }) { + + map { $column_data{$_} = "<td>$ref->{$_} </td>" } @column_index; + + $column_data{sales} = ($ref->{sales}) ? "<td>x</td>" : "<td> </td>"; + $column_data{role} = qq|<td>$role{"$ref->{role}"} </td>|; + $column_date{address} = qq|$ref->{address1} $ref->{address2}|; + + $column_data{name} = "<td><a href=$form->{script}?action=edit&db=employee&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}&callback=$callback>$ref->{name} </td>"; + + if ($ref->{email}) { + $email = $ref->{email}; + $email =~ s/</\</; + $email =~ s/>/\>/; + + $column_data{email} = qq|<td><a href="mailto:$ref->{email}">$email</a></td>|; + } + + $i++; $i %= 2; + print " + <tr class=listrow$i> +"; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + + } + + $i = 1; + $button{'HR--Employees--Add Employee'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Employee').qq|"> |; + $button{'HR--Employees--Add Employee'}{order} = $i++; + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=db value=$form->{db}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +sub edit { + +# $locale->text('Edit Employee') +# $locale->text('Edit Deduction') + + $label = ucfirst $form->{db}; + $form->{title} = "Edit $label"; + + &{ "$form->{db}_links" }; + +} + + +sub employee_links { + +#$form->{deductions} = 1; + HR->get_employee(\%myconfig, \%$form); + + map { $form->{$_} = $form->quote($form->{$_}) } keys %$form; + + if ($form->{all_deduction}) { + $form->{selectdeduction} = "<option>\n"; + map { $form->{selectdeduction} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } @{ $form->{all_deduction} }; + } + + $form->{manager} = "$form->{manager}--$form->{managerid}"; + + if ($form->{all_manager}) { + $form->{selectmanager} = "<option>\n"; + map { $form->{selectmanager} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_manager} }; + } + + %role = ( user => $locale->text('User'), + supervisor => $locale->text('Supervisor'), + manager => $locale->text('Manager'), + admin => $locale->text('Administrator') + ); + + $form->{selectrole} = "<option>\n"; + map { $form->{selectrole} .= "<option value=$_>$role{$_}\n" } qw(user supervisor manager admin); + + $i = 1; + foreach $ref (@{ $form->{all_employeededuction} }) { + $form->{"deduction_$i"} = "$ref->{description}--$ref->{id}"; + map { $form->{"${_}_$i"} = $ref->{$_} } qw(before after rate); + $i++; + } + $form->{deduction_rows} = $i - 1; + + &employee_header; + &employee_footer; + +} + + +sub employee_header { + + $sales = qq|<input type=hidden name=sales value=$form->{sales}>|; + $form->{sales} = ($form->{sales}) ? "checked" : ""; + + $form->{selectrole} =~ s/ selected//; + $form->{selectrole} =~ s/option value=\Q$form->{role}\E>/option value=$form->{role} selected>/; + + $form->{selectdeduction} = $form->unescape($form->{selectdeduction}); + + $form->{selectmanager} = $form->unescape($form->{selectmanager}); + $form->{selectmanager} =~ s/ selected//; + $form->{selectmanager} =~ s/(<option value="\Q$form->{manager}\E")/$1 selected/; + + $sales = qq| +<input type=hidden name=role value=$form->{role}> +<input type=hidden name=manager value=$form->{manager}> +|; + + if ($myconfig{role} ne 'user') { + $sales = qq| + <tr> + <th align=right>|.$locale->text('Sales').qq|</th> + <td><input name=sales class=checkbox type=checkbox value=1 $form->{sales}></td> + </tr> + <tr> + <th align=right>|.$locale->text('Role').qq|</th> + <td><select name=role>$form->{selectrole}</select></td> + </tr> +|; + + if ($form->{selectmanager}) { + $sales .= qq| + <tr> + <th align=right>|.$locale->text('Manager').qq|</th> + <td><select name=manager>$form->{selectmanager}</select></td> + </tr> +|; + } + } + + $form->{deduction_rows}++; + + for ($i = 1; $i <= $form->{deduction_rows}; $i++) { + $form->{"selectdeduction_$i"} = $form->{selectdeduction}; + if ($form->{"deduction_$i"}) { + $form->{"selectdeduction_$i"} =~ s/(<option value="\Q$form->{"deduction_$i"}\E")/$1 selected/; + } + } + + $form->{selectdeduction} = $form->escape($form->{selectdeduction},1); + $form->{selectmanager} = $form->escape($form->{selectmanager},1); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=selectdeduction value="$form->{selectdeduction}"> +<input type=hidden name=deduction_rows value=$form->{deduction_rows}> + +<input type=hidden name=selectmanager value="$form->{selectmanager}"> +<input type=hidden name=selectrole value="$form->{selectrole}"> + +<input type=hidden name=status value=$form->{status}> + +<input type=hidden name=title value="$form->{title}"> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr valign=top> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Number').qq|</th> + <td><input name=employeenumber size=32 maxlength=32 value="$form->{employeenumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Name').qq|</th> + <td><input name=name size=35 maxlength=64 value="$form->{name}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Address').qq|</th> + <td><input name=address1 size=35 maxlength=32 value="$form->{address1}"></td> + </tr> + <tr> + <th></th> + <td><input name=address2 size=35 maxlength=32 value="$form->{address2}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('City').qq|</th> + <td><input name=city size=35 maxlength=32 value="$form->{city}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('State/Province').qq|</th> + <td><input name=state size=35 maxlength=32 value="$form->{state}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th> + <td><input name=zipcode size=10 maxlength=10 value="$form->{zipcode}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Country').qq|</th> + <td><input name=country size=35 maxlength=32 value="$form->{country}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('E-mail').qq|</th> + <td><input name=email size=35 value="$form->{email}"></td> + </tr> + <tr> + $sales + </table> + </td> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Work Phone').qq|</th> + <td><input name=workphone size=20 maxlength=20 value="$form->{workphone}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Home Phone').qq|</th> + <td><input name=homephone size=20 maxlength=20 value="$form->{homephone}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Startdate').qq|</th> + <td><input name=startdate size=11 title="$myconfig{dateformat}" value=$form->{startdate}></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Enddate').qq|</th> + <td><input name=enddate size=11 title="$myconfig{dateformat}" value=$form->{enddate}></td> + </tr> + + <tr> + <th align=right nowrap>|.$locale->text('SSN').qq|</th> + <td><input name=ssn size=20 maxlength=20 value="$form->{ssn}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('DOB').qq|</th> + <td><input name=dob size=11 title="$myconfig{dateformat}" value=$form->{dob}></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('IBAN').qq|</th> + <td><input name=iban size=34 maxlength=34 value="$form->{iban}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('BIC').qq|</th> + <td><input name=bic size=11 maxlength=11 value="$form->{bic}"></td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <th align=left nowrap>|.$locale->text('Notes').qq|</th> + </tr> + <tr> + <td><textarea name=notes rows=3 cols=60 wrap=soft>$form->{notes}</textarea></td> + </tr> +|; + + if ($form->{selectdeduction}) { + + print qq| + <tr> + <td> + <table width=100%> + <tr class=listheading> + <th class=listheading>|.$locale->text('Payroll Deduction').qq|</th> + <th class=listheading colspan=3>|.$locale->text('Allowances').qq|</th> + </tr> + + <tr class=listheading> + <th></th> + <th class=listheading>|.$locale->text('Before Deduction').qq|</th> + <th class=listheading>|.$locale->text('After Deduction').qq|</th> + <th class=listheading>|.$locale->text('Rate').qq|</th> + </tr> +|; + + for ($i = 1; $i <= $form->{deduction_rows}; $i++) { + print qq| + <tr> + <td><select name="deduction_$i">$form->{"selectdeduction_$i"}</select></td> + <td><input name="before_$i" value=|.$form->format_amount(\%myconfig, $form->{"before_$i"}, 2).qq|></td> + <td><input name="after_$i" value=|.$form->format_amount(\%myconfig, $form->{"after_$i"}, 2).qq|></td> + <td><input name="rate_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"rate_$i"}).qq|></td> + </tr> +|; + } + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + + +sub employee_footer { + + print qq| +<input name=id type=hidden value=$form->{id}> + +<input type=hidden name=db value=$form->{db}> +<input type=hidden name=employeelogin value=$form->{employeelogin}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=callback value="$form->{callback}"> + +<br> + +<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('Save').qq|"> +|; + + if ($form->{id}) { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Save as new').qq|">\n|; + if ($form->{status} eq 'orphaned') { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|; + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + + </form> + +</body> +</html> +|; + +} + + +sub save { &{ "save_$form->{db}" } }; + + +sub save_employee { + + $form->isblank("name", $locale->text("Name missing!")); + HR->save_employee(\%myconfig, \%$form); + + # if it is a login change memberfile and .conf + if ($form->{employeelogin}) { + $user = new User $memberfile, $form->{employeelogin}; + + map { $user->{$_} = $form->{$_} } qw(name email role); + map { $user->{"old_$_"} = $user->{$_} } qw(dbpassword password); + + $user->save_member($memberfile, $userspath) if $user->{login}; + } + + $form->redirect($locale->text('Employee saved!')); + +} + + +sub delete { &{ "delete_$form->{db}" } }; + + +sub delete_employee { + + HR->delete_employee(\%myconfig, \%$form); + $form->redirect($locale->text('Employee deleted!')); + +} + + +sub continue { &{ $form->{nextsub} } }; + +sub add_employee { &add }; +sub add_deduction { &add }; + + +sub search_deduction { + + HR->deductions(\%myconfig, \%$form); + + $href = "$form->{script}?action=search_deduction&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->sort_order(); + + $callback = "$form->{script}?action=search_deduction&direction=$form->{direction}&oldsort=$form->{oldsort}&db=$form->{db}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}"; + + @column_index = $form->sort_columns(qw(description rate amount above below employeepays employerpays ap_accno expense_accno)); + + + $form->{callback} = $callback; + $callback = $form->escape($form->{callback}); + + $column_header{description} = qq|<th class=listheading href=$href>|.$locale->text('Description').qq|</th>|; + $column_header{rate} = qq|<th class=listheading nowrap>|.$locale->text('Rate').qq|<br>%</th>|; + $column_header{amount} = qq|<th class=listheading>|.$locale->text('Amount').qq|</th>|; + $column_header{above} = qq|<th class=listheading>|.$locale->text('Above').qq|</th>|; + $column_header{below} = qq|<th class=listheading>|.$locale->text('Below').qq|</th>|; + $column_header{employerpays} = qq|<th class=listheading>|.$locale->text('Employer').qq|</th>|; + $column_header{employeepays} = qq|<th class=listheading>|.$locale->text('Employee').qq|</th>|; + + $column_header{ap_accno} = qq|<th class=listheading>|.$locale->text('AP').qq|</th>|; + $column_header{expense_accno} = qq|<th class=listheading>|.$locale->text('Expense').qq|</th>|; + + $form->{title} = $locale->text('Deductions'); + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| + </tr> +|; + + + foreach $ref (@{ $form->{all_deduction} }) { + + $rate = $form->format_amount(\%myconfig, $ref->{rate} * 100, "", " "); + + $column_data{rate} = "<td align=right>$rate</td>"; + + map { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{$_}, 2, " ")."</td>" } qw(amount below above); + + map { $column_data{$_} = "<td>$ref->{$_} </td>" } qw(ap_accno expense_accno); + + map { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{$_}, "", " ")."</td>" } qw(employerpays employeepays); + + if ($ref->{description} ne $sameitem) { + $column_data{description} = "<td><a href=$form->{script}?action=edit&db=$form->{db}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description}</a></td>"; + } else { + $column_data{description} = "<td> </td>"; + } + + $i++; $i %= 2; + print " + <tr class=listrow$i> +"; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + + $sameitem = $ref->{description}; + + } + + $i = 1; + $button{'HR--Deductions--Add Deduction'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Deduction').qq|"> |; + $button{'HR--Deductions--Add Deduction'}{order} = $i++; + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input type=hidden name=db value=$form->{db}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +sub deduction_links { + + HR->get_deduction(\%myconfig, \%$form); + + $i = 1; + foreach $ref (@{ $form->{deductionrate} }) { + map { $form->{"${_}_$i"} = $ref->{$_} } keys %$ref; + $i++; + } + $form->{rate_rows} = $i - 1; + + $i = 1; + foreach $ref (@{ $form->{deductionbase} }) { + $form->{"base_$i"} = "$ref->{description}--$ref->{id}"; + $form->{"maximum_$i"} = $ref->{maximum}; + $i++; + } + $form->{base_rows} = $i - 1; + + $i = 1; + foreach $ref (@{ $form->{deductionafter} }) { + $form->{"after_$i"} = "$ref->{description}--$ref->{id}"; + $i++; + } + $form->{after_rows} = $i - 1; + + $form->{employeepays} = 1; + + $selectaccount = "<option>\n"; + map { $selectaccount .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{ap_accounts} }; + + $form->{ap_accno} = qq|$form->{ap_accno}--$form->{ap_description}|; + $form->{selectap} = $selectaccount; + + $selectaccount = "<option>\n"; + map { $selectaccount .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{expense_accounts} }; + + $form->{expense_accno} = qq|$form->{expense_accno}--$form->{expense_description}|; + $form->{selectexpense} = $selectaccount; + + map { $form->{"rate_$_"} *= 100 } (1 .. $form->{rate_rows}); + + $form->{selectbase} = "<option>\n"; + map { $form->{selectbase} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } @{ $form->{all_deduction} }; + + &deduction_header; + &deduction_footer; + +} + + +sub deduction_header { + + $selectap = $form->{selectap}; + $selectap =~ s/option>\Q$form->{ap_accno}\E/option selected>$form->{ap_accno}/; + $selectexpense = $form->{selectexpense}; + $selectexpense =~ s/option>\Q$form->{expense_accno}\E/option selected>$form->{expense_accno}/; + + + $form->{rate_rows}++; + $form->{base_rows}++; + $form->{after_rows}++; + + $form->{selectbase} = $form->unescape($form->{selectbase}); + + for ($i = 1; $i <= $form->{base_rows}; $i++) { + $form->{"selectbase_$i"} = $form->{selectbase}; + if ($form->{"base_$i"}) { + $form->{"selectbase_$i"} =~ s/(<option value="\Q$form->{"base_$i"}\E")/$1 selected/; + } + } + for ($i = 1; $i <= $form->{after_rows}; $i++) { + $form->{"selectafter_$i"} = $form->{selectbase}; + if ($form->{"after_$i"}) { + $form->{"selectafter_$i"} =~ s/(<option value="\Q$form->{"after_$i"}\E")/$1 selected/; + } + } + + + $form->header; + + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=title value="$form->{title}"> + +<input type=hidden name=selectap value="$form->{selectap}"> +<input type=hidden name=selectexpense value="$form->{selectexpense}"> +<input type=hidden name=selectbase value="|.$form->escape($form->{selectbase},1).qq|"> + +<input type=hidden name=rate_rows value=$form->{rate_rows}> +<input type=hidden name=base_rows value=$form->{base_rows}> +<input type=hidden name=after_rows value=$form->{after_rows}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Description').qq|</th> + <td><input name=description size=35 value="$form->{description}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('AP').qq|</th> + <td><select name=ap_accno>$selectap</select></td> + <th align=right nowrap>|.$locale->text('Employee pays').qq| x</th> + <td><input name=employeepays size=4 value=|.$form->format_amount(\%myconfig, $form->{employeepays}).qq|></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Expense').qq|</th> + <td><select name=expense_accno>$selectexpense</select></td> + <th align=right nowrap>|.$locale->text('Employer pays').qq| x</th> + <td><input name=employerpays size=4 value=|.$form->format_amount(\%myconfig, $form->{employerpays}).qq|></td> + </tr> + <tr> + <td></td> + <td></td> + <th align=right nowrap>|.$locale->text('Excempt age <').qq|</th> + <td><input name=fromage size=4 value=|.$form->format_amount(\%myconfig, $form->{fromage}).qq|></td> + <th align=right nowrap>|.$locale->text('>').qq|</th> + <td><input name=toage size=4 value=|.$form->format_amount(\%myconfig, $form->{toage}).qq|> + </tr> + <tr> + <td></td> + <td> + <table> + <tr class=listheading> + <th class=listheading>|.$locale->text('Rate').qq| %</th> + <th class=listheading>|.$locale->text('Amount').qq|</th> + <th class=listheading>|.$locale->text('Above').qq|</th> + <th class=listheading>|.$locale->text('Below').qq|</th> + </tr> +|; + + for ($i = 1; $i <= $form->{rate_rows}; $i++) { + print qq| + <tr> + <td><input name="rate_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"rate_$i"}).qq|></td> + <td><input name="amount_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"amount_$i"}, 2).qq|></td> + <td><input name="above_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"above_$i"}, 2).qq|></td> + <td><input name="below_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"below_$i"}, 2).qq|></td> + </tr> +|; + } + + print qq| + </table> + </td> + </tr> + </table> + </td> + </tr> +|; + + print qq| + <tr> + <td> + <table> +|; + + $basedon = $locale->text('Based on'); + $maximum = $locale->text('Maximum'); + + for ($i = 1; $i <= $form->{base_rows}; $i++) { + print qq| + <tr> + <th>$basedon</th> + <td><select name="base_$i">$form->{"selectbase_$i"}</select></td> + <th>$maximum</th> + <td><input name="maximum_$i" value=|.$form->format_amount(\%myconfig, $form->{"maximum_$i"}, 2).qq|></td> + </tr> +|; + $basedon = ""; + $maximum = ""; + } + + $deductafter = $locale->text('Deduct after'); + + for ($i = 1; $i <= $form->{after_rows}; $i++) { + print qq| + <tr> + <th>$deductafter</th> + <td><select name="after_$i">$form->{"selectafter_$i"}</select></td> + </tr> +|; + $deductafter = ""; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + + +sub deduction_footer { + + print qq| +<input name=id type=hidden value=$form->{id}> + +<input type=hidden name=db value=$form->{db}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=callback value="$form->{callback}"> + +<br> + +<input class=submit type=submit name=action value="|.$locale->text("Update").qq|"> +<input class=submit type=submit name=action value="|.$locale->text("Save").qq|"> +|; + + if ($form->{id}) { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Save as new').qq|">\n|; + + if ($form->{status} eq 'orphaned') { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|; + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + + </form> + +</body> +</html> +|; + +} + + +sub update { &{ "update_$form->{db}" }; } +sub save { &{ "save_$form->{db}" } }; + + +sub update_deduction { + + # if rate or amount is blank remove row + @flds = qw(rate amount above below); + $count = 0; + @a = (); + for $i (1 .. $form->{rate_rows}) { + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } @flds; + if ($form->{"rate_$i"} || $form->{"amount_$i"}) { + push @a, {}; + $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + $form->redo_rows(\@flds, \@a, $count, $form->{rate_rows}); + $form->{rate_rows} = $count; + + + @flds = qw(base maximum); + $count = 0; + @a = (); + for $i (1 .. $form->{"base_rows"}) { + $form->{"maximum_$i"} = $form->parse_amount(\%myconfig, $form->{"maximum_$i"}); + if ($form->{"base_$i"}) { + push @a, {}; + $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + $form->redo_rows(\@flds, \@a, $count, $form->{"base_rows"}); + $form->{"base_rows"} = $count; + + + @flds = qw(after); + $count = 0; + @a = (); + for $i (1 .. $form->{"after_rows"}) { + if ($form->{"after_$i"}) { + push @a, {}; + $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + $form->redo_rows(\@flds, \@a, $count, $form->{"after_rows"}); + $form->{"after_rows"} = $count; + + &deduction_header; + &deduction_footer; + +} + + +sub update_employee { + + # if rate or amount is blank remove row + @flds = qw(before after); + $count = 0; + @a = (); + for $i (1 .. $form->{deduction_rows}) { + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } @flds; + if ($form->{"deduction_$i"}) { + push @a, {}; + $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + $form->redo_rows(\@flds, \@a, $count, $form->{deduction_rows}); + $form->{deduction_rows} = $count; + + &employee_header; + &employee_footer; + +} + + +sub save_as_new { + + $form->{id} = 0; + delete $form->{employeelogin}; + + &save; + +} + + +sub save_deduction { + + $form->isblank("description", $locale->text("Description missing!")); + + unless ($form->{"rate_1"} || $form->{"amount_1"}) { + $form->isblank("rate_1", $locale->text("Rate missing!")) unless $form->{"amount_1"}; + $form->isblank("amount_1", $locale->text("Amount missing!")); + } + + HR->save_deduction(\%myconfig, \%$form); + $form->redirect($locale->text('Deduction saved!')); + +} + + +sub delete_deduction { + + HR->delete_deduction(\%myconfig, \%$form); + $form->redirect($locale->text('Deduction deleted!')); + +} + + diff --git a/sql-ledger/bin/mozilla/ic.pl b/sql-ledger/bin/mozilla/ic.pl new file mode 100644 index 000000000..f643c1301 --- /dev/null +++ b/sql-ledger/bin/mozilla/ic.pl @@ -0,0 +1,2706 @@ +#===================================================================== +# SQL-Ledger, Accounting +# Copyright (c) 2001 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# Contributors: +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# Inventory Control module +# +#====================================================================== + + +use SL::IC; + +require "$form->{path}/io.pl"; + +1; +# end of main + + + +sub add { + + %label = ( part => 'Part', + service => 'Service', + assembly => 'Assembly', + labor => 'Labor/Overhead' ); + +# $locale->text('Add Part') +# $locale->text('Add Service') +# $locale->text('Add Assembly') +# $locale->text('Add Labor/Overhead') + + $label = "Add $label{$form->{item}}"; + $form->{title} = $locale->text($label); + + $form->{callback} = "$form->{script}?action=add&item=$form->{item}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + $form->{orphaned} = 1; + + if ($form->{previousform}) { + $form->{callback} = ""; + } + + &link_part; + &display_form; + +} + + +sub search { + + $form->get_partsgroup(\%myconfig, { all => 0, searchitems => $form->{searchitems}}); + + IC->get_warehouses(\%myconfig, \%$form) unless $form->{searchitems} =~ /(service|labor)/; + + if (@{ $form->{all_partsgroup} }) { + $partsgroup = qq|<option>\n|; + + map { $partsgroup .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} }; + + $partsgroup = qq| + <th align=right nowrap>|.$locale->text('Group').qq|</th> + <td><select name=partsgroup>$partsgroup</select></td> +|; + } + + $l_listprice = qq| + <td><input name=l_listprice class=checkbox type=checkbox value=Y> |.$locale->text('List Price').qq|</td> +|; + $l_sellprice = qq| + <td><input name=l_sellprice class=checkbox type=checkbox value=Y checked> |.$locale->text('Sell Price').qq|</td> +|; + $l_lastcost = qq| + <td><input name=l_lastcost class=checkbox type=checkbox value=Y> |.$locale->text('Cost').qq|</td> +|; + $l_linetotal = qq| + <td><input name=l_linetotal class=checkbox type=checkbox value=Y checked> |.$locale->text('Line Total').qq|</td> +|; + $l_curr = qq| + <td><input name=l_curr class=checkbox type=checkbox value=Y> |.$locale->text('Currency').qq|</td> +|; + + $accrual = qq| + <tr> + <td colspan=4><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq| + <input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td> + </tr> +|; + + $serialnumber = qq| + <th align=right nowrap>|.$locale->text('Serial Number').qq|</th> + <td><input name=serialnumber size=20></td> +|; + + $l_serialnumber = qq| + <td><input name=l_serialnumber class=checkbox type=checkbox value=Y> |.$locale->text('Serial Number').qq|</td> +|; + + + if ($form->{searchitems} =~ /(part|assembly)/) { + + $onhand = qq| + <input name=itemstatus class=radio type=radio value=onhand> |.$locale->text('On Hand').qq| + <input name=itemstatus class=radio type=radio value=short> |.$locale->text('Short').qq| +|; + + $makemodel = qq| + <tr> + <th align=right nowrap>|.$locale->text('Make').qq|</th> + <td><input name=make size=20></td> + <th align=right nowrap>|.$locale->text('Model').qq|</th> + <td><input name=model size=20></td> + </tr> +|; + + $l_makemodel = qq| + <td><input name=l_make class=checkbox type=checkbox value=Y> |.$locale->text('Make').qq|</td> + <td><input name=l_model class=checkbox type=checkbox value=Y> |.$locale->text('Model').qq|</td> +|; + + $l_bin = qq| + <td><input name=l_bin class=checkbox type=checkbox value=Y> |.$locale->text('Bin').qq|</td>|; + + $l_rop = qq| + <td><input name=l_rop class=checkbox type=checkbox value=Y> |.$locale->text('ROP').qq|</td>|; + + + $l_weight = qq| + <td><input name=l_weight class=checkbox type=checkbox value=Y> |.$locale->text('Weight').qq|</td>|; + + + if (@{ $form->{all_warehouses} }) { + $selectwarehouse = "<option>\n"; + + map { $selectwarehouse .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_warehouses} }); + + $warehouse = qq| + <th align=right nowrap>|.$locale->text('Warehouse').qq|</th> + <td><select name=warehouse>$selectwarehouse</select></td> +|; + + $l_warehouse = qq| + <td><input name=l_warehouse class=checkbox type=checkbox value=Y> |.$locale->text('Warehouse').qq|</td> +|; + + + $drawing = qq| + <tr> + <th align=right nowrap>|.$locale->text('Drawing').qq|</th> + <td><input name=drawing size=20></td> + <th align=right nowrap>|.$locale->text('Microfiche').qq|</th> + <td><input name=microfiche size=20></td> + </tr> +|; + + $l_drawing = qq| + <tr> + <td><input name=l_image class=checkbox type=checkbox value=Y> |.$locale->text('Image').qq|</td> + <td><input name=l_drawing class=checkbox type=checkbox value=Y> |.$locale->text('Drawing').qq|</td> + <td><input name=l_microfiche class=checkbox type=checkbox value=Y> |.$locale->text('Microfiche').qq|</td> + </tr> +|; + + } + } + + if ($form->{searchitems} eq 'assembly') { + + $toplevel = qq| + <tr> + <td></td> + <td colspan=3> + <input name=null class=radio type=radio value=1 checked> |.$locale->text('Top Level').qq| + <input name=bom class=checkbox type=checkbox value=1> |.$locale->text('Individual Items').qq| + </td> + </tr> +|; + + $bought = qq| + <tr> + <td></td> + <td colspan=3> + <table> + <tr> + <td> + <table> + <tr> + <td><input name=sold class=checkbox type=checkbox value=1></td> + <td nowrap>|.$locale->text('Sales Invoices').qq|</td> + </tr> + <tr> + <td colspan=2><hr size=1 noshade></td> + </tr> + <tr> + <td><input name=ordered class=checkbox type=checkbox value=1></td> + <td nowrap>|.$locale->text('Sales Orders').qq|</td> + </tr> + <tr> + <td colspan=4><hr size=1 noshade></td> + </tr> + <tr> + <td><input name=quoted class=checkbox type=checkbox value=1></td> + <td nowrap>|.$locale->text('Quotations').qq|</td> + </tr> + </table> + </td> + <td width=5%> </td> + <td> + <table> + $accrual + <tr> + <th>|.$locale->text('From').qq|</th> + <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td> + <th>|.$locale->text('To').qq|</th> + <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td> + </tr> + <tr> + <td colspan=4><input name=open class=checkbox type=checkbox value=1 checked> |.$locale->text('Open').qq| + <input name=closed class=checkbox type=checkbox> |.$locale->text('Closed').qq|</td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> +|; + + } elsif ($form->{searchitems} eq 'component') { + + $warehouse = ""; + $serialnumber = ""; + $l_serialnumber = ""; + $l_warehouse = ""; + + } elsif ($form->{searchitems} eq 'labor') { + + $warehouse = ""; + $serialnumber = ""; + $l_serialnumber = ""; + $l_sellprice = qq| + <td><input name=l_sellprice class=checkbox type=checkbox value=Y checked> |.$locale->text('Amount').qq|</td> +|; + $l_listprice = ""; + $l_lastcost = ""; + + } else { + + $bought = qq| + <tr> + <td></td> + <td colspan=3> + <table> + <tr> + <td> + <table> + <tr> + <td><input name=bought class=checkbox type=checkbox value=1></td> + <td nowrap>|.$locale->text('Vendor Invoices').qq|</td> + <td><input name=sold class=checkbox type=checkbox value=1></td> + <td nowrap>|.$locale->text('Sales Invoices').qq|</td> + </tr> + <tr> + <td colspan=4><hr size=1 noshade></td> + </tr> + <tr> + <td><input name=onorder class=checkbox type=checkbox value=1></td> + <td nowrap>|.$locale->text('Purchase Orders').qq|</td> + <td><input name=ordered class=checkbox type=checkbox value=1></td> + <td nowrap>|.$locale->text('Sales Orders').qq|</td> + </tr> + <tr> + <td colspan=4><hr size=1 noshade></td> + </tr> + <tr> + <td><input name=rfq class=checkbox type=checkbox value=1></td> + <td nowrap>|.$locale->text('RFQ').qq|</td> + <td><input name=quoted class=checkbox type=checkbox value=1></td> + <td nowrap>|.$locale->text('Quotations').qq|</td> + </tr> + </table> + </td> + <td width=5%> </td> + <td> + <table> + $accrual + <tr> + <th>|.$locale->text('From').qq|</th> + <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td> + <th>|.$locale->text('To').qq|</th> + <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td> + </tr> + <tr> + <td colspan=4><input name=open class=checkbox type=checkbox value=1 checked> |.$locale->text('Open').qq| + <input name=closed class=checkbox type=checkbox> |.$locale->text('Closed').qq|</td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> +|; + } + + %title = ( all => 'Items', + part => 'Parts', + labor => 'Labor/Overhead', + service => 'Services', + assembly => 'Assemblies', + component => 'Components' + ); + +# $locale->text('Items') +# $locale->text('Parts') +# $locale->text('Labor/Overhead') +# $locale->text('Services') +# $locale->text('Assemblies') +# $locale->text('Components') + + $form->{title} = $locale->text($title{$form->{searchitems}}); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=searchitems value=$form->{searchitems}> +<input type=hidden name=title value="$form->{title}"> + +<table width="100%"> + <tr><th class=listtop>$form->{title}</th></tr> + <tr height="5"></tr> + <tr valign=top> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Number').qq|</th> + <td><input name=partnumber size=20></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Description').qq|</th> + <td colspan=3><input name=description size=40></td> + </tr> + <tr> + $warehouse + </tr> + <tr> + $partsgroup + $serialnumber + </tr> + $makemodel + $drawing + $toplevel + <tr> + <td></td> + <td colspan=3> + <input name=itemstatus class=radio type=radio value=active checked> |.$locale->text('Active').qq| + $onhand + <input name=itemstatus class=radio type=radio value=obsolete> |.$locale->text('Obsolete').qq| + <input name=itemstatus class=radio type=radio value=orphaned> |.$locale->text('Orphaned').qq| + </td> + </tr> + $bought + <tr> + <td></td> + <td colspan=3> + <hr size=1 noshade> + </td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <td colspan=3> + <table> + <tr> + <td><input name=l_partnumber class=checkbox type=checkbox value=Y checked> |.$locale->text('Number').qq|</td> + <td><input name=l_description class=checkbox type=checkbox value=Y checked> |.$locale->text('Description').qq|</td> + $l_serialnumber + <td><input name=l_unit class=checkbox type=checkbox value=Y checked> |.$locale->text('Unit of measure').qq|</td> + <td><input name=l_priceupdate class=checkbox type=checkbox value=Y> |.$locale->text('Updated').qq|</td> + <td><input name=l_partsgroup class=checkbox type=checkbox value=Y> |.$locale->text('Group').qq|</td> + </tr> + <tr> + $l_listprice + $l_sellprice + $l_lastcost + $l_linetotal + $l_curr + </tr> + <tr> + $l_bin + $l_rop + $l_weight + </tr> + $l_drawing + <tr> + $l_makemodel + $l_warehouse + </tr> + <tr> + <td><input name=l_subtotal class=checkbox type=checkbox value=Y> |.$locale->text('Subtotal').qq|</td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr><td colspan=4><hr size=3 noshade></td></tr> +</table> + +<input type=hidden name=nextsub value=generate_report> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + + +sub generate_report { + + # setup $form->{sort} + unless ($form->{sort}) { + if ($form->{description} && !($form->{partnumber})) { + $form->{sort} = "description"; + } else { + $form->{sort} = "partnumber"; + } + } + + $warehouse = $form->escape($form->{warehouse},1); + $partsgroup = $form->escape($form->{partsgroup},1); + $title = $form->escape($form->{title},1); + + $callback = "$form->{script}?action=generate_report&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&warehouse=$warehouse&partsgroup=$partsgroup&title=$title&method=$form->{method}"; + + + # if we have a serialnumber limit search + if ($form->{serialnumber} || $form->{l_serialnumber}) { + $form->{l_serialnumber} = "Y"; + unless ($form->{bought} || $form->{sold} || $form->{onorder} || $form->{ordered}) { + if ($form->{searchitems} eq 'assembly') { + $form->{sold} = $form->{ordered} = 1; + } else { + $form->{bought} = $form->{sold} = $form->{onorder} = $form->{ordered} = 1; + } + } + } + + + if ($form->{itemstatus} eq 'active') { + $option .= $locale->text('Active')." : "; + } + if ($form->{itemstatus} eq 'obsolete') { + $form->{onhand} = $form->{short} = 0; + $form->{warehouse} = ""; + $form->{l_warehouse} = 0; + + $option .= $locale->text('Obsolete')." : "; + } + if ($form->{itemstatus} eq 'orphaned') { + $form->{onhand} = $form->{short} = 0; + $form->{bought} = $form->{sold} = 0; + $form->{onorder} = $form->{ordered} = 0; + $form->{rfq} = $form->{quoted} = 0; + + $form->{warehouse} = ""; + $form->{l_warehouse} = 0; + + $form->{transdatefrom} = $form->{transdateto} = ""; + + $option .= $locale->text('Orphaned')." : "; + } + if ($form->{itemstatus} eq 'onhand') { + $option .= $locale->text('On Hand')." : "; + $form->{l_onhand} = "Y"; + } + if ($form->{itemstatus} eq 'short') { + $option .= $locale->text('Short')." : "; + $form->{l_onhand} = "Y"; + $form->{l_rop} = "Y" unless $form->{searchitems} eq 'labor'; + + $form->{warehouse} = ""; + $form->{l_warehouse} = 0; + } + if ($form->{onorder}) { + $form->{l_ordnumber} = "Y"; + $callback .= "&onorder=$form->{onorder}"; + $option .= $locale->text('Purchase Order')." : "; + } + if ($form->{ordered}) { + $form->{l_ordnumber} = "Y"; + $callback .= "&ordered=$form->{ordered}"; + $option .= $locale->text('Sales Order')." : "; + } + if ($form->{rfq}) { + $form->{l_quonumber} = "Y"; + $callback .= "&rfq=$form->{rfq}"; + $option .= $locale->text('RFQ')." : "; + } + if ($form->{quoted}) { + $form->{l_quonumber} = "Y"; + $callback .= ""ed=$form->{quoted}"; + $option .= $locale->text('Quotation')." : "; + } + if ($form->{bought}) { + $form->{l_invnumber} = "Y"; + $callback .= "&bought=$form->{bought}"; + $option .= $locale->text('Vendor Invoice')." : "; + } + if ($form->{sold}) { + $form->{l_invnumber} = "Y"; + $callback .= "&sold=$form->{sold}"; + $option .= $locale->text('Sales Invoice')." : "; + } + if ($form->{sold} || $form->{bought}) { + $label = ucfirst $form->{method}; + $option .= $locale->text($label) ." : "; + } + + if ($form->{bought} || $form->{sold} || $form->{onorder} || $form->{ordered} || $form->{rfq} || $form->{quoted}) { + + # warehouse stuff is meaningless + $form->{warehouse} = ""; + $form->{l_warehouse} = 0; + + $form->{l_lastcost} = ""; + $form->{l_name} = "Y"; + $form->{l_employee} = "Y"; + + + if ($form->{open}) { + $callback .= "&open=$form->{open}"; + $option .= $locale->text('Open'); + } + if ($form->{closed}) { + $callback .= "&closed=$form->{closed}"; + if ($form->{open}) { + $option .= " : ".$locale->text('Closed'); + } else { + $option .= $locale->text('Closed'); + } + } + + if ($form->{transdatefrom}) { + $callback .= "&transdatefrom=$form->{transdatefrom}"; + $option .= "\n<br>".$locale->text('From')." ".$locale->date(\%myconfig, $form->{transdatefrom}, 1); + } + if ($form->{transdateto}) { + $callback .= "&transdateto=$form->{transdateto}"; + $option .= "\n<br>".$locale->text('To')." ".$locale->date(\%myconfig, $form->{transdateto}, 1); + } + } + + if ($form->{warehouse}) { + ($warehouse) = split /--/, $form->{warehouse}; + $option .= "<br>".$locale->text('Warehouse')." : $warehouse"; + $form->{l_warehouse} = 0; + } + + $option .= "<br>"; + + if ($form->{partnumber}) { + $callback .= "&partnumber=".$form->escape($form->{partnumber},1); + $option .= $locale->text('Number').qq| : $form->{partnumber}<br>|; + } + if ($form->{partsgroup}) { + ($partsgroup) = split /--/, $form->{partsgroup}; + $option .= $locale->text('Group').qq| : $partsgroup<br>|; + } + if ($form->{serialnumber}) { + $callback .= "&serialnumber=".$form->escape($form->{serialnumber},1); + $option .= $locale->text('Serial Number').qq| : $form->{serialnumber}<br>|; + } + if ($form->{description}) { + $callback .= "&description=".$form->escape($form->{description},1); + $description = $form->{description}; + $description =~ s/
/<br>/g; + $option .= $locale->text('Description').qq| : $form->{description}<br>|; + } + if ($form->{make}) { + $callback .= "&make=".$form->escape($form->{make},1); + $option .= $locale->text('Make').qq| : $form->{make}<br>|; + } + if ($form->{model}) { + $callback .= "&model=".$form->escape($form->{model},1); + $option .= $locale->text('Model').qq| : $form->{model}<br>|; + } + if ($form->{drawing}) { + $callback .= "&drawing=".$form->escape($form->{drawing},1); + $option .= $locale->text('Drawing').qq| : $form->{drawing}<br>|; + } + if ($form->{microfiche}) { + $callback .= "µfiche=".$form->escape($form->{microfiche},1); + $option .= $locale->text('Microfiche').qq| : $form->{microfiche}<br>|; + } + + + @columns = $form->sort_columns(qw(partnumber description assemblypartnumber partsgroup make model bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost curr priceupdate weight image drawing microfiche invnumber ordnumber quonumber name employee serialnumber warehouse)); + + if ($form->{l_linetotal}) { + $form->{l_onhand} = "Y"; + $form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice}; + $form->{l_linetotallastcost} = "Y" if $form->{l_lastcost}; + $form->{l_linetotallistprice} = "Y" if $form->{l_listprice}; + } + + if ($form->{searchitems} eq 'service') { + # remove bin, weight and rop from list + map { $form->{"l_$_"} = "" } qw(bin weight rop); + + $form->{l_onhand} = ""; + # qty is irrelevant unless bought or sold + if ($form->{bought} || $form->{sold} || $form->{onorder} || + $form->{ordered} || $form->{rfq} || $form->{quoted}) { + $form->{l_onhand} = "Y"; + } else { + $form->{l_linetotalsellprice} = ""; + $form->{l_linetotallastcost} = ""; + } + } + + + foreach $item (@columns) { + if ($form->{"l_$item"} eq "Y") { + push @column_index, $item; + + # add column to callback + $callback .= "&l_$item=Y"; + } + } + + if ($form->{l_subtotal} eq 'Y') { + $callback .= "&l_subtotal=Y"; + } + + + IC->all_parts(\%myconfig, \%$form); + + $callback .= "&direction=$form->{direction}&oldsort=$form->{oldsort}"; + + $href = $callback; + + $form->sort_order(); + + $callback =~ s/(direction=).*\&{1}/$1$form->{direction}\&/; + + + if ($form->{searchitems} eq 'assembly' && $form->{l_partnumber}) { + # replace partnumber with partnumber_ + $ndx = 0; + foreach $item (@column_index) { + $ndx++; + last if $item eq 'partnumber'; + } + + splice @column_index, $ndx, 0, map { "partnumber_$_" } (1 .. $form->{pncol}); + $colspan = $form->{pncol} + 1; + } + + if ($form->{searchitems} eq 'component') { + if ($form->{l_partnumber}) { + # splice it in after the partnumber + $ndx = 0; + foreach $item (@column_index) { + $ndx++; + last if $item eq 'partnumber'; + } + + @a = splice @column_index, 0, $ndx; + unshift @column_index, "assemblypartnumber"; + unshift @column_index, @a; + } + } + + $column_header{partnumber} = qq|<th nowrap colspan=$colspan><a class=listheading href=$href&sort=partnumber>|.$locale->text('Number').qq|</a></th>|; + $column_header{description} = qq|<th nowrap><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|; + $column_header{partsgroup} = qq|<th nowrap><a class=listheading href=$href&sort=partsgroup>|.$locale->text('Group').qq|</a></th>|; + $column_header{bin} = qq|<th><a class=listheading href=$href&sort=bin>|.$locale->text('Bin').qq|</a></th>|; + $column_header{priceupdate} = qq|<th nowrap><a class=listheading href=$href&sort=priceupdate>|.$locale->text('Updated').qq|</a></th>|; + $column_header{onhand} = qq|<th class=listheading nowrap>|.$locale->text('Qty').qq|</th>|; + $column_header{unit} = qq|<th class=listheading nowrap>|.$locale->text('Unit').qq|</th>|; + $column_header{listprice} = qq|<th class=listheading nowrap>|.$locale->text('List Price').qq|</th>|; + $column_header{lastcost} = qq|<th class=listheading nowrap>|.$locale->text('Cost').qq|</th>|; + $column_header{rop} = qq|<th class=listheading nowrap>|.$locale->text('ROP').qq|</th>|; + $column_header{weight} = qq|<th class=listheading nowrap>|.$locale->text('Weight').qq|</th>|; + + $column_header{make} = qq|<th nowrap><a class=listheading href=$href&sort=make>|.$locale->text('Make').qq|</a></th>|; + $column_header{model} = qq|<th nowrap><a class=listheading href=$href&sort=model>|.$locale->text('Model').qq|</a></th>|; + + $column_header{invnumber} = qq|<th nowrap><a class=listheading href=$href&sort=invnumber>|.$locale->text('Invoice Number').qq|</a></th>|; + $column_header{ordnumber} = qq|<th nowrap><a class=listheading href=$href&sort=ordnumber>|.$locale->text('Order Number').qq|</a></th>|; + $column_header{quonumber} = qq|<th nowrap><a class=listheading href=$href&sort=quonumber>|.$locale->text('Quotation').qq|</a></th>|; + + $column_header{name} = qq|<th nowrap><a class=listheading href=$href&sort=name>|.$locale->text('Name').qq|</a></th>|; + + $column_header{employee} = qq|<th nowrap><a class=listheading href=$href&sort=employee>|.$locale->text('Employee').qq|</a></th>|; + + $column_header{sellprice} = qq|<th class=listheading nowrap>|; + $column_header{sellprice} .= ($form->{searchitems} ne 'labor') ? $locale->text('Sell Price') : $locale->text('Amount'); + $column_header{sellprice} .= qq|</th>|; + + $column_header{linetotalsellprice} = qq|<th class=listheading nowrap>|.$locale->text('Extended').qq|</th>|; + $column_header{linetotallastcost} = qq|<th class=listheading nowrap>|.$locale->text('Extended').qq|</th>|; + $column_header{linetotallistprice} = qq|<th class=listheading nowrap>|.$locale->text('Extended').qq|</th>|; + + $column_header{curr} = qq|<th class=listheading nowrap>|.$locale->text('Curr').qq|</th>|; + + $column_header{image} = qq|<th class=listheading nowrap>|.$locale->text('Image').qq|</a></th>|; + $column_header{drawing} = qq|<th nowrap><a class=listheading href=$href&sort=drawing>|.$locale->text('Drawing').qq|</a></th>|; + $column_header{microfiche} = qq|<th nowrap><a class=listheading href=$href&sort=microfiche>|.$locale->text('Microfiche').qq|</a></th>|; + + $column_header{serialnumber} = qq|<th nowrap><a class=listheading href=$href&sort=serialnumber>|.$locale->text('Serial Number').qq|</a></th>|; + + $column_header{assemblypartnumber} = qq|<th nowrap><a class=listheading href=$href&sort=assemblypartnumber>|.$locale->text('Assembly').qq|</a></th>|; + + $column_header{warehouse} = qq|<th nowrap class=listheading>|.$locale->text('Warehouse').qq|</th>|; + + + $form->header; + + $i = 1; + if ($form->{searchitems} eq 'part') { + $button{'Goods & Services--Add Part'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Part').qq|"> |; + $button{'Goods & Services--Add Part'}{order} = $i++; + } + if ($form->{searchitems} eq 'service') { + $button{'Goods & Services--Add Service'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Service').qq|"> |; + $button{'Goods & Services--Add Service'}{order} = $i++; + } + if ($form->{searchitems} eq 'assembly') { + $button{'Goods & Services--Add Assembly'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Assembly').qq|"> |; + $button{'Goods & Services--Add Assembly'}{order} = $i++; + } + if ($form->{searchitems} eq 'labor') { + $button{'Goods & Services--Add Labor/Overhead'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Labor/Overhead').qq|"> |; + $button{'Goods & Services--Add Labor/Overhead'}{order} = $i++; + } + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + + <tr><td>$option</td></tr> + + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "\n$column_header{$_}" } @column_index; + + print qq| + </tr> + |; + + + # add order to callback + $form->{callback} = $callback .= "&sort=$form->{sort}"; + + # escape callback for href + $callback = $form->escape($callback); + + if (@{ $form->{parts} }) { + $sameitem = $form->{parts}->[0]->{$form->{sort}}; + } + + + foreach $ref (@{ $form->{parts} }) { + + if ($form->{l_subtotal} eq 'Y' && !$ref->{assemblyitem}) { + if ($sameitem ne $ref->{$form->{sort}}) { + &parts_subtotal; + $sameitem = $ref->{$form->{sort}}; + } + } + + $ref->{exchangerate} = 1 unless $ref->{exchangerate}; + $ref->{discount} *= 1; + $ref->{sellprice} = $ref->{sellprice} * (1 - $ref->{discount}); + if ($form->{l_curr}) { + if ($ref->{module} ne 'oe') { + map { $ref->{$_} = $form->round_amount($ref->{$_} / $ref->{exchangerate}, 2) } qw(sellprice listprice lastcost); + } + } else { + if ($ref->{module} eq 'oe') { + map { $ref->{$_} = $form->round_amount($ref->{$_} * $ref->{exchangerate}, 2) } qw(sellprice listprice lastcost); + } + } + + # use this for assemblies + $onhand = $ref->{onhand}; + + $ref->{description} =~ s/
/<br>/g; + + map { $column_data{"partnumber_$_"} = "<td> </td>" } (1 .. $form->{pncol}); + + $column_data{partnumber} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partnumber} </a></td>"; + + $column_data{assemblypartnumber} = "<td><a href=$form->{script}?action=edit&id=$ref->{assembly_id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{assemblypartnumber} </a></td>"; + + if ($ref->{assemblyitem}) { + $onhand = 0 if ($form->{sold}); + + $column_data{partnumber} = "<td> </td>"; + + $column_data{"partnumber_$ref->{stagger}"} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partnumber} </a></td>"; + + } + + map { $column_data{$_} = "<td>$ref->{$_} </td>" } qw(description partsgroup employee curr); + + $column_data{onhand} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{onhand}, '', " ")."</td>"; + + map { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{$_}, 2, " ") . "</td>" } qw(sellprice listprice lastcost); + + $column_data{linetotalsellprice} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice}, 2, " ")."</td>"; + $column_data{linetotallastcost} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost}, 2, " ")."</td>"; + $column_data{linetotallistprice} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice}, 2, " ")."</td>"; + + if ($ref->{assemblyitem} && $ref->{stagger} > 1) { + map { $column_data{$_} = "<td> </td>" } qw(linetotalsellprice linetotallastcost linetotallistprice); + } + + if (!$ref->{assemblyitem}) { + $totalsellprice += $onhand * $ref->{sellprice}; + $totallastcost += $onhand * $ref->{lastcost}; + $totallistprice += $onhand * $ref->{listprice}; + + $subtotalonhand += $onhand; + $subtotalsellprice += $onhand * $ref->{sellprice}; + $subtotallastcost += $onhand * $ref->{lastcost}; + $subtotallistprice += $onhand * $ref->{listprice}; + } + + $column_data{rop} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{rop}, '', " ")."</td>"; + $column_data{weight} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{weight}, '', " ")."</td>"; + $column_data{unit} = "<td>$ref->{unit} </td>"; + $column_data{bin} = "<td>$ref->{bin} </td>"; + $column_data{priceupdate} = "<td>$ref->{priceupdate} </td>"; + + $ref->{module} = 'ps' if $ref->{till}; + $column_data{invnumber} = ($ref->{module} ne 'oe') ? "<td><a href=$ref->{module}.pl?action=edit&type=invoice&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{invnumber} </a></td>" : "<td>$ref->{invnumber} </td>"; + $column_data{ordnumber} = ($ref->{module} eq 'oe') ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{ordnumber} </a></td>" : "<td>$ref->{ordnumber} </td>"; + $column_data{quonumber} = ($ref->{module} eq 'oe' && !$ref->{ordnumber}) ? "<td><a href=$ref->{module}.pl?action=edit&type=$ref->{type}&id=$ref->{trans_id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{quonumber} </a></td>" : "<td>$ref->{quonumber} </td>"; + + $column_data{name} = "<td>$ref->{name} </td>"; + + $column_data{image} = ($ref->{image}) ? "<td><a href=$ref->{image}><img src=$ref->{image} height=32 border=0></a></td>" : "<td> </td>"; + $column_data{drawing} = ($ref->{drawing}) ? "<td><a href=$ref->{drawing}>$ref->{drawing}</a></td>" : "<td> </td>"; + $column_data{microfiche} = ($ref->{microfiche}) ? "<td><a href=$ref->{microfiche}>$ref->{microfiche}</a></td>" : "<td> </td>"; + + $column_data{make} = "<td>$ref->{make} </td>"; + $column_data{model} = "<td>$ref->{model} </td>"; + + $column_data{serialnumber} = "<td>$ref->{serialnumber} </td>"; + $column_data{warehouse} = "<td>$ref->{warehouse} </td>"; + + $i++; $i %= 2; + print "<tr class=listrow$i>"; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + } + + + if ($form->{l_subtotal} eq 'Y') { + &parts_subtotal; + } + + if ($form->{"l_linetotal"}) { + map { $column_data{$_} = "<td> </td>" } @column_index; + $column_data{linetotalsellprice} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalsellprice, 2, " ")."</th>"; + $column_data{linetotallastcost} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totallastcost, 2, " ")."</th>"; + $column_data{linetotallistprice} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totallistprice, 2, " ")."</th>"; + + print "<tr class=listtotal>"; + + map { print "\n$column_data{$_}" } @column_index; + + print qq|</tr> + |; + } + + print qq| + </table> + </td> + </tr> + <tr><td><hr size=3 noshade></td></tr> +</table> + +|; + + print qq| + +<br> + +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=item value=$form->{searchitems}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + + +sub parts_subtotal { + + map { $column_data{$_} = "<td> </td>" } @column_index; + $subtotalonhand = 0 if ($form->{searchitems} eq 'assembly' && $form->{bom}); + + $column_data{onhand} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalonhand, '', " ")."</th>"; + + $column_data{linetotalsellprice} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalsellprice, 2, " ")."</th>"; + $column_data{linetotallistprice} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotallistprice, 2, " ")."</th>"; + $column_data{linetotallastcost} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotallastcost, 2, " ")."</th>"; + + $subtotalonhand = 0; + $subtotalsellprice = 0; + $subtotallistprice = 0; + $subtotallastcost = 0; + + print "<tr class=listsubtotal>"; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + +} + + + +sub edit { + + %label = ( part => 'Part', + service => 'Service', + assembly => 'Assembly', + labor => 'Labor/Overhead' ); + +# $locale->text('Edit Part') +# $locale->text('Edit Service') +# $locale->text('Edit Assembly') +# $locale->text('Edit Labor/Overhead') + + IC->get_part(\%myconfig, \%$form); + + $label = "Edit $label{$form->{item}}"; + $form->{title} = $locale->text($label); + + &link_part; + + $form->{previousform} = $form->escape($form->{previousform}, 1) if $form->{previousform}; + + &display_form; + +} + + + +sub link_part { + + IC->create_links("IC", \%myconfig, \%$form); + + # currencies + map { $form->{selectcurrency} .= "<option>$_\n" } split /:/, $form->{currencies}; + + # parts and assemblies have the same links + $item = $form->{item}; + + # readonly + if ($form->{item} eq 'part') { + $form->{readonly} = 1 if $myconfig{acs} =~ /Goods \& Services--Add Part/; + } + if ($form->{item} eq 'service') { + $form->{readonly} = 1 if $myconfig{acs} =~ /Goods \& Services--Add Service/; + } + if ($form->{item} eq 'assembly') { + $item = 'part'; + $form->{readonly} = 1 if $myconfig{acs} =~ /Goods \& Services--Add Assembly/; + } + if ($form->{item} eq 'labor') { + $item = 'labor'; + $form->{readonly} = 1 if $myconfig{acs} =~ /Goods \& Services--Add Labor\/Overhead/; + } + + # build the popup menus + $form->{taxaccounts} = ""; + foreach $key (keys %{ $form->{IC_links} }) { + foreach $ref (@{ $form->{IC_links}{$key} }) { + # if this is a tax field + if ($key =~ /IC_tax/) { + if ($key =~ /$item/) { + $form->{taxaccounts} .= "$ref->{accno} "; + $form->{"IC_tax_$ref->{accno}_description"} = "$ref->{accno}--$ref->{description}"; + + if ($form->{id}) { + if ($form->{amount}{$ref->{accno}}) { + $form->{"IC_tax_$ref->{accno}"} = "checked"; + } + } else { + $form->{"IC_tax_$ref->{accno}"} = "checked"; + } + } + } else { + + $form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n"; + if ($form->{amount}{$key} eq $ref->{accno}) { + $form->{$key} = "$ref->{accno}--$ref->{description}"; + } + + } + } + } + chop $form->{taxaccounts}; + + if ($form->{item} !~ /service/) { + $form->{selectIC_income} = $form->{selectIC_sale}; + $form->{selectIC_expense} = $form->{selectIC_cogs}; + $form->{IC_income} = $form->{IC_sale}; + $form->{IC_expense} = $form->{IC_cogs}; + } + + delete $form->{IC_links}; + delete $form->{amount}; + + $form->get_partsgroup(\%myconfig, {all => 1}); + $form->{partsgroup} = "$form->{partsgroup}--$form->{partsgroup_id}"; + + if (@{ $form->{all_partsgroup} }) { + $form->{selectpartsgroup} = qq|<option>\n|; + + map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} }; + } + + if ($form->{item} eq 'assembly') { + + foreach $i (1 .. $form->{assembly_rows}) { + if ($form->{"partsgroup_id_$i"}) { + $form->{"partsgroup_$i"} = qq|$form->{"partsgroup_$i"}--$form->{"partsgroup_id_$i"}|; + } + } + + $form->get_partsgroup(\%myconfig); + + if (@{ $form->{all_partsgroup} }) { + $form->{selectassemblypartsgroup} = qq|<option>\n|; + + map { $form->{selectassemblypartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} }; + } + } + + # setup make and models + $i = 1; + foreach $ref (@{ $form->{makemodels} }) { + map { $form->{"${_}_$i"} = $ref->{$_} } qw(make model); + $i++; + } + $form->{makemodel_rows} = $i - 1; + + + # setup vendors + if (@{ $form->{all_vendor} }) { + $form->{selectvendor} = "<option>\n"; + map { $form->{selectvendor} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_vendor} }; + } + + # vendor matrix + $i = 1; + foreach $ref (@{ $form->{vendormatrix} }) { + $form->{"vendor_$i"} = qq|$ref->{name}--$ref->{id}|; + + map { $form->{"${_}_$i"} = $ref->{$_} } qw(partnumber lastcost leadtime vendorcurr); + $i++; + } + $form->{vendor_rows} = $i - 1; + + # setup customers and groups + if (@{ $form->{all_customer} }) { + $form->{selectcustomer} = "<option>\n"; + map { $form->{selectcustomer} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{all_customer} }; + } + + if (@{ $form->{all_pricegroup} }) { + $form->{selectpricegroup} = "<option>\n"; + map { $form->{selectpricegroup} .= qq|<option value="$_->{pricegroup}--$_->{id}">$_->{pricegroup}\n| } @{ $form->{all_pricegroup} }; + } + + $i = 1; + # customer matrix + foreach $ref (@{ $form->{customermatrix} }) { + + $form->{"customer_$i"} = "$ref->{name}--$ref->{cid}" if $ref->{cid}; + $form->{"pricegroup_$i"} = "$ref->{pricegroup}--$ref->{gid}" if $ref->{gid}; + + map { $form->{"${_}_$i"} = $ref->{$_} } qw(validfrom validto pricebreak customerprice customercurr); + + $i++; + + } + $form->{customer_rows} = $i - 1; + +} + + + +sub form_header { + + ($dec) = ($form->{sellprice} =~ /\.(\d+)/); + $dec = length $dec; + my $decimalplaces = ($dec > 2) ? $dec : 2; + + if ($form->{lastcost} > 0) { + $markup = $form->round_amount((($form->{sellprice}/$form->{lastcost} - 1) * 100), 1); + $form->{markup} = $form->format_amount(\%myconfig, $markup, 1); + } + + map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, $decimalplaces)} qw(listprice sellprice); + + ($dec) = ($form->{lastcost} =~ /\.(\d+)/); + $dec = length $dec; + my $decimalplaces = ($dec > 2) ? $dec : 2; + + $form->{lastcost} = $form->format_amount(\%myconfig, $form->{lastcost}, $decimalplaces); + + map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}) } qw(weight rop stock); + + map { $form->{$_} = $form->quote($form->{$_}) } qw(partnumber description unit notes); + + if (($rows = $form->numtextrows($form->{notes}, 40)) < 2) { + $rows = 2; + } + + $notes = qq|<textarea name=notes rows=$rows cols=40 wrap=soft>$form->{notes}</textarea>|; + + if (($rows = $form->numtextrows($form->{description}, 40)) > 1) { + $description = qq|<textarea name="description" rows=$rows cols=40 wrap=soft>$form->{description}</textarea>|; + } else { + $description = qq|<input name=description size=40 value="$form->{description}">|; + } + + foreach $item (split / /, $form->{taxaccounts}) { + $form->{"IC_tax_$item"} = ($form->{"IC_tax_$item"}) ? "checked" : ""; + } + + + # set option + foreach $item (qw(IC IC_income IC_expense)) { + if ($form->{$item}) { + if ($form->{orphaned}) { + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; + } else { + $form->{"select$item"} = qq|<option selected>$form->{$item}|; + } + } + } + + if ($form->{selectpartsgroup}) { + $form->{selectpartsgroup} = $form->unescape($form->{selectpartsgroup}); + + $partsgroup = qq|<input type=hidden name=selectpartsgroup value="|.$form->escape($form->{selectpartsgroup},1).qq|">|; + + $form->{selectpartsgroup} =~ s/(<option value="\Q$form->{partsgroup}\E")/$1 selected/; + + $partsgroup .= qq|<select name=partsgroup>$form->{selectpartsgroup}</select>|; + $group = $locale->text('Group'); + } + + # tax fields + foreach $item (split / /, $form->{taxaccounts}) { + $tax .= qq| + <input class=checkbox type=checkbox name="IC_tax_$item" value=1 $form->{"IC_tax_$item"}> <b>$form->{"IC_tax_${item}_description"}</b> + <br><input type=hidden name=IC_tax_${item}_description value="$form->{"IC_tax_${item}_description"}"> +|; + } + + $form->{obsolete} = "checked" if $form->{obsolete}; + + $sellprice = qq| + <tr> + <th align="right" nowrap="true">|.$locale->text('List Price').qq|</th> + <td><input name=listprice size=11 value=$form->{listprice}></td> + </tr> + <tr> + <th align="right" nowrap="true">|.$locale->text('Sell Price').qq|</th> + <td><input name=sellprice size=11 value=$form->{sellprice}></td> + </tr> +|; + + $lastcost = qq| + <tr> + <th align="right" nowrap="true">|.$locale->text('Cost').qq|</th> + <td><input name=lastcost size=11 value=$form->{lastcost}></td> + </tr> + <tr> + <th align="right" nowrap="true">|.$locale->text('Markup').qq| %</th> + <td><input name=markup size=5 value=$form->{markup}></td> + <input type=hidden name=oldmarkup value=$markup> + </tr> +|; + + if ($form->{item} eq "part") { + + $linkaccounts = qq| + <tr> + <th align=right>|.$locale->text('Inventory').qq|</th> + <td><select name=IC>$form->{selectIC}</select></td> + <input name=selectIC type=hidden value="$form->{selectIC}"> + </tr> + <tr> + <th align=right>|.$locale->text('Income').qq|</th> + <td><select name=IC_income>$form->{selectIC_income}</select></td> + <input name=selectIC_income type=hidden value="$form->{selectIC_income}"> + </tr> + <tr> + <th align=right>|.$locale->text('COGS').qq|</th> + <td><select name=IC_expense>$form->{selectIC_expense}</select></td> + <input name=selectIC_expense type=hidden value="$form->{selectIC_expense}"> + </tr> +|; + + if ($tax) { + $linkaccounts .= qq| + <tr> + <th align=right>|.$locale->text('Tax').qq|</th> + <td>$tax</td> + </tr> +|; + } + + $weight = qq| + <tr> + <th align="right" nowrap="true">|.$locale->text('Weight').qq|</th> + <td> + <table> + <tr> + <td> + <input name=weight size=10 value=$form->{weight}> + </td> + <th> + + $form->{weightunit} + <input type=hidden name=weightunit value=$form->{weightunit}> + </th> + </tr> + </table> + </td> + </tr> +|; + + } + + + if ($form->{item} eq "assembly") { + + $lastcost = qq| + <tr> + <th align="right" nowrap="true">|.$locale->text('Cost').qq|</th> + <td><input type=hidden name=lastcost value=$form->{lastcost}>$form->{lastcost}</td> + </tr> + <tr> + <th align="right" nowrap="true">|.$locale->text('Markup').qq| %</th> + <td><input name=markup size=5 value=$form->{markup}></td> + <input type=hidden name=oldmarkup value=$markup> + </tr> +|; + + $linkaccounts = qq| +<!-- + <tr> + <th align=right>|.$locale->text('Inventory').qq|</th> + <td><select name=IC>$form->{selectIC}</select></td> + <input name=selectIC type=hidden value="$form->{selectIC}"> + </tr> +--> + <tr> + <th align=right>|.$locale->text('Income').qq|</th> + <td><select name=IC_income>$form->{selectIC_income}</select></td> + <input name=selectIC_income type=hidden value="$form->{selectIC_income}"> + </tr> +|; + + if ($tax) { + $linkaccounts .= qq| + <tr> + <th align=right>|.$locale->text('Tax').qq|</th> + <td>$tax</td> + </tr> +|; + } + + $weight = qq| + <tr> + <th align="right" nowrap="true">|.$locale->text('Weight').qq|</th> + <td> + <table> + <tr> + <td> + $form->{weight} + <input type=hidden name=weight value=$form->{weight}> + </td> + <th> + + $form->{weightunit} + <input type=hidden name=weightunit value=$form->{weightunit}> + </th> + </tr> + </table> + </td> + </tr> +|; + + } + + + if ($form->{item} eq "service") { + + $linkaccounts = qq| + <tr> + <th align=right>|.$locale->text('Income').qq|</th> + <td><select name=IC_income>$form->{selectIC_income}</select></td> + <input name=selectIC_income type=hidden value="$form->{selectIC_income}"> + </tr> + <tr> + <th align=right>|.$locale->text('Expense').qq|</th> + <td><select name=IC_expense>$form->{selectIC_expense}</select></td> + <input name=selectIC_expense type=hidden value="$form->{selectIC_expense}"> + </tr> +|; + + if ($tax) { + $linkaccounts .= qq| + <tr> + <th align=right>|.$locale->text('Tax').qq|</th> + <td>$tax</td> + </tr> +|; + } + + } + + if ($form->{item} eq "labor") { + $lastcost = ""; + $sellprice = qq| + <tr> + <th align="right" nowrap="true">|.$locale->text('Amount').qq|</th> + <td><input name=sellprice size=11 value=$form->{sellprice}></td> + </tr> +|; + + $linkaccounts = qq| + <tr> + <th align=right>|.$locale->text('Labor/Overhead').qq|</th> + <td><select name=IC>$form->{selectIC}</select></td> + <input name=selectIC type=hidden value="$form->{selectIC}"> + </tr> + <tr> + <th align=right>|.$locale->text('Expense').qq|</th> + <td><select name=IC_expense>$form->{selectIC_expense}</select></td> + <input name=selectIC_expense type=hidden value="$form->{selectIC_expense}"> + </tr> +|; + + } + + + if ($form->{item} =~ /(part|assembly)/) { + $n = ($form->{onhand} > 0) ? "1" : "0"; + $rop = qq| + <tr> + <th align="right" nowrap>|.$locale->text('On Hand').qq|</th> + <th align=left nowrap class="plus$n"> |.$form->format_amount(\%myconfig, $form->{onhand}).qq|</th> + </tr> +|; + + if ($form->{item} eq 'assembly') { + $rop .= qq| + <tr> + <th align="right" nowrap>|.$locale->text('Stock').qq|</th> + <td><input name=stock size=10 value=$form->{stock}></td> + </tr> +|; + } + + $rop .= qq| + <tr> + <th align="right" nowrap="true">|.$locale->text('ROP').qq|</th> + <td><input name=rop size=10 value=$form->{rop}></td> + </tr> +|; + + $bin = qq| + <tr> + <th align="right" nowrap="true">|.$locale->text('Bin').qq|</th> + <td><input name=bin size=10 value=$form->{bin}></td> + </tr> +|; + + $imagelinks = qq| + <tr> + <td> + <table width=100%> + <tr> + <th align=right nowrap>|.$locale->text('Image').qq|</th> + <td><input name=image size=40 value="$form->{image}"></td> + <th align=right nowrap>|.$locale->text('Microfiche').qq|</th> + <td><input name=microfiche size=20 value="$form->{microfiche}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Drawing').qq|</th> + <td><input name=drawing size=40 value="$form->{drawing}"></td> + </tr> + </table> + </td> + </tr> +|; + + } + + if ($form->{id}) { + $obsolete = qq| + <tr> + <th align="right" nowrap="true">|.$locale->text('Obsolete').qq|</th> + <td><input name=obsolete type=checkbox class=checkbox value=1 $form->{obsolete}></td> + </tr> +|; + } + + +# type=submit $locale->text('Edit Part') +# type=submit $locale->text('Edit Service') +# type=submit $locale->text('Edit Assembly') + + + $form->header; + + print qq| +<body> + +<form method=post action="$form->{script}#end"> + +<input type=hidden name=id value=$form->{id}> +<input type=hidden name=item value=$form->{item}> +<input type=hidden name=title value="$form->{title}"> +<input type=hidden name=makemodel value="$form->{makemodel}"> +<input type=hidden name=alternate value="$form->{alternate}"> +<input type=hidden name=onhand value=$form->{onhand}> +<input type=hidden name=orphaned value=$form->{orphaned}> +<input type=hidden name=taxaccounts value="$form->{taxaccounts}"> +<input type=hidden name=rowcount value=$form->{rowcount}> +<input type=hidden name=baseassembly value=$form->{baseassembly}> + +<table width="100%"> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width="100%"> + <tr valign=top> + <th align=left>|.$locale->text('Number').qq|</th> + <th align=left>|.$locale->text('Description').qq|</th> + <th align=left>$group</th> + </tr> + <tr valign=top> + <td><input name=partnumber value="$form->{partnumber}" size=20></td> + <td>$description</td> + <td>$partsgroup</td> + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table width="100%" height="100%"> + <tr valign=top> + <td width=70%> + <table width="100%" height="100%"> + <tr class="listheading"> + <th class="listheading" align="center" colspan=2>|.$locale->text('Link Accounts').qq|</th> + </tr> + $linkaccounts + <tr> + <th align="left">|.$locale->text('Notes').qq|</th> + </tr> + <tr> + <td colspan=2> + $notes + </td> + </tr> + </table> + </td> + <td width="30%"> + <table width="100%"> + <tr> + <th align="right" nowrap="true">|.$locale->text('Updated').qq|</th> + <td><input name=priceupdate size=11 title="$myconfig{dateformat}" value=$form->{priceupdate}></td> + </tr> + $sellprice + $lastcost + <tr> + <th align="right" nowrap="true">|.$locale->text('Unit').qq|</th> + <td><input name=unit size=5 value="$form->{unit}"></td> + </tr> + $weight + $rop + $bin + $obsolete + </table> + </td> + </tr> + </table> + </td> + </tr> + $imagelinks +|; +} + + +sub form_footer { + + print qq| + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=customer_rows value=$form->{customer_rows}> +|; + + + if ($form->{item} =~ /(part|assembly)/) { + print qq| + <input type=hidden name=makemodel_rows value=$form->{makemodel_rows}> +|; + } + + if ($form->{item} =~ /(part|service)/) { + print qq| + <input type=hidden name=vendor_rows value=$form->{vendor_rows}> +|; + } + + + if (! $form->{readonly}) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Save').qq|">|; + + if ($form->{id}) { + + if (!$form->{isassemblyitem}) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Save as new').qq|">|; + } + + if ($form->{orphaned}) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">|; + } + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + &assembly_row(++$form->{assembly_rows}) if $form->{item} eq 'assembly'; + + print qq| + + <input type=hidden name=path value=$form->{path}> + <input type=hidden name=login value=$form->{login}> + <input type=hidden name=sessionid value=$form->{sessionid}> + <input type=hidden name=callback value="$form->{callback}"> + <input type=hidden name=previousform value="$form->{previousform}"> + <input type=hidden name=isassemblyitem value=$form->{isassemblyitem}> + +</form> + +<a name="end"></a> + +</body> +</html> +|; + +} + + + +sub makemodel_row { + my ($numrows) = @_; + + map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(make model); + + print qq| + <tr> + <td> + <table width=100%> + <tr> + <th class="listheading">|.$locale->text('Make').qq|</th> + <th class="listheading">|.$locale->text('Model').qq|</th> + </tr> +|; + + for $i (1 .. $numrows) { + print qq| + <tr> + <td><input name="make_$i" size=30 value="$form->{"make_$i"}"></td> + <td><input name="model_$i" size=30 value="$form->{"model_$i"}"></td> + </tr> +|; + } + + print qq| + </table> + </td> + </tr> +|; + +} + + +sub vendor_row { + my ($numrows) = @_; + + $form->{selectvendor} = $form->unescape($form->{selectvendor}); + print qq| + <input type=hidden name=selectvendor value="|.$form->escape($form->{selectvendor},1).qq|"> + + <tr> + <td> + <table width=100%> + <tr> + <th class="listheading">|.$locale->text('Vendor').qq|</th> + <th class="listheading">|.$locale->text('Number').qq|</th> + <th class="listheading">|.$locale->text('Cost').qq|</th> + <th class="listheading">|.$locale->text('Curr').qq|</th> + <th class="listheading">|.$locale->text('Leadtime').qq|</th> + </tr> +|; + + for $i (1 .. $numrows) { + + $form->{selectcurrency} =~ s/ selected//; + + if ($i == $numrows) { + + $vendor = qq| + <td><input name="vendor_$i" size=35 value="$form->{"vendor_$i"}"></td> +|; + + if ($form->{selectvendor}) { + $vendor = qq| + <td width=99%><select name="vendor_$i">$form->{selectvendor}</select></td> +|; + } + + } else { + + $form->{selectcurrency} =~ s/option>$form->{"vendorcurr_$i"}/option selected>$form->{"vendorcurr_$i"}/; + + ($vendor) = split /--/, $form->{"vendor_$i"}; + $vendor = qq| + <td>$vendor + <input type=hidden name="vendor_$i" value="$form->{"vendor_$i"}"> + </td> +|; + + } + + print qq| + <tr> + $vendor + <td><input name="partnumber_$i" size=20 value="$form->{"partnumber_$i"}"></td> + <td><input name="lastcost_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"lastcost_$i"}, 2).qq|></td> + <td><select name="vendorcurr_$i">$form->{selectcurrency}</select></td> + <td nowrap><input name="leadtime_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"leadtime_$i"}).qq|> <b>|.$locale->text('days').qq|</b></td> + </tr> +|; + + } + + print qq| + </table> + </td> + </tr> +|; + +} + + +sub customer_row { + my ($numrows) = @_; + + if ($form->{selectpricegroup}) { + $pricegroup = qq| + <th class="listheading">|.$locale->text('Pricegroup').qq| + </th> +|; + } + + $form->{selectcustomer} = $form->unescape($form->{selectcustomer}); + $form->{selectpricegroup} = $form->unescape($form->{selectpricegroup}); + + print qq| + <input type=hidden name=selectcurrency value="$form->{selectcurrency}"> + <input type=hidden name=selectcustomer value="|.$form->escape($form->{selectcustomer},1).qq|"> + <input type=hidden name=selectpricegroup value="|.$form->escape($form->{selectpricegroup},1).qq|"> + + <tr> + <td> + <table width=100%> + <tr> + <th class="listheading">|.$locale->text('Customer').qq|</th> + $pricegroup + <th class="listheading">|.$locale->text('Break').qq|</th> + <th class="listheading">|.$locale->text('Sell Price').qq|</th> + <th class="listheading">|.$locale->text('Curr').qq|</th> + <th class="listheading">|.$locale->text('From').qq|</th> + <th class="listheading">|.$locale->text('To').qq|</th> + </tr> +|; + + for $i (1 .. $numrows) { + + $form->{selectcurrency} =~ s/ selected//; + $form->{selectcurrency} =~ s/option>$form->{"customercurr_$i"}/option selected>$form->{"customercurr_$i"}/; + + if ($i == $numrows) { + $customer = qq| + <td><input name="customer_$i" size=35 value="$form->{"customer_$i"}"></td> + |; + + if ($form->{selectcustomer}) { + $customer = qq| + <td><select name="customer_$i">$form->{selectcustomer}</select></td> +|; + } + + if ($form->{selectpricegroup}) { + $pricegroup = qq| + <td><select name="pricegroup_$i">$form->{selectpricegroup}</select></td> +|; + } + + } else { + ($customer) = split /--/, $form->{"customer_$i"}; + $customer = qq| + <td>$customer</td> + <input type=hidden name="customer_$i" value="$form->{"customer_$i"}"> + |; + + if ($form->{selectpricegroup}) { + ($pricegroup) = split /--/, $form->{"pricegroup_$i"}; + $pricegroup = qq| + <td>$pricegroup</td> + <input type=hidden name="pricegroup_$i" value="$form->{"pricegroup_$i"}"> +|; + } + } + + + print qq| + <tr> + $customer + $pricegroup + + <td><input name="pricebreak_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"pricebreak_$i"}).qq|></td> + <td><input name="customerprice_$i" size=10 value=|.$form->format_amount(\%myconfig, $form->{"customerprice_$i"}, 2).qq|></td> + <td><select name="customercurr_$i">$form->{selectcurrency}</select></td> + <td><input name="validfrom_$i" size=11 title="$myconfig{dateformat}" value="$form->{"validfrom_$i"}"></td> + <td><input name="validto_$i" size=11 title="$myconfig{dateformat}" value="$form->{"validto_$i"}"></td> + </tr> +|; + } + + print qq| + </table> + </td> + </tr> +|; + +} + + + +sub assembly_row { + my ($numrows) = @_; + + @column_index = qw(runningnumber qty unit bom adj partnumber description listprice sellprice lastcost); + + if ($form->{selectassemblypartsgroup}) { + $form->{selectassemblypartsgroup} = $form->unescape($form->{selectassemblypartsgroup}); + @column_index = qw(runningnumber qty unit bom adj partnumber description partsgroup listprice sellprice lastcost); + } + + delete $form->{previousform}; + + # change callback + $form->{old_callback} = $form->{callback}; + $callback = $form->{callback}; + $form->{callback} = "$form->{script}?action=display_form"; + + # delete action + map { delete $form->{$_} } qw(action header); + + $form->{baseassembly} = 0; + $previousform = ""; + # save form variables in a previousform variable + foreach $key (sort keys %$form) { + # escape ampersands + $form->{$key} =~ s/&/%26/g; + $previousform .= qq|$key=$form->{$key}&|; + } + chop $previousform; + $form->{previousform} = $form->escape($previousform, 1); + + $form->{sellprice} = 0; + $form->{listprice} = 0; + $form->{lastcost} = 0; + $form->{weight} = 0; + + $form->{callback} = $callback; + + + $column_header{runningnumber} = qq|<th nowrap width=5%>|.$locale->text('No.').qq|</th>|; + $column_header{qty} = qq|<th align=left nowrap width=10%>|.$locale->text('Qty').qq|</th>|; + $column_header{unit} = qq|<th align=left nowrap width=5%>|.$locale->text('Unit').qq|</th>|; + $column_header{partnumber} = qq|<th align=left nowrap width=20%>|.$locale->text('Number').qq|</th>|; + $column_header{description} = qq|<th nowrap width=50%>|.$locale->text('Description').qq|</th>|; + $column_header{sellprice} = qq|<th align=right nowrap>|.$locale->text('Sell').qq|</th>|; + $column_header{listprice} = qq|<th align=right nowrap>|.$locale->text('List').qq|</th>|; + $column_header{lastcost} = qq|<th align=right nowrap>|.$locale->text('Cost').qq|</th>|; + $column_header{bom} = qq|<th>|.$locale->text('BOM').qq|</th>|; + $column_header{adj} = qq|<th>|.$locale->text('A').qq|</th>|; + $column_header{partsgroup} = qq|<th>|.$locale->text('Group').qq|</th>|; + + print qq| + <p> + + <table width=100%> + <tr class=listheading> + <th class=listheading>|.$locale->text('Individual Items').qq|</th> + </tr> + <tr> + <td> + <table width=100%> + <tr> +|; + + map { print "\n$column_header{$_}" } @column_index; + + print qq| + </tr> +|; + + + for $i (1 .. $numrows) { + $form->{"partnumber_$i"} = $form->quote($form->{"partnumber_$i"}); + + $linetotalsellprice = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"}, 2); + $form->{sellprice} += $linetotalsellprice; + + $linetotallistprice = $form->round_amount($form->{"listprice_$i"} * $form->{"qty_$i"}, 2); + $form->{listprice} += $linetotallistprice; + + $linetotallastcost = $form->round_amount($form->{"lastcost_$i"} * $form->{"qty_$i"}, 2); + $form->{lastcost} += $linetotallastcost; + + + $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}); + + $linetotalsellprice = $form->format_amount(\%myconfig, $linetotalsellprice, 2); + $linetotallistprice = $form->format_amount(\%myconfig, $linetotallistprice, 2); + $linetotallastcost = $form->format_amount(\%myconfig, $linetotallastcost, 2); + + if ($i == $numrows) { + + map { $column_data{$_} = qq|<td></td>| } qw(runningnumber unit bom adj); + + $column_data{qty} = qq|<td><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|; + $column_data{partnumber} = qq|<td><input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}"></td>|; + $column_data{description} = qq|<td><input name="description_$i" size=30 value="$form->{"description_$i"}"></td>|; + $column_data{partsgroup} = qq|<td><select name="partsgroup_$i">$form->{selectassemblypartsgroup}</select></td>|; + + } else { + + $column_data{partnumber} = qq|<td><input class=submit type=submit name=action value=" $form->{"partnumber_$i"}"></td> + <input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}">|; + + $column_data{runningnumber} = qq|<td><input name="runningnumber_$i" size=3 value="$i"></td>|; + $column_data{qty} = qq|<td><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|; + + map { $form->{"${_}_$i"} = ($form->{"${_}_$i"}) ? "checked" : "" } qw(bom adj); + $column_data{bom} = qq|<td align=center><input name="bom_$i" type=checkbox class=checkbox value=1 $form->{"bom_$i"}></td>|; + $column_data{adj} = qq|<td align=center><input name="adj_$i" type=checkbox class=checkbox value=1 $form->{"adj_$i"}></td>|; + + ($partsgroup) = split /--/, $form->{"partsgroup_$i"}; + $column_data{partsgroup} = qq|<td><input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">$partsgroup</td>|; + + $column_data{unit} = qq|<td><input type=hidden name="unit_$i" value="$form->{"unit_$i"}">$form->{"unit_$i"}</td>|; + $column_data{description} = qq|<td><input type=hidden name="description_$i" value="$form->{"description_$i"}">$form->{"description_$i"}</td>|; + + } + + $column_data{sellprice} = qq|<td align=right>$linetotalsellprice</td>|; + $column_data{listprice} = qq|<td align=right>$linetotallistprice</td>|; + $column_data{lastcost} = qq|<td align=right>$linetotallastcost</td>|; + + print qq| + <tr>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> + <input type=hidden name="id_$i" value=$form->{"id_$i"}> + <input type=hidden name="sellprice_$i" value=$form->{"sellprice_$i"}> + <input type=hidden name="listprice_$i" value=$form->{"listprice_$i"}> + <input type=hidden name="lastcost_$i" value=$form->{"lastcost_$i"}> + <input type=hidden name="weight_$i" value=$form->{"weight_$i"}> + <input type=hidden name="assembly_$i" value=$form->{"assembly_$i"}> +|; + } + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{sellprice} = "<th align=right>".$form->format_amount(\%myconfig, $form->{sellprice}, 2)."</th>"; + $column_data{listprice} = "<th align=right>".$form->format_amount(\%myconfig, $form->{listprice}, 2)."</th>"; + $column_data{lastcost} = "<th align=right>".$form->format_amount(\%myconfig, $form->{lastcost}, 2)."</th>"; + + print qq| + <tr>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> + </table> + <input type=hidden name=assembly_rows value=$form->{assembly_rows}> + <input type=hidden name=nextsub value=edit_assemblyitem> + <input type=hidden name=selectassemblypartsgroup value="|.$form->escape($form->{selectassemblypartsgroup},1).qq|"> +|; + +} + + +sub edit_assemblyitem { + + $pn = substr($form->{action}, 1); + + for ($i = 1; $i < $form->{assembly_rows}; $i++) { + last if $form->{"partnumber_$i"} eq $pn; + } + + $form->error($local->text('unexpected error!')) unless $i; + + $form->{baseassembly} = ($form->{baseassembly}) ? $form->{baseassembly} : $form->{"assembly_$i"}; + + $form->{callback} = qq|$form->{script}?action=edit&id=$form->{"id_$i"}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&rowcount=$i&baseassembly=$form->{baseassembly}&isassemblyitem=1&previousform=$form->{previousform}|; + + $form->redirect; + +} + + +sub update { + + if ($form->{item} eq "assembly") { + + $i = $form->{assembly_rows}; + + # if last row is empty check the form otherwise retrieve item + if (($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "") && ($form->{"partsgroup_$i"} eq "")) { + + &check_form; + + } else { + + IC->assembly_item(\%myconfig, \%$form); + + $rows = scalar @{ $form->{item_list} }; + + if ($rows) { + $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"}); + $form->{"adj_$i"} = 1; + + if ($rows > 1) { + $form->{makemodel_rows}--; + $form->{customer_rows}--; + &select_item; + exit; + } else { + map { $form->{item_list}[$i]{$_} = $form->quote($form->{item_list}[$i]{$_}) } qw(partnumber description unit); + map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] }; + + if ($form->{item_list}[0]{partsgroup_id}) { + $form->{"partsgroup_$i"} = qq|$form->{item_list}[0]{partsgroup}--$form->{item_list}[0]{partsgroup_id}|; + } + + $form->{"runningnumber_$i"} = $form->{assembly_rows}; + $form->{assembly_rows}++; + + &check_form; + + } + + } else { + + $form->{rowcount} = $i; + $form->{assembly_rows}++; + + &new_item; + + } + } + + } else { + + &check_form; + + } + +} + + +sub check_vendor { + + @flds = qw(vendor partnumber lastcost leadtime); + @a = (); + $count = 0; + + map { $form->{"${_}_$form->{vendor_rows}"} = $form->parse_amount(\%myconfig, $form->{"${_}_$form->{vendor_rows}"}) } qw(lastcost leadtime); + + for $i (1 .. $form->{vendor_rows} - 1) { + + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(lastcost leadtime); + + if ($form->{"lastcost_$i"} || $form->{"partnumber_$i"}) { + + push @a, {}; + $j = $#a; + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + + } + } + + $i = $form->{vendor_rows}; + + if (!$form->{selectvendor}) { + + if ($form->{"vendor_$i"}) { + ($form->{vendor}) = split /--/, $form->{"vendor_$i"}; + if (($j = $form->get_name(\%myconfig, vendor)) > 1) { + &select_name(vendor, $i); + exit; + } + + if ($j == 1) { + # we got one name + $form->{"vendor_$i"} = qq|$form->{name_list}[0]->{name}--$form->{name_list}[0]->{id}|; + } else { + # name is not on file + $form->error(qq|$form->{"vendor_$i"} : |.$locale->text('Vendor not on file!')); + } + } + } + + if ($form->{"vendor_$i"}) { + push @a, {}; + $j = $#a; + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + + $form->redo_rows(\@flds, \@a, $count, $form->{vendor_rows}); + $form->{vendor_rows} = $count; + +} + + +sub check_customer { + + @flds = qw(customer validfrom validto pricebreak customerprice pricegroup); + @a = (); + $count = 0; + + map { $form->{"${_}_$form->{customer_rows}"} = $form->parse_amount(\%myconfig, $form->{"${_}_$form->{customer_rows}"}) } qw(customerprice pricebreak); + + for $i (1 .. $form->{customer_rows} - 1) { + + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(customerprice pricebreak); + + if ($form->{"customerprice_$i"}) { + if ($form->{"pricebreak_$i"} || $form->{"customer_$i"} || $form->{"pricegroup_$i"}) { + + push @a, {}; + $j = $#a; + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + + } + } + } + + $i = $form->{customer_rows}; + + if (!$form->{selectcustomer}) { + + if ($form->{"customer_$i"}) { + ($form->{customer}) = split /--/, $form->{"customer_$i"}; + + if (($j = $form->get_name(\%myconfig, customer)) > 1) { + &select_name(customer, $i); + exit; + } + + if ($j == 1) { + # we got one name + $form->{"customer_$i"} = qq|$form->{name_list}[0]->{name}--$form->{name_list}[0]->{id}|; + } else { + # name is not on file + $form->error(qq|$form->{customer} : |.$locale->text('Customer not on file!')); + } + } + } + + if ($form->{"customer_$i"} || $form->{"pricegroup_$i"} || ($form->{"customerprice_$i"} || $form->{"pricebreak_$i"})) { + push @a, {}; + $j = $#a; + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + + $form->redo_rows(\@flds, \@a, $count, $form->{customer_rows}); + $form->{customer_rows} = $count; + +} + + + +sub select_name { + my ($table, $vr) = @_; + + @column_index = qw(ndx name address); + + $label = ucfirst $table; + $column_data{ndx} = qq|<th> </th>|; + $column_data{name} = qq|<th class=listheading>|.$locale->text($label).qq|</th>|; + $column_data{address} = qq|<th class=listheading>|.$locale->text('Address').qq|</th>|; + + # list items with radio button on a form + $form->header; + + $title = $locale->text('Select from one of the names below'); + + print qq| +<body> + +<form method=post action="$form->{script}#end"> + +<input type=hidden name=vr value=$vr> + +<table width=100%> + <tr> + <th class=listtop>$title</th> + </tr> + <tr space=5></tr> + <tr> + <td> + <table width=100%> + <tr class=listheading>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + my $i = 0; + foreach $ref (@{ $form->{name_list} }) { + $checked = ($i++) ? "" : "checked"; + + $ref->{name} = $form->quote($ref->{name}); + + $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|; + $column_data{name} = qq|<td><input name="new_name_$i" type=hidden value="$ref->{name}">$ref->{name}</td>|; + $column_data{address} = qq|<td>$ref->{address1} $ref->{address2} $ref->{city} $ref->{state} $ref->{zipcode} $ref->{country}</td>|; + + $j++; $j %= 2; + print qq| + <tr class=listrow$j>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> + +<input name="new_id_$i" type=hidden value=$ref->{id}> + +|; + + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input name=lastndx type=hidden value=$i> + +|; + + # delete variables + map { delete $form->{$_} } qw(action name_list header); + + $form->hide_form(); + + print qq| +<input type=hidden name=nextsub value=name_selected> + +<input type=hidden name=vc value=$table> +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + + +sub name_selected { + + # replace the variable with the one checked + + # index for new item + $i = $form->{ndx}; + + $form->{"$form->{vc}_$form->{vr}"} = qq|$form->{"new_name_$i"}--$form->{"new_id_$i"}|; + $form->{"$form->{vc}_id_$form->{vr}"} = $form->{"new_id_$i"}; + + # delete all the new_ variables + for $i (1 .. $form->{lastndx}) { + map { delete $form->{"new_${_}_$i"} } (id, name); + } + + map { delete $form->{$_} } qw(ndx lastndx nextsub); + + &update; + +} + + +sub save { + + if ($form->{obsolete}) { + $form->error($locale->text("Inventory quantity must be zero before you can set this $form->{item} obsolete!")) if ($form->{onhand}); + } + +# expand dynamic strings +# $locale->text('Inventory quantity must be zero before you can set this part obsolete!') +# $locale->text('Inventory quantity must be zero before you can set this assembly obsolete!') + + $olditem = $form->{id}; + + # save part + $rc = IC->save(\%myconfig, \%$form); + + $parts_id = $form->{id}; + + # load previous variables + if ($form->{previousform} && !$form->{callback}) { + # save the new form variables before splitting previousform + map { $newform{$_} = $form->{$_} } keys %$form; + + $previousform = $form->unescape($form->{previousform}); + $baseassembly = $form->{baseassembly}; + + # don't trample on previous variables + map { delete $form->{$_} } keys %newform; + + # now take it apart and restore original values + foreach $item (split /&/, $previousform) { + ($key, $value) = split /=/, $item, 2; + $value =~ s/%26/&/g; + $form->{$key} = $value; + } + + + if ($form->{item} eq 'assembly') { + + if ($baseassembly) { + #redo the assembly + $previousform =~ /\&id=(\d+)/; + $form->{id} = $1; + + # restore original callback + $form->{callback} = $form->unescape($form->{old_callback}); + + &edit; + exit; + } + + # undo number formatting + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(weight listprice sellprice lastcost rop); + + $form->{assembly_rows}-- if $olditem; + $i = $newform{rowcount}; + $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"}); + + ($dec) = ($form->{listprice} =~ /\.(\d+)/); + $dec = length $dec; + $dec1 = ($dec > 2) ? $dec : 2; + + ($dec) = ($form->{sellprice} =~ /\.(\d+)/); + $dec = length $dec; + $dec2 = ($dec > 2) ? $dec : 2; + + ($dec) = ($form->{lastcost} =~ /\.(\d+)/); + $dec = length $dec; + $dec3 = ($dec > 2) ? $dec : 2; + + $form->{listprice} -= $form->{"listprice_$i"} * $form->{"qty_$i"}; + $form->{sellprice} -= $form->{"sellprice_$i"} * $form->{"qty_$i"}; + $form->{lastcost} -= $form->{"lastcost_$i"} * $form->{"qty_$i"}; + $form->{weight} -= $form->{"weight_$i"} * $form->{"qty_$i"}; + + # change/add values for assembly item + map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit weight listprice sellprice lastcost inventory_accno income_accno expense_accno); + + $form->{listprice} += $form->{"listprice_$i"} * $form->{"qty_$i"}; + $form->{listprice} = $form->round_amount($form->{listprice}, $dec1); + + $form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"}; + $form->{sellprice} = $form->round_amount($form->{sellprice}, $dec2); + + $form->{lastcost} += $form->{"lastcost_$i"} * $form->{"qty_$i"}; + $form->{lastcost} = $form->round_amount($form->{lastcost}, $dec3); + + $form->{weight} += $form->{"weight_$i"} * $form->{"qty_$i"}; + + $form->{"adj_$i"} = 1 if !$olditem; + + $form->{customer_rows}--; + + } else { + # set values for last invoice/order item + $i = $form->{rowcount}; + $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"}); + + map { $form->{"${_}_$i"} = $newform{$_} } qw(partnumber description bin unit listprice inventory_accno income_accno expense_accno sellprice partsgroup); + $form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id}); + + if ($form->{exchangerate} != 0) { + ($dec) = ($newform{sellprice} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + $form->{"sellprice_$i"} = $form->round_amount($form->{"sellprice_$i"} / $form->{exchangerate}, $decimalplaces); + } + + map { $form->{"taxaccounts_$i"} .= "$_ " if ($newform{"IC_tax_$_"}) } split / /, $newform{taxaccounts}; + chop $form->{"taxaccounts_$i"}; + + # credit remaining calculation + $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"}; + map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"}); + map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded}; + + $form->{creditremaining} -= $amount; + + } + + $form->{"id_$i"} = $parts_id; + delete $form->{action}; + + # restore original callback + $callback = $form->unescape($form->{callback}); + $form->{callback} = $form->unescape($form->{old_callback}); + delete $form->{old_callback}; + + $form->{makemodel_rows}--; + + # put callback together + foreach $key (keys %$form) { + # do single escape for Apache 2.0 + $value = $form->escape($form->{$key}, 1); + $callback .= qq|&$key=$value|; + } + $form->{callback} = $callback; + } + + # redirect + $form->redirect; + +} + + +sub save_as_new { + + $form->{id} = 0; + &save; + +} + + +sub delete { + + $rc = IC->delete(\%myconfig, \%$form); + + # redirect + $form->redirect($locale->text('Item deleted!')) if ($rc > 0); + $form->error($locale->text('Cannot delete item!')); + +} + + + +sub stock_assembly { + + $form->{title} = $locale->text('Stock Assembly'); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width="100%"> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr valign=top> + <td> + <table> + <tr> + <th align="right" nowrap="true">|.$locale->text('Number').qq|</th> + <td><input name=partnumber size=20></td> + <td> </td> + </tr> + <tr> + <th align="right" nowrap="true">|.$locale->text('Description').qq|</th> + <td><input name=description size=40></td> + </tr> + <tr> + <td></td> + <td><input name=checkinventory class=checkbox type=checkbox value=1> |.$locale->text('Check Inventory').qq|</td> + </tr> + </table> + </td> + </tr> + <tr><td><hr size=3 noshade></td></tr> +</table> + +<input type=hidden name=sort value=partnumber> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=nextsub value=list_assemblies> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + + + +sub list_assemblies { + + IC->retrieve_assemblies(\%myconfig, \%$form); + + $callback = "$form->{script}?action=list_assemblies&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&checkinventory=$form->{checkinventory}"; + + $form->sort_order(); + $href = "$form->{script}?action=list_assemblies&direction=$form->{direction}&oldsort=$form->{oldsort}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&checkinventory=$form->{checkinventory}"; + + if ($form->{partnumber}) { + $callback .= "&partnumber=".$form->escape($form->{partnumber},1); + $href .= "&partnumber=".$form->escape($form->{partnumber}); + $form->{sort} = "partnumber" unless $form->{sort}; + } + if ($form->{description}) { + $callback .= "&description=".$form->escape($form->{description},1); + $href .= "&description=".$form->escape($form->{description}); + $form->{sort} = "description" unless $form->{sort}; + } + + $column_header{partnumber} = qq|<th><a class=listheading href=$href&sort=partnumber>|.$locale->text('Number').qq|</th>|; + $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</th>|; + $column_header{bin} = qq|<th><a class=listheading href=$href&sort=bin>|.$locale->text('Bin').qq|</th>|; + $column_header{onhand} = qq|<th class=listheading>|.$locale->text('Qty').qq|</th>|; + $column_header{rop} = qq|<th class=listheading>|.$locale->text('ROP').qq|</th>|; + $column_header{stock} = qq|<th class=listheading>|.$locale->text('Add').qq|</th>|; + + @column_index = $form->sort_columns(qw(partnumber description bin onhand rop stock)); + + $form->{title} = $locale->text('Stock Assembly'); + + + $form->header; + + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr size=5></tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "\n$column_header{$_}" } @column_index; + + print qq| + </tr> +|; + + # add sort and escape callback + $form->{callback} = $callback .= "&sort=$form->{sort}"; + + # escape callback for href + $callback = $form->escape($callback); + + + $i = 1; + foreach $ref (@{ $form->{assembly_items} }) { + + map { $ref->{$_} = $form->quote($ref->{$_}) } qw(partnumber description); + + $column_data{partnumber} = "<td width=20%><a href=$form->{script}?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partnumber} </a></td>"; + + $column_data{description} = qq|<td width=50%>$ref->{description} </td>|; + $column_data{bin} = qq|<td>$ref->{bin} </td>|; + $column_data{onhand} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{onhand}, "", " ").qq|</td>|; + $column_data{rop} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{rop}, '', " ").qq|</td>|; + $column_data{stock} = qq|<td width=10%><input name="qty_$i" size=10 value=|.$form->format_amount(\%myconfig, $ref->{stock}).qq|></td> + <input type=hidden name="stock_$i" value=$ref->{stock}>|; + + $j++; $j %= 2; + print qq|<tr class=listrow$j><input name="id_$i" type=hidden value=$ref->{id}>\n|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + $i++; + + } + + $i--; + print qq| + </td> + </table> + <tr> + <td><hr size=3 noshade> + </tr> +</table> + +<input name=rowcount type=hidden value="$i"> +<input type=hidden name=checkinventory value=$form->{checkinventory}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=nextsub value=restock_assemblies> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> + +</form> + +</body> +</html> +|; + +} + + +sub restock_assemblies { + + + if ($form->{checkinventory}) { + map { $form->error($locale->text('Quantity exceeds available units to stock!')) if $form->parse_amount($myconfig, $form->{"qty_$_"}) > $form->{"stock_$_"} }(1 .. $form->{rowcount}); + } + + $form->redirect($locale->text('Assemblies restocked!')) if (IC->restock_assemblies(\%myconfig, \%$form)); + $form->error($locale->text('Cannot stock assemblies!')); + +} + + +sub continue { &{ $form->{nextsub} } }; + +sub add_part { &add }; +sub add_service { &add }; +sub add_assembly { &add }; +sub add_labor_overhead { &add }; + + diff --git a/sql-ledger/bin/mozilla/io.pl b/sql-ledger/bin/mozilla/io.pl new file mode 100644 index 000000000..22228a9f8 --- /dev/null +++ b/sql-ledger/bin/mozilla/io.pl @@ -0,0 +1,1637 @@ +###################################################################### +# SQL-Ledger, Accounting +# Copyright (c) 2002 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +####################################################################### +# +# common routines used in is, ir, oe +# +####################################################################### + +# any custom scripts for this one +if (-f "$form->{path}/custom_io.pl") { + eval { require "$form->{path}/custom_io.pl"; }; +} +if (-f "$form->{path}/$form->{login}_io.pl") { + eval { require "$form->{path}/$form->{login}_io.pl"; }; +} + + +1; +# end of main + + +# this is for our long dates +# $locale->text('January') +# $locale->text('February') +# $locale->text('March') +# $locale->text('April') +# $locale->text('May ') +# $locale->text('June') +# $locale->text('July') +# $locale->text('August') +# $locale->text('September') +# $locale->text('October') +# $locale->text('November') +# $locale->text('December') + +# this is for our short month +# $locale->text('Jan') +# $locale->text('Feb') +# $locale->text('Mar') +# $locale->text('Apr') +# $locale->text('May') +# $locale->text('Jun') +# $locale->text('Jul') +# $locale->text('Aug') +# $locale->text('Sep') +# $locale->text('Oct') +# $locale->text('Nov') +# $locale->text('Dec') + + +sub display_row { + my $numrows = shift; + + @column_index = qw(runningnumber partnumber description qty); + + if ($form->{type} eq "sales_order") { + push @column_index, "ship"; + $column_data{ship} = qq|<th class=listheading align=center width="auto">|.$locale->text('Ship').qq|</th>|; + } + if ($form->{type} eq "purchase_order") { + push @column_index, "ship"; + $column_data{ship} = qq|<th class=listheading align=center width="auto">|.$locale->text('Recd').qq|</th>|; + } + + foreach $item (qw(projectnumber partsgroup)) { + $form->{"select$item"} = $form->unescape($form->{"select$item"}) if $form->{"select$item"}; + } + + if ($form->{language_code} ne $form->{oldlanguage_code}) { + # rebuild partsgroup + $form->get_partsgroup(\%myconfig, { language_code => $form->{language_code} }); + if (@ { $form->{all_partsgroup} }) { + $form->{selectpartsgroup} = "<option>\n"; + foreach $ref (@ { $form->{all_partsgroup} }) { + if ($ref->{translation}) { + $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{translation}\n|; + } else { + $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|; + } + } + } + $form->{oldlanguage_code} = $form->{language_code}; + } + + + push @column_index, qw(unit sellprice discount linetotal); + + my $colspan = $#column_index + 1; + + $form->{invsubtotal} = 0; + map { $form->{"${_}_base"} = 0 } (split / /, $form->{taxaccounts}); + + $column_data{runningnumber} = qq|<th class=listheading nowrap>|.$locale->text('No.').qq|</th>|; + $column_data{partnumber} = qq|<th class=listheading nowrap>|.$locale->text('Number').qq|</th>|; + $column_data{description} = qq|<th class=listheading nowrap>|.$locale->text('Description').qq|</th>|; + $column_data{qty} = qq|<th class=listheading nowrap>|.$locale->text('Qty').qq|</th>|; + $column_data{unit} = qq|<th class=listheading nowrap>|.$locale->text('Unit').qq|</th>|; + $column_data{sellprice} = qq|<th class=listheading nowrap>|.$locale->text('Price').qq|</th>|; + $column_data{discount} = qq|<th class=listheading>%</th>|; + $column_data{linetotal} = qq|<th class=listheading nowrap>|.$locale->text('Extended').qq|</th>|; + $column_data{bin} = qq|<th class=listheading nowrap>|.$locale->text('Bin').qq|</th>|; + + print qq| + <tr> + <td> + <table width=100%> + <tr class=listheading>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + + $deliverydate = $locale->text('Delivery Date'); + $serialnumber = $locale->text('Serial No.'); + $projectnumber = $locale->text('Project'); + $group = $locale->text('Group'); + $sku = $locale->text('SKU'); + + $delvar = 'deliverydate'; + + if ($form->{type} =~ /_(order|quotation)$/) { + $reqdate = $locale->text('Required by'); + $delvar = 'reqdate'; + } + + $exchangerate = $form->parse_amount(\%myconfig, $form->{exchangerate}); + $exchangerate = ($exchangerate) ? $exchangerate : 1; + + for $i (1 .. $numrows) { + # undo formatting + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(qty ship discount sellprice); + + ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + if (($form->{"qty_$i"} != $form->{"oldqty_$i"}) || ($form->{currency} ne $form->{oldcurrency})) { + # check for a pricematrix + @a = split / /, $form->{"pricematrix_$i"}; + if ((scalar @a) > 2 || $form->{currency} ne $form->{oldcurrency}) { + foreach $item (@a) { + ($q, $p) = split /:/, $item; + if ($p != 0 && $form->{"qty_$i"} > $q) { + $form->{"sellprice_$i"} = $form->round_amount($p / $exchangerate, $decimalplaces); + } + } + } + } + + $discount = $form->round_amount($form->{"sellprice_$i"} * $form->{"discount_$i"}/100, $decimalplaces); + $linetotal = $form->round_amount($form->{"sellprice_$i"} - $discount, $decimalplaces); + $linetotal = $form->round_amount($linetotal * $form->{"qty_$i"}, 2); + + map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber sku description unit); + + $skunumber = qq| + <p><b>$sku</b> $form->{"sku_$i"}| if ($form->{vc} eq 'vendor' && $form->{"sku_$i"}); + + + if ($form->{selectpartsgroup}) { + if ($i < $numrows) { + $partsgroup = qq| + <p><b>$group</b> + <input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">|; + ($form->{"partsgroup_$i"}) = split /--/, $form->{"partsgroup_$i"}; + $partsgroup .= $form->{"partsgroup_$i"}; + $partsgroup = "" unless $form->{"partsgroup_$i"}; + } + } + + $delivery = qq| + <b>${$delvar}</b> + <input name="${delvar}_$i" size=11 title="$myconfig{dateformat}" value="$form->{"${delvar}_$i"}"> +|; + + $column_data{runningnumber} = qq|<td><input name="runningnumber_$i" size=3 value=$i></td>|; + $column_data{partnumber} = qq|<td><input name="partnumber_$i" size=15 value="$form->{"partnumber_$i"}">$skunumber</td>|; + + if (($rows = $form->numtextrows($form->{"description_$i"}, 25, 6)) > 1) { + $column_data{description} = qq|<td><textarea name="description_$i" rows=$rows cols=25 wrap=soft>$form->{"description_$i"}</textarea>$partsgroup</td>|; + } else { + $column_data{description} = qq|<td><input name="description_$i" size=30 value="$form->{"description_$i"}">$partsgroup</td>|; + } + + $column_data{qty} = qq|<td align=right><input name="qty_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"qty_$i"}).qq|></td>|; + $column_data{ship} = qq|<td align=right><input name="ship_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"ship_$i"}).qq|></td>|; + $column_data{unit} = qq|<td><input name="unit_$i" size=5 value="$form->{"unit_$i"}"></td>|; + $column_data{sellprice} = qq|<td align=right><input name="sellprice_$i" size=9 value=|.$form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces).qq|></td>|; + $column_data{discount} = qq|<td align=right><input name="discount_$i" size=3 value=|.$form->format_amount(\%myconfig, $form->{"discount_$i"}).qq|></td>|; + $column_data{linetotal} = qq|<td align=right>|.$form->format_amount(\%myconfig, $linetotal, 2).qq|</td>|; + $column_data{bin} = qq|<td>$form->{"bin_$i"}</td>|; + + print qq| + <tr valign=top>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> + +<input type=hidden name="orderitems_id_$i" value=$form->{"orderitems_id_$i"}> + +<input type=hidden name="id_$i" value=$form->{"id_$i"}> +<input type=hidden name="inventory_accno_$i" value=$form->{"inventory_accno_$i"}> +<input type=hidden name="bin_$i" value="$form->{"bin_$i"}"> +<input type=hidden name="weight_$i" value="$form->{"weight_$i"}"> +<input type=hidden name="income_accno_$i" value=$form->{"income_accno_$i"}> +<input type=hidden name="expense_accno_$i" value=$form->{"expense_accno_$i"}> +<input type=hidden name="listprice_$i" value="$form->{"listprice_$i"}"> +<input type=hidden name="assembly_$i" value="$form->{"assembly_$i"}"> +<input type=hidden name="taxaccounts_$i" value="$form->{"taxaccounts_$i"}"> +<input type=hidden name="pricematrix_$i" value="$form->{"pricematrix_$i"}"> +<input type=hidden name="oldqty_$i" value="$form->{"qty_$i"}"> +<input type=hidden name="sku_$i" value="$form->{"sku_$i"}"> + +|; + + $form->{selectprojectnumber} =~ s/ selected//; + $form->{selectprojectnumber} =~ s/(<option value="\Q$form->{"projectnumber_$i"}\E")/$1 selected/; + + $project = qq| + <b>$projectnumber</b> + <select name="projectnumber_$i">$form->{selectprojectnumber}</select> +| if $form->{selectprojectnumber}; + + $serial = qq| + <b>$serialnumber</b> <input name="serialnumber_$i" size=15 value="$form->{"serialnumber_$i"}">| if $form->{type} !~ /_quotation/; + + $partsgroup = ""; + if ($i == $numrows) { + if ($form->{selectpartsgroup}) { + $partsgroup = qq| + <b>$group</b> + <select name="partsgroup_$i">$form->{selectpartsgroup}</select> +|; + } + + $serial = ""; + $project = ""; + $delivery = "" + } + + + # print second row + print qq| + <tr> + <td colspan=$colspan> + $delivery + $serial + $project + $partsgroup + </td> + </tr> + <tr> + <td colspan=$colspan><hr size=1 noshade></td> + </tr> +|; + + $skunumber = ""; + + map { $form->{"${_}_base"} += $linetotal } (split / /, $form->{"taxaccounts_$i"}); + + $form->{invsubtotal} += $linetotal; + } + + print qq| + </table> + </td> + </tr> +|; + + print qq| + +<input type=hidden name=oldcurrency value=$form->{currency}> +<input type=hidden name=audittrail value="$form->{audittrail}"> + +<input type=hidden name=selectpartsgroup value="|.$form->escape($form->{selectpartsgroup},1).qq|"> +<input type=hidden name=selectprojectnumber value="|.$form->escape($form->{selectprojectnumber},1).qq|"> +|; + +} + + +sub select_item { + + if ($form->{vc} eq "vendor") { + @column_index = qw(ndx partnumber sku description partsgroup onhand sellprice); + } else { + @column_index = qw(ndx partnumber description partsgroup onhand sellprice); + } + + $column_data{ndx} = qq|<th> </th>|; + $column_data{partnumber} = qq|<th class=listheading>|.$locale->text('Number').qq|</th>|; + $column_data{sku} = qq|<th class=listheading>|.$locale->text('SKU').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{sellprice} = qq|<th class=listheading>|.$locale->text('Price').qq|</th>|; + $column_data{onhand} = qq|<th class=listheading>|.$locale->text('Qty').qq|</th>|; + + $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1; + + # list items with radio button on a form + $form->header; + + $title = $locale->text('Select from one of the items below'); + + print qq| +<body> + +<form method=post action="$form->{script}#end"> + +<table width=100%> + <tr> + <th class=listtop>$title</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + my $i = 0; + foreach $ref (@{ $form->{item_list} }) { + $checked = ($i++) ? "" : "checked"; + + map { $ref->{$_} = $form->quote($ref->{$_}) } qw(sku partnumber description unit); + + $ref->{sellprice} = $form->round_amount($ref->{sellprice} * (1 - $form->{tradediscount}), 2); + + $column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|; + $column_data{partnumber} = qq|<td>$ref->{partnumber}</td>|; + $column_data{sku} = qq|<td>$ref->{sku}</td>|; + $column_data{description} = qq|<td>$ref->{description}</td>|; + $column_data{partsgroup} = qq|<td>$ref->{partsgroup}</td>|; + $column_data{sellprice} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{sellprice} / $exchangerate, 2, " ").qq|</td>|; + $column_data{onhand} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{onhand}, '', " ").qq|</td>|; + + $j++; $j %= 2; + print qq| + <tr class=listrow$j>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> + +<input name="new_partnumber_$i" type=hidden value="$ref->{partnumber}"> +<input name="new_sku_$i" type=hidden value="$ref->{sku}"> +<input name="new_description_$i" type=hidden value="$ref->{description}"> +<input name="new_partsgroup_$i" type=hidden value="$ref->{partsgroup}"> +<input name="new_partsgroup_id_$i" type=hidden value="$ref->{partsgroup_id}"> +<input name="new_bin_$i" type=hidden value="$ref->{bin}"> +<input name="new_weight_$i" type=hidden value=$ref->{weight}> +<input name="new_sellprice_$i" type=hidden value=$ref->{sellprice}> +<input name="new_listprice_$i" type=hidden value=$ref->{listprice}> +<input name="new_lastcost_$i" type=hidden value=$ref->{lastcost}> +<input name="new_onhand_$i" type=hidden value=$ref->{onhand}> +<input name="new_inventory_accno_$i" type=hidden value=$ref->{inventory_accno}> +<input name="new_income_accno_$i" type=hidden value=$ref->{income_accno}> +<input name="new_expense_accno_$i" type=hidden value=$ref->{expense_accno}> +<input name="new_unit_$i" type=hidden value="$ref->{unit}"> +<input name="new_weight_$i" type=hidden value="$ref->{weight}"> +<input name="new_assembly_$i" type=hidden value="$ref->{assembly}"> +<input name="new_taxaccounts_$i" type=hidden value="$ref->{taxaccounts}"> +<input name="new_pricematrix_$i" type=hidden value="$ref->{pricematrix}"> + +<input name="new_id_$i" type=hidden value=$ref->{id}> + +|; + + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input name=lastndx type=hidden value=$i> + +|; + + # delete action variable + map { delete $form->{$_} } qw(action item_list header); + + $form->hide_form(); + + print qq| +<input type=hidden name=nextsub value=item_selected> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + + +sub item_selected { + + # replace the last row with the checked row + $i = $form->{rowcount}; + $i = $form->{assembly_rows} if ($form->{item} eq 'assembly'); + + # index for new item + $j = $form->{ndx}; + + # if there was a price entered, override it + $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"}); + + map { $form->{"${_}_$i"} = $form->{"new_${_}_$j"} } qw(id partnumber sku description sellprice listprice lastcost inventory_accno income_accno expense_accno bin unit weight assembly taxaccounts pricematrix); + + $form->{"partsgroup_$i"} = qq|$form->{"new_partsgroup_$j"}--$form->{"new_partsgroup_id_$j"}|; + + ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + if ($sellprice) { + $form->{"sellprice_$i"} = $sellprice; + } else { + # if there is an exchange rate adjust sellprice + if (($form->{exchangerate} * 1) != 0) { + $form->{"sellprice_$i"} /= $form->{exchangerate}; + $form->{"sellprice_$i"} = $form->round_amount($form->{"sellprice_$i"}, $decimalplaces); + } + } + + if (($form->{exchangerate} * 1) != 0) { + map { $form->{"${_}_$i"} /= $form->{exchangerate} } qw(listprice lastcost); + } + + # this is for the assembly + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(sellprice listprice weight); + + $form->{sellprice} += ($form->{"sellprice_$i"} * $form->{"qty_$i"}); + $form->{weight} += ($form->{"weight_$i"} * $form->{"qty_$i"}); + + $amount = $form->{"sellprice_$i"} * (1 - $form->{"discount_$i"} / 100) * $form->{"qty_$i"}; + map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"}); + map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded}; + + $form->{creditremaining} -= $amount; + + $form->{"runningnumber_$i"} = $i; + + # delete all the new_ variables + for $i (1 .. $form->{lastndx}) { + map { delete $form->{"new_${_}_$i"} } qw(partnumber sku description sellprice bin listprice lastcost inventory_accno income_accno expense_accno unit assembly taxaccounts id pricematrix weight); + } + + map { delete $form->{$_} } qw(ndx lastndx nextsub); + + # format amounts + map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice listprice lastcost) if $form->{item} ne 'assembly'; + + &display_form; + +} + + +sub new_item { + + if ($form->{language_code} && $form->{"description_$form->{rowcount}"}) { + $form->error($locale->text('Translation not on file!')); + } + + # change callback + $form->{old_callback} = $form->escape($form->{callback},1); + $form->{callback} = $form->escape("$form->{script}?action=display_form",1); + + # delete action + delete $form->{action}; + + # save all other form variables in a previousform variable + if (!$form->{previousform}) { + foreach $key (keys %$form) { + # escape ampersands + $form->{$key} =~ s/&/%26/g; + $form->{previousform} .= qq|$key=$form->{$key}&|; + } + chop $form->{previousform}; + $form->{previousform} = $form->escape($form->{previousform}, 1); + } + + $i = $form->{rowcount}; + map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber description); + + $form->header; + + print qq| +<body> + +<h4 class=error>|.$locale->text('Item not on file!').qq|</h4>|; + + if ($myconfig{acs} !~ /(Goods \& Services--Add Part|Goods \& Services--Add Service)/) { + + print qq| +<h4>|.$locale->text('What type of item is this?').qq|</h4> + +<form method=post action=ic.pl> + +<p> + + <input class=radio type=radio name=item value=part checked> |.$locale->text('Part') +.qq|<br> + <input class=radio type=radio name=item value=service> |.$locale->text('Service') + +.qq| +<input type=hidden name=previousform value="$form->{previousform}"> +<input type=hidden name=partnumber value="$form->{"partnumber_$i"}"> +<input type=hidden name=description value="$form->{"description_$i"}"> +<input type=hidden name=rowcount value=$form->{rowcount}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=nextsub value=add> + +<p> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> +|; + } + + print qq| +</body> +</html> +|; + +} + + + +sub display_form { + + # if we have a display_form + if ($form->{display_form}) { + &{ "$form->{display_form}" }; + exit; + } + + &form_header; + + $numrows = ++$form->{rowcount}; + $subroutine = "display_row"; + + if ($form->{item} eq 'part') { + # create makemodel rows + &makemodel_row(++$form->{makemodel_rows}); + + &vendor_row(++$form->{vendor_rows}); + + $numrows = ++$form->{customer_rows}; + $subroutine = "customer_row"; + } + if ($form->{item} eq 'assembly') { + # create makemodel rows + &makemodel_row(++$form->{makemodel_rows}); + + $numrows = ++$form->{customer_rows}; + $subroutine = "customer_row"; + } + if ($form->{item} eq 'service') { + &vendor_row(++$form->{vendor_rows}); + + $numrows = ++$form->{customer_rows}; + $subroutine = "customer_row"; + } + if ($form->{item} eq 'labor') { + $numrows = 0; + } + + # create rows + &{ $subroutine }($numrows) if $numrows; + + &form_footer; + +} + + + +sub check_form { + + my @a = (); + my $count = 0; + my $i; + my $j; + my @flds = qw(id partnumber sku description qty ship sellprice unit discount inventory_accno income_accno expense_accno listprice taxaccounts bin assembly weight projectnumber runningnumber serialnumber partsgroup reqdate pricematrix); + + # remove any makes or model rows + if ($form->{item} eq 'part') { + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(listprice sellprice lastcost weight rop markup); + + &calc_markup; + + @flds = qw(make model); + $count = 0; + @a = (); + for $i (1 .. $form->{makemodel_rows}) { + if (($form->{"make_$i"} ne "") || ($form->{"model_$i"} ne "")) { + push @a, {}; + $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + + $form->redo_rows(\@flds, \@a, $count, $form->{makemodel_rows}); + $form->{makemodel_rows} = $count; + + &check_vendor; + &check_customer; + + } elsif ($form->{item} eq 'service') { + + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(sellprice listprice lastcost markup); + + &calc_markup; + &check_vendor; + &check_customer; + + } elsif ($form->{item} eq 'assembly') { + + $form->{sellprice} = 0; + $form->{weight} = 0; + $form->{lastcost} = 0; + $form->{listprice} = 0; + + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(rop stock markup); + + + @flds = qw(id qty unit bom adj partnumber description sellprice listprice weight runningnumber partsgroup); + $count = 0; + @a = (); + + for my $i (1 .. ($form->{assembly_rows} - 1)) { + if ($form->{"qty_$i"}) { + push @a, {}; + my $j = $#a; + + $form->{"qty_$i"} = $form->parse_amount(\%myconfig, $form->{"qty_$i"}); + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + + map { $form->{$_} += ($form->{"${_}_$i"} * $form->{"qty_$i"}) } qw(sellprice listprice weight lastcost); + + $count++; + } + } + + if ($form->{markup} && $form->{markup} != $form->{oldmarkup}) { + $form->{sellprice} = 0; + &calc_markup; + } + + map { $form->{$_} = $form->round_amount($form->{$_}, 2) } qw(sellprice lastcost listprice); + + $form->redo_rows(\@flds, \@a, $count, $form->{assembly_rows}); + $form->{assembly_rows} = $count; + + $count = 0; + @flds = qw(make model); + @a = (); + + for my $i (1 .. ($form->{makemodel_rows})) { + if (($form->{"make_$i"} ne "") || ($form->{"model_$i"} ne "")) { + push @a, {}; + my $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + + $form->redo_rows(\@flds, \@a, $count, $form->{makemodel_rows}); + $form->{makemodel_rows} = $count; + + &check_customer; + + } else { + + # this section applies to invoices and orders + # remove any empty numbers + + $count = 0; + @a = (); + if ($form->{rowcount}) { + for my $i (1 .. $form->{rowcount} - 1) { + if ($form->{"partnumber_$i"}) { + push @a, {}; + my $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + + $form->redo_rows(\@flds, \@a, $count, $form->{rowcount}); + $form->{rowcount} = $count; + + $form->{creditremaining} -= &invoicetotal; + + } + } + + &display_form; + +} + + +sub calc_markup { + + if ($form->{markup}) { + if ($form->{markup} != $form->{oldmarkup}) { + if ($form->{lastcost}) { + $form->{sellprice} = $form->{lastcost} * (1 + $form->{markup}/100); + $form->{sellprice} = $form->round_amount($form->{sellprice}, 2); + } else { + $form->{lastcost} = $form->{sellprice} / (1 + $form->{markup}/100); + $form->{lastcost} = $form->round_amount($form->{lastcost}, 2); + } + } + } else { + if ($form->{lastcost}) { + $form->{markup} = $form->round_amount(((1 - $form->{sellprice} / $form->{lastcost}) * 100), 1); + } + $form->{markup} = "" if $form->{markup} == 0; + } + +} + + +sub invoicetotal { + + $form->{oldinvtotal} = 0; + # add all parts and deduct paid + map { $form->{"${_}_base"} = 0 } split / /, $form->{taxaccounts}; + + my ($amount, $sellprice, $discount, $qty); + + for my $i (1 .. $form->{rowcount}) { + $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"}); + $discount = $form->parse_amount(\%myconfig, $form->{"discount_$i"}); + $qty = $form->parse_amount(\%myconfig, $form->{"qty_$i"}); + + $amount = $sellprice * (1 - $discount / 100) * $qty; + map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"}); + $form->{oldinvtotal} += $amount; + } + + map { $form->{oldinvtotal} += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{taxaccounts} if !$form->{taxincluded}; + + $form->{oldtotalpaid} = 0; + for $i (1 .. $form->{paidaccounts}) { + $form->{oldtotalpaid} += $form->{"paid_$i"}; + } + + # return total + ($form->{oldinvtotal} - $form->{oldtotalpaid}); + +} + + +sub validate_items { + + # check if items are valid + if ($form->{rowcount} == 1) { + &update; + exit; + } + + for $i (1 .. $form->{rowcount} - 1) { + $form->isblank("partnumber_$i", $locale->text('Number missing in Row') . " $i"); + } + +} + + + +sub purchase_order { + + $form->{title} = $locale->text('Add Purchase Order'); + $form->{vc} = 'vendor'; + $form->{type} = 'purchase_order'; + $buysell = 'sell'; + + &create_form; + +} + + +sub sales_order { + + $form->{title} = $locale->text('Add Sales Order'); + $form->{vc} = 'customer'; + $form->{type} = 'sales_order'; + $buysell = 'buy'; + + &create_form; + +} + + +sub rfq { + + $form->{title} = $locale->text('Add Request for Quotation'); + $form->{vc} = 'vendor'; + $form->{type} = 'request_quotation'; + $buysell = 'sell'; + + &create_form; + +} + + +sub quotation { + + $form->{title} = $locale->text('Add Quotation'); + $form->{vc} = 'customer'; + $form->{type} = 'sales_quotation'; + $buysell = 'buy'; + + &create_form; + +} + + +sub create_form { + + map { delete $form->{$_} } qw(id printed emailed queued); + + $form->{script} = 'oe.pl'; + + $form->{shipto} = 1; + + $form->{rowcount}-- if $form->{rowcount}; + + require "$form->{path}/$form->{script}"; + + map { $form->{"select$_"} = "" } ($form->{vc}, currency); + + map { $temp{$_} = $form->{$_} } qw(currency employee department intnotes notes language_code); + + &order_links; + + map { $form->{$_} = $temp{$_} if $temp{$_} } keys %temp; + + $form->{exchangerate} = ""; + $form->{forex} = ""; + if ($form->{currency} ne $form->{defaultcurrency}) { + $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, $buysell))); + } + + &prepare_order; + + &display_form; + +} + + + +sub e_mail { + + $bcc = qq|<input type=hidden name=bcc value="$form->{bcc}">|; + if ($myconfig{role} =~ /(admin|manager)/) { + $bcc = qq| + <th align=right nowrap=true>|.$locale->text('Bcc').qq|</th> + <td><input name=bcc size=30 value="$form->{bcc}"></td> +|; + } + + if ($form->{formname} =~ /(pick|packing|bin)_list/) { + $form->{email} = $form->{shiptoemail} if $form->{shiptoemail}; + } + + $name = $form->{$form->{vc}}; + $name =~ s/--.*//g; + $title = $locale->text('E-mail')." $name"; + + $form->header; + + print qq| +<body> + +<form method=post action="$form->{script}#end"> + +<table width=100%> + <tr class=listtop> + <th class=listtop>$title</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width=100%> + <tr> + <th align=right nowrap>|.$locale->text('E-mail').qq|</th> + <td><input name=email size=30 value="$form->{email}"></td> + <th align=right nowrap>|.$locale->text('Cc').qq|</th> + <td><input name=cc size=30 value="$form->{cc}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Subject').qq|</th> + <td><input name=subject size=30 value="$form->{subject}"></td> + $bcc + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table width=100%> + <tr> + <th align=left nowrap>|.$locale->text('Message').qq|</th> + </tr> + <tr> + <td><textarea name=message rows=15 cols=60 wrap=soft>$form->{message}</textarea></td> + </tr> + </table> + </td> + </tr> + <tr> + <td> +|; + + $form->{oldmedia} = $form->{media}; + $form->{media} = "email"; + $form->{format} = "pdf"; + + &print_options; + + map { delete $form->{$_} } qw(action email cc bcc subject message formname sendmode format header); + + $form->hide_form(); + + print qq| + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=nextsub value=send_email> + +<br> +<input name=action class=submit type=submit value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + +sub send_email { + + $old_form = new Form; + + map { $old_form->{$_} = $form->{$_} } keys %$form; + $old_form->{media} = $old_form->{oldmedia}; + + &print_form($old_form); + +} + + + +sub print_options { + + $form->{sendmode} = "attachment"; + $form->{copies} = 1 unless $form->{copies}; + + $form->{PD}{$form->{formname}} = "selected"; + $form->{DF}{$form->{format}} = "selected"; + $form->{SM}{$form->{sendmode}} = "selected"; + + if ($form->{selectlanguage}) { + $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"}); + $form->{"selectlanguage"} =~ s/ selected//; + $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/; + $lang = qq|<td><select name=language_code>$form->{selectlanguage}</select></td> + <input type=hidden name=oldlanguage_code value=$form->{oldlanguage_code}> + <input type=hidden name=selectlanguage value="|. + $form->escape($form->{selectlanguage},1).qq|">|; + } + + if ($form->{type} eq 'purchase_order') { + $type = qq|<td><select name=formname> + <option value=purchase_order $form->{PD}{purchase_order}>|.$locale->text('Purchase Order').qq| + <option value=bin_list $form->{PD}{bin_list}>|.$locale->text('Bin List').qq|</select></td>|; + } + + if ($form->{type} eq 'sales_order') { + $type = qq|<td><select name=formname> + <option value=sales_order $form->{PD}{sales_order}>|.$locale->text('Sales Order').qq| + <option value=work_order $form->{PD}{work_order}>|.$locale->text('Work Order').qq| + <option value=pick_list $form->{PD}{pick_list}>|.$locale->text('Pick List').qq| + <option value=packing_list $form->{PD}{packing_list}>|.$locale->text('Packing List').qq|</select></td>|; + } + + if ($form->{type} =~ /_quotation$/) { + $type = qq|<td><select name=formname> + <option value="$`_quotation" $form->{PD}{"$`_quotation"}>|.$locale->text('Quotation').qq|</select></td>|; + } + + if ($form->{type} eq 'invoice') { + $type = qq|<td><select name=formname> + <option value=invoice $form->{PD}{invoice}>|.$locale->text('Invoice').qq| + <option value=pick_list $form->{PD}{pick_list}>|.$locale->text('Pick List').qq| + <option value=packing_list $form->{PD}{packing_list}>|.$locale->text('Packing List').qq|</select></td>|; + } + + if ($form->{type} eq 'ship_order') { + $type = qq|<td><select name=formname> + <option value=pick_list $form->{PD}{pick_list}>|.$locale->text('Pick List').qq| + <option value=packing_list $form->{PD}{packing_list}>|.$locale->text('Packing List').qq|</select></td>|; + } + + if ($form->{type} eq 'receive_order') { + $type = qq|<td><select name=formname> + <option value=bin_list $form->{PD}{bin_list}>|.$locale->text('Bin List').qq|</select></td>|; + } + + if ($form->{media} eq 'email') { + $media = qq|<td><select name=sendmode> + <option value=attachment $form->{SM}{attachment}>|.$locale->text('Attachment').qq| + <option value=inline $form->{SM}{inline}>|.$locale->text('In-line').qq|</select></td>|; + } else { + $media = qq|<td><select name=media> + <option value=screen>|.$locale->text('Screen'); + if (%printer && $latex) { + map { $media .= qq| + <option value="$_">$_| } sort keys %printer; + } + if ($latex) { + $media .= qq| + <option value="queue">|.$locale->text('Queue'); + } + $media .= qq|</select></td>|; + + # set option selected + $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/; + + } + + $format = qq|<td><select name=format> + <option value=html $form->{DF}{html}>html|; + +# <option value=txt $form->{DF}{txt}>txt|; + + if ($latex) { + $format .= qq| + <option value=postscript $form->{DF}{postscript}>|.$locale->text('Postscript').qq| + <option value=pdf $form->{DF}{pdf}>|.$locale->text('PDF'); + } + $format .= qq|</select></td>|; + + print qq| +<table width=100% cellspacing=0 cellpadding=0> + <tr> + <td> + <table> + <tr> + $type + $lang + $format + $media +|; + + if (%printer && $latex && $form->{media} ne 'email') { + print qq| + <td>|.$locale->text('Copies').qq| + <input name=copies size=2 value=$form->{copies}></td> +|; + } + + $form->{groupprojectnumber} = "checked" if $form->{groupprojectnumber}; + $form->{grouppartsgroup} = "checked" if $form->{grouppartsgroup}; + + print qq| + <td>|.$locale->text('Group Items').qq|</td> + <td> + <input name=groupprojectnumber type=checkbox class=checkbox $form->{groupprojectnumber}> + |.$locale->text('Project').qq| + <input name=grouppartsgroup type=checkbox class=checkbox $form->{grouppartsgroup}> + |.$locale->text('Group').qq| + </td> + </tr> + </table> + </td> + <td align=right> +|; + + if ($form->{printed} =~ /$form->{formname}/) { + print $locale->text('Printed').qq|<br>|; + } + + if ($form->{emailed} =~ /$form->{formname}/) { + print $locale->text('E-mailed').qq|<br>|; + } + + if ($form->{queued} =~ /$form->{formname}/) { + print $locale->text('Queued'); + } + + print qq| + </td> + </tr> +</table> +|; + + +} + + + +sub print { + + # if this goes to the printer pass through + if ($form->{media} !~ /(screen|email)/) { + $form->error($locale->text('Select txt, postscript or PDF!')) if ($form->{format} !~ /(txt|postscript|pdf)/); + + $old_form = new Form; + map { $old_form->{$_} = $form->{$_} } keys %$form; + + } + + &print_form($old_form); + +} + + +sub print_form { + my ($old_form) = @_; + + $inv = "inv"; + $due = "due"; + + $numberfld = "sinumber"; + + $display_form = ($form->{display_form}) ? $form->{display_form} : "display_form"; + + if ($form->{formname} eq "invoice") { + $form->{label} = $locale->text('Invoice'); + } + if ($form->{formname} eq 'sales_order') { + $inv = "ord"; + $due = "req"; + $form->{label} = $locale->text('Sales Order'); + $numberfld = "sonumber"; + $order = 1; + } + if ($form->{formname} eq 'work_order') { + $inv = "ord"; + $due = "req"; + $form->{label} = $locale->text('Work Order'); + $numberfld = "sonumber"; + $order = 1; + } + if ($form->{formname} eq 'packing_list') { + # we use the same packing list as from an invoice + $form->{label} = $locale->text('Packing List'); + + if ($form->{type} ne 'invoice') { + $inv = "ord"; + $due = "req"; + $numberfld = "sonumber"; + $order = 1; + } + } + if ($form->{formname} eq 'pick_list') { + $form->{label} = $locale->text('Pick List'); + if ($form->{type} ne 'invoice') { + $inv = "ord"; + $due = "req"; + $order = 1; + $numberfld = "sonumber"; + } + } + if ($form->{formname} eq 'purchase_order') { + $inv = "ord"; + $due = "req"; + $form->{label} = $locale->text('Purchase Order'); + $numberfld = "ponumber"; + $order = 1; + } + if ($form->{formname} eq 'bin_list') { + $inv = "ord"; + $due = "req"; + $form->{label} = $locale->text('Bin List'); + $numberfld = "ponumber"; + $order = 1; + } + if ($form->{formname} eq 'sales_quotation') { + $inv = "quo"; + $due = "req"; + $form->{label} = $locale->text('Quotation'); + $numberfld = "sqnumber"; + $order = 1; + } + if ($form->{formname} eq 'request_quotation') { + $inv = "quo"; + $due = "req"; + $form->{label} = $locale->text('Quotation'); + $numberfld = "rfqnumber"; + $order = 1; + } + + $form->{"${inv}date"} = $form->{transdate}; + + $form->isblank("email", $locale->text('E-mail address missing!')) if ($form->{media} eq 'email'); + $form->isblank("${inv}date", $locale->text($form->{label} .' Date missing!')); + + # get next number + if (! $form->{"${inv}number"}) { + $form->{"${inv}number"} = $form->update_defaults(\%myconfig, $numberfld); + if ($form->{media} eq 'screen') { + &update; + exit; + } + } + + +# $locale->text('Invoice Number missing!') +# $locale->text('Invoice Date missing!') +# $locale->text('Packing List Number missing!') +# $locale->text('Packing List Date missing!') +# $locale->text('Order Number missing!') +# $locale->text('Order Date missing!') +# $locale->text('Quotation Number missing!') +# $locale->text('Quotation Date missing!') + + &validate_items; + + &{ "$form->{vc}_details" }; + + @a = (); + foreach $i (1 .. $form->{rowcount}) { + push @a, ("partnumber_$i", "description_$i", "projectnumber_$i", "partsgroup_$i", "serialnumber_$i", "bin_$i", "unit_$i"); + } + map { push @a, "${_}_description" } split / /, $form->{taxaccounts}; + + $ARAP = ($form->{vc} eq 'customer') ? "AR" : "AP"; + push @a, $ARAP; + + # format payment dates + for $i (1 .. $form->{paidaccounts} - 1) { + if (exists $form->{longformat}) { + $form->{"datepaid_$i"} = $locale->date(\%myconfig, $form->{"datepaid_$i"}, $form->{longformat}); + } + + push @a, "${ARAP}_paid_$i", "source_$i", "memo_$i"; + } + + $form->format_string(@a); + + ($form->{employee}) = split /--/, $form->{employee}; + ($form->{warehouse}, $form->{warehouse_id}) = split /--/, $form->{warehouse}; + + # this is a label for the subtotals + $form->{groupsubtotaldescription} = $locale->text('Subtotal') if not exists $form->{groupsubtotaldescription}; + delete $form->{groupsubtotaldescription} if $form->{deletegroupsubtotal}; + + # create the form variables + if ($order) { + OE->order_details(\%myconfig, \%$form); + } else { + IS->invoice_details(\%myconfig, \%$form); + } + + if (exists $form->{longformat}) { + map { $form->{$_} = $locale->date(\%myconfig, $form->{$_}, $form->{longformat}) } ("${inv}date", "${due}date", "shippingdate", "transdate"); + } + + @a = qw(name address1 address2 city state zipcode country); + + $shipto = 1; + # if there is no shipto fill it in from billto + foreach $item (@a) { + if ($form->{"shipto$item"}) { + $shipto = 0; + last; + } + } + + if ($shipto) { + if ($form->{formname} eq 'purchase_order' || $form->{formname} eq 'request_quotation') { + $form->{shiptoname} = $myconfig{company}; + $form->{shiptoaddress1} = $myconfig{address}; + } else { + if ($form->{formname} !~ /bin_list/) { + map { $form->{"shipto$_"} = $form->{$_} } @a; + } + } + } + + $form->{notes} =~ s/^\s+//g; + + # some of the stuff could have umlauts so we translate them + push @a, qw(contact shiptoname shiptoaddress1 shiptoaddress2 shiptocity shiptostate shiptozipcode shiptocountry shiptocontact shiptoemail shippingpoint shipvia notes employee warehouse); + + push @a, ("${inv}number", "${inv}date", "${due}date", "email", "cc", "bcc"); + + map { $form->{$_} = $myconfig{$_} } (qw(company address tel fax signature businessnumber)); + map { $form->{"user$_"} = $myconfig{$_} } qw(name email); + push @a, qw(company address tel fax signature businessnumber username useremail); + + $form->format_string(@a); + + + $form->{templates} = "$myconfig{templates}"; + $form->{IN} = "$form->{formname}.$form->{format}"; + + if ($form->{format} =~ /(postscript|pdf)/) { + $form->{IN} =~ s/$&$/tex/; + } + + $form->{pre} = "<body bgcolor=#ffffff>\n<pre>" if $form->{format} eq 'txt'; + + if ($form->{media} !~ /(screen|queue|email)/) { + $form->{OUT} = "| $printer{$form->{media}}"; + + if ($form->{printed} !~ /$form->{formname}/) { + + $form->{printed} .= " $form->{formname}"; + $form->{printed} =~ s/^ //; + + $form->update_status(\%myconfig); + } + + $old_form->{printed} = $form->{printed}; + + %audittrail = ( tablename => ($order) ? 'oe' : lc $ARAP, + reference => $form->{"${inv}number"}, + formname => $form->{formname}, + action => 'printed', + id => $form->{id} ); + + $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail); + + } + + + if ($form->{media} eq 'email') { + $form->{subject} = qq|$form->{label} $form->{"${inv}number"}| unless $form->{subject}; + + $form->{plainpaper} = 1; + $form->{OUT} = "$sendmail"; + + if ($form->{emailed} !~ /$form->{formname}/) { + $form->{emailed} .= " $form->{formname}"; + $form->{emailed} =~ s/^ //; + + # save status + $form->update_status(\%myconfig); + } + + $now = scalar localtime; + $cc = $locale->text('Cc').qq|: $form->{cc}\n| if $form->{cc}; + $bcc = $locale->text('Bcc').qq|: $form->{bcc}\n| if $form->{bcc}; + + $old_form->{intnotes} = qq|$old_form->{intnotes}\n\n| if $old_form->{intnotes}; + $old_form->{intnotes} .= qq|[email] +|.$locale->text('Date').qq|: $now +|.$locale->text('To').qq|: $form->{email} +$cc${bcc}|.$locale->text('Subject').qq|: $form->{subject}\n|; + + $old_form->{intnotes} .= qq|\n|.$locale->text('Message').qq|: |; + $old_form->{intnotes} .= ($form->{message}) ? $form->{message} : $locale->text('sent'); + + $old_form->{message} = $form->{message}; + $old_form->{emailed} = $form->{emailed}; + + $old_form->{format} = "postscript" if $myconfig{printer}; + $old_form->{media} = $myconfig{printer}; + + $old_form->save_intnotes(\%myconfig, ($order) ? 'oe' : lc $ARAP); + + %audittrail = ( tablename => ($order) ? 'oe' : lc $ARAP, + reference => $form->{"${inv}number"}, + formname => $form->{formname}, + action => 'emailed', + id => $form->{id} ); + + $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail); + } + + + if ($form->{media} eq 'queue') { + %queued = split / /, $form->{queued}; + + if ($filename = $queued{$form->{formname}}) { + $form->{queued} =~ s/$form->{formname} $filename//; + unlink "$spool/$filename"; + $filename =~ s/\..*$//g; + } else { + $filename = time; + $filename .= $$; + } + + $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf'; + $form->{OUT} = ">$spool/$filename"; + + $form->{queued} .= " $form->{formname} $filename"; + $form->{queued} =~ s/^ //; + + # save status + $form->update_status(\%myconfig); + + $old_form->{queued} = $form->{queued}; + + %audittrail = ( tablename => ($order) ? 'oe' : lc $ARAP, + reference => $form->{"${inv}number"}, + formname => $form->{formname}, + action => 'queued', + id => $form->{id} ); + + $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail); + + } + + + $form->{fileid} = $form->{"${inv}number"}; + $form->{fileid} =~ s/(\s|\W)+//g; + + $form->parse_template(\%myconfig, $userspath); + + # if we got back here restore the previous form + if ($old_form) { + + $old_form->{"${inv}number"} = $form->{"${inv}number"}; + + # restore and display form + map { $form->{$_} = $old_form->{$_} } keys %$old_form; + delete $form->{pre}; + + $form->{rowcount}--; + + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining); + + for $i (1 .. $form->{paidaccounts}) { + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate); + } + + &{ "$display_form" }; + + } + +} + + +sub customer_details { + + IS->customer_details(\%myconfig, \%$form); + +} + + +sub vendor_details { + + IR->vendor_details(\%myconfig, \%$form); + +} + + +sub post_as_new { + + $form->{postasnew} = 1; + map { delete $form->{$_} } qw(printed emailed queued); + + &post; + +} + + +sub ship_to { + + $title = $form->{title}; + $form->{title} = $locale->text('Ship to'); + + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining); + + # get details for name + &{ "$form->{vc}_details" }; + + $number = ($form->{vc} eq 'customer') ? $locale->text('Customer Number') : $locale->text('Vendor Number'); + + $nextsub = ($form->{display_form}) ? $form->{display_form} : "display_form"; + + $form->{rowcount}--; + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <td> + <table> + <tr class=listheading> + <th class=listheading colspan=2 width=50%>|.$locale->text('Billing Address').qq|</th> + <th class=listheading width=50%>|.$locale->text('Shipping Address').qq|</th> + </tr> + <tr height="5"></tr> + <tr> + <th align=right nowrap>$number</th> + <td>$form->{"$form->{vc}number"}</td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Company Name').qq|</th> + <td>$form->{name}</td> + <td><input name=shiptoname size=35 maxlength=64 value="$form->{shiptoname}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Address').qq|</th> + <td>$form->{address1}</td> + <td><input name=shiptoaddress1 size=35 maxlength=32 value="$form->{shiptoaddress1}"></td> + </tr> + <tr> + <th></th> + <td>$form->{address2}</td> + <td><input name=shiptoaddress2 size=35 maxlength=32 value="$form->{shiptoaddress2}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('City').qq|</th> + <td>$form->{city}</td> + <td><input name=shiptocity size=35 maxlength=32 value="$form->{shiptocity}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('State/Province').qq|</th> + <td>$form->{state}</td> + <td><input name=shiptostate size=35 maxlength=32 value="$form->{shiptostate}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Zip/Postal Code').qq|</th> + <td>$form->{zipcode}</td> + <td><input name=shiptozipcode size=10 maxlength=10 value="$form->{shiptozipcode}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Country').qq|</th> + <td>$form->{country}</td> + <td><input name=shiptocountry size=35 maxlength=32 value="$form->{shiptocountry}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Contact').qq|</th> + <td>$form->{contact}</td> + <td><input name=shiptocontact size=35 maxlength=64 value="$form->{shiptocontact}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Phone').qq|</th> + <td>$form->{"$form->{vc}phone"}</td> + <td><input name=shiptophone size=20 value="$form->{shiptophone}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Fax').qq|</th> + <td>$form->{"$form->{vc}fax"}</td> + <td><input name=shiptofax size=20 value="$form->{shiptofax}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('E-mail').qq|</th> + <td>$form->{email}</td> + <td><input name=shiptoemail size=35 value="$form->{shiptoemail}"></td> + </tr> + </table> + </td> + </tr> +</table> + +<input type=hidden name=nextsub value=$nextsub> +|; + + # delete shipto + map { delete $form->{$_} } qw(shiptoname shiptoaddress1 shiptoaddress2 shiptocity shiptostate shiptozipcode shiptocountry shiptocontact shiptophone shiptofax shiptoemail header); + $form->{title} = $title; + + $form->hide_form(); + + print qq| + +<hr size=3 noshade> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + diff --git a/sql-ledger/bin/mozilla/ir.pl b/sql-ledger/bin/mozilla/ir.pl new file mode 100644 index 000000000..080ac2415 --- /dev/null +++ b/sql-ledger/bin/mozilla/ir.pl @@ -0,0 +1,806 @@ +#===================================================================== +# SQL-Ledger, Accounting +# Copyright (c) 2001 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# Inventory received module +# +#====================================================================== + + +use SL::IR; +use SL::PE; + +require "$form->{path}/io.pl"; +require "$form->{path}/arap.pl"; + +1; +# end of main + + + +sub add { + + $form->{title} = $locale->text('Add Vendor Invoice'); + + $form->{callback} = "$form->{script}?action=add&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}" unless $form->{callback}; + &invoice_links; + &prepare_invoice; + &display_form; + +} + + +sub edit { + + $form->{title} = $locale->text('Edit Vendor Invoice'); + + &invoice_links; + &prepare_invoice; + &display_form; + +} + + +sub invoice_links { + + $form->{vc} = "vendor"; + + # create links + $form->create_links("AP", \%myconfig, "vendor"); + + # currencies + @curr = split /:/, $form->{currencies}; + chomp $curr[0]; + $form->{defaultcurrency} = $curr[0]; + + map { $form->{selectcurrency} .= "<option>$_\n" } @curr; + + if ($form->{all_vendor}) { + unless ($form->{vendor_id}) { + $form->{vendor_id} = $form->{all_vendor}->[0]->{id}; + } + } + + IR->get_vendor(\%myconfig, \%$form); + delete $form->{notes}; + IR->retrieve_invoice(\%myconfig, \%$form); + + $form->{oldlanguage_code} = $form->{language_code}; + + $form->get_partsgroup(\%myconfig, { language_code => $form->{language_code} }); + if (@ { $form->{all_partsgroup} }) { + $form->{selectpartsgroup} = "<option>\n"; + foreach $ref (@ { $form->{all_partsgroup} }) { + if ($ref->{translation}) { + $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{translation}\n|; + } else { + $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|; + } + } + } + + if (@{ $form->{all_projects} }) { + $form->{selectprojectnumber} = "<option>\n"; + map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } @{ $form->{all_projects} }; + } + + $form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}"; + $form->{oldtransdate} = $form->{transdate}; + + # vendors + if ($form->{all_vendor}) { + $form->{vendor} = "$form->{vendor}--$form->{vendor_id}"; + map { $form->{selectvendor} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_vendor} }); + } + + # departments + if ($form->{all_departments}) { + $form->{selectdepartment} = "<option>\n"; + $form->{department} = "$form->{department}--$form->{department_id}"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + if (@{ $form->{all_languages} }) { + $form->{selectlanguage} = "<option>\n"; + map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} }; + } + + # forex + $form->{forex} = $form->{exchangerate}; + $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1; + + foreach $key (keys %{ $form->{AP_links} }) { + + foreach $ref (@{ $form->{AP_links}{$key} }) { + $form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n"; + } + + if ($key eq "AP_paid") { + for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) { + $form->{"AP_paid_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}"; + # reverse paid + $form->{"paid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{amount}; + $form->{"datepaid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{transdate}; + $form->{"forex_$i"} = $form->{"exchangerate_$i"} = $form->{acc_trans}{$key}->[$i-1]->{exchangerate}; + $form->{"source_$i"} = $form->{acc_trans}{$key}->[$i-1]->{source}; + $form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i-1]->{memo}; + + $form->{paidaccounts} = $i; + } + } else { + $form->{$key} = "$form->{acc_trans}{$key}->[0]->{accno}--$form->{acc_trans}{$key}->[0]->{description}"; + } + + } + + $form->{paidaccounts} = 1 unless (exists $form->{paidaccounts}); + + $form->{AP} = $form->{AP_1} unless $form->{id}; + + $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig)); + + $form->{readonly} = 1 if $myconfig{acs} =~ /AP--Vendor Invoice/; + +} + + + +sub prepare_invoice { + + $form->{type} = "invoice"; + $form->{oldcurrency} = $form->{currency}; + + if ($form->{id}) { + + map { $form->{$_} = $form->quote($form->{$_}) } qw(invnumber ordnumber quonumber); + + foreach $ref (@{ $form->{invoice_details} }) { + $i++; + map { $form->{"${_}_$i"} = $ref->{$_} } keys %{ $ref }; + + $form->{"projectnumber_$i"} = qq|$ref->{projectnumber}--$ref->{project_id}|; + $form->{"partsgroup_$i"} = qq|$ref->{partsgroup}--$ref->{partsgroup_id}|; + + $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100); + + ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces); + $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}); + $form->{"oldqty_$i"} = $form->{"qty_$i"}; + + map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber sku description unit); + + $form->{rowcount} = $i; + } + } + +} + + + +sub form_header { + + # set option selected + foreach $item (qw(AP currency)) { + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; + } + + foreach $item (qw(vendor department)) { + $form->{"select$item"} = $form->unescape($form->{"select$item"}); + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/; + } + + if ($form->{selectlanguage}) { + $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"}); + $form->{"selectlanguage"} =~ s/ selected//; + $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/; + + $lang = qq| + <tr> + <th align=right nowrap>|.$locale->text('Language').qq|</th> + <td><select name=language_code>$form->{selectlanguage}</select></td> + <input type=hidden name=oldlanguage_code value=$form->{oldlanguage_code}> + <input type=hidden name="selectlanguage" value="|. + $form->escape($form->{selectlanguage},1).qq|"> + </tr> +|; + + } + + + $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate}); + + $exchangerate = ""; + if ($form->{currency} ne $form->{defaultcurrency}) { + if ($form->{forex}) { + $exchangerate .= qq| + <th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th> + <td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td> +|; + } else { + $exchangerate .= qq| + <th align=right nowrap>|.$locale->text('Exchange Rate').qq|</th> + <td><input name=exchangerate size=10 value=$form->{exchangerate}></td> +|; + } + } + $exchangerate .= qq| +<input type=hidden name=forex value=$form->{forex}> +|; + + if ($form->{selectvendor}) { + $vendor = qq|<select name=vendor>$form->{selectvendor}</select> + <input type=hidden name="selectvendor" value="|. + $form->escape($form->{selectvendor},1).qq|">|; + } else { + $vendor = qq|<input name=vendor value="$form->{vendor}" size=35>|; + } + + $department = qq| + <tr> + <th align="right" nowrap>|.$locale->text('Department').qq|</th> + <td colspan=3><select name=department>$form->{selectdepartment}</select> + <input type=hidden name=selectdepartment value="|. + $form->escape($form->{selectdepartment},1).qq|"> + </td> + </tr> +| if $form->{selectdepartment}; + + $n = ($form->{creditremaining} < 0) ? "0" : "1"; + + + $form->header; + + print qq| +<body> + +<form method=post action="$form->{script}#end"> + +<input type=hidden name=id value=$form->{id}> +<input type=hidden name=title value="$form->{title}"> +<input type=hidden name=vc value="vendor"> +<input type=hidden name=type value=$form->{type}> + +<input type=hidden name=terms value=$form->{terms}> + +<input type=hidden name=creditlimit value=$form->{creditlimit}> +<input type=hidden name=creditremaining value=$form->{creditremaining}> + +<input type=hidden name=closedto value=$form->{closedto}> +<input type=hidden name=locked value=$form->{locked}> + +<input type=hidden name=shipped value=$form->{shipped}> + +<input type=hidden name=oldtransdate value=$form->{oldtransdate}> + +<table width=100%> + <tr class=listtop> + <th>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width=100%> + <tr valign=top> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Vendor').qq|</th> + <td colspan=3>$vendor</td> + + <input type=hidden name=vendor_id value=$form->{vendor_id}> + <input type=hidden name=oldvendor value="$form->{oldvendor}"> + + </tr> + <tr> + <td></td> + <td colspan=3> + <table> + <tr> + <th nowrap>|.$locale->text('Credit Limit').qq|</th> + <td>|.$form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0").qq|</td> + <td width=20%></td> + <th nowrap>|.$locale->text('Remaining').qq|</th> + <td class="plus$n" nowrap>|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</td> + </tr> + </table> + </td> + <tr> + <th align=right>|.$locale->text('Record in').qq|</th> + <td colspan=3><select name=AP>$form->{selectAP}</select></td> + <input type=hidden name=selectAP value="$form->{selectAP}"> + </tr> + $department + <tr> + <th align=right nowrap>|.$locale->text('Currency').qq|</th> + <td><select name=currency>$form->{selectcurrency}</select></td> + $exchangerate + </tr> + </table> + </td> + <td align=right> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Invoice Number').qq|</th> + <td><input name=invnumber size=20 value="$form->{invnumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Order Number').qq|</th> + <td><input name=ordnumber size=20 value="$form->{ordnumber}"></td> +<input type=hidden name=quonumber value="$form->{quonumber}"> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Invoice Date').qq|</th> + <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Due Date').qq|</th> + <td><input name=duedate size=11 title="$myconfig{dateformat}" value=$form->{duedate}></td> + </tr> + $lang + </table> + </td> + </tr> + </table> + </td> + </tr> +<input type=hidden name=selectcurrency value="$form->{selectcurrency}"> +<input type=hidden name=defaultcurrency value=$form->{defaultcurrency}> +<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}> +<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}> + +<input type=hidden name=taxpart value="$form->{taxpart}"> +<input type=hidden name=taxservice value="$form->{taxservice}"> + +<input type=hidden name=taxaccounts value="$form->{taxaccounts}"> +|; + + foreach $item (split / /, $form->{taxaccounts}) { + print qq| +<input type=hidden name="${item}_rate" value=$form->{"${item}_rate"}> +<input type=hidden name="${item}_description" value="$form->{"${item}_description"}"> +|; + } + +} + + + +sub form_footer { + + $form->{invtotal} = $form->{invsubtotal}; + + if (($rows = $form->numtextrows($form->{notes}, 25, 8)) < 2) { + $rows = 2; + } + if (($introws = $form->numtextrows($form->{intnotes}, 35, 8)) < 2) { + $introws = 2; + } + $rows = ($rows > $introws) ? $rows : $introws; + $notes = qq|<textarea name=notes rows=$rows cols=25 wrap=soft>$form->{notes}</textarea>|; + $intnotes = qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|; + + $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : ""; + + $taxincluded = ""; + if ($form->{taxaccounts}) { + $taxincluded = qq| + <input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}> <b>|.$locale->text('Tax Included').qq|</b> +|; + } + + if (!$form->{taxincluded}) { + + foreach $item (split / /, $form->{taxaccounts}) { + if ($form->{"${item}_base"}) { + $form->{invtotal} += $form->{"${item}_total"} = $form->round_amount($form->{"${item}_base"} * $form->{"${item}_rate"}, 2); + $form->{"${item}_total"} = $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2); + + $tax .= qq| + <tr> + <th align=right>$form->{"${item}_description"}</th> + <td align=right>$form->{"${item}_total"}</td> + </tr> +|; + } + } + + $form->{invsubtotal} = $form->format_amount(\%myconfig, $form->{invsubtotal}, 2, 0); + + $subtotal = qq| + <tr> + <th align=right>|.$locale->text('Subtotal').qq|</th> + <td align=right>$form->{invsubtotal}</td> + </tr> +|; + + } + + + $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2, 0); + + print qq| + <tr> + <td> + <table width=100%> + <tr valign=bottom> + <td> + <table> + <tr> + <th align=left>|.$locale->text('Notes').qq|</th> + <th align=left>|.$locale->text('Internal Notes').qq|</th> + </tr> + <tr valign=top> + <td>$notes</td> + <td>$intnotes</td> + </tr> + </table> + </td> + <td align=right> + $taxincluded + <br> + <table> + $subtotal + $tax + <tr> + <th align=right>|.$locale->text('Total').qq|</th> + <td align=right>$form->{invtotal}</td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table width=100%> + <tr> + <th colspan=6 class=listheading>|.$locale->text('Payments').qq|</th> + </tr> +|; + + if ($form->{currency} eq $form->{defaultcurrency}) { + @column_index = qw(datepaid source memo paid AP_paid); + } else { + @column_index = qw(datepaid source memo paid exchangerate AP_paid); + } + + $column_data{datepaid} = "<th>".$locale->text('Date')."</th>"; + $column_data{paid} = "<th>".$locale->text('Amount')."</th>"; + $column_data{exchangerate} = "<th>".$locale->text('Exch')."</th>"; + $column_data{AP_paid} = "<th>".$locale->text('Account')."</th>"; + $column_data{source} = "<th>".$locale->text('Source')."</th>"; + $column_data{memo} = "<th>".$locale->text('Memo')."</th>"; + + print qq| + <tr> +|; + map { print "$column_data{$_}\n" } @column_index; + print qq| + </tr> +|; + + $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"}); + for $i (1 .. $form->{paidaccounts}) { + + print qq| + <tr> +|; + + $form->{"selectAP_paid_$i"} = $form->{selectAP_paid}; + $form->{"selectAP_paid_$i"} =~ s/option>\Q$form->{"AP_paid_$i"}\E/option selected>$form->{"AP_paid_$i"}/; + + # format amounts + $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2); + $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"}); + + $exchangerate = qq| |; + if ($form->{currency} ne $form->{defaultcurrency}) { + if ($form->{"forex_$i"}) { + $exchangerate = qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|; + } else { + $exchangerate = qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|; + } + } + $exchangerate .= qq| +<input type=hidden name="forex_$i" value=$form->{"forex_$i"}> +|; + + $column_data{"paid_$i"} = qq|<td align=center><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>|; + $column_data{"exchangerate_$i"} = qq|<td align=center>$exchangerate</td>|; + $column_data{"AP_paid_$i"} = qq|<td align=center><select name="AP_paid_$i">$form->{"selectAP_paid_$i"}</select></td>|; + $column_data{"datepaid_$i"} = qq|<td align=center><input name="datepaid_$i" size=11 title="$myconfig{dateformat}" value=$form->{"datepaid_$i"}></td>|; + $column_data{"source_$i"} = qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|; + $column_data{"memo_$i"} = qq|<td align=center><input name="memo_$i" size=11 value=$form->{"memo_$i"}></td>|; + + map { print qq|$column_data{"${_}_$i"}\n| } @column_index; + + print qq| + </tr> +|; + } + + print qq| + <input type=hidden name=paidaccounts value=$form->{paidaccounts}> + <input type=hidden name=selectAP_paid value="$form->{selectAP_paid}"> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +<br> +|; + + $transdate = $form->datetonum($form->{transdate}, \%myconfig); + $closedto = $form->datetonum($form->{closedto}, \%myconfig); + + if (! $form->{readonly}) { + if ($form->{id}) { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> +|; + + if (!$form->{locked}) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Post').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Delete').qq|"> +|; + } + + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Post as new').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Purchase Order').qq|"> +|; + + } else { + if ($transdate > $closedto) { + print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Post').qq|">|; + } + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + +print qq| + +<input type=hidden name=rowcount value=$form->{rowcount}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +</form> + +<a name="end"></a> + +</body> +</html> +|; + +} + + + +sub update { + + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate); + + &check_name(vendor); + + if ($form->{transdate} ne $form->{oldtransdate}) { + $form->{duedate} = $form->current_date(\%myconfig, $form->{transdate}, $form->{terms} * 1); + $form->{oldtransdate} = $form->{transdate}; + } + + + $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, 'sell'))); + + $j = 1; + for $i (1 .. $form->{paidaccounts}) { + if ($form->{"paid_$i"}) { + map { $form->{"${_}_$j"} = $form->{"${_}_$i"} } qw(datepaid source memo); + map { $form->{"${_}_$j"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate); + + $form->{"exchangerate_$j"} = $exchangerate if ($form->{"forex_$j"} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$j"}, 'sell'))); + map { delete $form->{"${_}_$i"} } qw(datepaid source memo paid exchangerate forex) if $j != $i; + } else { + map { delete $form->{"${_}_$i"} } qw(datepaid source memo paid exchangerate forex); + } + $form->{paidaccounts} = $j; + } + + $i = $form->{rowcount}; + $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1; + + foreach $item (qw(partsgroup projectnumber)) { + $form->{"select$item"} = $form->unescape($form->{"select$item"}) if $form->{"select$item"}; + } + + if (($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "") && ($form->{"partsgroup_$i"} eq "")) { + + &check_form; + + } else { + + $form->{transdate} = $form->{oldtransdate}; + IR->retrieve_item(\%myconfig, \%$form); + + my $rows = scalar @{ $form->{item_list} }; + + if ($rows) { + $form->{"qty_$i"} = 1 unless ($form->{"qty_$i"}); + + if ($rows > 1) { + + &select_item; + exit; + + } else { + # override sellprice if there is one entered + $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"}); + + map { $form->{item_list}[$i]{$_} = $form->quote($form->{item_list}[$i]{$_}) } qw(partnumber description unit); + + map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] }; + + $s = ($sellprice) ? $sellprice : $form->{"sellprice_$i"}; + + ($dec) = ($s =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + if ($sellprice) { + $form->{"sellprice_$i"} = $sellprice; + } else { + # if there is an exchange rate adjust sellprice + $form->{"sellprice_$i"} /= $exchangerate; + } + + $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces); + $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}); + } + + &display_form; + + } else { + # ok, so this is a new part + # ask if it is a part or service item + + if ($form->{"partsgroup_$i"} && ($form->{"partsnumber_$i"} eq "") && ($form->{"description_$i"} eq "")) { + $form->{rowcount}--; + $form->{"discount_$i"} = ""; + &display_form; + } else { + + $form->{"id_$i"} = 0; + $form->{"unit_$i"} = $locale->text('ea'); + + &new_item; + + } + } + } +} + + + +sub post { + + $form->isblank("transdate", $locale->text('Invoice Date missing!')); + $form->isblank("vendor", $locale->text('Vendor missing!')); + + # if the vendor changed get new values + if (&check_name(vendor)) { + &update; + exit; + } + + &validate_items; + + $closedto = $form->datetonum($form->{closedto}, \%myconfig); + $transdate = $form->datetonum($form->{transdate}, \%myconfig); + + $form->error($locale->text('Cannot post invoice for a closed period!')) if ($transdate <= $closedto); + + $form->isblank("exchangerate", $locale->text('Exchange rate missing!')) if ($form->{currency} ne $form->{defaultcurrency}); + + for $i (1 .. $form->{paidaccounts}) { + if ($form->{"paid_$i"}) { + $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig); + + $form->isblank("datepaid_$i", $locale->text('Payment date missing!')); + + $form->error($locale->text('Cannot post payment for a closed period!')) if ($datepaid <= $closedto); + + if ($form->{currency} ne $form->{defaultcurrency}) { + $form->{"exchangerate_$i"} = $form->{exchangerate} if ($transdate == $datepaid); + $form->isblank("exchangerate_$i", $locale->text('Exchange rate for payment missing!')); + } + } + } + + + ($form->{AP}) = split /--/, $form->{AP}; + ($form->{AP_paid}) = split /--/, $form->{AP_paid}; + + $form->{id} = 0 if $form->{postasnew}; + + $form->{invnumber} = $form->update_defaults(\%myconfig, "vinumber") unless $form->{invnumber}; + + $form->redirect($locale->text('Invoice')." $form->{invnumber} ".$locale->text('posted!')) if (IR->post_invoice(\%myconfig, \%$form)); + $form->error($locale->text('Cannot post invoice!')); + +} + + + +sub delete { + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> +|; + + # delete action variable + map { delete $form->{$_} } qw(action header); + + $form->hide_form(); + + print qq| +<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2> + +<h4>|.$locale->text('Are you sure you want to delete Invoice Number').qq| $form->{invnumber}</h4> +<p> +<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|"> +</form> +|; + + +} + + + +sub yes { + + $form->redirect($locale->text('Invoice deleted!')) if (IR->delete_invoice(\%myconfig, \%$form)); + $form->error($locale->text('Cannot delete invoice!')); + +} + + diff --git a/sql-ledger/bin/mozilla/is.pl b/sql-ledger/bin/mozilla/is.pl new file mode 100644 index 000000000..605380d5d --- /dev/null +++ b/sql-ledger/bin/mozilla/is.pl @@ -0,0 +1,932 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2001 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# Inventory invoicing module +# +#====================================================================== + + +use SL::IS; +use SL::PE; + +require "$form->{path}/arap.pl"; +require "$form->{path}/io.pl"; + + +1; +# end of main + + + +sub add { + + $form->{title} = $locale->text('Add Sales Invoice'); + + $form->{callback} = "$form->{script}?action=add&type=$form->{type}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &invoice_links; + &prepare_invoice; + &display_form; + +} + + +sub edit { + + $form->{title} = $locale->text('Edit Sales Invoice'); + + &invoice_links; + &prepare_invoice; + &display_form; + +} + + +sub invoice_links { + + $form->{vc} = 'customer'; + + # create links + $form->create_links("AR", \%myconfig, "customer"); + + # currencies + @curr = split /:/, $form->{currencies}; + chomp $curr[0]; + $form->{defaultcurrency} = $curr[0]; + + map { $form->{selectcurrency} .= "<option>$_\n" } @curr; + + if ($form->{all_customer}) { + unless ($form->{customer_id}) { + $form->{customer_id} = $form->{all_customer}->[0]->{id}; + } + } + + IS->get_customer(\%myconfig, \%$form); + delete $form->{notes}; + IS->retrieve_invoice(\%myconfig, \%$form); + + $form->{oldlanguage_code} = $form->{language_code}; + + $form->get_partsgroup(\%myconfig, { language_code => $form->{language_code} }); + if (@{ $form->{all_partsgroup} }) { + $form->{selectpartsgroup} = "<option>\n"; + foreach $ref (@ { $form->{all_partsgroup} }) { + if ($ref->{translation}) { + $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{translation}\n|; + } else { + $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|; + } + } + } + + if (@{ $form->{all_projects} }) { + $form->{selectprojectnumber} = "<option>\n"; + map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } @{ $form->{all_projects} }; + } + + $form->{oldcustomer} = "$form->{customer}--$form->{customer_id}"; + $form->{oldtransdate} = $form->{transdate}; + + if ($form->{all_customer}) { + $form->{customer} = "$form->{customer}--$form->{customer_id}"; + map { $form->{selectcustomer} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_customer} }); + } + + # departments + if ($form->{all_departments}) { + $form->{selectdepartment} = "<option>\n"; + $form->{department} = "$form->{department}--$form->{department_id}"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + $form->{employee} = "$form->{employee}--$form->{employee_id}"; + # sales staff + if ($form->{all_employees}) { + $form->{selectemployee} = ""; + map { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_employees} }); + } + + if (@{ $form->{all_languages} }) { + $form->{selectlanguage} = "<option>\n"; + map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} }; + } + + # forex + $form->{forex} = $form->{exchangerate}; + $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1; + + foreach $key (keys %{ $form->{AR_links} }) { + foreach $ref (@{ $form->{AR_links}{$key} }) { + $form->{"select$key"} .= "<option>$ref->{accno}--$ref->{description}\n"; + } + + if ($key eq "AR_paid") { + for $i (1 .. scalar @{ $form->{acc_trans}{$key} }) { + $form->{"AR_paid_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}"; + # reverse paid + $form->{"paid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{amount} * -1; + $form->{"datepaid_$i"} = $form->{acc_trans}{$key}->[$i-1]->{transdate}; + $form->{"forex_$i"} = $form->{"exchangerate_$i"} = $form->{acc_trans}{$key}->[$i-1]->{exchangerate}; + $form->{"source_$i"} = $form->{acc_trans}{$key}->[$i-1]->{source}; + $form->{"memo_$i"} = $form->{acc_trans}{$key}->[$i-1]->{memo}; + + $form->{paidaccounts} = $i; + } + } else { + $form->{$key} = "$form->{acc_trans}{$key}->[0]->{accno}--$form->{acc_trans}{$key}->[0]->{description}"; + } + + } + + $form->{paidaccounts} = 1 unless (exists $form->{paidaccounts}); + + $form->{AR} = $form->{AR_1} unless $form->{id}; + + $form->{locked} = ($form->{revtrans}) ? '1' : ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig)); + + $form->{readonly} = 1 if $myconfig{acs} =~ /AR--Sales Invoice/; + +} + + +sub prepare_invoice { + + $form->{type} = "invoice"; + $form->{formname} = "invoice"; + $form->{format} = "postscript" if $myconfig{printer}; + $form->{media} = $myconfig{printer}; + + $form->{oldcurrency} = $form->{currency}; + + if ($form->{id}) { + + map { $form->{$_} = $form->quote($form->{$_}) } qw(invnumber ordnumber quonumber shippingpoint shipvia notes intnotes); + + foreach $ref (@{ $form->{invoice_details} } ) { + $i++; + map { $form->{"${_}_$i"} = $ref->{$_} } keys %{ $ref }; + + $form->{"projectnumber_$i"} = qq|$ref->{projectnumber}--$ref->{project_id}|; + $form->{"partsgroup_$i"} = qq|$ref->{partsgroup}--$ref->{partsgroup_id}|; + + $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100); + + ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces); + $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}); + $form->{"oldqty_$i"} = $form->{"qty_$i"}; + + map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber sku description unit); + $form->{rowcount} = $i; + } + } + +} + + + +sub form_header { + + # set option selected + foreach $item (qw(AR currency)) { + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; + } + + foreach $item (qw(customer department employee)) { + $form->{"select$item"} = $form->unescape($form->{"select$item"}); + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/; + } + + $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate}); + + + $exchangerate = ""; + if ($form->{currency} ne $form->{defaultcurrency}) { + if ($form->{forex}) { + $exchangerate .= qq|<th align=right>|.$locale->text('Exchange Rate').qq|</th><td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td>|; + } else { + $exchangerate .= qq|<th align=right>|.$locale->text('Exchange Rate').qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td>|; + } + } + $exchangerate .= qq| +<input type=hidden name=forex value=$form->{forex}> +|; + + if ($form->{selectcustomer}) { + $customer = qq|<select name=customer>$form->{selectcustomer}</select> + <input type=hidden name="selectcustomer" value="|. + $form->escape($form->{selectcustomer},1).qq|">|; + } else { + $customer = qq|<input name=customer value="$form->{customer}" size=35>|; + } + + $department = qq| + <tr> + <th align="right" nowrap>|.$locale->text('Department').qq|</th> + <td colspan=3><select name=department>$form->{selectdepartment}</select> + <input type=hidden name=selectdepartment value="|. + $form->escape($form->{selectdepartment},1).qq|"> + </td> + </tr> +| if $form->{selectdepartment}; + + + $n = ($form->{creditremaining} < 0) ? "0" : "1"; + + + if ($form->{business}) { + $business = qq| + <tr> + <th align=right>|.$locale->text('Business').qq|</th> + <td>$form->{business}</td> + <th align=right>|.$locale->text('Trade Discount').qq|</th> + <td>|.$form->format_amount(\%myconfig, $form->{tradediscount} * 100).qq| %</td> + </tr> +|; + } + + + $form->header; + + print qq| +<body> + +<form method=post action="$form->{script}#end"> + +<input type=hidden name=id value=$form->{id}> + +<input type=hidden name=type value=$form->{type}> +<input type=hidden name=media value=$form->{media}> +<input type=hidden name=format value=$form->{format}> + +<input type=hidden name=queued value="$form->{queued}"> +<input type=hidden name=printed value="$form->{printed}"> +<input type=hidden name=emailed value="$form->{emailed}"> + +<input type=hidden name=title value="$form->{title}"> +<input type=hidden name=vc value=$form->{vc}> + +<input type=hidden name=terms value=$form->{terms}> + +<input type=hidden name=discount value=$form->{discount}> +<input type=hidden name=creditlimit value=$form->{creditlimit}> +<input type=hidden name=creditremaining value=$form->{creditremaining}> + +<input type=hidden name=tradediscount value=$form->{tradediscount}> +<input type=hidden name=business value="$form->{business}"> + +<input type=hidden name=closedto value=$form->{closedto}> +<input type=hidden name=locked value=$form->{locked}> + +<input type=hidden name=shipped value=$form->{shipped}> + +<input type=hidden name=oldtransdate value=$form->{oldtransdate}> + + +<table width=100%> + <tr class=listtop> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width=100%> + <tr valign=top> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Customer').qq|</th> + <td colspan=3>$customer</td> + <input type=hidden name=customer_id value=$form->{customer_id}> + <input type=hidden name=oldcustomer value="$form->{oldcustomer}"> + </tr> + <tr> + <td></td> + <td colspan=3> + <table> + <tr> + <th nowrap>|.$locale->text('Credit Limit').qq|</th> + <td>|.$form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0").qq|</td> + <td width=20%></td> + <th nowrap>|.$locale->text('Remaining').qq|</th> + <td class="plus$n" nowrap>|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</td> + </tr> + </table> + </td> + </tr> + $business + <tr> + <th align=right nowrap>|.$locale->text('Record in').qq|</th> + <td colspan=3><select name=AR>$form->{selectAR}</select></td> + <input type=hidden name=selectAR value="$form->{selectAR}"> + </tr> + $department + <tr> + <th align=right nowrap>|.$locale->text('Currency').qq|</th> + <td><select name=currency>$form->{selectcurrency}</select></td> + <input type=hidden name=selectcurrency value="$form->{selectcurrency}"> + <input type=hidden name=defaultcurrency value=$form->{defaultcurrency}> + <input type=hidden name=fxgain_accno value=$form->{fxgain_accno}> + <input type=hidden name=fxloss_accno value=$form->{fxloss_accno}> + $exchangerate + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Shipping Point').qq|</th> + <td colspan=3><input name=shippingpoint size=35 value="$form->{shippingpoint}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Ship via').qq|</th> + <td colspan=3><input name=shipvia size=35 value="$form->{shipvia}"></td> + </tr> + </table> + </td> + <td align=right> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Salesperson').qq|</th> + <td><select name=employee>$form->{selectemployee}</select></td> + <input type=hidden name=selectemployee value="|. + $form->escape($form->{selectemployee},1).qq|"> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Invoice Number').qq|</th> + <td><input name=invnumber size=20 value="$form->{invnumber}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Order Number').qq|</th> + <td><input name=ordnumber size=20 value="$form->{ordnumber}"></td> +<input type=hidden name=quonumber value="$form->{quonumber}"> + </tr> + <tr> + <th align=right>|.$locale->text('Invoice Date').qq|</th> + <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td> + </tr> + <tr> + <th align=right>|.$locale->text('Due Date').qq|</th> + <td><input name=duedate size=11 title="$myconfig{dateformat}" value=$form->{duedate}></td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td> + </td> + </tr> +<!-- shipto are in hidden variables --> + +<input type=hidden name=shiptoname value="$form->{shiptoname}"> +<input type=hidden name=shiptoaddress1 value="$form->{shiptoaddress1}"> +<input type=hidden name=shiptoaddress2 value="$form->{shiptoaddress2}"> +<input type=hidden name=shiptocity value="$form->{shiptocity}"> +<input type=hidden name=shiptostate value="$form->{shiptostate}"> +<input type=hidden name=shiptozipcode value="$form->{shiptozipcode}"> +<input type=hidden name=shiptocountry value="$form->{shiptocountry}"> +<input type=hidden name=shiptocontact value="$form->{shiptocontact}"> +<input type=hidden name=shiptophone value="$form->{shiptophone}"> +<input type=hidden name=shiptofax value="$form->{shiptofax}"> +<input type=hidden name=shiptoemail value="$form->{shiptoemail}"> + +<!-- email variables --> +<input type=hidden name=message value="$form->{message}"> +<input type=hidden name=email value="$form->{email}"> +<input type=hidden name=subject value="$form->{subject}"> +<input type=hidden name=cc value="$form->{cc}"> +<input type=hidden name=bcc value="$form->{bcc}"> + +<input type=hidden name=taxaccounts value="$form->{taxaccounts}"> +|; + + foreach $item (split / /, $form->{taxaccounts}) { + print qq| +<input type=hidden name="${item}_rate" value="$form->{"${item}_rate"}"> +<input type=hidden name="${item}_description" value="$form->{"${item}_description"}"> +<input type=hidden name="${item}_taxnumber" value="$form->{"${item}_taxnumber"}"> +|; + } + +} + + + +sub form_footer { + + $form->{invtotal} = $form->{invsubtotal}; + + if (($rows = $form->numtextrows($form->{notes}, 26, 8)) < 2) { + $rows = 2; + } + if (($introws = $form->numtextrows($form->{intnotes}, 35, 8)) < 2) { + $introws = 2; + } + $rows = ($rows > $introws) ? $rows : $introws; + $notes = qq|<textarea name=notes rows=$rows cols=26 wrap=soft>$form->{notes}</textarea>|; + $intnotes = qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|; + + $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : ""; + + $taxincluded = ""; + if ($form->{taxaccounts}) { + $taxincluded = qq| + <tr height="5"></tr> + <tr> + <td align=right> + <input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td><th align=left>|.$locale->text('Tax Included').qq|</th> + </tr> +|; + } + + if (!$form->{taxincluded}) { + + foreach $item (split / /, $form->{taxaccounts}) { + if ($form->{"${item}_base"}) { + $form->{"${item}_total"} = $form->round_amount($form->{"${item}_base"} * $form->{"${item}_rate"}, 2); + $form->{invtotal} += $form->{"${item}_total"}; + $form->{"${item}_total"} = $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2); + + $tax .= qq| + <tr> + <th align=right>$form->{"${item}_description"}</th> + <td align=right>$form->{"${item}_total"}</td> + </tr> +|; + } + } + + $form->{invsubtotal} = $form->format_amount(\%myconfig, $form->{invsubtotal}, 2, 0); + + $subtotal = qq| + <tr> + <th align=right>|.$locale->text('Subtotal').qq|</th> + <td align=right>$form->{invsubtotal}</td> + </tr> +|; + + } + + $form->{oldinvtotal} = $form->{invtotal}; + $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2, 0); + + print qq| + <tr> + <td> + <table width=100%> + <tr valign=bottom> + <td> + <table> + <tr> + <th align=left>|.$locale->text('Notes').qq|</th> + <th align=left>|.$locale->text('Internal Notes').qq|</th> + </tr> + <tr valign=top> + <td>$notes</td> + <td>$intnotes</td> + </tr> + </table> + </td> + <td align=right> + <table> + $subtotal + $tax + <tr> + <th align=right>|.$locale->text('Total').qq|</th> + <td align=right>$form->{invtotal}</td> + </tr> + $taxincluded + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> + <th colspan=6 class=listheading>|.$locale->text('Payments') + .qq|</th> + </tr> +|; + + if ($form->{currency} eq $form->{defaultcurrency}) { + @column_index = qw(datepaid source memo paid AR_paid); + } else { + @column_index = qw(datepaid source memo paid exchangerate AR_paid); + } + + $column_data{datepaid} = "<th>".$locale->text('Date')."</th>"; + $column_data{paid} = "<th>".$locale->text('Amount')."</th>"; + $column_data{exchangerate} = "<th>".$locale->text('Exch')."</th>"; + $column_data{AR_paid} = "<th>".$locale->text('Account')."</th>"; + $column_data{source} = "<th>".$locale->text('Source')."</th>"; + $column_data{memo} = "<th>".$locale->text('Memo')."</th>"; + + print " + <tr> +"; + map { print "$column_data{$_}\n" } @column_index; + print " + </tr> +"; + + $form->{paidaccounts}++ if ($form->{"paid_$form->{paidaccounts}"}); + for $i (1 .. $form->{paidaccounts}) { + + print " + <tr>\n"; + + $form->{"selectAR_paid_$i"} = $form->{selectAR_paid}; + $form->{"selectAR_paid_$i"} =~ s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/; + + # format amounts + $totalpaid += $form->{"paid_$i"}; + $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2); + $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"}); + + $exchangerate = qq| |; + if ($form->{currency} ne $form->{defaultcurrency}) { + if ($form->{"forex_$i"}) { + $exchangerate = qq|<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate_$i"}>$form->{"exchangerate_$i"}|; + } else { + $exchangerate = qq|<input name="exchangerate_$i" size=10 value=$form->{"exchangerate_$i"}>|; + } + } + + $exchangerate .= qq| +<input type=hidden name="forex_$i" value=$form->{"forex_$i"}> +|; + + $column_data{"paid_$i"} = qq|<td align=center><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td>|; + $column_data{"exchangerate_$i"} = qq|<td align=center>$exchangerate</td>|; + $column_data{"AR_paid_$i"} = qq|<td align=center><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|; + $column_data{"datepaid_$i"} = qq|<td align=center><input name="datepaid_$i" size=11 title="$myconfig{dateformat}" value=$form->{"datepaid_$i"}></td>|; + $column_data{"source_$i"} = qq|<td align=center><input name="source_$i" size=11 value="$form->{"source_$i"}"></td>|; + $column_data{"memo_$i"} = qq|<td align=center><input name="memo_$i" size=11 value="$form->{"memo_$i"}"></td>|; + + map { print qq|$column_data{"${_}_$i"}\n| } @column_index; + print " + </tr>\n"; + } + + print qq| +<input type=hidden name=paidaccounts value=$form->{paidaccounts}> +<input type=hidden name=selectAR_paid value="$form->{selectAR_paid}"> +<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}> +<input type=hidden name=oldtotalpaid value=$totalpaid> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> + <tr> + <td> +|; + + &print_options; + + print qq| + </td> + </tr> +</table> +<br> +|; + + + $transdate = $form->datetonum($form->{transdate}, \%myconfig); + $closedto = $form->datetonum($form->{closedto}, \%myconfig); + + if (! $form->{readonly}) { + + if ($form->{id}) { + + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Ship to').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Print').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('E-mail').qq|"> +|; + + if (! $form->{locked}) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Post').qq|">|; + + if ($latex) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Print and Post').qq|">|; + } + + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Delete').qq|"> +|; + } + + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Post as new').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Sales Order').qq|"> +|; + + } else { + + if ($transdate > $closedto) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Ship to').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Print').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('E-mail').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Post').qq|">|; + + if ($latex) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Print and Post').qq|">|; + } + } + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + +<input type=hidden name=rowcount value=$form->{rowcount}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +</form> + +<a name="end"></a> + +</body> +</html> +|; + +} + + +sub update { + + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate); + + &check_name(customer); + + if ($form->{transdate} ne $form->{oldtransdate}) { + $form->{duedate} = $form->current_date(\%myconfig, $form->{transdate}, $form->{terms} * 1); + $form->{oldtransdate} = $form->{transdate}; + } + + + $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, 'buy'))); + + $j = 1; + for $i (1 .. $form->{paidaccounts}) { + if ($form->{"paid_$i"}) { + map { $form->{"${_}_$j"} = $form->{"${_}_$i"} } qw(datepaid source memo); + map { $form->{"${_}_$j"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate); + + $form->{"exchangerate_$j"} = $exchangerate if ($form->{"forex_$j"} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$j"}, 'buy'))); + map { delete $form->{"${_}_$i"} } qw(datepaid source memo paid exchangerate forex) if $j != $i; + $j++; + } else { + map { delete $form->{"${_}_$i"} } qw(datepaid source memo paid exchangerate forex); + } + $form->{paidaccounts} = $j; + } + + $i = $form->{rowcount}; + $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1; + + foreach $item (qw(partsgroup projectnumber)) { + $form->{"select$item"} = $form->unescape($form->{"select$item"}) if $form->{"select$item"}; + } + + # if last row empty, check the form otherwise retrieve new item + if (($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "") && ($form->{"partsgroup_$i"} eq "")) { + + $form->{creditremaining} += ($form->{oldinvtotal} - $form->{oldtotalpaid}); + &check_form; + + } else { + + IS->retrieve_item(\%myconfig, \%$form); + + $rows = scalar @{ $form->{item_list} }; + + $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{discount} * 100); + + if ($rows > 0) { + $form->{"qty_$i"} = ($form->{"qty_$i"} * 1) ? $form->{"qty_$i"} : 1; + + if ($rows > 1) { + + &select_item; + exit; + + } else { + + $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"}); + + map { $form->{item_list}[$i]{$_} = $form->quote($form->{item_list}[$i]{$_}) } qw(partnumber description unit); + map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] }; + + $form->{"discount_$i"} = $form->{discount} * 100; + + $s = ($sellprice) ? $sellprice : $form->{"sellprice_$i"}; + ($dec) = ($s =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + if ($sellprice) { + $form->{"sellprice_$i"} = $sellprice; + } else { + # if there is an exchange rate adjust sellprice + $form->{"sellprice_$i"} *= (1 - $form->{tradediscount}); + $form->{"sellprice_$i"} /= $exchangerate; + } + + map { $form->{"${_}_$i"} /= $exchangerate } qw(listprice lastcost); + + $amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * (1 - $form->{"discount_$i"} / 100); + map { $form->{"${_}_base"} = 0 } (split / /, $form->{taxaccounts}); + map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"}); + map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{"taxaccounts_$i"} if !$form->{taxincluded}; + + $form->{creditremaining} -= $amount; + + map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice listprice lastcost); + + $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}); + } + + &display_form; + + } else { + # ok, so this is a new part + # ask if it is a part or service item + + if ($form->{"partsgroup_$i"} && ($form->{"partsnumber_$i"} eq "") && ($form->{"description_$i"} eq "")) { + $form->{rowcount}--; + $form->{"discount_$i"} = ""; + &display_form; + } else { + + $form->{"id_$i"} = 0; + $form->{"unit_$i"} = $locale->text('ea'); + + &new_item; + + } + } + } +} + + + +sub post { + + $form->isblank("transdate", $locale->text('Invoice Date missing!')); + $form->isblank("customer", $locale->text('Customer missing!')); + + # if oldcustomer ne customer redo form + if (&check_name(customer)) { + &update; + exit; + } + + &validate_items; + + $closedto = $form->datetonum($form->{closedto}, \%myconfig); + $transdate = $form->datetonum($form->{transdate}, \%myconfig); + + $form->error($locale->text('Cannot post invoice for a closed period!')) if ($transdate <= $closedto); + + $form->isblank("exchangerate", $locale->text('Exchange rate missing!')) if ($form->{currency} ne $form->{defaultcurrency}); + + for $i (1 .. $form->{paidaccounts}) { + if ($form->{"paid_$i"}) { + $datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig); + + $form->isblank("datepaid_$i", $locale->text('Payment date missing!')); + + $form->error($locale->text('Cannot post payment for a closed period!')) if ($datepaid <= $closedto); + + if ($form->{currency} ne $form->{defaultcurrency}) { + $form->{"exchangerate_$i"} = $form->{exchangerate} if ($transdate == $datepaid); + $form->isblank("exchangerate_$i", $locale->text('Exchange rate for payment missing!')); + } + } + } + + + ($form->{AR}) = split /--/, $form->{AR}; + ($form->{AR_paid}) = split /--/, $form->{AR_paid}; + + $form->{label} = $locale->text('Invoice'); + + $form->{id} = 0 if $form->{postasnew}; + + $form->{invnumber} = $form->update_defaults(\%myconfig, "sinumber") unless $form->{invnumber}; + + $form->redirect($locale->text('Invoice posted!')) if (IS->post_invoice(\%myconfig, \%$form)); + $form->error($locale->text('Cannot post invoice!')); + +} + + +sub print_and_post { + + $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/; + $form->error($locale->text('Select Printer or Queue!')) if $form->{media} eq 'screen'; + + $old_form = new Form; + $form->{display_form} = "post"; + map { $old_form->{$_} = $form->{$_} } keys %$form; + $old_form->{rowcount}++; + + &print_form($old_form); + +} + + + +sub delete { + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> +|; + + # delete action variable + map { delete $form->{$_} } qw(action header); + + $form->hide_form(); + + print qq| +<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2> + +<h4>|.$locale->text('Are you sure you want to delete Invoice Number').qq| $form->{invnumber} +</h4> + +<p> +<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|"> +</form> +|; + + +} + + + +sub yes { + + $form->redirect($locale->text('Invoice deleted!')) if (IS->delete_invoice(\%myconfig, \%$form, $spool)); + $form->error($locale->text('Cannot delete invoice!')); + +} + + +sub redirect { + + $form->redirect; + $form->error($locale->text('Invoice processed!')); + +} + diff --git a/sql-ledger/bin/mozilla/login.pl b/sql-ledger/bin/mozilla/login.pl new file mode 100644 index 000000000..1cf1f729f --- /dev/null +++ b/sql-ledger/bin/mozilla/login.pl @@ -0,0 +1,325 @@ +###################################################################### +# SQL-Ledger Accounting +# Copyright (c) 2000 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +###################################################################### +# +# login frontend +# +####################################################################### + + +use DBI; +use SL::User; +use SL::Form; + + +$form = new Form; + +$locale = new Locale $language, "login"; + +# customization +if (-f "$form->{path}/custom_$form->{script}") { + eval { require "$form->{path}/custom_$form->{script}"; }; + $form->error($@) if ($@); +} + +# per login customization +if (-f "$form->{path}/$form->{login}_$form->{script}") { + eval { require "$form->{path}/$form->{login}_$form->{script}"; }; + $form->error($@) if ($@); +} + +# window title bar, user info +$form->{titlebar} = "SQL-Ledger ".$locale->text('Version'). " $form->{version}"; + +if ($form->{action}) { + $form->{titlebar} .= " - $myconfig{name} - $myconfig{dbname}"; + &{ $locale->findsub($form->{action}) }; +} else { + &login_screen; +} + + +1; + + +sub login_screen { + + $form->{stylesheet} = "sql-ledger.css"; + $form->{favicon} = "sql-ledger.ico"; + + $form->{endsession} = 1; + $form->header(1); + + if ($form->{login}) { + $sf = qq|function sf() { document.login.password.focus(); }|; + } else { + $sf = qq|function sf() { document.login.login.focus(); }|; + } + + if ($form->{jsc} && -d 'bin/js') { + print qq| +<script language="JavaScript" type="text/javascript"> +<!-- +var agt = navigator.userAgent.toLowerCase(); +var is_major = parseInt(navigator.appVersion); +var is_nav = ((agt.indexOf('mozilla') != -1) && (agt.indexOf('spoofer') == -1) + && (agt.indexOf('compatible') == -1) && (agt.indexOf('opera') == -1) + && (agt.indexOf('webtv') == -1)); +var is_nav4lo = (is_nav && (is_major <= 4)); + +function jsp() { + if (is_nav4lo) + document.login.path.value = "bin/mozilla" + else + document.login.path.value = "bin/js" +} +$sf +// End --> +</script> +|; + } + + print qq| + +<body class=login onload="jsp(); sf()"> + +<pre> + +</pre> + +<center> +<table class=login border=3 cellpadding=20> + <tr> + <td class=login align=center><a href="http://www.sql-ledger.org" target=_top><img src=sql-ledger.gif border=0></a> +<h1 class=login align=center>|.$locale->text('Version').qq| $form->{version} +</h1> + +<p> + +<form method=post action=$form->{script} name=login> + + <table width=100%> + <tr> + <td align=center> + <table> + <tr> + <th align=right>|.$locale->text('Name').qq|</th> + <td><input class=login name=login size=30 value=$form->{login}></td> + </tr> + <tr> + <th align=right>|.$locale->text('Password').qq|</th> + <td><input class=login type=password name=password size=30></td> + </tr> + <input type=hidden name=path value=$form->{path}> + </table> + + <br> + <input type=submit name=action value="|.$locale->text('Login').qq|"> + </td> + </tr> + </table> + +</form> + + </td> + </tr> +</table> + +</body> +</html> +|; + +} + + +sub selectdataset { + my ($login) = @_; + + if (-f "css/sql-ledger.css") { + $form->{stylesheet} = "sql-ledger.css"; + } + + $form->header; + + print qq| +<body class=login> + +<pre> + +</pre> + +<center> +<table class=login border=3 cellpadding=20> + <tr> + <td class=login align=center><a href="http://www.sql-ledger.org" target=_top><img src=sql-ledger.gif border=0></a> +<h1 class=login align=center>|.$locale->text('Version').qq| $form->{version} +</h1> + +<p> + +<form method=post action=$form->{script}> + +<input type=hidden name=beenthere value=1> + + <table width=100%> + <tr> + <td align=center> + <table> + <tr> + <th align=right>|.$locale->text('Name').qq|</th> + <td>$form->{login}</td> + </tr> + <tr> + <th align=right>|.$locale->text('Password').qq|</th> + <td><input class=login type=password name=password size=30 value=$form->{password}></td> + </tr> + <input type=hidden name=path value=$form->{path}> + <tr> + <th align=right>|.$locale->text('Company').qq|</th> + <td>|; + + $checked = "checked"; + foreach $login (sort { $login{$a} cmp $login{$b} } keys %{ $login }) { + print qq| + <br><input class=login type=radio name=login value=$login $checked>$login{$login} + |; + $checked = ""; + } + + print qq| + </td> + </tr> + </table> + <br> + <input type=submit name=action value="|.$locale->text('Login').qq|"> + </td> + </tr> + </table> + +</form> + + </td> + </tr> +</table> + +</body> +</html> +|; + + +} + + +sub login { + + $form->{stylesheet} = "sql-ledger.css"; + $form->{favicon} = "sql-ledger.ico"; + + $form->error($locale->text('You did not enter a name!')) unless ($form->{login}); + + if (! $form->{beenthere}) { + open(FH, "$memberfile") or $form->error("$memberfile : $!"); + @a = <FH>; + close(FH); + + @login = grep { s/\[(.*)\]/$1/ } @a; + @company = grep { s/company=(.*)/$1/ } @a; + shift @login; + + for ($i = 0; $i <= $#login; $i++) { + chop $login[$i]; + if (($form->{login} eq $login[$i]) || ($login[$i] =~ /$form->{login}@/)) { + chop $company[$i]; + $login{$login[$i]} = $company[$i]; + } + } + + if (keys %login > 1) { + &selectdataset(\%login); + exit; + } + } + + + $user = new User $memberfile, $form->{login}; + + # if we get an error back, bale out + if (($errno = $user->login(\%$form, $userspath)) <= -1) { + + $errno *= -1; + $err[1] = $locale->text('Incorrect Password!'); + $err[2] = $locale->text('Incorrect Dataset version!'); + $err[3] = qq|$form->{login} |.$locale->text('is not a member!'); + $err[4] = $locale->text('Dataset is newer than version!'); + + if ($errno == 5) { + # upgrade dataset and log in again + open FH, ">$userspath/nologin" or $form->error($!); + + map { $form->{$_} = $user->{$_} } qw(dbname dbhost dbport dbdriver dbuser dbpasswd); + + $form->{dbpasswd} = unpack 'u', $form->{dbpasswd}; + + $form->{dbupdate} = "db$user->{dbname}"; + $form->{$form->{dbupdate}} = 1; + + $form->header; + print $locale->text('Upgrading to Version')." $form->{version} ... "; + + # required for Oracle + $form->{dbdefault} = $sid; + + $user->dbupdate(\%$form); + + # remove lock file + unlink "$userspath/nologin"; + + print $locale->text('done'); + + print "<p><a href=menu.pl?login=$form->{login}&sessionid=$form->{sessionid}&path=$form->{path}&action=display>".$locale->text('Continue')."</a>"; + + exit; + } + + $form->error($err[$errno]); + } + + + # made it this far, execute the menu + $form->{callback} = "menu.pl?login=$form->{login}&path=$form->{path}&action=display"; + + $form->redirect; + +} + + + +sub logout { + + $jsc = $form->{path} =~ /js/; + $form->{callback} = "$form->{script}?path=$form->{path}&login=$form->{login}&jsc=$jsc"; + + $form->redirect; + +} + + diff --git a/sql-ledger/bin/mozilla/menu.pl b/sql-ledger/bin/mozilla/menu.pl new file mode 100644 index 000000000..fab2905e0 --- /dev/null +++ b/sql-ledger/bin/mozilla/menu.pl @@ -0,0 +1,158 @@ +###################################################################### +# SQL-Ledger Accounting +# Copyright (c) 2001 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# Contributors: Christopher Browne +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +####################################################################### +# +# two frame layout with refractured menu +# +####################################################################### + +$menufile = "menu.ini"; +use SL::Menu; + + +1; +# end of main + + +sub display { + + $menuwidth = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "155"; + $menuwidth = $myconfig{menuwidth} if $myconfig{menuwidth}; + + $form->header(1); + + print qq| + +<FRAMESET COLS="$menuwidth,*" BORDER="1"> + + <FRAME NAME="acc_menu" SRC="$form->{script}?login=$form->{login}&sessionid=$form->{sessionid}&action=acc_menu&path=$form->{path}"> + <FRAME NAME="main_window" SRC="am.pl?login=$form->{login}&sessionid=$form->{sessionid}&action=company_logo&path=$form->{path}"> + +</FRAMESET> + +</BODY> +</HTML> +|; + +} + + + +sub acc_menu { + + my $menu = new Menu "$menufile"; + $menu = new Menu "custom_$menufile" if (-f "custom_$menufile"); + $menu = new Menu "$form->{login}_$menufile" if (-f "$form->{login}_$menufile"); + + $form->{title} = $locale->text('Accounting Menu'); + + $form->header; + + print qq| +<body class=menu> + +|; + + §ion_menu($menu); + + print qq| +</body> +</html> +|; + +} + + +sub section_menu { + my ($menu, $level) = @_; + + # build tiered menus + my @menuorder = $menu->access_control(\%myconfig, $level); + + while (@menuorder) { + $item = shift @menuorder; + $label = $item; + $label =~ s/$level--//g; + + my $spacer = " " x (($item =~ s/--/--/g) * 2); + + $label =~ s/.*--//g; + $label = $locale->text($label); + $label =~ s/ / /g if $label !~ /<img /i; + + $menu->{$item}{target} = "main_window" unless $menu->{$item}{target}; + + if ($menu->{$item}{submenu}) { + + $menu->{$item}{$item} = !$form->{$item}; + + if ($form->{level} && $item =~ $form->{level}) { + + # expand menu + print qq|<br>\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a>|; + + # remove same level items + map { shift @menuorder } grep /^$item/, @menuorder; + + §ion_menu($menu, $item); + + print qq|<br>\n|; + + } else { + + print qq|<br>\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label ...</a>|; + + # remove same level items + map { shift @menuorder } grep /^$item/, @menuorder; + + } + + } else { + + if ($menu->{$item}{module}) { + + print qq|<br>\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a>|; + + } else { + + $form->{tag}++; + print qq|<a name="id$form->{tag}"></a> + <p><b>$label</b>|; + + §ion_menu($menu, $item); + + print qq|<br>\n|; + + } + } + } +} + + +sub menubar { + + 1; + +} + + diff --git a/sql-ledger/bin/mozilla/oe.pl b/sql-ledger/bin/mozilla/oe.pl new file mode 100644 index 000000000..1c494c11f --- /dev/null +++ b/sql-ledger/bin/mozilla/oe.pl @@ -0,0 +1,2470 @@ +#===================================================================== +# SQL-Ledger, Accounting +# Copyright (c) 2001 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# Order entry module +# Quotation module +# +#====================================================================== + + +use SL::OE; +use SL::IR; +use SL::IS; +use SL::PE; + +require "$form->{path}/arap.pl"; +require "$form->{path}/io.pl"; + + +1; +# end of main + + +sub add { + + if ($form->{type} eq 'purchase_order') { + $form->{title} = $locale->text('Add Purchase Order'); + $form->{vc} = 'vendor'; + } + if ($form->{type} eq 'sales_order') { + $form->{title} = $locale->text('Add Sales Order'); + $form->{vc} = 'customer'; + } + if ($form->{type} eq 'request_quotation') { + $form->{title} = $locale->text('Add Request for Quotation'); + $form->{vc} = 'vendor'; + } + if ($form->{type} eq 'sales_quotation') { + $form->{title} = $locale->text('Add Quotation'); + $form->{vc} = 'customer'; + } + + $form->{callback} = "$form->{script}?action=add&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&path=$form->{path}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &order_links; + &prepare_order; + &display_form; + +} + + +sub edit { + + if ($form->{type} =~ /(purchase_order|bin_list)/) { + $form->{title} = $locale->text('Edit Purchase Order'); + $form->{vc} = 'vendor'; + $form->{type} = 'purchase_order'; + } + if ($form->{type} =~ /((sales|work)_order|(packing|pick)_list)/) { + $form->{title} = $locale->text('Edit Sales Order'); + $form->{vc} = 'customer'; + $form->{type} = 'sales_order'; + } + if ($form->{type} eq 'request_quotation') { + $form->{title} = $locale->text('Edit Request for Quotation'); + $form->{vc} = 'vendor'; + } + if ($form->{type} eq 'sales_quotation') { + $form->{title} = $locale->text('Edit Quotation'); + $form->{vc} = 'customer'; + } + + &order_links; + &prepare_order; + &display_form; + +} + + + +sub order_links { + + # get customer/vendor + $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP"); + + $form->get_partsgroup(\%myconfig); + if (@{ $form->{all_partsgroup} }) { + $form->{selectpartsgroup} = "<option>\n"; + map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} }; + } + + # retrieve order/quotation + OE->retrieve(\%myconfig, \%$form); + + # currencies + @curr = split /:/, $form->{currencies}; + chomp $curr[0]; + $form->{defaultcurrency} = $curr[0]; + $form->{currency} = $form->{defaultcurrency} unless $form->{currency}; + + map { $form->{selectcurrency} .= "<option>$_\n" } @curr; + + $form->{oldlanguage_code} = $form->{language_code}; + + $form->get_partsgroup(\%myconfig, { language_code => $form->{language_code} }); + + if (@{ $form->{all_partsgroup} }) { + $form->{selectpartsgroup} = "<option>\n"; + foreach $ref (@ { $form->{all_partsgroup} }) { + if ($ref->{translation}) { + $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{translation}\n|; + } else { + $form->{selectpartsgroup} .= qq|<option value="$ref->{partsgroup}--$ref->{id}">$ref->{partsgroup}\n|; + } + } + } + + if (@{ $form->{all_projects} }) { + $form->{selectprojectnumber} = "<option>\n"; + map { $form->{selectprojectnumber} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } @{ $form->{all_projects} }; + } + + $form->{shipto} = 1 if $form->{id}; + + if (@{ $form->{"all_$form->{vc}"} }) { + unless ($form->{"$form->{vc}_id"}) { + $form->{"$form->{vc}_id"} = $form->{"all_$form->{vc}"}->[0]->{id}; + } + } + + # get customer / vendor + if ($form->{type} =~ /(purchase_order|request_quotation|receive_order)/ ) { + IR->get_vendor(\%myconfig, \%$form); + } + if ($form->{type} =~ /(sales|ship)_(order|quotation)/) { + IS->get_customer(\%myconfig, \%$form); + } + + ($form->{$form->{vc}}) = split /--/, $form->{$form->{vc}}; + $form->{"old$form->{vc}"} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|; + + # build selection list + if (@{ $form->{"all_$form->{vc}"} }) { + $form->{$form->{vc}} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|; + map { $form->{"select$form->{vc}"} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{"all_$form->{vc}"} }); + } + + # departments + if (@{ $form->{all_departments} }) { + $form->{selectdepartment} = "<option>\n"; + $form->{department} = "$form->{department}--$form->{department_id}"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + $form->{employee} = "$form->{employee}--$form->{employee_id}"; + + # sales staff + if (@{ $form->{all_employees} }) { + $form->{selectemployee} = ""; + map { $form->{selectemployee} .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } (@{ $form->{all_employees} }); + } + + if (@{ $form->{all_languages} }) { + $form->{selectlanguage} = "<option>\n"; + map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_languages} }; + } + + # forex + $form->{forex} = $form->{exchangerate}; + +} + + +sub prepare_order { + + $form->{format} = "postscript" if $myconfig{printer}; + $form->{media} = $myconfig{printer}; + $form->{formname} = $form->{type}; + $form->{oldcurrency} = $form->{currency}; + + if ($form->{id}) { + + map { $form->{$_} = $form->quote($form->{$_}) } qw(ordnumber quonumber shippingpoint shipvia notes intnotes shiptoname shiptoaddress1 shiptoaddress2 shiptocity shiptostate shiptozipcode shiptocountry shiptocontact); + + foreach $ref (@{ $form->{form_details} } ) { + $i++; + map { $form->{"${_}_$i"} = $ref->{$_} } keys %{ $ref }; + + $form->{"projectnumber_$i"} = qq|$ref->{projectnumber}--$ref->{project_id}|; + $form->{"partsgroup_$i"} = qq|$ref->{partsgroup}--$ref->{partsgroup_id}|; + + $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"} * 100); + + ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + $form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces); + $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}); + $form->{"oldqty_$i"} = $form->{"qty_$i"}; + + map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber sku description unit); + $form->{rowcount} = $i; + } + } + + if ($form->{type} eq 'sales_quotation') { + $form->{readonly} = 1 if $myconfig{acs} =~ /Quotations--Quotation/; + } + if ($form->{type} eq 'request_quotation') { + $form->{readonly} = 1 if $myconfig{acs} =~ /Quotations--RFQ/; + } + if ($form->{type} eq 'sales_order') { + $form->{readonly} = 1 if $myconfig{acs} =~ /Order Entry--Sales Order/; + } + if ($form->{type} eq 'purchase_order') { + $form->{readonly} = 1 if $myconfig{acs} =~ /Order Entry--Purchase Order/; + } + +} + + +sub form_header { + + $checkedopen = ($form->{closed}) ? "" : "checked"; + $checkedclosed = ($form->{closed}) ? "checked" : ""; + + if ($form->{id}) { + $openclosed = qq| + <tr> + <th nowrap align=right><input name=closed type=radio class=radio value=0 $checkedopen> |.$locale->text('Open').qq|</th> + <th nowrap align=left><input name=closed type=radio class=radio value=1 $checkedclosed> |.$locale->text('Closed').qq|</th> + </tr> +|; + } + + # set option selected + $form->{selectcurrency} =~ s/ selected//; + $form->{selectcurrency} =~ s/option>\Q$form->{currency}\E/option selected>$form->{currency}/; + + foreach $item ($form->{vc}, department, employee) { + $form->{"select$item"} = $form->unescape($form->{"select$item"}); + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/; + } + + + $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate}); + + $exchangerate = qq| +<input type=hidden name=forex value=$form->{forex}> +|; + + if ($form->{currency} ne $form->{defaultcurrency}) { + if ($form->{forex}) { + $exchangerate .= qq|<th align=right>|.$locale->text('Exchange Rate').qq|</th><td>$form->{exchangerate}</td> + <input type=hidden name=exchangerate value=$form->{exchangerate}> +|; + } else { + $exchangerate .= qq|<th align=right>|.$locale->text('Exchange Rate').qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td>|; + } + } + + + $vclabel = ucfirst $form->{vc}; + $vclabel = $locale->text($vclabel); + + $terms = qq| + <tr> + <th align=right nowrap>|.$locale->text('Terms').qq|</th> + <td nowrap><input name=terms size="3" maxlength="3" value=$form->{terms}> |.$locale->text('days').qq|</td> + </tr> +|; + + + if ($form->{business}) { + $business = qq| + <tr> + <th align=right>|.$locale->text('Business').qq|</th> + <td>$form->{business}</td> + <th align=right>|.$locale->text('Trade Discount').qq|</th> + <td>|.$form->format_amount(\%myconfig, $form->{tradediscount} * 100).qq| %</td> + </tr> +|; + } + + if ($form->{type} !~ /_quotation$/) { + $ordnumber = qq| + <tr> + <th width=70% align=right nowrap>|.$locale->text('Order Number').qq|</th> + <td><input name=ordnumber size=20 value="$form->{ordnumber}"></td> + <input type=hidden name=quonumber value="$form->{quonumber}"> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Order Date').qq|</th> + <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td> + </tr> + <tr> + <th align=right nowrap=true>|.$locale->text('Required by').qq|</th> + <td><input name=reqdate size=11 title="$myconfig{dateformat}" value=$form->{reqdate}></td> + </tr> +|; + + $n = ($form->{creditremaining} < 0) ? "0" : "1"; + + $creditremaining = qq| + <tr> + <td></td> + <td colspan=3> + <table> + <tr> + <th nowrap>|.$locale->text('Credit Limit').qq|</th> + <td>|.$form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0").qq|</td> + <td width=20%></td> + <th nowrap>|.$locale->text('Remaining').qq|</th> + <td class="plus$n" nowrap>|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</td> + </tr> + </table> + </td> + </tr> +|; + } else { + $reqlabel = ($form->{type} eq 'sales_quotation') ? $locale->text('Valid until') : $locale->text('Required by'); + if ($form->{type} eq 'sales_quotation') { + $ordnumber = qq| + <tr> + <th width=70% align=right nowrap>|.$locale->text('Quotation Number').qq|</th> + <td><input name=quonumber size=20 value="$form->{quonumber}"></td> + <input type=hidden name=ordnumber value="$form->{ordnumber}"> + </tr> +|; + } else { + $ordnumber = qq| + <tr> + <th width=70% align=right nowrap>|.$locale->text('RFQ Number').qq|</th> + <td><input name=quonumber size=20 value="$form->{quonumber}"></td> + <input type=hidden name=ordnumber value="$form->{ordnumber}"> + </tr> +|; + + $terms = ""; + } + + + $ordnumber .= qq| + <tr> + <th align=right nowrap>|.$locale->text('Quotation Date').qq|</th> + <td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td> + </tr> + <tr> + <th align=right nowrap=true>$reqlabel</th> + <td><input name=reqdate size=11 title="$myconfig{dateformat}" value=$form->{reqdate}></td> + </tr> +|; + + } + + if ($form->{"select$form->{vc}"}) { + $vc = qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}</select> + <input type=hidden name="select$form->{vc}" value="| + .$form->escape($form->{"select$form->{vc}"},1).qq|">|; + } else { + $vc = qq|<input name=$form->{vc} value="$form->{$form->{vc}}" size=35>|; + } + + $department = qq| + <tr> + <th align="right" nowrap>|.$locale->text('Department').qq|</th> + <td colspan=3><select name=department>$form->{selectdepartment}</select> + <input type=hidden name=selectdepartment value="| + .$form->escape($form->{selectdepartment},1).qq|"> + </td> + </tr> +| if $form->{selectdepartment}; + + $employee = qq| + <input type=hidden name=employee value="$form->{employee}"> +|; + + if ($form->{type} eq 'sales_order') { + if ($form->{selectemployee}) { + $employee = qq| + <tr> + <th align=right nowrap>|.$locale->text('Salesperson').qq|</th> + <td><select name=employee>$form->{selectemployee}</select></td> + <input type=hidden name=selectemployee value="|. + $form->escape($form->{selectemployee},1).qq|" + </tr> +|; + } + } else { + $employee = qq| + <tr> + <th align=right nowrap>|.$locale->text('Employee').qq|</th> + <td><select name=employee>$form->{selectemployee}</select></td> + <input type=hidden name=selectemployee value="|. + $form->escape($form->{selectemployee},1).qq|" + </tr> +|; + } + + + $form->header; + + print qq| +<body> + +<form method=post action="$form->{script}#end"> + +<input type=hidden name=id value=$form->{id}> + +<input type=hidden name=type value=$form->{type}> +<input type=hidden name=formname value=$form->{formname}> +<input type=hidden name=media value=$form->{media}> +<input type=hidden name=format value=$form->{format}> + +<input type=hidden name=queued value="$form->{queued}"> +<input type=hidden name=printed value="$form->{printed}"> +<input type=hidden name=emailed value="$form->{emailed}"> + +<input type=hidden name=vc value=$form->{vc}> + +<input type=hidden name=title value="$form->{title}"> + +<input type=hidden name=discount value=$form->{discount}> +<input type=hidden name=creditlimit value=$form->{creditlimit}> +<input type=hidden name=creditremaining value=$form->{creditremaining}> + +<input type=hidden name=tradediscount value=$form->{tradediscount}> +<input type=hidden name=business value="$form->{business}"> + + +<table width=100%> + <tr class=listtop> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width="100%"> + <tr valign=top> + <td> + <table width=100%> + <tr> + <th align=right>$vclabel</th> + <td colspan=3>$vc</td> + <input type=hidden name=$form->{vc}_id value=$form->{"$form->{vc}_id"}> + <input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}"> + </tr> + $creditremaining + $business + $department + <tr> + <th align=right>|.$locale->text('Currency').qq|</th> + <td><select name=currency>$form->{selectcurrency}</select></td> + <input type=hidden name=selectcurrency value="$form->{selectcurrency}"> + <input type=hidden name=defaultcurrency value=$form->{defaultcurrency}> + $exchangerate + </tr> + <tr> + <th align=right>|.$locale->text('Shipping Point').qq|</th> + <td colspan=3><input name=shippingpoint size=35 value="$form->{shippingpoint}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Ship via').qq|</th> + <td colspan=3><input name=shipvia size=35 value="$form->{shipvia}"></td> + </tr> + </table> + </td> + <td align=right> + <table> + $openclosed + $employee + $ordnumber + $terms + </table> + </td> + </tr> + </table> + </td> + </tr> + +<!-- shipto are in hidden variables --> + +<input type=hidden name=shiptoname value="$form->{shiptoname}"> +<input type=hidden name=shiptoaddress1 value="$form->{shiptoaddress1}"> +<input type=hidden name=shiptoaddress2 value="$form->{shiptoaddress2}"> +<input type=hidden name=shiptocity value="$form->{shiptocity}"> +<input type=hidden name=shiptostate value="$form->{shiptostate}"> +<input type=hidden name=shiptozipcode value="$form->{shiptozipcode}"> +<input type=hidden name=shiptocountry value="$form->{shiptocountry}"> +<input type=hidden name=shiptocontact value="$form->{shiptocontact}"> +<input type=hidden name=shiptophone value="$form->{shiptophone}"> +<input type=hidden name=shiptofax value="$form->{shiptofax}"> +<input type=hidden name=shiptoemail value="$form->{shiptoemail}"> + +<!-- email variables --> +<input type=hidden name=message value="$form->{message}"> +<input type=hidden name=email value="$form->{email}"> +<input type=hidden name=subject value="$form->{subject}"> +<input type=hidden name=cc value="$form->{cc}"> +<input type=hidden name=bcc value="$form->{bcc}"> + +<input type=hidden name=taxpart value="$form->{taxpart}"> +<input type=hidden name=taxservice value="$form->{taxservice}"> + +<input type=hidden name=taxaccounts value="$form->{taxaccounts}"> +|; + + foreach $item (split / /, $form->{taxaccounts}) { + print qq| +<input type=hidden name="${item}_rate" value=$form->{"${item}_rate"}> +<input type=hidden name="${item}_description" value="$form->{"${item}_description"}"> +|; + } + +} + + +sub form_footer { + + $form->{invtotal} = $form->{invsubtotal}; + + if (($rows = $form->numtextrows($form->{notes}, 25, 8)) < 2) { + $rows = 2; + } + if (($introws = $form->numtextrows($form->{intnotes}, 35, 8)) < 2) { + $introws = 2; + } + $rows = ($rows > $introws) ? $rows : $introws; + $notes = qq|<textarea name=notes rows=$rows cols=25 wrap=soft>$form->{notes}</textarea>|; + $intnotes = qq|<textarea name=intnotes rows=$rows cols=35 wrap=soft>$form->{intnotes}</textarea>|; + + + $form->{taxincluded} = ($form->{taxincluded}) ? "checked" : ""; + + $taxincluded = ""; + if ($form->{taxaccounts}) { + $taxincluded = qq| + <tr height="5"></tr> + <tr> + <td align=right> + <input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td> + <th align=left>|.$locale->text('Tax Included').qq|</th> + </tr> +|; + } + + if (!$form->{taxincluded}) { + + foreach $item (split / /, $form->{taxaccounts}) { + if ($form->{"${item}_base"}) { + $form->{invtotal} += $form->{"${item}_total"} = $form->round_amount($form->{"${item}_base"} * $form->{"${item}_rate"}, 2); + $form->{"${item}_total"} = $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2); + + $tax .= qq| + <tr> + <th align=right>$form->{"${item}_description"}</th> + <td align=right>$form->{"${item}_total"}</td> + </tr> +|; + } + } + + $form->{invsubtotal} = $form->format_amount(\%myconfig, $form->{invsubtotal}, 2, 0); + + $subtotal = qq| + <tr> + <th align=right>|.$locale->text('Subtotal').qq|</th> + <td align=right>$form->{invsubtotal}</td> + </tr> +|; + + } + + $form->{oldinvtotal} = $form->{invtotal}; + $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2, 0); + + + print qq| + <tr> + <td> + <table width=100%> + <tr valign=top> + <td> + <table> + <tr> + <th align=left>|.$locale->text('Notes').qq|</th> + <th align=left>|.$locale->text('Internal Notes').qq|</th> + </tr> + <tr valign=top> + <td>$notes</td> + <td>$intnotes</td> + </tr> + </table> + </td> + <td align=right> + <table> + $subtotal + $tax + <tr> + <th align=right>|.$locale->text('Total').qq|</th> + <td align=right>$form->{invtotal}</td> + </tr> + $taxincluded + </table> + </td> + </tr> + </table> + </td> + </tr> +<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}> +<input type=hidden name=oldtotalpaid value=$totalpaid> + <tr> + <td><hr size=3 noshade></td> + </tr> + <tr> + <td> +|; + + &print_options; + + print qq| + </td> + </tr> +</table> + +<br> +|; + + if (! $form->{readonly}) { + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('Ship to').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('Print').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('E-mail').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('Save').qq|"> +|; + + if ($latex) { + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Print and Save').qq|">|; + } + + if ($form->{id}) { + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Save as new').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">|; + + if ($form->{type} =~ /sales_/) { + if ($myconfig{acs} !~ /AP--Sales Invoice/) { + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Sales Invoice').qq|"> +|; + } + } else { + if ($myconfig{acs} !~ /AR--Vendor Invoice/) { + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Vendor Invoice').qq|"> +|; + } + } + + if ($form->{type} eq 'sales_order') { + if ($myconfig{acs} !~ /Quotations--RFQ/) { + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Quotation').qq|"> +|; + } + } + + if ($form->{type} eq 'purchase_order') { + if ($myconfig{acs} !~ /Quotations--RFQ/) { + print qq| +<input class=submit type=submit name=action value="|.$locale->text('RFQ').qq|"> +|; + } + } + + if ($form->{type} eq 'sales_quotation') { + if ($myconfig{acs} !~ /Order Entry--Sales Order/) { + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Sales Order').qq|"> +|; + } + } + + if ($myconfig{acs} !~ /Order Entry--Purchase Order/) { + if ($form->{type} eq 'request_quotation') { + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Purchase Order').qq|"> +|; + } + } + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + +<input type=hidden name=rowcount value=$form->{rowcount}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +</form> + +<a name=end></a> + +</body> +</html> +|; + +} + + +sub update { + + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate); + + &check_name($form->{vc}); + + + $buysell = 'buy'; + $buysell = 'sell' if ($form->{vc} eq 'vendor'); + $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, $buysell))); + + my $i = $form->{rowcount}; + $exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1; + + foreach $item (qw(partsgroup projectnumber)) { + $form->{"select$item"} = $form->unescape($form->{"select$item"}) if $form->{"select$item"}; + } + + if (($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "") && ($form->{"partsgroup_$i"} eq "")) { + + $form->{creditremaining} += ($form->{oldinvtotal} - $form->{oldtotalpaid}); + &check_form; + + } else { + + if ($form->{type} eq 'purchase_order' || $form->{type} eq 'request_quotation') { + IR->retrieve_item(\%myconfig, \%$form); + } + if ($form->{type} eq 'sales_order' || $form->{type} eq 'sales_quotation') { + IS->retrieve_item(\%myconfig, \%$form); + } + + $rows = scalar @{ $form->{item_list} }; + + $form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{discount} * 100); + + if ($rows) { + $form->{"qty_$i"} = 1; + if ($form->{type} !~ /_quotation/) { + $form->{"reqdate_$i"} = $form->{reqdate} unless $form->{"reqdate_$i"}; + } + + if ($rows > 1) { + + &select_item; + exit; + + } else { + + $sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"}); + + map { $form->{item_list}[$i]{$_} = $form->quote($form->{item_list}[$i]{$_}) } qw(partnumber description unit); + map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] }; + + $s = ($sellprice) ? $sellprice : $form->{"sellprice_$i"}; + + ($dec) = ($s =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + if ($sellprice) { + $form->{"sellprice_$i"} = $sellprice; + } else { + # if there is an exchange rate adjust prices + $form->{"sellprice_$i"} *= (1 - $form->{tradediscount}); + $form->{"sellprice_$i"} /= $exchangerate; + } + + map { $form->{"${_}_$i"} /= $exchangerate } qw(listprice lastcost); + + $amount = $form->{"sellprice_$i"} * $form->{"qty_$i"} * (1 - $form->{"discount_$i"} / 100); + map { $form->{"${_}_base"} = 0 } (split / /, $form->{taxaccounts}); + map { $form->{"${_}_base"} += $amount } (split / /, $form->{"taxaccounts_$i"}); + map { $amount += ($form->{"${_}_base"} * $form->{"${_}_rate"}) } split / /, $form->{taxaccounts} if !$form->{taxincluded}; + + $form->{creditremaining} -= $amount; + + map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice listprice lastcost); + + $form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"}); + } + + &display_form; + + } else { + # ok, so this is a new part + # ask if it is a part or service item + + if ($form->{"partsgroup_$i"} && ($form->{"partsnumber_$i"} eq "") && ($form->{"description_$i"} eq "")) { + $form->{rowcount}--; + $form->{"discount_$i"} = ""; + &display_form; + } else { + + $form->{"id_$i"} = 0; + $form->{"unit_$i"} = $locale->text('ea'); + $form->{"reqdate_$i"} = $form->{reqdate} if $form->{type} !~ /_quotation/; + + &new_item; + + } + } + } + +} + + + +sub search { + + if ($form->{type} eq 'purchase_order') { + $form->{title} = $locale->text('Purchase Orders'); + $form->{vc} = 'vendor'; + $ordlabel = $locale->text('Order Number'); + $ordnumber = 'ordnumber'; + $employee = $locale->text('Employee'); + } + if ($form->{type} eq 'request_quotation') { + $form->{title} = $locale->text('Request for Quotations'); + $form->{vc} = 'vendor'; + $ordlabel = $locale->text('RFQ Number'); + $ordnumber = 'quonumber'; + $employee = $locale->text('Employee'); + } + if ($form->{type} eq 'receive_order') { + $form->{title} = $locale->text('Receive Merchandise'); + $form->{vc} = 'vendor'; + $ordlabel = $locale->text('Order Number'); + $ordnumber = 'ordnumber'; + $employee = $locale->text('Employee'); + } + if ($form->{type} eq 'sales_order') { + $form->{title} = $locale->text('Sales Orders'); + $form->{vc} = 'customer'; + $ordlabel = $locale->text('Order Number'); + $ordnumber = 'ordnumber'; + $employee = $locale->text('Salesperson'); + } + if ($form->{type} eq 'ship_order') { + $form->{title} = $locale->text('Ship Merchandise'); + $form->{vc} = 'customer'; + $ordlabel = $locale->text('Order Number'); + $ordnumber = 'ordnumber'; + $employee = $locale->text('Salesperson'); + + } + + if ($form->{type} eq 'sales_quotation') { + $form->{title} = $locale->text('Quotations'); + $form->{vc} = 'customer'; + $ordlabel = $locale->text('Quotation Number'); + $ordnumber = 'quonumber'; + $employee = $locale->text('Employee'); + } + + $manager = qq| + <td><input name="l_manager" class=checkbox type=checkbox value=Y> |.$locale->text('Manager').qq|</td>|; + + if ($form->{type} =~ /(ship|receive)_order/) { + OE->get_warehouses(\%myconfig, \%$form); + + $manager = ""; + + # warehouse + if (@{ $form->{all_warehouses} }) { + $form->{selectwarehouse} = "<option>\n"; + $form->{warehouse} = qq|$form->{warehouse}--$form->{warehouse_id}|; + + map { $form->{selectwarehouse} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_warehouses} }); + + $warehouse = qq| + <tr> + <th align=right>|.$locale->text('Warehouse').qq|</th> + <td><select name=warehouse>$form->{selectwarehouse}</select></td> + <input type=hidden name=selectwarehouse value="|. + $form->escape($form->{selectwarehouse},1).qq|"> + </tr> +|; + + } + } + + # setup vendor / customer selection + $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP"); + + map { $vc .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{"all_$form->{vc}"} }; + + $vclabel = ucfirst $form->{vc}; + $vclabel = $locale->text($vclabel); + +# $locale->text('Vendor') +# $locale->text('Customer') + + $vc = ($vc) ? qq|<select name=$form->{vc}><option>\n$vc</select>| : qq|<input name=$form->{vc} size=35>|; + + # departments + if (@{ $form->{all_departments} }) { + $form->{selectdepartment} = "<option>\n"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + $department = qq| + <tr> + <th align=right nowrap>|.$locale->text('Department').qq|</th> + <td colspan=3><select name=department>$form->{selectdepartment}</select></td> + </tr> +| if $form->{selectdepartment}; + + if ($form->{type} !~ /(ship|receive)_order/) { + $openclosed = qq| + <tr> + <td><input name="open" class=checkbox type=checkbox value=1 checked> |.$locale->text('Open').qq|</td> + <td><input name="closed" class=checkbox type=checkbox value=1 $form->{closed}> |.$locale->text('Closed').qq|</td> + </tr> +|; + } else { + + $openclosed = qq| + <input type=hidden name="open" value=1> +|; + } + + + # accounting years + $form->{selectaccountingyear} = "<option>\n"; + map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} }; + $form->{selectaccountingmonth} = "<option>\n"; + map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} }; + + $selectfrom = qq| + <tr> + <th align=right>|.$locale->text('Period').qq|</th> + <td colspan=3> + <select name=month>$form->{selectaccountingmonth}</select> + <select name=year>$form->{selectaccountingyear}</select> + <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq| + <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq| + <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq| + <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq| + </td> + </tr> +|; + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right>$vclabel</th> + <td colspan=3>$vc</td> + </tr> + $warehouse + $department + <tr> + <th align=right>$ordlabel</th> + <td colspan=3><input name="$ordnumber" size=20></td> + </tr> + <tr> + <th align=right>|.$locale->text('Ship via').qq|</th> + <td colspan=3><input name="shipvia" size=40></td> + </tr> + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td><input name=transdatefrom size=11 title="$myconfig{dateformat}"></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=transdateto size=11 title="$myconfig{dateformat}"></td> + </tr> + <input type=hidden name=sort value=transdate> + $selectfrom + <tr> + <th align=right>|.$locale->text('Include in Report').qq|</th> + <td colspan=3> + <table> + $openclosed + <tr> + <td><input name="l_id" class=checkbox type=checkbox value=Y> + |.$locale->text('ID').qq|</td> + <td><input name="l_$ordnumber" class=checkbox type=checkbox value=Y checked> $ordlabel</td> + <td><input name="l_transdate" class=checkbox type=checkbox value=Y checked> |.$locale->text('Date').qq|</td> + <td><input name="l_reqdate" class=checkbox type=checkbox value=Y checked> |.$locale->text('Required by').qq|</td> + </tr> + <tr> + <td><input name="l_name" class=checkbox type=checkbox value=Y checked> $vclabel</td> + <td><input name="l_employee" class=checkbox type=checkbox value=Y checked> $employee</td> + $manager + <td><input name="l_shipvia" class=checkbox type=checkbox value=Y> |.$locale->text('Ship via').qq|</td> + </tr> + <tr> + <td><input name="l_netamount" class=checkbox type=checkbox value=Y> |.$locale->text('Amount').qq|</td> + <td><input name="l_tax" class=checkbox type=checkbox value=Y> |.$locale->text('Tax').qq|</td> + <td><input name="l_amount" class=checkbox type=checkbox value=Y checked> |.$locale->text('Total').qq|</td> + <td><input name="l_curr" class=checkbox type=checkbox value=Y checked> |.$locale->text('Currency').qq|</td> + </tr> + <tr> + <td><input name="l_subtotal" class=checkbox type=checkbox value=Y> |.$locale->text('Subtotal').qq|</td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr><td colspan=4><hr size=3 noshade></td></tr> +</table> + +<br> +<input type=hidden name=nextsub value=transactions> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=vc value=$form->{vc}> +<input type=hidden name=type value=$form->{type}> + +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + +sub transactions { + + # split vendor / customer + ($form->{$form->{vc}}, $form->{"$form->{vc}_id"}) = split(/--/, $form->{$form->{vc}}); + + $ordnumber = ($form->{type} =~ /_order/) ? 'ordnumber' : 'quonumber'; + + OE->transactions(\%myconfig, \%$form); + + $number = $form->escape($form->{$ordnumber}); + $name = $form->escape($form->{$form->{vc}}); + $department = $form->escape($form->{department}); + $warehouse = $form->escape($form->{warehouse}); + $shipvia = $form->escape($form->{shipvia}); + + # construct href + $href = qq|$form->{script}?oldsort=$form->{oldsort}&direction=$form->{direction}&path=$form->{path}&action=transactions&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&sessionid=$form->{sessionid}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}&$ordnumber=$number&$form->{vc}=$name--$form->{"$form->{vc}_id"}&department=$department&warehouse=$warehouse&shipvia=$shipvia|; + + # construct callback + $number = $form->escape($form->{$ordnumber},1); + $name = $form->escape($form->{$form->{vc}},1); + $department = $form->escape($form->{department},1); + $warehouse = $form->escape($form->{warehouse},1); + $shipvia = $form->escape($form->{shipvia},1); + + # flip direction + $form->sort_order(); + + $callback = qq|$form->{script}?oldsort=$form->{oldsort}&direction=$form->{direction}&path=$form->{path}&action=transactions&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&sessionid=$form->{sessionid}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}&$ordnumber=$number&$form->{vc}=$name--$form->{"$form->{vc}_id"}&department=$department&warehouse=$warehouse&shipvia=$shipvia|; + + @columns = $form->sort_columns("transdate", "reqdate", "id", "$ordnumber", "name", "netamount", "tax", "amount", "curr", "employee", "manager", "shipvia", "open", "closed"); + + $form->{l_open} = $form->{l_closed} = "Y" if ($form->{open} && $form->{closed}) ; + + foreach $item (@columns) { + if ($form->{"l_$item"} eq "Y") { + push @column_index, $item; + + if ($form->{l_curr} && $item =~ /(amount|tax)/) { + push @column_index, "fx_$item"; + } + + # add column to href and callback + $callback .= "&l_$item=Y"; + $href .= "&l_$item=Y"; + } + } + + if ($form->{l_subtotal} eq 'Y') { + $callback .= "&l_subtotal=Y"; + $href .= "&l_subtotal=Y"; + } + + + $i = 1; + if ($form->{vc} eq 'vendor') { + if ($form->{type} eq 'receive_order') { + $form->{title} = $locale->text('Receive Merchandise'); + } elsif ($form->{type} eq 'purchase_order') { + $form->{title} = $locale->text('Purchase Orders'); + + if ($myconfig{acs} !~ /Order Entry--Order Entry/) { + $button{'Order Entry--Purchase Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Purchase Order').qq|"> |; + $button{'Order Entry--Sales Order'}{order} = $i++; + } + + } else { + $form->{title} = $locale->text('Request for Quotations'); + + if ($myconfig{acs} !~ /Quotations--Quotations/) { + $button{'Quotations--RFQ'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('RFQ ').qq|"> |; + $button{'Quotations--RFQ'}{order} = $i++; + } + + } + $name = $locale->text('Vendor'); + $employee = $locale->text('Employee'); + } + if ($form->{vc} eq 'customer') { + if ($form->{type} eq 'sales_order') { + $form->{title} = $locale->text('Sales Orders'); + $employee = $locale->text('Salesperson'); + + if ($myconfig{acs} !~ /Order Entry--Order Entry/) { + $button{'Order Entry--Sales Order'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Sales Order').qq|"> |; + $button{'Order Entry--Sales Order'}{order} = $i++; + } + + } elsif ($form->{type} eq 'ship_order') { + $form->{title} = $locale->text('Ship Merchandise'); + $employee = $locale->text('Salesperson'); + } else { + $form->{title} = $locale->text('Quotations'); + $employee = $locale->text('Employee'); + + if ($myconfig{acs} !~ /Quotations--Quotations/) { + $button{'Quotations--Quotation'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Quotation ').qq|"> |; + $button{'Quotations--Quotation'}{order} = $i++; + } + + } + $name = $locale->text('Customer'); + } + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + + $column_header{id} = qq|<th><a class=listheading href=$href&sort=id>|.$locale->text('ID').qq|</a></th>|; + $column_header{transdate} = qq|<th><a class=listheading href=$href&sort=transdate>|.$locale->text('Date').qq|</a></th>|; + $column_header{reqdate} = qq|<th><a class=listheading href=$href&sort=reqdate>|.$locale->text('Required by').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>|; + $column_header{name} = qq|<th><a class=listheading href=$href&sort=name>$name</a></th>|; + $column_header{netamount} = qq|<th class=listheading>|.$locale->text('Amount').qq|</th>|; + $column_header{tax} = qq|<th class=listheading>|.$locale->text('Tax').qq|</th>|; + $column_header{amount} = qq|<th class=listheading>|.$locale->text('Total').qq|</th>|; + $column_header{curr} = qq|<th><a class=listheading href=$href&sort=curr>|.$locale->text('Curr').qq|</a></th>|; + $column_header{shipvia} = qq|<th><a class=listheading href=$href&sort=shipvia>|.$locale->text('Ship via').qq|</a></th>|; + $column_header{open} = qq|<th class=listheading>|.$locale->text('O').qq|</th>|; + $column_header{closed} = qq|<th class=listheading>|.$locale->text('C').qq|</th>|; + + $column_header{employee} = qq|<th><a class=listheading href=$href&sort=employee>$employee</a></th>|; + $column_header{manager} = qq|<th><a class=listheading href=$href&sort=manager>|.$locale->text('Manager').qq|</a></th>|; + + map { $column_header{"fx_$_"} = "<th> </th>" } qw(amount tax netamount); + + if ($form->{$form->{vc}}) { + $option = $locale->text(ucfirst $form->{vc}); + $option .= " : $form->{$form->{vc}}"; + } + if ($form->{warehouse}) { + ($warehouse) = split /--/, $form->{warehouse}; + $option .= "\n<br>" if ($option); + $option .= $locale->text('Warehouse'); + $option .= " : $warehouse"; + } + if ($form->{department}) { + $option .= "\n<br>" if ($option); + ($department) = split /--/, $form->{department}; + $option .= $locale->text('Department')." : $department"; + } + if ($form->{transdatefrom}) { + $option .= "\n<br>".$locale->text('From')." ".$locale->date(\%myconfig, $form->{transdatefrom}, 1); + } + if ($form->{transdateto}) { + $option .= "\n<br>".$locale->text('To')." ".$locale->date(\%myconfig, $form->{transdateto}, 1); + } + if ($form->{open}) { + $option .= "\n<br>" if ($option); + $option .= $locale->text('Open'); + } + if ($form->{closed}) { + $option .= "\n<br>" if ($option); + $option .= $locale->text('Closed'); + } + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading>|; + + map { print "\n$column_header{$_}" } @column_index; + + print qq| + </tr> +|; + + # add sort and escape callback + $callback .= "&sort=$form->{sort}"; + $form->{callback} = $callback; + $callback = $form->escape($callback); + + # flip direction + $direction = ($form->{direction} eq 'ASC') ? "ASC" : "DESC"; + $href =~ s/&direction=(\w+)&/&direction=$direction&/; + + if (@{ $form->{OE} }) { + $sameitem = $form->{OE}->[0]->{$form->{sort}}; + } + + $action = "edit"; + $action = "ship_receive" if ($form->{type} =~ /(ship|receive)_order/); + + $warehouse = $form->escape($form->{warehouse}); + + foreach $oe (@{ $form->{OE} }) { + + if ($form->{l_subtotal} eq 'Y') { + if ($sameitem ne $oe->{$form->{sort}}) { + &subtotal; + $sameitem = $oe->{$form->{sort}}; + } + } + + if ($form->{l_curr}) { + map { $oe->{"fx_$_"} = $oe->{$_} } (qw(netamount amount)); + $oe->{fx_tax} = $oe->{fx_amount} - $oe->{fx_netamount}; + map { $oe->{$_} *= $oe->{exchangerate} } (qw(netamount amount)); + + map { $column_data{"fx_$_"} = "<td align=right>".$form->format_amount(\%myconfig, $oe->{"fx_$_"}, 2, " ")."</td>" } qw(netamount amount); + $column_data{fx_tax} = "<td align=right>".$form->format_amount(\%myconfig, $oe->{fx_amount} - $oe->{fx_netamount}, 2, " ")."</td>"; + + $totalfxnetamount += $oe->{fx_netamount}; + $totalfxamount += $oe->{fx_amount}; + + $subtotalfxnetamount += $oe->{fx_netamount}; + $subtotalfxamount += $oe->{fx_amount}; + } + + map { $column_data{$_} = "<td align=right>".$form->format_amount(\%myconfig, $oe->{$_}, 2, " ")."</td>" } qw(netamount amount); + $column_data{tax} = "<td align=right>".$form->format_amount(\%myconfig, $oe->{amount} - $oe->{netamount}, 2, " ")."</td>"; + + $totalnetamount += $oe->{netamount}; + $totalamount += $oe->{amount}; + + $subtotalnetamount += $oe->{netamount}; + $subtotalamount += $oe->{amount}; + + + $column_data{id} = "<td>$oe->{id}</td>"; + $column_data{transdate} = "<td>$oe->{transdate} </td>"; + $column_data{reqdate} = "<td>$oe->{reqdate} </td>"; + + $column_data{$ordnumber} = "<td><a href=oe.pl?path=$form->{path}&action=$action&type=$form->{type}&id=$oe->{id}&warehouse=$warehouse&vc=$form->{vc}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$oe->{$ordnumber}</a></td>"; + + $name = $form->escape($oe->{name}); + $column_data{name} = qq|<td><a href=$href&$form->{vc}=$name--$oe->{"$form->{vc}_id"}&sort=$form->{sort}>$oe->{name}</a></td>|; + + map { $column_data{$_} = "<td>$oe->{$_} </td>" } qw(employee manager shipvia curr); + + if ($oe->{closed}) { + $column_data{closed} = "<td align=center>*</td>"; + $column_data{open} = "<td> </td>"; + } else { + $column_data{closed} = "<td> </td>"; + $column_data{open} = "<td align=center>*</td>"; + } + + $i++; $i %= 2; + print " + <tr class=listrow$i>"; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + } + + if ($form->{l_subtotal} eq 'Y') { + &subtotal; + } + + # print totals + print qq| + <tr class=listtotal>|; + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalnetamount, 2, " ")."</th>"; + $column_data{tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalnetamount, 2, " ")."</th>"; + $column_data{amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount, 2, " ")."</th>"; + + if ($form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal}) { + $column_data{fx_netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxnetamount, 2, " ")."</th>"; + $column_data{fx_tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount - $totalfxnetamount, 2, " ")."</th>"; + $column_data{fx_amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalfxamount, 2, " ")."</th>"; + } + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> + </td> + </table> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=type value=$form->{type}> + +<input type=hidden name=$form->{vc} value="$form->{$form->{vc}}"> +<input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}> +<input type=hidden name=vc value=$form->{vc}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + if ($form->{type} !~ /(ship|receive)_order/) { + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| +</form> + +</body> +</html> +|; + +} + + + +sub subtotal { + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{netamount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalnetamount, 2, " ")."</th>"; + $column_data{tax} = "<td class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalnetamount, 2, " ")."</th>"; + $column_data{amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount, 2, " ")."</th>"; + + if ($form->{l_curr} && $form->{sort} eq 'curr' && $form->{l_subtotal}) { + $column_data{fx_netamount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxnetamount, 2, " ")."</th>"; + $column_data{fx_tax} = "<td class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount - $subtotalfxnetamount, 2, " ")."</th>"; + $column_data{fx_amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalfxamount, 2, " ")."</th>"; + } + + $subtotalnetamount = 0; + $subtotalamount = 0; + + $subtotalfxnetamount = 0; + $subtotalfxamount = 0; + + print " + <tr class=listsubtotal> +"; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + +} + + +sub save { + + if ($form->{type} =~ /_order$/) { + $form->isblank("transdate", $locale->text('Order Date missing!')); + } else { + $form->isblank("transdate", $locale->text('Quotation Date missing!')); + } + + $msg = ucfirst $form->{vc}; + $form->isblank($form->{vc}, $locale->text($msg . " missing!")); + +# $locale->text('Customer missing!'); +# $locale->text('Vendor missing!'); + + $form->isblank("exchangerate", $locale->text('Exchange rate missing!')) if ($form->{currency} ne $form->{defaultcurrency}); + + &validate_items; + + # if the name changed get new values + if (&check_name($form->{vc})) { + &update; + exit; + } + + + # this is for the internal notes section for the [email] Subject + if ($form->{type} =~ /_order$/) { + if ($form->{type} eq 'sales_order') { + $form->{label} = $locale->text('Sales Order'); + + $numberfld = "sonumber"; + $ordnumber = "ordnumber"; + } else { + $form->{label} = $locale->text('Purchase Order'); + + $numberfld = "ponumber"; + $ordnumber = "ordnumber"; + } + + $err = $locale->text('Cannot save order!'); + + } else { + if ($form->{type} eq 'sales_quotation') { + $form->{label} = $locale->text('Quotation'); + + $numberfld = "sqnumber"; + $ordnumber = "quonumber"; + } else { + $form->{label} = $locale->text('Request for Quotation'); + + $numberfld = "rfqnumber"; + $ordnumber = "quonumber"; + } + + $err = $locale->text('Cannot save quotation!'); + + } + + + $form->{id} = 0 if $form->{saveasnew}; + + $form->{$ordnumber} = $form->update_defaults(\%myconfig, $numberfld) unless $form->{$ordnumber}; + + $form->redirect($locale->text('Order saved!')) if (OE->save(\%myconfig, \%$form)); + $form->error($err); + +} + + +sub print_and_save { + + $form->error($locale->text('Select postscript or PDF!')) if $form->{format} !~ /(postscript|pdf)/; + $form->error($locale->text('Select Printer or Queue!')) if $form->{media} eq 'screen'; + + $old_form = new Form; + $form->{display_form} = "save"; + map { $old_form->{$_} = $form->{$_} } keys %$form; + $old_form->{rowcount}++; + + &print_form($old_form); + +} + + +sub delete { + + $form->header; + + if ($form->{type} =~ /_order$/) { + $msg = $locale->text('Are you sure you want to delete Order Number'); + $ordnumber = 'ordnumber'; + } else { + $msg = $locale->text('Are you sure you want to delete Quotation Number'); + $ordnumber = 'quonumber'; + } + + print qq| +<body> + +<form method=post action=$form->{script}> +|; + + # delete action variable + map { delete $form->{$_} } qw(action header); + + $form->hide_form(); + + print qq| +<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2> + +<h4>$msg $form->{$ordnumber}</h4> +<p> +<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|"> +</form> + +</body> +</html> +|; + + +} + + + +sub yes { + + if ($form->{type} =~ /_order$/) { + $msg = $locale->text('Order deleted!'); + $err = $locale->text('Cannot delete order!'); + } else { + $msg = $locale->text('Quotation deleted!'); + $err = $locale->text('Cannot delete quotation!'); + } + + $form->redirect($msg) if (OE->delete(\%myconfig, \%$form, $spool)); + $form->error($err); + +} + + +sub vendor_invoice { &invoice }; +sub sales_invoice { &invoice }; + +sub invoice { + + if ($form->{type} =~ /_order$/) { + $form->isblank("ordnumber", $locale->text('Order Number missing!')); + $form->isblank("transdate", $locale->text('Order Date missing!')); + + } else { + $form->isblank("quonumber", $locale->text('Quotation Number missing!')); + $form->isblank("transdate", $locale->text('Quotation Date missing!')); + $form->{ordnumber} = ""; + } + + # if the name changed get new values + if (&check_name($form->{vc})) { + &update; + exit; + } + + + if ($form->{type} =~ /_order/ && $form->{currency} ne $form->{defaultcurrency}) { + # check if we need a new exchangerate + $buysell = ($form->{type} eq 'sales_order') ? "buy" : "sell"; + + $orddate = $form->current_date(\%myconfig); + $exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $orddate, $buysell); + + if (!$exchangerate) { + &backorder_exchangerate($orddate, $buysell); + exit; + } + } + + + # close orders/quotations + $form->{closed} = 1; + + OE->save(\%myconfig, \%$form); + + $form->{transdate} = $form->current_date(\%myconfig); + $form->{duedate} = $form->current_date(\%myconfig, $form->{transdate}, $form->{terms} * 1); + + $form->{id} = ''; + $form->{closed} = 0; + $form->{rowcount}--; + $form->{shipto} = 1; + + + if ($form->{type} =~ /_order$/) { + $form->{exchangerate} = $exchangerate; + &create_backorder; + } + + + if ($form->{type} eq 'purchase_order' || $form->{type} eq 'request_quotation') { + $form->{title} = $locale->text('Add Vendor Invoice'); + $form->{script} = 'ir.pl'; + $script = "ir"; + $buysell = 'sell'; + } + if ($form->{type} eq 'sales_order' || $form->{type} eq 'sales_quotation') { + $form->{title} = $locale->text('Add Sales Invoice'); + $form->{script} = 'is.pl'; + $script = "is"; + $buysell = 'buy'; + } + + map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued); + $form->{$form->{vc}} =~ s/--.*//g; + $form->{type} = "invoice"; + + # locale messages + $locale = new Locale "$myconfig{countrycode}", "$script"; + + require "$form->{path}/$form->{script}"; + + # customized scripts + if (-f "$form->{path}/custom_$form->{script}") { + eval { require "$form->{path}/custom_$form->{script}"; }; + } + + # customized scripts for login + if (-f "$form->{path}/$form->{login}_$form->{script}") { + eval { require "$form->{path}/$form->{login}_$form->{script}"; }; + } + + map { $form->{"select$_"} = "" } ($form->{vc}, currency); + map { $temp{$_} = $form->{$_} } qw(currency oldcurrency employee department intnotes notes); + + &invoice_links; + + $form->{creditremaining} -= ($form->{oldinvtotal} - $form->{ordtotal}); + + &prepare_invoice; + + map { $form->{$_} = $temp{$_} } keys %temp; + + $form->{exchangerate} = ""; + $form->{forex} = ""; + $form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, $buysell))); + + for $i (1 .. $form->{rowcount}) { + $form->{"deliverydate_$i"} = $form->{"reqdate_$i"}; + map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(qty sellprice discount); + } + + map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued audittrail); + + &display_form; + +} + + + +sub backorder_exchangerate { + my ($orddate, $buysell) = @_; + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> +|; + + # delete action variable + map { delete $form->{$_} } qw(action header exchangerate); + + $form->hide_form(); + + $form->{title} = $locale->text('Add Exchange Rate'); + + print qq| + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=exchangeratedate value=$orddate> +<input type=hidden name=buysell value=$buysell> + +<table width=100%> + <tr><th class=listtop>$form->{title}</th></tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Currency').qq|</th> + <td>$form->{currency}</td> + </tr> + <tr> + <th align=right>|.$locale->text('Date').qq|</th> + <td>$orddate</td> + </tr> + <tr> + <th align=right>|.$locale->text('Exchange Rate').qq|</th> + <td><input name=exchangerate size=11></td> + </tr> + </table> + </td> + </tr> +</table> + +<hr size=3 noshade> + +<br> +<input type=hidden name=nextsub value=save_exchangerate> + +<input name=action class=submit type=submit value="|.$locale->text('Continue').qq|"> + +</form> + +</body> +</html> +|; + + +} + + +sub save_exchangerate { + + $form->isblank("exchangerate", $locale->text('Exchange rate missing!')); + $form->{exchangerate} = $form->parse_amount(\%myconfig, $form->{exchangerate}); + $form->save_exchangerate(\%myconfig, $form->{currency}, $form->{exchangeratedate}, $form->{exchangerate}, $form->{buysell}); + + &invoice; + +} + + +sub create_backorder { + + $form->{shipped} = 1; + + # figure out if we need to create a backorder + # items aren't saved if qty != 0 + + $dec1 = $dec2 = 0; + for $i (1 .. $form->{rowcount}) { + ($dec) = ($form->{"qty_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $dec1 = ($dec > $dec1) ? $dec : $dec1; + + ($dec) = ($form->{"ship_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $dec2 = ($dec > $dec2) ? $dec : $dec2; + + $totalqty += $qty = $form->{"qty_$i"}; + $totalship += $ship = $form->{"ship_$i"}; + + $form->{"qty_$i"} = $qty - $ship; + } + + $totalqty = $form->round_amount($totalqty, $dec1); + $totalship = $form->round_amount($totalship, $dec2); + + if ($totalship == 0) { + map { $form->{"ship_$_"} = $form->{"qty_$_"} } (1 .. $form->{rowcount}); + $form->{ordtotal} = 0; + $form->{shipped} = 0; + return; + } + + if ($totalqty == $totalship) { + map { $form->{"qty_$_"} = $form->{"ship_$_"} } (1 .. $form->{rowcount}); + $form->{ordtotal} = 0; + return; + } + + @flds = qw(partnumber sku description qty oldqty ship unit sellprice discount id inventory_accno bin income_accno expense_accno listprice assembly taxaccounts partsgroup reqdate pricematrix); + + for $i (1 .. $form->{rowcount}) { + map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}) } qw(qty sellprice discount); + + $form->{"oldship_$i"} = $form->{"ship_$i"}; + $form->{"ship_$i"} = 0; + } + + # clear flags + map { delete $form->{$_} } qw(id subject message cc bcc printed emailed queued audittrail); + + OE->save(\%myconfig, \%$form); + + # rebuild rows for invoice + @a = (); + $count = 0; + + for $i (1 .. $form->{rowcount}) { + $form->{"qty_$i"} = $form->{"oldship_$i"}; + $form->{"oldqty_$i"} = $form->{"qty_$i"}; + + $form->{"orderitems_id_$i"} = ""; + + if ($form->{"qty_$i"}) { + push @a, {}; + $j = $#a; + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + + $form->redo_rows(\@flds, \@a, $count, $form->{rowcount}); + $form->{rowcount} = $count; + +} + + + +sub save_as_new { + + $form->{saveasnew} = 1; + $form->{closed} = 0; + map { delete $form->{$_} } qw(printed emailed queued); + + &save; + +} + + +sub ship_receive { + + &order_links; + + &prepare_order; + + OE->get_warehouses(\%myconfig, \%$form); + + # warehouse + if (@{ $form->{all_warehouses} }) { + $form->{selectwarehouse} = "<option>\n"; + + map { $form->{selectwarehouse} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_warehouses} }); + + if ($form->{warehouse}) { + $form->{selectwarehouse} = qq|<option value="$form->{warehouse}">|; + $form->{warehouse} =~ s/--.*//; + $form->{selectwarehouse} .= $form->{warehouse}; + } + } + + $form->{shippingdate} = $form->current_date(\%myconfig); + $form->{"$form->{vc}"} =~ s/--.*//; + $form->{"old$form->{vc}"} = qq|$form->{"$form->{vc}"}--$form->{"$form->{vc}_id"}|; + + @flds = (); + @a = (); + $count = 0; + foreach $key (keys %$form) { + if ($key =~ /_1$/) { + $key =~ s/_1//; + push @flds, $key; + } + } + + for $i (1 .. $form->{rowcount}) { + # undo formatting from prepare_order + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(qty ship); + $n = ($form->{"qty_$i"} -= $form->{"ship_$i"}); + if (abs($n) > 0 && ($form->{"inventory_accno_$i"} || $form->{"assembly_$i"})) { + $form->{"ship_$i"} = ""; + $form->{"serialnumber_$i"} = ""; + + push @a, {}; + $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + + $form->redo_rows(\@flds, \@a, $count, $form->{rowcount}); + $form->{rowcount} = $count; + + &display_ship_receive; + +} + + +sub display_ship_receive { + + $vclabel = ucfirst $form->{vc}; + $vclabel = $locale->text($vclabel); + + $form->{rowcount}++; + + if ($form->{vc} eq 'customer') { + $form->{title} = $locale->text('Ship Merchandise'); + $shipped = $locale->text('Shipping Date'); + } else { + $form->{title} = $locale->text('Receive Merchandise'); + $shipped = $locale->text('Date Received'); + } + + # set option selected + foreach $item (warehouse, employee) { + $form->{"select$item"} = $form->unescape($form->{"select$item"}); + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/; + } + + + $warehouse = qq| + <tr> + <th align=right>|.$locale->text('Warehouse').qq|</th> + <td><select name=warehouse>$form->{selectwarehouse}</select></td> + <input type=hidden name=selectwarehouse value="|. + $form->escape($form->{selectwarehouse},1).qq|"> + </tr> +| if $form->{selectwarehouse}; + + $employee = qq| + <tr> + <th align=right nowrap>|.$locale->text('Contact').qq|</th> + <td><select name=employee>$form->{selectemployee}</select></td> + <input type=hidden name=selectemployee value="|. + $form->escape($form->{selectemployee},1).qq|"> + </tr> +|; + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=id value=$form->{id}> + +<input type=hidden name=display_form value=display_ship_receive> + +<input type=hidden name=type value=$form->{type}> +<input type=hidden name=media value=$form->{media}> +<input type=hidden name=format value=$form->{format}> + +<input type=hidden name=queued value="$form->{queued}"> +<input type=hidden name=printed value="$form->{printed}"> +<input type=hidden name=emailed value="$form->{emailed}"> + +<input type=hidden name=vc value=$form->{vc}> +<input type=hidden name="old$form->{vc}" value="$form->{"old$form->{vc}"}"> + +<table width=100%> + <tr class=listtop> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width="100%"> + <tr valign=top> + <td> + <table width=100%> + <tr> + <th align=right>$vclabel</th> + <td colspan=3>$form->{$form->{vc}}</td> + <input type=hidden name=$form->{vc} value="$form->{$form->{vc}}"> + <input type=hidden name="$form->{vc}_id" value=$form->{"$form->{vc}_id"}> + </tr> + $department + <tr> + <th align=right>|.$locale->text('Shipping Point').qq|</th> + <td colspan=3> + <input name=shippingpoint size=35 value="$form->{shippingpoint}"> + </tr> + <tr> + <th align=right>|.$locale->text('Ship via').qq|</th> + <td colspan=3> + <input name=shipvia size=35 value="$form->{shipvia}"> + </tr> + $warehouse + </table> + </td> + <td align=right> + <table> + $employee + <tr> + <th align=right nowrap>|.$locale->text('Order Number').qq|</th> + <td>$form->{ordnumber}</td> + <input type=hidden name=ordnumber value="$form->{ordnumber}"> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Order Date').qq|</th> + <td>$form->{transdate}</td> + <input type=hidden name=transdate value=$form->{transdate}> + </tr> + <tr> + <th align=right nowrap>$shipped</th> + <td><input name=shippingdate size=11 value=$form->{shippingdate}></td> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + +<!-- shipto are in hidden variables --> + +<input type=hidden name=shiptoname value="$form->{shiptoname}"> +<input type=hidden name=shiptoaddress1 value="$form->{shiptoaddress1}"> +<input type=hidden name=shiptoaddress2 value="$form->{shiptoaddress2}"> +<input type=hidden name=shiptocity value="$form->{shiptocity}"> +<input type=hidden name=shiptostate value="$form->{shiptostate}"> +<input type=hidden name=shiptozipcode value="$form->{shiptozipcode}"> +<input type=hidden name=shiptocountry value="$form->{shiptocountry}"> +<input type=hidden name=shiptocontact value="$form->{shiptocontact}"> +<input type=hidden name=shiptophone value="$form->{shiptophone}"> +<input type=hidden name=shiptofax value="$form->{shiptofax}"> +<input type=hidden name=shiptoemail value="$form->{shiptoemail}"> + +<!-- email variables --> +<input type=hidden name=message value="$form->{message}"> +<input type=hidden name=email value="$form->{email}"> +<input type=hidden name=subject value="$form->{subject}"> +<input type=hidden name=cc value="$form->{cc}"> +<input type=hidden name=bcc value="$form->{bcc}"> + +|; + + @column_index = qw(partnumber); + + if ($form->{type} eq "ship_order") { + $column_data{ship} = qq|<th class=listheading>|.$locale->text('Ship').qq|</th>|; + } + if ($form->{type} eq "receive_order") { + $column_data{ship} = qq|<th class=listheading>|.$locale->text('Recd').qq|</th>|; + $column_data{sku} = qq|<th class=listheading>|.$locale->text('SKU').qq|</th>|; + push @column_index, "sku"; + } + push @column_index, qw(description qty ship unit bin serialnumber); + + my $colspan = $#column_index + 1; + + $column_data{partnumber} = qq|<th class=listheading nowrap>|.$locale->text('Number').qq|</th>|; + $column_data{description} = qq|<th class=listheading nowrap>|.$locale->text('Description').qq|</th>|; + $column_data{qty} = qq|<th class=listheading nowrap>|.$locale->text('Qty').qq|</th>|; + $column_data{unit} = qq|<th class=listheading nowrap>|.$locale->text('Unit').qq|</th>|; + $column_data{bin} = qq|<th class=listheading nowrap>|.$locale->text('Bin').qq|</th>|; + $column_data{serialnumber} = qq|<th class=listheading nowrap>|.$locale->text('Serial No.').qq|</th>|; + + print qq| + <tr> + <td> + <table width=100%> + <tr class=listheading>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + + for $i (1 .. $form->{rowcount} - 1) { + + # undo formatting + $form->{"ship_$i"} = $form->parse_amount(\%myconfig, $form->{"ship_$i"}); + + map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber sku description unit bin serialnumber); + + $description = $form->{"description_$i"}; + $description =~ s/
/<br>/g; + + $column_data{partnumber} = qq|<td>$form->{"partnumber_$i"}<input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}"></td>|; + $column_data{sku} = qq|<td>$form->{"sku_$i"}<input type=hidden name="sku_$i" value="$form->{"sku_$i"}"></td>|; + $column_data{description} = qq|<td>$description<input type=hidden name="description_$i" value="$form->{"description_$i"}"></td>|; + $column_data{qty} = qq|<td align=right>|.$form->format_amount(\%myconfig, $form->{"qty_$i"}).qq|<input type=hidden name="qty_$i" value="$form->{"qty_$i"}"></td>|; + $column_data{ship} = qq|<td align=right><input name="ship_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"ship_$i"}).qq|></td>|; + $column_data{unit} = qq|<td>$form->{"unit_$i"}<input type=hidden name="unit_$i" value="$form->{"unit_$i"}"></td>|; + $column_data{bin} = qq|<td>$form->{"bin_$i"}<input type=hidden name="bin_$i" value="$form->{"bin_$i"}"></td>|; + + $column_data{serialnumber} = qq|<td><input name="serialnumber_$i" size=15 value="$form->{"serialnumber_$i"}"></td>|; + + print qq| + <tr valign=top>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> + +<input type=hidden name="orderitems_id_$i" value=$form->{"orderitems_id_$i"}> +<input type=hidden name="id_$i" value=$form->{"id_$i"}> +<input type=hidden name="assembly_$i" value="$form->{"assembly_$i"}"> +<input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}"> + +|; + + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> + <tr> + <td> +|; + + $form->{copies} = 1; + + &print_options; + + print qq| + </td> + </tr> +</table> +<br> +<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('Print').qq|"> +|; + + if ($form->{type} eq 'ship_order') { + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Ship to').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('E-mail').qq|"> +|; + } + + print qq| + +<input class=submit type=submit name=action value="|.$locale->text('Done').qq|"> +|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + +<input type=hidden name=rowcount value=$form->{rowcount}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +</form> + +</body> +</html> +|; + + +} + + +sub done { + + if ($form->{type} eq 'ship_order') { + $form->isblank("shippingdate", $locale->text('Shipping Date missing!')); + } else { + $form->isblank("shippingdate", $locale->text('Date received missing!')); + } + + $total = 0; + map { $total += $form->{"ship_$_"} = $form->parse_amount(\%myconfig, $form->{"ship_$_"}) } (1 .. $form->{rowcount} - 1); + + $form->error($locale->text('Nothing entered!')) unless $total; + + $form->redirect($locale->text('Inventory saved!')) if OE->save_inventory(\%myconfig, \%$form); + $form->error($locale->text('Could not save!')); + +} + + +sub search_transfer { + + OE->get_warehouses(\%myconfig, \%$form); + + # warehouse + if (@{ $form->{all_warehouses} }) { + $form->{selectwarehouse} = "<option>\n"; + $form->{warehouse} = qq|$form->{warehouse}--$form->{warehouse_id}|; + + map { $form->{selectwarehouse} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_warehouses} }); + } else { + $form->error($locale->text('Nothing to transfer!')); + } + + $form->get_partsgroup(\%myconfig, { all => 0, searchitems => 'part'}); + if (@{ $form->{all_partsgroup} }) { + $form->{selectpartsgroup} = "<option>\n"; + map { $form->{selectpartsgroup} .= qq|<option value="$_->{partsgroup}--$_->{id}">$_->{partsgroup}\n| } @{ $form->{all_partsgroup} }; + } + + $form->{title} = $locale->text('Transfer Inventory'); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Transfer to').qq|</th> + <td><select name=warehouse>$form->{selectwarehouse}</select></td> + </tr> + <tr> + <th align="right" nowrap="true">|.$locale->text('Part Number').qq|</th> + <td><input name=partnumber size=20></td> + </tr> + <tr> + <th align="right" nowrap="true">|.$locale->text('Description').qq|</th> + <td><input name=description size=40></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Group').qq|</th> + <td><select name=partsgroup><select>$form->{selectpartsgroup}</select></td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<input type=hidden name=sort value=partnumber> +<input type=hidden name=nextsub value=list_transfer> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + +sub list_transfer { + + OE->get_inventory(\%myconfig, \%$form); + + $partnumber = $form->escape($form->{partnumber}); + $warehouse = $form->escape($form->{warehouse}); + $description = $form->escape($form->{description}); + $partsgroup = $form->escape($form->{partsgroup}); + + # construct href + $href = "$form->{script}?path=$form->{path}&action=list_transfer&partnumber=$partnumber&warehouse=$warehouse&description=$description&partsgroup=$partsgroup&login=$form->{login}&sessionid=$form->{sessionid}"; + + # construct callback + $partnumber = $form->escape($form->{partnumber},1); + $warehouse = $form->escape($form->{warehouse},1); + $description = $form->escape($form->{description},1); + $partsgroup = $form->escape($form->{partsgroup},1); + + $callback = "$form->{script}?path=$form->{path}&action=list_transfer&partnumber=$partnumber&warehouse=$warehouse&description=$description&partsgroup=$partsgroup&login=$form->{login}&sessionid=$form->{sessionid}"; + + @column_index = $form->sort_columns(qw(partnumber description partsgroup make model warehouse qty transfer)); + + + $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>|; + $column_header{partsgroup} = qq|<th><a class=listheading href=$href&sort=partsgroup>|.$locale->text('Group').qq|</a></th>|; + $column_header{warehouse} = qq|<th><a class=listheading href=$href&sort=warehouse>|.$locale->text('From').qq|</a></th>|; + $column_header{qty} = qq|<th class=listheading>|.$locale->text('Qty').qq|</a></th>|; + $column_header{transfer} = qq|<th class=listheading>|.$locale->text('Transfer').qq|</a></th>|; + + + $option = $locale->text('Transfer to'); + + ($warehouse, $warehouse_id) = split /--/, $form->{warehouse}; + + if ($form->{warehouse}) { + $option .= " : $warehouse"; + } + if ($form->{partnumber}) { + $option .= "\n<br>" if ($option); + $option .= $locale->text('Part Number')." : $form->{partnumber}"; + } + if ($form->{description}) { + $option .= "\n<br>" if ($option); + $option .= $locale->text('Description')." : $form->{description}"; + } + if ($form->{partsgroup}) { + ($partsgroup) = split /--/, $form->{partsgroup}; + $option .= "\n<br>" if ($option); + $option .= $locale->text('Group')." : $partsgroup"; + } + + $form->{title} = $locale->text('Transfer Inventory'); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=warehouse_id value=$warehouse_id> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading>|; + +map { print "\n$column_header{$_}" } @column_index; + +print qq| + </tr> +|; + + + if (@{ $form->{all_inventory} }) { + $sameitem = $form->{all_inventory}->[0]->{$form->{sort}}; + } + + $i = 0; + foreach $ref (@{ $form->{all_inventory} }) { + + $i++; + + $column_data{partnumber} = qq|<td><input type=hidden name="id_$i" value=$ref->{id}>$ref->{partnumber}</td>|; + $column_data{description} = "<td>$ref->{description} </td>"; + $column_data{partsgroup} = "<td>$ref->{partsgroup} </td>"; + $column_data{warehouse} = qq|<td><input type=hidden name="warehouse_id_$i" value=$ref->{warehouse_id}>$ref->{warehouse} </td>|; + $column_data{qty} = qq|<td><input type=hidden name="qty_$i" value=$ref->{qty}>|.$form->format_amount(\%myconfig, $ref->{qty}).qq|</td>|; + $column_data{transfer} = qq|<td><input name="transfer_$i" size=4></td>|; + + $j++; $j %= 2; + print " + <tr class=listrow$j>"; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + } + + print qq| + </table> + </td> + </tr> + + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> + +<input name=callback type=hidden value="$callback"> + +<input type=hidden name=rowcount value=$i> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input class=submit type=submit name=action value="|.$locale->text('Transfer').qq|">|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| +</form> + +</body> +</html> +|; + + +} + + +sub transfer { + + $form->redirect($locale->text('Inventory transferred!')) if OE->transfer(\%myconfig, \%$form); + $form->error($locale->text('Could not transfer Inventory!')); + +} + + +sub rfq_ { &add }; +sub quotation_ { &add }; + + +sub redirect { + + $form->redirect; + $form->error($locale->text('Order processed!')); + +} + diff --git a/sql-ledger/bin/mozilla/pe.pl b/sql-ledger/bin/mozilla/pe.pl new file mode 100644 index 000000000..841c3fef2 --- /dev/null +++ b/sql-ledger/bin/mozilla/pe.pl @@ -0,0 +1,1236 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2002 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# project administration +# partsgroup administration +# translation maintainance +# +#====================================================================== + + +use SL::PE; + +1; +# end of main + + + +sub add { + + $form->{title} = "Add"; + + # construct callback + $form->{callback} = "$form->{script}?action=add&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &{ "$form->{type}_header" }; + &{ "$form->{type}_footer" }; + +} + + +sub edit { + + $form->{title} = "Edit"; + + &{ "PE::get_$form->{type}" }("", \%myconfig, \%$form); + &{ "$form->{type}_header" }; + &{ "$form->{type}_footer" }; + +} + + +sub search { + + if ($form->{type} eq 'project') { + $report = "project_report"; + $sort = 'projectnumber'; + $form->{title} = $locale->text('Projects'); + + $number = qq| + <tr> + <th align=right width=1%>|.$locale->text('Number').qq|</th> + <td><input name=projectnumber size=20></td> + </tr> + <tr> + <th align=right>|.$locale->text('Description').qq|</th> + <td><input name=description size=60></td> + </tr> +|; + + } + if ($form->{type} eq 'partsgroup') { + $report = "partsgroup_report"; + $sort = 'partsgroup'; + $form->{title} = $locale->text('Groups'); + + $number = qq| + <tr> + <th align=right width=1%>|.$locale->text('Group').qq|</th> + <td><input name=partsgroup size=20></td> + </tr> +|; + + } + if ($form->{type} eq 'pricegroup') { + $report = "pricegroup_report"; + $sort = 'pricegroup'; + $form->{title} = $locale->text('Pricegroups'); + + $number = qq| + <tr> + <th align=right width=1%>|.$locale->text('Pricegroup').qq|</th> + <td><input name=pricegroup size=20></td> + </tr> +|; + + } + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=sort value=$sort> +<input type=hidden name=type value=$form->{type}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width=100%> + $number + <tr> + <td></td> + <td><input name=status class=radio type=radio value=all checked> |.$locale->text('All').qq| + <input name=status class=radio type=radio value=orphaned> |.$locale->text('Orphaned').qq|</td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=nextsub value=$report> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + + +sub project_report { + + map { $form->{$_} = $form->unescape($form->{$_}) } (projectnumber, description); + PE->projects(\%myconfig, \%$form); + + $href = "$form->{script}?action=project_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}"; + + $form->sort_order(); + + $callback = "$form->{script}?action=project_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}"; + + if ($form->{status} eq 'all') { + $option = $locale->text('All'); + } + if ($form->{status} eq 'orphaned') { + $option .= $locale->text('Orphaned'); + } + if ($form->{projectnumber}) { + $href .= "&projectnumber=".$form->escape($form->{projectnumber}); + $callback .= "&projectnumber=$form->{projectnumber}"; + $option .= "\n<br>".$locale->text('Project')." : $form->{projectnumber}"; + } + if ($form->{description}) { + $href .= "&description=".$form->escape($form->{description}); + $callback .= "&description=$form->{description}"; + $option .= "\n<br>".$locale->text('Description')." : $form->{description}"; + } + + + @column_index = $form->sort_columns(qw(projectnumber description)); + + $column_header{projectnumber} = qq|<th><a class=listheading href=$href&sort=projectnumber>|.$locale->text('Number').qq|</a></th>|; + $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|; + + $form->{title} = $locale->text('Projects'); + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| + </tr> +|; + + # escape callback + $form->{callback} = $callback .= "&sort=$form->{sort}"; + + # escape callback for href + $callback = $form->escape($callback); + + foreach $ref (@{ $form->{project_list} }) { + + $i++; $i %= 2; + + print qq| + <tr valign=top class=listrow$i> +|; + + $column_data{projectnumber} = qq|<td><a href=$form->{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{projectnumber}</td>|; + $column_data{description} = qq|<td>$ref->{description} </td>|; + + map { print "$column_data{$_}\n" } @column_index; + + print " + </tr> +"; + } + + $i = 1; + if ($myconfig{acs} !~ /Projects--Projects/) { + $button{'Projects--Add Project'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Project').qq|"> |; + $button{'Projects--Add Project'}{order} = $i++; + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=type value=$form->{type}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +sub project_header { + + $form->{title} = $locale->text("$form->{title} Project"); + +# $locale->text('Add Project') +# $locale->text('Edit Project') + + $form->{description} = $form->quote($form->{description}); + + if (($rows = $form->numtextrows($form->{description}, 60)) > 1) { + $description = qq|<textarea name="description" rows=$rows cols=60 style="width: 100%" wrap=soft>$form->{description}</textarea>|; + } else { + $description = qq|<input name=description size=60 value="$form->{description}">|; + } + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=id value=$form->{id}> +<input type=hidden name=type value=project> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Number').qq|</th> + <td><input name=projectnumber size=20 value="$form->{projectnumber}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Description').qq|</th> + <td>$description</td> + </tr> + </table> + </td> + </tr> + <tr> + <td colspan=2><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub project_footer { + + print qq| + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +<br> +|; + + if ($myconfig{acs} !~ /Projects--Add Project/) { + print qq| +<input type=submit class=submit name=action value="|.$locale->text('Save').qq|"> +|; + + if ($form->{id} && $form->{orphaned}) { + print qq| +<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|; + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| +</form> + +</body> +</html> +|; + +} + + +sub save { + + if ($form->{type} eq 'project') { + $form->isblank("projectnumber", $locale->text('Project Number missing!')); + PE->save_project(\%myconfig, \%$form); + $form->redirect($locale->text('Project saved!')); + } + if ($form->{type} eq 'partsgroup') { + $form->isblank("partsgroup", $locale->text('Group missing!')); + PE->save_partsgroup(\%myconfig, \%$form); + $form->redirect($locale->text('Group saved!')); + } + if ($form->{type} eq 'pricegroup') { + $form->isblank("pricegroup", $locale->text('Pricegroup missing!')); + PE->save_pricegroup(\%myconfig, \%$form); + $form->redirect($locale->text('Pricegroup saved!')); + } + if ($form->{translation}) { + PE->save_translation(\%myconfig, \%$form); + $form->redirect($locale->text('Translations saved!')); + } + +} + + +sub delete { + + if ($form->{translation}) { + PE->delete_translation(\%myconfig, \%$form); + $form->redirect($locale->text('Translation deleted!')); + + } else { + + PE->delete_tuple(\%myconfig, \%$form); + + if ($form->{type} eq 'project') { + $form->redirect($locale->text('Project deleted!')); + } + if ($form->{type} eq 'partsgroup') { + $form->redirect($locale->text('Group deleted!')); + } + if ($form->{type} eq 'pricegroup') { + $form->redirect($locale->text('Pricegroup deleted!')); + } + } + +} + + +sub continue { &{ $form->{nextsub} } }; + + +sub partsgroup_report { + + map { $form->{$_} = $form->unescape($form->{$_}) } (partsgroup); + PE->partsgroups(\%myconfig, \%$form); + + $href = "$form->{script}?action=partsgroup_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}"; + + $form->sort_order(); + + $callback = "$form->{script}?action=partsgroup_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}"; + + if ($form->{status} eq 'all') { + $option = $locale->text('All'); + } + if ($form->{status} eq 'orphaned') { + $option .= $locale->text('Orphaned'); + } + if ($form->{partsgroup}) { + $callback .= "&partsgroup=$form->{partsgroup}"; + $option .= "\n<br>".$locale->text('Group')." : $form->{partsgroup}"; + } + + + @column_index = $form->sort_columns(qw(partsgroup)); + + $column_header{partsgroup} = qq|<th><a class=listheading href=$href&sort=partsgroup width=90%>|.$locale->text('Group').qq|</a></th>|; + + $form->{title} = $locale->text('Groups'); + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| + </tr> +|; + + # escape callback + $form->{callback} = $callback; + + # escape callback for href + $callback = $form->escape($callback); + + foreach $ref (@{ $form->{item_list} }) { + + $i++; $i %= 2; + + print qq| + <tr valign=top class=listrow$i> +|; + + $column_data{partsgroup} = qq|<td><a href=$form->{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{partsgroup}</td>|; + map { print "$column_data{$_}\n" } @column_index; + + print " + </tr> +"; + } + + $i = 1; + if ($myconfig{acs} !~ /Goods \& Services--Goods \& Services/) { + $button{'Goods & Services--Add Group'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Group').qq|"> |; + $button{'Goods & Services--Add Group'}{order} = $i++; + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=type value=$form->{type}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +sub partsgroup_header { + + $form->{title} = $locale->text("$form->{title} Group"); + +# $locale->text('Edit Group') + + $form->{partsgroup} = $form->quote($form->{partsgroup}); + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=id value=$form->{id}> +<input type=hidden name=type value=$form->{type}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width=100%> + <tr> + <th align=right>|.$locale->text('Group').qq|</th> + + <td><input name=partsgroup size=30 value="$form->{partsgroup}"></td> + </tr> + </table> + </td> + </tr> + <tr> + <td colspan=2><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub partsgroup_footer { + + print qq| + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +<br> +|; + + if ($myconfig{acs} !~ /Goods \& Services--Add Group/) { + print qq| +<input type=submit class=submit name=action value="|.$locale->text('Save').qq|"> +|; + + if ($form->{id} && $form->{orphaned}) { + print qq| +<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|; + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| +</form> + +</body> +</html> +|; + +} + + +sub pricegroup_report { + + map { $form->{$_} = $form->unescape($form->{$_}) } (pricegroup); + PE->pricegroups(\%myconfig, \%$form); + + $href = "$form->{script}?action=pricegroup_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}"; + + $form->sort_order(); + + $callback = "$form->{script}?action=pricegroup_report&direction=$form->{direction}&oldsort=$form->{oldsort}&type=$form->{type}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&status=$form->{status}"; + + if ($form->{status} eq 'all') { + $option = $locale->text('All'); + } + if ($form->{status} eq 'orphaned') { + $option .= $locale->text('Orphaned'); + } + if ($form->{pricegroup}) { + $callback .= "&pricegroup=$form->{pricegroup}"; + $option .= "\n<br>".$locale->text('Pricegroup')." : $form->{pricegroup}"; + } + + + @column_index = $form->sort_columns(qw(pricegroup)); + + $column_header{pricegroup} = qq|<th><a class=listheading href=$href&sort=pricegroup width=90%>|.$locale->text('Pricegroup').qq|</th>|; + + $form->{title} = $locale->text('Pricegroups'); + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| + </tr> +|; + + # escape callback + $form->{callback} = $callback; + + # escape callback for href + $callback = $form->escape($callback); + + foreach $ref (@{ $form->{item_list} }) { + + $i++; $i %= 2; + + print qq| + <tr valign=top class=listrow$i> +|; + + $column_data{pricegroup} = qq|<td><a href=$form->{script}?action=edit&type=$form->{type}&status=$form->{status}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{pricegroup}</td>|; + map { print "$column_data{$_}\n" } @column_index; + + print " + </tr> +"; + } + + $i = 1; + if ($myconfig{acs} !~ /Goods \& Services--Goods \& Services/) { + $button{'Goods & Services--Add Pricegroup'}{code} = qq|<input class=submit type=submit name=action value="|.$locale->text('Add Pricegroup').qq|"> |; + $button{'Goods & Services--Add Pricegroup'}{order} = $i++; + + foreach $item (split /;/, $myconfig{acs}) { + delete $button{$item}; + } + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=type value=$form->{type}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + foreach $item (sort { $a->{order} <=> $b->{order} } %button) { + print $item->{code}; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +sub pricegroup_header { + + $form->{title} = $locale->text("$form->{title} Pricegroup"); + +# $locale->text('Edit Pricegroup') + + $form->{pricegroup} = $form->quote($form->{pricegroup}); + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=id value=$form->{id}> +<input type=hidden name=type value=$form->{type}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width=100%> + <tr> + <th align=right>|.$locale->text('Pricegroup').qq|</th> + + <td><input name=pricegroup size=30 value="$form->{pricegroup}"></td> + </tr> + </table> + </td> + </tr> + <tr> + <td colspan=2><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub pricegroup_footer { + + print qq| + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +<br> +|; + + if ($myconfig{acs} !~ /Goods \& Services--Add Pricegroup/) { + print qq| +<input type=submit class=submit name=action value="|.$locale->text('Save').qq|"> +|; + + if ($form->{id} && $form->{orphaned}) { + print qq| +<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|; + } + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| +</form> + +</body> +</html> +|; + +} + + +sub translation { + + if ($form->{translation} eq 'description') { + $form->{title} = $locale->text('Description Translations'); + $sort = qq|<input type=hidden name=sort value=partnumber>|; + $form->{number} = "partnumber"; + $number = qq| + <tr> + <th align=right nowrap>|.$locale->text('Number').qq|</th> + <td><input name=partnumber size=20></td> + </tr> +|; + } + + if ($form->{translation} eq 'partsgroup') { + $form->{title} = $locale->text('Group Translations'); + $sort = qq|<input type=hidden name=sort value=partsgroup>|; + } + + if ($form->{translation} eq 'project') { + $form->{title} = $locale->text('Project Description Translations'); + $form->{number} = "projectnumber"; + $sort = qq|<input type=hidden name=sort value=projectnumber>|; + $number = qq| + <tr> + <th align=right nowrap>|.$locale->text('Project Number').qq|</th> + <td><input name=projectnumber size=20></td> + </tr> +|; + } + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=translation value=$form->{translation}> +<input type=hidden name=title value="$form->{title}"> +<input type=hidden name=number value=$form->{number}> + +<table width="100%"> + <tr><th class=listtop>$form->{title}</th></tr> + <tr height="5"></tr> + <tr valign=top> + <td> + <table> + $number + <tr> + <th align=right nowrap>|.$locale->text('Description').qq|</th> + <td colspan=3><input name=description size=40></td> + </tr> + </table> + </td> + </tr> + <tr><td><hr size=3 noshade></td></tr> +</table> + +<input type=hidden name=nextsub value=list_translations> +$sort + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + +sub list_translations { + + $title = $form->escape($form->{title},1); + + $callback = "$form->{script}?action=list_translations&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&translation=$form->{translation}&number=$form->{number}&title=$title"; + + if ($form->{"$form->{number}"}) { + $callback .= qq|&$form->{number}=$form->{"$form->{number}"}|; + $option .= $locale->text('Number').qq| : $form->{"$form->{number}"}<br>|; + } + if ($form->{description}) { + $callback .= "&description=$form->{description}"; + $description = $form->{description}; + $description =~ s/
/<br>/g; + $option .= $locale->text('Description').qq| : $form->{description}<br>|; + } + + if ($form->{translation} eq 'partsgroup') { + @column_index = qw(description language translation); + $form->{sort} = ""; + } else { + @column_index = $form->sort_columns("$form->{number}", "description", "language", "translation"); + } + + &{ "PE::$form->{translation}_translations" }("", \%myconfig, \%$form); + + $callback .= "&direction=$form->{direction}&oldsort=$form->{oldsort}"; + + $href = $callback; + + $form->sort_order(); + + $callback =~ s/(direction=).*\&{1}/$1$form->{direction}\&/; + + $column_header{"$form->{number}"} = qq|<th nowrap><a class=listheading href=$href&sort=$form->{number}>|.$locale->text('Number').qq|</a></th>|; + $column_header{description} = qq|<th nowrap width=40%><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</a></th>|; + $column_header{language} = qq|<th nowrap class=listheading>|.$locale->text('Language').qq|</a></th>|; + $column_header{translation} = qq|<th nowrap width=40% class=listheading>|.$locale->text('Translation').qq|</a></th>|; + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + + <tr><td>$option</td></tr> + + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "\n$column_header{$_}" } @column_index; + + print qq| + </tr> + |; + + + # add order to callback + $form->{callback} = $callback .= "&sort=$form->{sort}"; + + # escape callback for href + $callback = $form->escape($callback); + + if (@{ $form->{translations} }) { + $sameitem = $form->{translations}->[0]->{$form->{sort}}; + } + + foreach $ref (@{ $form->{translations} }) { + + $ref->{description} =~ s/
/<br>/g; + + map { $column_data{$_} = "<td>$ref->{$_} </td>" } @column_index; + + $column_data{description} = "<td><a href=$form->{script}?action=edit_translation&translation=$form->{translation}&number=$form->{number}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{description} </a></td>"; + + $i++; $i %= 2; + print "<tr class=listrow$i>"; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + } + + print qq| + </table> + </td> + </tr> + <tr><td><hr size=3 noshade></td></tr> +</table> + +|; + + print qq| + +<br> + +<form method=post action=$form->{script}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> +|; + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + </form> + +</body> +</html> +|; + +} + + +sub edit_translation { + + &{ "PE::$form->{translation}_translations" }("", \%myconfig, \%$form); + + $form->error($locale->text('Languages not defined!')) unless $form->{all_language}; + + $form->{selectlanguage} = qq|<option>\n|; + map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_language} }; + + $form->{"$form->{number}"} = $form->{translations}->[0]->{"$form->{number}"}; + $form->{description} = $form->{translations}->[0]->{description}; + $form->{description} =~ s/
/<br>/g; + + shift @{ $form->{translations} }; + + $i = 1; + foreach $row (@{ $form->{translations} }) { + $form->{"language_code_$i"} = $row->{code}; + $form->{"translation_$i"} = $row->{translation}; + $i++; + } + $form->{translation_rows} = $i - 1; + + $form->{title} = $locale->text('Edit Description Translations'); + + &translation_header; + &translation_footer; + +} + + +sub translation_header { + + $form->{translation_rows}++; + + $form->{selectlanguage} = $form->unescape($form->{selectlanguage}); + for ($i = 1; $i <= $form->{translation_rows}; $i++) { + $form->{"selectlanguage_$i"} = $form->{selectlanguage}; + if ($form->{"language_code_$i"}) { + $form->{"selectlanguage_$i"} =~ s/(<option value="\Q$form->{"language_code_$i"}\E")/$1 selected/; + } + } + + $form->{selectlanguage} = $form->escape($form->{selectlanguage},1); + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input name=id type=hidden value=$form->{id}> +<input name=trans_id type=hidden value=$form->{trans_id}> + +<input type=hidden name=selectlanguage value="$form->{selectlanguage}"> +<input type=hidden name=translation_rows value=$form->{translation_rows}> + +<input type=hidden name=number value=$form->{number}> +<input type=hidden name=$form->{number} value="|.$form->quote($form->{"$form->{number}"}).qq|"> +<input type=hidden name=description value="|.$form->quote($form->{description}).qq|"> + +<input type=hidden name=translation value=$form->{translation}> +<input type=hidden name=title value="$form->{title}"> + +<table width="100%"> + <tr><th class=listtop>$form->{title}</th></tr> + <tr height="5"></tr> + <tr valign=top> + <td> + <table width=100%> + <tr> + <td align=left>$form->{"$form->{number}"}</th> + <td align=left>$form->{description}</th> + </tr> + <tr> + <tr> + <th class=listheading>|.$locale->text('Language').qq|</th> + <th class=listheading>|.$locale->text('Translation').qq|</th> + </tr> +|; + + for ($i = 1; $i <= $form->{translation_rows}; $i++) { + + if (($rows = $form->numtextrows($form->{"translation_$i"}, 40)) > 1) { + $translation = qq|<textarea name="translation_$i" rows=$rows cols=40 wrap=soft>$form->{"translation_$i"}</textarea>|; + } else { + $translation = qq|<input name="translation_$i" size=40 value="$form->{"translation_$i"}">|; + } + + print qq| + <tr valign=top> + <td><select name="language_code_$i">$form->{"selectlanguage_$i"}</select></td> + <td>$translation</td> + </tr> +|; + } + + print qq| + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + +} + + +sub translation_footer { + + print qq| +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=hidden name=callback value="$form->{callback}"> + +<br> + +<input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('Save').qq|"> +|; + + if ($form->{trans_id}) { + print qq| +<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|"> +|; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| + + </form> + +</body> +</html> +|; + +} + + +sub update { + + @flds = qw(language translation); + $count = 0; + @a = (); + for $i (1 .. $form->{translation_rows}) { + if ($form->{"language_code_$i"} ne "") { + push @a, {}; + $j = $#a; + + map { $a[$j]->{$_} = $form->{"${_}_$i"} } @flds; + $count++; + } + } + $form->redo_rows(\@flds, \@a, $count, $form->{translation_rows}); + $form->{translation_rows} = $count; + + &translation_header; + &translation_footer; + +} + + +sub add_group { &add }; +sub add_project { &add }; +sub add_pricegroup { &add }; + diff --git a/sql-ledger/bin/mozilla/pos.pl b/sql-ledger/bin/mozilla/pos.pl new file mode 100644 index 000000000..e9416f63b --- /dev/null +++ b/sql-ledger/bin/mozilla/pos.pl @@ -0,0 +1,878 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2003 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# Contributors: Steve Doerr <sdoerr907@everestkc.net> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#===================================================================== +# +# POS +# +#===================================================================== + + +1; +# end + + +sub add { + + $form->{title} = $locale->text('Add POS Invoice'); + + $form->{callback} = "$form->{script}?action=$form->{nextsub}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &invoice_links; + + $form->{type} = "pos_invoice"; + $form->{format} = "txt"; + $form->{media} = ($myconfig{printer}) ? $myconfig{printer} : "screen"; + $form->{rowcount} = 0; + + $form->{readonly} = ($myconfig{acs} =~ /POS--Sale/) ? 1 : 0; + + $ENV{REMOTE_ADDR} =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/; + $form->{till} = $4; + + map { $form->{partsgroup} .= "$_->{partsgroup}--$_->{translation}\n" } @{ $form->{all_partsgroup} }; + + &display_form; + +} + + +sub openinvoices { + + $ENV{REMOTE_ADDR} =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/; + $form->{till} = $4; + + $form->{sort} = 'transdate'; + + map { $form->{$_} = 'Y' } qw(open l_invnumber l_transdate l_name l_amount l_curr l_till l_subtotal); + + if ($myconfig{role} ne 'user') { + $form->{l_employee} = 'Y'; + } + + $form->{title} = $locale->text('Open'); + &ar_transactions; + +} + + +sub edit { + + $form->{title} = $locale->text('Edit POS Invoice'); + + $form->{callback} = "$form->{script}?action=$form->{nextsub}&path=$form->{path}&login=$form->{login}&sessionid=$form->{sessionid}" unless $form->{callback}; + + &invoice_links; + &prepare_invoice; + + $form->{type} = "pos_invoice"; + $form->{format} = "txt"; + $form->{media} = ($myconfig{printer}) ? $myconfig{printer} : "screen"; + + $form->{readonly} = ($myconfig{acs} =~ /POS--Sale/) ? 1 : 0; + + map { $form->{partsgroup} .= "$_->{partsgroup}--$_->{translation}\n" } @{ $form->{all_partsgroup} }; + + &display_form; + +} + + +sub form_header { + + # set option selected + foreach $item (qw(AR currency)) { + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/; + } + + foreach $item (qw(customer department employee)) { + $form->{"select$item"} = $form->unescape($form->{"select$item"}); + $form->{"select$item"} =~ s/ selected//; + $form->{"select$item"} =~ s/(<option value="\Q$form->{$item}\E")/$1 selected/; + } + + $form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate}); + + if ($form->{oldtotalpaid} > $form->{oldinvtotal}) { + $adj = $form->{oldtotalpaid} - $form->{oldinvtotal}; + } + $form->{creditremaining} = $form->{creditremaining} - $adj + $form->{oldchange}; + + $exchangerate = ""; + if ($form->{currency} ne $form->{defaultcurrency}) { + if ($form->{forex}) { + $exchangerate .= qq|<th align=right>|.$locale->text('Exchange Rate').qq|</th><td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td>|; + } else { + $exchangerate .= qq|<th align=right>|.$locale->text('Exchange Rate').qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td>|; + } + } + $exchangerate .= qq| +<input type=hidden name=forex value=$form->{forex}> +|; + + if ($form->{selectcustomer}) { + $customer = qq|<select name=customer>$form->{selectcustomer}</select> + <input type=hidden name="selectcustomer" value="|. + $form->escape($form->{selectcustomer},1).qq|">|; + } else { + $customer = qq|<input name=customer value="$form->{customer}" size=35>|; + } + + $department = qq| + <tr> + <th align="right" nowrap>|.$locale->text('Department').qq|</th> + <td colspan=3><select name=department>$form->{selectdepartment}</select> + <input type=hidden name=selectdepartment value="|. + $form->escape($form->{selectdepartment},1).qq|"> + </td> + </tr> +| if $form->{selectdepartment}; + + $n = ($form->{creditremaining} < 0) ? "0" : "1"; + + if ($form->{selectlanguage}) { + if ($form->{language_code} ne $form->{oldlanguage_code}) { + # rebuild partsgroup + $form->get_partsgroup(\%myconfig, { language_code => $form->{language_code} }); + $form->{partsgroup} = ""; + map { $form->{partsgroup} .= "$_->{partsgroup}--$_->{translation}\n" } @{ $form->{all_partsgroup} }; + $form->{oldlanguage_code} = $form->{language_code}; + } + + + $form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"}); + $form->{"selectlanguage"} =~ s/ selected//; + $form->{"selectlanguage"} =~ s/(<option value="\Q$form->{language_code}\E")/$1 selected/; + $lang = qq| + <tr> + <th align=right>|.$locale->text('Language').qq|</th> + <td colspan=3><select name=language_code>$form->{selectlanguage}</select></td> + </tr> + <input type=hidden name=oldlanguage_code value=$form->{oldlanguage_code}> + <input type=hidden name=selectlanguage value="|. + $form->escape($form->{selectlanguage},1).qq|">|; + } + + + $form->header; + + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=id value=$form->{id}> + +<input type=hidden name=till value=$form->{till}> + +<input type=hidden name=type value=$form->{type}> +<input type=hidden name=media value=$form->{media}> +<input type=hidden name=format value=$form->{format}> + +<input type=hidden name=printed value="$form->{printed}"> + +<input type=hidden name=title value="$form->{title}"> +<input type=hidden name=vc value="customer"> + +<input type=hidden name=discount value=$form->{discount}> +<input type=hidden name=creditlimit value=$form->{creditlimit}> +<input type=hidden name=creditremaining value=$form->{creditremaining}> + +<input type=hidden name=closedto value=$form->{closedto}> +<input type=hidden name=locked value=$form->{locked}> + + +<table width=100%> + <tr class=listtop> + <th class=listtop>$form->{title}</font></th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width=100%> + <tr valign=top> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Customer').qq|</th> + <td>$customer</td> + <input type=hidden name=customer_id value=$form->{customer_id}> + <input type=hidden name=oldcustomer value="$form->{oldcustomer}"> + </tr> + <tr> + <td></td> + <td colspan=3> + <table> + <tr> + <th nowrap>|.$locale->text('Credit Limit').qq|</th> + <td>$form->{creditlimit}</td> + <th nowrap>|.$locale->text('Remaining').qq|</th> + <td class="plus$n">|.$form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0").qq|</font></td> + </tr> + </table> + </td> + </tr> + $discount + <tr> + <th align=right nowrap>|.$locale->text('Record in').qq|</th> + <td><select name=AR>$form->{selectAR}</select></td> + <input type=hidden name=selectAR value="$form->{selectAR}"> + </tr> + $department + </table> + </td> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Salesperson').qq|</th> + <td colspan=3><select name=employee>$form->{selectemployee}</select></td> + <input type=hidden name=selectemployee value="|. + $form->escape($form->{selectemployee},1).qq|"> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Currency').qq|</th> + <td><select name=currency>$form->{selectcurrency}</select></td> + <input type=hidden name=selectcurrency value="$form->{selectcurrency}"> + <input type=hidden name=defaultcurrency value=$form->{defaultcurrency}> + <input type=hidden name=fxgain_accno value=$form->{fxgain_accno}> + <input type=hidden name=fxloss_accno value=$form->{fxloss_accno}> + $exchangerate + </tr> + $lang + </table> + </td> + <input type=hidden name=invnumber value=$form->{invnumber}> + <input type=hidden name=transdate value=$form->{transdate}> + <input type=hidden name=duedate value=$form->{duedate}> + </tr> + </table> + </td> + </tr> + <tr> + <td> + </td> + </tr> + + +<input type=hidden name=taxaccounts value="$form->{taxaccounts}"> +|; + + foreach $item (split / /, $form->{taxaccounts}) { + print qq| +<input type=hidden name="${item}_rate" value="$form->{"${item}_rate"}"> +<input type=hidden name="${item}_description" value="$form->{"${item}_description"}"> +<input type=hidden name="${item}_taxnumber" value="$form->{"${item}_taxnumber"}"> +|; + } + +} + + + +sub form_footer { + + $form->{invtotal} = $form->{invsubtotal}; + + foreach $item (split / /, $form->{taxaccounts}) { + if ($form->{"${item}_base"}) { + $form->{"${item}_total"} = $form->round_amount($form->{"${item}_base"} * $form->{"${item}_rate"}, 2); + $form->{invtotal} += $form->{"${item}_total"}; + $form->{"${item}_total"} = $form->format_amount(\%myconfig, $form->{"${item}_total"}, 2, 0); + + $tax .= qq| + <tr> + <th align=right>$form->{"${item}_description"}</th> + <td align=right>$form->{"${item}_total"}</td> + </tr> +|; + } + } + + + + $form->{invsubtotal} = $form->format_amount(\%myconfig, $form->{invsubtotal}, 2, 0); + + $subtotal = qq| + <tr> + <th align=right>|.$locale->text('Subtotal').qq|</th> + <td align=right>$form->{invsubtotal}</td> + </tr> +|; + + + $totalpaid = 0; + + $form->{paidaccounts} = 1; + $i = 1; + + $form->{"selectAR_paid_$i"} = $form->{selectAR_paid}; + $form->{"selectAR_paid_$i"} =~ s/option>\Q$form->{"AR_paid_$i"}\E/option selected>$form->{"AR_paid_$i"}/; + + # format amounts + $totalpaid += $form->{"paid_$i"}; + $form->{"paid_$i"} = $form->format_amount(\%myconfig, $form->{"paid_$i"}, 2); + $form->{"exchangerate_$i"} = $form->format_amount(\%myconfig, $form->{"exchangerate_$i"}); + + $form->{change} = 0; + if ($totalpaid > $form->{invtotal}) { + $form->{change} = $totalpaid - $form->{invtotal}; + } + $form->{oldchange} = $form->{change}; + $form->{change} = $form->format_amount(\%myconfig, $form->{change}, 2, 0); + $form->{totalpaid} = $form->format_amount(\%myconfig, $totalpaid, 2); + + + $form->{oldinvtotal} = $form->{invtotal}; + $form->{invtotal} = $form->format_amount(\%myconfig, $form->{invtotal}, 2, 0); + + + print qq| + +<input type=hidden name="exchangerate_$i" value=$form->{"exchangerate"}> +<input type=hidden name="forex_$i" value=$form->{"forex_$i"}> + + <tr> + <td> + <table width=100%> + <tr valign=bottom> + <td> + <table> + <tr> + <td></td> + <th>|.$locale->text('Paid').qq|</th> + <th>|.$locale->text('Source').qq|</th> + <th>|.$locale->text('Memo').qq|</th> + <th>|.$locale->text('Account').qq|</th> + </tr> + <tr> + <td></td> + <td><input name="paid_$i" size=11 value=$form->{"paid_$i"}></td> + <td><input name="source_$i" size=10 value="$form->{"source_$i"}"></td> + <td><input name="memo_$i" size=10 value="$form->{"memo_$i"}"></td> + <td><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td> + </tr> + <tr> + <th align=right>|.$locale->text('Change').qq|</th> + <th>$form->{change}</th> + </tr> + </table> + </td> + <td align=right> + <table> + $subtotal + $tax + <tr> + <th align=right>|.$locale->text('Total').qq|</th> + <td align=right>$form->{invtotal}</td> + </tr> + $taxincluded + </table> + </td> + </tr> + </table> + </td> + </tr> + +<input type=hidden name=paidaccounts value=$form->{paidaccounts}> +<input type=hidden name=selectAR_paid value="$form->{selectAR_paid}"> +<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}> +<input type=hidden name=oldtotalpaid value=$totalpaid> + +<input type=hidden name=change value=$form->{change}> +<input type=hidden name=oldchange value=$form->{oldchange}> + +<input type=hidden name=datepaid value=$form->{transdate}> +<input type=hidden name=invtotal value=$form->{invtotal}> + +<tr> + <td> +|; + + &print_options; + + print qq| + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + + $transdate = $form->datetonum($form->{transdate}, \%myconfig); + $closedto = $form->datetonum($form->{closedto}, \%myconfig); + + if (! $form->{readonly}) { + if ($transdate > $closedto) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Update').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Print').qq|"> + <input class=submit type=submit name=action value="|.$locale->text('Post').qq|">|; + + if ($form->{id}) { + print qq| + <input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">|; + } + + + print "<p>\n"; + + if ($form->{partsgroup}) { + print qq| +<input type=hidden name=nextsub value=lookup_partsgroup> +<input type=hidden name=partsgroup value="$form->{partsgroup}">|; + + foreach $item (split /\n/, $form->{partsgroup}) { + $item =~ s/
//; + ($partsgroup, $translation) = split /--/, $item; + $item = ($translation) ? $translation : $partsgroup; + print qq| <input class=submit type=submit name=action value=".$item">\n|; + } + } + } + } + + print qq| + +<input type=hidden name=rowcount value=$form->{rowcount}> + +<input name=callback type=hidden value="$form->{callback}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +</form> + +</body> +</html> +|; + +} + + +sub post { + + $form->isblank("customer", $locale->text('Customer missing!')); + + # if oldcustomer ne customer redo form + $customer = $form->{customer}; + $customer =~ s/--.*//g; + $customer .= "--$form->{customer_id}"; + if ($customer ne $form->{oldcustomer}) { + &update; + exit; + } + + &validate_items; + + $form->isblank("exchangerate", $locale->text('Exchange rate missing!')) if ($form->{currency} ne $form->{defaultcurrency}); + + $paid = $form->parse_amount(\%myconfig, $form->{"paid_1"}); + $total = $form->parse_amount(\%myconfig, $form->{invtotal}); + + $form->{"paid_1"} = $form->{invtotal} if $paid > $total; + + ($form->{AR}) = split /--/, $form->{AR}; + + $form->{invnumber} = $form->update_defaults(\%myconfig, "sinumber") unless $form->{invnumber}; + + $form->redirect($locale->text('Posted!')) if (IS->post_invoice(\%myconfig, \%$form)); + $form->error($locale->text('Cannot post transaction!')); + +} + + +sub display_row { + my $numrows = shift; + + @column_index = qw(partnumber description partsgroup qty unit sellprice discount linetotal); + + $form->{invsubtotal} = 0; + + map { $form->{"${_}_base"} = 0 } (split / /, $form->{taxaccounts}); + + $column_data{partnumber} = qq|<th class=listheading nowrap>|.$locale->text('Number').qq|</th>|; + $column_data{description} = qq|<th class=listheading nowrap>|.$locale->text('Description').qq|</th>|; + $column_data{qty} = qq|<th class=listheading nowrap>|.$locale->text('Qty').qq|</th>|; + $column_data{unit} = qq|<th class=listheading nowrap>|.$locale->text('Unit').qq|</th>|; + $column_data{sellprice} = qq|<th class=listheading nowrap>|.$locale->text('Price').qq|</th>|; + $column_data{linetotal} = qq|<th class=listheading nowrap>|.$locale->text('Extended').qq|</th>|; + $column_data{discount} = qq|<th class=listheading nowrap>%</th>|; + + print qq| + <tr> + <td> + <table width=100%> + <tr class=listheading>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + $exchangerate = $form->parse_amount(\%myconfig, $form->{exchangerate}); + $exchangerate = ($exchangerate) ? $exchangerate : 1; + + for $i (1 .. $numrows) { + # undo formatting + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(qty discount sellprice); + + ($dec) = ($form->{"sellprice_$i"} =~ /\.(\d+)/); + $dec = length $dec; + $decimalplaces = ($dec > 2) ? $dec : 2; + + if (($form->{"qty_$i"} != $form->{"oldqty_$i"}) || ($form->{currency} ne $form->{oldcurrency})) { +# check for a pricematrix + foreach $item (split / /, $form->{"pricematrix_$i"}) { + ($q, $p) = split /:/, $item; + if ($p && $form->{"qty_$i"} > $q) { + $form->{"sellprice_$i"} = $form->round_amount($p / $exchangerate, $decimalplaces); + } + } + } + + if ($i < $numrows) { + if ($form->{"discount_$i"} != $form->{discount} * 100) { + $form->{"discount_$i"} = $form->{discount} * 100; + } + } + + $discount = $form->round_amount($form->{"sellprice_$i"} * $form->{"discount_$i"}/100, $decimalplaces); + $linetotal = $form->round_amount($form->{"sellprice_$i"} - $discount, $decimalplaces); + $linetotal = $form->round_amount($linetotal * $form->{"qty_$i"}, 2); + + map { $form->{"${_}_$i"} = $form->quote($form->{"${_}_$i"}) } qw(partnumber sku description partsgroup unit); + + $column_data{partnumber} = qq|<td><input name="partnumber_$i" size=20 value="$form->{"partnumber_$i"}"></td>|; + + if (($rows = $form->numtextrows($form->{"description_$i"}, 25, 6)) > 1) { + $column_data{description} = qq|<td><textarea name="description_$i" rows=$rows cols=25 wrap=soft>$form->{"description_$i"}</textarea></td>|; + } else { + $column_data{description} = qq|<td><input name="description_$i" size=30 value="$form->{"description_$i"}"></td>|; + } + + $column_data{partsgroup} = qq|<input type=hidden name="partsgroup_$i" value="$form->{"partsgroup_$i"}">|; + + $column_data{qty} = qq|<td align=right><input name="qty_$i" size=5 value=|.$form->format_amount(\%myconfig, $form->{"qty_$i"}).qq|></td>|; + $column_data{unit} = qq|<td><input type=hidden name="unit_$i" value="$form->{"unit_$i"}">$form->{"unit_$i"}</td>|; + $column_data{sellprice} = qq|<td align=right><input name="sellprice_$i" size=9 value=|.$form->format_amount(\%myconfig, $form->{"sellprice_$i"}, $decimalplaces).qq|></td>|; + $column_data{linetotal} = qq|<td align=right>|.$form->format_amount(\%myconfig, $linetotal, 2).qq|</td>|; + + + $discount = $form->format_amount(\%myconfig, $form->{"discount_$i"}); + $column_data{discount} = qq|<td align=right>$discount</td> + <input type=hidden name="discount_$i" value=$discount>|; + + print qq| + <tr valign=top>|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> + +<input type=hidden name="id_$i" value=$form->{"id_$i"}> +<input type=hidden name="inventory_accno_$i" value=$form->{"inventory_accno_$i"}> +<input type=hidden name="income_accno_$i" value=$form->{"income_accno_$i"}> +<input type=hidden name="expense_accno_$i" value=$form->{"expense_accno_$i"}> +<input type=hidden name="listprice_$i" value="$form->{"listprice_$i"}"> +<input type=hidden name="assembly_$i" value="$form->{"assembly_$i"}"> +<input type=hidden name="taxaccounts_$i" value="$form->{"taxaccounts_$i"}"> +<input type=hidden name="pricematrix_$i" value="$form->{"pricematrix_$i"}"> +<input type=hidden name="oldqty_$i" value="$form->{"qty_$i"}"> +<input type=hidden name="sku_$i" value="$form->{"sku_$i"}"> + +|; + + map { $form->{"${_}_base"} += $linetotal } (split / /, $form->{"taxaccounts_$i"}); + + $form->{invsubtotal} += $linetotal; + } + + print qq| + </table> + </td> + </tr> + +<input type=hidden name=oldcurrency value=$form->{currency}> + +|; + +} + + +sub print { + + $paid = $form->parse_amount(\%myconfig, $form->{"paid_1"}); + $total = $form->parse_amount(\%myconfig, $form->{invtotal}); + + $form->{change} = 0; + if ($paid > $total) { + $form->{paid} = $total - $paid; + $form->{"paid_1"} = $form->format_amount(\%myconfig, $paid, 2, 0); + $form->{change} = $form->format_amount(\%myconfig, $paid - $total, 2, 0); + } + + $old_form = new Form; + map { $old_form->{$_} = $form->{$_} } keys %$form; + + map { $form->{$_} =~ s/--.*//g } qw(employee department); + $form->{invdate} = $form->{transdate}; + $form->{invtime} = scalar localtime; + + &print_form($old_form); + +} + + +sub print_form { + my $old_form = shift; + + # if oldcustomer ne customer redo form + $customer = $form->{customer}; + $customer =~ s/--.*//g; + $customer .= "--$form->{customer_id}"; + if ($customer ne $form->{oldcustomer}) { + &update; + exit; + } + + + &validate_items; + + &{ "$form->{vc}_details" }; + + @a = (); + map { push @a, ("partnumber_$_", "description_$_") } (1 .. $form->{rowcount}); + map { push @a, "${_}_description" } split / /, $form->{taxaccounts}; + $form->format_string(@a); + + # format payment dates + map { $form->{"datepaid_$_"} = $locale->date(\%myconfig, $form->{"datepaid_$_"}) } (1 .. $form->{paidaccounts}); + + IS->invoice_details(\%myconfig, \%$form); + + map { $form->{$_} = $myconfig{$_} } (qw(company address tel fax businessnumber)); + $form->{username} = $myconfig{name}; + map { $form->{$_} =~ s/\\n/ /g } qw(company address); + + $form->{templates} = "$myconfig{templates}"; + $form->{IN} = "$form->{type}.$form->{format}"; + + if ($form->{media} !~ /screen/) { + $form->{OUT} = "| $printer{$form->{media}}"; + } + + $form->{discount} = $form->format_amount(\%myconfig, $form->{discount} * 100); + + $form->{rowcount}--; + $form->{pre} = "<body bgcolor=#ffffff>\n<pre>"; + delete $form->{stylesheet}; + + $form->parse_template(\%myconfig, $userspath); + + if ($form->{printed} !~ /$form->{formname}/) { + $form->{printed} .= " $form->{formname}"; + $form->{printed} =~ s/^ //; + + $form->update_status(\%myconfig); + } + $old_form->{printed} = $form->{printed}; + + # if we got back here restore the previous form + if ($form->{media} !~ /screen/) { + # restore and display form + map { $form->{$_} = $old_form->{$_} } keys %$old_form; + map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate); + + $form->{rowcount}--; + for $i (1 .. $form->{paidaccounts}) { + map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate); + } + + delete $form->{pre}; + + &display_form; + exit; + } + +} + + +sub lookup_partsgroup { + + $form->{action} =~ s/
//; + $form->{action} = substr($form->{action}, 1); + + if ($form->{language_code}) { + # get english + foreach $item (split /\n/, $form->{partsgroup}) { + if ($item =~ /$form->{action}/) { + ($partsgroup, $translation) = split /--/, $item; + $form->{action} = $partsgroup; + last; + } + } + } + + $form->{"partsgroup_$form->{rowcount}"} = $form->{action}; + + &update; + +} + + + +sub print_options { + + $form->{PD}{$form->{type}} = "checked"; + + print qq| +<input type=hidden name=format value=$form->{format}> +<input type=hidden name=formname value=$form->{type}> + +<table width=100%> + <tr> +|; + + + $media = qq| + <td><input class=radio type=radio name=media value="screen"></td> + <td>|.$locale->text('Screen').qq|</td>|; + + if (%printer) { + map { $media .= qq| + <td><input class=radio type=radio name=media value="$_"></td> + <td nowrap>$_</td> +| } keys %printer; + } + + $media =~ s/(value="\Q$form->{media}\E")/$1 checked/; + + print qq| + $media + + <td width=99%> </td>|; + + if ($form->{printed} =~ /$form->{type}/) { + print qq| + <th>\||.$locale->text('Printed').qq|\|</th>|; + } + + print qq| + </tr> +</table> +|; + +} + + +sub receipts { + + $form->{title} = $locale->text('Receipts'); + + $form->{db} = 'ar'; + RP->paymentaccounts(\%myconfig, \%$form); + + map { $paymentaccounts .= "$_->{accno} " } @{ $form->{PR} }; + + # accounting years + $form->{selectaccountingyear} = "<option>\n"; + map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} }; + $form->{selectaccountingmonth} = "<option>\n"; + map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} }; + + $selectfrom = qq| + <tr> + <th align=right>|.$locale->text('Period').qq|</th> + <td colspan=3> + <select name=month>$form->{selectaccountingmonth}</select> + <select name=year>$form->{selectaccountingyear}</select> + <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq| + <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq| + <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq| + <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq| + </td> + </tr> +|; + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=title value="$form->{title}"> +<input type=hidden name=paymentaccounts value="$paymentaccounts"> + +<input type=hidden name=till value=1> +<input type=hidden name=subtotal value=1> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + + <input type=hidden name=nextsub value=list_payments> + + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=todate size=11 title="$myconfig{dateformat}"></td> + </tr> + $selectfrom + <input type=hidden name=sort value=transdate> + <input type=hidden name=db value=$form->{db}> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> + +</form> + +</body> +</html> +|; + +} + + diff --git a/sql-ledger/bin/mozilla/ps.pl b/sql-ledger/bin/mozilla/ps.pl new file mode 100644 index 000000000..81ffaa465 --- /dev/null +++ b/sql-ledger/bin/mozilla/ps.pl @@ -0,0 +1,42 @@ +# point of sale script + +use SL::AR; +use SL::IS; +use SL::RP; + +require "$form->{path}/ar.pl"; +require "$form->{path}/is.pl"; +require "$form->{path}/rp.pl"; +require "$form->{path}/pos.pl"; + +# customizations +if (-f "$form->{path}/custom_ar.pl") { + eval { require "$form->{path}/custom_ar.pl"; }; +} +if (-f "$form->{path}/$form->{login}_ar.pl") { + eval { require "$form->{path}/$form->{login}_ar.pl"; }; +} + +if (-f "$form->{path}/custom_is.pl") { + eval { require "$form->{path}/custom_is.pl"; }; +} +if (-f "$form->{path}/$form->{login}_is.pl") { + eval { require "$form->{path}/$form->{login}_is.pl"; }; +} + +if (-f "$form->{path}/custom_rp.pl") { + eval { require "$form->{path}/custom_rp.pl"; }; +} +if (-f "$form->{path}/$form->{login}_rp.pl") { + eval { require "$form->{path}/$form->{login}_rp.pl"; }; +} + +if (-f "$form->{path}/custom_pos.pl") { + eval { require "$form->{path}/custom_pos.pl"; }; +} +if (-f "$form->{path}/$form->{login}_pos.pl") { + eval { require "$form->{path}/$form->{login}_pos.pl"; }; +} + +1; +# end diff --git a/sql-ledger/bin/mozilla/pw.pl b/sql-ledger/bin/mozilla/pw.pl new file mode 100644 index 000000000..6f7319004 --- /dev/null +++ b/sql-ledger/bin/mozilla/pw.pl @@ -0,0 +1,73 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2004 +# +# Author: Dieter Simader +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== + + +1; +# end of main + + +sub getpassword { + my ($s) = @_; + + $form->{endsession} = 1; + $form->header; + + $sessionexpired = qq|<b><font color=red><blink>|.$locale->text('Session expired!').qq|</blink></font></b><p>| if $s; + + print qq| +<script language="JavaScript" type="text/javascript"> +<!-- +function sf(){ + document.pw.password.focus(); +} +// End --> +</script> + +<body onload="sf()"> + + $sessionexpired + +<form method=post action=$form->{script} name=pw> + +<table> + <tr> + <th align=right>|.$locale->text('Password').qq|</th> + <td><input type=password name=password size=30></td> + <td><input type=submit value="|.$locale->text('Continue').qq|"></td> + </tr> +</table> + +|; + + map { delete $form->{$_} } qw(header script endsession password); + $form->hide_form; + + print qq| +</form> + +</body> +</html> +|; + +} + + diff --git a/sql-ledger/bin/mozilla/rc.pl b/sql-ledger/bin/mozilla/rc.pl new file mode 100644 index 000000000..ee6d86781 --- /dev/null +++ b/sql-ledger/bin/mozilla/rc.pl @@ -0,0 +1,509 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2003 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# Account reconciliation module +# +#====================================================================== + +use SL::RC; + +1; +# end of main + +# this is for our long dates +# $locale->text('January') +# $locale->text('February') +# $locale->text('March') +# $locale->text('April') +# $locale->text('May ') +# $locale->text('June') +# $locale->text('July') +# $locale->text('August') +# $locale->text('September') +# $locale->text('October') +# $locale->text('November') +# $locale->text('December') + +# this is for our short month +# $locale->text('Jan') +# $locale->text('Feb') +# $locale->text('Mar') +# $locale->text('Apr') +# $locale->text('May') +# $locale->text('Jun') +# $locale->text('Jul') +# $locale->text('Aug') +# $locale->text('Sep') +# $locale->text('Oct') +# $locale->text('Nov') +# $locale->text('Dec') + + +sub reconciliation { + + RC->paymentaccounts(\%myconfig, \%$form); + + $selection = ""; + map { $selection .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{PR} }; + + $form->{title} = $locale->text('Reconciliation'); + + if ($form->{report}) { + $form->{title} = $locale->text('Reconciliation Report'); + $cleared = qq| + <input type=hidden name=report value=1> + <tr> + <td align=right><input type=checkbox style=checkbox name=outstanding value=1 checked></td> + <td>|.$locale->text('Outstanding').qq|</td> + <td align=right><input type=checkbox style=checkbox name=cleared value=1></td> + <td>|.$locale->text('Cleared').qq|</td> + </tr> +|; + + } + + + # accounting years + $form->{selectaccountingyear} = "<option>\n"; + map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} }; + $form->{selectaccountingmonth} = "<option>\n"; + map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} }; + + $selectfrom = qq| + <tr> + <th align=right>|.$locale->text('Period').qq|</th> + <td colspan=3> + <select name=month>$form->{selectaccountingmonth}</select> + <select name=year>$form->{selectaccountingyear}</select> + <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq| + <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq| + <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq| + <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq| + </td> + </tr> +|; + + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Account').qq|</th> + <td colspan=3><select name=accno>$selection</select> + </td> + </tr> + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td><input name=fromdate size=11 title="$myconfig{dateformat}"></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=todate size=11 title="$myconfig{dateformat}"></td> + </tr> + $selectfrom + $cleared + <tr> + <td align=right><input type=radio style=radio name=summary value=1 checked></td> + <td>|.$locale->text('Summary').qq|</td> + <td align=right><input type=radio style=radio name=summary value=0></td> + <td>|.$locale->text('Detail').qq|</td> + </tr> + <tr> + <td align=right><input type=checkbox style=checkbox name=fx_transaction value=1 checked></td> + <td colspan=3>|.$locale->text('Include Exchange Rate Difference').qq|</td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<input type=hidden name=nextsub value=get_payments> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> + +</form> + +</body> +</html> +|; + +} + + +sub continue { &{ $form->{nextsub} } }; + + +sub get_payments { + + ($form->{accno}, $form->{account}) = split /--/, $form->{accno}; + + RC->payment_transactions(\%myconfig, \%$form); + + $ml = ($form->{category} eq 'A') ? -1 : 1; + $form->{statementbalance} = $form->{endingbalance} * $ml; + if (! $form->{fx_transaction}) { + $form->{statementbalance} = ($form->{endingbalance} - $form->{fx_endingbalance}) * $ml; + } + + $form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0); + + &display_form; + +} + + +sub display_form { + + if ($form->{report}) { + @column_index = qw(transdate source name cleared credit debit); + } else { + @column_index = qw(transdate source name cleared credit debit balance); + } + + $column_header{cleared} = qq|<th>|.$locale->text('R').qq|</th>|; + $column_header{source} = "<th class=listheading>".$locale->text('Source')."</a></th>"; + $column_header{name} = "<th class=listheading>".$locale->text('Description')."</a></th>"; + $column_header{transdate} = "<th class=listheading>".$locale->text('Date')."</a></th>"; + + if ($form->{category} eq 'A') { + $column_header{debit} = "<th class=listheading>".$locale->text('Deposit')."</a></th>"; + $column_header{credit} = "<th class=listheading>".$locale->text('Payment')."</a></th>"; + } else { + $column_header{debit} = "<th class=listheading>".$locale->text('Decrease')."</a></th>"; + $column_header{credit} = "<th class=listheading>".$locale->text('Increase')."</a></th>"; + } + + $column_header{balance} = "<th class=listheading>".$locale->text('Balance')."</a></th>"; + + if ($form->{fromdate}) { + $option .= "\n<br>" if ($option); + $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{fromdate}, 1); + } + if ($form->{todate}) { + $option .= "\n<br>" if ($option); + $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{todate}, 1); + } + + $form->{title} = "$form->{accno}--$form->{account}"; + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "\n$column_header{$_}" } @column_index; + + print qq| + </tr> +|; + + $ml = ($form->{category} eq 'A') ? -1 : 1; + $form->{beginningbalance} *= $ml; + $form->{fx_balance} *= $ml; + + if (! $form->{fx_transaction}) { + $form->{beginningbalance} -= $form->{fx_balance}; + } + $balance = $form->{beginningbalance}; + + $i = 0; + $j = 0; + + map { $column_data{$_} = "<td> </td>" } qw(cleared transdate source debit credit); + + if (! $form->{report}) { + $column_data{name} = qq|<td>|.$locale->text('Beginning Balance').qq|</td>|; + $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $balance, 2, 0)."</td>"; + print qq| + <tr class=listrow$j> +|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + } + + + foreach $ref (@{ $form->{PR} }) { + + $i++; + + if (! $form->{fx_transaction}) { + next if $ref->{fx_transaction}; + } + + $checked = ($ref->{cleared}) ? "checked" : ""; + + $column_data{name} = "<td>"; + map { $column_data{name} .= "$_<br>" } @{ $ref->{name} }; + $column_data{name} .= "</td>"; + $column_data{source} = qq|<td>$ref->{source} </td> + <input type=hidden name="id_$i" value=$ref->{id}>|; + + $column_data{debit} = "<td> </td>"; + $column_data{credit} = "<td> </td>"; + + $balance += $ref->{amount} * $ml; + + if ($ref->{amount} < 0) { + + $totaldebits += $ref->{amount} * -1; + + $column_data{debit} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} * -1, 2, " ")."</td>"; + + } else { + + $totalcredits += $ref->{amount}; + + $column_data{credit} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, " ")."</td>"; + + } + + $column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $balance, 2, 0)."</td>"; + + if ($ref->{fx_transaction}) { + + $column_data{cleared} = ($clearfx) ? qq|<td align=center>*</td>| : qq|<td> </td>|; + $cleared += $ref->{amount} * $ml if $clearfx; + + } else { + + if ($form->{report}) { + + if ($ref->{cleared}) { + $column_data{cleared} = qq|<td align=center>*</td>|; + $clearfx = 1; + } else { + $column_data{cleared} = qq|<td> </td>|; + $clearfx = 0; + } + + } else { + + if ($ref->{oldcleared}) { + $cleared += $ref->{amount} * $ml; + $clearfx = 1; + $column_data{cleared} = qq|<td align=center>*</td> + <input type=hidden name="cleared_$i" value=$ref->{cleared}> + <input type=hidden name="oldcleared_$i" value=$ref->{oldcleared}> + <input type=hidden name="source_$i" value="$ref->{source}">|; + } else { + $cleared += $ref->{amount} * $ml if $checked; + $clearfx = ($checked) ? 1 : 0; + $column_data{cleared} = qq|<td align=center><input name="cleared_$i" type=checkbox class=checkbox value=1 $checked> + <input type=hidden name="source_$i" value="$ref->{source}"></td>|; + } + + } + } + + $column_data{transdate} = qq|<td>$ref->{transdate} </td> + <input type=hidden name="transdate_$i" value=$ref->{transdate}>|; + + $j++; $j %= 2; + print qq| + <tr class=listrow$j> +|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + } + + $form->{rowcount} = $i; + + # print totals + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{debit} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totaldebits, 2, " ")."</th>"; + $column_data{credit} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalcredits, 2, " ")."</th>"; + + print qq| + <tr class=listtotal> +|; + + map { print "\n$column_data{$_}" } @column_index; + + $form->{statementbalance} = $form->parse_amount(\%myconfig, $form->{statementbalance}); + $difference = $form->format_amount(\%myconfig, $form->{beginningbalance} + $cleared - $form->{statementbalance}, 2, 0); + $form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0); + + print qq| + </tr> + </table> + </td> + </tr> +|; + + + if ($form->{report}) { + + print qq| + </tr> + </table> +|; + + } else { + + print qq| + + <tr> + <td> + <table width=100%> + <tr> + <td align=right> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Statement Balance').qq|</th> + <td width=10%></td> + <td align=right><input name=statementbalance size=11 value=$form->{statementbalance}></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Difference').qq|</th> + <td width=10%></td> + <td align=right><input name=null size=11 value=$difference></td> + <input type=hidden name=difference value=$difference> + </tr> + </table> + </td> + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=fx_transaction value=$form->{fx_transaction}> +<input type=hidden name=summary value=$form->{summary}> + +<input type=hidden name=rowcount value=$form->{rowcount}> +<input type=hidden name=accno value="$form->{accno}"> +<input type=hidden name=account value="$form->{account}"> + +<input type=hidden name=fromdate value=$form->{fromdate}> +<input type=hidden name=todate value=$form->{todate}> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +<input type=submit class=submit name=action value="|.$locale->text('Update').qq|"> +<input type=submit class=submit name=action value="|.$locale->text('Select all').qq|"> +<input type=submit class=submit name=action value="|.$locale->text('Done').qq|">|; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| +</form> + +</body> +</html> +|; + +} + + +sub update { + + RC->payment_transactions(\%myconfig, \%$form); + + $i = 0; + foreach $ref (@{ $form->{PR} }) { + $i++; + $ref->{cleared} = ($form->{"cleared_$i"}) ? 1 : 0; + } + + &display_form; + +} + + +sub select_all { + + RC->payment_transactions(\%myconfig, \%$form); + + map { $_->{cleared} = 1 } @{ $form->{PR} }; + + &display_form; + +} + + +sub done { + + $form->{callback} = "$form->{script}?path=$form->{path}&action=reconciliation&login=$form->{login}&sessionid=$form->{sessionid}"; + + $form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1); + + RC->reconcile(\%myconfig, \%$form); + $form->redirect; + +} + + diff --git a/sql-ledger/bin/mozilla/rp.pl b/sql-ledger/bin/mozilla/rp.pl new file mode 100644 index 000000000..795ed3711 --- /dev/null +++ b/sql-ledger/bin/mozilla/rp.pl @@ -0,0 +1,2167 @@ +#===================================================================== +# SQL-Ledger Accounting +# Copyright (c) 2001 +# +# Author: Dieter Simader +# Email: dsimader@sql-ledger.org +# Web: http://www.sql-ledger.org +# +# Contributors: Antonio Gallardo <agssa@ibw.com.ni> +# Benjamin Lee <benjaminlee@consultant.com> +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +#====================================================================== +# +# module for preparing Income Statement and Balance Sheet +# +#====================================================================== + +require "$form->{path}/arap.pl"; + +use SL::PE; +use SL::RP; + +1; +# end of main + +# this is for our long dates +# $locale->text('January') +# $locale->text('February') +# $locale->text('March') +# $locale->text('April') +# $locale->text('May ') +# $locale->text('June') +# $locale->text('July') +# $locale->text('August') +# $locale->text('September') +# $locale->text('October') +# $locale->text('November') +# $locale->text('December') + +# this is for our short month +# $locale->text('Jan') +# $locale->text('Feb') +# $locale->text('Mar') +# $locale->text('Apr') +# $locale->text('May') +# $locale->text('Jun') +# $locale->text('Jul') +# $locale->text('Aug') +# $locale->text('Sep') +# $locale->text('Oct') +# $locale->text('Nov') +# $locale->text('Dec') + +# $locale->text('Balance Sheet') +# $locale->text('Income Statement') +# $locale->text('Trial Balance') +# $locale->text('AR Aging') +# $locale->text('AP Aging') +# $locale->text('Tax collected') +# $locale->text('Tax paid') +# $locale->text('Receipts') +# $locale->text('Payments') +# $locale->text('Project Transactions') +# $locale->text('Non-taxable Sales') +# $locale->text('Non-taxable Purchases') + + +sub report { + + %title = ( balance_sheet => 'Balance Sheet', + income_statement => 'Income Statement', + trial_balance => 'Trial Balance', + ar_aging => 'AR Aging', + ap_aging => 'AP Aging', + tax_collected => 'Tax collected', + tax_paid => 'Tax paid', + nontaxable_sales => 'Non-taxable Sales', + nontaxable_purchases => 'Non-taxable Purchases', + receipts => 'Receipts', + payments => 'Payments', + projects => 'Project Transactions', + ); + + $form->{title} = $locale->text($title{$form->{report}}); + + $gifi = qq| +<tr> + <th align=right>|.$locale->text('Accounts').qq|</th> + <td><input name=accounttype class=radio type=radio value=standard checked> |.$locale->text('Standard').qq| + + <input name=accounttype class=radio type=radio value=gifi> |.$locale->text('GIFI').qq| + </td> +</tr> +|; + + # get departments + $form->all_departments(\%myconfig); + if (@{ $form->{all_departments} }) { + $form->{selectdepartment} = "<option>\n"; + + map { $form->{selectdepartment} .= qq|<option value="$_->{description}--$_->{id}">$_->{description}\n| } (@{ $form->{all_departments} }); + } + + $department = qq| + <tr> + <th align=right nowrap>|.$locale->text('Department').qq|</th> + <td colspan=3><select name=department>$form->{selectdepartment}</select></td> + </tr> +| if $form->{selectdepartment}; + + # accounting years + $form->{selectaccountingyear} = "<option>\n"; + map { $form->{selectaccountingyear} .= qq|<option>$_\n| } @{ $form->{all_years} }; + + $form->{selectaccountingmonth} = "<option>\n"; + map { $form->{selectaccountingmonth} .= qq|<option value=$_>|.$locale->text($form->{all_month}{$_}).qq|\n| } sort keys %{ $form->{all_month} }; + + $selectfrom = qq| + <tr> + <th align=right>|.$locale->text('Period').qq|</th> + <td colspan=3> + <select name=month>$form->{selectaccountingmonth}</select> + <select name=year>$form->{selectaccountingyear}</select> + <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq| + <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq| + <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq| + <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq| + </td> + </tr> +|; + + $selectto = qq| + <tr> + <th align=right></th> + <td> + <select name=month>$form->{selectaccountingmonth}</select> + <select name=year>$form->{selectaccountingyear}</select> + </td> + </tr> +|; + + + $summary = qq| + <tr> + <th></th> + <td><input name=summary type=radio class=radio value=1 checked> |.$locale->text('Summary').qq| + <input name=summary type=radio class=radio value=0> |.$locale->text('Detail').qq| + </td> + </tr> +|; + + # get projects + $form->all_projects(\%myconfig); + if (@{ $form->{all_projects} }) { + $form->{selectproject} = "<option>\n"; + map { $form->{selectproject} .= qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n| } @{ $form->{all_projects} }; + + $project = qq| + <tr> + <th align=right nowrap>|.$locale->text('Project').qq|</th> + <td colspan=3><select name=projectnumber>$form->{selectproject}</select></td> + </tr>|; + + } + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<input type=hidden name=title value="$form->{title}"> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table> + $department +|; + + if ($form->{report} eq "projects") { + print qq| + $project + <input type=hidden name=nextsub value=generate_projects> + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=todate size=11 title="$myconfig{dateformat}"></td> + </tr> + $selectfrom + </table> + </td> + </tr> + <tr> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <td><input name=l_heading class=checkbox type=checkbox value=Y> |.$locale->text('Heading').qq| + <input name=l_subtotal class=checkbox type=checkbox value=Y> |.$locale->text('Subtotal').qq|</td> + </tr> +|; + } + + if ($form->{report} eq "income_statement") { + print qq| + $project + <input type=hidden name=nextsub value=generate_income_statement> + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=todate size=11 title="$myconfig{dateformat}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Period').qq|</th> + <td colspan=3> + <select name=frommonth>$form->{selectaccountingmonth}</select> + <select name=fromyear>$form->{selectaccountingyear}</select> + <input name=interval class=radio type=radio value=0 checked>|.$locale->text('Current').qq| + <input name=interval class=radio type=radio value=1>|.$locale->text('Month').qq| + <input name=interval class=radio type=radio value=3>|.$locale->text('Quarter').qq| + <input name=interval class=radio type=radio value=12>|.$locale->text('Year').qq| + </td> + </tr> + <tr> + <th align=right>|.$locale->text('Compare to').qq|</th> + </tr> + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td><input name=comparefromdate size=11 title="$myconfig{dateformat}"></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=comparetodate size=11 title="$myconfig{dateformat}"></td> + </tr> + <tr> + <th align=right>|.$locale->text('Period').qq|</th> + <td> + <select name=comparemonth>$form->{selectaccountingmonth}</select> + <select name=compareyear>$form->{selectaccountingyear}</select> + </td> + </tr> + <tr> + <th align=right>|.$locale->text('Decimalplaces').qq|</th> + <td><input name=decimalplaces size=3 value=2></td> + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Method').qq|</th> + <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq| + <input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td> + </tr> + + <tr> + <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <td colspan=3><input name=l_heading class=checkbox type=checkbox value=Y> |.$locale->text('Heading').qq| + <input name=l_subtotal class=checkbox type=checkbox value=Y> |.$locale->text('Subtotal').qq| + <input name=l_accno class=checkbox type=checkbox value=Y> |.$locale->text('Account Number').qq|</td> + </tr> +|; + } + + + if ($form->{report} eq "balance_sheet") { + print qq| + <input type=hidden name=nextsub value=generate_balance_sheet> + <tr> + <th align=right>|.$locale->text('as at').qq|</th> + <td><input name=asofdate size=11 title="$myconfig{dateformat}" value=$form->{asofdate}></td> + <td> + <select name=asofmonth>$form->{selectaccountingmonth}</select> + <select name=asofyear>$form->{selectaccountingyear}</select> + </td> + </tr> + + <th align=right nowrap>|.$locale->text('Compare to').qq|</th> + <td><input name=compareasofdate size=11 title="$myconfig{dateformat}"></td> + <td> + <select name=compareasofmonth>$form->{selectaccountingmonth}</select> + <select name=compareasofyear>$form->{selectaccountingyear}</select> + </td> + + </tr> + <tr> + <th align=right>|.$locale->text('Decimalplaces').qq|</th> + <td><input name=decimalplaces size=3 value=2></td> + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Method').qq|</th> + <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq| + <input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td> + </tr> + + <tr> + <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <td><input name=l_heading class=checkbox type=checkbox value=Y> |.$locale->text('Heading').qq| + <input name=l_subtotal class=checkbox type=checkbox value=Y> |.$locale->text('Subtotal').qq| + <input name=l_accno class=checkbox type=checkbox value=Y> |.$locale->text('Account Number').qq|</td> + </tr> +|; + } + + + if ($form->{report} eq "trial_balance") { + print qq| + <input type=hidden name=nextsub value=generate_trial_balance> + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=todate size=11 title="$myconfig{dateformat}"></td> + </tr> + $selectfrom + </table> + </td> + </tr> + <tr> + <td> + <table> + <tr> + <th align=right nowrap>|.$locale->text('Include in Report').qq|</th> + <td><input name=l_heading class=checkbox type=checkbox value=Y> |.$locale->text('Heading').qq| + <input name=l_subtotal class=checkbox type=checkbox value=Y> |.$locale->text('Subtotal').qq| + <input name=all_accounts class=checkbox type=checkbox value=Y> |.$locale->text('All Accounts').qq|</td> + </tr> +|; + } + + + if ($form->{report} =~ /^tax_/) { + $gifi = ""; + + $form->{db} = ($form->{report} =~ /_collected/) ? "ar" : "ap"; + + RP->get_taxaccounts(\%myconfig, \%$form); + + print qq| + <input type=hidden name=nextsub value=generate_tax_report> + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=todate size=11 title="$myconfig{dateformat}"></td> + </tr> + $selectfrom + $summary + <tr> + <th align=right>|.$locale->text('Report for').qq|</th> + <td colspan=3> +|; + + $checked = "checked"; + foreach $ref (@{ $form->{taxaccounts} }) { + + print qq|<input name=accno class=radio type=radio value=$ref->{accno} $checked> $ref->{description} + + <input name="$ref->{accno}_description" type=hidden value="$ref->{description}"> + <input name="$ref->{accno}_rate" type=hidden value="$ref->{rate}">|; + + $checked = ""; + + } + + print qq| + <input type=hidden name=db value=$form->{db}> + <input type=hidden name=sort value=transdate> + + </td> + </tr> +|; + + + if (@{ $form->{gifi_taxaccounts} }) { + print qq| + <tr> + <th align=right>|.$locale->text('GIFI').qq|</th> + <td colspan=3> +|; + + foreach $ref (@{ $form->{gifi_taxaccounts} }) { + + print qq|<input name=accno class=radio type=radio value="gifi_$ref->{accno}"> $ref->{description} + + <input name="gifi_$ref->{accno}_description" type=hidden value="$ref->{description}"> + <input name="gifi_$ref->{accno}_rate" type=hidden value="$ref->{rate}">|; + + } + + print qq| + </td> + </tr> +|; + } + + +print qq| + <tr> + <th align=right>|.$locale->text('Method').qq|</th> + <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq| + <input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td> + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table> + <tr> + <th align=right>|.$locale->text('Include in Report').qq|</th> + <td> + <table> + <tr> + <td><input name="l_id" class=checkbox type=checkbox value=Y></td> + <td>|.$locale->text('ID').qq|</td> + <td><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Invoice').qq|</td> + <td><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Date').qq|</td> + </tr> + <tr> + <td><input name="l_name" class=checkbox type=checkbox value=Y checked></td> +|; + + if ($form->{db} eq 'ar') { + print qq|<td>|.$locale->text('Customer').qq|</td>|; + } + if ($form->{db} eq 'ap') { + print qq|<td>|.$locale->text('Vendor').qq|</td>|; + } + + print qq| + <td><input name="l_description" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Description').qq|</td> + <td><input name="l_netamount" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Amount').qq|</td> + + <td><input name="l_tax" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Tax').qq|</td> + + <td><input name="l_total" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Total').qq|</td> + </tr> + <tr> + </tr> + <tr> + <td><input name="l_subtotal" class=checkbox type=checkbox value=Y></td> + <td>|.$locale->text('Subtotal').qq|</td> + </tr> + </table> + </td> + </tr> +|; + + } + + + if ($form->{report} =~ /^nontaxable_/) { + $gifi = ""; + + $form->{db} = ($form->{report} =~ /_sales/) ? "ar" : "ap"; + + print qq| + <input type=hidden name=nextsub value=generate_tax_report> + + <input type=hidden name=db value=$form->{db}> + <input type=hidden name=sort value=transdate> + <input type=hidden name=report value=$form->{report}> + + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=todate size=11 title="$myconfig{dateformat}"></td> + </tr> + $selectfrom + $summary + <tr> + <th align=right>|.$locale->text('Method').qq|</th> + <td colspan=3><input name=method class=radio type=radio value=accrual checked>|.$locale->text('Accrual').qq| + <input name=method class=radio type=radio value=cash>|.$locale->text('Cash').qq|</td> + </tr> + <tr> + <th align=right>|.$locale->text('Include in Report').qq|</th> + <td colspan=3> + <table> + <tr> + <td><input name="l_id" class=checkbox type=checkbox value=Y></td> + <td>|.$locale->text('ID').qq|</td> + <td><input name="l_invnumber" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Invoice').qq|</td> + <td><input name="l_transdate" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Date').qq|</td> + </tr> + <tr> + <td><input name="l_name" class=checkbox type=checkbox value=Y checked></td> +|; + + if ($form->{db} eq 'ar') { + print qq|<td>|.$locale->text('Customer').qq|</td>|; + } + if ($form->{db} eq 'ap') { + print qq|<td>|.$locale->text('Vendor').qq|</td>|; + } + + print qq| + <td><input name="l_description" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Description').qq|</td> + <td><input name="l_netamount" class=checkbox type=checkbox value=Y checked></td> + <td>|.$locale->text('Amount').qq|</td> + </tr> + <tr> + <td><input name="l_subtotal" class=checkbox type=checkbox value=Y></td> + <td>|.$locale->text('Subtotal').qq|</td> + </tr> + </table> + </td> + </tr> +|; + + } + + + if (($form->{report} eq "ar_aging") || ($form->{report} eq "ap_aging")) { + $gifi = ""; + + if ($form->{report} eq 'ar_aging') { + $label = $locale->text('Customer'); + $form->{vc} = 'customer'; + } else { + $label = $locale->text('Vendor'); + $form->{vc} = 'vendor'; + } + + $nextsub = "generate_$form->{report}"; + + # setup vc selection + $form->all_vc(\%myconfig, $form->{vc}, ($form->{vc} eq 'customer') ? "AR" : "AP"); + + map { $vc .= qq|<option value="$_->{name}--$_->{id}">$_->{name}\n| } @{ $form->{"all_$form->{vc}"} }; + + $vc = ($vc) ? qq|<select name=$form->{vc}><option>\n$vc</select>| : qq|<input name=$form->{vc} size=35>|; + + $postscript = "postscript" if $myconfig{printer}; + + print qq| + <tr> + <th align=right>|.$locale->text($label).qq|</th> + <td>$vc</td> + </tr> + <tr> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=todate size=11 title="$myconfig{dateformat}"></td> + </tr> + $selectto + <input type=hidden name=type value=statement> + <input type=hidden name=format value=$postscript> + <input type=hidden name=media value="$myconfig{printer}"> + + <input type=hidden name=nextsub value=$nextsub> + <input type=hidden name=action value=$nextsub> + $summary +|; + } + +# above action can be removed if there is more than one input field + + + if ($form->{report} =~ /(receipts|payments)$/) { + $gifi = ""; + + $form->{db} = ($form->{report} =~ /payments$/) ? "ap" : "ar"; + + RP->paymentaccounts(\%myconfig, \%$form); + + $selection = "<option>\n"; + foreach $ref (@{ $form->{PR} }) { + $paymentaccounts .= "$ref->{accno} "; + $selection .= "<option>$ref->{accno}--$ref->{description}\n"; + } + + chop $paymentaccounts; + + print qq| + <input type=hidden name=nextsub value=list_payments> + <tr> + <th align=right nowrap>|.$locale->text('Account').qq|</th> + <td colspan=3><select name=account>$selection</select> + <input type=hidden name=paymentaccounts value="$paymentaccounts"> + </td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Description').qq|</th> + <td colspan=3><input name=description size=35></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Source').qq|</th> + <td colspan=3><input name=source></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Memo').qq|</th> + <td colspan=3><input name=memo size=30></td> + </tr> + <tr> + <th align=right>|.$locale->text('From').qq|</th> + <td><input name=fromdate size=11 title="$myconfig{dateformat}" value=$form->{fromdate}></td> + <th align=right>|.$locale->text('To').qq|</th> + <td><input name=todate size=11 title="$myconfig{dateformat}"></td> + </tr> + $selectfrom + <tr> + <td align=right><input type=checkbox style=checkbox name=fx_transaction value=1 checked></td> + <td colspan=3>|.$locale->text('Include Exchange Rate Difference').qq|</td> + </tr> + <tr> + <td align=right><input name=l_subtotal class=checkbox type=checkbox value=Y></td> + <td align=left colspan=3>|.$locale->text('Subtotal').qq|</th> + </tr> + + <input type=hidden name=db value=$form->{db}> + <input type=hidden name=sort value=transdate> +|; + + } + + + print qq| + +$gifi + + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<br> +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|"> + +</form> + +</body> +</html> +|; + +} + + +sub continue { &{$form->{nextsub}} }; + + +sub generate_income_statement { + + $form->{padding} = " "; + $form->{bold} = "<b>"; + $form->{endbold} = "</b>"; + $form->{br} = "<br>"; + + RP->income_statement(\%myconfig, \%$form); + + ($form->{department}) = split /--/, $form->{department}; + ($form->{projectnumber}) = split /--/, $form->{projectnumber}; + + $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1); + $form->{todate} = $form->current_date(\%myconfig) unless $form->{todate}; + + # if there are any dates construct a where + if ($form->{fromdate} || $form->{todate}) { + + unless ($form->{todate}) { + $form->{todate} = $form->current_date(\%myconfig); + } + + $longtodate = $locale->date(\%myconfig, $form->{todate}, 1); + $shorttodate = $locale->date(\%myconfig, $form->{todate}, 0); + + $longfromdate = $locale->date(\%myconfig, $form->{fromdate}, 1); + $shortfromdate = $locale->date(\%myconfig, $form->{fromdate}, 0); + + $form->{this_period} = "$shortfromdate<br>\n$shorttodate"; + $form->{period} = $locale->text('for Period').qq|<br>\n$longfromdate |.$locale->text('To').qq| $longtodate|; + } + + if ($form->{comparefromdate} || $form->{comparetodate}) { + $longcomparefromdate = $locale->date(\%myconfig, $form->{comparefromdate}, 1); + $shortcomparefromdate = $locale->date(\%myconfig, $form->{comparefromdate}, 0); + + $longcomparetodate = $locale->date(\%myconfig, $form->{comparetodate}, 1); + $shortcomparetodate = $locale->date(\%myconfig, $form->{comparetodate}, 0); + + $form->{last_period} = "$shortcomparefromdate<br>\n$shortcomparetodate"; + $form->{period} .= "<br>\n$longcomparefromdate ".$locale->text('To').qq| $longcomparetodate|; + } + + # setup variables for the form + @a = qw(company address businessnumber); + map { $form->{$_} = $myconfig{$_} } @a; + $form->{address} =~ s/\\n/<br>/g; + + $form->{templates} = $myconfig{templates}; + + $form->{IN} = "income_statement.html"; + + $form->parse_template; + +} + + +sub generate_balance_sheet { + + $form->{padding} = " "; + $form->{bold} = "<b>"; + $form->{endbold} = "</b>"; + $form->{br} = "<br>"; + + RP->balance_sheet(\%myconfig, \%$form); + + $form->{asofdate} = $form->current_date(\%myconfig) unless $form->{asofdate}; + $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1); + + ($form->{department}) = split /--/, $form->{department}; + + # define Current Earnings account + $padding = ($form->{l_heading}) ? $form->{padding} : ""; + push(@{$form->{equity_account}}, $padding.$locale->text('Current Earnings')); + + $form->{this_period} = $locale->date(\%myconfig, $form->{asofdate}, 0); + $form->{last_period} = $locale->date(\%myconfig, $form->{compareasofdate}, 0); + + $form->{IN} = "balance_sheet.html"; + + # setup company variables for the form + map { $form->{$_} = $myconfig{$_} } (qw(company address businessnumber nativecurr)); + $form->{address} =~ s/\\n/<br>/g; + + $form->{templates} = $myconfig{templates}; + + $form->parse_template; + +} + + +sub generate_projects { + + $form->{nextsub} = "generate_projects"; + $form->{title} = $locale->text('Project Transactions'); + RP->trial_balance(\%myconfig, \%$form); + + &list_accounts; + +} + + +# Antonio Gallardo +# +# D.S. Feb 16, 2001 +# included links to display transactions for period entered +# added headers and subtotals +# +sub generate_trial_balance { + + # get for each account initial balance, debits and credits + RP->trial_balance(\%myconfig, \%$form); + + $form->{nextsub} = "generate_trial_balance"; + $form->{title} = $locale->text('Trial Balance'); + &list_accounts; + +} + + +sub list_accounts { + + $title = $form->escape($form->{title}); + + if ($form->{department}) { + ($department) = split /--/, $form->{department}; + $options = $locale->text('Department')." : $department<br>"; + $department = $form->escape($form->{department}); + } + if ($form->{projectnumber}) { + ($projectnumber) = split /--/, $form->{projectnumber}; + $options .= $locale->text('Project Number')." : $projectnumber<br>"; + $projectnumber = $form->escape($form->{projectnumber}); + } + + # if there are any dates + if ($form->{fromdate} || $form->{todate}) { + if ($form->{fromdate}) { + $fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1); + } + if ($form->{todate}) { + $todate = $locale->date(\%myconfig, $form->{todate}, 1); + } + + $form->{period} = "$fromdate - $todate"; + } else { + $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1); + + } + $options .= $form->{period}; + + @column_index = qw(accno description begbalance debit credit endbalance); + + $column_header{accno} = qq|<th class=listheading>|.$locale->text('Account').qq|</th>|; + $column_header{description} = qq|<th class=listheading>|.$locale->text('Description').qq|</th>|; + $column_header{debit} = qq|<th class=listheading>|.$locale->text('Debit').qq|</th>|; + $column_header{credit} = qq|<th class=listheading>|.$locale->text('Credit').qq|</th>|; + $column_header{begbalance} = qq|<th class=listheading>|.$locale->text('Balance').qq|</th>|; + $column_header{endbalance} = qq|<th class=listheading>|.$locale->text('Balance').qq|</th>|; + + + if ($form->{accounttype} eq 'gifi') { + $column_header{accno} = qq|<th class=listheading>|.$locale->text('GIFI').qq|</th>|; + } + + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$options</td> + </tr> + <tr> + <td> + <table width=100%> + <tr>|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| + </tr> +|; + + + + # sort the whole thing by account numbers and display + foreach $ref (sort { $a->{accno} cmp $b->{accno} } @{ $form->{TB} }) { + + $description = $form->escape($ref->{description}); + + $href = qq|ca.pl?path=$form->{path}&action=list_transactions&accounttype=$form->{accounttype}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&sort=transdate&l_heading=$form->{l_heading}&l_subtotal=$form->{l_subtotal}&department=$department&projectnumber=$projectnumber&project_id=$form->{project_id}&title=$title&nextsub=$form->{nextsub}|; + + if ($form->{accounttype} eq 'gifi') { + $href .= "&gifi_accno=$ref->{accno}&gifi_description=$description"; + $na = $locale->text('N/A'); + map { $ref->{$_} = $na } qw(accno description) unless $ref->{accno}; + } else { + $href .= "&accno=$ref->{accno}&description=$description"; + } + + $ml = ($ref->{category} =~ /(A|E)/) ? -1 : 1; + + $debit = $form->format_amount(\%myconfig, $ref->{debit}, 2, " "); + $credit = $form->format_amount(\%myconfig, $ref->{credit}, 2, " "); + $begbalance = $form->format_amount(\%myconfig, $ref->{balance} * $ml, 2, " "); + $endbalance = $form->format_amount(\%myconfig, ($ref->{balance} + $ref->{amount}) * $ml, 2, " "); + + + if ($ref->{charttype} eq "H" && $subtotal && $form->{l_subtotal}) { + + if ($subtotal) { + + map { $column_data{$_} = "<th> </th>" } qw(accno begbalance endbalance); + + $subtotalbegbalance = $form->format_amount(\%myconfig, $subtotalbegbalance, 2, " "); + $subtotalendbalance = $form->format_amount(\%myconfig, $subtotalendbalance, 2, " "); + $subtotaldebit = $form->format_amount(\%myconfig, $subtotaldebit, 2, " "); + $subtotalcredit = $form->format_amount(\%myconfig, $subtotalcredit, 2, " "); + + $column_data{description} = "<th class=listsubtotal>$subtotaldescription</th>"; + $column_data{begbalance} = "<th align=right class=listsubtotal>$subtotalbegbalance</th>"; + $column_data{endbalance} = "<th align=right class=listsubtotal>$subtotalendbalance</th>"; + $column_data{debit} = "<th align=right class=listsubtotal>$subtotaldebit</th>"; + $column_data{credit} = "<th align=right class=listsubtotal>$subtotalcredit</th>"; + + print qq| + <tr class=listsubtotal> +|; + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + } + } + + if ($ref->{charttype} eq "H") { + $subtotal = 1; + $subtotaldescription = $ref->{description}; + $subtotaldebit = $ref->{debit}; + $subtotalcredit = $ref->{credit}; + $subtotalbegbalance = 0; + $subtotalendbalance = 0; + + if ($form->{l_heading}) { + if (! $form->{all_accounts}) { + if (($subtotaldebit + $subtotalcredit) == 0) { + $subtotal = 0; + next; + } + } + } else { + $subtotal = 0; + if ($form->{all_accounts} || ($form->{l_subtotal} && (($subtotaldebit + $subtotalcredit) != 0))) { + $subtotal = 1; + } + next; + } + + map { $column_data{$_} = "<th> </th>" } qw(accno debit credit begbalance endbalance); + $column_data{description} = "<th class=listheading>$ref->{description}</th>"; + } + + if ($ref->{charttype} eq "A") { + $column_data{accno} = "<td><a href=$href>$ref->{accno}</a></td>"; + $column_data{description} = "<td>$ref->{description}</td>"; + $column_data{debit} = "<td align=right>$debit</td>"; + $column_data{credit} = "<td align=right>$credit</td>"; + $column_data{begbalance} = "<td align=right>$begbalance</td>"; + $column_data{endbalance} = "<td align=right>$endbalance</td>"; + + $totaldebit += $ref->{debit}; + $totalcredit += $ref->{credit}; + + $cml = ($ref->{category} eq 'C') ? -1 : 1; + $subtotalbegbalance += $ref->{balance} * $ml * $cml; + $subtotalendbalance += ($ref->{balance} + $ref->{amount}) * $ml * $cml; + + } + + + if ($ref->{charttype} eq "H") { + print qq| + <tr class=listheading> +|; + } + if ($ref->{charttype} eq "A") { + $i++; $i %= 2; + print qq| + <tr class=listrow$i> +|; + } + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + } + + + # print last subtotal + if ($subtotal && $form->{l_subtotal}) { + map { $column_data{$_} = "<th> </th>" } qw(accno begbalance endbalance); + $subtotalbegbalance = $form->format_amount(\%myconfig, $subtotalbegbalance, 2, " "); + $subtotalendbalance = $form->format_amount(\%myconfig, $subtotalendbalance, 2, " "); + $subtotaldebit = $form->format_amount(\%myconfig, $subtotaldebit, 2, " "); + $subtotalcredit = $form->format_amount(\%myconfig, $subtotalcredit, 2, " "); + $column_data{description} = "<th class=listsubtotal>$subtotaldescription</th>"; + $column_data{begbalance} = "<th align=right class=listsubtotal>$subtotalbegbalance</th>"; + $column_data{endbalance} = "<th align=right class=listsubtotal>$subtotalendbalance</th>"; + $column_data{debit} = "<th align=right class=listsubtotal>$subtotaldebit</th>"; + $column_data{credit} = "<th align=right class=listsubtotal>$subtotalcredit</th>"; + + print qq| + <tr class=listsubtotal> +|; + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + } + + $totaldebit = $form->format_amount(\%myconfig, $totaldebit, 2, " "); + $totalcredit = $form->format_amount(\%myconfig, $totalcredit, 2, " "); + + map { $column_data{$_} = "<th> </th>" } qw(accno description begbalance endbalance); + + $column_data{debit} = qq|<th align=right class=listtotal>$totaldebit</th>|; + $column_data{credit} = qq|<th align=right class=listtotal>$totalcredit</th>|; + + print qq| + <tr class=listtotal> +|; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +</body> +</html> +|; + +} + + +sub generate_ar_aging { + + # split customer + ($form->{customer}) = split(/--/, $form->{customer}); + $customer = $form->escape($form->{customer},1); + $title = $form->escape($form->{title},1); + $media = $form->escape($form->{media},1); + + $form->{ct} = "customer"; + $form->{arap} = "ar"; + + RP->aging(\%myconfig, \%$form); + + $form->{callback} = qq|$form->{script}?path=$form->{path}&action=generate_ar_aging&login=$form->{login}&sessionid=$form->{sessionid}&todate=$form->{todate}&customer=$customer&title=$title&type=$form->{type}&format=$form->{format}&media=$media&summary=$form->{summary}|; + + &aging; + +} + + +sub generate_ap_aging { + + # split vendor + ($form->{vendor}) = split(/--/, $form->{vendor}); + $vendor = $form->escape($form->{vendor},1); + $title = $form->escape($form->{title},1); + $media = $form->escape($form->{media},1); + + $form->{ct} = "vendor"; + $form->{arap} = "ap"; + + RP->aging(\%myconfig, \%$form); + + $form->{callback} = qq|$form->{script}?path=$form->{path}&action=generate_ap_aging&login=$form->{login}&sessionid=$form->{sessionid}&todate=$form->{todate}&vendor=$vendor&title=$title&type=$form->{type}&format=$form->{format}&media=$media&summary=$form->{summary}|; + + &aging; + +} + + +sub aging { + + $form->header; + + $column_header{statement} = qq|<th class=listheading width=1%> </th>|; + $column_header{ct} = qq|<th class=listheading width=60%>|.$locale->text(ucfirst $form->{ct}).qq|</th>|; + $column_header{language} = qq|<th class=listheading>|.$locale->text('Language').qq|</th>|; + $column_header{invnumber} = qq|<th class=listheading>|.$locale->text('Invoice').qq|</th>|; + $column_header{ordnumber} = qq|<th class=listheading>|.$locale->text('Order').qq|</th>|; + $column_header{transdate} = qq|<th class=listheading nowrap>|.$locale->text('Date').qq|</th>|; + $column_header{duedate} = qq|<th class=listheading nowrap>|.$locale->text('Due Date').qq|</th>|; + $column_header{c0} = qq|<th class=listheading width=10%>|.$locale->text('Current').qq|</th>|; + $column_header{c30} = qq|<th class=listheading width=10%>30</th>|; + $column_header{c60} = qq|<th class=listheading width=10%>60</th>|; + $column_header{c90} = qq|<th class=listheading width=10%>90</th>|; + + @column_index = qw(statement ct); + + if (@{ $form->{all_language} } && $form->{arap} eq 'ar') { + push @column_index, "language"; + $form->{selectlanguage} = qq|<option>\n|; + + map { $form->{selectlanguage} .= qq|<option value="$_->{code}">$_->{description}\n| } @{ $form->{all_language} }; + } + + if ($form->{summary}) { + push @column_index, qw(c0 c30 c60 c90); + } else { + push @column_index, qw(invnumber ordnumber transdate duedate c0 c30 c60 c90); + } + + if ($form->{department}) { + $option .= "\n<br>" if $option; + ($department) = split /--/, $form->{department}; + $option .= $locale->text('Department')." : $department"; + $department = $form->escape($form->{department},1); + $form->{callback} .= "&department=$department"; + } + + if ($form->{arap} eq 'ar') { + if ($form->{customer}) { + $option .= "\n<br>" if $option; + $option .= $form->{customer}; + } + } + if ($form->{arap} eq 'ap') { + shift @column_index; + if ($form->{vendor}) { + $option .= "\n<br>" if $option; + $option .= $form->{vendor}; + } + } + + $todate = $locale->date(\%myconfig, $form->{todate}, 1); + $option .= "\n<br>" if $option; + $option .= $locale->text('for Period')." ".$locale->text('To')." $todate"; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| + </tr> +|; + + + $ctid = 0; + $i = 0; + $k = 0; + $l = $#{ $form->{AG} }; + + foreach $ref (@{ $form->{AG} }) { + + $k++; + + if ($ctid != $ref->{ctid}) { + + $i++; + + $column_data{ct} = qq|<td>$ref->{name}</td>|; + + if ($form->{selectlanguage}) { + $form->{"selectlanguage_$i"} = $form->{selectlanguage}; + $form->{"selectlanguage_$i"} =~ s/(<option value="\Q$ref->{language_code}\E")/$1 selected/; + $column_data{language} = qq|<td><select name="language_code_$i">$form->{"selectlanguage_$i"}</select></td>|; + } + + $column_data{statement} = qq|<td><input name="statement_$i" type=checkbox class=checkbox value=1 $ref->{checked}> + <input type=hidden name="$form->{ct}_id_$i" value=$ref->{ctid}> + </td>|; + + } + + $ctid = $ref->{ctid}; + + $c0subtotal += $ref->{c0}; + $c30subtotal += $ref->{c30}; + $c60subtotal += $ref->{c60}; + $c90subtotal += $ref->{c90}; + + $c0total += $ref->{c0}; + $c30total += $ref->{c30}; + $c60total += $ref->{c60}; + $c90total += $ref->{c90}; + + $ref->{c0} = $form->format_amount(\%myconfig, $ref->{c0}, 2, " "); + $ref->{c30} = $form->format_amount(\%myconfig, $ref->{c30}, 2, " "); + $ref->{c60} = $form->format_amount(\%myconfig, $ref->{c60}, 2, " "); + $ref->{c90} = $form->format_amount(\%myconfig, $ref->{c90}, 2, " "); + + $href = qq|$ref->{module}.pl?path=$form->{path}&action=edit&id=$ref->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=|.$form->escape($form->{callback}); + + $column_data{invnumber} = qq|<td><a href=$href>$ref->{invnumber}</a></td>|; + map { $column_data{$_} = qq|<td>$ref->{$_}</td>| } qw(ordnumber transdate duedate); + map { $column_data{$_} = qq|<td align=right>$ref->{$_}</td>| } qw(c0 c30 c60 c90); + + if (!$form->{summary}) { + + $j++; $j %= 2; + print qq| + <tr class=listrow$j> +|; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + + map { $column_data{$_} = qq|<td> </td>| } qw(ct statement language); + + } + + # print subtotal + $nextid = ($k <= $l) ? $form->{AG}->[$k]->{ctid} : 0; + if ($ctid != $nextid) { + + $c0subtotal = $form->format_amount(\%myconfig, $c0subtotal, 2, " "); + $c30subtotal = $form->format_amount(\%myconfig, $c30subtotal, 2, " "); + $c60subtotal = $form->format_amount(\%myconfig, $c60subtotal, 2, " "); + $c90subtotal = $form->format_amount(\%myconfig, $c90subtotal, 2, " "); + + if ($form->{summary}) { + $column_data{c0} = qq|<td align=right>$c0subtotal</th>|; + $column_data{c30} = qq|<td align=right>$c30subtotal</th>|; + $column_data{c60} = qq|<td align=right>$c60subtotal</th>|; + $column_data{c90} = qq|<td align=right>$c90subtotal</th>|; + + $j++; $j %= 2; + print qq| + <tr class=listrow$j> +|; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + + } else { + + map { $column_data{$_} = qq|<th> </th>| } @column_index; + + $column_data{c0} = qq|<th class=listsubtotal align=right>$c0subtotal</th>|; + $column_data{c30} = qq|<th class=listsubtotal align=right>$c30subtotal</th>|; + $column_data{c60} = qq|<th class=listsubtotal align=right>$c60subtotal</th>|; + $column_data{c90} = qq|<th class=listsubtotal align=right>$c90subtotal</th>|; + + # print subtotals + print qq| + <tr class=listsubtotal> +|; + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + + } + + $c0subtotal = 0; + $c30subtotal = 0; + $c60subtotal = 0; + $c90subtotal = 0; + + } + } + + print qq| + </tr> + <tr class=listtotal> +|; + + map { $column_data{$_} = qq|<th> </th>| } @column_index; + + $c0total = $form->format_amount(\%myconfig, $c0total, 2, " "); + $c30total = $form->format_amount(\%myconfig, $c30total, 2, " "); + $c60total = $form->format_amount(\%myconfig, $c60total, 2, " "); + $c90total = $form->format_amount(\%myconfig, $c90total, 2, " "); + + $column_data{c0} = qq|<th align=right class=listtotal>$c0total</th>|; + $column_data{c30} = qq|<th align=right class=listtotal>$c30total</th>|; + $column_data{c60} = qq|<th align=right class=listtotal>$c60total</th>|; + $column_data{c90} = qq|<th align=right class=listtotal>$c90total</th>|; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + <input type=hidden name=rowcount value=$i> + </tr> + </table> + </td> + </tr> + <tr> + <td> +|; + + &print_options if ($form->{arap} eq 'ar'); + + print qq| + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> +|; + + if ($form->{arap} eq 'ar') { + print qq| +<input type=hidden name=todate value=$form->{todate}> + +<input type=hidden name=title value="$form->{title}"> +<input type=hidden name=summary value=$form->{summary}> + +<input type=hidden name=callback value=$form->{callback}> + +<input type=hidden name=arap value=$form->{arap}> +<input type=hidden name=ct value=$form->{ct}> +<input type=hidden name=$form->{ct} value="$form->{$form->{ct}}"> + +<input type=hidden name=department value="$form->{department}"> + +<input type=hidden name=path value=$form->{path}> +<input type=hidden name=login value=$form->{login}> +<input type=hidden name=sessionid value=$form->{sessionid}> + +<br> +<input class=submit type=submit name=action value="|.$locale->text('Select all').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('Print').qq|"> +<input class=submit type=submit name=action value="|.$locale->text('E-mail').qq|"> +|; + } + + if ($form->{menubar}) { + require "$form->{path}/menu.pl"; + &menubar; + } + + print qq| +</form> + +</body> +</html> +|; + +} + + +sub select_all { + + RP->aging(\%myconfig, \%$form); + + map { $_->{checked} = "checked" } @{ $form->{AG} }; + + &aging; + +} + + +sub print_options { + + $form->{sendmode} = "attachment"; + $form->{copies} = 1 unless $form->{copies}; + + $form->{PD}{$form->{type}} = "selected"; + $form->{DF}{$form->{format}} = "selected"; + $form->{SM}{$form->{sendmode}} = "selected"; + + $format = qq| + <option value=html $form->{PD}{format}>html|; + + $type = qq| + <option value=statement $form->{PD}{statement}>|.$locale->text('Statement'); + + + if ($form->{media} eq 'email') { + $media = qq| + <td><select name=sendmode> + <option value=attachment $form->{SM}{attachment}>|.$locale->text('Attachment').qq| + <option value=inline $form->{SM}{inline}>|.$locale->text('In-line'); + } else { + $media = qq| + <td><select name=media> + <option value=screen>|.$locale->text('Screen'); + if (%printer && $latex) { + map { $media .= qq| + <option value="$_">$_| } keys %printer; + } + } + + $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/; + $media .= qq|</select></td>|; + + if ($latex) { + $format .= qq| + <option value=postscript $form->{DF}{postscript}>|.$locale->text('Postscript').qq| + <option value=pdf $form->{DF}{pdf}>|.$locale->text('PDF'); + } + + print qq| +<table> + <tr> + <td><select name=type>$type</select></td> + <td><select name=format>$format</select></td> + $media +|; + + if (%printer && $latex && $form->{media} ne 'email') { + print qq| + <td>|.$locale->text('Copies').qq| + <input name=copies size=2 value=$form->{copies}></td> +|; + } + + print qq| + </tr> +</table> +|; + +} + + +sub e_mail { + + # get name and email addresses + for $i (1 .. $form->{rowcount}) { + if ($form->{"statement_$i"}) { + $form->{"$form->{ct}_id"} = $form->{"$form->{ct}_id_$i"}; + RP->get_customer(\%myconfig, \%$form); + $selected = 1; + last; + } + } + + $form->error($locale->text('Nothing selected!')) unless $selected; + + if ($myconfig{role} =~ /(admin|manager)/) { + $bcc = qq| + <th align=right nowrap=true>|.$locale->text('Bcc').qq|</th> + <td><input name=bcc size=30 value="$form->{bcc}"></td> +|; + } + + $title = $locale->text('E-mail Statement to')." $form->{$form->{ct}}"; + + $form->{media} = "email"; + + $form->header; + + print qq| +<body> + +<form method=post action=$form->{script}> + +<table width=100%> + <tr class=listtop> + <th>$title</th> + </tr> + <tr height="5"></tr> + <tr> + <td> + <table width=100%> + <tr> + <th align=right nowrap>|.$locale->text('E-mail').qq|</th> + <td><input name=email size=30 value="$form->{email}"></td> + <th align=right nowrap>|.$locale->text('Cc').qq|</th> + <td><input name=cc size=30 value="$form->{cc}"></td> + </tr> + <tr> + <th align=right nowrap>|.$locale->text('Subject').qq|</th> + <td><input name=subject size=30 value="$form->{subject}"></td> + $bcc + </tr> + </table> + </td> + </tr> + <tr> + <td> + <table width=100%> + <tr> + <th align=left nowrap>|.$locale->text('Message').qq|</th> + </tr> + <tr> + <td><textarea name=message rows=15 cols=60 wrap=soft>$form->{message}</textarea></td> + </tr> + </table> + </td> + </tr> + <tr> + <td> +|; + + &print_options; + + map { delete $form->{$_} } qw(action email cc bcc subject message type sendmode format header); + + $form->hide_form(); + + print qq| + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +<input type=hidden name=nextsub value=send_email> + +<br> +<input name=action class=submit type=submit value="|.$locale->text('Continue').qq|"> +</form> + +</body> +</html> +|; + +} + + +sub send_email { + + $form->{OUT} = "$sendmail"; + + $form->{subject} = $locale->text('Statement').qq| - $form->{todate}| unless $form->{subject}; + $form->isblank("email", $locale->text('E-mail address missing!')); + + RP->aging(\%myconfig, \%$form); + + $form->{"statement_1"} = 1; + + &print_form; + + $form->redirect($locale->text('Statement sent to')." $form->{$form->{ct}}"); + +} + + + +sub print { + + if ($form->{media} !~ /(screen|email)/) { + $form->error($locale->text('Select postscript or PDF!')) if ($form->{format} !~ /(postscript|pdf)/); + } + + for $i (1 .. $form->{rowcount}) { + if ($form->{"statement_$i"}) { + $form->{"$form->{ct}_id"} = $form->{"$form->{ct}_id_$i"}; + $language_code = $form->{"language_code_$i"}; + $selected = 1; + last; + } + } + + $form->error($locale->text('Nothing selected!')) unless $selected; + + + if ($form->{media} !~ /(screen|email)/) { + $form->{OUT} = "| $printer{$form->{media}}"; + $form->{"$form->{ct}_id"} = ""; + $SIG{INT} = 'IGNORE'; + } else { + $form->{"statement_1"} = 1; + $form->{"language_code_1"} = $language_code; + } + + RP->aging(\%myconfig, \%$form); + + &print_form; + + $form->redirect($locale->text('Statements sent to printer!')) if ($form->{media} !~ /(screen|email)/); + +} + + +sub print_form { + + $form->{statementdate} = $locale->date(\%myconfig, $form->{todate}, 1); + + $form->{templates} = "$myconfig{templates}"; + + # setup variables for the form + @a = qw(company address businessnumber tel fax); + map { $form->{$_} = $myconfig{$_} } @a; + $form->format_string(@a); + + $form->{IN} = "$form->{type}.html"; + + if ($form->{format} eq 'postscript') { + $form->{IN} =~ s/html$/tex/; + } + if ($form->{format} eq 'pdf') { + $form->{IN} =~ s/html$/tex/; + } + + @a = qw(name address1 address2 city state zipcode country contact); + push @a, "$form->{ct}phone", "$form->{ct}fax"; + push @a, 'email' if ! $form->{media} eq 'email'; + + $i = 0; + while (@{ $form->{AG} }) { + + $ref = shift @{ $form->{AG} }; + + if ($ctid != $ref->{ctid}) { + + $ctid = $ref->{ctid}; + $i++; + + if ($form->{"statement_$i"}) { + + map { $form->{$_} = $ref->{$_} } @a; + $form->format_string(@a); + + $form->{$form->{ct}} = $form->{name}; + $form->{"$form->{ct}_id"} = $ref->{ctid}; + $form->{language_code} = $form->{"language_code_$i"}; + + map { $form->{$_} = () } qw(invnumber ordnumber notes invdate duedate); + $form->{total} = 0; + foreach $item (qw(c0 c30 c60 c90)) { + $form->{$item} = (); + $form->{"${item}total"} = 0; + } + + &statement_details($ref); + + while ($ref) { + + if (scalar (@{ $form->{AG} }) > 0) { + # one or more left to go + if ($ctid == $form->{AG}->[0]->{ctid}) { + $ref = shift @{ $form->{AG} }; + &statement_details($ref); + # any more? + $ref = scalar (@{ $form->{AG} }); + } else { + $ref = 0; + } + } else { + # set initial ref to 0 + $ref = 0; + } + + } + + map { $form->{"${_}total"} = $form->format_amount(\%myconfig, $form->{"${_}total"}, 2) } (c0, c30, c60, c90, ""); + + $form->parse_template(\%myconfig, $userspath); + + } + } + } + +} + + +sub statement_details { + my ($ref) = @_; + + $ref->{invdate} = $ref->{transdate}; + my @a = qw(invnumber ordnumber notes invdate duedate); + map { $form->{"${_}_1"} = $ref->{$_} } @a; + $form->format_string(qw(invnumber_1 ordnumber_1 notes_1)); + map { push @{ $form->{$_} }, $form->{"${_}_1"} } @a; + + foreach $item (qw(c0 c30 c60 c90)) { + eval { $ref->{$item} = $form->round_amount($ref->{$item} / $ref->{exchangerate}, 2) }; + $form->{"${item}total"} += $ref->{$item}; + $form->{total} += $ref->{$item}; + push @{ $form->{$item} }, $form->format_amount(\%myconfig, $ref->{$item}, 2); + } + +} + + +sub generate_tax_report { + + RP->tax_report(\%myconfig, \%$form); + + $descvar = "$form->{accno}_description"; + $description = $form->escape($form->{$descvar}); + $ratevar = "$form->{accno}_rate"; + $taxrate = $form->{"$form->{accno}_rate"}; + + if ($form->{accno} =~ /^gifi_/) { + $descvar = "gifi_$form->{accno}_description"; + $description = $form->escape($form->{$descvar}); + $ratevar = "gifi_$form->{accno}_rate"; + $taxrate = $form->{"gifi_$form->{accno}_rate"}; + } + + $department = $form->escape($form->{department}); + + # construct href + $href = "$form->{script}?path=$form->{path}&direction=$form->{direction}&oldsort=$form->{oldsort}&action=generate_tax_report&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&db=$form->{db}&method=$form->{method}&summary=$form->{summary}&accno=$form->{accno}&$descvar=$description&department=$department&$ratevar=$taxrate&report=$form->{report}"; + + # construct callback + $description = $form->escape($form->{$descvar},1); + $department = $form->escape($form->{department},1); + + $form->sort_order(); + + $callback = "$form->{script}?path=$form->{path}&direction=$form->{direction}&oldsort=$form->{oldsort}&action=generate_tax_report&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&db=$form->{db}&method=$form->{method}&summary=$form->{summary}&accno=$form->{accno}&$descvar=$description&department=$department&$ratevar=$taxrate&report=$form->{report}"; + + $form->{title} = $locale->text('GIFI')." - " if ($form->{accno} =~ /^gifi_/); + + $title = $form->escape($form->{title}); + $href .= "&title=$title"; + $title = $form->escape($form->{title},1); + $callback .= "&title=$title"; + + $form->{title} = qq|$form->{title} $form->{"$form->{accno}_description"} |; + + @columns = $form->sort_columns(qw(id transdate invnumber name description netamount tax total)); + + $form->{"l_description"} = "" if $form->{summary}; + + 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->{l_subtotal} eq 'Y') { + $callback .= "&l_subtotal=Y"; + $href .= "&l_subtotal=Y"; + } + + + if ($form->{department}) { + ($department) = split /--/, $form->{department}; + $option = $locale->text('Department')." : $department"; + } + + # if there are any dates + if ($form->{fromdate} || $form->{todate}) { + if ($form->{fromdate}) { + $fromdate = $locale->date(\%myconfig, $form->{fromdate}, 1); + } + if ($form->{todate}) { + $todate = $locale->date(\%myconfig, $form->{todate}, 1); + } + + $form->{period} = "$fromdate - $todate"; + } else { + $form->{period} = $locale->date(\%myconfig, $form->current_date(\%myconfig), 1); + } + + + if ($form->{db} eq 'ar') { + $name = $locale->text('Customer'); + $invoice = 'is.pl'; + $arap = 'ar.pl'; + } + if ($form->{db} eq 'ap') { + $name = $locale->text('Vendor'); + $invoice = 'ir.pl'; + $arap = 'ap.pl'; + } + + $option .= "<br>" if $option; + $option .= "$form->{period}"; + + + $column_header{id} = qq|<th><a class=listheading href=$href&sort=id>|.$locale->text('ID').qq|</th>|; + $column_header{invnumber} = qq|<th><a class=listheading href=$href&sort=invnumber>|.$locale->text('Invoice').qq|</th>|; + $column_header{transdate} = qq|<th><a class=listheading href=$href&sort=transdate>|.$locale->text('Date').qq|</th>|; + $column_header{netamount} = qq|<th class=listheading>|.$locale->text('Amount').qq|</th>|; + $column_header{tax} = qq|<th class=listheading>|.$locale->text('Tax').qq|</th>|; + $column_header{total} = qq|<th class=listheading>|.$locale->text('Total').qq|</th>|; + + $column_header{name} = qq|<th><a class=listheading href=$href&sort=name>$name</th>|; + + $column_header{description} = qq|<th><a class=listheading href=$href&sort=description>|.$locale->text('Description').qq|</th>|; + + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop colspan=$colspan>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "$column_header{$_}\n" } @column_index; + + print qq| + </tr> +|; + + # add sort and escape callback + $callback = $form->escape($callback . "&sort=$form->{sort}"); + + if (@{ $form->{TR} }) { + $sameitem = $form->{TR}->[0]->{$form->{sort}}; + } + + foreach $ref (@{ $form->{TR} }) { + + $module = ($ref->{invoice}) ? $invoice : $arap; + $module = 'ps.pl' if $ref->{till}; + + if ($form->{l_subtotal} eq 'Y') { + if ($sameitem ne $ref->{$form->{sort}}) { + &tax_subtotal; + $sameitem = $ref->{$form->{sort}}; + } + } + + $totalnetamount += $ref->{netamount}; + $totaltax += $ref->{tax}; + $ref->{total} = $ref->{netamount} + $ref->{tax}; + + $subtotalnetamount += $ref->{netamount}; + $subtotaltax += $ref->{tax}; + + map { $ref->{$_} = $form->format_amount(\%myconfig, $ref->{$_}, 2, " "); } qw(netamount tax total); + + $column_data{id} = qq|<td>$ref->{id}</td>|; + $column_data{invnumber} = qq|<td><a href=$module?path=$form->{path}&action=edit&id=$ref->{id}&login=$form->{login}&sessionid=$form->{sessionid}&callback=$callback>$ref->{invnumber}</a></td>|; + + map { $column_data{$_} = qq|<td>$ref->{$_}</td>| } qw(id transdate name partnumber description); + + map { $column_data{$_} = qq|<td align=right>$ref->{$_}</td>| } qw(netamount tax total); + + $i++; $i %= 2; + print qq| + <tr class=listrow$i> +|; + + map { print "$column_data{$_}\n" } @column_index; + + print qq| + </tr> +|; + + } + + if ($form->{l_subtotal} eq 'Y') { + &tax_subtotal; + } + + + map { $column_data{$_} = qq|<th> </th>| } @column_index; + + print qq| + </tr> + <tr class=listtotal> +|; + + $total = $form->format_amount(\%myconfig, $totalnetamount + $totaltax, 2, " "); + $totalnetamount = $form->format_amount(\%myconfig, $totalnetamount, 2, " "); + $totaltax = $form->format_amount(\%myconfig, $totaltax, 2, " "); + + $column_data{netamount} = qq|<th class=listtotal align=right>$totalnetamount</th>|; + $column_data{tax} = qq|<th class=listtotal align=right>$totaltax</th>|; + $column_data{total} = qq|<th class=listtotal align=right>$total</th>|; + + map { print "$column_data{$_}\n" } @column_index; + + + print qq| + </tr> + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +</body> +</html> +|; + +} + + +sub tax_subtotal { + + map { $column_data{$_} = "<td> </td>" } @column_index; + + $subtotal = $form->format_amount(\%myconfig, $subtotalnetamount + $subtotaltax, 2, " "); + $subtotalnetamount = $form->format_amount(\%myconfig, $subtotalnetamount, 2, " "); + $subtotaltax = $form->format_amount(\%myconfig, $subtotaltax, 2, " "); + + $column_data{netamount} = "<th class=listsubtotal align=right>$subtotalnetamount</th>"; + $column_data{tax} = "<th class=listsubtotal align=right>$subtotaltax</th>"; + $column_data{total} = "<th class=listsubtotal align=right>$subtotal</th>"; + + $subtotalnetamount = 0; + $subtotaltax = 0; + + print qq| + <tr class=listsubtotal> +|; + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + +} + + + +sub list_payments { + + + if ($form->{account}) { + ($form->{paymentaccounts}) = split /--/, $form->{account}; + } + if ($form->{department}) { + ($department, $form->{department_id}) = split /--/, $form->{department}; + $option = $locale->text('Department')." : $department"; + } + + RP->payments(\%myconfig, \%$form); + + @columns = $form->sort_columns(qw(transdate name paid source memo)); + + if ($form->{till}) { + @columns = $form->sort_columns(qw(transdate name paid curr source till)); + if ($myconfig{role} ne 'user') { + @columns = $form->sort_columns(qw(transdate name paid curr source till employee)); + } + } + + # construct href + $account = $form->escape($form->{account}); + $title = $form->escape($form->{title}); + $department = $form->escape($form->{department}); + $form->{paymentaccounts} =~ s/ /%20/g; + $source = $form->escape($form->{source}); + $memo = $form->escape($form->{memo}); + + $href = "$form->{script}?path=$form->{path}&direction=$form->{direction}&oldsort=$form->{oldsort}&action=list_payments&till=$form->{till}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&fx_transaction=$form->{fx_transaction}&db=$form->{db}&l_subtotal=$form->{l_cubtotal}&prepayment=$form->{prepayment}&title=$title&account=$account&department=$department&paymentaccounts=$form->{paymentaccounts}&source=$source&memo=$memo"; + + # construct callback + $account = $form->escape($form->{account},1); + $title = $form->escape($form->{title},1); + $department = $form->escape($form->{department},1); + $source = $form->escape($form->{source},1); + $memo = $form->escape($form->{memo},1); + + $form->sort_order(); + + $form->{callback} = "$form->{script}?path=$form->{path}&direction=$form->{direction}&oldsort=$form->{oldsort}&action=list_payments&till=$form->{till}&login=$form->{login}&sessionid=$form->{sessionid}&fromdate=$form->{fromdate}&todate=$form->{todate}&fx_transaction=$form->{fx_transaction}&db=$form->{db}&l_subtotal=$form->{l_subtotal}&prepayment=$form->{prepayment}&title=$title&account=$account&department=$department&paymentaccounts=$form->{paymentaccounts}&source=$source&memo=$memo&sort=$form->{sort}"; + $callback = $form->escape($form->{callback}); + + + $column_header{name} = "<th><a class=listheading href=$href&sort=name>".$locale->text('Description')."</a></th>"; + $column_header{transdate} = "<th><a class=listheading href=$href&sort=transdate>".$locale->text('Date')."</a></th>"; + $column_header{paid} = "<th class=listheading>".$locale->text('Amount')."</a></th>"; + $column_header{curr} = "<th class=listheading>".$locale->text('Curr')."</a></th>"; + $column_header{source} = "<th><a class=listheading href=$href&sort=source>".$locale->text('Source')."</a></th>"; + $column_header{memo} = "<th><a class=listheading href=$href&sort=memo>".$locale->text('Memo')."</a></th>"; + + $column_header{employee} = "<th><a class=listheading href=$href&sort=employee>".$locale->text('Salesperson')."</a></th>"; + $column_header{till} = "<th><a class=listheading href=$href&sort=till>".$locale->text('Till')."</a></th>"; + + + if ($form->{fromdate}) { + $option .= "\n<br>" if ($option); + $option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{fromdate}, 1); + } + if ($form->{todate}) { + $option .= "\n<br>" if ($option); + $option .= $locale->text('To')." ".$locale->date(\%myconfig, $form->{todate}, 1); + } + + @column_index = @columns; + $colspan = $#column_index + 1; + + $form->header; + + print qq| +<body> + +<table width=100%> + <tr> + <th class=listtop>$form->{title}</th> + </tr> + <tr height="5"></tr> + <tr> + <td>$option</td> + </tr> + <tr> + <td> + <table width=100%> + <tr class=listheading> +|; + + map { print "\n$column_header{$_}" } @column_index; + + print qq| + </tr> +|; + + + foreach $ref (sort { $a->{accno} cmp $b->{accno} } @{ $form->{PR} }) { + + next unless @{ $form->{$ref->{id}} }; + + print qq| + <tr> + <th colspan=$colspan align=left>$ref->{accno}--$ref->{description}</th> + </tr> +|; + + if (@{ $form->{$ref->{id}} }) { + $sameitem = $form->{$ref->{id}}[0]->{$form->{sort}}; + } + + foreach $payment (@{ $form->{$ref->{id}} }) { + + if ($form->{l_subtotal}) { + if ($payment->{$form->{sort}} ne $sameitem) { + # print subtotal + &payment_subtotal; + } + } + + next if ($form->{till} && ! $payment->{till}); + + $column_data{name} = "<td>$payment->{name} </td>"; + $column_data{transdate} = "<td>$payment->{transdate} </td>"; + $column_data{paid} = "<td align=right>".$form->format_amount(\%myconfig, $payment->{paid}, 2, " ")."</td>"; + $column_data{curr} = "<td>$payment->{curr}</td>"; + $column_data{source} = "<td>$payment->{source} </td>"; + $column_data{memo} = "<td>$payment->{memo} </td>"; + $column_data{employee} = "<td>$payment->{employee} </td>"; + $column_data{till} = "<td>$payment->{till} </td>"; + + $subtotalpaid += $payment->{paid}; + $accounttotalpaid += $payment->{paid}; + $totalpaid += $payment->{paid}; + + $i++; $i %= 2; + print qq| + <tr class=listrow$i> +|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + $sameitem = $payment->{$form->{sort}}; + + } + + &payment_subtotal if $form->{l_subtotal}; + + # print account totals + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $accounttotalpaid, 2, " ")."</th>"; + + print qq| + <tr class=listtotal> +|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + + $accounttotalpaid = 0; + + } + + + # print total + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalpaid, 2, " ")."</th>"; + + print qq| + <tr class=listtotal> +|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> + + </table> + </td> + </tr> + <tr> + <td><hr size=3 noshade></td> + </tr> +</table> + +</body> +</html> +|; + +} + + +sub payment_subtotal { + + if ($subtotalpaid != 0) { + map { $column_data{$_} = "<td> </td>" } @column_index; + + $column_data{paid} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalpaid, 2, " ")."</th>"; + + print qq| + <tr class=listsubtotal> +|; + + map { print "\n$column_data{$_}" } @column_index; + + print qq| + </tr> +|; + } + + $subtotalpaid = 0; + +} + + |