X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FOP.pm;h=1d2f3ffe2996ac3905dd1d25001fd4d55c293a4f;hb=2e2e8ce6a0eda4e2a09c9554be9bf76390cdda60;hp=afd0deca150af89979aaf65c628072bed8eca4f9;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/SL/OP.pm b/SL/OP.pm index afd0deca1..1d2f3ffe2 100644 --- a/SL/OP.pm +++ b/SL/OP.pm @@ -34,8 +34,6 @@ package OP; - - sub overpayment { $main::lxdebug->enter_sub(); @@ -43,7 +41,7 @@ sub overpayment { my $fxamount = $form->round_amount($amount * $form->{exchangerate}, 2); my ($paymentaccno) = split /--/, $form->{account}; - + my $vc_id = "$form->{vc}_id"; my $uid = time; @@ -79,8 +77,8 @@ sub overpayment { $dbh->do($query) || $form->dberror($query); # add AR/AP - ($accno) = split /--/, $form->{$form->{ARAP}}; - + ($accno) = split /--/, $form->{ $form->{ARAP} }; + $query = qq|INSERT INTO acc_trans (trans_id, chart_id, transdate, amount) VALUES ($uid, (SELECT c.id FROM chart c WHERE c.accno = '$accno'), @@ -106,10 +104,9 @@ sub overpayment { '1', '1')|; $dbh->do($query) || $form->dberror($query); } - + $main::lxdebug->leave_sub(); } - 1;