#=====================================================================
# LedgerSMB 
# Small Medium Business Accounting software
# http://www.ledgersmb.org/
# 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;
use LedgerSMB::Sysconfig;

sub post_transaction {

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

    # connect to database
    my $dbh = $form->{dbh};

    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}"});

    if ($form->{vc} ne "customer"){
        $form->{vc} = "vendor";
    }

    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 (SELECT value FROM defaults 
                 WHERE setting_key = 'fxgain_accno_id'), 
               (SELECT value FROM defaults
                 WHERE setting_key = 'fxloss_accno_id')|;

    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}) {
        my $id = $dbh->quote($form->{id});
        $keepcleared = 1;
        $query = qq|
            SELECT id
              FROM $table
             WHERE id = $id|;

        if ($dbh->selectrow_array($query)) {
            # delete detail records
            $query = qq|
                DELETE FROM acc_trans
                 WHERE trans_id = $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 = ?,
            ordnumber = ?,
            transdate = ?,
            $form->{vc}_id = ?,
            taxincluded = ?,
            amount = ?,
            duedate = ?,
            paid = ?,
            datepaid = ?,
            netamount = ?,
            curr = ?,
            notes = ?,
            department_id = ?,
            employee_id = ?,
            ponumber = ?
        WHERE id = ?
    |;

    my @queryargs = ($form->{invnumber}, $form->{ordnumber},
        $form->{transdate}, $form->{"$form->{vc}_id"},
        $form->{taxincluded}, $invamount, $form->{duedate}, $paid, 
        $datepaid, $invnetamout, $form->{currency}, $form->{notes},
        $form->{department_id}, $form->{employee_id},
        $form->{ponumber}, $form->{id});

    $dbh->prepare($query)->execute(@queryargs) || $form->dberror($query);

    @queries = $form->run_custom_queries($table, 'INSERT');
    # 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  (?, (SELECT id FROM chart
                                  WHERE accno = ?), 
                            ?, ?, ?, ?, ?, ?)|;

            @queryargs = ($form->{id}, $ref->{accno}, 
                $ref->{amount} * $ml, $form->{transdate}, 
                $ref->{project_id}, $ref->{description}, 
                $ref->{fx_transaction}, $ref->{cleared});
            $dbh->prepare($query)->execute(@queryargs) 
                || $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 (?, (SELECT id FROM chart
                              WHERE accno = ?),
                            ?, ?, ?)|;

            @queryargs = ($form->{id}, $ref->{accno}, 
                $ref->{amount} * $ml, $form->{transdate}, 
                $ref->{fx_transaction});
            $dbh->prepare($query)->execute(@queryargs) 
                || $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 (?, (SELECT id FROM chart
                              WHERE accno = '?'), 
                              ? * -1 * $ml, ?)|;
        @queryargs = ($form->{id}, $accno, $invamount, 
            $form->{transdate});

        $dbh->prepare($query)->execute(@queryargs) 
            || $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 (?, (SELECT id FROM chart
                                      WHERE accno = ?),
                                ? * $ml, ?)|;

                @queryargs = ($form->{id}, $paid{amount}{$i},
                    $form->{"datepaid_$i"});
                $dbh->prepare($query)->execute(@queryargs) 
                    || $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 (?, (SELECT id FROM chart
                                  WHERE accno = ?),
                                ? * -1 * $ml, ?, ?, ?, ?)|;

                @queryargs = ($form->{id}, $accno, $amount, 
                    $form->{"datepaid_$i"}, 
                    $form->{"source_$i"}, 
                    $form->{"memo_$i"},
                    $cleared);
                $dbh->prepare($query)->execute(@queryargs) 
                    || $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 (?, ?, 
                                        ? * $ml, 
                                        ?, '1', ?)|;

                        @queryargs = ($form->{id}, 
                            $accno_id, $amount,
                            $form->{"datepaid_$i"},
                            $cleared);
                        $sth = $dbh->prepare($query);
                        $sth->execute(@queryargs) 
                            || 
                            $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 (?, (SELECT id 
                                           FROM chart
                                          WHERE accno 
                                                = ?),
                                    ? * -1 * $ml, ?, 
                                    '1', ?, ?)|;

                    @queryargs = ($form->{id}, $accno,
                        $amount, $form->{"datepaid_$i"},
                        $cleared, $form->{"source_$i"});
                    $sth = $dbh->prepare($query) ;
                    $sth->execute(@queryargs)