Subversion Repositories sql-ledger-old

Compare Revisions

Ignore whitespace Rev 20 → Rev 21

/tags/v_2_0_6/am.pl
New file
0,0 → 1,129
#!/usr/bin/perl
#
######################################################################
# 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.
#######################################################################
#
# this script is the frontend called from bin/$terminal/$script
# all the accounting modules are linked to this script which in
# turn execute the same script in bin/$terminal/
#
#######################################################################
 
# setup defaults, these are overidden by sql-ledger.conf
# DO NOT CHANGE
$userspath = "users";
$templates = "templates";
$memberfile = "users/members";
$sendmail = "| /usr/sbin/sendmail -t";
########## end ###########################################
 
 
$| = 1;
 
use SL::Form;
 
eval { require "sql-ledger.conf"; };
 
 
$form = new Form;
 
 
# name of this script
$0 =~ tr/\\/\//;
$pos = rindex $0, '/';
$script = substr($0, $pos + 1);
 
# we use $script for the language module
$form->{script} = $script;
# strip .pl for translation files
$script =~ s/\.pl//;
 
# pull in DBI
use DBI;
 
# check for user config file, could be missing or ???
eval { require("$userspath/$form->{login}.conf"); };
if ($@) {
$locale = new Locale "$language", "$script";
$form->{callback} = "";
$msg1 = $locale->text('You are logged out!');
$msg2 = $locale->text('Login');
$form->redirect("$msg1 <p><a href=login.pl target=_top>$msg2</a>");
}
 
 
$myconfig{dbpasswd} = unpack 'u', $myconfig{dbpasswd};
 
if ($form->{action} ne "save_preferences") {
map { $form->{$_} = $myconfig{$_} } qw(stylesheet charset);
}
 
 
# locale messages
$locale = new Locale "$myconfig{countrycode}", "$script";
 
 
# check password
$form->error($locale->text('Incorrect Password!')) if ($form->{password} ne $myconfig{password});
 
$form->{path} =~ s/\.\.\///g;
if ($form->{path} !~ /^bin\//) {
$form->error($locale->text('Invalid path!')."\n");
}
 
# did sysadmin lock us out
if (-e "$userspath/nologin") {
$form->error($locale->text('System currently down for maintenance!'));
}
 
 
# pull in the main code
require "$form->{path}/$form->{script}";
 
# customized scripts
if (-f "$form->{path}/custom_$form->{script}") {
eval { require "$form->{path}/custom_$form->{script}"; };
$form->error($@) if ($@);
}
 
# customized scripts for login
if (-f "$form->{path}/$form->{login}_$form->{script}") {
eval { require "$form->{path}/$form->{login}_$form->{script}"; };
$form->error($@) if ($@);
}
 
if ($form->{action}) {
# window title bar, user info
$form->{titlebar} = "SQL-Ledger ".$locale->text('Version'). " $form->{version} - $myconfig{name} - $myconfig{dbname}";
 
&{ $locale->findsub($form->{action}) };
} else {
$form->error($locale->text('action= not defined!'));
}
 
 
# end
 
Property changes:
Added: svn:executable
+ *
/tags/v_2_0_6/bin/mozilla/admin.pl
New file
0,0 → 1,1504
#=====================================================================
# 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 ($@);
 
 
# customization
if (-f "$form->{path}/custom_$form->{script}") {
eval { require "$form->{path}/custom_$form->{script}"; };
$form->error($@) if ($@);
}
 
 
if (-f "css/sql-ledger.css") {
$form->{stylesheet} = "sql-ledger.css";
}
 
 
if ($form->{action}) {
 
$subroutine = $locale->findsub($form->{action});
if ($subroutine eq 'login') {
if ($form->{rpw}) {
$form->{rpw} = crypt $form->{rpw}, "ro";
}
}
&check_password;
&$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->header;
print qq|
<body class=admin>
 
 
<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}">
 
<table>
<tr>
<th>|.$locale->text('Password').qq|</th>
<td><input type=password name=rpw></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=root value="root login">
<input type=hidden name=path value=$form->{path}>
</table>
 
 
</form>
 
<a href=http://www.sql-ledger.org>SQL-Ledger |.$locale->text('website').qq|</a>
 
</div>
 
</body>
</html>
|;
 
}
 
 
 
 
sub login {
 
&list_users;
 
}
 
 
 
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} = 200;
&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}&root=$form->{root}&rpw=$form->{rpw}">
<input type=hidden name=root value="$form->{root}">
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=rpw value=$form->{rpw}>
 
<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">
$delete
 
</form>
 
</body>
</html>
|;
 
}
 
 
sub list_users {
 
$form->error("$memberfile : ".$locale->text('locked!')) if (-f "${memberfile}.LCK");
 
open(FH, "$memberfile") or $form->error("$memberfile : $!");
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('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->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}&root=$form->{root}&rpw=$form->{rpw}";
$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=rpw value=$form->{rpw}>
<input type=hidden name=root value="$form->{root}">
 
<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
 
</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|
 
<p>
 
<form method=post action=login.pl>
 
<table border=0 width=100%>
<tr class=listheading>
<th>SQL-Ledger |.$locale->text('Accounting')." ".$locale->text('Login').qq|</th>
</tr>
<tr>
<td>
<table>
<tr>
<th align=right>|.$locale->text('Name').qq|</th>
<td><input class=login name=login></td>
<td>&nbsp;</td>
</tr>
<tr>
<th align=right>|.$locale->text('Password').qq|</th>
<td><input class=login type=password name=password></td>
<td><input type=submit name=action value="|.$locale->text('Login').qq|"></td>
</tr>
<input type=hidden name=path value=$form->{path}>
</table>
</td>
</tr>
</table>
 
</form>
 
</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)) {
$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)$/, @all;
@allhtml = reverse grep !/Default/, @allhtml;
push @allhtml, 'Default';
@allhtml = reverse @allhtml;
foreach $item (@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;
}
}
 
$form->header;
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=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('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('Stylesheet').qq|</th>
<td><input name=userstylesheet value="$myconfig->{stylesheet}"></td>
</tr>
<tr>
<th align=right>|.$locale->text('Printer').qq|</th>
<td><input name=printer size=20 value="$myconfig->{printer}"></td>
</tr>
<tr>
<th align=right>|.$locale->text('Ship via').qq|</th>
<td><input name=shippingpoint size=15 value="$myconfig->{shippingpoint}"></td>
</tr>
<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>&nbsp;$item</td>
<th align=right>|.$locale->text('Host').qq|</th>
<td><input name="${item}_dbhost" value=$form->{"${item}_dbhost"}></td>
</tr>
<tr>|;
 
if ($item eq 'Pg') {
print qq|
<th align=right>|.$locale->text('Dataset').qq|</th>
<td><input name=Pg_dbname size=10 value=$form->{Pg_dbname}></td>
<th align=right>|.$locale->text('Port').qq|</th>
<td><input name=Pg_dbport size=4 value=$form->{Pg_dbport}></td>
</tr>
<tr>
<th align=right>|.$locale->text('User').qq|</th>
<td><input name="${item}_dbuser" size=10 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=Oracle_dbport size=4 value=$form->{Oracle_dbport}></td>
</tr>
<tr>
<th align=right>|.$locale->text('Dataset').qq|</th>
<td><input name="${item}_dbuser" size=10 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 =~ /\[/;
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;
 
}
$admincheck = "checked" if $myconfig->{admin};
print qq|
<tr class=listheading>
<th colspan=2>|.$locale->text('Access Control').qq|</th>
</tr>
<tr>
<td><input name=admin type=checkbox class=checkbox value=1 $admincheck>&nbsp;<b>|.$locale->text('Administrator').qq|</b></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/ /&nbsp;/g;
$acsheading = qq|
<th align=left><input name="$item" class=checkbox type=checkbox value=1 $checked>&nbsp;$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>&nbsp;$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>
<tr>
<td>
</td>
</tr>
</table>
|;
 
}
 
 
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};
# 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!'));
}
}
# does stylesheet exist
if ($form->{userstylesheet}) {
$form->error($locale->text('Stylesheet').": css/$form->{userstylesheet} ".$locale->text('does not exist')) unless (-f "css/$form->{userstylesheet}");
}
# 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
if ($form->{dbdriver} eq 'Oracle') {
$form->{sid} = $form->{Oracle_sid}, ;
$form->{dbhost} = $form->{Oracle_dbhost}, ;
$form->{dbport} = $form->{Oracle_dbport};
$form->{dbpasswd} = $form->{Oracle_dbpasswd};
$form->{dbuser} = $form->{Oracle_dbuser};
$form->{dbname} = $form->{Oracle_dbuser};
 
$form->isblank("dbhost", $locale->text('Hostname missing!'));
$form->isblank("dbport", $locale->text('Port missing!'));
$form->isblank("dbuser", $locale->text('Dataset missing!'));
}
if ($form->{dbdriver} eq 'Pg') {
$form->{dbhost} = $form->{Pg_dbhost};
$form->{dbport} = $form->{Pg_dbport};
$form->{dbpasswd} = $form->{Pg_dbpasswd};
$form->{dbuser} = $form->{Pg_dbuser};
$form->{dbname} = $form->{Pg_dbname};
$form->isblank("dbname", $locale->text('Dataset missing!'));
$form->isblank("dbuser", $locale->text('Database User missing!'));
}
# set admin
$form->{admin} = "" unless $form->{admin};
foreach $item (keys %{$form}) {
$myconfig->{$item} = $form->{$item};
}
 
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)$/, 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);
open(CONF, "+<$memberfile") or $form->error("$memberfile : $!");
 
@config = <CONF>;
 
seek(CONF, 0, 0);
truncate(CONF, 0);
while ($line = shift @config) {
 
if ($line =~ /^\[/) {
last if ($line =~ /\[$form->{login}\]/);
$login = &login_name($line);
}
if ($line =~ /^templates=/) {
$user{$login} = &get_value($line);
}
 
print CONF $line;
}
 
# remove everything up to next login or EOF
# and save template variable
while ($line = shift @config) {
if ($line =~ /^templates=/) {
$templatedir = &get_value($line);
}
last if ($line =~ /^\[/);
}
 
# this one is either the next login or EOF
print CONF $line;
 
$login = &login_name($line);
 
while ($line = shift @config) {
if ($line =~ /^\[/) {
$login = &login_name($line);
}
if ($line =~ /^templates=/) {
$user{$login} = &get_value($line);
}
print CONF $line;
}
 
close(CONF);
unlink "${memberfile}.LCK";
 
# scan %user for $templatedir
foreach $login (keys %user) {
last if ($found = ($templatedir eq $user{$login}));
}
 
# 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>;
rmdir "$dir";
}
}
# delete config file for user
unlink "$userspath/$form->{login}.conf";
$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->header;
 
print qq|
<body class=admin>
 
 
<h2>|.$locale->text('Change Admin Password').qq|</h2>
 
<form method=post action=$form->{script}>
 
<b>|.$locale->text('Password').qq|</b> <input type=password name=password size=8>
 
<input type=hidden name=root value="$form->{root}">
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=rpw value=$form->{rpw}>
 
<p>
<input type=submit class=submit name=action value="|.$locale->text('Change Password').qq|">
 
</form>
 
</body>
</html>
|;
 
}
 
 
sub change_password {
 
$root->{password} = $form->{password};
$root->{'root login'} = 1;
$root->save_member($memberfile);
 
$form->{callback} = "$form->{script}?action=list_users&path=$form->{path}&root=$form->{root}&rpw=$root->{password}";
 
$form->redirect($locale->text('Password changed!'));
 
}
 
 
sub check_password {
 
$root = new User "$memberfile", $form->{root};
 
if ($root->{password}) {
if ($root->{password} ne $form->{rpw}) {
$form->error($locale->text('Incorrect Password!'));
}
}
 
}
 
 
sub pg_database_administration {
 
$form->{dbdriver} = 'Pg';
&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'
}
);
 
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{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->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}&root=$form->{root}&rpw=$form->{rpw}">
<input type=hidden name=root value="$form->{root}">
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=rpw value=$form->{rpw}>
 
<hr size=3 noshade>
<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->header;
 
print qq|
<body class=admin>
 
 
<center>
<h2>$form->{title}</h2>
|;
 
 
foreach $key (sort keys %needsupdate) {
if ($needsupdate{$key} ne $form->{dbversion}) {
$upd .= qq|<br><input name="db$key" type=checkbox value=1 checked> $key\n|;
$form->{dbupdate} .= "db$key ";
}
}
 
chop $form->{dbupdate};
 
 
if ($form->{dbupdate}) {
 
print qq|
<table>
<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}&root=$form->{root}&rpw=$form->{rpw}">
 
<input type=hidden name=root value="$form->{root}">
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=rpw value=$form->{rpw}>
 
<input type=hidden name=nextsub value=dbupdate>
 
<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 {
 
foreach $item (sort User->dbsources(\%$form)) {
$dbsources .= "[$item] ";
}
 
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">&nbsp;$item|;
}
closedir SQLDIR;
 
# add Default at beginning
@charts = (qq|<input name=chart class=radio type=radio value="Default" checked>&nbsp;Default|, @charts);
 
$selectencoding = qq|<option>
<option value=SQL_ASCII>ASCII
<option value=EUC_JP>Japanese Extended UNIX Code
<option value=EUC_CN>Chinese Extended UNIX Code
<option value=EUC_KR>Korean Extended UNIX Code
<option value=EUC_TW>Taiwan Extended UNIX Code
<option value=UNICODE>UTF-8 Unicode
<option value=MULE_INTERNAL>Mule internal type
<option value=LATIN1>ISO 8859-1
<option value=LATIN2>ISO 8859-2
<option value=LATIN3>ISO 8859-3
<option value=LATIN4>ISO 8859-4
<option value=LATIN5>ISO 8859-5
<option value=KOI8>KOI8-R
<option value=WIN>Windows CP1251
<option value=ALT>Windows CP866
|;
$form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Database Administration')." / ".$locale->text('Create Dataset');
$form->header;
 
print qq|
<body class=admin>
 
 
<center>
<h2>$form->{title}</h2>
 
<form method=post action=$form->{script}>
 
<table>
<tr class=listheading>
<th colspan=2>&nbsp;</th>
</tr>
 
<tr>
 
<th align=right nowrap>|.$locale->text('Existing Datasets').qq|</th>
<td>$dbsources</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>|.$locale->text('Create Chart of Accounts').qq|</th>
<td>@charts</td>
 
</tr>
<tr><td colspan=2>
<hr size=3 noshade>
<br>
<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}&root=$form->{root}&rpw=$form->{rpw}">
 
<input type=hidden name=root value="$form->{root}">
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=rpw value=$form->{rpw}>
 
<input type=hidden name=nextsub value=dbcreate>
 
<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
 
</td></tr>
</table>
 
</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->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=root value="$form->{root}">
<input type=hidden name=path value="$form->{path}">
<input type=hidden name=rpw value="$form->{rpw}">
 
<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>&nbsp;$item\n<br>|;
}
} else {
$form->error($locale->text('Nothing to delete!'));
}
 
$form->{title} = "SQL-Ledger ".$locale->text('Accounting')." ".$locale->text('Database Administration')." / ".$locale->text('Delete Dataset');
 
$form->header;
 
print qq|
<body class=admin>
 
 
<center>
<h2>$form->{title}</h2>
 
<form method=post action=$form->{script}>
 
<table>
<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>
 
<hr size=3 noshade>
<br>
<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}&root=$form->{root}&rpw=$form->{rpw}">
 
<input type=hidden name=root value="$form->{root}">
<input type=hidden name=path value="$form->{path}">
<input type=hidden name=rpw value="$form->{rpw}">
 
<input type=hidden name=nextsub value=dbdelete>
 
<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
 
</td></tr>
</table>
 
</form>
 
<p>|.$locale->text('Select a Dataset to delete and press "Continue"')
 
.qq|
 
 
</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->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=root value="$form->{root}">
<input type=hidden name=path value="$form->{path}">
<input type=hidden name=rpw value="$form->{rpw}">
 
<input type=hidden name=nextsub value=list_users>
 
<p><input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
</form>
 
 
</body>
</html>
|;
 
}
 
/tags/v_2_0_6/bin/mozilla/ic.pl
New file
0,0 → 1,1612
#=====================================================================
# 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 Control module
#
#======================================================================
 
 
use SL::IC;
 
require "$form->{path}/io.pl";
 
1;
# end of main
 
 
 
sub add {
 
$form->{title} = $locale->text('Add ' . ucfirst $form->{item});
 
$form->{callback} = "$form->{script}?action=add&item=$form->{item}&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback};
 
$form->{unit} = ($form->{item} eq 'service') ? $locale->text('hr') : $locale->text('ea');
 
&link_part;
&display_form;
}
 
 
sub search {
 
$form->{title} = (ucfirst $form->{searchitems})."s";
$form->{title} = $locale->text($form->{title});
# $locale->text('Parts')
# $locale->text('Services')
 
unless ($form->{searchitems} eq 'service') {
$onhand = qq|
<input name=itemstatus class=radio type=radio value=onhand>&nbsp;|.$locale->text('On Hand').qq|
<input name=itemstatus class=radio type=radio value=short>&nbsp;|.$locale->text('Short').qq|
|;
 
$makemodel = qq|
<tr>
<th width="1%" align=right nowrap>|.$locale->text('Make').qq|</th>
<td><input name=make size=30></td>
<th width="1%" align=right nowrap>|.$locale->text('Model').qq|</th>
<td><input name=model size=30></td>
</tr>
|;
}
 
if ($form->{searchitems} eq 'assembly') {
 
$form->{title} = $locale->text('Assemblies');
$toplevel = qq|
<tr>
<td></td>
<td colspan=3>
<input name=none class=radio type=radio value=1 checked>&nbsp;|.$locale->text('Top Level').qq|
<input name=bom class=checkbox type=checkbox value=1>&nbsp;|.$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('Sold').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('Ordered').qq|</td>
</tr>
</table>
</td>
<td width=5%>&nbsp;</td>
<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>
</table>
</td>
</tr>
|;
 
} 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('Bought').qq|</td>
<td><input name=sold class=checkbox type=checkbox value=1></td>
<td nowrap>|.$locale->text('Sold').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('On Order').qq|</td>
<td><input name=ordered class=checkbox type=checkbox value=1></td>
<td nowrap>|.$locale->text('Ordered').qq|</td>
</tr>
</table>
</td>
<td width=5%>&nbsp;</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>
</table>
</td>
</tr>
</table>
</td>
</tr>
|;
}
 
 
$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 width=1% 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>
$makemodel
<tr>
<th width="1%" align=right nowrap>|.$locale->text('Drawing').qq|</th>
<td><input name=drawing size=20></td>
<th width="1%" align=right nowrap>|.$locale->text('Microfiche').qq|</th>
<td><input name=microfiche size=20></td>
</tr>
$toplevel
<tr>
<td></td>
<td colspan=3>
<input name=itemstatus class=radio type=radio value=active checked>&nbsp;|.$locale->text('Active').qq|
$onhand
<input name=itemstatus class=radio type=radio value=obsolete>&nbsp;|.$locale->text('Obsolete').qq|
<input name=itemstatus class=radio type=radio value=orphaned>&nbsp;|.$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>&nbsp;|.$locale->text('Number').qq|</td>
<td><input name=l_description class=checkbox type=checkbox value=Y checked>&nbsp;|.$locale->text('Description').qq|</td>
<td><input name=l_unit class=checkbox type=checkbox value=Y checked>&nbsp;|.$locale->text('Unit of measure').qq|</td>
</tr>
<tr>
<td><input name=l_listprice class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('List Price').qq|</td>
<td><input name=l_sellprice class=checkbox type=checkbox value=Y checked>&nbsp;|.$locale->text('Sell Price').qq|</td>
<td><input name=l_lastcost class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Last Cost').qq|</td>
<td><input name=l_linetotal class=checkbox type=checkbox value=Y checked>&nbsp;|.$locale->text('Line Total').qq|</td>
</tr>
<tr>
<td><input name=l_priceupdate class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Updated').qq|</td>
<td><input name=l_bin class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Bin').qq|</td>
<td><input name=l_rop class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('ROP').qq|</td>
<td><input name=l_weight class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Weight').qq|</td>
</tr>
<tr>
<td><input name=l_image class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Image').qq|</td>
<td><input name=l_drawing class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Drawing').qq|</td>
<td><input name=l_microfiche class=checkbox type=checkbox value=Y>&nbsp;|.$locale->text('Microfiche').qq|</td>
</tr>
<tr>
<td><input name=l_subtotal class=checkbox type=checkbox value=Y>&nbsp;|.$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=password value=$form->{password}>
 
<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";
}
}
 
$callback = "$form->{script}?action=generate_report&path=$form->{path}&login=$form->{login}&password=$form->{password}&searchitems=$form->{searchitems}&itemstatus=$form->{itemstatus}&bom=$form->{bom}&l_linetotal=$form->{l_linetotal}&title=".$form->escape($form->{title},1);
 
IC->all_parts(\%myconfig, \%$form);
 
 
if ($form->{itemstatus} eq 'active') {
$option .= $locale->text('Active')." : ";
}
if ($form->{itemstatus} eq 'obsolete') {
$option .= $locale->text('Obsolete')." : ";
}
if ($form->{itemstatus} eq 'orphaned') {
$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";
}
if ($form->{onorder}) {
$form->{l_ordnumber} = "Y";
$callback .= "&onorder=$form->{onorder}";
$option .= $locale->text('On Order')." : ";
}
if ($form->{ordered}) {
$form->{l_ordnumber} = "Y";
$callback .= "&ordered=$form->{ordered}";
$option .= $locale->text('Ordered')." : ";
}
if ($form->{bought}) {
$form->{l_invnumber} = "Y";
$callback .= "&bought=$form->{bought}";
$option .= $locale->text('Bought')." : ";
}
if ($form->{sold}) {
$form->{l_invnumber} = "Y";
$callback .= "&sold=$form->{sold}";
$option .= $locale->text('Sold')." : ";
}
if ($form->{bought} || $form->{sold} || $form->{onorder} || $form->{ordered}) {
$form->{l_lastcost} = "";
if ($form->{transdatefrom}) {
$callback .= "&transdatefrom=$form->{transdatefrom}";
$option .= "\n<br>".$locale->text('From')."&nbsp;".$locale->date(\%myconfig, $form->{transdatefrom}, 1);
}
if ($form->{transdateto}) {
$callback .= "&transdateto=$form->{transdateto}";
$option .= "\n<br>".$locale->text('to')."&nbsp;".$locale->date(\%myconfig, $form->{transdateto}, 1);
}
}
$option .= "<br>";
if ($form->{partnumber}) {
$callback .= "&partnumber=$form->{partnumber}";
$option .= $locale->text('Number').qq| : $form->{partnumber}<br>|;
}
if ($form->{description}) {
$callback .= "&description=$form->{description}";
$option .= $locale->text('Description').qq| : $form->{description}<br>|;
}
if ($form->{make}) {
$callback .= "&make=$form->{make}";
$option .= $locale->text('Make').qq| : $form->{make}<br>|;
}
if ($form->{model}) {
$callback .= "&model=$form->{model}";
$option .= $locale->text('Model').qq| : $form->{model}<br>|;
}
if ($form->{drawing}) {
$callback .= "&drawing=$form->{drawing}";
$option .= $locale->text('Drawing').qq| : $form->{drawing}<br>|;
}
if ($form->{microfiche}) {
$callback .= "&microfiche=$form->{microfiche}";
$option .= $locale->text('Microfiche').qq| : $form->{microfiche}<br>|;
}
 
@columns = $form->sort_columns(qw(partnumber description bin onhand rop unit listprice linetotallistprice sellprice linetotalsellprice lastcost linetotallastcost priceupdate weight image drawing microfiche invnumber ordnumber));
 
