cANRB001	; Functies ivm printen naar file vanuit Reflection; cANRB001
	;
T0	;Functies ivm printen naar file vanuit Reflection;
	;
YZ	Q
	;
CONV(A,VAR)	; %xxx% uit A vertalen naar data in %xxx% variabele
	; A   = string waarin %xxx% moet worden vertaald
	; VAR = tabel met waarden van de variablen %xxx%
	N I,K
	I A'["%" G CONVZ
	S I=""
	F  S I=$O(VAR(I)) Q:I=""  F  Q:A'[("%"_I_"%")  S A=$P(A,"%"_I_"%")_VAR(I)_$P(A,"%"_I_"%",2,99)
CONVZ	Q A
	;
CSV	; CSV-formaat ophalen
	N K,I
	S K="\CSV\\^l\CSV\^M^J\",I="\\\\1\"
	S FORM=$$UI1^cAFA1("FORM",102,"CSV")
	I $G(FORM) S K=$$SIGN^cAFA1("FORM",FORM,0),I=$G(^(1))
	S VL=$P(K,D,3),VS=$P(K,D,4),RS=$P(K,D,6),VQ=$P(I,D,5)
	S S1=VS D S2^cA701 S VS=S2,S1=RS D S2^cA701 S RS=S2
	; S (NOTOP,NOTIT)=1
CSVZ	Q
	;
EXCEL(LOCATION)	
	S VAR("B1")=LOCATION
	; I $zv'["MSM" W $zu(119,50,-1) ; u 0::""  U 0:(0:"") U 0::"^cX364" ; D E^cA612
	D SCRIPT(1002,.VAR)
	; I $ZV'["MSM" U 0:0:"^cCHARWIN"  W /INIT(R),/WMODE(0)
	; I $ZV'["MSM" D  U 0:0:"^cCHARWIN" W /INIT(R),/WMODE(0)
	. S io=$G(io,$$IO^cQ5),R="VT320"
	. I +$G(^cLOG(cs,"CHARWIN","INIT",io)) S R=$P(^(io),D,2)
	. S F1="/WCMD",F2="/WCML"
	; S F4TOMENU=$G(F4TOMENU)+1,RK=4
	; S F4TOMENU=99,RK=4
EXCELZ	Q
	;
PR2FON	;  Ophalen bestandslocatie + activeren 'PrintToFile'      
	N FILE,VNR,VAR,NR,A
	S $ZT="TRAP^cAN000"
	; Ophalen bestandslocatie (indien niet ingevuld: C:\Temp)
	S A=$G(^DPAR(0,"PAR","RBA",1))
	S LOCATION=$P(A,D) I '$L(LOCATION) S LOCATION="C:\TEMP"
	S LOCATION=$TR(LOCATION,"/","\")
	L +@($G(QU,"DAM")_"NR")
	S NR=$P(A,D,2),NR=NR+1                ; ophalen nummer
	I $P(A,D,3),NR>$P(A,D,3) S NR=1       ; boven de limiet ? Opnieuw beginnen
	S $P(^DPAR(0,"PAR","RBA",1),D,2)=NR
	L -@($G(QU,"DAM")_"NR")
	; Samenstellen naam van het bestand
	S FILE=$G(QU,"DAM")_$TR($J(NR,4)," ",0)_".TXT"
	S LOCATION=""""_LOCATION_D_FILE_""""
	S VAR("B1")=LOCATION
	D E^cA612
	; I $zv'["MSM" U 0:(80:"+P")  ;  W /END u 0::""  U 0:(0:"") U 0::"^cX364" ; D E^cA612
	; I $zv'["MSM" W $zu(119,50,-1) ; u 0::""  U 0:(0:"") U 0::"^cX364" ; D E^cA612
	D SCRIPT(1001,.VAR)
PR2FONZ	Q
	;
PR2FOFF	;  Desactiveren 'PrintToFile'
	N LOCATION,VAR
	S $ZT="TRAP^cAN000"
	; Bestandlocatie op "" zetten
	S LOCATION=""""""
	S VAR("B1")=LOCATION
	D SCRIPT(1001,.VAR)
	; I $ZV'["MSM" U 0:(80:"-P")  ; U 0:0:"^cCHARWIN"  W /INIT(R),/WMODE(0)
	; I $ZV'["MSM" D  U 0:0:"^cCHARWIN" W /INIT(R),/WMODE(0)
	. S io=$G(io,$$IO^cQ5),R="VT320"
	. I +$G(^cLOG(cs,"CHARWIN","INIT",io)) S R=$P(^(io),D,2)
	. S F1="/WCMD",F2="/WCML"
	; S F4TOMENU=$G(F4TOMENU)+1,RK=4
	; S F4TOMENU=99,RK=4
PR2FOFFZ	Q
	;
SCRIPT(CODE,VAR,TST)	;  Leeglezen van een global
	; CODE = Nr. van de global (script) dat moet worden leeg gelezen
	; VAR  = Tabel met waarden van de variablen die in de code worden gebruikt
	;          bv : Als in de code %B1% staat dan kan men als tabel bv VAR("B1")="""test""" meegeven
	;               en dan wordt %B1% vervangen door "test"
	; TST  = 1 = testen
	N I,A,QW
	S $ZT="TRAP^cAN000"
SCRIPTB	I '$G(TST) W $C(27),"P2000;{"
	S I=0
	F  S I=$O(^DATA(0,"RBA",CODE,I)) Q:I=""  D
	. S A=^(I)
	. I '$L($TR(A," ")) Q
	. W $$CONV(A,.VAR)
	. I '$G(TST) W $$CR^cA334
	. I $G(TST) W !
	I '$G(TST) W $C(27),"\"
SCRIPTZ	Q
	; 
TEST(LOC)	
	 S VAR("B1")=""""_LOC_""""
	 D SCRIPT(1001,.VAR)
TESTZ	
	;
ZZ	; 24.09.03 - 14 u 21 * V7.96