cT321 ;Aankoopdagboek ;%T32 ;%T32* ; [ 01/11/01  6:05 PM ]
 G 1
 ;
T0 ;Aankoopdagboek ;
T1 ;\      Algemeen totaal der facturen;;1\\    Algemeen totaal der creditnota's;;1\;
T2 ;\Debet;2\Credit;2\Debet;2\Credit;2;
T3 ;Eindtotaal facturen;Eindtotaal creditnota's;
T4 ;Onroerende Heffing;Intracommunautair;Medecontractant;Verlegging;
T5 ;Goederen;Investeringen;Diensten;Andere;Aftrekbare BTW;Niet-aftrekbare BTW;
T6 ;Leveranciers;BTW ;Maatstaf ;Overige;
T7 ;\Facturen;2\Creditnota's;2\Niet-aftrekbare BTW;2\Totaal;2;
 ;
T0F ;Journal des achats ;
T1F ;\      Total général des factures;;1\\    Total général des notes de crédit;;1\;
T2F ;\Débit;2\Crédit;2\Débit;2\Crédit;2;
T3F ;Total final des factures;Total final des notes de crédit;
T4F ;Immobilière;Intracommunautaire;Cocontractant;Report de perception;
T5F ;Marchandises;Investissements;Services;Autres;TVA déductible;TVA non déductible;
T6F ;Fournisseurs;TVA ;Mesure de tax. ;restant;
T7F ;\Factures;2\Notes de crédit;2\TVA non déductible;2\Total;2;
 ;
T0E ;Purchase journal ;
T1E ;\     Overall total of the invoices;;1\\   Overall total of the credit notes;;1\;
T2E ;\Debit;2\Credit;2\Debit;2\Credit;2;
T3E ;Final total invoices;Final total credit notes;
T4E ;Immovable charges;Intracommunity;Co-contractor;Transferred charges;
T5E ;Goods;Investments;Services;Other;Deductible VAT;Non deductible VAT;
T6E ;Suppliers;VAT ;VAT basis ;Remain.;
T7E ;\Invoices;2\Credit notes;2\Non deductible VAT;2\Total;2;
 ;
 ;journaalpost
1 K A D S2 K TIT(1),TIT(2),AFS(1),AFS(2),TXT
11 S TIT(1)=$P($T(@("T1"_QT)),U,2,99),TIT(2)=$P($T(@("T2"_QT)),U,2,99),TAB="48\69\90\111\131"
13 S AFS(1,1)=$P($T(@("T3"_QT)),U,2)_"\\10",AFS(2,1)=$P($T(@("T3"_QT)),U,3)_"\\10"
 ;
2 S TXT(1)=$P($T(@("T5"_QT)),U,2),TXT(2)=^HULP(boot,$J,7,"F"),TXT(5)=^("C"),(TXT(3),TXT(4))="" I TXT(2)!TXT(5) D S1,^cA334
21 F J=14,13,15 S TXT(1)=$P($T(@("T5"_QT)),U,J-10),TXT(2)=^HULP(boot,$J,J,"F"),TXT(5)=^("C") I TXT(2)!TXT(5) D S1,^cA334
23 S TXT(1)=$P($T(@("T5"_QT)),U,6),TXT(2)=A(1,6),TXT(5)=A(2,6) I TXT(2)!TXT(5) D S1,^cA334
25 S TXT(1)=$P($T(@("T5"_QT)),U,7),TXT(2)=A(1,9),TXT(5)=A(2,9) I TXT(2)!TXT(5) D S1,^cA334
 ;
3 S TXT(1)=$P($T(@("T6"_QT)),U,2),TXT(3)=A(1,2),TXT(4)=A(2,2),(TXT(2),TXT(5))="" I TXT(3)!TXT(4) D S3,^cA334
31 S TXT(1)=$P($T(@("T6"_QT)),U,3)_$P($T(@("T4"_QT)),U,3),TXT(3)=^HULP(boot,$J+.02,"I","F"),TXT(4)=^("C") I TXT(3)!TXT(4) D S3,^cA334
33 S TXT(1)=$P($T(@("T6"_QT)),U,3)_$P($T(@("T4"_QT)),U,2),TXT(3)=^HULP(boot,$J+.02,"O","F"),TXT(4)=^("C") I TXT(3)!TXT(4) D S3,^cA334
35 S TXT(1)=$P($T(@("T6"_QT)),U,3)_$P($T(@("T4"_QT)),U,4),TXT(3)=^HULP(boot,$J+.02,"M","F"),TXT(4)=^("C") I TXT(3)!TXT(4) D S3,^cA334
37 S TXT(1)=$P($T(@("T6"_QT)),U,3)_$P($T(@("T4"_QT)),U,5),TXT(3)=^HULP(boot,$J+.02,"V","F"),TXT(4)=^("C") I TXT(3)!TXT(4) D S3,^cA334
39 S END=2 D ^cA334
 ;
 ;uitsplitsing GOE, DIE, INV, AND