if ($form->{l_linetotal}) {
$form->{l_onhand} = "Y";
$form->{l_linetotalsellprice} = "Y" if $form->{l_sellprice};
if ($form->{l_lastcost}) {
$form->{l_linetotallastcost} = "Y";
if (($form->{searchitems} eq 'assembly') && !$form->{bom}) {
$form->{l_linetotallastcost} = "";
}
}
$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->{l_onhand} = "Y";
} else {
$form->{l_linetotalsellprice} = "";
$form->{l_linetotallastcost} = "";
}
}
 
$form->{l_lastcost} = "" if ($form->{searchitems} eq 'assembly' && !$form->{bom});
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";
}
$column_header{partnumber} = qq|<th nowrap><a class=listheading href=$callback&sort=partnumber>|.$locale->text('Number').qq|</a></th>|;
$column_header{description} = qq|<th nowrap><a class=listheading href=$callback&sort=description>|.$locale->text('Description').qq|</a></th>|;
$column_header{bin} = qq|<th><a class=listheading href=$callback&sort=bin>|.$locale->text('Bin').qq|</a></th>|;
$column_header{priceupdate} = qq|<th nowrap><a class=listheading href=$callback&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('Last 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{invnumber} = qq|<th nowrap><a class=listheading href=$callback&sort=invnumber>|.$locale->text('Invoice Number').qq|</a></th>|;
$column_header{ordnumber} = qq|<th nowrap><a class=listheading href=$callback&sort=ordnumber>|.$locale->text('Order Number').qq|</a></th>|;
$column_header{sellprice} = qq|<th class=listheading nowrap>|.$locale->text('Sell Price').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{image} = qq|<th class=listheading nowrap>|.$locale->text('Image').qq|</a></th>|;
$column_header{drawing} = qq|<th nowrap><a class=listheading href=$callback&sort=drawing>|.$locale->text('Drawing').qq|</a></th>|;
$column_header{microfiche} = qq|<th nowrap><a class=listheading href=$callback&sort=microfiche>|.$locale->text('Microfiche').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><td colspan=$colspan>$option</td></tr>
 
<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') {
if ($sameitem ne $ref->{$form->{sort}}) {
&parts_subtotal;
$sameitem = $ref->{$form->{sort}};
}
}
 
$ref->{exchangerate} = 1 unless $ref->{exchangerate};
$ref->{sellprice} *= $ref->{exchangerate};
$ref->{listprice} *= $ref->{exchangerate};
$ref->{lastcost} *= $ref->{exchangerate};
$align = "left";
$onhand = $ref->{onhand};
if ($ref->{assemblyitem}) {
$align = "right";
$onhand = 0 if ($form->{sold});
}
 
$column_data{partnumber} = "<td align=$align><a href=$form->{script}?action=edit&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{partnumber}&nbsp;</a></td>";
$column_data{description} = "<td>$ref->{description}&nbsp;</td>";
$column_data{onhand} = "<td align=right>".$form->format_amount(\%myconfig, $onhand, '', "&nbsp;")."</td>";
$column_data{sellprice} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{sellprice}, 2, "&nbsp;") . "</td>";
$column_data{listprice} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{listprice}, 2, "&nbsp;") . "</td>";
$column_data{lastcost} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{lastcost}, 2, "&nbsp;") . "</td>";
$column_data{linetotalsellprice} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{onhand} * $ref->{sellprice}, 2, "&nbsp;")."</td>";
$column_data{linetotallastcost} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{onhand} * $ref->{lastcost}, 2, "&nbsp;")."</td>";
$column_data{linetotallistprice} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{onhand} * $ref->{listprice}, 2, "&nbsp;")."</td>";
$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}, '', "&nbsp;")."</td>";
$column_data{weight} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{weight}, '', "&nbsp;")."</td>";
$column_data{unit} = "<td>$ref->{unit}&nbsp;</td>";
$column_data{bin} = "<td>$ref->{bin}&nbsp;</td>";
$column_data{priceupdate} = "<td>$ref->{priceupdate}&nbsp;</td>";
$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}&password=$form->{password}&callback=$callback>$ref->{invnumber}&nbsp;</a></td>" : "<td>$ref->{invnumber}&nbsp;</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}&password=$form->{password}&callback=$callback>$ref->{ordnumber}&nbsp;</a></td>" : "<td>$ref->{ordnumber}&nbsp;</td>";
$column_data{image} = ($ref->{image}) ? "<td><a href=$ref->{image}><img src=$ref->{image} height=32 border=0></a></td>" : "<td>&nbsp;</td>";
$column_data{drawing} = ($ref->{drawing}) ? "<td><a href=$ref->{drawing}>$ref->{drawing}</a></td>" : "<td>&nbsp;</td>";
$column_data{microfiche} = ($ref->{microfiche}) ? "<td><a href=$ref->{microfiche}>$ref->{microfiche}</a></td>" : "<td>&nbsp;</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>&nbsp;</td>" } @column_index;
$column_data{linetotalsellprice} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalsellprice, 2, "&nbsp;")."</th>";
$column_data{linetotallastcost} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totallastcost, 2, "&nbsp;")."</th>";
$column_data{linetotallistprice} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totallistprice, 2, "&nbsp;")."</th>";
 
print "<tr class=listtotal>";
 
map { print "\n$column_data{$_}" } @column_index;
 
print qq|</tr>
|;
}
 
print qq|
<tr><td colspan=$colspan><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=password value=$form->{password}>
 
<input class=submit type=submit name=action value="|.$locale->text('Add').qq|">
 
</form>
 
</body>
</html>
|;
 
}
 
 
 
sub parts_subtotal {
 
map { $column_data{$_} = "<td>&nbsp;</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, '', "&nbsp;")."</th>";
$column_data{sellprice} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalsellprice, 2, "&nbsp;")."</th>";
$column_data{listprice} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotallistprice, 2, "&nbsp;")."</th>";
$column_data{lastcost} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotallastcost, 2, "&nbsp;")."</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 {
 
IC->get_part(\%myconfig, \%$form);
 
$form->{title} = $locale->text('Edit '.ucfirst $form->{item});
 
&link_part;
&display_form;
}
 
 
 
sub link_part {
 
IC->create_links("IC", \%myconfig, \%$form);
# parts and assemblies have the same links
$item = $form->{item};
if ($form->{item} eq 'assembly') {
$item = 'part';
}
 
# 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} eq "part") || ($form->{item} eq "assembly")) {
$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};
 
}
 
 
 
sub form_header {
 
($dec) = ($form->{sellprice} =~ /\.(\d+)/);
$dec = length $dec;
my $decimalplaces = ($dec > 2) ? $dec : 2;
 
$form->{listprice} = $form->format_amount(\%myconfig, $form->{listprice}, $decimalplaces);
$form->{sellprice} = $form->format_amount(\%myconfig, $form->{sellprice}, $decimalplaces);
 
($dec) = ($form->{lastcost} =~ /\.(\d+)/);
$dec = length $dec;
my $decimalplaces = ($dec > 2) ? $dec : 2;
 
$form->{lastcost} = $form->format_amount(\%myconfig, $form->{lastcost}, $decimalplaces);
 
foreach $item (qw(partnumber description unit notes)) {
$form->{$item} =~ s/"/&quot;/g;
}
 
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)) {
$form->{"select$item"} =~ s/ selected//;
$form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
}
 
# tax fields
foreach $item (split / /, $form->{taxaccounts}) {
$tax .= qq|
<input class=checkbox type=checkbox name="IC_tax_$item" value=1 $form->{"IC_tax_$item"}>&nbsp;<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};
$form->{bom} = "checked" if $form->{bom};
 
$lastcost = qq|
<tr>
<th align="right" nowrap="true">|.$locale->text('Last Cost').qq|</th>
<td><input name=lastcost size=11 value=$form->{lastcost}></td>
</tr>
|;
if ($form->{item} eq "part") {
 
$linkaccounts = qq|
<tr>
<th width="1%" 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('Sales').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->format_amount(\%myconfig, $form->{weight}).qq|>
</td>
<th>
&nbsp;
$form->{weightunit}
<input type=hidden name=weightunit value=$form->{weightunit}>
</th>
</tr>
</table>
</td>
</tr>
|;
}
 
 
if ($form->{item} eq "assembly") {
$lastcost = "";
$linkaccounts = qq|
<tr>
<th width="1%" align=right>|.$locale->text('Sales').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>
&nbsp;|.$form->format_amount(\%myconfig, $form->{weight}).qq|
<input type=hidden name=weight value=$form->{weight}>
</td>
<th>
&nbsp;
$form->{weightunit}
<input type=hidden name=weightunit value=$form->{weightunit}>
</th>
</tr>
</table>
</td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('BOM').qq|</th>
<td><input name=bom type=checkbox class=checkbox value=1 $form->{bom}></td>
</tr>
|;
}
 
if ($form->{item} eq "service") {
$linkaccounts = qq|
<tr>
<th width="1%" 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>
|;
}
 
}
 
 
unless ($form->{item} eq 'service') {
$color = ($form->{onhand} > 0) ? "green" : "red";
$rop = qq|
<tr>
<th align="right" nowrap>|.$locale->text('On Hand').qq|</th>
<th align=left nowrap>&nbsp;|.$form->format_amount(\%myconfig, $form->{onhand}).qq|</th>
</tr>
<tr>
<th align="right" nowrap="true">|.$locale->text('ROP').qq|</th>
<td><input name=rop size=10 value=|.$form->format_amount(\%myconfig, $form->{rop}).qq|></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>
<tr>
<th width=1% align=right nowrap>|.$locale->text('Image').qq|</th>
<td width=70%><input name=image size=40 value="$form->{image}"></td>
<th width=1% align=right nowrap>|.$locale->text('Microfiche').qq|</th>
<td width=30%><input name=microfiche size=20 value="$form->{microfiche}"></td>
</tr>
<tr>
<th width=1% align=right nowrap>|.$locale->text('Drawing').qq|</th>
<td width=70%><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('Add Part')
# type=submit $locale->text('Add Service')
# type=submit $locale->text('Add Assembly')
 
# 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}>
 
<input name=id type=hidden value=$form->{id}>
<input name=item type=hidden value=$form->{item}>
<input name=title type=hidden value="$form->{title}">
<input name=makemodel type=hidden value="$form->{makemodel}">
<input name=alternate type=hidden value="$form->{alternate}">
<input name=onhand type=hidden value=$form->{onhand}>
<input name=taxaccounts type=hidden value="$form->{taxaccounts}">
<input name=rowcount type=hidden value=$form->{rowcount}>
 
<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 width=30%>|.$locale->text('Number').qq|</th>
<th align=left width=70%>|.$locale->text('Description').qq|</th>
</tr>
<tr valign=top>
<td><input name=partnumber value="$form->{partnumber}" size=20></td>
<td>$description</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>
<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
<tr>
<th align="right" nowrap="true">|.$locale->text('Unit').qq|</th>
<td><input name=unit size=5 maxsize=5 value="$form->{unit}"></td>
</tr>
$weight
$rop
$bin
$obsolete
</table>
</td>
</tr>
</table>
</td>
</tr>
$imagelinks
|;
}
 
 
sub form_footer {
 
if ($form->{item} eq "assembly") {
 
print qq|
<tr>
<td>
<table width="100%">
<tr>
<th colspan=2 align=right>|.$locale->text('Total').qq|&nbsp;</th>
<th width="1%" align=right>|.$form->format_amount(\%myconfig, $form->{assemblytotal}, 2).qq|</th>
</tr>
</table>
</td>
</tr>
<input type=hidden name=assembly_rows value=$form->{assembly_rows}>
|;
}
 
print qq|
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
<input type=hidden name=callback value="$form->{callback}">
<input type=hidden name=previous_form value="$form->{previous_form}">
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
 
<br>
<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
|;
 
unless ($form->{item} eq "service") {
print qq|
<input type=hidden name=makemodel_rows value=$form->{makemodel_rows}>
|;
}
 
print 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('Delete').qq|">|;
}
 
print qq|
 
</form>
 
</body>
</html>
|;
 
}
 
 
 
sub makemodel_row {
my ($numrows) = @_;
 
$form->{"make_$i"} =~ s/"/&quot;/g;
$form->{"model_$i"} =~ s/"/&quot;/g;
 
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 width=50%><input name="make_$i" size=30 value="$form->{"make_$i"}"></td>
<td width=50%><input name="model_$i" size=30 value="$form->{"model_$i"}"></td>
</tr>
|;
}
 
print qq|
</table>
</td>
</tr>
|;
 
}
 
 
sub assembly_row {
my ($numrows) = @_;
 
@column_index = qw(runningnumber qty unit partnumber description total);
if ($form->{previous_form}) {
$nochange = 1;
@column_index = qw(qty unit partnumber description total);
} else {
# change callback
$form->{old_callback} = $form->{callback};
$callback = $form->{callback};
$form->{callback} = "$form->{script}?action=display_form";
 
# delete action
delete $form->{action};
 
$previous_form = "";
# save form variables in a previous_form variable
foreach $key (sort keys %$form) {
# escape ampersands
$form->{$key} =~ s/&/%26/g;
$previous_form .= qq|$key=$form->{$key}&|;
}
chop $previous_form;
$previous_form = $form->escape($form->escape($previous_form, 1));
$form->{callback} = $callback;
$form->{assemblytotal} = 0;
$form->{weight} = 0;
 
}
 
$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{total} = qq|<th align=right nowrap>|.$locale->text('Extended').qq|</th>|;
print qq|
<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"} =~ s/"/&quot;/g;
 
$linetotal = $form->round_amount($form->{"sellprice_$i"} * $form->{"qty_$i"}, 2);
$form->{assemblytotal} += $linetotal;
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
 
$linetotal = $form->format_amount(\%myconfig, $linetotal, 2);
 
if (($i >= 1) && ($i == $numrows)) {
 
if ($nochange) {
map { $column_data{$_} = qq|<td></td>| } qw(qty unit partnumber description);
} else {
$column_data{runningnumber} = qq|<td></td>|;
$column_data{qty} = qq|<td width=10%><input name="qty_$i" size=5 value="$form->{"qty_$i"}"></td>|;
$column_data{unit} = qq|<td></td>|;
$column_data{partnumber} = qq|<td width=20%><input name="partnumber_$i" size=20 value="$form->{"partnumber_$i"}"></td>|;
$column_data{description} = qq|<td width=50%><input name="description_$i" size=40 value="$form->{"description_$i"}"></td>|;
}
 
} else {
if ($form->{previous_form}) {
$column_data{partnumber} = qq|<td><input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}">$form->{"partnumber_$i"}</td>|;
$column_data{qty} = qq|<td align=right><input type=hidden name="qty_$i" value="$form->{"qty_$i"}">$form->{"qty_$i"}</td>|;
} else {
$href = qq|$form->{script}?action=edit&id=$form->{"id_$i"}&path=$form->{path}&login=$form->{login}&password=$form->{password}&rowcount=$i&previous_form=$previous_form|;
$column_data{partnumber} = qq|<td><input type=hidden name="partnumber_$i" value="$form->{"partnumber_$i"}"><a href=$href>$form->{"partnumber_$i"}</a></td>|;
$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>|;
}
 
$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{total} = qq|<td align=right>$linetotal</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="weight_$i" value=$form->{"weight_$i"}>
|;
}
 
print qq|
</table>
</td>
</tr>
|;
}
 
 
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 "")) {
&check_form;
} else {
 
IC->assembly_item(\%myconfig, \%$form);
 
$rows = scalar @{ $form->{item_list} };
if ($rows) {
$form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
if ($rows > 1) {
$form->{makemodel_rows}--;
&select_item;
exit;
} else {
map { $form->{item_list}[$i]{$_} =~ s/"/&quot;/g } qw(partnumber description);
map { $form->{"${_}_$i"} = $form->{item_list}[0]{$_} } keys %{ $form->{item_list}[0] };
$form->{"runningnumber_$i"} = $form->{assembly_rows};
$form->{assembly_rows}++;
 
&check_form;
 
}
 
} else {
 
$form->{rowcount} = $i;
$form->{assembly_rows}++;
&new_item;
 
}
}
}
if ($form->{item} eq "part") {
&check_form;
}
 
if ($form->{item} eq 'service') {
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(sellprice listprice);
&form_header;
&form_footer;
}
 
}
 
 
sub save {
 
# check if there is a part number
$form->isblank("partnumber", $locale->text(ucfirst $form->{item}." Number missing!"));
 
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!')
# $locale->text('Part Number missing!')
# $locale->text('Service Number missing!')
# $locale->text('Assembly Number missing!')
 
 
# save part
$rc = IC->save(\%myconfig, \%$form);
 
$parts_id = $form->{id};
# load previous variables
if ($form->{previous_form}) {
# save the new form variables before splitting previous_form
map { $newform{$_} = $form->{$_} } keys %$form;
 
$previous_form = $form->unescape($form->{previous_form});
 
# don't trample on previous variables
map { delete $form->{$_} } keys %newform;
 
# now take it apart and restore original values
foreach $item (split /&/, $previous_form) {
($key, $value) = split /=/, $item, 2;
$value =~ s/%26/&/g;
$form->{$key} = $value;
}
 
if ($form->{item} eq 'assembly') {
 
# undo number formatting
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(weight listprice sellprice rop);
 
$form->{assembly_rows}--;
$i = $newform{rowcount};
$form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
 
$form->{sellprice} -= $form->{"sellprice_$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 inventory_accno income_accno expense_accno);
$form->{sellprice} += $form->{"sellprice_$i"} * $form->{"qty_$i"};
$form->{weight} += $form->{"weight_$i"} * $form->{"qty_$i"};
 
} 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);
$form->{"sellprice_$i"} = $newform{lastcost} if ($form->{vendor_id});
 
if ($form->{exchangerate} != 0) {
$form->{"sellprice_$i"} /= $form->{exchangerate};
}
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 delete { &{ "delete_$form->{item}" } };
 
sub delete_part {
 
if ($form->{previous_form}) {
$form->error($locale->text("Cannot delete item which is part of an assembly!"));
}
if ($form->{onhand}) {
$form->error($locale->text("Inventory quantity must be zero!"));
}
&delete_item;
 
}
 
 
sub delete_service {
 
if ($form->{previous_form}) {
$form->error($locale->text("Cannot delete item which is part of an assembly!"));
}
&delete_item;
}
 
 
sub delete_assembly {
 
if ($form->{previous_form}) {
$form->error($locale->text("Cannot delete item which is part of an assembly!"));
}
if ($form->{onhand}) {
$form->error($locale->text("Inventory quantity must be zero!"));
}
&delete_item;
 
}
 
 
sub delete_item {
 
$rc = IC->delete(\%myconfig, \%$form);
if ($rc == -2) {
$form->error($locale->text("Cannot delete item already invoiced!"));
}
if ($rc == -3) {
$form->error($locale->text("Cannot delete item which is part of an assembly!"));
}
if ($rc == -4) {
$form->error($locale->text("Cannot delete item on order!"));
}
# 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 width="100%">
<tr>
<th width="1%" align="right" nowrap="true">|.$locale->text('Number').qq|</th>
<td width="40%"><input name=partnumber size=20></td>
<td>&nbsp;</td>
</tr>
<tr>
<th align="right" nowrap="true">|.$locale->text('Description').qq|</th>
<td colspan="2"><input name=description size=40></td>
</tr>
</table>
</td>
</tr>
<tr><td><hr size=3 noshade></td></tr>
</table>
 
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
 
<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);
 
$column_header{partnumber} = qq|<th class=listheading>|.$locale->text('Number').qq|</th>|;
$column_header{description} = qq|<th class=listheading>|.$locale->text('Description').qq|</th>|;
$column_header{bin} = qq|<th class=listheading>|.$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 = (qw(partnumber description bin onhand rop stock));
$form->{title} = $locale->text('Stock Assembly');
 
$form->{callback} = "$form->{script}?action=stock_assembly&path=$form->{path}&login=$form->{login}&password=$form->{password}";
$form->header;
$colspan = $#column_index + 1;
 
print qq|
<body>
 
<form method=post action=$form->{script}>
 
<table width=100%>
<tr><th class=listtop colspan=$colspan>$form->{title}</th></tr>
<tr size=5></tr>
<tr class=listheading>|;
 
map { print "\n$column_header{$_}" } @column_index;
 
print qq|
</tr>
|;
 
$i = 1;
foreach $ref (@{ $form->{assembly_items} }) {
 
map { $ref->{$_} =~ s/"/&quot;/g } qw(partnumber description);
# figure out how many to stock
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $ref->{rop} - $ref->{onhand});
 
$column_data{partnumber} = qq|<td width=20%>$ref->{partnumber}</td>|;
$column_data{description} = qq|<td width=50%>$ref->{description}&nbsp;</td>|;
$column_data{bin} = qq|<td>$ref->{bin}&nbsp;</td>|;
$column_data{onhand} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{onhand}, '', "&nbsp;").qq|</td>|;
$column_data{rop} = qq|<td align=right>|.$form->format_amount(\%myconfig, $ref->{rop}, '', "&nbsp;").qq|</td>|;
$column_data{stock} = qq|<td width=10%><input name="qty_$i" size=10 value=$form->{"qty_$i"}></td>|;
 
$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|
<tr>
<td colspan=6><hr size=3 noshade>
</tr>
</table>
<input name=rowcount type=hidden value="$i">
 
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
 
<input 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 {
 
$form->redirect($locale->text('Assemblies restocked!')) if (IC->restock_assemblies(\%myconfig, \%$form));
$form->error($locale->text('Cannot stock assemblies!'));
}
 
 
sub continue { &{ $form->{nextsub} } };
 
 
/tags/v_2_0_6/bin/mozilla/am.pl
New file
0,0 → 1,1051
#=====================================================================
# SQL-Ledger Accounting
# Copyright (c) 1998-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.
#======================================================================
#
# administration
#
#======================================================================
 
 
use SL::AM;
use SL::CA;
use SL::Form;
use SL::User;
 
 
1;
# end of main
 
 
 
sub add {
 
$form->{title} = "Add";
$form->{charttype} = "A";
$form->{callback} = "$form->{script}?action=list&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback};
 
&form_header;
&form_footer;
}
 
 
sub edit {
$form->{title} = "Edit";
 
# if it is a template
if ($form->{file}) {
$form->{type} = "template";
&edit_template;
exit;
}
 
AM->get_account(\%myconfig, \%$form);
foreach my $item (split(/:/, $form->{link})) {
$form->{$item} = "checked";
}
 
&form_header;
&form_footer;
 
}
 
 
sub form_header {
 
$form->{title} = $locale->text("$form->{title} Account");
$checked{$form->{charttype}} = "checked";
$checked{"$form->{category}_"} = "checked";
$checked{CT_tax} = ($form->{CT_tax}) ? "" : "checked";
$form->{description} =~ s/"/&quot;/g;
 
# 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}>
 
<input type=hidden name=amount value=$form->{amount}>
 
<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_}>&nbsp;|.$locale->text('Asset').qq|\n<br>
<input name=category type=radio class=radio value=L $checked{L_}>&nbsp;|.$locale->text('Liability').qq|\n<br>
<input name=category type=radio class=radio value=Q $checked{Q_}>&nbsp;|.$locale->text('Equity').qq|\n<br>
<input name=category type=radio class=radio value=I $checked{I_}>&nbsp;|.$locale->text('Income').qq|\n<br>
<input name=category type=radio class=radio value=E $checked{E_}>&nbsp;|.$locale->text('Expense')
.qq|</td>
<td>
<input name=charttype type=radio class=radio value="H" $checked{H}>&nbsp;|.$locale->text('Heading').qq|<br>
<input name=charttype type=radio class=radio value="A" $checked{A}>&nbsp;|.$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}>&nbsp;|.$locale->text('AR')
.qq|&nbsp;<input name=AP type=checkbox class=checkbox value=AP $form->{AP}>&nbsp;|.$locale->text('AP')
.qq|&nbsp;<input name=IC type=checkbox class=checkbox value=IC $form->{IC}>&nbsp;|.$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>
</tr>
<tr>
<td>
<input name=AR_amount type=checkbox class=checkbox value=AR_amount $form->{AR_amount}>&nbsp;|.$locale->text('Income').qq|\n<br>
<input name=AR_paid type=checkbox class=checkbox value=AR_paid $form->{AR_paid}>&nbsp;|.$locale->text('Payment').qq|\n<br>
<input name=AR_tax type=checkbox class=checkbox value=AR_tax $form->{AR_tax}>&nbsp;|.$locale->text('Tax')
.qq|
</td>
<td>
<input name=AP_amount type=checkbox class=checkbox value=AP_amount $form->{AP_amount}>&nbsp;|.$locale->text('Expense/Asset').qq|\n<br>
<input name=AP_paid type=checkbox class=checkbox value=AP_paid $form->{AP_paid}>&nbsp;|.$locale->text('Payment').qq|\n<br>
<input name=AP_tax type=checkbox class=checkbox value=AP_tax $form->{AP_tax}>&nbsp;|.$locale->text('Tax')
.qq|
</td>
<td>
<input name=IC_sale type=checkbox class=checkbox value=IC_sale $form->{IC_sale}>&nbsp;|.$locale->text('Sales').qq|\n<br>
<input name=IC_cogs type=checkbox class=checkbox value=IC_cogs $form->{IC_cogs}>&nbsp;|.$locale->text('COGS').qq|\n<br>
<input name=IC_taxpart type=checkbox class=checkbox value=IC_taxpart $form->{IC_taxpart}>&nbsp;|.$locale->text('Tax')
.qq|
</td>
<td>
<input name=IC_income type=checkbox class=checkbox value=IC_income $form->{IC_income}>&nbsp;|.$locale->text('Income').qq|\n<br>
<input name=IC_expense type=checkbox class=checkbox value=IC_expense $form->{IC_expense}>&nbsp;|.$locale->text('Expense').qq|\n<br>
<input name=IC_taxservice type=checkbox class=checkbox value=IC_taxservice $form->{IC_taxservice}>&nbsp;|.$locale->text('Tax')
.qq|
</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}>&nbsp;|.$locale->text('Yes').qq|&nbsp;
<input name=CT_tax type=radio class=radio value="" $checked{CT_tax}>&nbsp;|.$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=password value=$form->{password}>
 
