cTU91 ;WIJZIGEN LIJN ;%TU7 ; [ 09/01/95   1:53 PM ]
 G 1
 ;
T1 ;LIJN ;
T2 ;xx[] = wijzigen kolom xx   [] = bijvoegen kolom   ;D[] = detail;.[] = vervolg;
T3 ;Vx[] = verwijderen kolom;
T4 ;Omschrijving                 Pos.      Tot.;Lengte : ;
T5 ;------------                 ----      ----;Ja;Neen;
T6 ;U KAN MAXIMAAL 99 KOLOMMEN PER LIJN OPGEVEN ;
T7 ;TE VERWIJDEREN KOLOM;
T8 ;VERWIJDEREN KOLOM ;",[] = hernemen   V[] = DEFINITIEF verwijderen";
 ;
 ; tonen detail
1 K USEL S LEN=1,J1=0,J2=NT*100 F  S J2=$O(@("^"_Q_"LIL(I1,J2)")) Q:J2\100'=+NT  S J1=J1+1,USEL(J1)=J2,LEN=LEN+$P(^(J2),U)+3
11 S J2=0,FP=250 W @F,@F1,$J(OM,28) S FP=350 W @F,@F92,@F,$J($P($T(T4),U,3)_LEN,28),@F93,!?6,$P($T(T4),U,2),!?6,$P($T(T5),U,2)
13 S FP=601 W @F,@F1
15 F  S J2=$O(USEL(J2)) Q:J2=""  D  S FP=FP\100*100+101 Q:FP>2100
 . S J3=@("^"_Q_"LIL(I1,USEL(J2))")
 . W @F,$J(J2,4),". ",$P(J3,U,2)
 . S FP=FP+35 W @F,$J($P(J3,U),3)
 . I $L($P(J3,U,5)) S FP=FP+10 W @F,$P($T(T5),U,4-$P(J3,U,8))
17 S SWV=0 I J2,$L($O(USEL(J2))) S SWV=1
19 I K="",'$L($O(USEL(""))) G 3
 ;
 ; vraagstelling
2 S R="K\22\3\"_$P($T(T1),U,2)_(+NT)_"\C1\3\INPUT\\\\1" D R0
21 G YZ:K="-"!(K=","),11:K="D",13:K=".",3:K="",4:K,5:$E(K)="V",2
 ;
 ; openen
3 I J1=99 S K=$P($T(T6),U,2) D F1 G 2
31 S J2=J1+1 D ^cTU92 I K'="-",K'="," S @("^"_Q_"LIL(I1,NT*100+J2)")=TL
33 G 1
 ;
 ; wijzigen
4 I '$D(USEL(+K)) G 2
41 S J2=+K D ^cTU92 I K'="-",K'="," S @("^"_Q_"LIL(I1,NT*100+J2)")=TL
43 G 1
 ;
 ; verwijderen
5 S K=+$E(K,2,3)
51 I '$D(USEL(+K)) S R="K\22\3\"_$P($T(T7),U,2)_"\\2\\K=""-""!(K="","")!(K?.N)" D R0 G 2:K="-"!(K=","),51
53 S J2=+K,R="K\22\3\"_$P($T(T8),U,2)_J2_D_$P($T(T8),U,3)_"\1\\""-,V""[K&$L(K)\\\1" D R0 I K'="V" S (J2,SWV)=0 G 51
55 K @("^"_Q_"LIL(I1,USEL(J2))"),USEL(J2)
57 F  S J2=$O(USEL(J2)) Q:J2=""  S ^(USEL(J2)-1)=^(USEL(J2)) K ^(USEL(J2))
59 I $L($O(USEL(""))) G 1
 ;
 ; verwijderen lijn
6 S J2=NT*100 F  S J2=$O(^(J2)) Q:J2=""!(J2\100=NT)  S ^(J2-100)=^(J2) K ^(J2)
61 I J2\100=NT G 1
 ;
YZ K J1,J2,J3,USEL G ^cTU8
 ;
C1 W !?2,$P($T(T2),U,2),$P($T(T2),U,3+SWV),!?2,$P($T(T3),U,2) Q
 ;
INPUT ;K="-"!(K=",")!(K="D")!(K="."&SWV)!(K?.N)!(K?1"V".N)
 ;
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
 ;
F1 S R=250
F2 X ^cTXT(0,"N",R) R K W @F,@F1
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 14.01.99 - 21 u 28 * V5.7