#=====================================================================
# LedgerSMB 
# Small Medium Business Accounting software
# Copyright (C) 2006
# This work contains copyrighted information from a number of sources all used
# with permission.
#
# This file contains source code included with or based on SQL-Ledger which
# is Copyright Dieter Simader and DWS Systems Inc. 2000-2005 and licensed
# under the GNU General Public License version 2 or, at your option, any later
# version.  For a full list including contact information of contributors,
# maintainers, and copyright holders, see the CONTRIBUTORS file.
#
# Original Copyright Notice from SQL-Ledger 2.6.17 (before the fork):
# Copyright (C) 2006
#
#  Author: DWS Systems Inc.
#     Web: http://www.sql-ledger.org
#
#  Contributors:
#
# 
# See COPYRIGHT file for copyright information
#======================================================================
#
# This file has undergone whitespace cleanup.
#
#======================================================================
#
# AR/AP backend routines
# common routines
#
#======================================================================

package AA;


sub post_transaction {

    my ($self, $myconfig, $form) = @_;

    # connect to database
    my $dbh = $form->dbconnect_noauto($myconfig);

    my $query;
    my $sth;

    my $null;
    ($null, $form->{department_id}) = split(/--/, $form->{department});
    $form->{department_id} *= 1;

    my $ml = 1;
    my $table = 'ar';
    my $buysell = 'buy';
    my $ARAP = 'AR';
    my $invnumber = "sinumber";
    my $keepcleared;

    if ($form->{vc} eq 'vendor') {
        $table = 'ap';
        $buysell = 'sell';
        $ARAP = 'AP';
        $ml = -1;
        $invnumber = "vinumber";
    }

    if ($form->{currency} eq $form->{defaultcurrency}) {
        $form->{exchangerate} = 1;
    } else {
        $exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{transdate}, $buysell);

        $form->{exchangerate} = ($exchangerate) ? $exchangerate : $form->parse_amount($myconfig, $form->{exchangerate}); 
    }

    my @taxaccounts = split / /, $form->{taxaccounts};
    my $tax = 0;
    my $fxtax = 0;
    my $amount;
    my $diff;

    my %tax = ();
    my $accno;

    # add taxes
    foreach $accno (@taxaccounts) {
        $fxtax += $tax{fxamount}{$accno} = $form->parse_amount($myconfig, $form->{"tax_$accno"});
        $tax += $tax{fxamount}{$accno};

        push @{ $form->{acc_trans}{taxes} }, {
            accno => $accno,
            amount => $tax{fxamount}{$accno},
            project_id => 'NULL',
            fx_transaction => 0 };

        $amount = $tax{fxamount}{$accno} * $form->{exchangerate};
        $tax{amount}{$accno} = $form->round_amount($amount - $diff, 2);
        $diff = $tax{amount}{$accno} - ($amount - $diff);
        $amount = $tax{amount}{$accno} - $tax{fxamount}{$accno};
        $tax += $amount;

        if ($form->{currency} ne $form->{defaultcurrency}) {
            push @{ $form->{acc_trans}{taxes} }, {
                accno => $accno,
                amount => $amount,
                project_id => 'NULL',
                fx_transaction => 1 };
        }

    }

    my %amount = ();
    my $fxinvamount = 0;
    for (1 .. $form->{rowcount}) { 
        $fxinvamount += $amount{fxamount}{$_} = $form->parse_amount($myconfig, $form->{"amount_$_"}) 
    }

    $form->{taxincluded} *= 1;

    my $i;
    my $project_id;
    my $cleared = 0;

    $diff = 0;
    # deduct tax from amounts if tax included
    for $i (1 .. $form->{rowcount}) {

        if ($amount{fxamount}{$i}) {

            if ($form->{taxincluded}) {
                $amount = ($fxinvamount) ? $fxtax * $amount{fxamount}{$i} / $fxinvamount : 0;
                $amount{fxamount}{$i} -= $amount;
            }

            # multiply by exchangerate
            $amount = $amount{fxamount}{$i} * $form->{exchangerate};
            $amount{amount}{$i} = $form->round_amount($amount - $diff, 2);
            $diff = $amount{amount}{$i} - ($amount - $diff);

            ($null, $project_id) = split /--/, $form->{"projectnumber_$i"};
            $project_id ||= 'NULL';
            ($accno) = split /--/, $form->{"${ARAP}_amount_$i"};

            if ($keepcleared) {
                $cleared = ($form->{"cleared_$i"}) ? 1 : 0;
            }

            push @{ $form->{acc_trans}{lineitems} }, {
                accno => $accno,
                amount => $amount{fxamount}{$i},
                project_id => $project_id,
                description => $form->{"description_$i"},
                cleared => $cleared,
                fx_transaction => 0 };

            if ($form->{currency} ne $form->{defaultcurrency}) {
                $amount = $amount{amount}{$i} - $amount{fxamount}{$i};
                push @{ $form->{acc_trans}{lineitems} }, {
                    accno => $accno,
                    amount => $amount,
                    project_id => $project_id,
                    description => $form->{"description_$i"},
                    cleared => $cleared,
                    fx_transaction => 1 };
            }
        }
    }


    my $invnetamount = 0;
    for (@{ $form->{acc_trans}{lineitems} }) { $invnetamount += $_->{amount} }
    my $invamount = $invnetamount + $tax;

    # adjust paidaccounts if there is no date in the last row
    $form->{paidaccounts}-- unless ($form->{"datepaid_$form->{paidaccounts}"});

    my $paid = 0;
    my $fxamount;

    $diff = 0;
    # add payments
    for $i (1 .. $form->{paidaccounts}) {   
        $fxamount = $form->parse_amount($myconfig, $form->{"paid_$i"});

        if ($fxamount) {
            $paid += $fxamount;

            $paidamount = $fxamount * $form->{exchangerate};

            $amount = $form->round_amount($paidamount - $diff, 2);
            $diff = $amount - ($paidamount - $diff);

            $form->{datepaid} = $form->{"datepaid_$i"};

            $paid{fxamount}{$i} = $fxamount;
            $paid{amount}{$i} = $amount;
        }
    }

    $fxinvamount += $fxtax unless $form->{taxincluded};
    $fxinvamount = $form->round_amount($fxinvamount, 2);
    $invamount = $form->round_amount($invamount, 2);
    $paid = $form->round_amount($paid, 2);

    $paid = ($fxinvamount == $paid) ? $invamount : $form->round_amount($paid * $form->{exchangerate}, 2);

    $query = q|SELECT fxgain_accno_id, fxloss_accno_id
                 FROM defaults|;

    my ($fxgain_accno_id, $fxloss_accno_id) = $dbh->selectrow_array($query);

    ($null, $form->{employee_id}) = split /--/, $form->{employee};
    unless ($form->{employee_id}) {
        ($form->{employee}, $form->{employee_id}) = $form->get_employee($dbh); 
    }

    # check if id really exists
    if ($form->{id}) {
        $keepcleared = 1;
        $query = qq|SELECT id FROM $table
                     WHERE id = $form->{id}|;

        if ($dbh->selectrow_array($query)) {
            # delete detail records
            $query = qq|DELETE FROM acc_trans
                         WHERE trans_id = $form->{id}|;

            $dbh->do($query) || $form->dberror($query);
        }
    } else {

        my $uid = localtime;
        $uid .= "$$";

        $query = qq|INSERT INTO $table (invnumber)
                    VALUES ('$uid')|;

        $dbh->do($query) || $form->dberror($query);

        $query = qq|SELECT id FROM $table
                     WHERE invnumber = '$uid'|;

        ($form->{id}) = $dbh->selectrow_array($query);
    }


    # record last payment date in ar/ap table
    $form->{datepaid} = $form->{transdate} unless $form->{datepaid};
    my $datepaid = ($paid) ? qq|'$form->{datepaid}'| : 'NULL';

    $form->{invnumber} = $form->update_defaults($myconfig, $invnumber) unless $form->{invnumber};

    $query = qq|UPDATE $table SET invnumber = |.$dbh->quote($form->{invnumber}).qq|,
                                  ordnumber = |.$dbh->quote($form->{ordnumber}).qq|,
                                  transdate = '$form->{transdate}',
                                  $form->{vc}_id = $form->{"$form->{vc}_id"},
                                  taxincluded = '$form->{taxincluded}',
                                  amount = $invamount,
                                  duedate = '$form->{duedate}',
                                  paid = $paid,
                                  datepaid = $datepaid,
                                  netamount = $invnetamount,
                                  curr = '$form->{currency}',
                                  notes = |.$dbh->quote($form->{notes}).qq|,
                                  department_id = $form->{department_id},
                                  employee_id = $form->{employee_id},
                                  ponumber = |.$dbh->quote($form->{ponumber}).qq|
                            WHERE id = $form->{id}|;

    $dbh->do($query) || $form->dberror($query);

    # update exchangerate
    my $buy = $form->{exchangerate};
    my $sell = 0;
        if ($form->{vc} eq 'vendor') {
        $buy = 0;
        $sell = $form->{exchangerate};
    }

    if (($form->{currency} ne $form->{defaultcurrency}) && !$exchangerate) {
        $form->update_exchangerate($dbh, $form->{currency}, $form->{transdate}, $buy, $sell);
    }

    my $ref;

    # add individual transactions
    foreach $ref (@{ $form->{acc_trans}{lineitems} }) {

        # insert detail records in acc_trans
        if ($ref->{amount}) {
            $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate,
                                    project_id, memo, fx_transaction, cleared)
                             VALUES ($form->{id}, (SELECT id FROM chart
                                                    WHERE accno = '$ref->{accno}'),
                                     $ref->{amount} * $ml, '$form->{transdate}',
                                     $ref->{project_id}, |.$dbh->quote($ref->{description}).qq|,
                                     '$ref->{fx_transaction}', '$ref->{cleared}')|;

            $dbh->do($query) || $form->dberror($query);
        }
    }

    # save taxes
    foreach $ref (@{ $form->{acc_trans}{taxes} }) {
        if ($ref->{amount}) {
            $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
                                    transdate, fx_transaction)
                              VALUES ($form->{id},
                                    (SELECT id FROM chart
                                      WHERE accno = '$ref->{accno}'),
                                    $ref->{amount} * $ml, '$form->{transdate}',
                                    '$ref->{fx_transaction}')|;

            $dbh->do($query) || $form->dberror($query);
        }
    }


    my $arap;

    # record ar/ap
    if (($arap = $invamount)) {
        ($accno) = split /--/, $form->{$ARAP};

        $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate)
                         VALUES ($form->{id},
                                (SELECT id FROM chart
                                  WHERE accno = '$accno'),
                                $invamount * -1 * $ml, '$form->{transdate}')|;

        $dbh->do($query) || $form->dberror($query);
    }

    # if there is no amount force ar/ap
    if ($fxinvamount == 0) {
        $arap = 1;
    }


    my $exchangerate;

    # add paid transactions
    for $i (1 .. $form->{paidaccounts}) {

        if ($paid{fxamount}{$i}) {

            ($accno) = split(/--/, $form->{"${ARAP}_paid_$i"});
            $form->{"datepaid_$i"} = $form->{transdate} unless ($form->{"datepaid_$i"});

            $exchangerate = 0;

            if ($form->{currency} eq $form->{defaultcurrency}) {
                $form->{"exchangerate_$i"} = 1;
            } else {
                $exchangerate = $form->check_exchangerate($myconfig, $form->{currency}, $form->{"datepaid_$i"}, $buysell);

                $form->{"exchangerate_$i"} = ($exchangerate) ? $exchangerate : $form->parse_amount($myconfig, $form->{"exchangerate_$i"}); 
            }

            # if there is no amount
            if ($fxinvamount == 0) {
                $form->{exchangerate} = $form->{"exchangerate_$i"};
            }

            # ar/ap amount
                if ($arap) {
                ($accno) = split /--/, $form->{$ARAP};

                # add ar/ap
                $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,transdate)
                                 VALUES ($form->{id}, (SELECT id FROM chart
                                                        WHERE accno = '$accno'),
                                        $paid{amount}{$i} * $ml, '$form->{"datepaid_$i"}')|;

                $dbh->do($query) || $form->dberror($query);
            }

            $arap = $paid{amount}{$i};


            # add payment
            if ($paid{fxamount}{$i}) {

                ($accno) = split /--/, $form->{"${ARAP}_paid_$i"};

                my $cleared = ($form->{"cleared_$i"}) ? 1 : 0;

                $amount = $paid{fxamount}{$i};
                $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
                                                   transdate, source, memo, cleared)
                                 VALUES ($form->{id}, (SELECT id FROM chart
                                                        WHERE accno = '$accno'),
                                        $amount * -1 * $ml, '$form->{"datepaid_$i"}', |
                                        .$dbh->quote($form->{"source_$i"}).qq|, |
                                        .$dbh->quote($form->{"memo_$i"}).qq|, '$cleared')|;

                $dbh->do($query) || $form->dberror($query);

                if ($form->{currency} ne $form->{defaultcurrency}) {

                    # exchangerate gain/loss
                    $amount = ($form->round_amount($paid{fxamount}{$i} * $form->{exchangerate},2) - $form->round_amount($paid{fxamount}{$i} * $form->{"exchangerate_$i"},2)) * -1;

                    if ($amount) {

                        my $accno_id = (($amount * $ml) > 0) ? $fxgain_accno_id : $fxloss_accno_id;

                        $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
                                                transdate, fx_transaction, cleared)
                                         VALUES ($form->{id}, $accno_id,
                                                $amount * $ml, '$form->{"datepaid_$i"}', '1',
                                                '$cleared')|;

                        $dbh->do($query) || $form->dberror($query);
                    }

                    # exchangerate difference
                    $amount = $paid{amount}{$i} - $paid{fxamount}{$i} + $amount;

                    $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount,
                                                        transdate, fx_transaction, cleared, source)
                                    VALUES ($form->{id}, (SELECT id FROM chart
                                                           WHERE accno = '$accno'),
                                            $amount * -1 * $ml, '$form->{"datepaid_$i"}', '1',
                                            '$cleared', |
                                            .$dbh->quote($form->{"source_$i"}).qq|)|;

                    $dbh->do($query) || $form->dberror($query);

                }

                # update exchangerate record
                $buy = $form->{"exchangerate_$i"};
                $sell = 0;

                if ($form->{vc} eq 'vendor') {
                    $buy = 0;
                    $sell = $form->{"exchangerate_$i"};
                }

                if (($form->{currency} ne $form->{defaultcurrency}) && !$exchangerate) {
                    $form->update_exchangerate($dbh, $form->{currency}, $form->{"datepaid_$i"}, $buy, $sell);
                }
            }
        }
    }

    # save printed and queued
    $form->save_status($dbh);

    my %audittrail = ( tablename  => $table,
                       reference  => $form->{invnumber},
                       formname   => 'transaction',
                       action     => 'posted',
                       id         => $form->{id} );

    $form->audittrail($dbh, "", \%audittrail);

    $form->save_recurring($dbh, $myconfig);

    my $rc = $dbh->commit;

    $dbh->disconnect;

    $rc;

}


sub delete_transaction {
    my ($self, $myconfig, $form) = @_;