<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('Delete').qq|">|;
}
 
print qq|
</form>
 
</body>
</html>
|;
 
}
 
 
sub save { &{ "save_$form->{type}" } };
sub save_account {
 
$form->isblank("accno", $locale->text('Account Number missing!'));
$form->isblank("category", $locale->text('Account Type missing!'));
$form->redirect($locale->text('Account saved!')) if (AM->save_account(\%myconfig, \%$form));
$form->error($locale->text('Cannot save account!'));
 
}
 
 
sub list {
 
CA->all_accounts(\%myconfig, \%$form);
 
$form->{title} = $locale->text('Chart of Accounts');
# construct callback
$callback = "$form->{script}?action=list&path=$form->{path}&login=$form->{login}&password=$form->{password}";
 
@column_index = qw(accno gifi_accno description debit credit link);
 
$column_header{accno} = qq|<th class=listheading>|.$locale->text('Account').qq|</a></th>|;
$column_header{gifi_accno} = qq|<th class=listheading>|.$locale->text('GIFI').qq|</a></th>|;
$column_header{description} = qq|<th class=listheading>|.$locale->text('Description').qq|</a></th>|;
$column_header{debit} = qq|<th class=listheading>|.$locale->text('Debit').qq|</a></th>|;
$column_header{credit} = qq|<th class=listheading>|.$locale->text('Credit').qq|</a></th>|;
$column_header{link} = qq|<th class=listheading>|.$locale->text('Link').qq|</a></th>|;
 
 
$form->header;
$colspan = $#column_index + 1;
 
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{$_}\n" } @column_index;
print qq|
</tr>
|;
 
# escape callback
$callback = $form->escape($callback);
foreach $ca (@{ $form->{CA} }) {
$ca->{debit} = "&nbsp;";
$ca->{credit} = "&nbsp;";
 
# needed if we can delete an account
$amount = 0;
 
if ($ca->{amount} > 0) {
$amount = $ca->{amount};
$ca->{credit} = $form->format_amount(\%myconfig, $ca->{amount}, 2, "&nbsp;");
}
if ($ca->{amount} < 0) {
$amount = -$ca->{amount};
$ca->{debit} = $form->format_amount(\%myconfig, -$ca->{amount}, 2, "&nbsp;");
}
 
$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&id=$ca->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{accno}</a></th>|;
$column_data{gifi_accno} = qq|<th><a class=listheading href=$form->{script}?action=edit_gifi&accno=$ca->{gifi_accno}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ca->{gifi_accno}</a>&nbsp;</th>|;
$column_data{description} = qq|<th class=listheading>$ca->{description}&nbsp;</th>|;
$column_data{debit} = qq|<th>&nbsp;</th>|;
$column_data{credit} = qq| <th>&nbsp;</th>|;
$column_data{link} = qq|<th>&nbsp;</th>|;
 
} else {
$i++; $i %= 2;
print qq|
<tr valign=top class=listrow$i>|;
$column_data{accno} = qq|<td><a href=$form->{script}?action=edit&id=$ca->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback&amount=$amount>$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}&password=$form->{password}&callback=$callback&amount=$amount>$ca->{gifi_accno}</a>&nbsp;</td>|;
$column_data{description} = qq|<td>$ca->{description}&nbsp;</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}&nbsp;</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 { &{ "delete_$form->{type}" } };
 
sub delete_account {
 
$form->{title} = $locale->text('Delete Account');
 
if ($form->{amount} != 0) {
$form->error($locale->text('Transactions exist; cannot 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} } = (accno, description);
$form->{table} = "gifi";
$form->{sortorder} = "accno";
AM->gifi_accounts(\%myconfig, \%$form);
 
$form->{title} = $locale->text('GIFI');
# construct callback
$callback = "$form->{script}?action=list_gifi&path=$form->{path}&login=$form->{login}&password=$form->{password}";
 
@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 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{$_}\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}&password=$form->{password}&callback=$callback>$ca->{accno}</td>|;
$column_data{description} = qq|<td>$ca->{description}&nbsp;</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}&password=$form->{password}";
 
$form->{coa} = 1;
&gifi_header;
&gifi_footer;
}
 
 
sub edit_gifi {
$form->{title} = "Edit";
 
AM->get_gifi(\%myconfig, \%$form);
&gifi_header;
&gifi_footer;
}
 
 
sub gifi_header {
 
$form->{title} = $locale->text("$form->{title} GIFI");
# $locale->text('Add GIFI')
# $locale->text('Edit GIFI')
 
$form->{description} =~ s/"/&quot;/g;
 
$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=password value=$form->{password}>
 
<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}) {
print qq|<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|;
}
}
 
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";
&form_header;
&form_footer;
}
 
 
sub delete_gifi {
 
AM->delete_gifi(\%myconfig, \%$form);
$form->redirect($locale->text('GIFI 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 type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
 
<input name=action type=submit class=submit value="|.$locale->text('Edit').qq|">
</form>
 
 
</body>
</html>
|;
 
}
 
 
sub edit_template {
 
AM->load_template(\%$form);
 
$form->{title} = $locale->text('Edit Template');
# convert &nbsp to &amp;nbsp;
$form->{body} =~ s/&nbsp;/&amp;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=password value=$form->{password}>
 
<input name=callback type=hidden value="$form->{script}?action=display_form&file=$form->{file}&path=$form->{path}&login=$form->{login}&password=$form->{password}">
 
<textarea name=body rows=25 cols=70>
$form->{body}
</textarea>
 
<br>
<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">
 
</form>
 
 
</body>
</html>
|;
 
}
 
 
sub save_template {
 
AM->save_template(\%$form);
$form->redirect($locale->text('Template saved!'));
}
 
 
sub config {
 
# get defaults for account numbers and last numbers
AM->defaultaccounts(\%myconfig, \%$form);
 
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)) {
$numberformat .= ($item eq $myconfig{numberformat}) ? "<option selected>$item\n" : "<option>$item\n";
}
 
foreach $item (qw(name company address signature shippingpoint)) {
$myconfig{$item} =~ s/"/&quot;/g;
}
 
foreach $item (qw(address signature)) {
$myconfig{$item} =~ s/\\n/\r\n/g;
}
 
%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 = "<option>English\n$countrycodes";
 
foreach $key (keys %{ $form->{IC} }) {
foreach $accno (sort keys %{ $form->{IC}{$key} }) {
$myconfig{$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('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>
 
<table width=100%>
<tr><th class=listtop>$form->{title}</th></tr>
<tr>
<td>
<table>
<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('Password').qq|</th>
<td><input type=password name=password size=10 value=$myconfig{password}></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=50>$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=30 value="$myconfig{company}"></td>
</tr>
<tr valign=top>
<th align=right>|.$locale->text('Address').qq|</th>
<td><textarea name=address rows=4 cols=50>$myconfig{address}</textarea></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('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('Stylesheet').qq|</th>
<td><input name=stylesheet size=20 value="$myconfig{stylesheet}"></td>
</tr>
<input name=printer type=hidden value="$myconfig{printer}">
<tr>
<th align=right>|.$locale->text('Ship via').qq|</th>
<td><input name=shippingpoint size=25 value="$myconfig{shippingpoint}"></td>
</tr>
<tr class=listheading>
<th colspan=2>&nbsp;</th>
</tr>
<tr>
<th align=right>|.$locale->text('Business Number').qq|</th>
<td><input name=businessnumber size=25 value="$myconfig{businessnumber}"></td>
</tr>
<tr>
<td colspan=2>
<table width=100%>
<tr>
<th align=right>|.$locale->text('Year End').qq| (mm/dd)</th>
<td><input name=yearend size=5 maxsize=5 value=$form->{defaults}{yearend}></td>
<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 class=listheading>
<th class=listheading colspan=2>|.$locale->text('Last Numbers & Default Accounts').qq|</th>
</tr>
<tr>
<td colspan=2>
<table width=100%>
<tr>
<th width=1% align=right nowrap>|.$locale->text('Inventory Account').qq|</th>
<td><select name=inventory_accno>$myconfig{IC}</select></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Income Account').qq|</th>
<td><select name=income_accno>$myconfig{IC_income}</select></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Expense Account').qq|</th>
<td><select name=expense_accno>$myconfig{IC_expense}</select></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Foreign Exchange Gain').qq|</th>
<td><select name=fxgain_accno>$myconfig{FX_gain}</select></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Foreign Exchange Loss').qq|</th>
<td><select name=fxloss_accno>$myconfig{FX_loss}</select></td>
</tr>
<tr>
<td colspan=2>|.$locale->text('Enter up to 3 letters separated by a colon (i.e CAD:USD:EUR) for your native and foreign currencies').qq|<br><input name=curr size=40 value="$form->{defaults}{curr}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Last Invoice Number').qq|</th>
<td><input name=invnumber size=10 value=$form->{defaults}{invnumber}></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Last Sales Order Number').qq|</th>
<td><input name=sonumber size=10 value=$form->{defaults}{sonumber}></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Last Purchase Order Number').qq|</th>
<td><input name=ponumber size=10 value=$form->{defaults}{ponumber}></td>
</tr>
</table>
</td>
</tr>
<tr class=listheading>
<th class=listheading colspan=2>|.$locale->text('Tax Accounts').qq|</th>
</tr>
<tr>
<td colspan=2>
<table>
<tr>
<th>&nbsp;</th>
<th>|.$locale->text('Rate').qq| (%)</th>
<th>|.$locale->text('Number').qq|</th>
</tr>
|;
 
foreach $accno (sort keys %{ $form->{taxrates} }) {
print qq|
<tr>
<th align=right>$form->{taxrates}{$accno}{description}</th>
<td><input name=$form->{taxrates}{$accno}{id} size=6 value=$form->{taxrates}{$accno}{rate}></td>
<td><input name="taxnumber_$form->{taxrates}{$accno}{id}" value="$form->{taxrates}{$accno}{taxnumber}"></td>
</tr>
|;
$form->{taxaccounts} .= "$form->{taxrates}{$accno}{id} ";
}
 
chop $form->{taxaccounts};
 
print qq|
<input name=taxaccounts type=hidden value="$form->{taxaccounts}">
 
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
 
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
 
<br>
<input type=submit class=submit name=action value="|.$locale->text('Save').qq|">
</form>
 
</body>
</html>
|;
 
}
 
 
sub save_preferences {
 
# does stylesheet exist
if ($form->{stylesheet}) {
$form->error($locale->text('Stylesheet').": css/$form->{stylesheet} ".$locale->text('does not exist')) unless (-f "css/$form->{stylesheet}");
}
 
$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";
 
}
AM->backup(\%myconfig, \%$form, $userspath);
 
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{Y} = "checked";
} else {
$checked{N} = "checked";
}
$form->header;
print qq|
<body>
 
<form method=post action=$form->{script}>
 
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
 
<table width=100%>
<tr><th class=listtop>$form->{title}</th></tr>
<tr height="5"></tr>
<tr>
<td>
<table>
<tr>
<td>|.$locale->text('Enforce transaction reversal for all dates').qq|</th>
<td><input name=revtrans class=radio type=radio value="1" $checked{Y}> |.$locale->text('Yes').qq| <input name=revtrans class=radio type=radio value="0" $checked{N}> |.$locale->text('No').qq|</td>
</tr>
<tr>
<td>|.$locale->text('Close Books up to').qq|</th>
<td><input name=closedto size=11 title="$myconfig{dateformat}" value=$form->{closedto}></td>
</tr>
</table>
</td>
</tr>
</table>
 
<hr size=3 noshade>
 
<br>
<input type=hidden name=nextsub value=doclose>
 
<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
 
</form>
 
</body>
</html>
|;
 
}
 
 
sub doclose {
 
AM->closebooks(\%myconfig, \%$form);
if ($form->{revtrans}) {
$form->redirect($locale->text('Transaction reversal enforced for all dates'));
} else {
if ($form->{closedto}) {
$form->redirect($locale->text('Transaction reversal enforced up to')
." ".$locale->date(\%myconfig, $form->{closedto}, 1));
} else {
$form->redirect($locale->text('Books are open'));
}
}
 
}
 
 
 
sub continue {
&{ $form->{nextsub} };
 
}
 
 
/tags/v_2_0_6/bin/mozilla/ap.pl
New file
0,0 → 1,1095
#=====================================================================
# 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.
#======================================================================
#
# Accounts Payables
#
#======================================================================
 
 
use SL::AP;
use SL::IR;
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&path=$form->{path}&login=$form->{login}&password=$form->{password}" 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");
 
$taxincluded = $form->{taxincluded};
$duedate = $form->{duedate};
IR->get_vendor(\%myconfig, \%$form);
$form->{duedate} = $duedate;
$form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}";
# build the popup menus
 
# currencies
@curr = split /:/, $form->{currencies};
chomp $curr[0];
$form->{defaultcurrency} = $curr[0];
 
map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
 
# vendors
if (@{ $form->{all_vendor} }) {
$form->{vendor} = qq|$form->{vendor}--$form->{vendor_id}|;
map { $form->{selectvendor} .= "<option>$_->{name}--$_->{id}\n" } (@{ $form->{all_vendor} });
}
 
# 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";
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->{"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);
$totaltax += $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"};
} 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->{"${key}_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
$form->{"oldprojectnumber_$i"} = $form->{"projectnumber_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{projectnumber}";
$form->{"project_id_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{project_id}";
}
}
}
}
 
$form->{taxincluded} = $taxincluded if ($form->{id});
$form->{paidaccounts} = 1 if not defined $form->{paidaccounts};
 
if ($form->{taxincluded}) {
# add tax to amounts and invtotal
for $i (1 .. $form->{rowcount}) {
$taxamount = $totaltax * $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);
}
$form->{invtotal} = $totalamount + $totaltax;
$form->{rowcount}++;
$form->{AP} = $form->{AP_1};
 
$form->{locked} = ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig));
 
}
 
 
sub form_header {
 
$title = $form->{title};
$form->{title} = $locale->text("$title Accounts Payables Transaction");
 
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
# type=submit $locale->text('Add Accounts Payables Transaction')
# type=submit $locale->text('Edit Accounts Payables Transaction')
 
# set option selected
foreach $item (qw(AP vendor currency)) {
$form->{"select$item"} =~ s/ selected//;
$form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
}
 
# 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|
<tr>
<th align=right>|.$locale->text('Exchangerate').qq|</th>
<td><input type=hidden name=exchangerate value=$form->{exchangerate}>$form->{exchangerate}</td>
</tr>
|;
} else {
$exchangerate .= qq|
<tr>
<th align=right>|.$locale->text('Exchangerate').qq|</th>
<td><input name=exchangerate size=10 value=$form->{exchangerate}></td>
</tr>
|;
}
}
$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>|;
$form->header;
 
$vendor = ($form->{selectvendor}) ? qq|<select name=vendor>$form->{selectvendor}</select>| : qq|<input name=vendor value="$form->{vendor}" size=35>|;
print qq|
<body>
 
<form method=post action=$form->{script}>
 
<input type=hidden name=id value=$form->{id}>
<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">
 
<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('Vendor').qq|</th>
<td>$vendor</td>
<input type=hidden name=selectvendor value="$form->{selectvendor}">
<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>
$taxincluded
</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}>
</tr>
$exchangerate
</table>
</td>
<td align=right>
<table>
<tr>
<th align=right nowrap>|.$locale->text('Invoice Number').qq|</th>
<td><input name=invnumber size=11 value="$form->{invnumber}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Order Number').qq|</th>
<td><input name=ordnumber size=11 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=rowcount value=$form->{rowcount}>
<tr>
<td>
<table width=100%>
|;
 
$amount = $locale->text('Amount');
$project = $locale->text('Project');
for $i (1 .. $form->{rowcount}) {
 
$form->{"selectAP_amount"} =~ s/ selected//;
$form->{"selectAP_amount"} =~ s/option>\Q$form->{"AP_amount_$i"}\E/option selected>$form->{"AP_amount_$i"}/;
 
# format amounts
$form->{"amount_$i"} = $form->format_amount(\%myconfig, $form->{"amount_$i"}, 2);
 
print qq|
<tr>
<th align=right nowrap>$amount</th>
<td><input name="amount_$i" size=10 value=$form->{"amount_$i"}></td>
<th>$project</th>
<td><input name="projectnumber_$i" size=20 value="$form->{"projectnumber_$i"}">
<input type=hidden name="project_id_$i" value=$form->{"project_id_$i"}>
<input type=hidden name="oldprojectnumber_$i" value="$form->{"oldprojectnumber_$i"}"></td>
<td width=50%><select name="AP_amount_$i">$form->{selectAP_amount}</select></td>
</tr>
|;
$amount = "";
$project = "";
}
 
$taxlabel = ($form->{taxincluded}) ? $locale->text('Tax Included') : $locale->text('Tax');
foreach $item (split / /, $form->{taxaccounts}) {
 
# 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 colspan=2></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="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 colspan=2></td>
<td><select name=AP>$form->{selectAP}</select></td>
<input type=hidden name=selectAP value="$form->{selectAP}">
<input type=hidden name=taxaccounts value="$form->{taxaccounts}">
</tr>
<tr>
<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=5>|.$locale->text('Payments').qq|</th>
</tr>
|;
 
 
@column_index = qw(datepaid source 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>";
 
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|&nbsp;|;
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><input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|;
$column_data{"AP_paid_$i"} = qq|<td><select name="AP_paid_$i">$form->{"selectAP_paid_$i"}</select></td>|;
$column_data{"exchangerate_$i"} = qq|<td>$exchangerate</td>|;
$column_data{"datepaid_$i"} = qq|<td><input name="datepaid_$i" size=11 title="($myconfig{'dateformat'})" value=$form->{"datepaid_$i"}></td>|;
$column_data{"source_$i"} = qq|<td><input name="source_$i" size=10 value="$form->{"source_$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 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=password value=$form->{password}>
 
<br>
|;
 
$transdate = $form->datetonum($form->{transdate}, \%myconfig);
$closedto = $form->datetonum($form->{closedto}, \%myconfig);
if ($form->{id}) {
print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
|;
 
if (!$form->{revtrans}) {
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|">
|;
}
}
 
if ($transdate > $closedto) {
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|">|;
}
}
 
print "
</form>
 
</body>
</html>
";
 
}
 
 
sub update {
 
$invtotal = 0;
$form->{exchangerate} = $form->parse_amount(\%myconfig, $form->{exchangerate});
 
@flds = qw(amount AP_amount projectnumber oldprojectnumber project_id);
$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 { $invtotal += $form->{"amount_$_"} } (1 .. $form->{rowcount});
$form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, 'sell')));
 
$form->{invdate} = $form->{transdate};
&check_name(vendor);
 
&check_project;
# recalculate taxes
if ($form->{taxincluded}) {
$taxrate = 0;
 
map { $taxrate += $form->{"${_}_rate"} } split / /, $form->{taxaccounts};
 
foreach $item (split / /, $form->{taxaccounts}) {
$amount = ($invtotal * (1 - 1 / (1 + $taxrate)) * $form->{"${item}_rate"} / $taxrate) if $taxrate;
$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 (split / /, $form->{taxaccounts}) {
$form->{"tax_$item"} = $form->round_amount($invtotal * $form->{"${item}_rate"}, 2);
$form->{"selectAP_tax_$item"} = qq|<option>$item--$form->{"${item}_description"}|;
$totaltax += $form->{"tax_$item"};
}
}
 
$form->{invtotal} = ($form->{taxincluded}) ? $invtotal : $invtotal + $totaltax;
for $i (1 .. $form->{paidaccounts}) {
if ($form->{"paid_$i"}) {
map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);
$form->{"exchangerate_$i"} = $exchangerate if ($form->{"forex_$i"} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'sell')));
}
}
 
&display_form;
 
}
sub post {
 
# check if there is an invoice number, invoice and due date
$form->isblank("invnumber", $locale->text("Invoice Number missing!"));
$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('Exchangerate 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('Exchangerate 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->{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;
 
print qq|
<body>
 
<form method=post action=$form->{script}>
|;
 
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 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));
$form->error($locale->text('Cannot delete transaction!'));
 
}
 
 
sub search {
# setup vendor selection
$form->all_vc(\%myconfig, "vendor");
 
if (@{ $form->{all_vendor} }) {
map { $vendor .= "<option>$_->{name}--$_->{id}\n" } @{ $form->{all_vendor} };
$vendor = qq|<select name=vendor><option>\n$vendor\n</select>|;
} else {
$vendor = qq|<input name=vendor size=35>|;
}
$form->{title} = $locale->text('AP Transactions');
 
$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>|.$locale->text('Vendor').qq|</th>
<td colspan=3>$vendor</td>
</tr>
<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>
<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>
</table>
</td>
</tr>
<tr>
<td>
<table>
<tr>
<th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
<td>
<table width=100%>
<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>
<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>
<td align=right><input name="l_netamount" class=checkbox type=checkbox value=Y></td>
<td nowrap>|.$locale->text('Amount').qq|</td>
</tr>
<tr>
<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_datepaid" class=checkbox type=checkbox value=Y></td>
<td nowrap>|.$locale->text('Date Paid').qq|</td>
</tr>
<tr>
<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>
<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>
</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=password value=$form->{password}>
 
<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
</form>
 
</body>
</html>
|;
 
}
 
 
sub ap_transactions {
 
$form->{vendor} = $form->unescape($form->{vendor});
($form->{vendor}, $form->{vendor_id}) = split(/--/, $form->{vendor});
 
AP->ap_transactions(\%myconfig, \%$form);
 
$callback = "$form->{script}?action=ap_transactions&path=$form->{path}&login=$form->{login}&password=$form->{password}";
$href = $callback;
 
if ($form->{vendor}) {
$callback .= "&vendor=".$form->escape($form->{vendor});
$href .= "&vendor=".$form->escape($form->{vendor});
$option .= $locale->text('Vendor')." : $form->{vendor}";
}
if ($form->{invnumber}) {
$callback .= "&invnumber=$form->{invnumber}";
$href .= "&invnumber=".$form->escape($form->{invnumber});
$option .= "\n<br>" if ($option);
$option .= $locale->text('Invoice Number')." : $form->{invnumber}";
}
if ($form->{ordnumber}) {
$callback .= "&ordnumber=$form->{ordnumber}";
$href .= "&ordnumber=".$form->escape($form->{ordnumber});
$option .= "\n<br>" if ($option);
$option .= $locale->text('Order Number')." : $form->{ordnumber}";
}
if ($form->{notes}) {
$callback .= "&notes=$form->{notes}";
$href .= "&notes=".$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 datepaid due duedate notes employee));
 
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";
}
$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><a class=listheading>|.$locale->text('Notes').qq|</th>|;
$column_header{employee} = "<th><a class=listheading href=$href&sort=employee>".$locale->text('Employee')."</th>";
 
