cANIMP10 ;Beheer Excel lay-outs; cANIMP10 ; T0 ;Beheer Excel lay-outs; T1 ;Keuze\" [] = kolommen V[] = verwijderen W[] = wijzigen definitie Y[] = kopiëren"; ; T0F ;Gestion mise en pages Excel; T1F ;Choix\" [] = colonnes V[] = annuler W[] = modifier définition Y[] = copier"; ; ; Titel + alg.init 1 D P^cA612(2,1,20,80,1,0,1,1,$P($T(@("T0"_QT)),U,2),0,0,7,1,1) 11 D DMS^cAN000("UQC","USC","EXCEL.LAYOUT") G YZ:UQC=""!(USC=""),YZ:'$D(^DMC(UQC,USC)) 13 S UREF=^(USC,"DATA","REF"),USL=D,SW3=1,SW1=0 15 S BEHEER=1 ; openen toegelaten ; ; Keuze Excel lay-out 2 I SW1 L -@UREF S SW1=0 21 S UI1=$$^cANSYN("EXCEL.LAYOUT") I K="-" G YZ 23 D R^cAN000 M A=B I $P(B(1),D,30)=2 G 2 ; ; Gegevens tonen 3 D DMS^cAN000("UQC","USC","EXCEL.LAYOUT") K UTOP X ^DMC(UQC,USC,"LOGGING","TOP") 31 W /CUP(2,3),/SGR(4),UTOP(1),/SGR(0),/CUP(2,17),": ",UTOP(1.1),@F1 33 I 'SW1 S SW1=1 L +@UREF:2 E D BUSY^cAFA1 G 2 35 W /CUP(4,3),/SGR(4),UTOP(2),/SGR(0),/CUP(4,17),": ",UTOP(2.1) ; ; Beheer/Verwijderen/Wijzigen 4 D DMS^cAN000("UQC","USC","EXCEL.LAYOUT") S UREF=^DMC(UQC,USC,"DATA","REF") 40 S R="KEU\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-VWY""[K\\\1" D R0 G ^cANIMP11:"Y"[K,2:K="-" 41 I K="V" D V^cAN200("EXCEL.LAYOUT",0,"","",$$IDEM^cAFA1) G 23 43 I K="W" D W^cAN200("EXCEL.LAYOUT",0,"",0,$$IDEM^cAFA1) G 23 45 G 40 ; YZ D C^cA612 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