cT310	;WIJZIGEN VERVALDATUM ;%T31 ;overlay %T31 ; [ 01/02/01  2:33 PM ]
	G 1
	;
T0	;Wijzigen vervaldatum ;
T1	;Nummer document\SC1;D[] = detail   E[] = einde;   [] = vervolg;
T2	;Vervaldatum\"dd.mm.jj[] = bepaalde datum   [] = ;
T3	;Omschrijving;
	;
T0F	;Modification de l'échéance ;
T1F	;N° du document\SC1;D[] = détail   E[] = fin;   [] = suite;
T2F	;Date d'échéance\"jj.mm.aa[] = date spécifique   [] = ;
T3F	;Description;
	;
T0E	;Modification of due date ;
T1E	;Document number\SC1;D[] = detail   E[] = end;   [] = next;
T2E	;Due date\"dd.mm.yy[] = particular date   [] = ;
T3E	;Description;
	;
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
	;
S1	S FP=1401 W @F,@F1 K A F C=14:1:20 S C(C)=""
S1Z	S C=14 Q
	;
S2	S FP=420 W @F,FNR F K=1:1:3 S FP=FP+100 W @F,$P(L,D,K)
S2A	D S4 F K=4:1:6 S FP=FP+100 W @F S R=$P(L,D,K)_"\12\\"_DEC D R3 W $P(L,D,9)
S2B	S FP=FP+100 W @F,@F2,$$REF($P(L,D,17),FNR,$P(L,D,7),$P(L,D,21))
S2C	S FP=FP+100 W @F,@F2,$P(OMS,D)
S2Z	Q
	;
S3	F FP=420:100:1120 W @F,$J("",18)
	S FP=1220 W @F,$J("",50)
S3Z	Q
	;
S4	S DEC=QD,K=$P(L,D,9) I $L(K),$D(@("^"_Q_"BA(11,K)")) S DEC=+$P(^(K),D,7)
S4Z	Q
	;
1	S I2=99999 D S1,S3
11	S I2=$O(@("^"_Q_"KL(I1,I2)")),SW=0 G 2:I2'?6N S C(C)=I2,A(I2)=C,L=^(I2)
13	S FP=C*100+1 W @F,$$CR^cA334 W $P(L,D),?2,I2,?9,$P(L,D,2),?18,$P(L,D,3)
15	D S4 F K=4:1:6 S R=$P(L,D,K)_"\10\"_$P("\\\27\38\49",D,K)_D_DEC D R3
17	W ?60,$E($$REF($P(L,D,17),I2,$P(L,D,7),$P(L,D,21)),1,15) I C<20 S C=C+1 G 11
19	S SW=$O(@("^"_Q_"KL(I1,I2)"))?6N I SW,HFNR,'$D(A(HFNR)) S K="" G 21
	;
