KOFKL40 ;VERWIJDEREN LIJN OPMAKEN OFFERTES ; [ 08/05/2002  11:22 AM ]
 G 1
 ;
T1 ;DE SELECTIE
T2 ;SELECTIE
T3 ;LAATSTE SELECTIE OP ;ER WAREN ER ; GESELECTEERD OP DE ;DE SELECTIE DUURDE 
T4 ;SELEKTIE ; IS VERWIJDERD  [] = ok 
T5 ;VOLGENS 
T6 ;PRODUKTKODE;KLASSIFIKATIE;LEVERANCIER
T7 ;IN ALFABETISCHE ORDE VANAF 
T8 ;IN ALFABETISCHE ORDE TOT 
T9 ;VANAF HET BEGIN
T10 ;TOT HET EINDE
 ;
S0 S FP=2403+F60 W @F,@F1,@F4,$P($T(T4),U,2),$P(K,D,1),$P($T(T4),U,3),@F5,@F0 R K K @("^"_Q_UGL_"(KC,US,UR,UZ)")
S0Z Q
 ;
S2 S LT=0,FP=2403+F60 W @F,@F1,"V[] = verwijderen definitief" W:R>0 "   [] = vervolg" W " : ",@F0 R K G S2:K?.E1C.E!($L(K)>1),S2Z:"-,"[K,S2:K'="V"
S2A S K=^(UZ),FP=2403+F60 W @F,@F1,@F4,"SELEKTIE ",$P(K,D,1)," IS VERWIJDERD  [] = ok ",@F5,@F0 R K
S2B S FP=UD*100+1 W @F,@F1 K ^(UZ) I $N(^(0))=-1 K ^(0)
S2Z Q
 ;
1 S UL=+UD,FP=UL*100+1 W @F,@F1 G 6:K="P"!(K="ZZZZPS")
 ;
4 S UZ=100
41 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,""ZZZZUD"",UZ)")) G 8:UZ=-1 S K=^(UZ) G 5:$D(@("^"_Q_"LIS1(K)"))
43 D S0 G 41
 ;
5 S K=^(K),K=@("^"_Q_"LIS(K,0)"),X1=+K,X2=$P(K,D,2) G 43:$P(K,D,3)'="PR"
51 S FP=UD*100+1 W @F,@F1,!?2,$P($T(T2),U,2)," ",X1,"   ",X2 G 43:'$P(K,D,11)
53 S I=$T(T3) W !!?2,$P(I,U,2),$P(K,D,9)," - ",$P(K,D,10)
55 W !!?2,$P(I,U,3),$P(K,D,11),$P(I,U,4),$P(K,D,12),!!?2,$P(I,U,5),$P(K,D,8)
57 S K=$P(K,D,4) S:'K K=1 S K=@("^"_Q_"LI(""PR"",K)") W !!?2,$P(K,D,1)
59 S R=$N(@("^"_Q_UGL_"(KC,US,UR,""ZZZZUD"",UZ)")) D S2 G 41:"V"[K,8
 ;
6 S UZ=100
60 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,""ZZZZPS"",UZ)")) G 4:UZ=-1
61 S R=^(UZ),K=$P(R,D,1) I '$D(@("^"_Q_"SL1(""PR"",K)")) D S0 G 60
62 S K=^(K),K=@("^"_Q_"SL(""PR"",K,0)"),FP=UD*100+1 W @F,@F1,$C(13),?2,$P($T(T2),U,2)," ",$P(K,D,1),"   ",$P(K,D,2)
63 S K=$P($T(T6),U,$F("PKL",$P(R,D,2))) W !?2,$P($T(T5),U,2),K I $P(R,D,2)="P" S K="\\"
65 I $P(R,D,2)="K" F I=3,5,7 I $L($P(R,D,I)) S $P(K,D,I-1/2)=$P(@("^"_Q_"PR(0,$P(""HG\GR\SG"",D,I-1/2))"),D,2)
66 I $P(R,D,2)="L",$L($P(R,D,7)) S K="",$P(K,D,3)=$P(@("^"_Q_"PR(0,""LE"")"),D,2)
67 I $L($P(R,D,9)) S K=K_D_$P($T(T6),U,2)
68 G 7:$P(R,D,2)'="L" I $D(@("^"_Q_"L1($P(R,D,7))")) S $P(R,D,7)=$P(R,D,7)_" "_$P(@("^"_Q_"LE(^($P(R,D,7)),0)"),D,2)
69 I $D(@("^"_Q_"L1($P(R,D,8))")) S $P(R,D,8)=$P(R,D,8)_" "_$P(@("^"_Q_"LE(^($P(R,D,8)),0)"),D,2)
 ;
7 W ! S V=0 F I=1:1:4 I $L($P(K,D,I))>V S V=$L($P(K,D,I))
71 S I=1
73 S I=I+2 G 79:I>9,73:'$L($P(R,D,I)) W !?2,$P($T(T7),U,2),$P(K,D,I-1/2),?V+30,": "
74 W $S($P(R,D,I)=0:$P($T(T9),U,2),1:$S(I=9:$P(@("^"_Q_"PR($P(R,D,I),0)"),D,1),1:$P(R,D,I)))
75 W !?2,$P($T(T8),U,2),$P(K,D,I-1/2),?V+30,": "
77 W $S($P(R,D,I+1)="ZZZZZ":$P($T(T10),U,2),1:$S(I=9:$P(@("^"_Q_"PR($P(R,D,I+1),0)"),D,1),1:$P(R,D,I+1)))
78 G 73:$P(R,D,I)=$P(R,D,I+1)
79 S R=$N(@("^"_Q_UGL_"(KC,US,UR,""ZZZZPS"",UZ)")) D S2 G 60:"V"[K,8
 ;
8 S K="-" K I2,I3,I4,HGSP,PC,PCC,PR,X1,X2,I,V,^HULP($J)
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 02.06.88 - 16 u 13