KPIBT3 G 1 ;PRODUKTEN IN BESTELLING ;(VOLGENS KLASSIFIKATIE);KPIBT1;Go van KPIBT1 [ 04/02/2001  2:19 PM ]
 ;
T1 ;IDENTNUMMER;4;2;;4;17;PID;;11
T2 ;PRODUKTNAAM;5;2;;5;17;PC;;25
T3 ;FYS-ST;4;45;;4;55;+$$GETSTOCK^PRODUKT4(PR,"F");;8
T4 ;TEO-ST;4;63;;4;73;$$GETSTOCK^PRODUKT4(PR,"T");;8
T5 ;PRA-ST;5;63;;5;73;$$GETSTOCK^PRODUKT4(PR,"P");;8
T10 ;LEVERANCIERS- KLANTNUMMER - NAAM  | NUMMER | ST-TOE-KOM | ST-ORD-KOM | LV-WK 
T11 ;DETAIL
T12 ;[] = vervolg   
T13 ;.[] = volgend produkt   -[] = einde programma
 ;
S1 S R="K\23\3\"_$P($T(T11),U,2)_"\""" I KOT'=-1,LKI'=-1,UTR'=-1,UTZ'=-1 S R=R_$P($T(T12),U,2)
S1A S R=R_$P($T(T13),U,2)_"""\1\\""-.""[K" D R0
S1Z Q
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;
1 S Q0="^"_Q_"PR(PR,0)",Q1="^"_Q_"PH(HG)",Q2="^"_Q_"PH(HG,GRS)",Q3="^"_Q_"PH(HG,GRS,SGS)",Q4="^"_Q_"PH(HG,GRS,SGS,MK,PRCS)",I=0,FP=301 W @F,@F1
11 S I=I+1,U2=$P($T(@("T"_I)),U,2,99) G 15:'$L(U2) S FP=$P(U2,U,5)*100+$P(U2,U,6)-3 W @F,@F5,":"
13 S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F,@F6,$P(U2,U,1),@F5 G 11
15 S FP=780 W @F,@F5 S FP=702 W @F,@F4,$P($T(T10),U,2),@F5
 ;
2 I HG'=0 S X=$D(@Q1) G 22:X
21 S HG=$N(@Q1) I HG=-1!(HG]HGX) G YZ
22 S GRS=GR I GR'=0 S X=$D(@Q2) G 24:X
23 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) G 21
24 S SGS=SG I SG'=0 S X=$D(@Q3) G 26:X
25 S SGS=$N(@Q3) I SGS=-1!(SGS]SGX) G 23
26 S PRCS=PRC I PRC'=0 S X=$D(@Q4) G 100:X
27 S PRCS=$N(@Q4) I PRCS=-1!(PRCS]PRCX) G 25
100 S PR=+^(PRCS) D ^KPCHKPR G 27:'OK
110 S I2=$N(^KPR(PR,"W")) G 27:$E(I2,1)'="W"
 ;
3 S PC=$P(A(0),D,1),PID=$P(A(2),D,25),I2="W"
31 K ^HULP($J+100)
 ;
4 S I2=$N(@("^"_Q_"PR(PR,I2)")) G 6:$E(I2,1)'="W" S KOT=$E(I2,9),KOT=$F("TR",KOT)-2 G 3:KOT<0
41 S UTR=$E(I2,18,23),UTZ=$E(I2,24,26),U2=^(I2)
43 I $E(UTR,1)=" " S UTR=$E(UTR,2,99) G 43
45 I $E(UTZ,1)=" " S UTZ=$E(UTZ,2,99) G 45
47 G 5:KOT S LKC=$P(@("^"_Q_"TO1(UTR)"),D,1),LKI=@("^"_Q_"L1(LKC)"),LKN=$P(@("^"_Q_"LE(LKI,0)"),D,2)
49 S UA=$P(U2,D,5),ULT=$P(U2,D,6),UKOM=$P(U2,D,7) G 53
 ;
5 S LKC=$P(@("^"_Q_"O1(UTR,""F"")"),D,1),LKI=@("^"_Q_"K1(LKC)"),LKN=$P(@("^"_Q_"KL(LKI,0)"),D,2)
51 S UA=$P(U2,D,1),ULT=$P(U2,D,2),UKOM=$P(U2,D,3)
53 S ^HULP($J+100,KOT,LKI,UTR,UTZ)=LKC_D_LKN_D_UA_D_ULT_D_UKOM_D G 4
 ;
6 S I=0
61 S I=I+1,U2=$P($T(@("T"_I)),U,2,99) G 7:'$L(U2) X "S K="_$P(U2,U,7)
63 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),@F,K G 61
 ;
7 S (UATK,UATS,UAOK,UAOS)=0,KOT=-1,LN=7,FP=801 W @F,@F1
71 S KOT=$N(^HULP($J+100,KOT)) G 9:KOT=-1 S LKI=-1
72 S LKI=$N(^HULP($J+100,KOT,LKI)) G 71:LKI=-1 S UTR=-1
73 S UTR=$N(^HULP($J+100,KOT,LKI,UTR)) G 72:UTR=-1 S UTZ=-1
74 S UTZ=$N(^HULP($J+100,KOT,LKI,UTR,UTZ)) G 73:UTZ=-1 S U2=^(UTZ)
75 S LN=LN+1 I LN>21 D S1 G YZ:K="-",27:K="." S LN=7,FP=801 W @F,@F1 G 75
76 S FP=LN*100+2 W @F,$J($P(U2,D,1),5)," ",$P(U2,D,2) S FP=FP+37 W @F,$J(UTR,6)
77 I 'KOT S:$P(U2,D,5) UATK=UATK+$P(U2,D,3),FP=LN*100+52 S:'$P(U2,D,5) UATS=UATS+$P(U2,D,3),FP=LN*100+48
78 I KOT S:$P(U2,D,5) UAOK=UAOK+$P(U2,D,3),FP=LN*100+65 S:'$P(U2,D,5) UAOS=UAOS+$P(U2,D,3),FP=LN*100+61
79 W @F,$J($P(U2,D,3),6) S FP=LN*100+74 W @F,$P(U2,D,4) F I=1,37,46,59,72,80 S FP=LN*100+I W @F,"|"
 ;
8 G 74
 ;
9 D S1 I K'="-" G 27:K=".",7
 ;
YZ K ^HULP($J+100) Q
 ;