cT157	;Historiek grootboekrekeningen ;%T44, %T57 ; [ 01/02/01  10:53 AM ]
	G 1
	;
T0	;Historiek grootboekrekeningen ;
T1	;niet gevonden;
T2	;Vervolg ;
T3	;diversen;
T4	;Cum.;
T6	;V e r v o l g t;v e r v o l g;
T8	;:     Totaal;
T9	;Maandcumul verschillend;
	;
T0F	;Historique des comptes de grand livre ;
T1F	;introuvable;
T2F	;Suite ;
T3F	;divers;
T4F	;Cum.;
T6F	;A   s u i v r e;s u i t e;
T8F	;:     Total;
T9F	;Cumul mensuel différent;
	;
T0E	;History of general accounts ;
T1E	;not found;
T2E	;Next ;
T3E	;miscellaneous;
T4E	;Cum.;
T6E	;T o   b e   c o n t i n u e d;c o n t i n u a t i o n;
T8E	;:     Total;
T9E	;Monthly cumulation differs;
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A	S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B	W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z	K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
	;
	; test op vervolg
S1	S BL=BL+1 I TP Q:BL<LNMAX  W !,":",?16,":",?31,":",?46,":",?61,":",$P($T(@("T6"_QT)),U,2),?78,":" W:TSW ?130,":" S VV=1 D HDY,HD Q
S1A	I BL>14 S K=$P($T(@("T2"_QT)),U,2) D F1 S Y=K S FP=780,BL=1 W @F,@F1
S1Z	Q
	;
	; blanco lijn printen
S2	D S1 W:Y'="-" !,":",?16,":",?31,":",?46,":",?61,":",?78,":" W:TSW ?130,":" S SW2=0 Q
	;
	; referte & omschrijving KL/LE
S3	S K=@("^"_Q_"L1(K)"),K=@("^"_Q_"LE(K,0)") S:$L(REF)&'TSW REF=REF_" "_$P(K,D,2) G S4A
S4	S K=@("^"_Q_"K1(K)"),K=@("^"_Q_"KL(K,0)")
S4A	S:REF="" REF=OM,OM="" S:$L(OM) OM=OM_" - " S OM=OM_$P(K,D)_" "_$P(K,D,2)_" "_$P(K,D,5)_" "_$P(K,D,6)_" "_$P(K,D,7),K=$P(K,D,8)
S4B	S:K'="" OM=OM_" "_$$LAND^cAFO1(K) S OM=$E(OM,1,50),K=$P(A2,D,19) I $L(K) S:REF="" REF=$E(OM,1,16) S OM=K
S4Z	Q
	;
	; journaal A/V
S5	S K=SRT_$E($P(A2,D,21)+1000,2,4) D SSA
S5Z	Q
	;
	; volgende lijn printen
S6	D HD:S(1),TL:S(4),S8:S(2),S9:S(3) Q:'SWA  D:SW2 S2 D S1 Q:Y="-"  W !,":",DTM," ",CD,$J(NR,9-$L(CD)),":"
S6A	I A(0) S A(0)=$$BEDR^cAFE1(Q,A(0),$P(MNTC,D),$P(MUNT,D),"F")
S6B	I A(1) S A(1)=$$BEDR^cAFE1(Q,A(1),$P(MNTC,D),$P(MUNT,D),"F")
S6C	S SAL=SAL+A(0)-A(1),DBTX=DBTX+A(0),CDTX=CDTX+A(1),DBTM=DBTM+A(0),CDTM=CDTM+A(1)
S6D	F K=A(0),A(1),SAL S R=K_"\13\\"_QD D R3 W ":"
S6Z	W $E(REF,1,16),?78,":" W:TSW " ",OM,?130,":" Q
	;
	; gegevens uit A/V-dagboek & ventilaties
S7	S A2=^(A1),CD=$P(A2,D),OM="",(S4,BE,A(0),A(1))=0,NR=A1,DTM=$E($P(A2,D,2),1,5),S5=A1,S9=$P(S9,",")_",S5)" G S7Y:$O(^HULP(boot,$J,0,S4))
S7A	S S5=$O(@S9) G S7Y:S5\1'=A1 S S6=^(S5)
S7B	S S3=$P(S6,D),S6=$P(S6,D,2,999) G S7A:S3="" S:$P(S3,"#")=I1 S4=S4+1,^HULP(boot,$J,0,S4)=S3 G S7B
	; KO - 12.08.04
	; S K=$P(A2,D,4),S4=$O(^HULP(boot,$J,0,0)) I S4 S S3=^(S4),BE=$P(S3,"#",4),OM=$P(S3,"#",8) K ^(S4) S:OM="" OM=$P(S3,"#",5) S:$L(OM) $P(A2,D,19)=""
S7Y	S K=$P(A2,D,4),S4=$O(^HULP(boot,$J,0,0)) I S4 S S3=^(S4),BE=$P(S3,"#",4),OM=$P(S3,"#",8) K ^(S4) S:$L(OM) $P(A2,D,19)=""
S7Z	K S3,S4,S5,S6,S9 Q
	;
	; omschrijving journaal
SS	S CD="DV"
SSA	I $D(@("^"_Q_"BA(""%T"",K)")) S K=$P(^(K),D,2) S:$L(K) CD=K
SSZ	Q
	;
	; maand per maand
