cA3351	;Beheer journalen ;%A335 ;%A335* ;   [ 04/12/09  10:22:01 ]
	G 1
	;
T0	;Beheer journalen ;
T1	;Nummer;17;2;;17;21;;;3;;K?1N.N&($E(K)'=0);1;;;1;101;;;;;;1;;;
T2	;Omschrijving;18;2;;18;21;;;28;;$L(K);;;;;102;;;;;;1;;1;
T3	;Afkorting;19;2;;19;21;;;3;;$L(K);;;;;103;;;;;;1;;1;
T4	;Niveau;20;2;;20;21;0;$P("operationeel\buiten gebruik\enkel automatische boekingen",D,K+1);1;[] = operationeel   1[] = buiten gebruik   2[] = enkel automatische boekingen;"12"[K;;27;1;;104;;;;;;1;;;
T5	;Begin ;17;52;;17;71;;;6;;K>99999&(K<990000);;;;;105;;;;;;1;;1;
T6	;Einde ;18;52;;18;71;;;6;;K'<$P(B(1),D,5)&(K<990000);;;;;106;;;;;;1;;1;
T7	;Begin ;19;52;;19;71;;;6;;K>99999&(K<990000);;;;;107;;;;;;1;;1;
T8	;Einde ;20;52;;20;71;;;6;;K'<$P(B(1),D,7)&(K<990000);;;;;108;;;;;;1;;1;
T9	;Nummer element\"-[] = einde wijzigen   x[] = wijzigen element 'x'";
T10	;Bevestiging\"[] = ok   ,[] = hernemen   x[] = wijzigen element 'x'";
	;
T0F	;Gestion des journaux ;
T1F	;Numéro;17;2;;17;21;;;3;;K?1N.N&($E(K)'=0);1;;;1;101;;;;;;1;;;
T2F	;Description;18;2;;18;21;;;28;;$L(K);;;;;102;;;;;;1;;;
T3F	;Abréviation;19;2;;19;21;;;3;;$L(K);;;;;103;;;;;;1;;;
T4F	;Niveau;20;2;;20;21;0;$P("opérationel\hors usage\seulement mouvements autom.",D,K+1);1;[] = opérationel   1[] = hors usage   2[] = seulement mouvements automatiques;"12"[K;;27;1;;104;;;;;;1;;;
T5F	;Début ;17;52;;17;71;;;6;;K>99999&(K<990000);;;;;105;;;;;;1;;;
T6F	;Fin ;18;52;;18;71;;;6;;K'<$P(B(1),D,5)&(K<990000);;;;;106;;;;;;1;;;
T7F	;Début ;19;52;;19;71;;;6;;K>99999&(K<990000);;;;;107;;;;;;1;;;
T8F	;Fin ;20;52;;20;71;;;6;;K'<$P(B(1),D,7)&(K<990000);;;;;108;;;;;;1;;;
T9F	;N° d'élément\"-[] = fin de modification   x[] = modifier élément 'x'";
T10F	;Confirmation\"[] = ok   ,[] = reprendre   x[] = modifier élément 'x'";
	;
T0E	;Journal codes ;
T1E	;Number;17;2;;17;21;;;3;;K?1N.N&($E(K)'=0);1;;;1;101;;;;;;1;;;
T2E	;Description;18;2;;18;21;;;28;;$L(K);;;;;102;;;;;;1;;1;
T3E	;Abbreviation;19;2;;19;21;;;3;;$L(K);;;;;103;;;;;;1;;1;
T4E	;Level;20;2;;20;21;0;$P("operational\out of use\only automatic transactions",D,K+1);1;[] = operational   1[] = out of use   2[] = only automatic transactions;"12"[K;;26;1;;104;;;;;;1;;;
T5E	;Begin ;17;52;;17;71;;;6;;K>99999&(K<990000);;;;;105;;;;;;1;;1;
T6E	;End   ;18;52;;18;71;;;6;;K'<$P(B(1),D,5)&(K<990000);;;;;106;;;;;;1;;1;
T7E	;Begin ;19;52;;19;71;;;6;;K>99999&(K<990000);;;;;107;;;;;;1;;1;
T8E	;End   ;20;52;;20;71;;;6;;K'<$P(B(1),D,7)&(K<990000);;;;;108;;;;;;1;;1;
T9E	;Number element\"-[] = end modification   x[] = modify element 'x'";
T10E	;Confirmation\"[] = ok   ,[] = retry   x[] = modify element 'x'";
	;
	; voorstel begin/einde
	; vanaf 2010 : $E(boekjaar,3,4)*20+0001 - FB/GM - 04.12.09
S1	I $P(K,D,2)>$P(K,D)!'$P(K,D,2) S $P(K,D,2)=$P(K,D) I '$P(K,D,2) S $P(K,D,2)=$S(J1=1999:19,J1>2009:($E(J1,3,4)+20),J1>1999:2_$E(J1,4),1:$E(J1,3,4))_"0001",$P(K,D)=$P(K,D,2)
	; I $P(K,D,2)>$P(K,D)!'$P(K,D,2) S $P(K,D,2)=$P(K,D) I '$P(K,D,2) S $P(K,D,2)=$S(J1=1999:19,J1>1999:2_$E(J1,4),1:$E(J1,3,4))_"0001",$P(K,D)=$P(K,D,2)
S1A	I $P(K,D,3)<$P(K,D,2) S $P(K,D,3)=$E($P(K,D,2),1,2)_"9999"
S1Z	Q
	;
	; wat geprint ivp input
S2	S FP=$P(U2,U,5)*100+$P(U2,U,6),(K,U3)=$P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100) I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
S2A	W @F,U3,$J("",$P(U2,U,9)+$P(U2,U,13)-$L(U3))
S2Z	Q
	;
	; vraagstelling element x
S3	I KEU=1,$L($P(U2,U,4)),@$P(U2,U,4) G S3Z
S3A	I KEU=1,$L($P(U2,U,7)),$L($P(U2,U,14)),@$P(U2,U,14) G S3Z:K="-" X "S K="_$P(U2,U,7) G S3G
S3B	I KEU=2,$P(U2,U,12),$L($P(U2,U,15)),@$P(U2,U,15) S R=69 D F2 G S3Z
S3C	S K=$P($G(B($P(U2,U,16)\100)),D,$P(U2,U,16)#100)
S3D	I $L($P(U2,U,17)),$L($P(U2,U,18)),@$P(U2,U,18) X $P(U2,U,17) S U3=K D 0^cA207 S:K="" K=U3 G S3G
S3E	I $L($P(U2,U,19)),$L($P(U2,U,20)),@$P(U2,U,20) X $P(U2,U,19) G S3G
S3F	D ^cA207
S3G	I K'="-",K'="," S $P(B($P(U2,U,16)\100),D,$P(U2,U,16)#100)=K D S2
S3H	I U2=A(101) S J2=J_$E(1000+K,2,4) I $D(@("^"_Q_"BA(I1,J2)")) S R=66 D F2 G S3F
S3Z	Q
	;
	; tonen rubrieken
1	K A F K=1:1:8 S A(100+K)=$P($T(@("T"_K_QT)),U,2,99) I K>4 S $P(A(100+K),U)=$P(A(100+K),U)_$S(K<7:BJ,1:BJ+1) I J="D"!(J="E") K A(100+K)
11	S U1="" I KEU=2 S R="SRT\"_J_D_1700_D_D_D_D_1_D_1 D ^cA336 G YZ:K="-"
13	S U1=$O(A(U1)) G 2:U1="" S U2=A(U1),FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2)
15	I '$P(U2,U,23) S FP=$P(U2,U,5)*100+$P(U2,U,6)-2 W @F,":" S FP=$P(U2,U,2)*100+$P(U2,U,3)+2 W @F,@F6,$P(U2,U),@F9
17	G 13
	;
	; tonen gegevens
2	I KEU=1 G 4
21	S J2=J_$S(SRT:$E(1000+SRT,2,4),1:""),B(1)=+SRT_D_@("^"_Q_"BA(I1,J2)"),$P(B(1),D,5)="",B(1)=$P(B(1),D,1,4)_D
23	S U1="",J2=J_"FNR"_SRT F J1=BJ,BJ+1 S K=$G(@("^"_Q_"BA(J1,J2)")) D S1 S B(1)=B(1)_$P(K,D)_D_$P(K,D,3)_D
25	S U1=$O(A(U1)) I U1'="" S U2=A(U1) D S2 G 25
	;
	; wijzigen
3	S R="K\22\3\"_$P($T(@("T9"_QT)),U,2)_"\2\\K=""-""!(K?.N&K)" D R0 I K G 3:'$D(A(100+K)) S U2=A(100+K) D S3 G 3
31	D ^cA3353 G YZ
	;
	; openen
4	S U1="",B(1)="\\\\\\\\" F K=1:1 S U1=$O(A(U1)) Q:U1=""  S U2=A(U1) D S2
41	S K=$O(A(U1)) G 5:K="" S U1=K
43	S U2=A(U1) D S3 G 4:K="," I K="-" S U1=U1-1 G 43:$D(A(U1)),YZ
45	G 41
	;
5	S R="K\22\3\"_$P($T(@("T10"_QT)),U,2)_"\2\\""-,""[K!(K?.N&K)" D R0 G 43:K="-",4:K=","
51	I K G 5:'$D(A(100+K)) S U2=A(100+K) D S3 G 5
53	D ^cA3353
	;
YZ	S FP=1601 W @F,@F1 K A,B,U1,U2,U3,J1,J2 G 23^cA335
	;
R0	S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A	S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z	S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
ZZ	; 06.08.01 - 17 u 28 * V7.87