2	I HFNR,$D(A(HFNR)) S K=HFNR,HFNR=0 G 23
20	S R="X\22\3\"_$P($T(@("T1"_QT)),U,2)_"\6\\""-,DE""[K&($L(K)!SW)!(K?6N&K)\\\1" D R0 G 2^cT31:K="-"!(K=","),YZ:K="E"
21	I "D"[K S:K="D" I2=99999 D S1 G 11
23	S FNR=+K I '$D(A(FNR)) S R=219 D F2 G 2
25	S FP=A(FNR)*100+2 W @F,"*" S L=@("^"_Q_"KL(I1,FNR)"),OMS=$$OMS(FNR,$P(L,D,21)) D S2
	;
3	S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_$P(L,D,3)_"""\8\DCTR" D R0 
	I K="-" G 33
	G 32:"-"[K
31	S R=K_D_$P(L,D,2) D ^cA326 G 3:R<0 S:$L($P(L,D,11))=8 $P(L,D,11)=K S $P(L,D,3)=K,@("^"_Q_"KL(I1,FNR)")=L
	;
	; aanpassen vervaldatum in ^_Q_FA - FB - 16.11.04
	D VERFA("",FNR,K)
	;
	; Vraagstelling omschrijving
32	I '$$TOMS(FNR,$P(L,D,21)) G 321
	S VOMS=$P(OMS,D)
	S R="VOMS\22\3\"_$P($T(@("T3"_QT)),U,2)_"\\50" S $P(R,D,13)=1 D R0
	I K="-" S OMS=$$OMS(FNR,$P(L,D,21)) G 31
	S $P(OMS,D)=K
	D WOMS($P(OMS,D),FNR,$P(L,D,21))
	;
321	D S2
33	S FP=A(FNR)*100+2 W @F," " G 2
	;
YZ	Q
	;
SC1	W !?2,$P($T(@("T1"_QT)),U,3) W:SW $P($T(@("T1"_QT)),U,4) Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
OMS(FNR,LFIN)	; Ophalen van de omschrijving van de factuur of het voorschot
	N OMS,I1
	S $ZT="TRAP^cAN000"
	I FNR>990000,'$L(LFIN) S OMS="" G OMSZ
	I FNR>990000 S OMS=$P(@("^"_Q_"FI($P(LFIN,""#""),$P(LFIN,""#"",2),$P(LFIN,""#"",3))"),D,15) G OMSZ
	S I1="",OMS=""
OMSA	S I1=$O(@("^"_Q_"VE(I1)"))
	I I1="" G OMSZ
	I $D(@("^"_Q_"VE(I1,FNR)")) S OMS=$P(@("^"_Q_"VE(I1,FNR)"),D,19)_D_I1 G OMSZ
	G OMSA
OMSZ	Q OMS
	;
REF(US,FNR,REF,STRFI)	; Ophalen van de referte
	N R,REFBH
	S $ZT="TRAP^cAN000"
	S R=""
	S REFBH=$$REFBH^cAT190(FNR)
	I $L(REFBH) S R=REFBH G REFY
REFA	S R=$$REF^cAT190(US,FNR,REF)
REFY	I $L(STRFI) S R=$P(@("^"_Q_"FI($P(STRFI,""#""),$P(STRFI,""#"",2),$P(STRFI,""#"",3))"),D,9)
REFZ	Q R
	;
TOMS(FNR,LFIN)	; Testen of factuur
	N R,I1
	S $ZT="TRAP^cAN000"
	S R=0
	I FNR>990000,$L(LFIN) S R=1 G TOMSZ
	I FNR>990000 G TOMSZ
	I $L($P(OMS,D,2)) S R=1
TOMSZ	Q R
	;
VERFA(US,FNR,DAT)	; aanpassen vervaldatum in ^_Q_FA - FB - 16.11.04
	I '$L($G(US)) S US="" D
	. F  S US=$O(@("^"_Q_"FA(US)")) Q:US=""  Q:$D(@("^"_Q_"FA(US,FNR)"))
	I $L(US),$D(@("^"_Q_"FA(US,FNR)")) S $P(^(FNR,0,0),D,3)=DAT
VERFAZ	Q
	;
WOMS(OMS,FNR,LFIN)	; Wijzigen van de omschrijving van de factuur of het voorschot
	N I1
	S $ZT="TRAP^cAN000"
	I FNR>990000 S $P(@("^"_Q_"FI($P(LFIN,""#""),$P(LFIN,""#"",2),$P(LFIN,""#"",3))"),D,15)=OMS G WOMSZ
	S I1=""
WOMSA	S I1=$O(@("^"_Q_"VE(I1)"))
	I I1="" G WOMSZ
	I $D(@("^"_Q_"VE(I1,FNR)")) S $P(@("^"_Q_"VE(I1,FNR)"),D,19)=OMS G WOMSZ
	G WOMSA	
WOMSZ	Q
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
Z	X ^cZ Q
ZZ	; 19.03.07 - 15 u 31 * V8.08