cA225 ;BEHEER BESTANDEN;%A215;Do uit %A215
 G 1
 ;
T0 ;Beheer bestanden;
T1 ;Schermnummer\;"[] = leveringsadres";
T2 ;scherm ;
T3 ;Wijzigen rubrieknummer\"-[] = einde";
T4 ;Omwisselen met rubrieknummer\"[] = wijzigen positie";
T5 ;Lijnnummer\"[] = ;
T6 ;Kolomnummer\"[] = ;
 ;
T0F ;Gestion des fichiers;
T1F ;N° d'écran\;"[] = adresse de livraison";
T2F ;écran ;
T3F ;N° de rubrique à modiifier\"-[] = fin";
T4F ;Changer avec n° de rubrique\"[] = modific. position";
T5F ;N° de ligne\"[] = ;
T6F ;N° de colonne\"[] = ;
 ;
T0E ;Beheer bestanden;
T1E ;Schermnummer\;"[] = leveringsadres";
T2E ;scherm ;
T3E ;Wijzigen rubrieknummer\"-[] = einde";
T4E ;Omwisselen met rubrieknummer\"[] = wijzigen positie";
T5E ;Lijnnummer\"[] = ;
T6E ;Kolomnummer\"[] = ;
 ;
S1 S FP=$P(K,U,2)*100+$P(K,U,3) W:$P(K,U,22) @F,$J(Y1,2) S FP=FP+3 I '$P(K,U,23) W @F,$P(K,U,1) S FP=$P(K,U,5)*100+$P(K,U,6)-2 W @F,": "
S1Z S FP=$P(K,U,5)*100+$P(K,U,6),R="-",I=$P(K,U,9) W @F D S2 S R="*",I=$P(K,U,13)
 ;
S2 S $P(R,R,I+1)="" W $E(R,1,I) Q
 ;
1 S K=1 G 11:$O(@(N_"10)"))<100!$O(^(199)),13
11 S K="" S:$O(^(10))<100 K=$P($T(@("T1"_QT)),U,3) S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_K_"\2\\K?.N!(K=""-"")" D R0 G YZ:K="-"
13 S Y1=0,I2=K*100 S:K>1 Y1=2 S:'K I2=10 G 11:$O(^(I2))\100'=(I2\100)
15 S FP=250 W @F,@F5 S FP=202 W @F,@F4,$P(^(0),U,1)," ",QN," ",@F5,@F1 S FP=270 W @F,$P($T(@("T2"_QT)),U,2),I2\100 K A
17 I I2\100-1 S Y1=1,K=^(101) D S1 S Y1=2,K=^(102) D S1 S:I2<100 Y1=0
 ;
2 S K=$O(^(I2)) I K\100=(I2\100) S Y1=Y1+1,I2=K,A(Y1)=K,K=^(K) D S1 G 2
21 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\2\\K=""-""!(K?.N&K)" D R0 G:K="-" 1:$O(^(10))<100!$O(^(199)),YZ G 21:'$D(A(K))
23 S SW=0,I2=A(K),R="K\22\3\"_$P($T(@("T4"_QT)),U,2)_"\2\\""-""[K!(K?.N&K)" D R0 I $L(K) G 21:'$D(A(K)),21:A(K)=I2,3
25 S K=$P(^(I2),U,2),R="K\22\3\"_$P($T(@("T5"_QT)),U,2)_K_"""\2\\""-""[K!(K?.N&K)" D R0 G:K="-" 33:SW,21
26 S:K $P(^(I2),U,2)=K,$P(^(I2),U,5)=K,SW=1
27 S K=$P(^(I2),U,3),R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_K_"""\2\\""-""[K!(K?.N&K)" D R0 G 25:K="-"
29 S:K K=K-$P(^(I2),U,3),$P(^(I2),U,3)=$P(^(I2),U,3)+K,$P(^(I2),U,6)=$P(^(I2),U,6)+K,SW=1 G 33:SW,21
 ;
3 S Y1=^(I2),K=A(K),R=^(K),I=Y1,$P(I,U,2,3)=$P(R,U,2,3),$P(I,U,5,6)=$P(R,U,5,6)
31 S ^(K)=I,$P(R,U,2,3)=$P(Y1,U,2,3),$P(R,U,5,6)=$P(Y1,U,5,6),^(I2)=R
33 S $P(^(0),U,2)=DT,K=I2\100 G 13
 ;
YZ K Y1,SW,A Q
R0 S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84