1	S I=D,KM=KM1 I KEU S K=KM1(J2) I K'=KM S S(3)=1,KM3=KM
11	S (DBTM,CDTM)=0,I4=1_(KM\1)_$P(KM,".",2),I4Z=I4+.99,SW2=1,BP=KM D 2 G YZ:Y="-" ;detail
13	S I4=1_(KM\1)_$P(KM,".",2)_" ",I4Z=1_(KM\1)_$P(KM,".",2)_"Z" D 2 G YZ:Y="-" ;globaal
14	I DBTM-$P(S1,D,BX)'=0!(CDTM-$P(S2,D,BX)'=0) S @("^"_Q_"TST(I1,BP)")=$P($T(@("T9"_QT)),U,2)_D_DT
15	I KM<KM2 S KM=$E(KM+.01_0,1,7),BX=BX+1 S:KM#1=.13 KM=KM+.88 G 11
17	G:'SWA YZ D HD:S(1),TL:S(4),S8:S(2),S9:S(3) D HDY W !,$P($T(@("T8"_QT)),U,2),?16,":" F K=DBTX,CDTX,SAL S R=K_"\13\\"_QD D R3 W ":"
19	W ?78,":" W:TSW ?130,":" I J2'<J4!('KEU&'SW)!(KEU&'SWXX) D HDY I 'TP S K=$P(TXT,D,3) D F1
190	S BL=BL+2 G YZ
	;
	; historieken per maand
2	S I4A=I4,I4=$O(@Q01) I $E(I4,1,7)'=$E(I4A,1,7)!(I4]I4Z) G YZ
21	S A=^(I4),A1=$P(A,D),A2=D G 2:'$L(A1),5:I4["."
23	S CD=$E(I4,8,9),NR=$P(A,D),DTM=$E($P(A,D,2),1,5),A(0)=$P(A,D,3),A(1)=$P(A,D,4)
24	S REF=$P($T(@("T4"_QT)),U,2)_$E(^cBA(2,QTL,KM#1*100),1,9)_" "_$E(KM,3,4),OM=$P($T(@("T3"_QT)),U,2) I CD="BD" S K="D"_$E(1000+$E(I4,10,12),2,4) D SS G 31
25	S OM="",CD=$E(I4,8),SRT="" I CD="A" G E1:'$D(@Q61) S K=$P(^(A1),D,4) D:TSW S3 G 31
26	I CD="V" G E1:'$D(@Q71) S K=$P(^(A1),D,4) D:TSW S4 G 31
27	S X=$E(I4,9,99)_" ",K=$D(@("^"_Q_"AR(X,0)")) S:K K=^(0) S CD=$P(K,D,10),OM=X_$P(K,D,2)
31	D S6 G YZ:Y="-",2
	;
	; detailhistorieken: veld per veld
5	S A1=I I '$D(^HULP(boot,$J,0)) S A1=$P(A,D),A=$P(A,D,2,99) G 5:A1=I
50	S SRT=$E(A1),A1=$E(A1,2,99) G 2:A1="" I SRT_A1'=I K ^HULP(boot,$J,0) S I=SRT_A1
51	I SRT="A" G E2:'$D(@Q61) S S9=Q61 D S7 S A(CD="C")=BE,REF=$P(A2,D,18),CD=SRT_CD D S3,S5 G 59
52	I SRT="V" G E2:'$D(@Q71) S S9=Q71 D S7 S A(CD="F")=BE,REF=$P(A2,D,14),CD=SRT_CD D S4,S5 G 59
53	G E2:SRT'="B"!'$D(@Q95) S A2=^($P(A1,"#",2)),CD=$P(A2,D,6),BE=$P(A2,D,5),REF=$P(A2,D,9)
54	S DTM=$E($P(A2,D,2),1,5),NR=$P(A2,D,3),(A(0),A(1))=0,A(CD="C")=BE,CD=$P(A2,D,4),K=$P($P(A2,D,8),"#"),R=$P(A2,D,7)
55	S OM="" D S4:R="K",S3:R="L"
57	S K=$P(A2,D,13) S:REF'=K&$L(K) OM=K S K=$P(A2,D,15) S:$L(K) OM=K I $E(A1)="D" S K="D"_$E($P(A2,D,14)+1000,2,4) D SS
59	S:REF=""&'TSW REF=$E(OM,1,16) D S6 G 5:Y'="-"
	;
YZ	Q
	;
HD	D HD^cT57 Q
HDY	W !,":---------------:--------------:--------------:--------------:----------------:"
HDZ	W:TSW "---------------------------------------------------:" Q
	;
	; beginsaldo
S8	D S1 S K=KM1(J2),S(2)=""
S8Z	W !,": **01.",$P(K,".",2),".",K\1,"**:",?31,":",?46,":" S R=BSAL_"\13\\"_QD D R3 W ":",?78,":" W:TSW ?130,":" Q
	;
TL	W !!?TSW\2+27,N1," ",N2,! D HDY S BL=BL+4,S(4)="",SWA=1 Q
	;
	; debet & credit begin boekingsmaand
S9	D S2,S1 W !,": **01.",$P(KM3,".",2),".",KM3\1,"**:" F K=DBTX,CDTX,SAL S R=K_"\13\\"_QD D R3 W ":"
S9Z	W ?78,":" W:TSW ?130,":" S S(3)="" Q
	;
E1	D FOUT G 2
E2	D FOUT G 5
FOUT	S @("^"_Q_"TST(I1,I4)")=$P($T(@("T1"_QT)),U,2)_D_SRT_A1_D_DT Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 18.08.04 - 16 u 29 * V8.01