$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});
 
if (@{ $form->{AP} }) {
$sameitem = $form->{AP}->[0]->{$form->{sort}};
}
# sums and tax on reports by Antonio Gallardo
#
foreach $ap (@{ $form->{AP} }) {
 
if ($form->{l_subtotal} eq 'Y') {
if ($sameitem ne $ap->{$form->{sort}}) {
&ap_subtotal;
$sameitem = $ap->{$form->{sort}};
}
}
$column_data{netamount} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{netamount}, 2, "&nbsp;")."</td>";
$column_data{tax} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{amount} - $ap->{netamount}, 2, "&nbsp;") . "</td>";
$column_data{amount} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{amount}, 2, "&nbsp;") . "</td>";
$column_data{paid} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{paid}, 2, "&nbsp;")."</td>";
$column_data{due} = "<td align=right>".$form->format_amount(\%myconfig, $ap->{amount} - $ap->{paid}, 2, "&nbsp;")."</td>";
 
$totalnetamount += $ap->{netamount};
$totalamount += $ap->{amount};
$totalpaid += $ap->{paid};
$totaldue += ($ap->{amount} - $ap->{paid});
 
$subtotalnetamount += $ap->{netamount};
$subtotalamount += $ap->{amount};
$subtotalpaid += $ap->{paid};
$subtotaldue += ($ap->{amount} - $ap->{paid});
 
$column_data{transdate} = "<td>$ap->{transdate}&nbsp;</td>";
$column_data{duedate} = "<td>$ap->{duedate}&nbsp;</td>";
$column_data{datepaid} = "<td>$ap->{datepaid}&nbsp;</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}&password=$form->{password}&callback=$callback">$ap->{invnumber}</a></td>|;
$column_data{id} = "<td>$ap->{id}</td>";
$column_data{ordnumber} = "<td>$ap->{ordnumber}&nbsp;</td>";
$column_data{name} = "<td>$ap->{name}</td>";
$ap->{notes} =~ s/\r\n/<br>/g;
$column_data{notes} = "<td>$ap->{notes}&nbsp;</td>";
$column_data{employee} = "<td>$ap->{employee}&nbsp;</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>&nbsp;</td>" } @column_index;
$column_data{netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalnetamount, 2, "&nbsp;")."</th>";
$column_data{tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalnetamount, 2, "&nbsp;")."</th>";
$column_data{amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount, 2, "&nbsp;")."</th>";
$column_data{paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalpaid, 2, "&nbsp;")."</th>";
$column_data{due} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totaldue, 2, "&nbsp;")."</th>";
 
map { print "$column_data{$_}\n" } @column_index;
 
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=password value=$form->{password}>
<input class=submit type=submit name=action value="|.$locale->text('AP Transaction').qq|">
 
<input class=submit type=submit name=action value="|.$locale->text('Purchase Invoice').qq|">
 
</form>
 
</body>
</html>
|;
 
}
 
 
sub ap_subtotal {
 
map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
$column_data{netamount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalnetamount, 2, "&nbsp;")."</th>";
$column_data{tax} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalnetamount, 2, "&nbsp;")."</th>";
$column_data{amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount, 2, "&nbsp;")."</th>";
$column_data{paid} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalpaid, 2, "&nbsp;")."</th>";
$column_data{due} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotaldue, 2, "&nbsp;")."</th>";
 
$subtotalnetamount = 0;
$subtotalamount = 0;
$subtotalpaid = 0;
$subtotaldue = 0;
 
print "<tr class=listsubtotal>";
map { print "\n$column_data{$_}" } @column_index;
 
print qq|
</tr>
|;
 
}
 
 
 
/tags/v_2_0_6/bin/mozilla/ar.pl
New file
0,0 → 1,1125
#=====================================================================
# 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.
#======================================================================
#
# Accounts Receivables
#
#======================================================================
 
 
use SL::AR;
use SL::IS;
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&path=$form->{path}&login=$form->{login}&password=$form->{password}" 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};
$taxincluded = $form->{taxincluded};
IS->get_customer(\%myconfig, \%$form);
 
$form->{duedate} = $duedate;
$form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";
 
# currencies
@curr = split /:/, $form->{currencies};
chomp $curr[0];
$form->{defaultcurrency} = $curr[0];
 
map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
 
# customers
if (@{ $form->{all_customer} }) {
$form->{customer} = "$form->{customer}--$form->{customer_id}";
map { $form->{selectcustomer} .= "<option>$_->{name}--$_->{id}\n" } (@{ $form->{all_customer} });
}
# 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";
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->{"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);
$totaltax += $form->{"${akey}_$form->{acc_trans}{$key}->[$i-1]->{accno}"};
} 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->{"${key}_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{accno}--$form->{acc_trans}{$key}->[$i-1]->{description}";
$form->{"oldprojectnumber_$i"} = $form->{"projectnumber_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{projectnumber}";
$form->{"project_id_$i"} = "$form->{acc_trans}{$key}->[$i-1]->{project_id}";
}
}
}
}
 
$form->{taxincluded} = $taxincluded if ($form->{id});
$form->{paidaccounts} = 1 if not defined $form->{paidaccounts};
 
if ($form->{taxincluded}) {
# add tax to amounts and invtotal
for $i (1 .. $form->{rowcount}) {
$taxamount = $totaltax * $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);
}
 
$form->{invtotal} = $totalamount + $totaltax;
$form->{rowcount}++;
$form->{AR} = $form->{AR_1};
$form->{locked} = ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig));
 
}
 
 
sub form_header {
 
$title = $form->{title};
$form->{title} = $locale->text("$title Accounts Receivables Transaction");
 
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
# $locale->text('Add Accounts Receivables Transaction')
# $locale->text('Edit Accounts Receivables Transaction')
 
# set option selected
foreach $item (qw(AR customer currency)) {
$form->{"select$item"} =~ s/ selected//;
$form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
}
# format amounts
$form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});
$form->{creditlimit} = $form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0");
$form->{creditremaining} = $form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0");
 
$exchangerate = qq|
<input type=hidden name=forex value=$form->{forex}>
|;
if ($form->{currency} ne $form->{defaultcurrency}) {
if ($form->{forex}) {
$exchangerate .= qq|
<tr>
<th align=right>|.$locale->text('Exchangerate').qq|</th>
<td><input type=hidden name=exchangerate value=$form->{exchangerate}>$form->{exchangerate}</td>
</tr>
|;
} else {
$exchangerate .= qq|
<tr>
<th align=right>|.$locale->text('Exchangerate').qq|</th>
<td><input name=exchangerate size=10 value=$form->{exchangerate}></td>
</tr>
|;
}
}
$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>|;
 
$form->header;
$n = ($form->{creditremaining} =~ /-/) ? "0" : "1";
 
$customer = ($form->{selectcustomer}) ? qq|<select name=customer>$form->{selectcustomer}</select>| : qq|<input name=customer value="$form->{customer}" size=35>|;
print qq|
<body>
 
<form method=post action=$form->{script}>
 
<input type=hidden name=id value=$form->{id}>
<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">
 
<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('Customer').qq|</th>
<td>$customer</td>
<input type=hidden name=selectcustomer value="$form->{selectcustomer}">
<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>
<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->{creditremaining}</td>
<input type=hidden name=creditlimit value=$form->{creditlimit}>
<input type=hidden name=creditremaining value=$form->{creditremaining}>
</tr>
</table>
</td>
</tr>
$taxincluded
<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}>
</tr>
$exchangerate
</table>
</td>
<td align=right>
<table>
<tr>
<th align=right nowrap>|.$locale->text('Invoice Number').qq|</th>
<td><input name=invnumber size=11 value="$form->{invnumber}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Order Number').qq|</th>
<td><input name=ordnumber size=11 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=rowcount value=$form->{rowcount}>
|;
 
$amount = $locale->text('Amount');
$project = $locale->text('Project');
for $i (1 .. $form->{rowcount}) {
$form->{"selectAR_amount"} =~ s/ selected//;
$form->{"selectAR_amount"} =~ s/option>\Q$form->{"AR_amount_$i"}\E/option selected>$form->{"AR_amount_$i"}/;
# format amounts
$form->{"amount_$i"} = $form->format_amount(\%myconfig, $form->{"amount_$i"}, 2);
 
print qq|
<tr>
<th align=right>$amount</th>
<td><input name="amount_$i" size=10 value=$form->{"amount_$i"}></td>
<th>$project</th>
<td><input name="projectnumber_$i" size=20 value="$form->{"projectnumber_$i"}">
<input type=hidden name="project_id_$i" value=$form->{"project_id_$i"}>
<input type=hidden name="oldprojectnumber_$i" value="$form->{"oldprojectnumber_$i"}"></td>
<td width=50%><select name="AR_amount_$i">$form->{"selectAR_amount"}</select></td>
</tr>
|;
$amount = "";
$project = "";
}
 
$taxlabel = ($form->{taxincluded}) ? $locale->text('Tax Included') : $locale->text('Tax');
foreach $item (split / /, $form->{taxaccounts}) {
 
$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 colspan=2></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>
 
<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 colspan=2></td>
<td><select name=AR>$form->{selectAR}</select></td>
<input type=hidden name=selectAR value="$form->{selectAR}">
</tr>
<tr>
<th align=right>|.$locale->text('Notes').qq|</th>
<td colspan=4>$notes</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width=100%>
<tr>
<th class=listheading colspan=5>|.$locale->text('Payments').qq|</th>
</tr>
|;
 
 
@column_index = qw(datepaid source 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>";
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|&nbsp;|;
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><input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|;
$column_data{"AR_paid_$i"} = qq|<td><select name="AR_paid_$i">$form->{"selectAR_paid_$i"}</select></td>|;
$column_data{"exchangerate_$i"} = qq|<td>$exchangerate</td>|;
$column_data{"datepaid_$i"} = qq|<td><input name="datepaid_$i" size=11 value=$form->{"datepaid_$i"}></td>|;
$column_data{"source_$i"} = qq|<td><input name="source_$i" size=10 value="$form->{"source_$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=selectAR_paid value="$form->{selectAR_paid}">
 
</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=password value=$form->{password}>
 
<br>
|;
 
$transdate = $form->datetonum($form->{transdate}, \%myconfig);
$closedto = $form->datetonum($form->{closedto}, \%myconfig);
if ($form->{id}) {
print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
|;
 
if (!$form->{revtrans}) {
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|">
|;
}
}
 
if ($transdate > $closedto) {
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|">|;
}
}
 
print "
</form>
 
</body>
</html>
";
 
}
 
 
sub update {
 
$invtotal = 0;
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
 
@flds = qw(amount AR_amount projectnumber oldprojectnumber project_id);
$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;
 
map { $invtotal += $form->{"amount_$_"} } (1 .. $form->{rowcount});
 
$form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{transdate}, 'buy')));
 
 
$form->{invdate} = $form->{transdate};
&check_name(customer);
 
&check_project;
 
# recalculate taxes
if ($form->{taxincluded}) {
$taxrate = 0;
 
map { $taxrate += $form->{"${_}_rate"} } split / /, $form->{taxaccounts};
 
foreach $item (split / /, $form->{taxaccounts}) {
$amount = ($invtotal * (1 - 1 / (1 + $taxrate)) * $form->{"${item}_rate"} / $taxrate) if $taxrate;
$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 (split / /, $form->{taxaccounts}) {
$form->{"tax_$item"} = $form->round_amount($invtotal * $form->{"${item}_rate"}, 2);
$form->{"selectAR_tax_$item"} = qq|<option>$item--$form->{"${item}_description"}|;
$totaltax += $form->{"tax_$item"};
}
}
 
$form->{invtotal} = ($form->{taxincluded}) ? $invtotal : $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;
# add a new row
$form->{rowcount}++;
 
&display_form;
}
 
 
sub post {
 
# check if there is an invoice number, invoice and due date
$form->isblank("invnumber", $locale->text('Invoice Number missing!'));
$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('Exchangerate 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('Exchangerate for payment missing!'));
}
}
}
 
# if oldcustomer ne customer redo form
($customer) = split /--/, $form->{customer};
if ($form->{oldcustomer} ne "$customer--$form->{customer_id}") {
&update;
exit;
}
 
$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;
 
print qq|
<body>
 
<form method=post action=$form->{script}>
|;
 
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 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));
$form->error($locale->text('Cannot delete transaction!'));
 
}
 
 
sub search {
 
# setup customer selection
$form->all_vc(\%myconfig, "customer");
 
if (@{ $form->{all_customer} }) {
map { $customer .= "<option>$_->{name}--$_->{id}\n" } @{ $form->{all_customer} };
$customer = qq|<select name=customer><option>\n$customer</select>|;
} else {
$customer = qq|<input name=customer size=35>|;
}
$form->{title} = $locale->text('AR Transactions');
$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>|.$locale->text('Customer').qq|</th>
<td colspan=3>$customer</td>
</tr>
<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>
<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>
</table>
</td>
</tr>
<tr>
<td>
<table>
<tr>
<th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
<td>
<table width=100%>
<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>
<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_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>
</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>
<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>
</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=password value=$form->{password}>
 
<br>
<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
 
</form>
 
</body>
</html>
|;
 
}
 
 
sub ar_transactions {
 
$form->{customer} = $form->unescape($form->{customer});
($form->{customer}, $form->{customer_id}) = split(/--/, $form->{customer});
 
AR->ar_transactions(\%myconfig, \%$form);
 
$callback = "$form->{script}?action=ar_transactions&path=$form->{path}&login=$form->{login}&password=$form->{password}";
$href = $callback;
 
if ($form->{customer}) {
$callback .= "&customer=".$form->escape($form->{customer});
$href .= "&customer=".$form->escape($form->{customer});
$option = $locale->text('Customer')." : $form->{customer}";
}
if ($form->{invnumber}) {
$callback .= "&invnumber=$form->{invnumber}";
$href .= "&invnumber=".$form->escape($form->{invnumber});
$option .= "\n<br>" if ($option);
$option .= $locale->text('Invoice Number')." : $form->{invnumber}";
}
if ($form->{ordnumber}) {
$callback .= "&ordnumber=$form->{ordnumber}";
$href .= "&ordnumber=".$form->escape($form->{ordnumber});
$option .= "\n<br>" if ($option);
$option .= $locale->text('Order Number')." : $form->{ordnumber}";
}
if ($form->{notes}) {
$callback .= "&notes=$form->{notes}";
$href .= "&notes=".$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')."&nbsp;".$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')."&nbsp;".$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 datepaid due duedate notes employee));
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";
}
 
$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 class=listheading><a class=listheading href=$href&sort=employee>".$locale->text('Employee')."</th>";
 
$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);
if (@{ $form->{AR} }) {
$sameitem = $form->{AR}->[0]->{$form->{sort}};
}
# sums and tax on reports by Antonio Gallardo
#
foreach $ar (@{ $form->{AR} }) {
 
if ($form->{l_subtotal} eq 'Y') {
if ($sameitem ne $ar->{$form->{sort}}) {
&ar_subtotal;
}
}
$column_data{netamount} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{netamount}, 2, "&nbsp;")."</td>";
$column_data{tax} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{amount} - $ar->{netamount}, 2, "&nbsp;")."</td>";
$column_data{amount} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{amount}, 2, "&nbsp;")."</td>";
$column_data{paid} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{paid}, 2, "&nbsp;")."</td>";
$column_data{due} = "<td align=right>".$form->format_amount(\%myconfig, $ar->{amount} - $ar->{paid}, 2, "&nbsp;")."</td>";
$subtotalnetamount += $ar->{netamount};
$subtotalamount += $ar->{amount};
$subtotalpaid += $ar->{paid};
$subtotaldue += $ar->{amount} - $ar->{paid};
$totalnetamount += $ar->{netamount};
$totalamount += $ar->{amount};
$totalpaid += $ar->{paid};
$totaldue += ($ar->{amount} - $ar->{paid});
$column_data{transdate} = "<td>$ar->{transdate}&nbsp;</td>";
$column_data{id} = "<td>$ar->{id}</td>";
$column_data{datepaid} = "<td>$ar->{datepaid}&nbsp;</td>";
$column_data{duedate} = "<td>$ar->{duedate}&nbsp;</td>";
 
$module = ($ar->{invoice}) ? "is.pl" : $form->{script};
 
$column_data{invnumber} = "<td><a href=$module?action=edit&id=$ar->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ar->{invnumber}</a></td>";
$column_data{ordnumber} = "<td>$ar->{ordnumber}&nbsp;</td>";
$column_data{name} = "<td>$ar->{name}</td>";
$ar->{notes} =~ s/\r\n/<br>/g;
$column_data{notes} = "<td>$ar->{notes}&nbsp;</td>";
$column_data{employee} = "<td>$ar->{employee}&nbsp;</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>&nbsp;</td>" } @column_index;
$column_data{netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalnetamount, 2, "&nbsp;")."</th>";
$column_data{tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalnetamount, 2, "&nbsp;")."</th>";
$column_data{amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount, 2, "&nbsp;")."</th>";
$column_data{paid} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalpaid, 2, "&nbsp;")."</th>";
$column_data{due} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totaldue, 2, "&nbsp;")."</th>";
 
map { print "\n$column_data{$_}" } @column_index;
 
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=password value=$form->{password}>
 
<input class=submit type=submit name=action value="|.$locale->text('AR Transaction').qq|">
<input class=submit type=submit name=action value="|.$locale->text('Sales Invoice').qq|">
 
</form>
 
</body>
</html>
|;
 
}
 
 
sub ar_subtotal {
 
map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
$column_data{tax} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalnetamount, 2, "&nbsp;")."</th>";
$column_data{amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount, 2, "&nbsp;")."</th>";
$column_data{paid} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalpaid, 2, "&nbsp;")."</th>";
$column_data{due} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotaldue, 2, "&nbsp;")."</th>";
$subtotalnetamount = 0;
$subtotalamount = 0;
$subtotalpaid = 0;
$subtotaldue = 0;
 
$sameitem = $ar->{$form->{sort}};
print "<tr class=listsubtotal>";
 
map { print "\n$column_data{$_}" } @column_index;
 
print "
</tr>
";
}
 
 
 
/tags/v_2_0_6/bin/mozilla/cp.pl
New file
0,0 → 1,528
#=====================================================================
# 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.
#======================================================================
#
# Payment module
#
#======================================================================
 
 
use SL::CP;
use SL::IS;
use SL::IR;
 
require "$form->{path}/arap.pl";
 
1;
# end of main
 
 
sub payment {
# setup customer/vendor selection for open invoices
CP->get_openvc(\%myconfig, \%$form);
 
if ($form->{"all_$form->{vc}"}) {
map { $form->{"select$form->{vc}"} .= "<option>$_->{name}--$_->{id}\n" } @{ $form->{"all_$form->{vc}"} };
}
 
$form->{arap} = ($form->{vc} eq 'customer') ? "AR" : "AP";
 
CP->paymentaccounts(\%myconfig, \%$form);
 
map { $form->{selectaccount} .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{PR} };
 
# currencies
@curr = split /:/, $form->{currencies};
chomp $curr[0];
$form->{defaultcurrency} = $form->{currency} = $form->{oldcurrency} = $curr[0];
 
map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
 
$form->{media} = "screen";
 
&form_header;
&list_invoices;
&form_footer;
 
}
 
 
 
sub form_header {
 
$vclabel = ucfirst $form->{vc};
$vclabel = $locale->text($vclabel);
 
if ($form->{vc} eq 'customer') {
$form->{title} = $locale->text('Receipt');
$rclabel = $locale->text('Reference');
$form->{type} = 'receipt';
} else {
$form->{title} = $locale->text('Payment');
$rclabel = $locale->text('Check');
$form->{type} = 'check';
}
 
# $locale->text('Customer')
# $locale->text('Vendor')
 
if ($form->{$form->{vc}} eq "") {
map { $form->{"addr$_"} = "" } (1 .. 4);
}
 
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('Exchangerate').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('Exchangerate').qq|</th>
<td colspan=3><input name=exchangerate size=10 value=$form->{exchangerate}></td>
</tr>
|;
}
}
foreach $item ($form->{vc}, account, currency) {
$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}}">|;
 
$form->header;
 
print qq|
<body>
 
<form method=post action=$form->{script}>
 
<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}>
 
