cANU22	;Opmaken bestand ;%ANU22 ; [ 01/16/01  3:26 PM ]
	;
T0	;Opmaken bestand ;
T1	; Opmaken bestand ;
T2	;Bestand;Record;
T3	;Omschrijving bestand;
T4	;Inhoud bestand;met detail en subtotalen    ;geen detail, wel subtotalen;met detail, geen subtotalen;
T5	;Bevestiging\"[] = ok   ,[] = hernemen";
T6	;Titels per kolom;niet opnemen;opnemen;
	;
T0F	;Création fichier ;
T1F	; Création fichier ;
T2F	;Fichier;Record;
T3F	;Description fichier;
T4F	;Contenu fichier;avec détail et sous-totaux    ;sans détail, avec sous-totaux;avec détail, sans sous-totaux;
T5F	;Confirmation\"[] = ok   ,[] = reprendre";
T6F	;Titres par colonne;ne pas reprendre;reprendre;
	;
T0E	;Opmaken bestand ;
T1E	; Opmaken bestand ;
T2E	;Bestand;Record;
T3E	;Omschrijving bestand;
T4E	;Inhoud bestand;met detail en subtotalen    ;geen detail, wel subtotalen;met detail, geen subtotalen;
T5E	;Bevestiging\"[] = ok   ,[] = hernemen";
T6E	;Titels per kolom;niet opnemen;opnemen;
	;
T0D	;Aufstellen Ausfuhrdossier ;
T1D	; Aufstellen Ausfuhrdossier ;
T2D	;Dossier;Record;
T3D	;Bezeichnung Dossier;
T4D	;Inhalt Dossier;mit Detail und Subtotale    ;kein Detail, doch Subtotale;mit Detail, kein Subtotale;
T5D	;Bestätigung\"[] = ok   ,[] = wiedernehmen";
T6D	;Titel per Kolumne;nicht aufnehmen;aufnehmen;
	;
	; Titel + alg.init
1	S SKIP=+$P(R,U,2) I SKIP S UI1=SKIP,SKIP=1
11	D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T1"_QT)),U,2),0,0,7,1,1)
13	D DMS^cAN000("UQC","USC","LIS") G YZ:UQC=""!(USC=""),YZ:'$D(^DMC(UQC,USC))
15	S UREF=^(USC,"DATA","REF"),USL=D,SW3=1,SW1=0
	;
	; Keuze listing
2	I SW1 L -@UREF S SW1=0
21	I 'SKIP S UI1=$$^cANSYN("LIS") I K="-" G YZ
23	D R^cAN000 M A=B I $P(B(1),D,30)=2 G YZ:SKIP,2
	;
	; Gegevens tonen
3	D DMS^cAN000("UQC","USC","LIS") K UTOP X ^DMC(UQC,USC,"LOGGING","TOP")
31	W /CUP(2,2),@F6,UTOP(1),@F9,/CUP(2,15),": ",UTOP(1.1),@F1
33	I 'SW1 S SW1=1 L +@UREF:2 E  D BUSY^cAFA1 G YZ:SKIP,2
35	W /CUP(4,2),@F6,UTOP(2),@F9,/CUP(4,15),": ",UTOP(2.1)
37	S Q1=$P(B(1),D,2)
	;
	; Selectie + Titel
4	D ^cAN003(6,Q1) I K="-" G YZ:SKIP,2
41	S HFD="" I KEU(Q1)="U" S HFD=$$SIG^cAFA1("SEL",LIM1(Q1),110)
43	S R="HFD\22\3\"_$P($T(@("T3"_QT)),U,2)_"\C1\30\\$L(K)\\\\\1" D R0 G 4:K="-",2:K=","
45	S:K="." HFD=$P(B(1),D,10) S HFD=$TR(HFD,U," ")
47	W /CUP(12,2),@F6,$P($P($T(@("T3"_QT)),U,2)," "),@F9,/CUP(12,15),": ",HFD,@F1
	;
	; Lay-out subtotalen
5	S K=0 F UZA=1:1 Q:'$D(@UREF@(UZA))  D  I K Q
	. F UZB=1:1 Q:'$D(@UREF@(UZA,UZB))  S K=$G(^(UZB,"SUB")) I K Q
