cANIMP14	;Kopiëren Excel lay-out; cANIMP10
	G 1
	;
T0	;Kopiëren Excel lay-out ;
T1	;Deze Excel lay-out is opgebouwd met een ander bestand   [] = ok;
T2	;Kopiëren uit Excel lay-out : ;
T3	;Keuze;
T4	;[] = overschrijven kolommen   .[] = bijvoegen kolommen;
	;
T0F	;Copiage mise en pages Excel ;
T1F	;Ce mise en pages Excel est lié avec un autre fichier   [] = ok;
T2F	;Copier depuis Excel lay-out : ;
T3F	;Choix;
T4F	;[] = transcrire des colonnes   .[] = ajouter des colonnes;
	;
	; keuze + controle selectie
1	S J1=UI1
11	W /CUP(1,2),$P($T(@("T2"_QT)),U,2),/WCMD,/CUP(1,KMAX-$L(OM)-1),OM
13	S UI1=$$^cANSYN("EXCEL.LAYOUT") I K="-" G YZ
15	S K=^(UI1,0) W /CUP(1,2),$P($T(@("T2"_QT)),U,2),$TR($P(K,D,1,2),D," ")
17	I $P(K,D,3)'=Q1 D ER^cAN000($P($T(@("T1"_QT)),U,2)) G 11
	;
	; tonen detail
2	G ^cANIMP12
	;
	; keuze kolommen
3	S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\C1\1\\"".-,""[K\\\1" D R0
31	I K="-"!(K=",") G 11
	;
	; kopiëren kolommen
4	K ^HULP(boot,$J)
41	S S1=0
43	F  S S1=$O(@UREF@(S1)) Q:S1=""  D
	. S ^HULP(boot,$J,S1)=@UREF@(S1)
45	S UI1=J1
47	I K="" D
	. S UZB=0
	. F  S UZB=$O(@UREF@(UZB)) Q:UZB=""  K @UREF@(UZB)
	. S UZB=""
	. F  S UZB=$O(^HULP(boot,$J,UZB)) Q:UZB=""  S @UREF@(UZB)=^HULP(boot,$J,UZB)
49	I K="." D
	. S S1=""
	. F  S S1=$O(^HULP(boot,$J,S1)) Q:S1=""  D
	.. S UZB=$O(@UREF@(9999),-1)+1
	.. S @UREF@(UZB)=^HULP(boot,$J,S1)
5	K ^HULP(boot,$J)
	;
YZ	S UI1=J1 K J1 W /CUP(1,1),/WCMD S KEU="" G ^cANIMP12
	;
C1	W !?2,$P($T(@("T4"_QT)),U,2) Q
	;
R0	S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
	;
ZZ	; 23.06.05 - 17 u 03 * V8.04