<table border=0 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>
<th align=right>$vclabel</th>
<td>$vc</td>
<input type=hidden name="select$form->{vc}" value="$form->{"select$form->{vc}"}">
<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>
<table>
<tr>
<td>$form->{addr1}</td>
</tr>
<tr>
<td>$form->{addr2}</td>
</tr>
<tr>
<td>$form->{addr3}</td>
</tr>
<tr>
<td>$form->{addr4}</td>
</tr>
</table>
</td>
<input type=hidden name=addr1 value="$form->{addr1}">
<input type=hidden name=addr2 value="$form->{addr2}">
<input type=hidden name=addr3 value="$form->{addr3}">
<input type=hidden name=addr4 value="$form->{addr4}">
</tr>
</table>
</td>
<td align=right>
<table>
<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>$rclabel</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>
<tr>
<th align=right nowrap>|.$locale->text('From').qq|</th>
<td><input name=transdatefrom size=11 title="$myconfig{dateformat}" value=$form->{transdatefrom}></td>
<th align=right nowrap>|.$locale->text('to').qq|</th>
<td><input name=transdateto size=11 title="$myconfig{dateformat}" value=$form->{transdateto}></td>
<input type=hidden name=oldtransdatefrom value=$form->{oldtransdatefrom}>
<input type=hidden name=oldtransdateto value=$form->{oldtransdateto}>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
|;
 
}
 
 
sub list_invoices {
 
@column_index = qw(invnumber transdate amount due paid selectpaid);
$colspan = $#column_index + 1;
print qq|
<input type=hidden name=column_index value="id @column_index">
<tr>
<td>
<table width=100%>
<tr>
<th class=listheading colspan=$colspan>|.$locale->text('Invoices').qq|</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('Due')."</th>";
$column_data{paid} = qq|<th nowrap>|.$locale->text('Applied')."</th>";
$column_data{selectpaid} = qq|<th nowrap>|.$locale->text('Paid in full')."</th>";
print qq|
<tr>
|;
map { print "$column_data{$_}\n" } @column_index;
print qq|
</tr>
|;
 
for $i (1 .. $form->{rowcount}) {
 
$form->{"selectpaid_$i"} = "checked" if $form->{"selectpaid_$i"};
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%>|;
if ($form->{"selectpaid_$i"}) {
$column_data{paid} .= qq|<input type=hidden name="paid_$i" value=$form->{"paid_$i"}>$form->{"paid_$i"}</td>|;
} else {
$column_data{paid} .= qq|<input name="paid_$i" size=10 value=$form->{"paid_$i"}></td>|;
}
$column_data{selectpaid} = qq|<td align=center width=10%><input name="selectpaid_$i" type=checkbox class=checkbox $form->{"selectpaid_$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>&nbsp;</td>" } @column_index;
 
$column_data{amount} = qq|<th align=right>|.$form->format_amount(\%myconfig, $totalamount, 2, "&nbsp;").qq|</th>|;
$column_data{due} = qq|<th align=right>|.$form->format_amount(\%myconfig, $totaldue, 2, "&nbsp;").qq|</th>|;
$column_data{paid} = qq|<th align=right>|.$form->format_amount(\%myconfig, $totalpaid, 2, "&nbsp;").qq|</th>|;
 
print qq|
<tr class=listtotal>
|;
map { print "$column_data{$_}\n" } @column_index;
print qq|
</tr>
</table>
</td>
</tr>
|;
 
}
 
 
sub form_footer {
 
$form->{OP}{$form->{media}} = "checked";
print qq|
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
<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=password value=$form->{password}>
 
<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|">
<input class=radio type=radio name=media value=screen $form->{OP}{screen}> |.$locale->text('Screen');
 
if ($myconfig{printer}) {
print qq|
<input class=radio type=radio name=media value=printer $form->{OP}{printer}> |.$locale->text('Printer');
}
}
 
print qq|
 
</form>
 
</body>
</html>
|;
 
}
 
 
sub update {
my ($new_name_selected) = @_;
 
# get customer and invoices
$updated = &check_name($form->{vc});
 
$updated = 1 if (($form->{oldtransdatefrom} ne $form->{transdatefrom}) || ($form->{oldtransdateto} ne $form->{transdateto}));
$form->{oldtransdatefrom} = $form->{transdatefrom};
$form->{oldtransdateto} = $form->{transdateto};
if ($new_name_selected || $updated) {
CP->get_openinvoices(\%myconfig, \%$form);
$updated = 1;
}
 
if ($form->{currency} ne $form->{oldcurrency}) {
$form->{oldcurrency} = $form->{currency};
if (!$updated) {
CP->get_openinvoices(\%myconfig, \%$form);
$updated = 1;
}
}
# check currency
$buysell = ($form->{vc} eq 'customer') ? "buy" : "sell";
$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;
$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"} = $form->round_amount(($ref->{amount} - $ref->{paid}) / $ref->{exchangerate}, 2);
$amount = $form->round_amount($amount - $form->{"due_$i"}, 2);
$form->{"selectpaid_$i"} = 1 if $amount > 0;
 
map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, 2) } qw(amount due paid);
 
}
$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->{"selectpaid_$i"}) {
$amount -= $form->{"due_$i"};
if ($amount < 0) {
$form->{"selectpaid_$i"} = 0;
} else {
$form->{"paid_$i"} = $form->{"due_$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;
 
$form->redirect($locale->text('Payment posted!')) if (CP->process_payment(\%myconfig, \%$form));
$form->error($locale->text('Cannot post payment!'));
 
}
 
 
sub print {
&check_form;
 
($whole, $form->{decimal}) = split /\./, $form->{amount};
$form->{amount} = $form->format_amount(\%myconfig, $form->{amount}, 2);
$m = "*" x (24 - length $form->{amount});
$form->{amount} = $locale->text($form->{currency})."$m$form->{amount}";
$form->{decimal} .= "00";
$form->{decimal} = substr($form->{decimal}, 0, 2);
 
$check = new CP $myconfig{countrycode};
$check->init;
$form->{text_amount} = $check->num2text($whole);
 
&{ "$form->{vc}_details" };
 
$form->{format} = ($form->{media} eq 'screen') ? "pdf" : "postscript";
$form->{templates} = "$myconfig{templates}";
$form->{IN} = "$form->{type}.tex";
$form->{OUT} = "| $myconfig{printer}" if ($form->{media} eq 'printer');
 
$form->{company} = $myconfig{company};
$form->{address} = $myconfig{address};
@a = qw(name invnumber company address text_amount addr1 addr2 addr3 addr4);
$form->format_string(@a);
 
$form->parse_template(\%myconfig, $userspath);
 
$form->{callback} = "";
 
$label = uc $form->{type};
 
# $locale->text('Check printed!')
# $locale->text('Check printing failed!')
# $locale->text('Receipt printed!')
# $locale->text('Receipt printing failed!')
 
$form->redirect($locale->text("$label printed!"));
$form->error($locale->text("$label printing failed!"));
}
 
 
sub customer_details { IS->customer_details(\%myconfig, \%$form) };
sub vendor_details { IR->vendor_details(\%myconfig, \%$form) };
 
sub check_form {
# construct callback
$form->{callback} = "$form->{script}?action=payment&vc=$form->{vc}&path=$form->{path}&login=$form->{login}&password=$form->{password}";
 
$form->redirect unless $form->{rowcount};
 
if ($form->{currency} ne $form->{oldcurrency}) {
&update;
exit;
}
$form->error($locale->text('Date missing!')) unless $form->{datepaid};
$form->error($locale->text('Amount missing!')) unless $form->{amount};
 
$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);
 
$form->{amount} = $form->parse_amount(\%myconfig, $form->{amount});
for $i (1 .. $form->{rowcount}) {
$totalpaid += $form->parse_amount(\%myconfig, $form->{"paid_$i"});
if ($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"});
}
}
 
$totalpaid = $form->round_amount($totalpaid, 2);
 
$form->error($locale->text('Nothing applied!')) unless $totalpaid;
$form->error($locale->text('Amount does not equal applied!')) if ($form->{amount} != $totalpaid);
 
}
 
 
/tags/v_2_0_6/bin/mozilla/gl.pl
New file
0,0 → 1,806
#=====================================================================
# SQL-Ledger Accounting
# Copyright (c) 1998-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.
#======================================================================
#
# 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&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback};
 
# we use this only to set a default date
GL->transaction(\%myconfig, \%$form);
map { $chart .= "<option>$_->{accno}--$_->{description}" } @{ $form->{chart} };
$form->{chart} = $chart;
$form->{rowcount} = 4;
&display_form;
}
 
 
sub edit {
 
GL->transaction(\%myconfig, \%$form);
 
map { $chart .= "<option>$_->{accno}--$_->{description}" } @{ $form->{chart} };
$form->{chart} = $chart;
 
$form->{locked} = ($form->datetonum($form->{transdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig));
 
$form->{title} = "Edit";
&form_header;
 
$i = 1;
foreach $ref (@{ $form->{GL} }) {
$form->{"accno_$i"} = $ref->{accno};
$form->{"oldprojectnumber_$i"} = $form->{"projectnumber_$i"} = $ref->{projectnumber};
$form->{"project_id_$i"} = $ref->{project_id};
if ($ref->{amount} < 0) {
$form->{totaldebit} -= $ref->{amount};
$form->{"debit_$i"} = $form->format_amount(\%myconfig, $ref->{amount} * -1, 2);
} else {
$form->{totalcredit} += $ref->{amount};
$form->{"credit_$i"} = ($ref->{amount} > 0) ? $form->format_amount(\%myconfig, $ref->{amount}, 2) : "";
}
 
&form_row($i++);
}
 
&form_row($i);
 
&form_footer;
}
 
 
 
sub search {
 
$form->{title} = $locale->text('General Ledger')." ".$locale->text('Reports');
$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>
<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>
<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>&nbsp;|.$locale->text('All').qq|
<input name="category" class=radio type=radio value=A>&nbsp;|.$locale->text('Asset').qq|
<input name="category" class=radio type=radio value=L>&nbsp;|.$locale->text('Liability').qq|
<input name="category" class=radio type=radio value=Q>&nbsp;|.$locale->text('Equity').qq|
<input name="category" class=radio type=radio value=I>&nbsp;|.$locale->text('Income').qq|
<input name="category" class=radio type=radio value=E>&nbsp;|.$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=password value=$form->{password}>
 
<br>
<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
</form>
 
</body>
</html>
|;
}
 
 
sub generate_report {
 
GL->all_transactions(\%myconfig, \%$form);
$callback = "$form->{script}?action=generate_report&path=$form->{path}&login=$form->{login}&password=$form->{password}";
%acctype = ( 'A' => $locale->text('Asset'),
'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}) {
$callback .= "&accno=$form->{accno}";
$option = $locale->text('Account')." : $form->{accno} $form->{account_description}";
}
if ($form->{gifi_accno}) {
$callback .= "&gifi_accno=$form->{gifi_accno}";
$option .= "\n<br>" if $option;
$option .= $locale->text('GIFI')." : $form->{gifi_accno} $form->{gifi_account_description}";
}
if ($form->{source}) {
$callback .= "&source=".$form->escape($form->{source});
$option .= "\n<br>" if $option;
$option .= $locale->text('Source')." : $form->{source}";
}
if ($form->{reference}) {
$callback .= "&reference=".$form->escape($form->{reference});
$option .= "\n<br>" if $option;
$option .= $locale->text('Reference')." : $form->{reference}";
}
if ($form->{description}) {
$callback .= "&description=".$form->escape($form->{description});
$option .= "\n<br>" if $option;
$option .= $locale->text('Description')." : $form->{description}";
}
if ($form->{notes}) {
$callback .= "&notes=".$form->escape($form->{notes});
$option .= "\n<br>" if $option;
$option .= $locale->text('Notes')." : $form->{notes}";
}
if ($form->{datefrom}) {
$callback .= "&datefrom=$form->{datefrom}";
$option .= "\n<br>" if $option;
$option .= $locale->text('From')." ".$locale->date(\%myconfig, $form->{datefrom}, 1);
}
if ($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);
}
 
 
@columns = $form->sort_columns(qw(transdate id reference description notes source debit credit accno gifi_accno));
 
if ($form->{accno} || $form->{gifi_accno}) {
@columns = grep !/(accno|gifi_accno)/, @columns;
push @columns, "balance";
$form->{l_balance} = "Y";
}
$href = "$callback&sort=$form->{sort}"; # needed for accno
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=$callback&sort=id>".$locale->text('ID')."</a></th>";
$column_header{transdate} = "<th><a class=listheading href=$callback&sort=transdate>".$locale->text('Date')."</a></th>";
$column_header{reference} = "<th><a class=listheading href=$callback&sort=reference>".$locale->text('Reference')."</a></th>";
$column_header{source} = "<th><a class=listheading href=$callback&sort=source>".$locale->text('Source')."</a></th>";
$column_header{description} = "<th><a class=listheading href=$callback&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=$callback&sort=accno>".$locale->text('Account')."</a></th>";
$column_header{gifi_accno} = "<th><a class=listheading href=$callback&sort=gifi_accno>".$locale->text('GIFI')."</a></th>";
$column_header{balance} = "<th class=listheading>".$locale->text('Balance')."</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>&nbsp;</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>
|;
}
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, "&nbsp;");
$ref->{credit} = $form->format_amount(\%myconfig, $ref->{credit}, 2, "&nbsp;");
$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}&password=$form->{password}&callback=$callback>$ref->{reference}</td>";
$column_data{description} = "<td>$ref->{description}&nbsp;</td>";
$column_data{source} = "<td>$ref->{source}&nbsp;</td>";
$column_data{notes} = "<td>$ref->{notes}&nbsp;</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>&nbsp;</td>";
$column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</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>&nbsp;</td>" } @column_index;
$column_data{debit} = "<th align=right>".$form->format_amount(\%myconfig, $totaldebit, 2, "&nbsp;")."</th>";
$column_data{credit} = "<th align=right>".$form->format_amount(\%myconfig, $totalcredit, 2, "&nbsp;")."</th>";
$column_data{balance} = "<th align=right>".$form->format_amount(\%myconfig, $form->{balance} * $ml, 2, 0)."</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>
 
<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=password value=$form->{password}>
 
<input class=submit type=submit name=action value="|.$locale->text('GL Transaction').qq|">
<input class=submit type=submit name=action value="|.$locale->text('AR Transaction').qq|">
<input class=submit type=submit name=action value="|.$locale->text('AP Transaction').qq|">
<input class=submit type=submit name=action value="|.$locale->text('Sales Invoice').qq|">
<input class=submit type=submit name=action value="|.$locale->text('Purchase Invoice').qq|">
 
</form>
 
</body>
</html>
|;
 
}
 
 
sub gl_subtotal {
$subtotaldebit = $form->format_amount(\%myconfig, $subtotaldebit, 2, "&nbsp;");
$subtotalcredit = $form->format_amount(\%myconfig, $subtotalcredit, 2, "&nbsp;");
map { $column_data{$_} = "<td>&nbsp;</td>" } qw(transdate id reference source description accno);
$column_data{debit} = "<th class=listsubtotal align=right>$subtotaldebit</td>";
$column_data{credit} = "<th class=listsubtotal align=right>$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 project_id));
 
for $i (1 .. $form->{rowcount}) {
unless (($form->{"debit_$i"} eq "") && ($form->{"credit_$i"} eq "")) {
# take accno apart
($form->{"accno_$i"}) = split(/--/, $form->{"accno_$i"});
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;
 
&check_project;
 
&display_form;
}
 
 
sub display_form {
 
&form_header;
 
$form->{rowcount}++;
$form->{totaldebit} = 0;
$form->{totalcredit} = 0;
for $i (1 .. $form->{rowcount}) {
$form->{totaldebit} += $form->parse_amount(\%myconfig, $form->{"debit_$i"});
$form->{totalcredit} += $form->parse_amount(\%myconfig, $form->{"credit_$i"});
&form_row($i);
}
 
&form_footer;
 
}
 
 
sub form_row {
my $i = shift;
my $chart = $form->{chart};
$chart =~ s/<option>$form->{"accno_$i"}/<option selected>$form->{"accno_$i"}/;
print qq|<tr>
<td><select name="accno_$i">$chart</select></td>
<td><input name="debit_$i" size=12 value=$form->{"debit_$i"}></td>
<td><input name="credit_$i" size=12 value=$form->{"credit_$i"}></td>
<td><input name="projectnumber_$i" size=12 value="$form->{"projectnumber_$i"}">
<input type=hidden name="project_id_$i" value=$form->{"project_id_$i"}>
<input type=hidden name="oldprojectnumber_$i" value="$form->{"oldprojectnumber_$i"}"></td>
</tr>
<input type=hidden name=rowcount value=$i>
 
|;
 
}
 
 
sub form_header {
 
$title = $form->{title};
$form->{title} = $locale->text("$title General Ledger Transaction");
# $locale->text('Add General Ledger Transaction')
# $locale->text('Edit General Ledger Transaction')
 
map { $form->{$_} =~ s/"/&quot;/g } qw(reference description chart);
 
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}">|;
}
 
$form->header;
 
print qq|
<body>
 
<form method=post action=$form->{script}>
 
<input name=id type=hidden value=$form->{id}>
 
<input name=chart type=hidden value="$form->{chart}">
<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>
<td align=right>
<table>
<tr>
<th align=right>|.$locale->text('Date').qq|</th>
<td><input name=transdate size=11 title="$myconfig{dateformat}" value=$form->{transdate}></td>
</tr>
</table>
</td>
</tr>
<tr>
<th align=right>|.$locale->text('Description').qq|</th>
<td colspan=2>$description</td>
</tr>
<tr>
<th align=right>|.$locale->text('Notes').qq|</th>
<td colspan=2>$notes</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width=100%>
<tr class=listheading>
<th class=listheading>|.$locale->text('Account').qq|</th>
<th class=listheading>|.$locale->text('Debit').qq|</th>
<th class=listheading>|.$locale->text('Credit').qq|</th>
<th class=listheading>|.$locale->text('Project').qq|</th>
</tr>
|;
 
}
 
 
sub form_footer {
 
($dec) = ($form->{totaldebit} =~ /\.(\d+)/);
$dec = length $dec;
$decimalplaces = ($dec > 2) ? $dec : 2;
map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, $decimalplaces, "&nbsp;") } qw(totaldebit totalcredit);
print qq|
<tr class=listtotal>
<th>&nbsp;</th>
<th class=listtotal align=right>$form->{totaldebit}</th>
<th class=listtotal align=right>$form->{totalcredit}</th>
<th>&nbsp;</th>
</tr>
</table>
</td>
</tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
 
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
 
<input name=callback type=hidden value="$form->{callback}">
 
<br>
|;
 
$transdate = $form->datetonum($form->{transdate}, \%myconfig);
$closedto = $form->datetonum($form->{closedto}, \%myconfig);
if ($form->{id}) {
print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
|;
 
if (!$form->{revtrans}) {
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|">
|;
}
}
 
if ($transdate > $closedto) {
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|">|;
}
}
 
print "</form>
 
</body>
</html>
";
}
 
 
sub delete {
 
$form->header;
 
print qq|
<body>
 
<form method=post action=$form->{script}>
|;
 
map { $form->{$_} =~ s/"/&quot;/g } qw(reference description chart);
 
foreach $key (keys %$form) {
print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
}
 
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);
 
# check project
&check_project;
# this is just for the wise guys
$form->error($locale->text('Cannot post transaction for a closed period!')) if ($transdate <= $closedto);
if (($errno = GL->post_transaction(\%myconfig, \%$form)) <= -1) {
$errno *= -1;
$err[1] = $locale->text('Cannot have a value in both Debit and Credit!');
$err[2] = $locale->text('Debit and credit out of balance!');
$err[3] = $locale->text('Cannot post a transaction without a value!');
$form->error($err[$errno]);
}
$form->redirect($locale->text('Transaction posted!'));
}
 
 
sub post_as_new {
 
$form->{id} = 0;
&post;
 
}
 
 
/tags/v_2_0_6/bin/mozilla/oe.pl
New file
0,0 → 1,1103
#=====================================================================
# SQL-Ledger, Accounting
# Copyright (c) 1998-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.
#======================================================================
#
# Order entry module
#
#======================================================================
 
 
use SL::OE;
use SL::IR;
use SL::IS;
use SL::PE;
 
require "$form->{path}/io.pl";
require "$form->{path}/arap.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';
}
&order_links;
&prepare_order;
&display_form;
 
}
 
 
sub edit {
 
if ($form->{type} eq 'purchase_order') {
$form->{title} = $locale->text('Edit Purchase Order');
$form->{vc} = 'vendor';
}
if ($form->{type} eq 'sales_order') {
$form->{title} = $locale->text('Edit Sales Order');
$form->{vc} = 'customer';
}
&order_links;
&prepare_order;
 
&display_form;
 
}
 
 
sub order_links {
 
# get vendors / customers
$form->all_vc(\%myconfig, $form->{vc});
 
# retrieve order
OE->retrieve_order(\%myconfig, \%$form);
$taxincluded = $form->{taxincluded};
$form->{shipto} = 1 if $form->{id};
 
# get customer / vendor
if ($form->{type} eq 'purchase_order') {
IR->get_vendor(\%myconfig, \%$form);
}
if ($form->{type} eq 'sales_order') {
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 the popup menus
if (@{ $form->{"all_$form->{vc}"} }) {
$form->{$form->{vc}} = qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
map { $form->{"select$form->{vc}"} .= "<option>$_->{name}--$_->{id}\n" } (@{ $form->{"all_$form->{vc}"} });
}
# currencies
@curr = split /:/, $form->{currencies};
chomp $curr[0];
$form->{defaultcurrency} = $curr[0];
map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
 
$form->{taxincluded} = $taxincluded if ($form->{id});
 
# forex
$form->{forex} = $form->{exchangerate};
}
 
 
sub prepare_order {
 
$form->{format} = "html";
$form->{media} = "screen";
if ($form->{id}) {
map { $form->{$_} =~ s/"/&quot;/g } qw(invnumber shippingpoint notes shiptoname shiptoaddr1 shiptoaddr2 shiptoaddr3 shiptoaddr4 shiptocontact);
foreach $ref (@{ $form->{order_details} } ) {
$i++;
map { $form->{"${_}_$i"} = $ref->{$_} } keys %{ $ref };
$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"});
map { $form->{"${_}_$i"} =~ s/"/&quot;/g } qw(partnumber description unit);
$form->{rowcount} = $i;
}
}
 
}
 
 
sub form_header {
 
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
$checkedopen = ($form->{closed}) ? "" : "checked";
$checkedclosed = ($form->{closed}) ? "checked" : "";
 
if ($form->{id}) {
$openclosed = qq|
<tr>
<td colspan=2 align=right>
<table>
<tr>
<th nowrap><input name=closed type=radio class=radio value=0 $checkedopen> |.$locale->text('Open').qq|</th>
<th nowrap><input name=closed type=radio class=radio value=1 $checkedclosed> |.$locale->text('Closed').qq|</th>
</tr>
</table>
</td>
</tr>
|;
}
 
# set option selected
foreach $item ($form->{vc}, currency) {
$form->{"select$item"} =~ s/ selected//;
$form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
}
$form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});
 
$form->{creditlimit} = $form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0");
$form->{creditremaining} = $form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0");
$exchangerate = qq|
<input type=hidden name=forex value=$form->{forex}>
|;
 
if ($form->{currency} ne $form->{defaultcurrency}) {
if ($form->{forex}) {
$exchangerate .= qq|<tr><th align=right>|.$locale->text('Exchangerate').qq|</th><td>$form->{exchangerate}</td></tr>
<input type=hidden name=exchangerate value=$form->{exchangerate}>
|;
} else {
$exchangerate .= qq|<tr><th align=right>|.$locale->text('Exchangerate').qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td></tr>|;
}
}
 
 
$vclabel = ucfirst $form->{vc};
$vclabel = $locale->text($vclabel);
 
if ($form->{type} eq 'sales_order') {
$n = ($form->{creditremaining} =~ /-/) ? "0" : "1";
$creditremaining = qq|
<tr>
<td></td>
<td>
<table width=100%>
<tr>
<th align=left>|.$locale->text('Credit Limit').qq|</th>
<td>$form->{creditlimit}</td>
<th align=left>|.$locale->text('Remaining').qq|</th>
<td class="plus$n">$form->{creditremaining}</td>
</tr>
</table>
</td>
</tr>
|;
}
 
$vc = ($form->{"select$form->{vc}"}) ? qq|<select name=$form->{vc}>$form->{"select$form->{vc}"}</select>\n<input type=hidden name="select$form->{vc}" value="$form->{"select$form->{vc}"}">| : qq|<input name=$form->{vc} value="$form->{$form->{vc}}" 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=$form->{type}>
<input type=hidden name=media value=$form->{media}>
<input type=hidden name=format value=$form->{format}>
 
<input type=hidden name=vc value=$form->{vc}>
<input type=hidden name=employee value="$form->{employee}">
 
<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}>
 
<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 width=100%>
<tr>
<th align=right>$vclabel</th>
<td>$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
<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}>
</tr>
$exchangerate
<tr>
<th align=right>|.$locale->text('Ship via').qq|</th>
<td><input name=shippingpoint size=35 value="$form->{shippingpoint}"></td>
</tr>
</table>
</td>
<td align=right>
<table width=100%>
$openclosed
<tr>
<th align=right nowrap>|.$locale->text('Order Number').qq|</th>
<td><input name=ordnumber size=11 value="$form->{ordnumber}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Order Date').qq|</th>
<td><input name=orddate size=11 title="$myconfig{dateformat}" value=$form->{orddate}></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>
<tr>
<td colspan=2>
<table>
<tr>
<th align=right nowrap>|.$locale->text('Terms: Net').qq|</th>
<td nowrap=true><input name=terms size="3" maxlength="3" value=$form->{terms}>|.$locale->text('days').qq|</td>
<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>
</table>
</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=shiptoaddr1 value="$form->{shiptoaddr1}">
<input type=hidden name=shiptoaddr2 value="$form->{shiptoaddr2}">
<input type=hidden name=shiptoaddr3 value="$form->{shiptoaddr3}">
<input type=hidden name=shiptoaddr4 value="$form->{shiptoaddr4}">
<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}, 50, 8)) < 2) {
$rows = 2;
}
$notes = qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
 
 
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=bottom>
<td>
<table>
<tr>
<th align=left>|.$locale->text('Notes').qq|</th>
</tr>
<tr>
<td>$notes</td>
</tr>
</table>
</td>
<td align=right width=100%>
<table width=100%>
$subtotal
$tax
<tr>
<th align=right>|.$locale->text('Total').qq|</th>
<td align=right>$form->{invtotal}</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
<input type=hidden name=oldinvtotal value=$form->{oldinvtotal}>
<input type=hidden name=oldtotalpaid value=$totalpaid>
<tr>
<td>
|;
 
