KOFKL5 ;OPMAKEN OFFERTES;KOFKL2 ;Go naar KOFKL2
 G 1
 ;
1 S R="NVH\24\3\BEPAALDE HOOFDGROEP OF ALLE   [] = bepaalde   A[] = alle\\1\\""-,A""[K" D ^KRR0
11 G YZ:K=",",4^KOFKL2:K="-" S FP=2321 W @F,@F1 W:$L(K) "(ALLE)"
13 S R="LV\24\3\KODE LEVERANCIER" S:'$L(NVH) R=R_"   [] = alle" S R=R_"\\2\\$L(K)!(K=""""&'$L(NVH))" D ^KRR0
15 G 1:K="-",YZ:K="," S FP=2321+($L(NVH)*7) W @F,@F1,K
19 G 47^KOFKL2:'$L(LV) S LV=LV_" "
 ;
2 S (HG,HGS)=$P(HGSP,D,1)_" ",GR=-1 I $L(NVH) S HG=$N(@("^"_Q_"PH(-1)")),HGS="ZZZZZ "
21 S GR=$N(@("^"_Q_"PH(HG,GR)")) G 3:GR=-1 S SG=-1
23 S SG=$N(@("^"_Q_"PH(HG,GR,SG)")) G 21:SG=-1,23:$P(SG,"/",2)'=LV
25 S @("^"_Q_"OFKL(KC,US,UR,$E(HG,1,$L(HG)-1),$E(GR,1,$L(GR)-1),$E(SG,1,$L(SG)-1),0)")="" G 23
 ;
3 S HG=$N(@("^"_Q_"PH(HG)")) I HG'=-1,HG']HGS S GR=-1 G 21
31 G ^KOFKL3
 ;
YZ Q
 ;
 Q
Z X ^cZ Q
ZZ ; 02.05.88 - 15 u 54