Re^4: SQL Database Table to Perl Script

Maybe this SQL will help.

 SELECT AccNum, max(date), Type, sum(Amount) FROM transaction GROUP BY
+ AccNum, Type
union
SELECT AccNum, max(date),'Balance', sum(if (type='Debit',-1*Amount,Amo
+unt)) FROM transaction GROUP BY AccNum;

SELECT * FROM transaction t where chequeno is not null or ddno is not 
+null;
[download]

And this has little to do with perl this is an datbase question

Comment on Re^4: SQL Database Table to Perl Script Download Code

Replies are listed 'Best First'.
Re^5: SQL Database Table to Perl Script by prithviraj (Novice) on Oct 05, 2012 at 17:23 UTC
Sir.For the question below, I want to solve it with a single SQL query. I tried all possibilities but nothing is working. Please help: Query data from transaction table and calculate total amount debited by cheque, dd and by cash for each account.	[reply]
Re^6: SQL Database Table to Perl Script by Anonymous Monk on Oct 05, 2012 at 20:13 UTC
1) Query data from transaction table and calculate the total balance in each account Select columns from your table, group by "accnum". When "type" = 'credit', then add "amount"; when "type" = 'debit', subtract "amount". And then display the result as a column in your resultset. 2) Query data from transaction table `SELECT columns FROM transaction table` and calculate total amount `sum(...)` debited by cheque, `chequeno IS NOT NULL` dd `ddno IS NOT NULL` and by cash `chequeno IS NULL AND ddno IS NULL` for each account. `GROUP BY accnum` For the rest, why not look here? And there.	[reply] [d/l] [select]


There's more than one way to do things
	PerlMonks