&print_options;
 
print qq|
</td>
</tr>
<tr>
<td><hr size=3 noshade></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('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 ($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|">
<input class=submit type=submit name=action value="|.$locale->text('Invoice').qq|">
|;
}
 
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=password value=$form->{password}>
 
</form>
 
</body>
</html>
|;
 
}
 
 
sub update {
 
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
 
&check_name($form->{vc});
 
&check_project;
 
$buysell = 'buy';
$buysell = 'sell' if ($form->{vc} eq 'vendor');
$form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{orddate}, $buysell)));
 
my $i = $form->{rowcount};
$exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
 
if (($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "")) {
 
$form->{creditremaining} += ($form->{oldinvtotal} - $form->{oldtotalpaid});
&check_form;
} else {
if ($form->{type} eq 'purchase_order') {
IR->retrieve_item(\%myconfig, \%$form);
}
if ($form->{type} eq 'sales_order') {
IS->retrieve_item(\%myconfig, \%$form);
}
 
my $rows = scalar @{ $form->{item_list} };
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{discount} * 100);
 
if ($rows) {
$form->{"qty_$i"} = 1 unless ($form->{"qty_$i"});
if ($rows > 1) {
&select_item;
exit;
} else {
$sellprice = $form->parse_amount(\%myconfig, $form->{"sellprice_$i"});
map { $form->{item_list}[$i]{$_} =~ s/"/&quot;/g } 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;
}
$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;
$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
 
$form->{"id_$i"} = 0;
$form->{"unit_$i"} = $locale->text('ea');
 
&new_item;
}
}
}
 
 
 
sub search {
if ($form->{type} eq 'purchase_order') {
$form->{title} = $locale->text('Purchase Orders');
$form->{vc} = 'vendor';
}
if ($form->{type} eq 'sales_order') {
$form->{title} = $locale->text('Sales Orders');
$form->{vc} = 'customer';
}
 
# setup vendor / customer selection
$form->all_vc(\%myconfig, "$form->{vc}");
 
map { $vc .= "<option>$_->{name}--$_->{id}\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>|;
 
$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>
<tr>
<th align=right>|.$locale->text('Order Number').qq|</th>
<td colspan=3><input name=ordnumber size=20></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>
<tr>
<th align=right>|.$locale->text('Include in Report').qq|</th>
<td colspan=3>
<table>
<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>
<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> |.$locale->text('Order Number').qq|</td>
<td><input name="l_transdate" class=checkbox type=checkbox value=Y checked> |.$locale->text('Order 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_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>
</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=orders>
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
<input type=hidden name=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 orders {
 
$name = $form->{$form->{vc}};
# split vendor / customer
($form->{$form->{vc}}, $form->{"$form->{vc}_id"}) = split(/--/, $form->{$form->{vc}});
 
OE->transactions(\%myconfig, \%$form);
 
# construct href
$href = "$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}&ordnumber=" . $form->escape($form->{ordnumber}) . "&$form->{vc}=" . $form->escape($form->{$form->{vc}});
 
# construct callback
$name =~ s/&/_/g;
$callback = "$form->{script}?path=$form->{path}&action=orders&type=$form->{type}&vc=$form->{vc}&login=$form->{login}&password=$form->{password}&transdatefrom=$form->{transdatefrom}&transdateto=$form->{transdateto}&open=$form->{open}&closed=$form->{closed}&ordnumber=$form->{ordnumber}&$form->{vc}=$name";
 
@columns = $form->sort_columns(qw(transdate reqdate id ordnumber name netamount tax amount curr 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;
# 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->{vc} eq 'vendor') {
$form->{title} = $locale->text('Purchase Orders');
$name = $locale->text('Vendor');
}
if ($form->{vc} eq 'customer') {
$form->{title} = $locale->text('Sales Orders');
$name = $locale->text('Customer');
}
$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{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 class=listheading>|.$locale->text('Curr').qq|</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>|;
 
if ($form->{open}) {
$option = $locale->text('Open');
}
if ($form->{closed}) {
$option .= " : " if $form->{open};
$option .= $locale->text('Closed');
}
if ($form->{$form->{vc}}) {
$option .= "\n<br>";
$option .= ucfirst $form->{vc};
$option .= " : $form->{$form->{vc}}";
}
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);
}
$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>
<td colspan=$colspan>$option</td>
</tr>
<tr class=listheading>|;
 
map { print "\n$column_header{$_}" } @column_index;
 
print qq|
</tr>
|;
 
# add sort and escape callback
$callback = $form->escape($callback . "&sort=$form->{sort}");
 
if (@{ $form->{OE} }) {
$sameitem = $form->{OE}->[0]->{$form->{sort}};
}
 
foreach $oe (@{ $form->{OE} }) {
 
if ($form->{l_subtotal} eq 'Y') {
if ($sameitem ne $oe->{$form->{sort}}) {
&subtotal;
$sameitem = $oe->{$form->{sort}};
}
}
map { $oe->{$_} *= $oe->{exchangerate} } (qw(netamount amount));
$column_data{netamount} = "<td align=right>".$form->format_amount(\%myconfig, $oe->{netamount}, 2, "&nbsp;")."</td>";
$column_data{tax} = "<td align=right>".$form->format_amount(\%myconfig, $oe->{amount} - $oe->{netamount}, 2, "&nbsp;")."</td>";
$column_data{amount} = "<td align=right>".$form->format_amount(\%myconfig, $oe->{amount}, 2, "&nbsp;")."</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}&nbsp;</td>";
$column_data{reqdate} = "<td>$oe->{reqdate}&nbsp;</td>";
 
$column_data{ordnumber} = "<td><a href=oe.pl?path=$form->{path}&action=edit&type=$form->{type}&id=$oe->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$oe->{ordnumber}</a></td>";
$column_data{name} = "<td>$oe->{name}</td>";
 
if ($oe->{closed}) {
$column_data{closed} = "<td align=center>X</td>";
$column_data{open} = "<td>&nbsp;</td>";
} else {
$column_data{closed} = "<td>&nbsp;</td>";
$column_data{open} = "<td align=center>X</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>&nbsp;</td>" } @column_index;
$column_data{netamount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalnetamount, 2, "&nbsp;")."</th>";
$column_data{tax} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount - $totalnetamount, 2, "&nbsp;")."</th>";
$column_data{amount} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalamount, 2, "&nbsp;")."</th>";
 
map { print "\n$column_data{$_}" } @column_index;
 
print qq|
</tr>
<tr><td colspan=8><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=vc value=$form->{vc}>
 
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
 
<input class=submit type=submit name=action value=|.$locale->text('Add').qq|
 
</form>
 
</body>
</html>
|;
 
}
 
 
 
sub subtotal {
 
map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
$column_data{netamount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalnetamount, 2, "&nbsp;")."</th>";
$column_data{tax} = "<td class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount - $subtotalnetamount, 2, "&nbsp;")."</th>";
$column_data{amount} = "<th class=listsubtotal align=right>".$form->format_amount(\%myconfig, $subtotalamount, 2, "&nbsp;")."</th>";
 
$subtotalnetamount = 0;
$subtotalamount = 0;
 
print "<tr class=listsubtotal>";
map { print "\n$column_data{$_}" } @column_index;
 
print qq|
</tr>
|;
 
}
 
 
sub save {
 
$form->isblank("ordnumber", $locale->text('Order Number missing!'));
$form->isblank("orddate", $locale->text('Order 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('Exchangerate 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 notes section for the [email] Subject
$form->{label} = ($form->{type} eq 'sales_order') ? $locale->text('Sales Order') : $locale->text('Purchase Order');
 
$form->{id} = 0 if $form->{saveasnew};
$form->redirect($locale->text('Order saved!')) if (OE->save_order(\%myconfig, \%$form));
$form->error($locale->text('Cannot save order!'));
}
 
 
 
sub delete {
 
$form->header;
 
print qq|
<body>
 
<form method=post action=$form->{script}>
|;
 
# delete action variable
delete $form->{action};
 
foreach $key (keys %$form) {
$form->{$key} =~ s/"/&quot;/g;
print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
}
 
print qq|
<h2 class=confirm>|.$locale->text('Confirm!').qq|</h2>
 
<h4>|
.$locale->text('Are you sure you want to delete Order Number').qq| $form->{ordnumber}
</h4>
<p>
<input name=action class=submit type=submit value="|.$locale->text('Yes').qq|">
</form>
 
</body>
</html>
|;
 
 
}
 
 
 
sub yes {
 
$form->redirect($locale->text('Order deleted!')) if (OE->delete_order(\%myconfig, \%$form));
$form->error($locale->text('Cannot delete order!'));
 
}
 
 
sub invoice {
$form->isblank("ordnumber", $locale->text('Order Number missing!'));
$form->isblank("orddate", $locale->text('Order Date missing!'));
 
# if the name changed get new values
if (&check_name($form->{vc})) {
&update;
exit;
}
 
$form->{closed} = 1;
OE->save_order(\%myconfig, \%$form);
$form->{orddate} = $form->{transdate} = $form->{invdate} = $form->current_date(\%myconfig);
$form->{duedate} = $form->current_date(\%myconfig, $form->{invdate}, $form->{terms} * 1);
$form->{id} = '';
$form->{closed} = 0;
$form->{rowcount}--;
$form->{shipto} = 1;
 
&create_backorder;
 
if ($form->{type} eq 'purchase_order') {
$form->{title} = $locale->text('Add Purchase Invoice');
$form->{script} = 'ir.pl';
$script = "ir";
$buysell = 'sell';
}
if ($form->{type} eq 'sales_order') {
$form->{title} = $locale->text('Add Sales Invoice');
$form->{script} = 'is.pl';
$script = "is";
$buysell = 'buy';
}
# bo creates the id, reset it
map { $form->{$_} = "" } qw(type id subject message cc bcc);
$form->{$form->{vc}} =~ s/--.*//g;
# locale messages
$locale = new Locale "$myconfig{countrycode}", "$script";
 
require "$form->{path}/$form->{script}";
 
map { $form->{"select$_"} = "" } ($form->{vc}, currency);
 
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(creditlimit creditremaining);
 
$currency = $form->{currency};
&invoice_links;
 
$form->{currency} = $currency;
$form->{exchangerate} = "";
$form->{forex} = "";
$form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, $buysell)));
$form->{creditremaining} -= ($form->{oldinvtotal} - $form->{ordtotal});
 
&prepare_invoice;
 
# format amounts
for $i (1 .. $form->{rowcount}) {
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$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);
$form->{"qty_$i"} = $form->format_amount(\%myconfig, $form->{"qty_$i"});
 
map { $form->{"${_}_$i"} =~ s/"/&quot;/g } qw(partnumber description unit);
}
 
&display_form;
 
}
 
 
sub create_backorder {
 
# figure out if we need to create a backorder
# items aren't saved if qty != 0
 
for $i (1 .. $form->{rowcount}) {
$totalqty += $qty = $form->parse_amount($myconfig, $form->{"qty_$i"});
$totalship += $ship = $form->parse_amount($myconfig, $form->{"ship_$i"});
$form->{"qty_$i"} = $qty - $ship;
}
 
if ($totalship == 0) {
map { $form->{"ship_$_"} = $form->{"qty_$_"} } (1 .. $form->{rowcount});
$form->{ordtotal} = 0;
return;
}
 
if ($totalqty == $totalship) {
map { $form->{"qty_$_"} = $form->{"ship_$_"} } (1 .. $form->{rowcount});
$form->{ordtotal} = 0;
return;
}
 
@flds = (qw(partnumber description qty ship unit sellprice discount id inventory_accno bin income_accno expense_accno listprice assembly bom taxaccounts));
 
OE->save_order(\%myconfig, \%$form);
# rebuild rows for invoice
@a = ();
$count = 0;
 
for $i (1 .. $form->{rowcount}) {
# reformat values if there was a backorder quantity
if ($form->{"qty_$i"}) {
$form->{"discount_$i"} = $form->format_amount(\%myconfig, $form->{"discount_$i"});
$form->{"sellprice_$i"} = $form->format_amount(\%myconfig, $form->{"sellprice_$i"});
}
 
$form->{"qty_$i"} = $form->{"ship_$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;
&save;
 
}
 
 
/tags/v_2_0_6/bin/mozilla/rc.pl
New file
0,0 → 1,371
#=====================================================================
# 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.
#======================================================================
#
# Account reconciliation module
#
#======================================================================
 
 
use SL::RC;
 
 
1;
# end of main
 
 
sub reconciliation {
RC->paymentaccounts(\%myconfig, \%$form);
 
$selection = "";
map { $selection .= "<option>$_->{accno}--$_->{description}\n" } @{ $form->{PR} };
 
$form->{title} = $locale->text('Reconciliation');
 
$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>
</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=password value=$form->{password}>
 
<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);
&display_form;
 
}
 
 
sub display_form {
@column_index = qw(cleared transdate source name credit debit balance);
$column_header{cleared} = "<th class=listheading>&nbsp;</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>";
 
$column_header{debit} = "<th class=listheading>".$locale->text('Deposit')."</a></th>";
$column_header{credit} = "<th class=listheading>".$locale->text('Payment')."</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')."&nbsp;".$locale->date(\%myconfig, $form->{fromdate}, 1);
}
if ($form->{todate}) {
$option .= "\n<br>" if ($option);
$option .= $locale->text('to')."&nbsp;".$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>
|;
 
map { print "\n$column_header{$_}" } @column_index;
 
print qq|
</tr>
|;
 
$form->{beginningbalance} *= -1;
$clearedbalance = $balance = $form->{beginningbalance};
$i = 0;
$id = 0;
 
map { $column_data{$_} = "<td>&nbsp;</td>" } qw(cleared transdate source name debit credit);
$column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $balance, 2, 0)."</td>";
$j = 0;
print qq|
<tr class=listrow$j>
|;
 
map { print "\n$column_data{$_}" } @column_index;
 
print qq|
</tr>
|;
 
foreach $ref (@{ $form->{PR} }) {
 
$balance += $ref->{amount} * -1;
$cleared += $ref->{amount} * -1 if $ref->{cleared};
 
$column_data{name} = "<td>$ref->{name}&nbsp;</td>";
$column_data{source} = qq|<td>$ref->{source}&nbsp;</a>
</td>|;
$column_data{transdate} = "<td>$ref->{transdate}&nbsp;</td>";
$column_data{debit} = "<td>&nbsp;</td>";
$column_data{credit} = "<td>&nbsp;</td>";
if ($ref->{amount} < 0) {
$totaldebits += $ref->{amount} * -1;
$column_data{debit} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount} * -1, 2, "&nbsp;")."</td>";
} else {
$totalcredits += $ref->{amount};
$column_data{credit} = "<td align=right>".$form->format_amount(\%myconfig, $ref->{amount}, 2, "&nbsp;")."</td>";
}
$column_data{balance} = "<td align=right>".$form->format_amount(\%myconfig, $balance, 2, 0)."</td>";
 
if ($ref->{fx_transaction}) {
$i++ unless $id == $ref->{id};
$fx_transaction = 1;
$fx += $ref->{amount} * -1;
$column_data{cleared} = qq|<td align=center>&nbsp;
<input type=hidden name="fxoid_$i" value=$ref->{oid}>
</td>|;
} else {
$i++ unless ($fx_transaction && $id == $ref->{id});
$fx_transaction = 0;
$column_data{cleared} = qq|<td>
<input name="cleared_$i" type=checkbox class=checkbox value=1 $ref->{cleared}>
<input type=hidden name="oid_$i" value=$ref->{oid}>
</td>|;
}
$id = $ref->{id};
 
$j++; $j %= 2;
print qq|
<tr class=listrow$j>
|;
 
map { print "\n$column_data{$_}" } @column_index;
 
print qq|
</tr>
|;
 
}
 
# print totals
map { $column_data{$_} = "<td>&nbsp;</td>" } @column_index;
 
$column_data{debit} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totaldebits, 2, "&nbsp;")."</th>";
$column_data{credit} = "<th class=listtotal align=right>".$form->format_amount(\%myconfig, $totalcredits, 2, "&nbsp;")."</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->{statementbalance} - $clearedbalance - $cleared, 2, 0);
$form->{statementbalance} = $form->format_amount(\%myconfig, $form->{statementbalance}, 2, 0);
 
$clearedbalance = $form->format_amount(\%myconfig, $clearedbalance, 2, 0);
if ($fx) {
$fx = $form->format_amount(\%myconfig, $fx, 2, 0);
$exchdiff = qq|
<th align=right nowrap>|.$locale->text('Exchangerate Difference').qq|</th>
<td width=10%></td>
<td align=right>$fx</td>
|;
}
 
print qq|
</tr>
</table>
</td>
</tr>
<tr>
<td>
<table width=100%>
<tr valign=top>
<td>
<table>
<tr>
<th align=right nowrap>|.$locale->text('Cleared Balance').qq|</th>
<td width=10%></td>
<td align=right>$clearedbalance</td>
</tr>
<tr>
$exchdiff
</tr>
</table>
</td>
<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=none 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=rowcount value=$i>
<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=password value=$form->{password}>
 
<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|">
 
</form>
 
</body>
</html>
|;
 
}
 
 
sub update {
RC->payment_transactions(\%myconfig, \%$form);
 
foreach $ref (@{ $form->{PR} }) {
if (!$ref->{fx_transaction}) {
$i++;
$ref->{cleared} = "checked" if $form->{"cleared_$i"};
}
}
 
&display_form;
}
 
 
sub select_all {
RC->payment_transactions(\%myconfig, \%$form);
 
map { $_->{cleared} = "checked" unless $_->{fx_transaction} } @{ $form->{PR} };
 
&display_form;
}
 
 
sub done {
 
$form->{callback} = "$form->{script}?path=$form->{path}&action=reconciliation&login=$form->{login}&password=$form->{password}";
 
$form->error($locale->text('Out of balance!')) if ($form->{difference} *= 1);
 
RC->reconcile(\%myconfig, \%$form);
$form->redirect;
}
 
 
/tags/v_2_0_6/bin/mozilla/pe.pl
New file
0,0 → 1,329
#=====================================================================
# SQL-Ledger Accounting
# Copyright (c) 1998-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
#
#======================================================================
 
 
use SL::PE;
 
1;
# end of main
 
 
 
sub add {
$form->{title} = "Add";
# construct callback
$form->{callback} = "$form->{script}?action=add&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback};
 
&form_header;
&form_footer;
}
 
 
sub edit {
$form->{title} = "Edit";
 
PE->get_project(\%myconfig, \%$form);
&form_header;
&form_footer;
}
 
 
sub search {
 
$form->{title} = $locale->text('Projects');
 
$form->header;
 
print qq|
<body>
 
<form method=post action=$form->{script}>
 
<input type=hidden name=sort value=projectnumber>
 
<table width=100%>
<tr>
<th class=listtop>$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr>
<td>
<table width=100%>
<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>
<tr>
<td></td>
<td><input name=status class=radio type=radio value=all checked>&nbsp;|.$locale->text('All').qq|
<input name=status class=radio type=radio value=orphaned>&nbsp;|.$locale->text('Orphaned').qq|</td>
</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=password value=$form->{password}>
 
<br>
<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
</form>
 
</body>
</html>
|;
 
}
 
 
 
sub generate_report {
 
map { $form->{$_} = $form->unescape($form->{$_}) } (projectnumber, description);
PE->projects(\%myconfig, \%$form);
 
$callback = "$form->{script}?action=generate_report&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}";
$href = $callback;
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&status=$form->{status}&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{projectnumber}</td>|;
$column_data{description} = qq|<td>$ref->{description}&nbsp;</td>|;
map { print "$column_data{$_}\n" } @column_index;
print "
</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=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
 
<input class=submit type=submit name=action value="|.$locale->text('Add').qq|">
 
</body>
</html>
|;
 
}
 
 
sub form_header {
 
$form->{title} = $locale->text("$form->{title} Project");
# $locale->text('Add Project')
# $locale->text('Edit Project')
 
$form->{description} =~ s/"/&quot;/g;
 
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 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=password value=$form->{password}>
 
<br><input type=submit class=submit name=action value="|.$locale->text('Save').qq|">
|;
 
if ($form->{status} eq 'orphaned') {
print qq|
<input type=submit class=submit name=action value="|.$locale->text('Delete').qq|">|;
}
 
print qq|
</form>
 
</body>
</html>
|;
 
}
 
 
sub save {
 
$form->isblank("projectnumber", $locale->text('Project Number missing!'));
PE->save_project(\%myconfig, \%$form);
$form->redirect($locale->text('Project saved!'));
 
}
 
 
sub delete {
 
PE->delete_project(\%myconfig, \%$form);
$form->redirect($locale->text('Project deleted!'));
 
}
 
 
sub continue { &{ $form->{nextsub} } };
 
/tags/v_2_0_6/bin/mozilla/menu.pl
New file
0,0 → 1,158
######################################################################
# SQL-Ledger Accounting
# Copyright (c) 1998-2002
#
# 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
#
# CHANGE LOG:
# DS. 2002-03-25 Created
#######################################################################
 
$menufile = "menu.ini";
use SL::Menu;
 
 
1;
# end of main
 
 
sub display {
 
$framesize = ($ENV{HTTP_USER_AGENT} =~ /links/i) ? "240" : "135";
 
$form->header;
 
print qq|
 
<FRAMESET COLS="$framesize,*" BORDER="1">
 
<FRAME NAME="acc_menu" SRC="$form->{script}?login=$form->{login}&password=$form->{password}&action=acc_menu&path=$form->{path}">
<FRAME NAME="main_window" SRC="login.pl?login=$form->{login}&password=$form->{password}&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>
 
|;
 
&section_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 = "&nbsp;" x (($item =~ s/--/--/g) * 2);
 
$label =~ s/.*--//g;
$label = $locale->text($label);
$label =~ s/ /&nbsp;/g;
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;
&section_menu($menu, $item);
 
print qq|<br>\n|;
 
} else {
print qq|<br>\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label&nbsp;...</a>|;
 
# remove same level items
map { shift @menuorder } grep /^$item/, @menuorder;
 
}
 
} else {
if ($menu->{$item}{module}) {
if ($form->{$item} && $form->{level} eq $item) {
$menu->{$item}{$item} = !$form->{$item};
print qq|<br>\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a>|;
# remove same level items
map { shift @menuorder } grep /^$item/, @menuorder;
&section_menu($menu, $item);
 
} else {
print qq|<br>\n$spacer|.$menu->menuitem(\%myconfig, \%$form, $item, $level).qq|$label</a>|;
}
} else {
print qq|<br><b>$label</b>|;
&section_menu($menu, $item);
 
print qq|<br>\n|;
}
}
}
}
 
 
/tags/v_2_0_6/bin/mozilla/ct.pl
New file
0,0 → 1,631
#=====================================================================
# SQL-Ledger Accounting
# Copyright (c) 1998-2002
#
# 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
#
#======================================================================
 
# $locale->text('Customers')
# $locale->text('Vendors')
 
use SL::CT;
 
1;
# end of main
 
 
 
