diff options
Diffstat (limited to 'LedgerSMB/IS.pm')
| -rwxr-xr-x | LedgerSMB/IS.pm | 43 |
1 files changed, 39 insertions, 4 deletions
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm index 820024b9..e534c66c 100755 --- a/LedgerSMB/IS.pm +++ b/LedgerSMB/IS.pm @@ -1051,10 +1051,45 @@ sub post_invoice { qq|id = $form->{"id_$i"}|, $form->{"qty_$i"} * -1 ) unless $form->{shipped}; - - $allocated = - &cogs( $dbh, $form, $form->{"id_$i"}, $form->{"qty_$i"}, - $project_id ); + + if($form->{"qty_$i"}>0) { + $allocated = + &cogs( $dbh, $form, $form->{"id_$i"}, + $form->{"qty_$i"}, $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); + 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); + + $total_inventory = (-1)*$total_inventory; + $query = qq|INSERT INTO acc_trans (trans_id, chart_id, amount, transdate, project_id) VALUES (?, ?, ?, ?, ?)|; + $sth = $dbh->prepare($query); + $sth->execute($form->{id}, $form->{"inventory_accno_id_$i"}, $total_inventory, $form->{transdate}, $form->{"project_id_$i"} ) || $form->dberror($query); + } } } |