diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-03 00:48:48 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-11-03 00:48:48 +0000 |
| commit | eccfb178ba7ac5510764818dae2f55bf25bf31b4 (patch) | |
| tree | 28304c238076e0b257e98e8118bb5b38fc83e8f8 | |
| parent | da36e0095ae8b05e124507abd70b7122a94c15f1 (diff) | |
RP.pm Mostly done
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@470 4979c152-3d1c-0410-bac9-87ea11338e46
| -rwxr-xr-x | LedgerSMB/RP.pm | 2647 |
1 files changed, 1351 insertions, 1296 deletions
diff --git a/LedgerSMB/RP.pm b/LedgerSMB/RP.pm index fa036bc8..f6f848d4 100755 --- a/LedgerSMB/RP.pm +++ b/LedgerSMB/RP.pm @@ -23,7 +23,7 @@ # #====================================================================== # -# This file has NOT undergone whitespace cleanup. +# This file has undergone whitespace cleanup. # #====================================================================== # @@ -34,1566 +34,1621 @@ package RP; sub inventory_activity { - my ($self, $myconfig, $form) = @_; - ($form->{fromdate}, $form->{todate}) = $form->from_to($form->{fromyear}, $form->{frommonth}, $form->{interval}) if $form->{fromyear} && $form->{frommonth}; + my ($self, $myconfig, $form) = @_; + ($form->{fromdate}, $form->{todate}) = + $form->from_to($form->{fromyear}, $form->{frommonth}, + $form->{interval}) + if $form->{fromyear} && $form->{frommonth}; + my $dbh = $form->{dbh}; - unless ($form->{sort_col}){ - $form->{sort_col} = 'partnumber'; - } + unless ($form->{sort_col}){ + $form->{sort_col} = 'partnumber'; + } - my $dbh = $form->dbconnect($myconfig) || $form->dberror(); - my $where = ''; - if ($form->{fromdate}){ - $where .= "AND coalesce(ar.duedate, ap.duedate) >= ".$dbh->quote($form->{fromdate}); - } - if ($form->{todate}){ - $where .= "AND coalesce(ar.duedate, ap.duedate) < ".$dbh->quote($form->{todate}). " "; - } - if ($form->{partnumber}){ - $where .= qq|AND p.partnumber ILIKE '%|.$form->{partnumber}.qq|%' |; - } - if ($form->{description}){ - $where .= q|AND p.description ILIKE '%|.$form->{description}.q|%' |; - } - $where =~ s/^AND/WHERE/; - - my $query = qq| - SELECT min(p.description) AS description, - min(p.partnumber) AS partnumber, sum( - CASE WHEN i.qty > 0 THEN i.qty ELSE 0 END - ) AS sold, sum ( - CASE WHEN i.qty > 0 THEN i.sellprice * i.qty ELSE 0 END - ) AS revenue, sum( - CASE WHEN i.qty < 0 THEN i.qty * -1 ELSE 0 END - ) AS received, sum( - CASE WHEN i.qty < 0 THEN i.sellprice * i.qty * -1 - ELSE 0 END - ) as expenses, min(p.id) as id - FROM invoice i - INNER JOIN parts p ON (i.parts_id = p.id) - LEFT JOIN ar ON (ar.id = i.trans_id) - LEFT JOIN ap ON (ap.id = i.trans_id) - $where - GROUP BY i.parts_id - ORDER BY $form->{sort_col} - |; - my $sth = $dbh->prepare($query) || $form->dberror($query); - $sth->execute() || $form->dberror($query); - @cols = qw(description sold revenue partnumber received expense); - while ($ref = $sth->fetchrow_hashref(NAME_lc)) { - $ref->{net_income} = $ref->{revenue} - $ref->{expense}; - map {$ref->{$_} =~ s/^\s*//} @cols; - map {$ref->{$_} =~ s/\s*$//} @cols; - push @{$form->{TB}}, $ref; - } - $sth->finish; - $dbh->disconnect; + my $where = ''; + if ($form->{fromdate}){ + $where .= "AND coalesce(ar.duedate, ap.duedate) >= ". + $dbh->quote($form->{fromdate}); + } + if ($form->{todate}){ + $where .= "AND coalesce(ar.duedate, ap.duedate) < ". + $dbh->quote($form->{todate}). " "; + } + if ($form->{partnumber}){ + $where .= qq| AND p.partnumber ILIKE |. + $dbh->quote('%'."$form->{partnumber}%"); + } + if ($form->{description}){ + $where .= q| AND p.description ILIKE | + .$dbh->quote('%'."$form->{description}%"); + } + $where =~ s/^\s?AND/WHERE/; + + my $query = qq| + SELECT min(p.description) AS description, + min(p.partnumber) AS partnumber, sum( + CASE WHEN i.qty > 0 THEN i.qty ELSE 0 END) AS sold, + sum (CASE WHEN i.qty > 0 + THEN i.sellprice * i.qty + ELSE 0 END) AS revenue, + sum(CASE WHEN i.qty < 0 THEN i.qty * -1 ELSE 0 END) + AS received, sum(CASE WHEN i.qty < 0 + THEN i.sellprice * i.qty * -1 + ELSE 0 END) as expenses, + min(p.id) as id + FROM invoice i + JOIN parts p ON (i.parts_id = p.id) + LEFT JOIN ar ON (ar.id = i.trans_id) + LEFT JOIN ap ON (ap.id = i.trans_id) + $where + GROUP BY i.parts_id + ORDER BY $form->{sort_col}|; + my $sth = $dbh->prepare($query) || $form->dberror($query); + $sth->execute() || $form->dberror($query); + @cols = qw(description sold revenue partnumber received expense); + while ($ref = $sth->fetchrow_hashref(NAME_lc)) { + $ref->{net_income} = $ref->{revenue} - $ref->{expense}; + map {$ref->{$_} =~ s/^\s*//} @cols; + map {$ref->{$_} =~ s/\s*$//} @cols; + push @{$form->{TB}}, $ref; + } + $sth->finish; + $dbh->commit; } sub yearend_statement { - my ($self, $myconfig, $form) = @_; + my ($self, $myconfig, $form) = @_; - # connect to database - my $dbh = $form->dbconnect($myconfig); + my $dbh = $form->dbconnect($myconfig); - # if todate < existing yearends, delete GL and yearends - my $query = qq|SELECT trans_id FROM yearend - WHERE transdate >= '$form->{todate}'|; - my $sth = $dbh->prepare($query); - $sth->execute || $form->dberror($query); - - my @trans_id = (); - my $id; - while (($id) = $sth->fetchrow_array) { - push @trans_id, $id; - } - $sth->finish; + # if todate < existing yearends, delete GL and yearends + my $query = qq|SELECT trans_id FROM yearend WHERE transdate >= ?|; + my $sth = $dbh->prepare($query); + $sth->execute($form->{todate}) || $form->dberror($query); + + my @trans_id = (); + my $id; + while (($id) = $sth->fetchrow_array) { + push @trans_id, $id; + } + $sth->finish; - $query = qq|DELETE FROM gl - WHERE id = ?|; - $sth = $dbh->prepare($query) || $form->dberror($query); + $query = qq|DELETE FROM gl WHERE id = ?|; + $sth = $dbh->prepare($query) || $form->dberror($query); - $query = qq|DELETE FROM acc_trans - WHERE trans_id = ?|; - my $ath = $dbh->prepare($query) || $form->dberror($query); + $query = qq|DELETE FROM acc_trans WHERE trans_id = ?|; + my $ath = $dbh->prepare($query) || $form->dberror($query); - foreach $id (@trans_id) { - $sth->execute($id); - $ath->execute($id); + foreach $id (@trans_id) { + $sth->execute($id); + $ath->execute($id); - $sth->finish; - $ath->finish; - } + $sth->finish; + $ath->finish; + } - my $last_period = 0; - my @categories = qw(I E); - my $category; + my $last_period = 0; + my @categories = qw(I E); + my $category; - $form->{decimalplaces} *= 1; + $form->{decimalplaces} *= 1; - &get_accounts($dbh, 0, $form->{fromdate}, $form->{todate}, $form, \@categories); + &get_accounts($dbh, 0, $form->{fromdate}, $form->{todate}, $form, \@categories); - # disconnect - $dbh->disconnect; + $dbh->commit; - # now we got $form->{I}{accno}{ } - # and $form->{E}{accno}{ } + # now we got $form->{I}{accno}{ } + # and $form->{E}{accno}{ } - my %account = ( 'I' => { 'label' => 'income', - 'labels' => 'income', - 'ml' => 1 }, - 'E' => { 'label' => 'expense', - 'labels' => 'expenses', - 'ml' => -1 } + my %account = ( + 'I' => { + 'label' => 'income', + 'labels' => 'income', + 'ml' => 1 }, + 'E' => { + 'label' => 'expense', + 'labels' => 'expenses', + 'ml' => -1 } ); - foreach $category (@categories) { - foreach $key (sort keys %{ $form->{$category} }) { - if ($form->{$category}{$key}{charttype} eq 'A') { - $form->{"total_$account{$category}{labels}_this_period"} += $form->{$category}{$key}{this} * $account{$category}{ml}; - } - } - } + foreach $category (@categories) { + foreach $key (sort keys %{ $form->{$category} }) { + if ($form->{$category}{$key}{charttype} eq 'A') { + $form->{"total_$account{$category}{labels}_this_period"} + += $form->{$category}{$key}{this} + * $account{$category}{ml}; + } + } + } - # totals for income and expenses - $form->{total_income_this_period} = $form->round_amount($form->{total_income_this_period}, $form->{decimalplaces}); - $form->{total_expenses_this_period} = $form->round_amount($form->{total_expenses_this_period}, $form->{decimalplaces}); + # totals for income and expenses + $form->{total_income_this_period} = $form->round_amount( + $form->{total_income_this_period}, $form->{decimalplaces}); + $form->{total_expenses_this_period} = $form->round_amount( + $form->{total_expenses_this_period}, $form->{decimalplaces}); - # total for income/loss - $form->{total_this_period} = $form->{total_income_this_period} - $form->{total_expenses_this_period}; + # total for income/loss + $form->{total_this_period} + = $form->{total_income_this_period} + - $form->{total_expenses_this_period}; } sub income_statement { - my ($self, $myconfig, $form) = @_; + my ($self, $myconfig, $form) = @_; - # connect to database - my $dbh = $form->dbconnect($myconfig); + my $dbh = $form->{dbh}; - my $last_period = 0; - my @categories = qw(I E); - my $category; + my $last_period = 0; + my @categories = qw(I E); + my $category; - $form->{decimalplaces} *= 1; + $form->{decimalplaces} *= 1; - if (! ($form->{fromdate} || $form->{todate})) { - if ($form->{fromyear} && $form->{frommonth}) { - ($form->{fromdate}, $form->{todate}) = $form->from_to($form->{fromyear}, $form->{frommonth}, $form->{interval}); - } - } - - &get_accounts($dbh, $last_period, $form->{fromdate}, $form->{todate}, $form, \@categories, 1); + if (! ($form->{fromdate} || $form->{todate})) { + if ($form->{fromyear} && $form->{frommonth}) { + ($form->{fromdate}, $form->{todate}) + = $form->from_to( + $form->{fromyear}, + $form->{frommonth}, $form->{interval}); + } + } - if (! ($form->{comparefromdate} || $form->{comparetodate})) { - if ($form->{compareyear} && $form->{comparemonth}) { - ($form->{comparefromdate}, $form->{comparetodate}) = $form->from_to($form->{compareyear}, $form->{comparemonth}, $form->{interval}); - } - } + &get_accounts( + $dbh, $last_period, $form->{fromdate}, $form->{todate}, + $form, \@categories, 1); + + if (! ($form->{comparefromdate} || $form->{comparetodate})) { + if ($form->{compareyear} && $form->{comparemonth}) { + ($form->{comparefromdate}, $form->{comparetodate}) + = $form->from_to( + $form->{compareyear}, + $form->{comparemonth}, + $form->{interval}); + } + } - # if there are any compare dates - if ($form->{comparefromdate} || $form->{comparetodate}) { - $last_period = 1; + # if there are any compare dates + if ($form->{comparefromdate} || $form->{comparetodate}) { + $last_period = 1; - &get_accounts($dbh, $last_period, $form->{comparefromdate}, $form->{comparetodate}, $form, \@categories, 1); - } + &get_accounts( + $dbh, $last_period, $form->{comparefromdate}, + $form->{comparetodate}, $form, \@categories, 1); + } - # disconnect - $dbh->disconnect; + $dbh->commit; - # now we got $form->{I}{accno}{ } - # and $form->{E}{accno}{ } + # now we got $form->{I}{accno}{ } + # and $form->{E}{accno}{ } - my %account = ( 'I' => { 'label' => 'income', - 'labels' => 'income', - 'ml' => 1 }, - 'E' => { 'label' => 'expense', - 'labels' => 'expenses', - 'ml' => -1 } + my %account = ( + 'I' => { + 'label' => 'income', + 'labels' => 'income', + 'ml' => 1 }, + 'E' => { + 'label' => 'expense', + 'labels' => 'expenses', + 'ml' => -1 } ); - my $str; + my $str; - foreach $category (@categories) { + foreach $category (@categories) { - foreach $key (sort keys %{ $form->{$category} }) { - # push description onto array + foreach $key (sort keys %{ $form->{$category} }) { + # push description onto array - $str = ($form->{l_heading}) ? $form->{padding} : ""; + $str = ($form->{l_heading}) ? $form->{padding} : ""; - if ($form->{$category}{$key}{charttype} eq "A") { - $str .= ($form->{l_accno}) ? "$form->{$category}{$key}{accno} - $form->{$category}{$key}{description}" : "$form->{$category}{$key}{description}"; - } - if ($form->{$category}{$key}{charttype} eq "H") { - if ($account{$category}{subtotal} && $form->{l_subtotal}) { - $dash = "- "; - push(@{$form->{"$account{$category}{label}_account"}}, "$str$form->{bold}$account{$category}{subdescription}$form->{endbold}"); - push(@{$form->{"$account{$category}{labels}_this_period"}}, $form->format_amount($myconfig, $account{$category}{subthis} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); + if ($form->{$category}{$key}{charttype} eq "A") { + $str .= + ($form->{l_accno}) + ? "$form->{$category}{$key}{accno} - $form->{$category}{$key}{description}" + : "$form->{$category}{$key}{description}"; + } + if ($form->{$category}{$key}{charttype} eq "H") { + if ($account{$category}{subtotal} + && $form->{l_subtotal}) { + + $dash = "- "; + push(@{$form->{"$account{$category}{label}_account"}}, + "$str$form->{bold}$account{$category}{subdescription}$form->{endbold}"); + + push(@{$form->{"$account{$category}{labels}_this_period"}}, + $form->format_amount( + $myconfig, + $account{$category}{subthis} + * $account{$category}{ml}, + $form->{decimalplaces}, + $dash)); - if ($last_period) { - push(@{$form->{"$account{$category}{labels}_last_period"}}, $form->format_amount($myconfig, $account{$category}{sublast} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); - } + if ($last_period) { + # Chris T: Giving up on + # Formatting this one :-( + push(@{$form->{"$account{$category}{labels}_last_period"}}, $form->format_amount($myconfig, $account{$category}{sublast} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); + } - } + } - $str = "$form->{br}$form->{bold}$form->{$category}{$key}{description}$form->{endbold}"; + $str = "$form->{br}$form->{bold}$form->{$category}{$key}{description}$form->{endbold}"; - $account{$category}{subthis} = $form->{$category}{$key}{this}; - $account{$category}{sublast} = $form->{$category}{$key}{last}; - $account{$category}{subdescription} = $form->{$category}{$key}{description}; - $account{$category}{subtotal} = 1; + $account{$category}{subthis} + = $form->{$category}{$key}{this}; + $account{$category}{sublast} + = $form->{$category}{$key}{last}; + $account{$category}{subdescription} + = $form->{$category}{$key}{description}; + $account{$category}{subtotal} = 1; - $form->{$category}{$key}{this} = 0; - $form->{$category}{$key}{last} = 0; + $form->{$category}{$key}{this} = 0; + $form->{$category}{$key}{last} = 0; - next unless $form->{l_heading}; + next unless $form->{l_heading}; - $dash = " "; - } + $dash = " "; + } - push(@{$form->{"$account{$category}{label}_account"}}, $str); + push(@{$form->{"$account{$category}{label}_account"}}, + $str); - if ($form->{$category}{$key}{charttype} eq 'A') { - $form->{"total_$account{$category}{labels}_this_period"} += $form->{$category}{$key}{this} * $account{$category}{ml}; - $dash = "- "; - } + if ($form->{$category}{$key}{charttype} eq 'A') { + $form->{"total_$account{$category}{labels}_this_period"} += $form->{$category}{$key}{this} * $account{$category}{ml}; + + $dash = "- "; + } - push(@{$form->{"$account{$category}{labels}_this_period"}}, $form->format_amount($myconfig, $form->{$category}{$key}{this} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); + push(@{$form->{"$account{$category}{labels}_this_period"}}, $form->format_amount($myconfig, $form->{$category}{$key}{this} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); - # add amount or - for last period - if ($last_period) { - $form->{"total_$account{$category}{labels}_last_period"} += $form->{$category}{$key}{last} * $account{$category}{ml}; - - push(@{$form->{"$account{$category}{labels}_last_period"}}, $form->format_amount($myconfig,$form->{$category}{$key}{last} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); - } - } - - $str = ($form->{l_heading}) ? $form->{padding} : ""; - if ($account{$category}{subtotal} && $form->{l_subtotal}) { - push(@{$form->{"$account{$category}{label}_account"}}, "$str$form->{bold}$account{$category}{subdescription}$form->{endbold}"); - push(@{$form->{"$account{$category}{labels}_this_period"}}, $form->format_amount($myconfig, $account{$category}{subthis} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); - - if ($last_period) { - push(@{$form->{"$account{$category}{labels}_last_period"}}, $form->format_amount($myconfig, $account{$category}{sublast} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); - } - } + # add amount or - for last period + if ($last_period) { + $form->{"total_$account{$category}{labels}_last_period"} += $form->{$category}{$key}{last} * $account{$category}{ml}; + + push(@{$form->{"$account{$category}{labels}_last_period"}}, $form->format_amount($myconfig,$form->{$category}{$key}{last} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); + } + } + + $str = ($form->{l_heading}) ? $form->{padding} : ""; + if ($account{$category}{subtotal} && $form->{l_subtotal}) { + push(@{$form->{"$account{$category}{label}_account"}}, "$str$form->{bold}$account{$category}{subdescription}$form->{endbold}"); + push(@{$form->{"$account{$category}{labels}_this_period"}}, $form->format_amount($myconfig, $account{$category}{subthis} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); + + if ($last_period) { + push(@{$form->{"$account{$category}{labels}_last_period"}}, $form->format_amount($myconfig, $account{$category}{sublast} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); + } + } - } + } - # totals for income and expenses - $form->{total_income_this_period} = $form->round_amount($form->{total_income_this_period}, $form->{decimalplaces}); - $form->{total_expenses_this_period} = $form->round_amount($form->{total_expenses_this_period}, $form->{decimalplaces}); + # totals for income and expenses + $form->{total_income_this_period} = $form->round_amount($form->{total_income_this_period}, $form->{decimalplaces}); + $form->{total_expenses_this_period} = $form->round_amount($form->{total_expenses_this_period}, $form->{decimalplaces}); - # total for income/loss - $form->{total_this_period} = $form->{total_income_this_period} - $form->{total_expenses_this_period}; + # total for income/loss + $form->{total_this_period} = $form->{total_income_this_period} - $form->{total_expenses_this_period}; - if ($last_period) { - # total for income/loss - $form->{total_last_period} = $form->format_amount($myconfig, $form->{total_income_last_period} - $form->{total_expenses_last_period}, $form->{decimalplaces}, "- "); + if ($last_period) { + # total for income/loss + $form->{total_last_period} = $form->format_amount($myconfig, $form->{total_income_last_period} - $form->{total_expenses_last_period}, $form->{decimalplaces}, "- "); - # totals for income and expenses for last_period - $form->{total_income_last_period} = $form->format_amount($myconfig, $form->{total_income_last_period}, $form->{decimalplaces}, "- "); - $form->{total_expenses_last_period} = $form->format_amount($myconfig, $form->{total_expenses_last_period}, $form->{decimalplaces}, "- "); + # totals for income and expenses for last_period + $form->{total_income_last_period} = $form->format_amount($myconfig, $form->{total_income_last_period}, $form->{decimalplaces}, "- "); + $form->{total_expenses_last_period} = $form->format_amount($myconfig, $form->{total_expenses_last_period}, $form->{decimalplaces}, "- "); - } + } - $form->{total_income_this_period} = $form->format_amount($myconfig,$form->{total_income_this_period}, $form->{decimalplaces}, "- "); - $form->{total_expenses_this_period} = $form->format_amount($myconfig,$form->{total_expenses_this_period}, $form->{decimalplaces}, "- "); - $form->{total_this_period} = $form->format_amount($myconfig,$form->{total_this_period}, $form->{decimalplaces}, "- "); + $form->{total_income_this_period} = $form->format_amount($myconfig,$form->{total_income_this_period}, $form->{decimalplaces}, "- "); + $form->{total_expenses_this_period} = $form->format_amount($myconfig,$form->{total_expenses_this_period}, $form->{decimalplaces}, "- "); + $form->{total_this_period} = $form->format_amount($myconfig,$form->{total_this_period}, $form->{decimalplaces}, "- "); } sub balance_sheet { - my ($self, $myconfig, $form) = @_; + my ($self, $myconfig, $form) = @_; - # connect to database - my $dbh = $form->dbconnect($myconfig); + my $dbh = $form->{dbh}; - my $last_period = 0; - my @categories = qw(A L Q); + my $last_period = 0; + my @categories = qw(A L Q); - my $null; + my $null; - if ($form->{asofdate}) { - if ($form->{asofyear} && $form->{asofmonth}) { - if ($form->{asofdate} !~ /\W/) { - $form->{asofdate} = "$form->{asofyear}$form->{asofmonth}$form->{asofdate}"; - } - } - } else { - if ($form->{asofyear} && $form->{asofmonth}) { - ($null, $form->{asofdate}) = $form->from_to($form->{asofyear}, $form->{asofmonth}); - } - } + if ($form->{asofdate}) { + if ($form->{asofyear} && $form->{asofmonth}) { + if ($form->{asofdate} !~ /\W/) { + $form->{asofdate} + = "$form->{asofyear}$form->{asofmonth}$form->{asofdate}"; + } + } + } else { + if ($form->{asofyear} && $form->{asofmonth}) { + ($null, $form->{asofdate}) + = $form->from_to( + $form->{asofyear}, $form->{asofmonth}); + } + } - # if there are any dates construct a where - if ($form->{asofdate}) { + # if there are any dates construct a where + if ($form->{asofdate}) { - $form->{this_period} = "$form->{asofdate}"; - $form->{period} = "$form->{asofdate}"; + $form->{this_period} = "$form->{asofdate}"; + $form->{period} = "$form->{asofdate}"; - } + } - $form->{decimalplaces} *= 1; + $form->{decimalplaces} *= 1; - &get_accounts($dbh, $last_period, "", $form->{asofdate}, $form, \@categories, 1); + &get_accounts( + $dbh, $last_period, "", $form->{asofdate}, $form, + \@categories, 1); - if ($form->{compareasofdate}) { - if ($form->{compareasofyear} && $form->{compareasofmonth}) { - if ($form->{compareasofdate} !~ /\W/) { - $form->{compareasofdate} = "$form->{compareasofyear}$form->{compareasofmonth}$form->{compareasofdate}"; - } - } - } else { - if ($form->{compareasofyear} && $form->{compareasofmonth}) { - ($null, $form->{compareasofdate}) = $form->from_to($form->{compareasofyear}, $form->{compareasofmonth}); - } - } + if ($form->{compareasofdate}) { + if ($form->{compareasofyear} && $form->{compareasofmonth}) { + if ($form->{compareasofdate} !~ /\W/) { + $form->{compareasofdate} = "$form->{compareasofyear}$form->{compareasofmonth}$form->{compareasofdate}"; + } + } + } else { + if ($form->{compareasofyear} && $form->{compareasofmonth}) { + ($null, $form->{compareasofdate}) = $form->from_to( + $form->{compareasofyear}, + $form->{compareasofmonth}); + } + } - # if there are any compare dates - if ($form->{compareasofdate}) { + # if there are any compare dates + if ($form->{compareasofdate}) { - $last_period = 1; - &get_accounts($dbh, $last_period, "", $form->{compareasofdate}, $form, \@categories, 1); + $last_period = 1; + &get_accounts( + $dbh, $last_period, "", $form->{compareasofdate}, + $form, \@categories, 1); - $form->{last_period} = "$form->{compareasofdate}"; + $form->{last_period} = "$form->{compareasofdate}"; - } + } - # disconnect - $dbh->disconnect; + $dbh->commit; - # now we got $form->{A}{accno}{ } assets - # and $form->{L}{accno}{ } liabilities - # and $form->{Q}{accno}{ } equity - # build asset accounts + # now we got $form->{A}{accno}{ } assets + # and $form->{L}{accno}{ } liabilities + # and $form->{Q}{accno}{ } equity + # build asset accounts - my $str; - my $key; + my $str; + my $key; - my %account = ( 'A' => { 'label' => 'asset', - 'labels' => 'assets', - 'ml' => -1 }, - 'L' => { 'label' => 'liability', - 'labels' => 'liabilities', - 'ml' => 1 }, - 'Q' => { 'label' => 'equity', - 'labels' => 'equity', - 'ml' => 1 } + my %account = ( + 'A' => { + 'label' => 'asset', + 'labels' => 'assets', + 'ml' => -1 }, + 'L' => { + 'label' => 'liability', + 'labels' => 'liabilities', + 'ml' => 1 }, + 'Q' => { + 'label' => 'equity', + 'labels' => 'equity', + 'ml' => 1 } ); - foreach $category (@categories) { + foreach $category (@categories) { - foreach $key (sort keys %{ $form->{$category} }) { + foreach $key (sort keys %{ $form->{$category} }) { - $str = ($form->{l_heading}) ? $form->{padding} : ""; + $str = ($form->{l_heading}) ? $form->{padding} : ""; - if ($form->{$category}{$key}{charttype} eq "A") { - $str .= ($form->{l_accno}) ? "$form->{$category}{$key}{accno} - $form->{$category}{$key}{description}" : "$form->{$category}{$key}{description}"; - } - if ($form->{$category}{$key}{charttype} eq "H") { - if ($account{$category}{subtotal} && $form->{l_subtotal}) { - $dash = "- "; - push(@{$form->{"$account{$category}{label}_account"}}, "$str$form->{bold}$account{$category}{subdescription}$form->{endbold}"); - push(@{$form->{"$account{$category}{label}_this_period"}}, $form->format_amount($myconfig, $account{$category}{subthis} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); + if ($form->{$category}{$key}{charttype} eq "A") { + $str .= + ($form->{l_accno}) + ? "$form->{$category}{$key}{accno} - $form->{$category}{$key}{description}" + : "$form->{$category}{$key}{description}"; + } + if ($form->{$category}{$key}{charttype} eq "H") { + if ($account{$category}{subtotal} + && $form->{l_subtotal}) { + + $dash = "- "; + push(@{$form->{"$account{$category}{label}_account"}}, "$str$form->{bold}$account{$category}{subdescription}$form->{endbold}"); + push(@{$form->{"$account{$category}{label}_this_period"}}, $form->format_amount($myconfig, $account{$category}{subthis} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); - if ($last_period) { - push(@{$form->{"$account{$category}{label}_last_period"}}, $form->format_amount($myconfig, $account{$category}{sublast} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); - } - } + if ($last_period) { + push(@{$form->{"$account{$category}{label}_last_period"}}, $form->format_amount($myconfig, $account{$category}{sublast} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); + } + } - $str = "$form->{bold}$form->{$category}{$key}{description}$form->{endbold}"; + $str = "$form->{bold}$form->{$category}{$key}{description}$form->{endbold}"; - $account{$category}{subthis} = $form->{$category}{$key}{this}; - $account{$category}{sublast} = $form->{$category}{$key}{last}; - $account{$category}{subdescription} = $form->{$category}{$key}{description}; - $account{$category}{subtotal} = 1; + $account{$category}{subthis} = $form->{$category}{$key}{this}; + $account{$category}{sublast} = $form->{$category}{$key}{last}; + $account{$category}{subdescription} = $form->{$category}{$key}{description}; + $account{$category}{subtotal} = 1; - $form->{$category}{$key}{this} = 0; - $form->{$category}{$key}{last} = 0; + $form->{$category}{$key}{this} = 0; + $form->{$category}{$key}{last} = 0; - next unless $form->{l_heading}; + next unless $form->{l_heading}; - $dash = " "; - } + $dash = " "; + } - # push description onto array - push(@{$form->{"$account{$category}{label}_account"}}, $str); + # push description onto array + push(@{$form->{"$account{$category}{label}_account"}}, + $str); - if ($form->{$category}{$key}{charttype} eq 'A') { - $form->{"total_$account{$category}{labels}_this_period"} += $form->{$category}{$key}{this} * $account{$category}{ml}; - $dash = "- "; - } + if ($form->{$category}{$key}{charttype} eq 'A') { + $form->{"total_$account{$category}{labels}_this_period"} += $form->{$category}{$key}{this} * $account{$category}{ml}; + $dash = "- "; + } - push(@{$form->{"$account{$category}{label}_this_period"}}, $form->format_amount($myconfig, $form->{$category}{$key}{this} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); + push(@{$form->{"$account{$category}{label}_this_period"}}, $form->format_amount($myconfig, $form->{$category}{$key}{this} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); - if ($last_period) { - $form->{"total_$account{$category}{labels}_last_period"} += $form->{$category}{$key}{last} * $account{$category}{ml}; + if ($last_period) { + $form->{"total_$account{$category}{labels}_last_period"} += $form->{$category}{$key}{last} * $account{$category}{ml}; - push(@{$form->{"$account{$category}{label}_last_period"}}, $form->format_amount($myconfig, $form->{$category}{$key}{last} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); - } - } + push(@{$form->{"$account{$category}{label}_last_period"}}, $form->format_amount($myconfig, $form->{$category}{$key}{last} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); + } + } - $str = ($form->{l_heading}) ? $form->{padding} : ""; - if ($account{$category}{subtotal} && $form->{l_subtotal}) { - push(@{$form->{"$account{$category}{label}_account"}}, "$str$form->{bold}$account{$category}{subdescription}$form->{endbold}"); - push(@{$form->{"$account{$category}{label}_this_period"}}, $form->format_amount($myconfig, $account{$category}{subthis} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); + $str = ($form->{l_heading}) ? $form->{padding} : ""; + if ($account{$category}{subtotal} && $form->{l_subtotal}) { + push(@{$form->{"$account{$category}{label}_account"}}, "$str$form->{bold}$account{$category}{subdescription}$form->{endbold}"); + push(@{$form->{"$account{$category}{label}_this_period"}}, $form->format_amount($myconfig, $account{$category}{subthis} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); - if ($last_period) { - push(@{$form->{"$account{$category}{label}_last_period"}}, $form->format_amount($myconfig, $account{$category}{sublast} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); - } - } - - } - - - # totals for assets, liabilities - $form->{total_assets_this_period} = $form->round_amount($form->{total_assets_this_period}, $form->{decimalplaces}); - $form->{total_liabilities_this_period} = $form->round_amount($form->{total_liabilities_this_period}, $form->{decimalplaces}); - $form->{total_equity_this_period} = $form->round_amount($form->{total_equity_this_period}, $form->{decimalplaces}); + if ($last_period) { + push(@{$form->{"$account{$category}{label}_last_period"}}, $form->format_amount($myconfig, $account{$category}{sublast} * $account{$category}{ml}, $form->{decimalplaces}, $dash)); + } + } - # calculate earnings - $form->{earnings_this_period} = $form->{total_assets_this_period} - $form->{total_liabilities_this_period} - $form->{total_equity_this_period}; + } - push(@{$form->{equity_this_period}}, $form->format_amount($myconfig, $form->{earnings_this_period}, $form->{decimalplaces}, "- ")); - - $form->{total_equity_this_period} = $form->round_amount($form->{total_equity_this_period} + $form->{earnings_this_period}, $form->{decimalplaces}); - # add liability + equity - $form->{total_this_period} = $form->format_amount($myconfig, $form->{total_liabilities_this_period} + $form->{total_equity_this_period}, $form->{decimalplaces}, "- "); - - - if ($last_period) { - # totals for assets, liabilities - $form->{total_assets_last_period} = $form->round_amount($form->{total_assets_last_period}, $form->{decimalplaces}); - $form->{total_liabilities_last_period} = $form->round_amount($form->{total_liabilities_last_period}, $form->{decimalplaces}); - $form->{total_equity_last_period} = $form->round_amount($form->{total_equity_last_period}, $form->{decimalplaces}); - - # calculate retained earnings - $form->{earnings_last_period} = $form->{total_assets_last_period} - $form->{total_liabilities_last_period} - $form->{total_equity_last_period}; - - push(@{$form->{equity_last_period}}, $form->format_amount($myconfig,$form->{earnings_last_period}, $form->{decimalplaces}, "- ")); + # totals for assets, liabilities + $form->{total_assets_this_period} = $form->round_amount( + $form->{total_assets_this_period}, $form->{decimalplaces}); + $form->{total_liabilities_this_period} = $form->round_amount( + $form->{total_liabilities_this_period}, + $form->{decimalplaces}); + $form->{total_equity_this_period} = $form->round_amount( + $form->{total_equity_this_period}, $form->{decimalplaces}); + + # calculate earnings + $form->{earnings_this_period} = $form->{total_assets_this_period} + - $form->{total_liabilities_this_period} + - $form->{total_equity_this_period}; + + push(@{$form->{equity_this_period}}, + $form->format_amount( + $myconfig, $form->{earnings_this_period}, + $form->{decimalplaces}, "- ")); + + $form->{total_equity_this_period} = $form->round_amount( + $form->{total_equity_this_period} + + $form->{earnings_this_period}, + $form->{decimalplaces}); + + # add liability + equity + $form->{total_this_period} = $form->format_amount( + $myconfig, + $form->{total_liabilities_this_period} + + $form->{total_equity_this_period}, + $form->{decimalplaces}, "- "); + + + if ($last_period) { + # totals for assets, liabilities + $form->{total_assets_last_period} = $form->round_amount( + $form->{total_assets_last_period}, + $form->{decimalplaces}); + $form->{total_liabilities_last_period} = $form->round_amount( + $form->{total_liabilities_last_period}, + $form->{decimalplaces}); + $form->{total_equity_last_period} = $form->round_amount( + $form->{total_equity_last_period}, + $form->{decimalplaces}); + + # calculate retained earnings + $form->{earnings_last_period} + = $form->{total_assets_last_period} + - $form->{total_liabilities_last_period} + - $form->{total_equity_last_period}; + + push(@{$form->{equity_last_period}}, + $form->format_amount( + $myconfig,$form->{earnings_last_period}, + $form->{decimalplaces}, "- ")); - $form->{total_equity_last_period} = $form->round_amount($form->{total_equity_last_period} + $form->{earnings_last_period}, $form->{decimalplaces}); - - # add liability + equity - $form->{total_last_period} = $form->format_amount($myconfig, $form->{total_liabilities_last_period} + $form->{total_equity_last_period}, $form->{decimalplaces}, "- "); + $form->{total_equity_last_period} = $form->round_amount( + $form->{total_equity_last_period} + + $form->{earnings_last_period}, + $form->{decimalplaces}); + + # add liability + equity + $form->{total_last_period} = $form->format_amount( + $myconfig, + $form->{total_liabilities_last_period} + + $form->{total_equity_last_period}, + $form->{decimalplaces}, "- "); - } + } - $form->{total_liabilities_last_period} = $form->format_amount($myconfig, $form->{total_liabilities_last_period}, $form->{decimalplaces}, "- ") if ($form->{total_liabilities_last_period}); + $form->{total_liabilities_last_period} = $form->format_amount( + $myconfig, $form->{total_liabilities_last_period}, + $form->{decimalplaces}, "- ") + if ($form->{total_liabilities_last_period}); - $form->{total_equity_last_period} = $form->format_amount($myconfig, $form->{total_equity_last_period}, $form->{decimalplaces}, "- ") if ($form->{total_equity_last_period}); + $form->{total_equity_last_period} = $form->format_amount( + $myconfig, $form->{total_equity_last_period}, + $form->{decimalplaces}, "- ") + if ($form->{total_equity_last_period}); - $form->{total_assets_last_period} = $form->format_amount($myconfig, $form->{total_assets_last_period}, $form->{decimalplaces}, "- ") if ($form->{total_assets_last_period}); + $form->{total_assets_last_period} = $form->format_amount( + $myconfig, $form->{total_assets_last_period}, + $form->{decimalplaces}, "- ") + if ($form->{total_assets_last_period}); - $form->{total_assets_this_period} = $form->format_amount($myconfig, $form->{total_assets_this_period}, $form->{decimalplaces}, "- "); + $form->{total_assets_this_period} = $form->format_amount( + $myconfig, $form->{total_assets_this_period}, + $form->{decimalplaces}, "- "); - $form->{total_liabilities_this_period} = $form->format_amount($myconfig, $form->{total_liabilities_this_period}, $form->{decimalplaces}, "- "); + $form->{total_liabilities_this_period} = $form->format_amount( + $myconfig, $form->{total_liabilities_this_period}, + $form->{decimalplaces}, "- "); - $form->{total_equity_this_period} = $form->format_amount($myconfig, $form->{total_equity_this_period}, $form->{decimalplaces}, "- "); + $form->{total_equity_this_period} = $form->format_amount( + $myconfig, $form->{total_equity_this_period}, + $form->{decimalplaces}, "- "); } sub get_accounts { - my ($dbh, $last_period, $fromdate, $todate, $form, $categories, $excludeyearend) = @_; + my ($dbh, $last_period, $fromdate, $todate, $form, $categories, + $excludeyearend) = @_; + + my $department_id; + my $project_id; + + ($null, $department_id) = split /--/, $form->{department}; + ($null, $project_id) = split /--/, $form->{projectnumber}; + + my $query; + my $dpt_where; + my $dpt_join; + my $project; + my $where = "1 = 1"; + my $glwhere = ""; + my $subwhere = ""; + my $yearendwhere = "1 = 1"; + my $item; + + my $category = "AND ("; + foreach $item (@{ $categories }) { + $category .= qq|c.category = |.$dbh->quote($item).qq| OR |; + } + $category =~ s/OR $/\)/; - my $department_id; - my $project_id; - - ($null, $department_id) = split /--/, $form->{department}; - ($null, $project_id) = split /--/, $form->{projectnumber}; - my $query; - my $dpt_where; - my $dpt_join; - my $project; - my $where = "1 = 1"; - my $glwhere = ""; - my $subwhere = ""; - my $yearendwhere = "1 = 1"; - my $item; - - my $category = "AND ("; - foreach $item (@{ $categories }) { - $category .= qq|c.category = '$item' OR |; - } - $category =~ s/OR $/\)/; - - - # get headings - $query = qq|SELECT accno, description, category - FROM chart c - WHERE c.charttype = 'H' - $category - ORDER by c.accno|; - - if ($form->{accounttype} eq 'gifi') - { - $query = qq|SELECT g.accno, g.description, c.category - FROM gifi g - JOIN chart c ON (c.gifi_accno = g.accno) - WHERE c.charttype = 'H' - $category + # get headings + $query = qq| + SELECT accno, description, category + FROM chart c + WHERE c.charttype = 'H' $category + ORDER BY c.accno|; + + if ($form->{accounttype} eq 'gifi'){ + $query = qq| + SELECT g.accno, g.description, c.category + FROM gifi g + JOIN chart c ON (c.gifi_accno = g.accno) + WHERE c.charttype = 'H' $category ORDER BY g.accno|; - } + } - $sth = $dbh->prepare($query); - $sth->execute || $form->dberror($query); + $sth = $dbh->prepare($query); + $sth->execute || $form->dberror($query); - my @headingaccounts = (); - while ($ref = $sth->fetchrow_hashref(NAME_lc)) - { - $form->{$ref->{category}}{$ref->{accno}}{description} = "$ref->{description}"; - $form->{$ref->{category}}{$ref->{accno}}{charttype} = "H"; - $form->{$ref->{category}}{$ref->{accno}}{accno} = $ref->{accno}; + my @headingaccounts = (); + while ($ref = $sth->fetchrow_hashref(NAME_lc)){ + $form->{$ref->{category}}{$ref->{accno}}{description} + = "$ref->{description}"; + + $form->{$ref->{category}}{$ref->{accno}}{charttype} = "H"; + $form->{$ref->{category}}{$ref->{accno}}{accno} = $ref->{accno}; - push @headingaccounts, $ref->{accno}; - } + push @headingaccounts, $ref->{accno}; + } - $sth->finish; + $sth->finish; - if ($form->{method} eq 'cash' && !$todate) { - ($todate) = $dbh->selectrow_array(qq|SELECT current_date|); - } + if ($form->{method} eq 'cash' && !$todate) { + ($todate) = $dbh->selectrow_array(qq|SELECT current_date|); + } - if ($fromdate) { - if ($form->{method} eq 'cash') { - $subwhere .= " AND transdate >= '$fromdate'"; - $glwhere = " AND ac.transdate >= '$fromdate'"; - } else { - $where .= " AND ac.transdate >= '$fromdate'"; - } - } + if ($fromdate) { + if ($form->{method} eq 'cash') { + $subwhere .= " AND transdate >= ". + $dbh->quote($fromdate); + $glwhere = " AND ac.transdate >= ". + $dbh->quote($fromdate); + } else { + $where .= " AND ac.transdate >= ". + $dbh->quote($fromdate); + } + } - if ($todate) { - $where .= " AND ac.transdate <= '$todate'"; - $subwhere .= " AND transdate <= '$todate'"; - $yearendwhere = "ac.transdate < '$todate'"; - } + if ($todate) { + $where .= " AND ac.transdate <= ".$dbh->quote($todate); + $subwhere .= " AND transdate <= ".$dbh->quote($todate); + $yearendwhere = "ac.transdate < ".$dbh->quote($todate); + } - if ($excludeyearend) { - $ywhere = " AND ac.trans_id NOT IN - (SELECT trans_id FROM yearend)"; + if ($excludeyearend) { + $ywhere = " + AND ac.trans_id NOT IN (SELECT trans_id FROM yearend)"; - if ($todate) { - $ywhere = " AND ac.trans_id NOT IN - (SELECT trans_id FROM yearend - WHERE transdate <= '$todate')"; - } + if ($todate) { + $ywhere = " + AND ac.trans_id NOT IN + (SELECT trans_id FROM yearend + WHERE transdate <= ".dbh->quote($todate).")"; + } - if ($fromdate) { - $ywhere = " AND ac.trans_id NOT IN - (SELECT trans_id FROM yearend - WHERE transdate >= '$fromdate')"; - if ($todate) { - $ywhere = " AND ac.trans_id NOT IN - (SELECT trans_id FROM yearend - WHERE transdate >= '$fromdate' - AND transdate <= '$todate')"; - } - } - } + if ($fromdate) { + $ywhere = " + AND ac.trans_id NOT IN + (SELECT trans_id FROM yearend + WHERE transdate >= ".$dbh->quote($fromdate). + ")"; + if ($todate) { + $ywhere = " + AND ac.trans_id NOT IN + (SELECT trans_id FROM yearend + WHERE transdate >= " + .$dbh->quote($fromdate)." + AND transdate <= ". + $dbh->quote($todate).")"; + } + } + } - if ($department_id) { - $dpt_join = qq| - JOIN department t ON (a.department_id = t.id) - |; - $dpt_where = qq| - AND t.id = $department_id - |; - } + if ($department_id) { + $dpt_join = qq| + JOIN department t ON (a.department_id = t.id)|; + $dpt_where = qq| + AND t.id = $department_id|; + } - if ($project_id) { - $project = qq| - AND ac.project_id = $project_id - |; - } + if ($project_id) { + $project = qq| + AND ac.project_id = $project_id|; + } - if ($form->{accounttype} eq 'gifi') { + if ($form->{accounttype} eq 'gifi') { - if ($form->{method} eq 'cash') { - - $query = qq| - - SELECT g.accno, sum(ac.amount) AS amount, - g.description, c.category - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - JOIN ar a ON (a.id = ac.trans_id) - JOIN gifi g ON (g.accno = c.gifi_accno) - $dpt_join - WHERE $where - $ywhere - $dpt_where - $category - AND ac.trans_id IN - ( - SELECT trans_id - FROM acc_trans - JOIN chart ON (chart_id = id) - WHERE link LIKE '%AR_paid%' - $subwhere - ) - $project - GROUP BY g.accno, g.description, c.category + if ($form->{method} eq 'cash') { + + $query = qq| + SELECT g.accno, sum(ac.amount) AS amount, + g.description, c.category + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + JOIN ar a ON (a.id = ac.trans_id) + JOIN gifi g ON (g.accno = c.gifi_accno) + $dpt_join + WHERE $where $ywhere $dpt_where $category + AND ac.trans_id IN ( + SELECT trans_id + FROM acc_trans + JOIN chart ON (chart_id = id) + WHERE link LIKE '%AR_paid%' + $subwhere) + $project + GROUP BY g.accno, g.description, c.category - UNION ALL - - SELECT '' AS accno, SUM(ac.amount) AS amount, - '' AS description, c.category - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - JOIN ar a ON (a.id = ac.trans_id) - $dpt_join - WHERE $where - $ywhere - $dpt_where - $category - AND c.gifi_accno = '' - AND ac.trans_id IN - ( - SELECT trans_id - FROM acc_trans - JOIN chart ON (chart_id = id) - WHERE link LIKE '%AR_paid%' - $subwhere - ) - $project - GROUP BY c.category - - UNION ALL - - SELECT g.accno, sum(ac.amount) AS amount, - g.description, c.category - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - JOIN ap a ON (a.id = ac.trans_id) - JOIN gifi g ON (g.accno = c.gifi_accno) - $dpt_join - WHERE $where - $ywhere - $dpt_where - $category - AND ac.trans_id IN - ( - SELECT trans_id - FROM acc_trans - JOIN chart ON (chart_id = id) - WHERE link LIKE '%AP_paid%' - $subwhere - ) - $project - GROUP BY g.accno, g.description, c.category + UNION ALL + + SELECT '' AS accno, SUM(ac.amount) AS amount, + '' AS description, c.category + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + JOIN ar a ON (a.id = ac.trans_id) + $dpt_join + WHERE $where $ywhere $dpt_where $category + AND c.gifi_accno = '' AND + ac.trans_id IN + (SELECT trans_id FROM acc_trans + JOIN chart ON (chart_id = id) + WHERE link LIKE '%AR_paid%' + $subwhere) $project + GROUP BY c.category + + UNION ALL + + SELECT g.accno, sum(ac.amount) AS amount, + g.description, c.category + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + JOIN ap a ON (a.id = ac.trans_id) + JOIN gifi g ON (g.accno = c.gifi_accno) + $dpt_join + WHERE $where $ywhere $dpt_where $category + AND ac.trans_id IN + (SELECT trans_id FROM acc_trans + JOIN chart ON (chart_id = id) + WHERE link LIKE '%AP_paid%' + $subwhere) $project + GROUP BY g.accno, g.description, c.category - UNION ALL + UNION ALL - SELECT '' AS accno, SUM(ac.amount) AS amount, - '' AS description, c.category - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - JOIN ap a ON (a.id = ac.trans_id) - $dpt_join - WHERE $where - $ywhere - $dpt_where - $category - AND c.gifi_accno = '' - AND ac.trans_id IN - ( - SELECT trans_id - FROM acc_trans - JOIN chart ON (chart_id = id) - WHERE link LIKE '%AP_paid%' - $subwhere - ) - $project - GROUP BY c.category - - UNION ALL - --- add gl - - SELECT g.accno, sum(ac.amount) AS amount, - g.description, c.category - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - JOIN gifi g ON (g.accno = c.gifi_accno) - JOIN gl a ON (a.id = ac.trans_id) - $dpt_join - WHERE $where - $ywhere - $glwhere - $dpt_where - $category - AND NOT (c.link = 'AR' OR c.link = 'AP') - $project - GROUP BY g.accno, g.description, c.category + SELECT '' AS accno, SUM(ac.amount) AS amount, + '' AS description, c.category + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + JOIN ap a ON (a.id = ac.trans_id) + $dpt_join + WHERE $where $ywhere $dpt_where $category + AND c.gifi_accno = '' + AND ac.trans_id IN + (SELECT trans_id FROM acc_trans + JOIN chart ON (chart_id = id) + WHERE link LIKE '%AP_paid%' $subwhere) + $project + GROUP BY c.category + + UNION ALL + + SELECT g.accno, sum(ac.amount) AS amount, + g.description, c.category + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + JOIN gifi g ON (g.accno = c.gifi_accno) + JOIN gl a ON (a.id = ac.trans_id) + $dpt_join + WHERE $where $ywhere $glwhere $dpt_where + $category AND NOT + (c.link = 'AR' OR c.link = 'AP') + $project + GROUP BY g.accno, g.description, c.category - UNION ALL - - SELECT '' AS accno, SUM(ac.amount) AS amount, - '' AS description, c.category - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - JOIN gl a ON (a.id = ac.trans_id) - $dpt_join - WHERE $where - $ywhere - $glwhere - $dpt_where - $category - AND c.gifi_accno = '' - AND NOT (c.link = 'AR' OR c.link = 'AP') - $project - GROUP BY c.category - |; - - if ($excludeyearend) { - - # this is for the yearend - - $query .= qq| - - UNION ALL - - SELECT g.accno, sum(ac.amount) AS amount, - g.description, c.category - FROM yearend y - JOIN gl a ON (a.id = y.trans_id) - JOIN acc_trans ac ON (ac.trans_id = y.trans_id) - JOIN chart c ON (c.id = ac.chart_id) - JOIN gifi g ON (g.accno = c.gifi_accno) - $dpt_join - WHERE $yearendwhere - AND c.category = 'Q' - $dpt_where - $project - GROUP BY g.accno, g.description, c.category - |; - } - - } else { - - if ($department_id) { - $dpt_join = qq| - JOIN dpt_trans t ON (t.trans_id = ac.trans_id) - |; - $dpt_where = qq| - AND t.department_id = $department_id - |; - } - - $query = qq| - - SELECT g.accno, SUM(ac.amount) AS amount, - g.description, c.category - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - JOIN gifi g ON (c.gifi_accno = g.accno) - $dpt_join - WHERE $where - $ywhere - $dpt_where - $category - $project - GROUP BY g.accno, g.description, c.category + UNION ALL + + SELECT '' AS accno, SUM(ac.amount) AS amount, + '' AS description, c.category + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + JOIN gl a ON (a.id = ac.trans_id) + $dpt_join + WHERE $where $ywhere $glwhere $dpt_where + $category AND c.gifi_accno = '' + AND NOT + (c.link = 'AR' OR c.link = 'AP') + $project + GROUP BY c.category|; + + if ($excludeyearend) { + + + $query .= qq| + + UNION ALL + + SELECT g.accno, + sum(ac.amount) AS amount, + g.description, c.category + FROM yearend y + JOIN gl a ON (a.id = y.trans_id) + JOIN acc_trans ac + ON (ac.trans_id = y.trans_id) + JOIN chart c + ON (c.id = ac.chart_id) + JOIN gifi g + ON (g.accno = c.gifi_accno) + $dpt_join + WHERE $yearendwhere + AND c.category = 'Q' + $dpt_where $project + GROUP BY g.accno, g.description, + c.category|; + } + + } else { + + if ($department_id) { + $dpt_join = qq| + JOIN dpt_trans t + ON (t.trans_id = ac.trans_id)|; + $dpt_where = qq| + AND t.department_id = |. + $dbh->quote($department_id); + } + + $query = qq| + SELECT g.accno, SUM(ac.amount) AS amount, + g.description, c.category + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + JOIN gifi g ON (c.gifi_accno = g.accno) + $dpt_join + WHERE $where $ywhere $dpt_where $category + $project + GROUP BY g.accno, g.description, c.category - UNION ALL + UNION ALL - SELECT '' AS accno, SUM(ac.amount) AS amount, - '' AS description, c.category - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - $dpt_join - WHERE $where - $ywhere - $dpt_where - $category - AND c.gifi_accno = '' - $project - GROUP BY c.category - |; - - if ($excludeyearend) { - - # this is for the yearend - - $query .= qq| - - UNION ALL - - SELECT g.accno, sum(ac.amount) AS amount, - g.description, c.category - FROM yearend y - JOIN gl a ON (a.id = y.trans_id) - JOIN acc_trans ac ON (ac.trans_id = y.trans_id) - JOIN chart c ON (c.id = ac.chart_id) - JOIN gifi g ON (g.accno = c.gifi_accno) - $dpt_join - WHERE $yearendwhere - AND c.category = 'Q' - $dpt_where - $project - GROUP BY g.accno, g.description, c.category - |; - } - } + SELECT '' AS accno, SUM(ac.amount) AS amount, + '' AS description, c.category + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + $dpt_join + WHERE $where $ywhere $dpt_where $category + AND c.gifi_accno = '' $project + GROUP BY c.category|; + + if ($excludeyearend) { + + $query .= qq| + + UNION ALL + + SELECT g.accno, + sum(ac.amount) + AS amount, + g.description, + c.category + FROM yearend y + JOIN gl a + ON (a.id = y.trans_id) + JOIN acc_trans ac + ON (ac.trans_id = + y.trans_id) + JOIN chart c + ON + (c.id = ac.chart_id) + JOIN gifi g + ON (g.accno = + c.gifi_accno) + $dpt_join + WHERE $yearendwhere + AND c.category = 'Q' + $dpt_where $project + GROUP BY g.accno, + g.description, + c.category|; + } + } - } else { # standard account - - if ($form->{method} eq 'cash') { - - $query = qq| + } else { # standard account + + if ($form->{method} eq 'cash') { + + $query = qq| + SELECT c.accno, sum(ac.amount) AS amount, + c.description, c.category + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + JOIN ar a ON (a.id = ac.trans_id) $dpt_join + WHERE $where $ywhere $dpt_where $category + AND ac.trans_id IN ( + SELECT trans_id FROM acc_trans + JOIN chart ON (chart_id = id) + WHERE link LIKE '%AR_paid%' $subwhere) + $project + GROUP BY c.accno, c.description, c.category + + UNION ALL - SELECT c.accno, sum(ac.amount) AS amount, - c.description, c.category - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - JOIN ar a ON (a.id = ac.trans_id) - $dpt_join - WHERE $where - $ywhere - $dpt_where - $category - AND ac.trans_id IN - ( - SELECT trans_id - FROM acc_trans - JOIN chart ON (chart_id = id) - WHERE link LIKE '%AR_paid%' - $subwhere - ) - - $project - GROUP BY c.accno, c.description, c.category + SELECT c.accno, sum(ac.amount) AS amount, + c.description, c.category + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + JOIN ap a ON (a.id = ac.trans_id) $dpt_join + WHERE $where $ywhere $dpt_where $category + AND ac.trans_id IN ( + SELECT trans_id FROM acc_trans + JOIN chart ON (chart_id = id) + WHERE link LIKE '%AP_paid%' $subwhere) + $project + GROUP BY c.accno, c.description, c.category - UNION ALL - - SELECT c.accno, sum(ac.amount) AS amount, - c.description, c.category - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - JOIN ap a ON (a.id = ac.trans_id) - $dpt_join - WHERE $where - $ywhere - $dpt_where - $category - AND ac.trans_id IN - ( - SELECT trans_id - FROM acc_trans - JOIN chart ON (chart_id = id) - WHERE link LIKE '%AP_paid%' - $subwhere - ) - - $project - GROUP BY c.accno, c.description, c.category - - UNION ALL - - SELECT c.accno, sum(ac.amount) AS amount, - c.description, c.category - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - JOIN gl a ON (a.id = ac.trans_id) - $dpt_join - WHERE $where - $ywhere - $glwhere - $dpt_where - $category - AND NOT (c.link = 'AR' OR c.link = 'AP') - $project - GROUP BY c.accno, c.description, c.category - |; + UNION ALL + + SELECT c.accno, sum(ac.amount) AS amount, + c.description, c.category + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + JOIN gl a ON (a.id = ac.trans_id) $dpt_join + WHERE $where $ywhere $glwhere $dpt_where $category + AND NOT (c.link = 'AR' OR c.link = 'AP') + $project + GROUP BY c.accno, c.description, c.category|; - if ($excludeyearend) { + if ($excludeyearend) { # this is for the yearend - $query .= qq| - - UNION ALL - - SELECT c.accno, sum(ac.amount) AS amount, - c.description, c.category - FROM yearend y - JOIN gl a ON (a.id = y.trans_id) - JOIN acc_trans ac ON (ac.trans_id = y.trans_id) - JOIN chart c ON (c.id = ac.chart_id) - $dpt_join - WHERE $yearendwhere - AND c.category = 'Q' - $dpt_where - $project - GROUP BY c.accno, c.description, c.category - |; - } - - } else { + $query .= qq| + + UNION ALL + + SELECT c.accno, + sum(ac.amount) AS amount, + c.description, c.category + FROM yearend y + JOIN gl a ON (a.id = y.trans_id) + JOIN acc_trans ac + ON (ac.trans_id = y.trans_id) + JOIN chart c + ON (c.id = ac.chart_id) + $dpt_join + WHERE $yearendwhere AND + c.category = 'Q' $dpt_where + $project + GROUP BY c.accno, c.description, + c.category|; + } + + } else { - if ($department_id) { - $dpt_join = qq| - JOIN dpt_trans t ON (t.trans_id = ac.trans_id) - |; - $dpt_where = qq| - AND t.department_id = $department_id - |; - } + if ($department_id) { + $dpt_join = qq| + JOIN dpt_trans t + ON (t.trans_id = ac.trans_id)|; + $dpt_where = qq| AND t.department_id = |. + $dbh->quote($department_id); + } - $query = qq| - - SELECT c.accno, sum(ac.amount) AS amount, - c.description, c.category - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - $dpt_join - WHERE $where - $ywhere - $dpt_where - $category - $project - GROUP BY c.accno, c.description, c.category - |; + $query = qq| + SELECT c.accno, sum(ac.amount) AS amount, + c.description, c.category + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + $dpt_join + WHERE $where $ywhere $dpt_where $category + $project + GROUP BY c.accno, c.description, c.category|; - if ($excludeyearend) { + if ($excludeyearend) { - # this is for the yearend - - $query .= qq| + $query .= qq| - UNION ALL + UNION ALL - SELECT c.accno, sum(ac.amount) AS amount, - c.description, c.category - FROM yearend y - JOIN gl a ON (a.id = y.trans_id) - JOIN acc_trans ac ON (ac.trans_id = y.trans_id) - JOIN chart c ON (c.id = ac.chart_id) - $dpt_join - WHERE $yearendwhere - AND c.category = 'Q' - $dpt_where - $project - GROUP BY c.accno, c.description, c.category - |; - } - } - } + SELECT c.accno, + sum(ac.amount) AS amount, + c.description, c.category + FROM yearend y + JOIN gl a ON (a.id = y.trans_id) + JOIN acc_trans ac + ON (ac.trans_id = y.trans_id) + JOIN chart c + ON (c.id = ac.chart_id) + $dpt_join + WHERE $yearendwhere AND + c.category = 'Q' $dpt_where + $project + GROUP BY c.accno, c.description, + c.category|; + } + } + } - my @accno; - my $accno; - my $ref; + my @accno; + my $accno; + my $ref; - my $sth = $dbh->prepare($query); - $sth->execute || $form->dberror($query); + my $sth = $dbh->prepare($query); + $sth->execute || $form->dberror($query); - while ($ref = $sth->fetchrow_hashref(NAME_lc)) { - - # get last heading account - @accno = grep { $_ le "$ref->{accno}" } @headingaccounts; - $accno = pop @accno; - if ($accno && ($accno ne $ref->{accno}) ) { - if ($last_period) - { - $form->{$ref->{category}}{$accno}{last} += $ref->{amount}; - } else { - $form->{$ref->{category}}{$accno}{this} += $ref->{amount}; - } - } + while ($ref = $sth->fetchrow_hashref(NAME_lc)) { + + # get last heading account + @accno = grep { $_ le "$ref->{accno}" } @headingaccounts; + $accno = pop @accno; + if ($accno && ($accno ne $ref->{accno}) ) { + if ($last_period) { + $form->{$ref->{category}}{$accno}{last} + += $ref->{amount}; + } else { + $form->{$ref->{category}}{$accno}{this} + += $ref->{amount}; + } + } - $form->{$ref->{category}}{$ref->{accno}}{accno} = $ref->{accno}; - $form->{$ref->{category}}{$ref->{accno}}{description} = $ref->{description}; - $form->{$ref->{category}}{$ref->{accno}}{charttype} = "A"; + $form->{$ref->{category}}{$ref->{accno}}{accno} + = $ref->{accno}; + $form->{$ref->{category}}{$ref->{accno}}{description} + = $ref->{description}; + $form->{$ref->{category}}{$ref->{accno}}{charttype} = "A"; - if ($last_period) { - $form->{$ref->{category}}{$ref->{accno}}{last} += $ref->{amount}; - } else { - $form->{$ref->{category}}{$ref->{accno}}{this} += $ref->{amount}; - } - } - $sth->finish; + if ($last_period) { + $form->{$ref->{category}}{$ref->{accno}}{last} + += $ref->{amount}; + } else { + $form->{$ref->{category}}{$ref->{accno}}{this} + += $ref->{amount}; + } + } + $sth->finish; - # remove accounts with zero balance - foreach $category (@{ $categories }) { - foreach $accno (keys %{ $form->{$category} }) { - $form->{$category}{$accno}{last} = $form->round_amount($form->{$category}{$accno}{last}, $form->{decimalplaces}); - $form->{$category}{$accno}{this} = $form->round_amount($form->{$category}{$accno}{this}, $form->{decimalplaces}); - - delete $form->{$category}{$accno} if ($form->{$category}{$accno}{this} == 0 && $form->{$category}{$accno}{last} == 0); - } - } + # remove accounts with zero balance + foreach $category (@{ $categories }) { + foreach $accno (keys %{ $form->{$category} }) { + $form->{$category}{$accno}{last} = $form->round_amount( + $form->{$category}{$accno}{last}, + $form->{decimalplaces}); + $form->{$category}{$accno}{this} = $form->round_amount( + $form->{$category}{$accno}{this}, + $form->{decimalplaces}); + + delete $form->{$category}{$accno} + if ($form->{$category}{$accno}{this} == 0 + && $form->{$category}{$accno}{last} + == 0); + } + } } sub trial_balance { - my ($self, $myconfig, $form) = @_; - - my $dbh = $form->dbconnect($myconfig); - - my ($query, $sth, $ref); - my %balance = (); - my %trb = (); - my $null; - my $department_id; - my $project_id; - my @headingaccounts = (); - my $dpt_where; - my $dpt_join; - my $project; - - my $where = "1 = 1"; - my $invwhere = $where; - - ($null, $department_id) = split /--/, $form->{department}; - ($null, $project_id) = split /--/, $form->{projectnumber}; - - if ($department_id) { - $dpt_join = qq| - JOIN dpt_trans t ON (ac.trans_id = t.trans_id) - |; - $dpt_where = qq| - AND t.department_id = $department_id - |; - } + my ($self, $myconfig, $form) = @_; + + my $dbh = $form->{dbh}; + + my ($query, $sth, $ref); + my %balance = (); + my %trb = (); + my $null; + my $department_id; + my $project_id; + my @headingaccounts = (); + my $dpt_where; + my $dpt_join; + my $project; + + my $where = "1 = 1"; + my $invwhere = $where; + + ($null, $department_id) = split /--/, $form->{department}; + ($null, $project_id) = split /--/, $form->{projectnumber}; + + if ($department_id) { + $dpt_join = qq| + JOIN dpt_trans t ON (ac.trans_id = t.trans_id)|; + $dpt_where = qq| + AND t.department_id = |.$dbh->quote($department_id); + } - if ($project_id) { - $project = qq| - AND ac.project_id = $project_id - |; - } + if ($project_id) { + $project = qq| + AND ac.project_id = |.$dbh->quote($project_id); + } - ($form->{fromdate}, $form->{todate}) = $form->from_to($form->{year}, $form->{month}, $form->{interval}) if $form->{year} && $form->{month}; + ($form->{fromdate}, $form->{todate}) = $form->from_to( + $form->{year}, $form->{month}, $form->{interval}) + if $form->{year} && $form->{month}; - # get beginning balances - if ($form->{fromdate}) { + # get beginning balances + if ($form->{fromdate}) { - if ($form->{accounttype} eq 'gifi') { + if ($form->{accounttype} eq 'gifi') { - $query = qq|SELECT g.accno, c.category, SUM(ac.amount) AS amount, - g.description, c.contra - FROM acc_trans ac - JOIN chart c ON (ac.chart_id = c.id) - JOIN gifi g ON (c.gifi_accno = g.accno) - $dpt_join - WHERE ac.transdate < '$form->{fromdate}' - $dpt_where - $project - GROUP BY g.accno, c.category, g.description, c.contra - |; + $query = qq| + SELECT g.accno, c.category, + SUM(ac.amount) AS amount, + g.description, c.contra + FROM acc_trans ac + JOIN chart c ON (ac.chart_id = c.id) + JOIN gifi g ON (c.gifi_accno = g.accno) + $dpt_join + WHERE ac.transdate < '$form->{fromdate}' + $dpt_where $project + GROUP BY g.accno, c.category, g.description, + c.contra|; - } else { + } else { - $query = qq|SELECT c.accno, c.category, SUM(ac.amount) AS amount, - c.description, c.contra - FROM acc_trans ac - JOIN chart c ON (ac.chart_id = c.id) - $dpt_join - WHERE ac.transdate < '$form->{fromdate}' - $dpt_where - $project - GROUP BY c.accno, c.category, c.description, c.contra - |; + $query = qq| + SELECT c.accno, c.category, + SUM(ac.amount) AS amount, + c.description, c.contra + FROM acc_trans ac + JOIN chart c ON (ac.chart_id = c.id) + $dpt_join + WHERE ac.transdate < '$form->{fromdate}' + $dpt_where $project + GROUP BY c.accno, c.category, c.description, + c.contra|; - } + } + + $sth = $dbh->prepare($query); + $sth->execute || $form->dberror($query); + + while (my $ref = $sth->fetchrow_hashref(NAME_lc)) { + $ref->{amount} = $form->round_amount($ref->{amount}, + 2); + $balance{$ref->{accno}} = $ref->{amount}; + + if ($form->{all_accounts}) { + $trb{$ref->{accno}}{description} + = $ref->{description}; + $trb{$ref->{accno}}{charttype} + = 'A'; + $trb{$ref->{accno}}{category} + = $ref->{category}; + $trb{$ref->{accno}}{contra} + = $ref->{contra}; + } + + } + $sth->finish; - $sth = $dbh->prepare($query); - $sth->execute || $form->dberror($query); - - while (my $ref = $sth->fetchrow_hashref(NAME_lc)) { - $ref->{amount} = $form->round_amount($ref->{amount}, 2); - $balance{$ref->{accno}} = $ref->{amount}; - - if ($form->{all_accounts}) { - $trb{$ref->{accno}}{description} = $ref->{description}; - $trb{$ref->{accno}}{charttype} = 'A'; - $trb{$ref->{accno}}{category} = $ref->{category}; - $trb{$ref->{accno}}{contra} = $ref->{contra}; - } - - } - $sth->finish; - - } + } - # get headings - $query = qq|SELECT c.accno, c.description, c.category - FROM chart c - WHERE c.charttype = 'H' - ORDER by c.accno|; - - if ($form->{accounttype} eq 'gifi') - { - $query = qq|SELECT g.accno, g.description, c.category, c.contra - FROM gifi g - JOIN chart c ON (c.gifi_accno = g.accno) - WHERE c.charttype = 'H' - ORDER BY g.accno|; - } + # get headings + $query = qq| + SELECT c.accno, c.description, c.category FROM chart c + WHERE c.charttype = 'H' + ORDER by c.accno|; + + if ($form->{accounttype} eq 'gifi'){ + $query = qq| + SELECT g.accno, g.description, c.category, c.contra + FROM gifi g + JOIN chart c ON (c.gifi_accno = g.accno) + WHERE c.charttype = 'H' + ORDER BY g.accno|; + } - $sth = $dbh->prepare($query); - $sth->execute || $form->dberror($query); + $sth = $dbh->prepare($query); + $sth->execute || $form->dberror($query); - while ($ref = $sth->fetchrow_hashref(NAME_lc)) - { - $trb{$ref->{accno}}{description} = $ref->{description}; - $trb{$ref->{accno}}{charttype} = 'H'; - $trb{$ref->{accno}}{category} = $ref->{category}; - $trb{$ref->{accno}}{contra} = $ref->{contra}; + while ($ref = $sth->fetchrow_hashref(NAME_lc)) { + $trb{$ref->{accno}}{description} = $ref->{description}; + $trb{$ref->{accno}}{charttype} = 'H'; + $trb{$ref->{accno}}{category} = $ref->{category}; + $trb{$ref->{accno}}{contra} = $ref->{contra}; - push @headingaccounts, $ref->{accno}; - } + push @headingaccounts, $ref->{accno}; + } - $sth->finish; + $sth->finish; - if ($form->{fromdate} || $form->{todate}) { - if ($form->{fromdate}) { - $where .= " AND ac.transdate >= '$form->{fromdate}'"; - $invwhere .= " AND a.transdate >= '$form->{fromdate}'"; - } - if ($form->{todate}) { - $where .= " AND ac.transdate <= '$form->{todate}'"; - $invwhere .= " AND a.transdate <= '$form->{todate}'"; - } - } + if ($form->{fromdate} || $form->{todate}) { + if ($form->{fromdate}) { + $where .= " AND ac.transdate >= " + .$dbh->quote($form->{fromdate}); + $invwhere .= " AND a.transdate >= ". + $dbh->quote($form->{fromdate}); + } + if ($form->{todate}) { + $where .= " AND ac.transdate <= ". + $dbh->quote($form->{todate}); + $invwhere .= " AND a.transdate <= " + .$dbh->quote($form->{todate}); + } + } - if ($form->{accounttype} eq 'gifi') { + if ($form->{accounttype} eq 'gifi') { - $query = qq|SELECT g.accno, g.description, c.category, - SUM(ac.amount) AS amount, c.contra - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - JOIN gifi g ON (c.gifi_accno = g.accno) - $dpt_join - WHERE $where - $dpt_where - $project - GROUP BY g.accno, g.description, c.category, c.contra - ORDER BY accno|; + $query = qq| + SELECT g.accno, g.description, c.category, + SUM(ac.amount) AS amount, c.contra + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + JOIN gifi g ON (c.gifi_accno = g.accno) + $dpt_join + WHERE $where $dpt_where $project + GROUP BY g.accno, g.description, c.category, c.contra + ORDER BY accno|; - } else { + } else { - $query = qq|SELECT c.accno, c.description, c.category, - SUM(ac.amount) AS amount, c.contra - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - $dpt_join - WHERE $where - $dpt_where - $project - GROUP BY c.accno, c.description, c.category, c.contra - ORDER BY accno|; + $query = qq| + SELECT c.accno, c.description, c.category, + SUM(ac.amount) AS amount, c.contra + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + $dpt_join + WHERE $where $dpt_where $project + GROUP BY c.accno, c.description, c.category, c.contra + ORDER BY accno|; - } + } - $sth = $dbh->prepare($query); - $sth->execute || $form->dberror($query); + $sth = $dbh->prepare($query); + $sth->execute || $form->dberror($query); - # prepare query for each account - $query = qq|SELECT (SELECT SUM(ac.amount) * -1 - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - $dpt_join - WHERE $where - $dpt_where - $project - AND ac.amount < 0 - AND c.accno = ?) AS debit, - - (SELECT SUM(ac.amount) - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - $dpt_join - WHERE $where - $dpt_where - $project - AND ac.amount > 0 - AND c.accno = ?) AS credit - |; - - if ($form->{accounttype} eq 'gifi') { - - $query = qq|SELECT (SELECT SUM(ac.amount) * -1 - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - $dpt_join - WHERE $where - $dpt_where - $project - AND ac.amount < 0 - AND c.gifi_accno = ?) AS debit, + # prepare query for each account + $query = qq| + SELECT (SELECT SUM(ac.amount) * -1 FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + $dpt_join + WHERE $where $dpt_where $project AND ac.amount < 0 + AND c.accno = ?) AS debit, + (SELECT SUM(ac.amount FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + $dpt_join + WHERE $where $dpt_where $project AND ac.amount > 0 + AND c.accno = ?) AS credit |; + + if ($form->{accounttype} eq 'gifi') { + + $query = qq| + SELECT (SELECT SUM(ac.amount) * -1 + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + $dpt_join + WHERE $where $dpt_where $project AND ac.amount < 0 + AND c.gifi_accno = ?) AS debit, - (SELECT SUM(ac.amount) - FROM acc_trans ac - JOIN chart c ON (c.id = ac.chart_id) - $dpt_join - WHERE $where - $dpt_where - $project - AND ac.amount > 0 - AND c.gifi_accno = ?) AS credit|; + (SELECT SUM(ac.amount) + FROM acc_trans ac + JOIN chart c ON (c.id = ac.chart_id) + $dpt_join + WHERE $where $dpt_where $project AND ac.amount > 0 + AND c.gifi_accno = ?) AS credit|; - } + } - $drcr = $dbh->prepare($query); + $drcr = $dbh->prepare($query); - # calculate debit and credit for the period - while ($ref = $sth->fetchrow_hashref(NAME_lc)) { - $trb{$ref->{accno}}{description} = $ref->{description}; - $trb{$ref->{accno}}{charttype} = 'A'; - $trb{$ref->{accno}}{category} = $ref->{category}; - $trb{$ref->{accno}}{contra} = $ref->{contra}; - $trb{$ref->{accno}}{amount} += $ref->{amount}; - } - $sth->finish; + # calculate debit and credit for the period + while ($ref = $sth->fetchrow_hashref(NAME_lc)) { + $trb{$ref->{accno}}{description} = $ref->{description}; + $trb{$ref->{accno}}{charttype} = 'A'; + $trb{$ref->{accno}}{category} = $ref->{category}; + $trb{$ref->{accno}}{contra} = $ref->{contra}; + $trb{$ref->{accno}}{amount} += $ref->{amount}; + } + $sth->finish; - my ($debit, $credit); + my ($debit, $credit); - foreach my $accno (sort keys %trb) { - $ref = (); + foreach my $accno (sort keys %trb) { + $ref = (); - $ref->{accno} = $accno; - for (qw(description category contra charttype amount)) { $ref->{$_} = $trb{$accno}{$_} } + $ref->{accno} = $accno; + for (qw(description category contra charttype amount)) { + $ref->{$_} = $trb{$accno}{$_}; + } - $ref->{balance} = $balance{$ref->{accno}}; + $ref->{balance} = $balance{$ref->{accno}}; - if ($trb{$accno}{charttype} eq 'A') { - if ($project_id) { + if ($trb{$accno}{charttype} eq 'A') { + if ($project_id) { - if ($ref->{amount} < 0) { - $ref->{debit} = $ref->{amount} * -1; - } else { - $ref->{credit} = $ref->{amount}; - } - next if $form->round_amount($ref->{amount}, 2) == 0; + if ($ref->{amount} < 0) { + $ref->{debit} = $ref->{amount} * -1; + } else { + $ref->{credit} = $ref->{amount}; + } + next if $form->round_amount( + $ref->{amount}, 2) == 0; - } else { + } else { - # get DR/CR - $drcr->execute($ref->{accno}, $ref->{accno}); + # get DR/CR + $drcr->execute($ref->{accno}, $ref->{accno}); - ($debit, $credit) = (0,0); - while (($debit, $credit) = $drcr->fetchrow_array) { - $ref->{debit} += $debit; - $ref->{credit} += $credit; - } - $drcr->finish; - - } - - $ref->{debit} = $form->round_amount($ref->{debit}, 2); - $ref->{credit} = $form->round_amount($ref->{credit}, 2); + ($debit, $credit) = (0,0); + while (($debit, $credit) + = $drcr->fetchrow_array) { + $ref->{debit} += $debit; + $ref->{credit} += $credit; + } + $drcr->finish; + + } + + $ref->{debit} = $form->round_amount($ref->{debit}, 2); + $ref->{credit} + = $form->round_amount($ref->{credit}, 2); - if (!$form->{all_accounts}) { - next if $form->round_amount($ref->{debit} + $ref->{credit}, 2) == 0; - } - } - - # add subtotal - @accno = grep { $_ le "$ref->{accno}" } @headingaccounts; - $accno = pop @accno; - if ($accno) { - $trb{$accno}{debit} += $ref->{debit}; - $trb{$accno}{credit} += $ref->{credit}; - } - - push @{ $form->{TB} }, $ref; + if (!$form->{all_accounts}) { + next + if $form->round_amount( + $ref->{debit} + $ref->{credit}, + 2) + == 0; + } + } + + # add subtotal + @accno = grep { $_ le "$ref->{accno}" } @headingaccounts; + $accno = pop @accno; + if ($accno) { + $trb{$accno}{debit} += $ref->{debit}; + $trb{$accno}{credit} += $ref->{credit}; + } + + push @{ $form->{TB} }, $ref; - } + } - $dbh->disconnect; + $dbh->commit; - # debits and credits for headings - foreach $accno (@headingaccounts) { - foreach $ref (@{ $form->{TB} }) { - if ($accno eq $ref->{accno}) { - $ref->{debit} = $trb{$accno}{debit}; - $ref->{credit} = $trb{$accno}{credit}; - } - } - } + # debits and credits for headings + foreach $accno (@headingaccounts) { + foreach $ref (@{ $form->{TB} }) { + if ($accno eq $ref->{accno}) { + $ref->{debit} = $trb{$accno}{debit}; + $ref->{credit} = $trb{$accno}{credit}; + } + } + } } sub aging { - my ($self, $myconfig, $form) = @_; + my ($self, $myconfig, $form) = @_; - # connect to database - my $dbh = $form->dbconnect($myconfig); - my $invoice = ($form->{arap} eq 'ar') ? 'is' : 'ir'; + my $dbh = $form->{dbh}; + my $invoice = ($form->{arap} eq 'ar') ? 'is' : 'ir'; - my $query = qq|SELECT value FROM defaults WHERE settings_key = 'curr'|; - ($form->{currencies}) = $dbh->selectrow_array($query); + my $query = qq|SELECT value FROM defaults WHERE settings_key = 'curr'|; + ($form->{currencies}) = $dbh->selectrow_array($query); - ($null, $form->{todate}) = $form->from_to($form->{year}, $form->{month}) if $form->{year} && $form->{month}; + ($null, $form->{todate}) + = $form->from_to($form->{year}, $form->{month}) + if $form->{year} && $form->{month}; - if (! $form->{todate}) { - $query = qq|SELECT current_date|; - ($form->{todate}) = $dbh->selectrow_array($query); - } + if (! $form->{todate}) { + $query = qq|SELECT current_date|; + ($form->{todate}) = $dbh->selectrow_array($query); + } - my $where = "1 = 1"; - my $name; - my $null; - my $ref; - my $transdate = ($form->{overdue}) ? "duedate" : "transdate"; - - if ($form->{"$form->{ct}_id"}) { - $where .= qq| AND ct.id = $form->{"$form->{ct}_id"}|; - } else { - if ($form->{$form->{ct}} ne "") { - $name = $form->like(lc $form->{$form->{ct}}); - $where .= qq| AND lower(ct.name) LIKE '$name'| if $form->{$form->{ct}}; - } - } + my $where = "1 = 1"; + my $name; + my $null; + my $ref; + my $transdate = ($form->{overdue}) ? "duedate" : "transdate"; + + if ($form->{"$form->{ct}_id"}) { + $where .= qq| AND ct.id = |. + $dbh->quote($form->{"$form->{ct}_id"}); + } else { + if ($form->{$form->{ct}} ne "") { + $name = $dbh->quote($form->like( + lc $form->{$form->{ct}})); + $where .= qq| AND lower(ct.name) LIKE $name| + if $form->{$form->{ct}}; + } + } - if ($form->{department}) { - ($null, $department_id) = split /--/, $form->{department}; - $where .= qq| AND a.department_id = $department_id|; - } - - # select outstanding vendors or customers, depends on $ct - $query = qq|SELECT DISTINCT ct.id, ct.name, ct.language_code - FROM $form->{ct} ct - JOIN $form->{arap} a ON (a.$form->{ct}_id = ct.id) - WHERE $where - AND a.paid != a.amount - AND (a.$transdate <= '$form->{todate}') - ORDER BY ct.name|; - my $sth = $dbh->prepare($query); - $sth->execute || $form->dberror; + if ($form->{department}) { + ($null, $department_id) = split /--/, $form->{department}; + $where .= qq| AND a.department_id = |. + $dbh->quote($department_id); + } - my @ot = (); - while ($ref = $sth->fetchrow_hashref(NAME_lc)) { - push @ot, $ref; - } - $sth->finish; + # select outstanding vendors or customers, depends on $ct + $query = qq| + SELECT DISTINCT ct.id, ct.name, ct.language_code + FROM $form->{ct} ct + JOIN $form->{arap} a ON (a.$form->{ct}_id = ct.id) + WHERE $where AND a.paid != a.amount + AND (a.$transdate <= ?) + ORDER BY ct.name|; + my $sth = $dbh->prepare($query); + $sth->execute($form->{todate}) || $form->dberror; + + my @ot = (); + while ($ref = $sth->fetchrow_hashref(NAME_lc)) { + push @ot, $ref; + } + $sth->finish; - my $buysell = ($form->{arap} eq 'ar') ? 'buy' : 'sell'; - - my %interval = ( 'Pg' => { - 'c0' => "(date '$form->{todate}' - interval '0 days')", - 'c30' => "(date '$form->{todate}' - interval '30 days')", - 'c60' => "(date '$form->{todate}' - interval '60 days')", - 'c90' => "(date '$form->{todate}' - interval '90 days')" }, - 'DB2' => { - 'c0' => "(date ('$form->{todate}') - 0 days)", - 'c30' => "(date ('$form->{todate}') - 30 days)", - 'c60' => "(date ('$form->{todate}') - 60 days)", - 'c90' => "(date ('$form->{todate}') - 90 days)" } + my $buysell = ($form->{arap} eq 'ar') ? 'buy' : 'sell'; + + my $todate = $dbh->quote($form->{todate}); + my %interval = ( + 'c0' => "(date $todate - interval '0 days')", + 'c30' => "(date $todate - interval '30 days')", + 'c60' => "(date $todate - interval '60 days')", + 'c90' => "(date $todate - interval '90 days')" ); - $interval{Oracle} = $interval{PgPP} = $interval{Pg}; - # for each company that has some stuff outstanding - $form->{currencies} ||= ":"; + # for each company that has some stuff outstanding + $form->{currencies} ||= ":"; - $where = qq| - a.paid != a.amount - AND c.id = ? - AND a.curr = ?|; + $where = qq|a.paid != a.amount AND c.id = ? AND a.curr = ?|; - if ($department_id) { - $where .= qq| AND a.department_id = $department_id|; - } + if ($department_id) { + $where .= qq| AND a.department_id = |. + $dbh->quote($department_id); + } - $query = ""; - my $union = ""; - - if ($form->{c0}) { - $query .= qq| - SELECT c.id AS ctid, c.$form->{ct}number, c.name, - c.address1, c.address2, c.city, c.state, c.zipcode, c.country, - c.contact, c.email, - c.phone as $form->{ct}phone, c.fax as $form->{ct}fax, - c.$form->{ct}number, c.taxnumber as $form->{ct}taxnumber, - a.invnumber, a.transdate, a.till, a.ordnumber, a.ponumber, a.notes, - (a.amount - a.paid) as c0, 0.00 as c30, 0.00 as c60, 0.00 as c90, - a.duedate, a.invoice, a.id, a.curr, - (SELECT $buysell FROM exchangerate e - WHERE a.curr = e.curr - AND e.transdate = a.transdate) AS exchangerate - FROM $form->{arap} a - JOIN $form->{ct} c ON (a.$form->{ct}_id = c.id) - WHERE $where - AND ( - a.$transdate <= $interval{$myconfig->{dbdriver}}{c0} - AND a.$transdate >= $interval{$myconfig->{dbdriver}}{c30} - ) -|; - - $union = qq| - UNION -|; + $query = ""; + my $union = ""; + + if ($form->{c0}) { + $query .= qq| + SELECT c.id AS ctid, c.$form->{ct}number, c.name, + c.address1, c.address2, c.city, c.state, + c.zipcode, c.country, c.contact, c.email, + c.phone as $form->{ct}phone, + c.fax as $form->{ct}fax, + c.$form->{ct}number, + c.taxnumber as $form->{ct}taxnumber, + a.invnumber, a.transdate, a.till, a.ordnumber, + a.ponumber, a.notes, (a.amount - a.paid) as c0, + 0.00 as c30, 0.00 as c60, 0.00 as c90, + a.duedate, a.invoice, a.id, a.curr, + (SELECT $buysell FROM exchangerate e + WHERE a.curr = e.curr + AND e.transdate = a.transdate) + AS exchangerate + FROM $form->{arap} a + JOIN $form->{ct} c ON (a.$form->{ct}_id = c.id) + WHERE $where AND ( a.$transdate <= $interval{c0} + AND a.$transdate >= $interval{c30} )|; + + $union = qq|UNION|; - } + } - if ($form->{c30}) { - - $query .= qq| - - $union - - SELECT c.id AS ctid, c.$form->{ct}number, c.name, - c.address1, c.address2, c.city, c.state, c.zipcode, c.country, - c.contact, c.email, - c.phone as $form->{ct}phone, c.fax as $form->{ct}fax, - c.$form->{ct}number, c.taxnumber as $form->{ct}taxnumber, - a.invnumber, a.transdate, a.till, a.ordnumber, a.ponumber, a.notes, - 0.00 as c0, (a.amount - a.paid) as c30, 0.00 as c60, 0.00 as c90, - a.duedate, a.invoice, a.id, a.curr, - (SELECT $buysell FROM exchangerate e - WHERE a.curr = e.curr - AND e.transdate = a.transdate) AS exchangerate - FROM $form->{arap} a - JOIN $form->{ct} c ON (a.$form->{ct}_id = c.id) - WHERE $where - AND ( - a.$transdate < $interval{$myconfig->{dbdriver}}{c30} - AND a.$transdate >= $interval{$myconfig->{dbdriver}}{c60} - ) -|; - - $union = qq| - UNION -|; - - } + if ($form->{c30}) { + + $query .= qq| + + $union + + SELECT c.id AS ctid, c.$form->{ct}number, c.name, + c.address1, c.address2, c.city, c.state, + c.zipcode, c.country, c.contact, c.email, + c.phone as $form->{ct}phone, + c.fax as $form->{ct}fax, c.$form->{ct}number, + c.taxnumber as $form->{ct}taxnumber, + a.invnumber, a.transdate, a.till, a.ordnumber, + a.ponumber, a.notes, 0.00 as c0, + (a.amount - a.paid) as c30, 0.00 as c60, + 0.00 as c90, a.duedate, a.invoice, a.id, a.curr, + (SELECT $buysell FROM exchangerate e + WHERE a.curr = e.curr + AND e.transdate = a.transdate) + AS exchangerate + FROM $form->{arap} a + JOIN $form->{ct} c ON (a.$form->{ct}_id = c.id) + WHERE $where AND (a.$transdate < $interval{c30} + AND a.$transdate >= $interval{c60})|; + + $union = qq|UNION|; - if ($form->{c60}) { + } - $query .= qq| + if ($form->{c60}) { - $union + $query .= qq| + $union - SELECT c.id AS ctid, c.$form->{ct}number, c.name, - c.address1, c.address2, c.city, c.state, c.zipcode, c.country, - c.contact, c.email, - c.phone as $form->{ct}phone, c.fax as $form->{ct}fax, - c.$form->{ct}number, c.taxnumber as $form->{ct}taxnumber, - a.invnumber, a.transdate, a.till, a.ordnumber, a.ponumber, a.notes, - 0.00 as c0, 0.00 as c30, (a.amount - a.paid) as c60, 0.00 as c90, - a.duedate, a.invoice, a.id, a.curr, - (SELECT $buysell FROM exchangerate e - WHERE a.curr = e.curr - AND e.transdate = a.transdate) AS exchangerate - FROM $form->{arap} a - JOIN $form->{ct} c ON (a.$form->{ct}_id = c.id) - WHERE $where - AND ( - a.$transdate < $interval{$myconfig->{dbdriver}}{c60} - AND a.$transdate >= $interval{$myconfig->{dbdriver}}{c90} - ) -|; - - $union = qq| - UNION -|; - - } - - if ($form->{c90}) { - - $query .= qq| - - $union - - SELECT c.id AS ctid, c.$form->{ct}number, c.name, - c.address1, c.address2, c.city, c.state, c.zipcode, c.country, - c.contact, c.email, - c.phone as $form->{ct}phone, c.fax as $form->{ct}fax, - c.$form->{ct}number, c.taxnumber as $form->{ct}taxnumber, - a.invnumber, a.transdate, a.till, a.ordnumber, a.ponumber, a.notes, - 0.00 as c0, 0.00 as c30, 0.00 as c60, (a.amount - a.paid) as c90, - a.duedate, a.invoice, a.id, a.curr, - (SELECT $buysell FROM exchangerate e - WHERE a.curr = e.curr - AND e.transdate = a.transdate) AS exchangerate - FROM $form->{arap} a - JOIN $form->{ct} c ON (a.$form->{ct}_id = c.id) - WHERE $where - AND a.$transdate < $interval{$myconfig->{dbdriver}}{c90} -|; - } + SELECT c.id AS ctid, c.$form->{ct}number, c.name, + c.address1, c.address2, c.city, c.state, + c.zipcode, c.country, c.contact, c.email, + c.phone as $form->{ct}phone, + c.fax as $form->{ct}fax, c.$form->{ct}number, + c.taxnumber as $form->{ct}taxnumber, + a.invnumber, a.transdate, a.till, a.ordnumber, + a.ponumber, a.notes, 0.00 as c0, 0.00 as c30, + (a.amount - a.paid) as c60, 0.00 as c90, + a.duedate, a.invoice, a.id, a.curr, + (SELECT $buysell FROM exchangerate e + WHERE a.curr = e.curr + AND e.transdate = a.transdate) + AS exchangerate + FROM $form->{arap} a + JOIN $form->{ct} c ON (a.$form->{ct}_id = c.id) + WHERE $where AND (a.$transdate < $interval{c60} + AND a.$transdate >= $interval{c90})|; + + $union = qq|UNION|; - $query .= qq| - - ORDER BY ctid, $transdate, invnumber|; + } - $sth = $dbh->prepare($query) || $form->dberror($query); + if ($form->{c90}) { + + $query .= qq| + $union + SELECT c.id AS ctid, c.$form->{ct}number, c.name, + c.address1, c.address2, c.city, c.state, + c.zipcode, c.country, c.contact, c.email, + c.phone as $form->{ct}phone, + c.fax as $form->{ct}fax, c.$form->{ct}number, + c.taxnumber as $form->{ct}taxnumber, + a.invnumber, a.transdate, a.till, a.ordnumber, + a.ponumber, a.notes, 0.00 as c0, 0.00 as c30, + 0.00 as c60, (a.amount - a.paid) as c90, + a.duedate, a.invoice, a.id, a.curr, + (SELECT $buysell FROM exchangerate e + WHERE a.curr = e.curr + AND e.transdate = a.transdate) + AS exchangerate + FROM $form->{arap} a + JOIN $form->{ct} c ON (a.$form->{ct}_id = c.id) + WHERE $where + AND a.$transdate < $interval{c90}|; + } + $query .= qq| ORDER BY ctid, $transdate, invnumber|; + $sth = $dbh->prepare($query) || $form->dberror($query); - my @var = (); + my @var = (); - if ($form->{c0} + $form->{c30} + $form->{c60} + $form->{c90}) { - foreach $curr (split /:/, $form->{currencies}) { + if ($form->{c0} + $form->{c30} + $form->{c60} + $form->{c90}) { + foreach $curr (split /:/, $form->{currencies}) { - foreach $item (@ot) { + foreach $item (@ot) { - @var = (); - for (qw(c0 c30 c60 c90)) { push @var, ($item->{id}, $curr) if $form->{$_} } + @var = (); + for (qw(c0 c30 c60 c90)) { + push @var, ($item->{id}, $curr) + if $form->{$_} } - $sth->execute(@var); - - while ($ref = $sth->fetchrow_hashref(NAME_lc)) { - $ref->{module} = ($ref->{invoice}) ? $invoice : $form->{arap}; - $ref->{module} = 'ps' if $ref->{till}; - $ref->{exchangerate} = 1 unless $ref->{exchangerate}; - $ref->{language_code} = $item->{language_code}; - push @{ $form->{AG} }, $ref; + $sth->execute(@var); + + while ($ref = $sth->fetchrow_hashref(NAME_lc)){ + $ref->{module} = + ($ref->{invoice}) + ? $invoice + : $form->{arap}; + $ref->{module} = 'ps' if $ref->{till}; + $ref->{exchangerate} = 1 + unless $ref->{exchangerate}; + $ref->{language_code} + = $item->{language_code}; + push @{ $form->{AG} }, $ref; + } + $sth->finish; + + } + } } - $sth->finish; - - } - } - } - # get language - my $query = qq|SELECT * - FROM language - ORDER BY 2|; - $sth = $dbh->prepare($query); - $sth->execute || $form->dberror($query); + # get language + my $query = qq|SELECT * FROM language ORDER BY 2|; + $sth = $dbh->prepare($query); + $sth->execute || $form->dberror($query); - while ($ref = $sth->fetchrow_hashref(NAME_lc)) { - push @{ $form->{all_language} }, $ref; - } - $sth->finish; + while ($ref = $sth->fetchrow_hashref(NAME_lc)) { + push @{ $form->{all_language} }, $ref; + } + $sth->finish; - # disconnect - $dbh->disconnect; + $dbh->commit; } |