sub add {
 
$form->{title} = "Add";
 
$form->{callback} = "$form->{script}?action=add&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback};
 
CT->taxaccounts(\%myconfig, \%$form);
&form_header;
&form_footer;
}
 
 
sub search {
 
$label = ucfirst $form->{db};
$form->{title} = $locale->text($label."s");
$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('Number').qq|</th>
<td><input name=$form->{db}number size=35></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Name').qq|</th>
<td><input name=name size=35></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Contact').qq|</th>
<td><input name=contact size=35></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('E-mail').qq|</th>
<td><input name=email size=35></td>
</tr>
<tr>
<td></td>
<td><input name=status class=radio type=radio value=all checked>&nbsp;|.$locale->text('All').qq|
<input name=status class=radio type=radio value=orphaned>&nbsp;|.$locale->text('Orphaned').qq|</td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Include in Report').qq|</th>
<td>
<input name="l_$form->{db}number" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Number').qq|
<input name="l_name" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Name').qq|
<input name="l_address" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Address').qq|<br>
<input name="l_contact" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Contact').qq|
<input name="l_phone" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('Phone').qq|
<input name="l_fax" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Fax').qq|
<input name="l_email" type=checkbox class=checkbox value=Y checked>&nbsp;|.$locale->text('E-mail').qq|
<input name="l_cc" type=checkbox class=checkbox value=Y>&nbsp;|.$locale->text('Cc').qq|
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
 
<input type=hidden name=nextsub value=list_names>
 
<input type=hidden name=path value=$form->{path}>
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
 
<br>
<input type=submit class=submit name=action value="|.$locale->text('Continue').qq|">
</form>
 
</body>
</html>
|;
}
 
 
sub list_names {
CT->search(\%myconfig, \%$form);
$callback = "$form->{script}?action=list_names&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}";
$href = $callback;
@columns = $form->sort_columns(name, "$form->{db}number", address, contact, phone, fax, email, cc);
 
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->{status} eq 'all') {
$option = $locale->text('All');
}
if ($form->{status} eq 'orphaned') {
$option .= $locale->text('Orphaned');
}
if ($form->{name}) {
$callback .= "&name=$form->{name}";
$href .= "&name=".$form->escape($form->{name});
$option .= "\n<br>".$locale->text('Name')." : $form->{name}";
}
if ($form->{contact}) {
$callback .= "&contact=$form->{contact}";
$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->{"$form->{db}number"}|;
$href .= "&$form->{db}number=".$form->escape($form->{"$form->{db}number"});
$option .= "\n<br>".$locale->text('Number').qq| : $form->{"$form->{db}number"}|;
}
if ($form->{email}) {
$callback .= "&email=$form->{email}";
$href .= "&email=".$form->escape($form->{email});
$option .= "\n<br>".$locale->text('E-mail')." : $form->{email}";
}
 
$form->{callback} = "$callback&sort=$form->{sort}";
$callback = $form->escape($form->{callback});
$column_header{"$form->{db}number"} = qq|<th><a class=listheading href=$href&sort=$form->{db}number>|.$locale->text('Number').qq|</a></th>|;
$column_header{name} = qq|<th><a class=listheading href=$href&sort=name>|.$locale->text('Name').qq|</a></th>|;
$column_header{address} = qq|<th><a class=listheading href=$href&sort=address>|.$locale->text('Address').qq|</a></th>|;
$column_header{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>|;
$label = ucfirst $form->{db}."s";
$form->{title} = $locale->text($label);
 
$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->{CT} }) {
 
map { $column_data{$_} = "<td>$ref->{$_}&nbsp;</td>" } ("$form->{db}number", address, contact, phone, fax);
$column_data{name} = "<td><a href=$form->{script}?action=edit&id=$ref->{id}&db=$form->{db}&path=$form->{path}&login=$form->{login}&password=$form->{password}&status=$form->{status}&callback=$callback>$ref->{name}&nbsp;</td>";
$column_data{email} = ($ref->{email}) ? qq|<td><a href="mailto:$ref->{email}">$ref->{email}</a></td>| : "<td>&nbsp;</td>";
$column_data{cc} = ($ref->{cc}) ? qq|<td><a href="mailto:$ref->{cc}">$ref->{cc}</a></td>| : "<td>&nbsp;</td>";
$i++; $i %= 2;
print "
<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>
 
<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=password value=$form->{password}>
 
<input class=submit type=submit name=action value="|.$locale->text('Add').qq|">
 
</form>
 
</body>
</html>
|;
}
 
 
sub edit {
 
# $locale->text('Edit Customer')
# $locale->text('Edit Vendor')
 
CT->get_tuple(\%myconfig, \%$form);
 
# format " into &quot;
map { $form->{$_} =~ s/"/&quot;/g } keys %$form;
 
$form->{title} = "Edit";
 
# format discount
$form->{discount} *= 100;
&form_header;
&form_footer;
 
}
 
 
sub form_header {
 
foreach $item (split / /, $form->{taxaccounts}) {
if (($form->{tax}{$item}{taxable}) || !($form->{id})) {
$taxable .= qq| <input name="tax_$item" value=1 class=checkbox type=checkbox checked>&nbsp;<b>$form->{tax}{$item}{description}</b>|;
} else {
$taxable .= qq| <input name="tax_$item" value=1 class=checkbox type=checkbox>&nbsp;<b>$form->{tax}{$item}{description}</b>|;
}
}
 
$tax = qq|
<tr>
<td>
<table>
<tr>
<th align=right>|.$locale->text('Taxable').qq|</th>
<td>$taxable</td>
</tr>
</table>
</td>
</tr>
|;
 
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
$form->{creditlimit} = $form->format_amount(\%myconfig, $form->{creditlimit}, 0);
if ($myconfig{admin}) {
$bcc = qq|
<tr>
<th align=right nowrap>|.$locale->text('Bcc').qq|</th>
<td><input name=bcc size=35 value="$form->{bcc}"></td>
</tr>
|;
}
$label = ucfirst $form->{db};
$form->{title} = $locale->text("$form->{title} $label");
 
if ($form->{db} eq 'customer') {
$creditlimit = qq|
<th align=right>|.$locale->text('Credit Limit').qq|</th>
<td><input name=creditlimit size=9 value="$form->{creditlimit}"></td>
<th align=right>|.$locale->text('Discount').qq|</th>
<td><input name=discount size=4 value="$form->{discount}"></td>
<th>%</th>
|;
}
 
$form->header;
 
print qq|
<body>
 
<form method=post action=$form->{script}>
 
<table width=100%>
<tr>
<th class=listtop>$form->{title}</th>
</tr>
<tr>
<td>
<table width=100%>
<tr class=listheading>
<th class=listheading colspan=2 width=50%">&nbsp;</th>
<th class=listheading width=50%">|.$locale->text('Ship to').qq|</th>
</tr>
<tr height="5"></tr>
<tr>
<th align=right nowrap>|.$locale->text('Number').qq|</th>
<td><input name="$form->{db}number" size=35 maxsize=35 value="$form->{"$form->{db}number"}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Name').qq|</th>
<td><input name=name size=35 maxsize=35 value="$form->{name}"></td>
<td><input name=shiptoname size=35 maxsize=35 value="$form->{shiptoname}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Address').qq|</th>
<td><input name=addr1 size=35 maxsize=35 value="$form->{addr1}"></td>
<td><input name=shiptoaddr1 size=35 maxsize=35 value="$form->{shiptoaddr1}"></td>
</tr>
<tr>
<th></th>
<td><input name=addr2 size=35 maxsize=35 value="$form->{addr2}"></td>
<td><input name=shiptoaddr2 size=35 maxsize=35 value="$form->{shiptoaddr2}"></td>
</tr>
<tr>
<th></th>
<td><input name=addr3 size=35 maxsize=35 value="$form->{addr3}"></td>
<td><input name=shiptoaddr3 size=35 maxsize=35 value="$form->{shiptoaddr3}"></td>
</tr>
<tr>
<th></th>
<td><input name=addr4 size=35 maxsize=35 value="$form->{addr4}"></td>
<td><input name=shiptoaddr4 size=35 maxsize=35 value="$form->{shiptoaddr4}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Contact').qq|</th>
<td><input name=contact size=35 maxsize=35 value="$form->{contact}"></td>
<td><input name=shiptocontact size=35 maxsize=35 value="$form->{shiptocontact}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Phone').qq|</th>
<td><input name=phone size=20 maxsize=20 value="$form->{phone}"></td>
<td><input name=shiptophone size=20 maxsize=20 value="$form->{shiptophone}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Fax').qq|</th>
<td><input name=fax size=20 maxsize=20 value="$form->{fax}"></td>
<td><input name=shiptofax size=20 maxsize=20 value="$form->{shiptofax}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('E-mail').qq|</th>
<td><input name=email size=35 value="$form->{email}"></td>
<td><input name=shiptoemail size=35 value="$form->{shiptoemail}"></td>
</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>
</tr>
<tr>
<td>
<table width=100%>
<tr>
<th align=right>|.$locale->text('Terms: Net').qq|</th>
<td><input name=terms size=2 value="$form->{terms}"></td>
<th>|.$locale->text('days').qq|</th>
$creditlimit
<td><input name=taxincluded class=checkbox type=checkbox value=1 $form->{taxincluded}></td>
<th align=left>|.$locale->text('Tax Included').qq|</th>
</tr>
</table>
</td>
</tr>
$tax
<tr>
<th align=left nowrap>|.$locale->text('Notes').qq|</th>
</tr>
<tr>
<td><textarea name=notes rows=3 cols=60 wrap=soft>$form->{notes}</textarea></td>
</tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
|;
 
}
 
 
 
sub form_footer {
 
$label = ucfirst $form->{db};
 
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=password value=$form->{password}>
 
<input type=hidden name=callback value="$form->{callback}">
<input type=hidden name=db value=$form->{db}>
 
<br>
 
<input class=submit type=submit name=action value="|.$locale->text("Save").qq|">
<input class=submit type=submit name=action value="|.$locale->text("Invoice").qq|">
<input class=submit type=submit name=action value="|.$locale->text('Order').qq|">
|;
 
if ($form->{id} && $form->{status} eq 'orphaned') {
print qq|<input class=submit type=submit name=action value="|.$locale->text('Delete').qq|">\n|;
}
 
print qq|
</form>
 
</body>
</html>
|;
 
}
 
 
sub invoice { &{ "$form->{db}_invoice" } };
 
sub customer_invoice {
 
$form->isblank("name", $locale->text("Name missing!"));
CT->save_customer(\%myconfig, \%$form);
delete $form->{script};
$form->{action} = "add";
$form->{callback} = $form->escape($form->{callback},1);
 
$form->{customer} = $form->{name};
$form->{customer_id} = $form->{id};
$form->{vc} = 'customer';
 
delete $form->{id};
 
map { $argv .= "$_=$form->{$_}&" } keys %$form;
exec ("perl", "is.pl", $argv);
 
}
 
 
sub vendor_invoice {
 
$form->isblank("name", $locale->text("Name missing!"));
CT->save_vendor(\%myconfig, \%$form);
delete $form->{script};
$form->{action} = "add";
$form->{callback} = $form->escape($form->{callback},1);
 
$form->{vendor} = $form->{name};
$form->{vendor_id} = $form->{id};
$form->{vc} = 'vendor';
delete $form->{id};
 
map { $argv .= "$_=$form->{$_}&" } keys %$form;
exec ("perl", "ir.pl", $argv);
 
}
 
 
sub order { &{ "$form->{db}_order" } };
 
sub customer_order {
 
$form->isblank("name", $locale->text("Name missing!"));
CT->save_customer(\%myconfig, \%$form);
delete $form->{script};
$form->{action} = "add";
$form->{callback} = $form->escape($form->{callback},1);
$form->{customer} = $form->{name};
$form->{customer_id} = $form->{id};
$form->{vc} = 'customer';
 
$form->{type} = 'sales_order';
delete $form->{id};
 
map { $argv .= "$_=$form->{$_}&" } keys %$form;
exec ("perl", "oe.pl", $argv);
 
}
 
 
sub vendor_order {
 
$form->isblank("name", $locale->text("Name missing!"));
CT->save_vendor(\%myconfig, \%$form);
delete $form->{script};
$form->{action} = "add";
$form->{callback} = $form->escape($form->{callback},1);
$form->{vendor} = $form->{name};
$form->{vendor_id} = $form->{id};
$form->{vc} = 'vendor';
 
$form->{type} = 'purchase_order';
 
delete $form->{id};
 
map { $argv .= "$_=$form->{$_}&" } keys %$form;
exec ("perl", "oe.pl", $argv);
 
}
 
 
sub save { &{ "save_$form->{db}" } };
 
sub save_customer {
 
$form->isblank("name", $locale->text("Name missing!"));
CT->save_customer(\%myconfig, \%$form);
$form->redirect($locale->text('Customer saved!'));
}
 
 
sub save_vendor {
 
$form->isblank("name", $locale->text("Name missing!"));
CT->save_vendor(\%myconfig, \%$form);
$form->redirect($locale->text('Vendor saved!'));
}
 
 
sub delete { &{ "delete_$form->{db}" } };
 
sub delete_customer {
 
$rc = CT->delete_customer(\%myconfig, \%$form);
$form->error($locale->text('Transactions exist, cannot delete customer!')) if ($rc == -1);
$form->redirect($locale->text('Customer deleted!')) if $rc;
$form->error($locale->text('Cannot delete customer!'));
 
}
 
 
sub delete_vendor {
 
$rc = CT->delete_vendor(\%myconfig, \%$form);
$form->error($locale->text('Transactions exist, cannot delete vendor!')) if ($rc == -1);
$form->redirect($locale->text('Vendor deleted!')) if $rc;
$form->error($locale->text('Cannot delete vendor!'));
 
}
 
 
sub continue { &{ $form->{nextsub} } };
 
 
/tags/v_2_0_6/bin/mozilla/io.pl
New file
0,0 → 1,1128
######################################################################
# SQL-Ledger, Accounting
# Copyright (c) 1998-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 = (partnumber, description, qty);
if ($form->{type} eq "sales_order") {
if ($form->{id}) {
push @column_index, "ship";
$column_data{ship} = qq|<th class=listheading align=left width="auto">|.$locale->text('Ship').qq|</th>|;
}
}
if ($form->{type} eq "purchase_order") {
if ($form->{id}) {
push @column_index, "ship";
$column_data{ship} = qq|<th class=listheading align=left width="auto">|.$locale->text('Recd').qq|</th>|;
}
}
push @column_index, qw(unit sellprice);
if ($form->{script} eq 'is.pl' || $form->{type} eq 'sales_order') {
push @column_index, qw(discount);
}
push @column_index, "linetotal";
 
my $colspan = $#column_index + 1;
 
$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{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>
|;
 
 
$projectnumber = $locale->text('Project');
$runningnumber = $locale->text('No.');
if ($form->{type} =~ /_order/) {
$reqdate = $locale->text('Required by');
$delvar = "reqdate";
} else {
$deliverydate = $locale->text('Delivery Date');
$delvar = "deliverydate";
}
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;
$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);
 
# convert " to &quot;
map { $form->{"${_}_$i"} =~ s/"/&quot;/g } qw(partnumber description unit);
$column_data{partnumber} = qq|<td><input name="partnumber_$i" size=20 value="$form->{"partnumber_$i"}"></td>|;
 
if (($rows = $form->numtextrows($form->{"description_$i"}, 30, 6)) > 1) {
$column_data{description} = qq|<td><textarea name="description_$i" rows=$rows cols=30 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{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 maxsize=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="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="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="bom_$i" value="$form->{"bom_$i"}">
<input type=hidden name="taxaccounts_$i" value="$form->{"taxaccounts_$i"}">
 
|;
 
# print second row
print qq|
<tr>
<td colspan=$colspan>
<table>
<tr>
<th>$runningnumber</th>
<td><input name="runningnumber_$i" size=3 value=$i></td>
<td width=20></td>
<th>${$delvar}</th>
<td><input name="${delvar}_$i" size=11 title="$myconfig{dateformat}" value="$form->{"${delvar}_$i"}"></td>
<th>$projectnumber</th>
<td><input name="projectnumber_$i" size=25 value="$form->{"projectnumber_$i"}">
<input type=hidden name="oldprojectnumber_$i" value="$form->{"oldprojectnumber_$i"}">
<input type=hidden name="project_id_$i" value="$form->{"project_id_$i"}"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan=$colspan><hr size=1 noshade></td>
</tr>
|;
 
map { $form->{"${_}_base"} += $linetotal } (split / /, $form->{"taxaccounts_$i"});
$form->{invsubtotal} += $linetotal;
}
 
print qq|
</table>
</td>
</tr>
|;
 
}
 
 
sub select_item {
@column_index = qw(ndx partnumber description onhand sellprice);
 
$column_data{ndx} = qq|<th>&nbsp;</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{sellprice} = qq|<th class=listheading>|.$locale->text('Price').qq|</th>|;
$column_data{onhand} = qq|<th class=listheading>|.$locale->text('Qty').qq|</th>|;
# list items with radio button on a form
$form->header;
 
$title = $locale->text('Select from one of the items below');
$colspan = $#column_index + 1;
 
print qq|
<body>
 
<form method=post action=$form->{script}>
 
<table width=100%>
<tr>
<th class=listtop colspan=$colspan>$title</th>
</tr>
<tr height="5"></tr>
<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->{$_} =~ s/"/&quot;/g } qw(partnumber description unit);
 
$column_data{ndx} = qq|<td><input name=ndx class=radio type=radio value=$i $checked></td>|;
$column_data{partnumber} = qq|<td><input name="new_partnumber_$i" type=hidden value="$ref->{partnumber}">$ref->{partnumber}</td>|;
$column_data{description} = qq|<td><input name="new_description_$i" type=hidden value="$ref->{description}">$ref->{description}</td>|;
$column_data{sellprice} = qq|<td align=right><input name="new_sellprice_$i" type=hidden value=$ref->{sellprice}>|.$form->format_amount(\%myconfig, $ref->{sellprice}, 2, "&nbsp;").qq|</td>|;
$column_data{onhand} = qq|<td align=right><input name="new_onhand_$i" type=hidden value=$ref->{onhand}>|.$form->format_amount(\%myconfig, $ref->{onhand}, '', "&nbsp;").qq|</td>|;
$j++; $j %= 2;
print qq|
<tr class=listrow$j>|;
 
map { print "\n$column_data{$_}" } @column_index;
 
print qq|
</tr>
 
<input name="new_bin_$i" type=hidden value="$ref->{bin}">
<input name="new_listprice_$i" type=hidden value=$ref->{listprice}>
<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_assembly_$i" type=hidden value="$ref->{assembly}">
<input name="new_bom_$i" type=hidden value="$ref->{bom}">
<input name="new_taxaccounts_$i" type=hidden value="$ref->{taxaccounts}">
 
<input name="new_id_$i" type=hidden value=$ref->{id}>
 
|;
 
}
print qq|
<tr><td colspan=8><hr size=3 noshade></td></tr>
</table>
 
<input name=lastndx type=hidden value=$i>
 
|;
 
# delete action variable
delete $form->{action};
delete $form->{item_list};
# save all other form variables
foreach $key (keys %${form}) {
$form->{$key} =~ s/"/&quot;/g;
print qq|<input name=$key type=hidden value="$form->{$key}">\n|;
}
 
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 description sellprice listprice inventory_accno income_accno expense_accno bin unit weight assembly bom taxaccounts);
 
($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);
}
}
$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 description sellprice bin listprice inventory_accno income_accno expense_accno unit assembly bom taxaccounts id);
}
map { delete $form->{$_} } qw(ndx lastndx nextsub);
 
# format amounts
map { $form->{"${_}_$i"} = $form->format_amount(\%myconfig, $form->{"${_}_$i"}, $decimalplaces) } qw(sellprice listprice);
 
&display_form;
}
 
 
sub new_item {
 
# 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 previous_form variable
foreach $key (keys %$form) {
# escape ampersands
$form->{$key} =~ s/&/%26/g;
$previous_form .= qq|$key=$form->{$key}&|;
}
chop $previous_form;
$previous_form = $form->escape($previous_form, 1);
 
$i = $form->{rowcount};
map { $form->{"${_}_$i"} =~ s/"/&quot;/g } qw(partnumber description);
 
$form->header;
 
print qq|
<body>
 
<h4 class=error>|.$locale->text('Item not on file!').qq|
 
<p>
|.$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>&nbsp;|.$locale->text('Part')
.qq|<br>
<input class=radio type=radio name=item value=service>&nbsp;|.$locale->text('Service')
 
.qq|
<input type=hidden name=previous_form value="$previous_form">
<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=password value=$form->{password}>
 
<input type=hidden name=nextsub value=add>
 
<p>
<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
</form>
 
</body>
</html>
|;
 
}
 
 
 
sub display_form {
 
&form_header;
 
$numrows = ++$form->{rowcount};
$subroutine = "display_row";
 
if ($form->{item} eq 'part') {
$numrows = ++$form->{makemodel_rows};
$subroutine = "makemodel_row";
}
if ($form->{item} eq 'assembly') {
$numrows = ++$form->{makemodel_rows};
$subroutine = "makemodel_row";
# create makemodel rows
&{ $subroutine }($numrows);
 
$numrows = ++$form->{assembly_rows};
$subroutine = "assembly_row";
}
if ($form->{item} eq 'service') {
$numrows = 0;
}
 
# create rows
&{ $subroutine }($numrows) if $numrows;
 
&form_footer;
 
}
 
 
 
sub check_form {
my @a = ();
my $count = 0;
my @flds = (qw(id partnumber description qty sellprice unit discount inventory_accno income_accno expense_accno listprice taxaccounts bin assembly bom weight projectnumber project_id oldprojectnumber runningnumber));
 
# remove any makes or model rows
if ($form->{item} eq 'part') {
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(listprice sellprice weight rop);
@flds = (make, model);
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;
 
} elsif ($form->{item} eq 'assembly') {
$form->{sellprice} = 0;
$form->{weight} = 0;
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(listprice rop);
 
@flds = qw(id qty partnumber description sellprice weight runningnumber);
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;
 
$form->{sellprice} += ($form->{"qty_$i"} * $form->{"sellprice_$i"});
$form->{weight} += ($form->{"qty_$i"} * $form->{"weight_$i"});
$count++;
}
}
 
$form->{sellprice} = $form->round_amount($form->{sellprice}, 2);
$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;
 
} else {
 
# this section applies to invoices and orders
# remove any empty numbers
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 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 order {
 
$form->{ordnumber} = $form->{invnumber};
 
$form->{id} = '';
 
if ($form->{script} eq 'ir.pl') {
$form->{title} = $locale->text('Add Purchase Order');
$form->{vc} = 'vendor';
$form->{type} = 'purchase_order';
$buysell = 'sell';
}
if ($form->{script} eq 'is.pl') {
$form->{title} = $locale->text('Add Sales Order');
$form->{vc} = 'customer';
$form->{type} = 'sales_order';
$buysell = 'buy';
}
$form->{script} = 'oe.pl';
 
$form->{shipto} = 1;
$form->{rowcount}--;
 
require "$form->{path}/$form->{script}";
 
map { $form->{"select$_"} = "" } ($form->{vc}, currency);
$currency = $form->{currency};
&order_links;
 
$form->{currency} = $currency;
$form->{exchangerate} = "";
$form->{forex} = "";
$form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{orddate}, $buysell)));
&prepare_order;
&display_form;
 
}
 
 
sub e_mail {
 
 
if ($myconfig{admin}) {
$bcc = qq|
<th align=right nowrap=true>|.$locale->text('Bcc').qq|</th>
<td><input name=bcc size=30 value="$form->{bcc}"></td>
|;
}
 
if ($form->{type} eq 'packing_list') {
$form->{email} = $form->{shiptoemail} if $form->{shiptoemail};
}
 
$name = $form->{$form->{vc}};
$name =~ s/--.*//g;
$title = $locale->text('E-mail')." $name";
$form->{oldmedia} = $form->{media};
$form->{media} = "email";
$form->header;
 
print qq|
<body>
 
<form method=post action=$form->{script}>
 
<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('To').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);
# save all other variables
foreach $key (keys %$form) {
$form->{$key} =~ s/"/&quot;/g;
print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
}
 
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} = $form->{oldmedia};
&print_form($old_form);
}
 
