[interchange-cvs] interchange - heins modified lib/Vend/Accounting/SQL_Ledger.pm

interchange-core@interchange.redhat.com interchange-core@interchange.redhat.com
Sun Jul 7 17:08:02 2002


User:      heins
Date:      2002-07-07 21:07:57 GMT
Modified:  lib/Vend/Accounting SQL_Ledger.pm
Log:
* Change auto-parts insertion to reflect proper values for *_accno_id

Revision  Changes    Path
1.4       +5 -1      interchange/lib/Vend/Accounting/SQL_Ledger.pm


rev 1.4, prev_rev 1.3
Index: SQL_Ledger.pm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /anon_cvs/repository/interchange/lib/Vend/Accounting/SQL_Ledger.p=
m,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- SQL_Ledger.pm	7 Jul 2002 03:58:43 -0000	1.3
+++ SQL_Ledger.pm	7 Jul 2002 21:07:57 -0000	1.4
@@ -325,7 +325,11 @@
 	inventory_accno_id,
 	income_accno_id,
 	expense_accno_id
-) VALUES ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? )
+) VALUES ( ?, ?, ?, ?, ?, ?, ?, ?, ?,
+			(select c.id from chart c where c.accno =3D ?),
+			(select c.id from chart c where c.accno =3D ?),
+			(select c.id from chart c where c.accno =3D ?)
+			)
 EOF
 			my $sh =3D $dbh->prepare($addq)
 				or die errmsg("Prepare add part '%s' failed.", $addq);