cT501	;BTW-overeenstemming ;%T50 ;go uit %T500 ; [ 09/15/00  12:14 PM ]
	G 1
	;
T0	;BTW-overeenstemming ;
T1	;BTW-overeenstemming; / Muntcode : ;
T2	; Nummer\ Naam van de rekening\Verk. debet\Verk. credit\Aank. debet\Aank. credit\Div. debet\Div. credit\Fin. debet\Fin. credit;
T4	; Overdracht; Eindtotaal;
T5	; Verlaging kort.contant; Maatstaf van heffing;
T6	;\Totaal debet\Totaal credit\Saldo;
	;
T0F	;Concordance de TVA ;
T1F	;Concordance de TVA; / Code mon.: ;
T2F	; Numéro\ Nom du compte\Vent. débit\Vent. credit\Ach. débit\Ach. crédit\Div. débit\Div. crédit\Fin. débit\Fin. crédit;
T4F	; Transfert; Total final;
T5F	; Escompte au comptant; Base taxable;
T6F	;\Total débit\Total crédit\Solde;
	;
T0E	;BTW-overeenstemming ;
T1E	;BTW-overeenstemming; / Muntcode : ;
T2E	; Nummer\ Naam van de rekening\Verk. debet\Verk. credit\Aank. debet\Aank. credit\Div. debet\Div. credit\Fin. debet\Fin. credit;
T4E	; Overdracht; Eindtotaal;
T5E	; Verlaging kort.contant; Maatstaf van heffing;
T6E	;\Totaal debet\Totaal credit\Saldo;
	;
	; 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)
13	S TAB="11\36\48\61\73\86\97\109\120\132",AFS(1,2)=$P($T(@("T4"_QT)),U,2)
15	I $G(PTS)=3!($G(PTS)=4) S TIT(1)=TIT(1)_$P($T(@("T6"_QT)),U,2),TAB=TAB_"\145\159\165"
	;
	; alle rekeningen
2	S I1=$O(^HULP(boot,$J,I1)) I I1="" G 3
20	S TOTD=0,TOTC=0
21	S L=^(I1),TXT(1)=I1,TXT(2)=$P(L,D)_"\\1"
23	F K=3:1:10 S TXT(K)=$P(L,D,K-1)_"\\\\1\"_QD S:($G(PTS)'=4&($G(PTS)'=4)) $P(TXT(K),D,8)=1 S TOT(K)=$G(TOT(K))+$P(L,D,K-1) S:K#2 TOTD=TOTD+$P(L,D,K-1) S:'(K#2) TOTC=TOTC+$P(L,D,K-1)
24	I $G(PTS)=3!($G(PTS)=4) S TXT(11)=TOTD_"\\\\1\"_QD,TOT(11)=$G(TOT(11))+TOTD,TXT(12)=TOTC_"\\\\1\"_QD,TOT(12)=$G(TOT(12))+TOTC,TXT(13)=TOTD-TOTC_"\\\\1\"_QD,TOT(13)=$G(TOT(13))+TOTD-TOTC
25	D ^cA334 G 2
	;
	; afsluiting
3	I $G(PTS)=3!($G(PTS)=4) G 4
30	S AFS(1,2)=$P($T(@("T4"_QT)),U,3),END=2 D ^cA334
31	S LN=1,TAB=$P(TAB,D,1,4)
33	S TXT(1)="",TXT(2)=$P($T(@("T5"_QT)),U,2),TXT(3)=-KK(1)_"\\\\1\"_QD,TXT(4)=-KK(2)_"\\\\1\"_QD D ^cA334
35	S TXT(1)="",TXT(2)=$P($T(@("T5"_QT)),U,3),TXT(3)=AFS(1,3)-KK(1)_"\\\\1\"_QD,TXT(4)=AFS(1,4)-KK(2)_"\\\\1\"_QD D ^cA334
37	K AFS(1) S END=1 D ^cA334 K ^HULP(boot,$J) G YZ
	;  
	;  Printen afsluiting Excel
4	S TXT(1)="",TXT(2)=$P($T(@("T4"_QT)),U,3) F K=3:1:13 S TXT(K)=TOT(K)_"\\\\1\"_QD
41	D ^cA334
43	K TXT S TXT(1)="",TXT(2)=$P($T(@("T5"_QT)),U,2),TXT(3)=-KK(1)_"\\\\1\"_QD,TXT(4)=-KK(2)_"\\\\1\"_QD D ^cA334
45	K TXT S TXT(1)="",TXT(2)=$P($T(@("T5"_QT)),U,3),TXT(3)=TOT(3)-KK(1)_"\\\\1\"_QD,TXT(4)=TOT(4)-KK(2)_"\\\\1\"_QD D ^cA334
47	S END=1 D ^cA334 K ^HULP(boot,$J)
	;
YZ	Q
	;
ZZ	; 04.04.05 - 14 u 29 * V8.03