sub print_options {
 
$form->{sendmode} = "attachment";
$form->{copies} = 3 unless $form->{copies};
$form->{PD}{$form->{type}} = "checked";
$form->{DF}{$form->{format}} = "checked";
$form->{OP}{$form->{media}} = "checked";
$form->{SM}{$form->{sendmode}} = "checked";
if ($form->{type} =~ /_order/) {
$order = qq|
<td><input class=radio type=radio name=type value="$`_order" $form->{PD}{"$`_order"}></td><td>|.$locale->text('Order').qq|</td>
|;
} else {
$invoice = qq|
<td><input class=radio type=radio name=type value=invoice $form->{PD}{invoice}></td><td>|.$locale->text('Invoice').qq|</td>
<td><input class=radio type=radio name=type value=packing_list $form->{PD}{packing_list}></td><td>|.$locale->text('Packing List').qq|</td>
|;
}
 
if ($form->{media} eq 'email') {
$email = qq|
<td><input class=radio type=radio name=sendmode value=attachment $form->{SM}{attachment}> |.$locale->text('Attachment')
.qq| <input class=radio type=radio name=sendmode value=inline $form->{SM}{inline}> |.$locale->text('In-line').qq|</td>
|;
} else {
$screen = qq|
<td><input class=radio type=radio name=media value=screen $form->{OP}{screen}></td>
<td>|.$locale->text('Screen').qq|</td>
|;
}
 
print qq|
<table width=100%>
<tr valign=top>
$invoice
$order
<td><input class=radio type=radio name=format value=html $form->{DF}{html}></td>
<td>html</td>
|;
 
if ($latex) {
print qq|
<td><input class=radio type=radio name=format value=postscript $form->{DF}{postscript}></td>
<td>|.$locale->text('Postscript').qq|</td>
<td><input class=radio type=radio name=format value=pdf $form->{DF}{pdf}></td>
<td>|.$locale->text('PDF').qq|</td>
|;
}
 
print qq|
$screen
|;
 
if ($screen) {
if ($myconfig{printer} && $latex) {
print qq|
<td><input class=radio type=radio name=media value=printer $form->{OP}{printer}></td>
<td>|.$locale->text('Printer')
.qq| (|.$locale->text('Copies')
.qq| <input name=copies size=2 value=$form->{copies}>)</td>
|;
}
}
 
print qq|
$email
</tr>
</table>
|;
 
}
 
 
sub print {
# if this goes to the printer pass through
if ($form->{media} eq 'printer') {
$form->error($locale->text('Select postscript or PDF!')) if ($form->{format} !~ /(postscript|pdf)/);
 
$old_form = new Form;
map { $old_form->{$_} = $form->{$_} } keys %$form;
}
 
&print_form($old_form);
 
}
 
 
sub print_form {
my $old_form = shift;
$inv = "inv";
$due = "due";
 
if ($form->{type} eq "invoice") {
$form->{label} = $locale->text('Invoice');
}
if ($form->{type} eq "packing_list") {
$form->{label} = $locale->text('Packing List');
}
if ($form->{type} eq 'sales_order') {
$inv = "ord";
$due = "req";
$form->{label} = $locale->text('Sales Order');
}
if ($form->{type} eq 'purchase_order') {
$inv = "ord";
$due = "req";
$form->{label} = $locale->text('Purchase Order');
}
 
$form->isblank("email", $locale->text('E-mail address missing!')) if ($form->{media} eq 'email');
$form->isblank("${inv}number", $locale->text($form->{label} .' Number missing!'));
$form->isblank("${inv}date", $locale->text($form->{label} .' Date missing!'));
 
# $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!')
 
&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});
# create the form variables for the invoice, packing list or order
if ($form->{type} =~ /order$/) {
OE->order_details(\%myconfig, \%$form);
} else {
IS->invoice_details(\%myconfig, \%$form);
}
 
$form->{"${inv}date"} = $locale->date(\%myconfig, $form->{"${inv}date"}, 1);
$form->{"${due}date"} = $locale->date(\%myconfig, $form->{"${due}date"}, 1);
@a = qw(name addr1 addr2 addr3 addr4);
$fillshipto = 1;
# if there is no shipto fill it in from billto
foreach $item (@a) {
if ($form->{"shipto$item"}) {
$fillshipto = 0;
last;
}
}
 
if ($fillshipto) {
if ($form->{type} eq 'purchase_order') {
$form->{shiptoname} = $myconfig{company};
$form->{shiptoaddr1} = $myconfig{address};
} else {
map { $form->{"shipto$_"} = $form->{$_} } @a;
}
}
 
$form->{notes} =~ s/^\s+//g;
 
# some of the stuff could have umlauts so we translate them
push @a, qw(shiptoname shiptoaddr1 shiptoaddr2 shiptoaddr3 shiptoaddr4 shippingpoint company address signature notes);
 
push @a, ("${inv}date", "${due}date");
$form->format_string(@a);
 
 
$form->{templates} = "$myconfig{templates}";
$form->{IN} = "$form->{type}.html";
 
if ($form->{format} eq 'postscript') {
$form->{postscript} = 1;
$form->{IN} =~ s/html$/tex/;
}
if ($form->{format} eq 'pdf') {
$form->{pdf} = 1;
$form->{IN} =~ s/html$/tex/;
}
 
if ($form->{media} eq 'printer') {
$form->{OUT} = "| $myconfig{printer}";
}
 
if ($form->{media} eq 'email') {
$form->{subject} = qq|$form->{label} $form->{"${inv}number"}| unless $form->{subject};
$form->{OUT} = "$sendmail";
}
 
$form->parse_template(\%myconfig, $userspath);
 
$form->{callback} = "";
# if we got back here restore the previous form
if ($form->{media} =~ /(printer|email)/) {
if ($old_form) {
# restore and display form
map { $form->{$_} = $old_form->{$_} } keys %$old_form;
$form->{rowcount}--;
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
&display_form;
exit;
}
 
$msg = ($form->{media} eq 'printer') ? $locale->text('sent to printer') : $locale->text('emailed to')." $form->{email}";
$form->redirect(qq|$form->{label} $form->{"${inv}number"} $msg|);
}
 
}
 
 
sub customer_details {
 
IS->customer_details(\%myconfig, \%$form);
 
}
 
 
sub vendor_details {
 
IR->vendor_details(\%myconfig, \%$form);
 
}
 
 
sub post_as_new {
 
$form->{postasnew} = 1;
&post;
 
}
 
 
sub ship_to {
 
$title = $form->{title};
$form->{title} = $locale->text('Ship to');
$form->{rowcount}--;
 
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
 
# get details for name
&{ "$form->{vc}_details" };
 
$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('To').qq|</th>
<th class=listheading width=50%>|.$locale->text('Ship to').qq|</th>
</tr>
<tr height="5"></tr>
<tr>
<th align=right nowrap>|.$locale->text('Number').qq|</th>
<td>$form->{"$form->{vc}number"}</td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Name').qq|</th>
<td>$form->{name}</td>
<td><input name=shiptoname size=35 maxsize=35 value="$form->{shiptoname}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Address').qq|</th>
<td>$form->{addr1}</td>
<td><input name=shiptoaddr1 size=35 maxsize=35 value="$form->{shiptoaddr1}"></td>
</tr>
<tr>
<th></th>
<td>$form->{addr2}</td>
<td><input name=shiptoaddr2 size=35 maxsize=35 value="$form->{shiptoaddr2}"></td>
</tr>
<tr>
<th></th>
<td>$form->{addr3}</td>
<td><input name=shiptoaddr3 size=35 maxsize=35 value="$form->{shiptoaddr3}"></td>
</tr>
<tr>
<th></th>
<td>$form->{addr4}</td>
<td><input name=shiptoaddr4 size=35 maxsize=35 value="$form->{shiptoaddr4}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Contact').qq|</th>
<td>$form->{contact}</td>
<td><input name=shiptocontact size=35 maxsize=35 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 maxsize=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 maxsize=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>
|;
 
# delete shipto
map { delete $form->{$_} } qw(shiptoname shiptoaddr1 shiptoaddr2 shiptoaddr3 shiptoaddr4 shiptocontact shiptophone shiptofax shiptoemail);
$form->{title} = $title;
foreach $key (keys %$form) {
$form->{$key} =~ s/"/&quot;/g;
print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
}
 
print qq|
 
<input type=hidden name=nextsub value=display_form>
 
<hr size=3 noshade>
 
<br>
<input class=submit type=submit name=action value="|.$locale->text('Continue').qq|">
</form>
 
</body>
</html>
|;
 
}
 
 
/tags/v_2_0_6/bin/mozilla/login.pl
New file
0,0 → 1,217
######################################################################
# SQL-Ledger Accounting
# Copyright (c) 1998-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.
#######################################################################
 
 
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 {
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.png border=0></a>
<h1 class=login align=center>|.$locale->text('Version').qq| $form->{version}
</h1>
 
<p>
 
<form method=post action=$form->{script}>
 
<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></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 login {
 
$form->error($locale->text('You did not enter a name!')) unless ($form->{login});
 
$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!');
$form->error($err[$errno]);
}
# made it this far, execute the menu
$argv = "login=$form->{login}&password=$form->{password}&path=$form->{path}&action=display";
 
exec ("perl", "menu.pl", $argv);
 
}
 
 
 
sub logout {
 
unlink "$userspath/$form->{login}.conf";
# remove the callback to display the message
$form->{callback} = "login.pl?path=$form->{path}&action=&login=";
$form->redirect($locale->text('You are logged out!'));
 
}
 
 
sub company_logo {
require "$userspath/$form->{login}.conf";
$locale = new Locale $myconfig{countrycode}, "login" unless ($language eq $myconfig{countrycode});
 
$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 unless $form->{noheader};
 
print qq|
<body>
 
<pre>
 
</pre>
<center>
<a href="http://www.sql-ledger.org" target=_top><img src=sql-ledger.png 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>
<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>
|;
 
}
 
 
 
/tags/v_2_0_6/bin/mozilla/ir.pl
New file
0,0 → 1,623
#=====================================================================
# SQL-Ledger, Accounting
# Copyright (c) 1998-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.
#======================================================================
#
# 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 Purchase Invoice');
 
&invoice_links;
&prepare_invoice;
&display_form;
}
 
 
sub edit {
 
$form->{title} = $locale->text('Edit Purchase Invoice');
 
&invoice_links;
&prepare_invoice;
&display_form;
}
 
 
sub invoice_links {
 
# create links
$form->create_links("AP", \%myconfig, "vendor");
 
IR->get_vendor(\%myconfig, \%$form);
IR->retrieve_invoice(\%myconfig, \%$form);
 
# currencies
@curr = split /:/, $form->{currencies};
chomp $curr[0];
$form->{defaultcurrency} = $curr[0];
 
map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
 
$form->{oldvendor} = "$form->{vendor}--$form->{vendor_id}";
 
# vendors
if (@{ $form->{all_vendor} }) {
$form->{vendor} = "$form->{vendor}--$form->{vendor_id}";
map { $form->{selectvendor} .= "<option>$_->{name}--$_->{id}\n" } (@{ $form->{all_vendor} });
}
 
# 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->{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->datetonum($form->{invdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig));
}
 
 
 
sub prepare_invoice {
 
if ($form->{id}) {
map { $form->{$_} =~ s/"/&quot;/g } qw(invnumber ordnumber);
 
foreach $ref (@{ $form->{invoice_details} }) {
$i++;
map { $form->{"${_}_$i"} = $ref->{$_} } keys %{ $ref };
($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->{rowcount} = $i;
}
}
}
 
 
 
sub form_header {
 
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
 
# set option selected
foreach $item (qw(AP vendor currency)) {
$form->{"select$item"} =~ s/ selected//;
$form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
}
$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('Exchangerate').qq|</th>
<td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td>
|;
} else {
$exchangerate .= qq|
<th align=right nowrap>|.$locale->text('Exchangerate').qq|</th>
<td><input name=exchangerate size=10 value=$form->{exchangerate}></td>
|;
}
}
$exchangerate .= qq|
<input type=hidden name=forex value=$form->{forex}>
|;
$vendor = ($form->{selectvendor}) ? qq|<select name=vendor>$form->{selectvendor}</select>\n<input type=hidden name="selectvendor" value="$form->{selectvendor}">| : 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=title value="$form->{title}">
<input type=hidden name=vc value="vendor">
 
<input type=hidden name=closedto value=$form->{closedto}>
<input type=hidden name=locked value=$form->{locked}>
 
 
<table width=100%>
<tr class=listtop>
<th>$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr>
<td>
<table width=100%>
<tr>
<th align=right>|.$locale->text('Record in').qq|</th>
<td><select name=AP>$form->{selectAP}</select></td>
<input type=hidden name=selectAP value="$form->{selectAP}">
<th align=right nowrap>|.$locale->text('Invoice Number').qq|</th>
<td><input name=invnumber size=11 value="$form->{invnumber}"></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Vendor').qq|</th>
<td>$vendor</td>
<input type=hidden name=vendor_id value=$form->{vendor_id}>
<input type=hidden name=oldvendor value="$form->{oldvendor}">
 
<th align=right nowrap>|.$locale->text('Invoice Date').qq|</th>
<td><input name=invdate size=11 title="$myconfig{dateformat}" value=$form->{invdate}></td>
</tr>
<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>
 
<th align=right nowrap>|.$locale->text('Date Due').qq|</th>
<td><input name=duedate size=11 title="$myconfig{dateformat}" value=$form->{duedate}></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Currency').qq|</th>
<td><select name=currency>$form->{selectcurrency}</select></td>
<th align=right nowrap>|.$locale->text('Order Number').qq|</th>
<td><input name=ordnumber size=11 value="$form->{ordnumber}"></td>
</tr>
<tr>
$exchangerate
</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}, 50, 8)) < 2) {
$rows = 2;
}
$notes = qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
 
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 colspan=$colspan>
<table cellspacing="0">
<tr valign=bottom>
<td>
<table>
<tr>
<th align=left>|.$locale->text('Notes').qq|</th>
</tr>
<tr>
<td>$notes</td>
</tr>
</table>
</td>
<td colspan=2 align=right width=100%>
<table width=100%>
$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 colspan=$colspan>
<table width=100%>
<tr>
<th colspan=5 class=listheading>|.$locale->text('Payments').qq|</th>
</tr>
|;
 
@column_index = qw(datepaid source 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>";
 
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|&nbsp;|;
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>|;
 
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>
|;
 
$invdate = $form->datetonum($form->{invdate}, \%myconfig);
$closedto = $form->datetonum($form->{closedto}, \%myconfig);
if ($form->{id}) {
print qq|<input class=submit type=submit name=action value="|.$locale->text('Update').qq|">
|;
 
if (!$form->{revtrans}) {
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|">
|;
}
}
 
if ($invdate > $closedto) {
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('Order').qq|">
|;
}
 
} else {
if ($invdate > $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|">|;
}
}
 
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=password value=$form->{password}>
 
</form>
 
</body>
</html>
|;
 
}
 
 
 
sub update {
 
$form->{exchangerate} = $form->parse_amount(\%myconfig, $form->{exchangerate});
&check_name(vendor);
 
&check_project;
 
$form->{exchangerate} = $exchangerate if ($form->{forex} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, 'sell')));
for $i (1 .. $form->{paidaccounts}) {
if ($form->{"paid_$i"}) {
map { $form->{"${_}_$i"} = $form->parse_amount(\%myconfig, $form->{"${_}_$i"}) } qw(paid exchangerate);
 
$form->{"exchangerate_$i"} = $exchangerate if ($form->{"forex_$i"} = ($exchangerate = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{"datepaid_$i"}, 'sell')));
}
}
$i = $form->{rowcount};
$exchangerate = ($form->{exchangerate}) ? $form->{exchangerate} : 1;
 
if (($form->{"partnumber_$i"} eq "") && ($form->{"description_$i"} eq "")) {
 
&check_form;
} else {
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]{$_} =~ s/"/&quot;/g } 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
 
$form->{"id_$i"} = 0;
$form->{"unit_$i"} = $locale->text('ea');
 
&new_item;
}
}
}
 
 
 
sub post {
 
$form->isblank("invnumber", $locale->text('Invoice Number missing!'));
$form->isblank("invdate", $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);
$invdate = $form->datetonum($form->{invdate}, \%myconfig);
 
$form->error($locale->text('Cannot post invoice for a closed period!')) if ($invdate <= $closedto);
 
$form->isblank("exchangerate", $locale->text('Exchangerate 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 ($invdate == $datepaid);
$form->isblank("exchangerate_$i", $locale->text('Exchangerate for payment missing!'));
}
}
}
($form->{AP}) = split /--/, $form->{AP};
($form->{AP_paid}) = split /--/, $form->{AP_paid};
$form->{id} = 0 if $form->{postasnew};
 
$form->redirect($locale->text('Invoice 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
delete $form->{action};
 
foreach $key (keys %$form) {
$form->{$key} =~ s/"/&quot;/g;
print qq|<input type=hidden name=$key value="$form->{$key}">\n|;
}
 
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!'));
 
}
 
 
/tags/v_2_0_6/bin/mozilla/is.pl
New file
0,0 → 1,730
#=====================================================================
# SQL-Ledger Accounting
# Copyright (c) 1998-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.
#======================================================================
#
# Inventory invoicing module
#
#======================================================================
 
 
use SL::IS;
use SL::PE;
 
require "$form->{path}/io.pl";
require "$form->{path}/arap.pl";
 
 
1;
# end of main
 
 
 
sub add {
 
$form->{title} = $locale->text('Add Sales Invoice');
 
&invoice_links;
&prepare_invoice;
&display_form;
}
 
 
sub edit {
 
$form->{title} = $locale->text('Edit Sales Invoice');
 
&invoice_links;
&prepare_invoice;
&display_form;
}
 
 
sub invoice_links {
 
# create links
$form->create_links("AR", \%myconfig, "customer");
IS->get_customer(\%myconfig, \%$form);
IS->retrieve_invoice(\%myconfig, \%$form);
 
# currencies
@curr = split /:/, $form->{currencies};
chomp $curr[0];
$form->{defaultcurrency} = $curr[0];
 
map { $form->{selectcurrency} .= "<option>$_\n" } @curr;
 
$form->{oldcustomer} = "$form->{customer}--$form->{customer_id}";
if (@{ $form->{all_customer} }) {
$form->{customer} = qq|$form->{customer}--$form->{customer_id}|;
map { $form->{selectcustomer} .= "<option>$_->{name}--$_->{id}\n" } (@{ $form->{all_customer} });
}
 
# 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->{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->datetonum($form->{invdate}, \%myconfig) <= $form->datetonum($form->{closedto}, \%myconfig));
 
}
 
 
sub prepare_invoice {
 
$form->{type} = "invoice";
$form->{format} = "html";
$form->{media} = "screen";
if ($form->{id}) {
map { $form->{$_} =~ s/"/&quot;/g } qw(invnumber ordnumber shippingpoint notes);
 
foreach $ref (@{ $form->{invoice_details} } ) {
$i++;
map { $form->{"${_}_$i"} = $ref->{$_} } keys %{ $ref };
$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"});
map { $form->{"${_}_$i"} =~ s/"/&quot;/g } qw(partnumber description unit);
$form->{rowcount} = $i;
}
}
}
 
 
 
sub form_header {
 
 
$form->{taxincluded} = ($form->{taxincluded}) ? "checked" : "";
 
# set option selected
foreach $item (qw(AR customer currency)) {
$form->{"select$item"} =~ s/ selected//;
$form->{"select$item"} =~ s/option>\Q$form->{$item}\E/option selected>$form->{$item}/;
}
$form->{exchangerate} = $form->format_amount(\%myconfig, $form->{exchangerate});
 
$form->{creditlimit} = $form->format_amount(\%myconfig, $form->{creditlimit}, 0, "0");
$form->{creditremaining} = $form->format_amount(\%myconfig, $form->{creditremaining}, 0, "0");
 
$exchangerate = "";
if ($form->{currency} ne $form->{defaultcurrency}) {
if ($form->{forex}) {
$exchangerate .= qq|<tr><th align=right>|.$locale->text('Exchangerate').qq|</th><td>$form->{exchangerate}<input type=hidden name=exchangerate value=$form->{exchangerate}></td></tr>|;
} else {
$exchangerate .= qq|<tr><th align=right>|.$locale->text('Exchangerate').qq|</th><td><input name=exchangerate size=10 value=$form->{exchangerate}></td></tr>|;
}
}
$exchangerate .= qq|
<input type=hidden name=forex value=$form->{forex}>
|;
 
$customer = ($form->{selectcustomer}) ? qq|<select name=customer>$form->{selectcustomer}</select>\n<input type=hidden name="selectcustomer" value="$form->{selectcustomer}">| : qq|<input name=customer value="$form->{customer}" size=35>|;
$n = ($form->{creditremaining} =~ /-/) ? "0" : "1";
 
$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}>
<input type=hidden name=media value=$form->{media}>
<input type=hidden name=format value=$form->{format}>
 
<input type=hidden name=title value="$form->{title}">
<input type=hidden name=vc value="customer">
<input type=hidden name=employee value="$form->{employee}">
 
<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>
<td>
<table width=100%>
<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>
<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>
<table width=100%>
<tr>
<th align=right>|.$locale->text('Credit Limit').qq|</th>
<td>$form->{creditlimit}</td>
<th align=right>|.$locale->text('Remaining').qq|</th>
<td class="plus$n">$form->{creditremaining}</font></td>
</tr>
</table>
</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=defaultcurrency value=$form->{defaultcurrency}>
<input type=hidden name=fxgain_accno value=$form->{fxgain_accno}>
<input type=hidden name=fxloss_accno value=$form->{fxloss_accno}>
</tr>
$exchangerate
<tr>
<th align=right nowrap>|.$locale->text('Ship via').qq|</th>
<td><input name=shippingpoint size=35 value="$form->{shippingpoint}"></td>
</tr>
</table>
</td>
<td align=right>
<table width=100%>
<tr>
<th align=right nowrap>|.$locale->text('Invoice Number').qq|</th>
<td><input name=invnumber size=11 value="$form->{invnumber}"></td>
</tr>
<tr>
<th align=right>|.$locale->text('Invoice Date').qq|</th>
<td><input name=invdate size=11 title="$myconfig{dateformat}" value=$form->{invdate}></td>
</tr>
<tr>
<th align=right>|.$locale->text('Date Due').qq|</th>
<td><input name=duedate size=11 title="$myconfig{dateformat}" value=$form->{duedate}></td>
</tr>
<tr>
<th align=right nowrap>|.$locale->text('Order Number').qq|</th>
<td><input name=ordnumber size=11 value="$form->{ordnumber}"></td>
</tr>
<tr>
<td align=right colspan=2>
<table>
<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>
</table>
</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=shiptoaddr1 value="$form->{shiptoaddr1}">
<input type=hidden name=shiptoaddr2 value="$form->{shiptoaddr2}">
<input type=hidden name=shiptoaddr3 value="$form->{shiptoaddr3}">
<input type=hidden name=shiptoaddr4 value="$form->{shiptoaddr4}">
<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}, 50, 8)) < 2) {
$rows = 2;
}
$notes = qq|<textarea name=notes rows=$rows cols=50 wrap=soft>$form->{notes}</textarea>|;
 
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>
</tr>
<tr>
<td>$notes</td>
</tr>
</table>
</td>
<td align=right width=100%>
<table width=100%>
$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 class=listheading>
<th class=listheading colspan=5>|.$locale->text('Payments')
.qq|</font></th>
</tr>
|;
 
@column_index = qw(datepaid source 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(