cA215 ;BEHEER BESTANDEN : ;%A215;Do %A219,%A225 [ 04/12/00   9:06 AM ]
 G 1
 ;
T0 ;Beheer bestanden : ;
T1 ;Omschrijving;
T2 ;Lijnnummer omschr.;
T3 ;Kolomnr. omschr.(2 of 49);
T4 ;Voorw. niet ingelezen;
T5 ;Lijnnr. input (idem 2);
T6 ;Kolnr. input (19 of 67);
T7 ;Waar autom. input;
T8 ;Wat geprint i.p.v. input;
T9 ;Max. lengte zone;
T10 ;Commentaar;
T11 ;Voorwaarden;
T12 ;Code niet wijzigbaar;
T13 ;Extra posities vegen;
T14 ;Voorw.inp.ingelezen uit 7;
T15 ;Conditie niet wijzigbaar;
T16 ;Index b;
T17 ;Execute ipv man. inp. met ok;
T18 ;Voorwaarde input via 17;
T19 ;Execute ipv manuele input;
T20 ;Voorwaarde input via 19;
T21 ;Controle in label;
T22 ;Nummer tonen (""=niet);
T23 ;Omschrijving tonen (="");
T24 ;Openen bestand;wijzigen bestand;positie op scherm;lijsten bestand;
 ;
T0F ;Gestion fichiers : ;
T1F ;Description;
T2F ;Lijnnummer omschr.;
T3F ;Kolomnr. omschr.(2 of 49);
T4F ;Voorw. niet ingelezen;
T5F ;Lijnnr. input (idem 2);
T6F ;Kolnr. input (19 of 67);
T7F ;Waar autom. input;
T8F ;Wat geprint i.p.v. input;
T9F ;Max. lengte zone;
T10F ;Commentaar;
T11F ;Voorwaarden;
T12F ;Code niet wijzigbaar;
T13F ;Extra posities vegen;
T14F ;Voorw.inp.ingelezen uit 7;
T15F ;Conditie niet wijzigbaar;
T16F ;Index b;
T17F ;Execute ipv man. inp. met ok;
T18F ;Voorwaarde input via 17;
T19F ;Execute ipv manuele input;
T20F ;Voorwaarde input via 19;
T21F ;Kontrole in label;
T22F ;Nummer tonen (""=niet);
T23F ;Omschrijving tonen (="");
T24F ;Openen bestand;wijzigen bestand;positie op scherm;lijsten bestand;
 ;
T0E ;Beheer bestanden : ;
T1E ;Omschrijving;
T2E ;Lijnnummer omschr.;
T3E ;Kolomnr. omschr.(2 of 49);
T4E ;Voorw. niet ingelezen;
T5E ;Lijnnr. input (idem 2);
T6E ;Kolnr. input (19 of 67);
T7E ;Waar autom. input;
T8E ;Wat geprint i.p.v. input;
T9E ;Max. lengte zone;
T10E ;Commentaar;
T11E ;Voorwaarden;
T12E ;Code niet wijzigbaar;
T13E ;Extra posities vegen;
T14E ;Voorw.inp.ingelezen uit 7;
T15E ;Conditie niet wijzigbaar;
T16E ;Index b;
T17E ;Execute ipv man. inp. met ok;
T18E ;Voorwaarde input via 17;
T19E ;Execute ipv manuele input;
T20E ;Voorwaarde input via 19;
T21E ;Controle in label;
T22E ;Nummer tonen (""=niet);
T23E ;Omschrijving tonen (="");
T24E ;Openen bestand;wijzigen bestand;positie op scherm;lijsten bestand;
 ;
1 K A,B S U=";" I '$D(Q) S Q="" D ^cA604
11 S FP=203 W @F61,@F11,@F1,@F,"NAAM BESTAND        -[] = einde  : ",@F0 R N Q:N="-"  G 11:N?.E1C.E!(N?.E1L.E)!(N?.E1P.E)!'(N?1U.E)
13 S FP=403 W @F,"AANTAL INDEXEN (2 of 3)  [] =  2 : ",@F2,@F0 R AI S:AI="" AI=2 G 11:AI="-",13:'(AI=2!(AI=3))
15 S A3="" I AI=3 S FP=503 W @F,"WAT IS DE TWEEDE INDEX           : ",@F2,@F0 R A3 G 13:A3="-",15:(A3?.E1C.E)!(A3="") S A3=""""_A3_""","
16 S K="^"_N_"(0,"_A3 G 19:$D(@(K_"0)"))
17 S FP=1503 W @F,"ER BESTAAT GEEN BESTAND ",K,"...) " S FP=1603 W @F,"OPENEN  [] = ja     -[] = hernemen : ",@F2,@F0 R X G 13:X="-",17:X'=""
18 S FP=1803 W @F,"NAAM BESTAND : ",@F2,@F0 R X G 18:X?.E1C.E,18:X="",11:X="-" S @(K_"0)")=X
19 S AV=23,N=K
 ;
2 S FP=279 W @F61,@F11,@F1,@F,@F5 S FP=202,K=" GLOBAL "_N_"...) " W @F,@F4,$P($T(@("T0"_QT)),U,2),$E($P(@(N_"0)"),U,1)_" ",1,35)
21 S I=$P(^(0),U,2),FP=278-$L(K) S:'I I=DT W @F,K,@F5 S:AI=2 $P(^(0),U,2)=I S FP=303 W @F,"versie ",I F I=1:1:4 S FP=I*100+603 W @F,I,". ",$P($T(@("T24"_QT)),U,I+1)
22 S FP=2203+F60 W @F,"KEUZE : ",!,?2,"-[] = ander bestand",@F2
25 S FP=2211+F60 W @F,".",@F2,@F,@F0 R K G 1:K="-",25:$L(K)'=1,25:K>4!'K,@(K+2)
 ;
3 W @F11,@F1,!,"OPENEN - INDEX VOLGNUMMER LIJN   -[] = menu   E[] = einde : ",@F0 R B G YZ:B="E",2:B="-",3:B'?.N,3:B<11,3:$D(^(B))
31 F I=1:1:AV S A=$T(@("T"_I_QT)),A=$P(A,U,2) S J=I S:J<10 J=" "_J W !,J," : ",A,?36,": " R K(I) I K(I)="-" S I=I-2 G 3:I<0
32 W !!,"LIJN ok ?  [] = O.K.    ,[] = hernemen : ",@F0 R K G 3:K=",",32:$L(K) D 33 G 3
33 S K="" F I=1:1:AV S K=K_K(I)_U
34 S A=N_B_")" S:'(B?.N) A=N_""""_B_""")" S @A=K Q
 ;
4 W @F11,@F1,!,"INDEX TE WIJZIGEN LIJN :",!,"-[] = menu   E[] = einde   +xxx [] = eerstvolgende" S FP=226
41 W @F,"....",@F2,@F,@F0 R B S:B["+" B=$O(^(+B)) G YZ:B="E",2:B="-",41:B'?.N,41:B<11,41:'$D(^(B))
42 W $$FF^cA334,!,"INDEX = ",B,! F I=1:1:AV D 45 S K(I)=$P(^(B),U,I) W K(I)
43 W !!,"ZONE WIJZIGEN  -[] = index-ingeven  : ",@F0 R I G 44:I="-",43:I<1!(I>AV) S I=I\1 D 45 W K(I) D 45 R K(I) G 43
44 D 33 G 4
45 S Z="T"_I,A=$T(@Z),A=$P(A,U,2,999),J=I S:J<10 J=" "_J W !,J," : ",A,?36,": " Q
 ;
5 D ^cA225 G 2
 ;
6 D ^cA219 G 2
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84