4 K TIT(1),TIT(2),AFS(1),AFS(2),TXT
41 S TIT(1)=$P($T(@("T7"_QT)),U,2,99),(TOP(1,1),TOP(2,1))="",END=8 D ^cA334
 ;
5 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T5"_QT)),U,2),TXT(2)=^HULP(boot,$J+.01,7,"F"),TXT(3)=^("C"),TXT(4)=^HULP(boot,$J+.04,7),TXT(5)=TXT(2)-TXT(3)+TXT(4) D S5,^cA334
51 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T5"_QT)),U,4),TXT(2)=^HULP(boot,$J+.01,14,"F"),TXT(3)=^("C"),TXT(4)=^HULP(boot,$J+.04,14),TXT(5)=TXT(2)-TXT(3)+TXT(4) D S5,^cA334
53 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T5"_QT)),U,3),TXT(2)=^HULP(boot,$J+.01,13,"F"),TXT(3)=^("C"),TXT(4)=^HULP(boot,$J+.04,13),TXT(5)=TXT(2)-TXT(3)+TXT(4) D S5,^cA334
55 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T5"_QT)),U,5),TXT(2)=^HULP(boot,$J+.01,15,"F"),TXT(3)=^("C"),TXT(4)=^HULP(boot,$J+.04,15),TXT(5)=TXT(2)-TXT(3)+TXT(4) D S5,^cA334
57 S END=2 D ^cA334
 ;
 ;uitsplitsing OH, IC, MC, VL
6 K AFS(1),TOP,TXT
61 S TIT(1)=$P(TIT(1),D,1,3)_D_$P(TIT(1),D,5),TAB=$P(TAB,D,1,4),END=8 D ^cA334
 ;
7 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T4"_QT)),U,3),TXT(2)=^HULP(boot,$J+.03,"I","F"),TXT(3)=^("C"),TXT(4)=TXT(2)-TXT(3) D S5,^cA334
71 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T4"_QT)),U,2),TXT(2)=^HULP(boot,$J+.03,"O","F"),TXT(3)=^("C"),TXT(4)=TXT(2)-TXT(3) D S5,^cA334
73 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T4"_QT)),U,4),TXT(2)=^HULP(boot,$J+.03,"M","F"),TXT(3)=^("C"),TXT(4)=TXT(2)-TXT(3) D S5,^cA334
75 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T4"_QT)),U,5),TXT(2)=^HULP(boot,$J+.03,"V","F"),TXT(3)=^("C"),TXT(4)=TXT(2)-TXT(3) D S5,^cA334
77 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T6"_QT)),U,5),TXT(2)=^HULP(boot,$J+.03," ","F"),TXT(3)=^("C"),TXT(4)=TXT(2)-TXT(3) D S5,^cA334
79 S TXT(1)=$P($T(@("T6"_QT)),U,4)_$P($T(@("T5"_QT)),U,5),TXT(2)=^HULP(boot,$J+.01,15,"F"),TXT(3)=^("C"),TXT(4)=TXT(2)-TXT(3) D S5,^cA334
 ;
Y S END=1 D ^cA334
YZ Q
 ;
S1 S $P(TXT(1),D,3)=1 F I=5,8 S $P(TXT(2),D,I)=1
S1A S $P(TXT(5),D,5)=1,$P(TXT(5),D,8)=2
S1B F I=2,5 S $P(TXT(I),D,6)=QD I 'TXT(I) S TXT(I)=""
S1Z Q
 ;
S2 F I=1,2 F J=2:1:9 S A(I,J)=$G(AFS(I,J))
S2Z Q
 ;
S3 S $P(TXT(1),D,3)=6 F I=5,8 S $P(TXT(3),D,I)=1
S3A S $P(TXT(4),D,5)=1,$P(TXT(4),D,8)=2
S3B F I=3,4 S $P(TXT(I),D,6)=QD I 'TXT(I) S TXT(I)=""
S3Z Q
 ;
S5 S $P(TXT(1),D,3)=1 F I=2:1:5 F J=5,8 S $P(TXT(I),D,J)=1,$P(TXT(I),D,6)=QD S:'TXT(I) TXT(I)=""
S5Z Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84