51	S LAY="" I 'K G 57
53	S R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\C2\1\\""-,12""[K" D R0 G 43:K="-",2:K=","
55	S LAY=+K W /CUP(14,2),@F6,$P($P($T(@("T4"_QT)),U,2)," "),@F9,/CUP(14,15),": ",$P($T(@("T4"_QT)),U,3+LAY),@F2
	; Titels per kolom
57	S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\C3\1\\""-,12""[K" D R0 G 53:K="-"&$L(LAY),43:K="-",2:K=","
59	S TIT=+K W /CUP(15,2),@F6,$P($P($T(@("T6"_QT)),U,2)," "),@F9,/CUP(15,15),": ",$P($T(@("T6"_QT)),U,3+TIT),@F2
	;
	; Keuze bestand + bevestiging
6	S S4=HFD
	K PTS
	I '$P($G(^cLOG(boot,"DAM",3)),D) D B^cA612,^cA701,C^cA612
	I $P($G(^cLOG(boot,"DAM",3)),D) S PTS=3 D PRINT^cA701
	G 57:K="-",2:K=","
61	W /CUP(16,2),@F6,$P($T(@("T2"_QT)),U,2),@F9,/CUP(16,15),": ",TNR
63	S R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,""[K"  D R0 G 6:K="-",2:K=","
65	W /CUP(17,2),@F6,$P($T(@("T2"_QT)),U,3),@F9,/CUP(17,15),": "
67	S ZONDERIP=1 D ^cANU220 L -@UREF
	;
YZ	D C^cA612 Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
C1	I $L($P(B(1),D,10)) W !?2,".[] = ",$P(B(1),D,10)
	Q
	;
C2	W !?3 F I=0:1:2 W:I $J(I,3) W "[] = ",$P($T(@("T4"_QT)),U,3+I) I $X>50 W !
	Q
	;
C3	W !?2,"[] = ",$P($T(@("T6"_QT)),U,3),"   1[] = ",$P($T(@("T6"_QT)),U,4)
	Q
	;
	; rechtstreeks exporteren via menu (0) of background (1)
INT(UI1,SW,KEU,LIM1,LIM2,HFD,LAY,TIT,TNR,FORM)	
	N Q1,UQC,USC,UREF D DMS^cAN000("UQC","USC","LIS") Q:UQC=""!(USC="")
	Q:'$D(^DMC(UQC,USC))  S UREF=^(USC,"DATA","REF")
	S Q1=$P(@UREF@(0),D,2),HERH=$P(^(0),D,3) I $P(^(0),D,30)=2 Q
	S LAY=$G(LAY) I $G(HFD)="" S HFD=$P(^(0),D,10)
	S KEU(Q1)=KEU,LIM1(Q1)=LIM1,LIM2(Q1)=LIM2
	S TIT=$G(TIT),TNR=$G(TNR),FORM=$G(FORM)
	I 'SW D   ; via menu
	. D P^cA612(2,1,20,80,1,0,0,0,HFD,0,0,7,1,1)
	. L +@UREF:2 E  D BUSY^cAFA1,C^cA612 Q
	. I TNR L +^HULP("TR",Q,TNR):2 E  D BUSY^cAFA1,C^cA612 L -@UREF Q
	. I TNR D S1
	. I 'TNR S PTS=3,S4=HFD D PRINT^cA701 I K="-"!(K=",") D C^cA612 L -@UREF Q
	. S QP=1,ZONDERIP=1 D ^cANU220
	. L -@UREF D C^cA612
	I SW D    ; via background
	. L +@UREF:2 E  Q
	. I TNR L +^HULP("TR",Q,TNR):2 E  L -@UREF Q
	. I TNR D S1
	. I 'TNR L -@UREF Q
	. S QP=0,ZONDERIP=1 D ^cANU220
	. L -@UREF
INTZ	Q
	;
	; init ivm exporteren
S1	S K=$$SIGN^cAFA1("FORM",FORM,0),I=$G(^(1)) I K="" S TNR=0 G S1Z
	K ^HULP("TR",Q,TNR)
	S ^HULP("TR",Q,TNR,0)=HFD_D_DT_D_TD_"\0\"_FORM_"\\\1\\"
	S VL=$P(K,D,3),VS=$P(K,D,4),RS=$P(K,D,6),TVG=9,MRL=$P(I,D,4),VQ=$P(I,D,5)
	S S1=VS D S2 S VS=S2,S1=RS D S2 S RS=S2
	; beginlijnen
	S S1=$P(K,D,8) D S2 S:$L(S2) ^HULP("TR",Q,TNR,1)=S2
	S S1=$P(K,D,9) D S2 S:$L(S2) ^HULP("TR",Q,TNR,2)=S2
	S S1=$P(I,D) D S2 S:$L(S2) ^HULP("TR",Q,TNR,3)=S2
	; eindlijnen
	S S1=$P(I,D,2) D S2 S:$L(S2) ^HULP("TR",Q,TNR,"1 ")=S2
	S S1=$P(I,D,3) D S2 S:$L(S2) ^HULP("TR",Q,TNR,"2 ")=S2
S1Z	K S1,S2,S3,S4 Q
	;
S2	S S2="" F S3=1:1:$L(S1) S S4=$E(S1,S3,S3+1) S:S4="^/" S4=$C(28) S:$E(S4)="^" S4=$C($A($E(S4,2))-64),S3=S3+1 S S2=S2_$E(S4)
S2Z	Q
	;
ZZ	; 22.06.04 - 16 u 32 * V8