KOFKL2 ;OPMAKEN OFFERTES ;KOFKL2;Do naar KOFKL3, KOFKL4 [ 08/05/2002  11:22 AM ]
 G 1
 ;
1 G 23:K="."
10 I K="C" S R="K\"_($P(UD,D,2)+2*100)_"\REFERENTIE\PR\PRR" D ^KPS7C G 23:K="-" S PR=$P(K," ",2) G 25
 ;
2 S K=K_" "
 I '$D(@("^"_Q_"PR1(K)")) S K=$$SELECT^PRODUKT6("","",K,,,,,,KC) S:'K K="-" G 23:K="-" S PR=K G 25
21 S PR=$P(@("^"_Q_"PR1(K)"),D,1) G 25
23 G YZ:K="-" D ^Flow.SelecteerProduct G YZ:K="-"
25 S PC=$P(@("^"_Q_"PR(PR,0)"),D,1),PI2=$N(^("I")),HGSP=" \ \ " S:$E(PI2,1)="I" HGSP=$P(^(PI2),D,1,3) S HGSP=HGSP_D_PR
27 S X=HGSP,I2=$P(X,D,1) S:I2'=" " I2=$E(I2,1,$L(I2)-1)_$C($A($E(I2,$L(I2)))-1) S:I2=" " I2=0
29 S I2=$N(@("^"_Q_"OFKL(KC,US,UR,I2)")) G 39:I2'=$P(X,D,1) I $D(^(I2,0,0,0)) S HGSP=$P(HGSP,D,1) D S3,S1 S HGSP=D_$P(X,D,2,3)
 ;
3 S I3=$P(X,D,2) S:I3'=" " I3=$E(I3,1,$L(I3)-1)_$C($A($E(I3,$L(I3)))-1) S:I3=" " I3=0
31 S I3=$N(@("^"_Q_"OFKL(KC,US,UR,I2,I3)")) G 39:I3'=$P(X,D,2) I $D(^(I3,0,0)) S HGSP=$P(HGSP,D,1,2) D S3,S1 S HGSP=D_D_$P(X,D,3)
33 S I4=$P(X,D,3) S:I4'=" " I4=$E(I4,1,$L(I4)-1)_$C($A($E(I4,$L(I4)))-1) S:I4=" " I4=0
35 S I4=$N(@("^"_Q_"OFKL(KC,US,UR,I2,I3,I4)")) G 39:I4'=$P(X,D,3) I $D(^(I4,0)) S HGSP=$P(HGSP,D,1,3) D S3,S1 S HGSP=D_D_D
37 I $D(@("^"_Q_"OFKL(KC,US,UR,I2,I3,I4,PR)")) D S3,S1
39 S HGSP=X D S3,S1
 ;
4 S R="NV\23\3\NIVEAU HOOFDGROEP, GROEP, SUBGROEP OF PRODUKTNAAM\K2\1\\""-,HGSP""[K&$L(K)" D ^KRR0 G YZ:K="," I K="-" S UL=UL-1,FP=UL*100+1 W @F,@F1 G 6
43 S FP=2310+F60 W @F,@F1,$P("HOOFDGROEP\GROEP\SUBGROEP\PRODUKTNAAM",D,$F("HGSP",K)-1) I NV="H" G ^KOFKL5
47 S HGSP=$P(HGSP,D,1,$F("HGSP",NV)-1)_D_$P("0\0\0\0",D,$F("HGSP",NV),4)
49 S Q0="@(""^""_Q_""OFKL(KC,US,UR" F I=1:1:4 S Q0=Q0_","""""_$P(HGSP,D,I)_""""""
 ;
5 S Q0=Q0_")"")",@Q0=""
 ;
6 G ^KOFKL3
 ;
YZ Q
 ;
S1 X UV S UL=UL+1
S1Z Q
 ;
S3 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
S3A S FP=UL*100+1 W @F,@F1,$C(13),?1,$E($P(HGSP,D,1),EXH,12+EXH-1),?14,$E($P(HGSP,D,2),EXG,12+EXG-1)
S3B W ?27,$E($P(HGSP,D,3),EXS,12+EXS-1),?40,PC
S3Z Q
 ;
 Q
Z X ^cZ Q
ZZ ; 04.06.91 - 16 u 06