Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
General Ledger
Message
 
À
11/04/2012 03:37:30
Information générale
Forum:
Visual FoxPro
Catégorie:
Base de données, Tables, Vues, Index et syntaxe SQL
Titre:
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Divers
Thread ID:
01540994
Message ID:
01540997
Vues:
40
>Dear Experts
>
>I have following table
>
>
>create table test3 free (date d(8),detail c(10),vou_no n(5),debit n(9,2),credit n(9,2),;
>balance n(10,2),dr_cr c(2))
>
>INSERT INTO TEST3 values({},'Opening',0,0,0,450,'DR')
>INSERT INTO TEST3 values({^2012-04-01},"",1,796827,0,0,'')
>INSERT INTO TEST3 values({^2012-04-02},"",2,576385,0,0,'')
>INSERT INTO TEST3 values({^2012-04-03},"",3,0,500000,0,'')
>INSERT INTO TEST3 values({^2012-04-04},"",4,0,900000,0,'')
>INSERT INTO TEST3 values({^2012-04-05},"",5,1000000,0,0,'')
>INSERT INTO TEST3 values({^2012-04-06},"",6,0,972762,0,'')
>INSERT INTO TEST3 values({^2012-04-07},"",7,8000,0,0,'')
>INSERT INTO TEST3 values({^2012-04-07},"",7,0,90000,0,'')
>
>
>
>Now I want to get following result.
>(See attached image)
>
>Please help me to create General Ledger.
create table test3 free (date d(8),detail c(10),vou_no n(5),debit n(9,2),credit n(9,2),balance n(10,2),dr_cr c(2))

INSERT INTO TEST3 values({},'Opening',0,0,0,450,'DR')
INSERT INTO TEST3 values({^2012-04-01},"",1,796827,0,0,'')
INSERT INTO TEST3 values({^2012-04-02},"",2,576385,0,0,'')
INSERT INTO TEST3 values({^2012-04-03},"",3,0,500000,0,'')
INSERT INTO TEST3 values({^2012-04-04},"",4,0,900000,0,'')
INSERT INTO TEST3 values({^2012-04-05},"",5,1000000,0,0,'')
INSERT INTO TEST3 values({^2012-04-06},"",6,0,972762,0,'')
INSERT INTO TEST3 values({^2012-04-07},"",7,8000,0,0,'')
INSERT INTO TEST3 values({^2012-04-07},"",7,0,90000,0,'')


SELECT Test3.date,;
       Test3.detail,;
       Test3.vou_no,;
       Test3.debit,;
       Test3.credit,;
       Test3.Debit - Test3.credit     + NVL(SUM(Tst.Balance), 0)                  AS Balance,;
       IIF(Test3.Debit - Test3.credit + NVL(SUM(Tst.Balance), 0) < 0, "CR", "DR") AS dr_cr;
FROM Test3;
LEFT JOIN (SELECT Debit-Credit+Balance AS Balance, Date FROM Test3) Tst ON Test3.Date > Tst.Date;
GROUP BY Test3.date,;
       Test3.detail,;
       Test3.vou_no,;
       Test3.debit,;
       Test3.credit
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform