diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-17 02:23:14 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-07-17 02:23:14 +0000 |
commit | 2abf777ce8951ed38c25a7e59888b01754f8365f (patch) | |
tree | 1bf79263a4a6153c07e652746a8ade2ecdac6a8c | |
parent | f670f02b5564a12a7eb2e45a5754db590c454559 (diff) |
Applying Victor's patch for ar/ap revere bugs (bug 1752439)
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1412 4979c152-3d1c-0410-bac9-87ea11338e46
-rw-r--r-- | LedgerSMB/IS.pm | 63 |
1 files changed, 38 insertions, 25 deletions
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm index 4967f999..9682afd5 100644 --- a/LedgerSMB/IS.pm +++ b/LedgerSMB/IS.pm @@ -1058,33 +1058,45 @@ sub post_invoice { $project_id ); } else { - #search for entries on ap invoices, that have been allocated already for that product. - $query = qq| - SELECT i.id, i.qty, i.allocated, a.transdate, i.sellprice - FROM invoice i - JOIN parts p ON (p.id = i.parts_id) - JOIN ap a ON (a.id = i.trans_id) - WHERE i.parts_id = ? AND i.allocated > 0 - ORDER BY transdate,id DESC - |; - $sth = $dbh->prepare($query); - $sth->execute( $form->{"id_$i"}) || $form->dberror($query); + $query = qq| + SELECT i.id, i.qty, i.allocated, a.transdate + FROM invoice i + JOIN parts p ON (p.id = i.parts_id) + JOIN ar a ON (a.id = i.trans_id) + WHERE i.parts_id = ? AND (i.qty + i.allocated) > 0 AND i.sellprice = ? + ORDER BY transdate + |; + $sth = $dbh->prepare($query); + $sth->execute( + $form->{"id_$i"}, $form->{"sellprice_$i"} + ) || $form->dberror($query); my $totalqty = $form->{"qty_$i"}; my $total_inventory = 0; while ( my $ref = $sth->fetchrow_hashref(NAME_lc) ) { - #deallocate the necessary entries - $form->db_parse_numeric(sth=>$sth, hashref => $ref); - my $qty = $ref->{allocated}; - if($totalqty + $qty > 0) { $qty = -$totalqty; } - $allocated+=$qty; - $form->update_balance( $dbh, "invoice", "allocated", qq|id = $ref->{id}|, $qty * -1 ); - $total_inventory += $qty*$ref->{sellprice}; - last if ( ( $totalqty += $qty ) >= 0 ); - } - # increase the inventory account for that product - $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, project_id) VALUES (?, ?, ?, ?, ?)|; - $sth = $dbh->prepare($query); - $sth->execute($form->{id}, $form->{"expense_accno_id_$i"}, $total_inventory, $form->{transdate}, $form->{"project_id_$i"}) || $form->dberror($query); + $form->db_parse_numeric(sth=>$sth, hashref => $ref); + my $qty = $ref->{qty} + $ref->{allocated}; + if ( ( $qty + $totalqty ) > 0 ) { $qty = -$totalqty; } + # update allocated for sold item + $form->update_balance( + $dbh, "invoice", "allocated", + qq|id = $ref->{id}|, $qty * -1 + ); + $allocated += $qty; + last if ( ( $totalqty += $qty ) >= 0 ); + } + + $query = qq| + INSERT INTO acc_trans + (trans_id, chart_id, amount, + transdate, project_id) + VALUES (?, ?, ?, ?, ?)|; + $sth = $dbh->prepare($query); + $sth->execute( + $form->{id}, + $form->{"expense_accno_id_$i"}, + $total_inventory, $form->{transdate}, + $form->{"project_id_$i"} + ) || $form->dberror($query); $total_inventory = (-1)*$total_inventory; $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, project_id) VALUES (?, ?, ?, ?, ?)|; @@ -1560,8 +1572,9 @@ sub cogs { SELECT i.id, i.trans_id, i.qty, i.allocated, i.sellprice, i.fxsellprice, p.inventory_accno_id, p.expense_accno_id - FROM invoice i, parts p + FROM invoice i, parts p, ap a WHERE i.parts_id = p.id + AND i.trans_id = a.id AND i.parts_id = ? AND (i.qty + i.allocated) < 0 ORDER BY trans_id|; |