cA3353	;Beheer journalen ;%A335 ;%A335* ; [ 01/03/01  3:55 PM ]
	;
T0	;Beheer journalen ;
	;
T0F	;Gestion des journaux ;
	;
T0E	;Journal codes ;
	;
	; bijhouden logboek
1	G 3:J="D"!(J="E"),2:$P(B(1),D,4)
	; geen controles meer bij openen/wijzigen (enkel bij -[] op het einde)
11	;S R=J_D_$P(B(1),D)_D_BJ_D_$P(B(1),D,5,6) D ^cA3352 G YZ:'OK
13	;S R=J_D_$P(B(1),D)_D_(BJ+1)_D_$P(B(1),D,7,8) D ^cA3352 G YZ:'OK
	;
	; bijwerken reeks: begin & einde
2	S J2=J_"FNR"_$S($P(B(1),D):$P(B(1),D),1:""),J1=BJ,@%Q1=0
21	S RR=$G(@("^"_Q_"BA(J1,J2)")),R=$P(RR,D)_D_$P(B(1),D,$S(J1=BJ:5,1:7),$S(J1=BJ:6,1:8))_D_$P(B(1),D,4)_D
23	I $P(R,D)<$P(R,D,2)!($P(R,D)>$P(R,D,3)) S $P(R,D)=$P(R,D,2)
25	S ^(J2)=R_$P(RR,D,5,9) K RR I J1=BJ S J1=BJ+1 G 21
	;
	; bijwerken logboek
3	S J2=J_$S($P(B(1),D):$E(1000+B(1),2,4),1:""),J1=BJ
	;
	; FB - 05.11.04 - ivm veld 5 journaaldefinitie
	S $P(@("^"_Q_"BA(I1,J2)"),D,1,3)=$P(B(1),D,2,4) I J="D"!(J="E") G 39
31	I '$D(@("^"_Q_"BA(I1,J2,J1,0)")) S ^(0)=1
33	S R=^(0),^(0)=R+1,R1=$S($D(^(R-1)):$P(^(R-1),D,3,4),1:"")_D_D
35	S ^(R)=$P(R1,D,1,2)_D_$P(B(1),D,$S(J1=BJ:5,1:7),$S(J1=BJ:6,1:8))_D_DT_D_TD_D_$P(B(1),D,4)_D_$I_D_$G(io)_D_$G(QU)_D
37	I J1=BJ S J1=BJ+1 G 31
39	S @%Q1=1,OK=1
	;
YZ	Q
	;
ZZ	; 22.11.04 - 16 u 14 * V8.02