cT350	;WIJZIGEN VERVALDATUM ;%T35 ; [ 01/03/01  7:04 PM ]
	G 1
	;
T0	;Wijzigen vervaldatum ;
T1	;Nr. document\SC1;D[] = detail   E[] = einde;   [] = vervolg;
T2	;Vervaldatum\"dd.mm.jj[] = bepaalde datum   [] = ;
T3	;ok;niet vermelden;
T4	;Betalingsvoorstel\"[] = vermelden   1[] = niet vermelden";
T5	;Omschrijving;
	;
T0F	;Modification échéance ;
T1F	;N° du document\SC1;D[] = détail   E[] = exit;   [] = suite;
T2F	;Date d'échéance\"jj.mm.aa[] = date spécifique   [] = ;
T3F	;ok;ne pas mentionner;
T4F	;Proposition de paiement\"[] = mentionner   1[] = ne pas mentionner";
T5F	;Description;
	;
T0E	;Modification of due date;
T1E	;Document nr\SC1;D[] = detail   E[] = end;   [] = next;
T2E	;Due date\"dd.mm.yy[] = particular date   [] = ;
T3E	;ok;do not mention;
T4E	;Payment proposal\"[] = mention   1[] = do not mention";
T5E	;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=1501 W @F,@F1 K A F C=15:1:20 S C(C)=""
S1Z	S C=15 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,7),$P(L,D,21)) I SWX S FP=FP+100 W @F,@F2,$P($T(@("T3"_QT)),U,2+$P(L,D,8))
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_"LE(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,7),$P(L,D,21)),1,15),?78,$TR($P(L,D,8),"01"," *") I C<20 S C=C+1 G 11
19	S SW=$O(@("^"_Q_"LE(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^cT35: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_"LE(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 G 33:K="",39:"-,"[K
31	S R=K_D_$P(L,D,2) D ^cA326 G 3:R<0 S $P(L,D,3)=K D S2 
33	I SWX S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\1\\""-,1""[K" D R0 G 3:K="-",39:K="," S $P(L,D,8)=K
	; KO - 16.08.06
35	I '$$TOMS(FNR,$P(L,D,21)) G 37
	S VOMS=$P(OMS,D)
	S R="VOMS\22\3\"_$P($T(@("T5"_QT)),U,2)_"\\50" S $P(R,D,13)=1 D R0
	I K="-" S OMS=$$OMS(FNR,$P(L,D,21)) G:SWX 33 G 3
	S $P(OMS,D)=K
	D WOMS($P(OMS,D),FNR,$P(L,D,21))	
37	S @("^"_Q_"LE(I1,FNR)")=L D S2
39	S FP=A(FNR)*100+2 W @F," " S FP=FP+17 W @F,$P(L,D,3) S FP=FP+60 W @F,$TR($P(L,D,8),"01"," *"),@F2 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
	;
F1	S R=250
F2	D TXT^cAFA1(R)
FZ	K R Q
	;
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_"AA(I1)"))
	I I1="" G OMSZ
	I $D(@("^"_Q_"AA(I1,FNR)")) S OMS=$P(@("^"_Q_"AA(I1,FNR)"),D,19)_D_I1 G OMSZ
	G OMSA
OMSZ	Q OMS
	;
REF(REF,STRFI)	; Ophalen van de referte
	N R,REFBH
	S $ZT="TRAP^cAN000"
	S R=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
	;
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_"AA(I1)"))
	I I1="" G WOMSZ
	I $D(@("^"_Q_"AA(I1,FNR)")) S $P(@("^"_Q_"AA(I1,FNR)"),D,19)=OMS G WOMSZ
	G WOMSA	
WOMSZ	Q
	;
Z	X ^cZ Q
ZZ	; 19.03.07 - 15 u 31 * V8.08