KOFKL3 ;OPMAKEN OFFERTES (tonen detail) ;KOFKL2;Quit naar KOFKL2 [ 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
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
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
 ;
S1 S LT=LT+1 I UL>$P(UD,D,2) S FP=UL*100+1 W @F,@F1 S UL=UL-1,FP=UD*100+1 W @F,@FDL
S1A S FP=UL*100+1 W @F,$C(13),?1,$E($P(HGSP,D,1),EXH,12+EXH-1),?14,$E($P(HGSP,D,2),EXG,12+EXG-1)
S1B W ?27,$E($P(HGSP,D,3),EXS,12+EXS-1),?40,PC X UV S UL=UL+1
S1Z Q
 ;
S2 S LT=0,FP=2403+F60 W @F,@F1,"[] = VERVOLG : ",@F0 R K G S2:K?.E1C.E!("-,"'[K),S2Z:K="-"!(K=","),S2:K'=""
S2Z Q
 ;
1 S I2=9999,LT=0,(PC,K)="",UL=+UD,FP=UL*100+1 W @F,@F1
11 S I3=0,HGSP=""
12 S I2=$N(@("^"_Q_"OFKL(KC,US,UR,I2)")) G 8:I2=-1
13 I $E(I2,1,4)="ZZZZ" S K="" D S2:$E($N(^(9999)),1,4)'="ZZZZ" G 8:K="-"!(K=",") S UL=+UD G 4:I2="ZZZZUD",6:I2="ZZZZPS"
14 S HGSP=HGSP_I2
15 I $D(^(I2,0,0,0)) D:LT=($P(UD,D,2)-$P(UD,D)+1) S2 G 8:K="-"!(K=",") D S1 S HGSP=""
17 S I4=0,HGSP=$P(HGSP,D,1)_D
19 S I3=$N(@("^"_Q_"OFKL(KC,US,UR,I2,I3)")) G 11:I3=-1 S HGSP=HGSP_I3
 ;
2 I $D(^(I3,0,0)) D:LT=($P(UD,D,2)-$P(UD,D)+1) S2 G 8:K="-"!(K=",") D S1 S HGSP=D
21 S PC="",HGSP=$P(HGSP,D,1,2)_D
23 S I4=$N(@("^"_Q_"OFKL(KC,US,UR,I2,I3,I4)")) G 17:I4=-1 S HGSP=HGSP_I4
25 I $D(^(I4,0)) D:LT=($P(UD,D,2)-$P(UD,D)+1) S2 G 8:K="-"!(K=",") D S1 S HGSP=D_D
27 S PR=0,HGSP=$P(HGSP,D,1,3)_D K ^HULP($J)
29 S PR=$N(@("^"_Q_"OFKL(KC,US,UR,I2,I3,I4,PR)")) G 33:PR=-1
 ;
3 I '$D(@("^"_Q_"PR(PR)")) K @("^"_Q_"OFKL(KC,US,UR,I2,I3,I4,PR)") G 29
31 S PC=$P(^(PR,0),D,1) D SC S ^HULP($J,PCC)=PC G 29
33 S PCC=-1
35 S PCC=$N(^HULP($J,PCC)) G 21:PCC=-1 S PC=^(PCC) D:LT=($P(UD,D,2)-$P(UD,D)+1) S2 G 8:K="-"!(K=",") D S1
37 S HGSP=D_D_D G 35
 ;
4 S UZ=100
41 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,""ZZZZUD"",UZ)")) G 12: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 G 12:$N(@("^"_Q_UGL_"(KC,US,UR,""ZZZZUD"",UZ)"))=-1 D S2 G 41:'$L(K),12
 ;
6 S UZ=100
60 S UZ=$N(@("^"_Q_UGL_"(KC,US,UR,""ZZZZPS"",UZ)")) G 12: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 G 12:$N(@("^"_Q_UGL_"(KC,US,UR,""ZZZZPS"",UZ)"))=-1 D S2 G 60:'$L(K),12
 ;
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 - 10 u 31