[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);