From 85b9468d5244968a15d6a83bd9f147975b0dd7ec Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 19 Jul 2007 18:04:20 +0000
Subject: Applying Victor's patch 1766387

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1428 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/IS.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'LedgerSMB/IS.pm')

diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index d4cfd5be..4f67145c 100644
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -1127,6 +1127,28 @@ sub post_invoice {
                                  $linetotal, $form->{transdate}, 
                                  $form->{"project_id_$i"}, $ref->{id}
                             ) || $form->dberror($query);
+                            # start patch bug 1755928 ################################################################################
+                            my $allocated1 = 0;
+                            my $totalqty1 = $qty;
+                            my $query_ap = qq|SELECT i.id, i.qty, i.allocated, a.transdate
+                        		        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.qty + i.allocated) > 0 AND i.sellprice = ?
+                                            ORDER BY transdate|;
+                            my $sth1 = $dbh->prepare($query_ap);
+                            $sth1->execute( $form->{"id_$i"}, $ref->{"sellprice"}) || $form->dberror($query_ap);
+                            while ( my $ref1 = $sth1->fetchrow_hashref(NAME_lc) ) {
+                        	$form->db_parse_numeric(sth=>$sth1, hashref => $ref1);
+                                my $qty = $ref1->{qty} + $ref1->{allocated};
+                        	if ( ( $qty - $totalqty ) > 0 ) { $qty = $totalqty; }
+                                $form->update_balance( $dbh, "invoice", "allocated", qq|id = $ref1->{id}|, $qty );
+                                $allocated1 += $qty;
+                    		last if ( ( $totalqty1 -= $qty ) <= 0 );
+                            }
+                            $form->update_balance( $dbh, "invoice", "allocated", qq|id = $ref->{id}|, $allocated1 * -1 );
+                    	    # stop  patch bug 1755928 ################################################################################
+
  		            last if ( ( $totalqty += $qty ) >= 0 );
  		        }
 		    }
-- 
cgit v1.2.3