cT501 ;BTW-overeenstemming ;%T50 ;go uit %T500 ; [ 09/15/00  12:14 PM ]
 G 1
 ;
T0 ;BTW-overeenstemming ;
T1 ;BTW-overeenstemming; / Muntcode : ;
T2 ; Grootboekrekening\          Verkopen;;1\\      Aankopen;;1\\          Diversen;;1\\     Financieel;;1\\;
T3 ;\Debet;2\Credit;2;
T4 ; Overdracht; Eindtotaal;
T5 ; Verlaging kort.contant; Maatstaf van heffing;
 ;
T0F ;Concordance de TVA ;
T1F ;Concordance de TVA; / Code mon.: ;
T2F ; Compte grand-livre\           Ventes;;1\\       Achats;;1\\           Divers;;1\\      Financier;;1\\;
T3F ;\Débit;2\Crédit;2;
T4F ; Transfert; Total final;
T5F ; Escompte au comptant; Base taxable;
 ;
T0E ;BTW-overeenstemming ;
T1E ;BTW-overeenstemming; / Muntcode : ;
T2E ; Grootboekrekening\          Verkopen;;1\\      Aankopen;;1\\          Diversen;;1\\     Financieel;;1\\;
T3E ;\Debet;2\Credit;2;
T4E ; Overdracht; Eindtotaal;
T5E ; Verlaging kort.contant; Maatstaf van heffing;
 ;
 ; init.
1 S HD(1)=D,HD(2)=D_$P($T(@("T1"_QT)),U,2)_";C;F82",HD(3)=D_$S(PP(1):PP(3)_"-"_PP(4),1:PP(2))_$P($T(@("T1"_QT)),U,3)_$P(MUNT,D)_";C;F82"
11 S TIT(1)=$P($T(@("T2"_QT)),U,2,99),TIT(2)=""  F K=1:1:4 S TIT(2)=TIT(2)_$P($T(@("T3"_QT)),U,2,99)
13 S TAB="27\42\57\68\79\94\109\120\131",AFS(1,1)=$P($T(@("T4"_QT)),U,2)
 ;
 ; alle rekeningen
2 S I1=$O(^HULP(boot,$J,I1)) I I1="" G 3
21 S L=^(I1),TXT(1)=$E(I1_$J("",8),1,8)_$P(L,D)_"\\1"
23 F K=2:1:9 S TXT(K)=$P(L,D,K)_"\\\\1\"_QD_D_D_1
25 D ^cA334 G 2
 ;
 ; afsluiting
3 S AFS(1,1)=$P($T(@("T4"_QT)),U,3),END=2 D ^cA334
31 S LN=1,TAB=$P(TAB,D,1,3)
33 S TXT(1)=$P($T(@("T5"_QT)),U,2),TXT(2)=-KK(1)_"\\\\1\"_QD,TXT(3)=-KK(2)_"\\\\1\"_QD D ^cA334
35 S TXT(1)=$P($T(@("T5"_QT)),U,3),TXT(2)=AFS(1,2)-KK(1)_"\\\\1\"_QD,TXT(3)=AFS(1,3)-KK(2)_"\\\\1\"_QD D ^cA334
37 K AFS(1) S END=1 D ^cA334 K ^HULP(boot,$J)
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84