cT67	;Parameters overschrijvingen ;%AN200 ; [ 06/19/01  10:23 AM ]
	G 1
	;
T0	;Parameters overschrijvingen ;
	;
T0F	;Paramètres virements ;
	;
T0E	;Parameters overschrijvingen ;
	;
	; ************************* OVERSCHRIJVINGEN *************************
	;
	; node 1 opzetten (b-index 202 tot 204) vóór het wijzigen
	; I("B")=aantal borderellen
	; I("F")=filename, I("P")=path
1	N I,J S I=$G(@("^"_Q_"BA")@("%T",4,UI1),"A:\"_$P(@UREF@(0),D,10)_".TXT")
	S J=$L(I,D),I("F")=$P(I,D,J),I("P")=$E(I,1,$L(I)-$L(I("F"))-1)
	S I("B")=$G(@("^"_Q_"BA")@("%T",5,UI1),3)
	S $P(@UREF@(1),D,2)=$TR(I("P"),D,"/"),$P(^(1),D,3)=I("F"),$P(^(1),D,4)=I("B")
	G YZ
	;
	; node 1 kopiëren nà het wijzigen
2	N I,J S I=$TR($P(B(2),D,2,3),"/",D),J=$E(I),I=$E(I,2,999)
21	I I["\\" S I=$P(I,"\\")_D_$P(I,"\\",2,999) G 21
	S @("^"_Q_"BA")@("%T",4,UI1)=J_I
	S @("^"_Q_"BA")@("%T",5,UI1)=$P(B(2),D,4)
	G YZ
	;
	;
	; ************************* DOMICILIERINGEN **************************
	;
	; node 1 opzetten (b-index 213 tot 214) vóór het wijzigen
	; I("F")=filename, I("P")=path
3	N I,J S I=$G(@("^"_Q_"BA")@("%T",12,UI1),"A:\DOMDIS0")
	S J=$L(I,D),I("F")=$P(I,D,J),I("P")=$E(I,1,$L(I)-$L(I("F"))-1)
	S $P(@UREF@(1),D,13)=$TR(I("P"),D,"/"),$P(^(1),D,14)=I("F")
	G YZ
	;
	; node 1 kopiëren nà het wijzigen
4	N I,J S I=$TR($P(B(2),D,13,14),"/",D),J=$E(I),I=$E(I,2,999)
41	I I["\\" S I=$P(I,"\\")_D_$P(I,"\\",2,999) G 41
	S @("^"_Q_"BA")@("%T",12,UI1)=J_I
	G YZ
	;
YZ	Q
	;
BEST(BR,APATH,ABEST)	; Opzoeken path en bestand grootboekrek.
	; BR    : grootboekrek. waarbij path en bestand moet opgehaald worden
	; APAHT : alternatief path indien path niet ingevuld bij grootboekrek.
	; ABEST : alternatief bestand indien betand niet is ingevuld bij grootboekrek.
	; 
	N PATH,BEST,R
	S $ZT="TRAP^cAN000"
	; Path en bestand ophalen bij grootboekrek.
	S PATH=$$SIG^cAFA1("AR",BR,202)_"/"
	S BEST=$P($G(^(1)),D,3)
	; Indien niet ingevuld alternatief path en bestand gebruiken
	I PATH="" S PATH=APATH
	I BEST="" S BEST=ABEST
	S R=$$BEST^cA710(PATH_BEST)
BESTZ	Q R
	;
ZZ	; 05.12.07 - 15 u 46 * V9.00