KPNV3 G 1 ;NIET VERKOCHT SINDS ;(VOLGENS KLASSIFIKATIE);KPNV1;Go van KPNV1 - Do naar KPSELS [ 08/05/2002   4:25 PM ]
 ;
T1 ;SELEKTIE : 
T2 ;: IDENTNUMMER : PRODUKTNAAM               : FYS-ST :
T3 ;:-------------:---------------------------:--------:
T4 ;BLZ:
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V1 26.11.84
 ;
1 S (BLZ,SWP,SWS)=0,BP=DJ-1_"."_DM_" ",I=100 G 19:$N(B(I))=-1 D HD,^KPSELS
19 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)"
21 S (TFSP,TFNP,TTSP,TTNP,TPSP,TPNP,AGV)=0 S:$D(@("^"_Q_"STPR(0,0,6)")) AGV=+^(6)
22 F I="HG","GR","SG" S @("EX"_$E(I,1))=$P(@("^"_Q_"PR(0,I)"),D,5)
23 I HG'=0 S X=$D(@Q1) G 27:X
25 S HG=$N(@Q1) I HG=-1!(HG]HGX) G 160
27 D HD S GRS=GR I GR'=0 S X=$D(@Q2) G 31:X
29 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) W # G 25
31 S SGS=SG I SG'=0 S X=$D(@Q3) G 35:X
33 S SGS=$N(@Q3) I SGS=-1!(SGS]SGX) G 29
35 S PRCS=PRC I PRC'=0 S X=$D(@Q4) G 100:X
37 S PRCS=$N(@Q4) I PRCS=-1!(PRCS]PRCX) G 33:'SWP!SWS W !,$P($T(T3),U,2) S SWP=0,SWS=1,LN=LN+1 G 33
100 S PR=+^(PRCS) D ^KPCHKPR G 37:'OK
 G 37:$P(A(1),D,25),37:'$D(^KSTPR(PR))
111 S PC=$P(A(0),D,1),PST=$P(A(0),D,14),PNR=$P(A(2),D,25)
 Set IsStock=$P(A(0),D,20)
119 K A G 37:$N(@("^"_Q_"STPR(PR,0,KNVS)"))'=-1
129 S LN=LN+1 I LN>50 W:'SWS !,$P($T(T3),U,2) W # D HD G 129
140 If IsStock W !,": ",@FMTB,PNR,@FMTb," : ",@FMTB,PC,@FMTb," :" S R=PST_"\7" D R3 W ":"
 If 'IsStock W !,": ",PNR," : ",PC," :" S R=PST_"\7" D R3 W ":"
150 S SWP=1,SWS=0 G 37
160 W # D CLOSE^vhPRINTER
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0,SWS=1 W !,QN,?125,$P($T(T4),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),U,2),KNVSX,@F83,$C(13),?87,$P($T(+1),U,3),?125,DT,!,NM3
HDA W ?30,$P($T(T1),U,2),X1,"   ",X2,?126,TD,!! I HG=-1!(HG]HGX) G HDZ
HDB I BLZ>1!($N(B(100))=-1) W $E(HG,EXH,99) W:GR=GRX "- ",$E(GR,EXG,99) W:SG=SGX "- ",$E(SG,EXS,99) W !!,$P($T(T3),U,2),!,$P($T(T2),U,2),!,$P($T(T3),U,2)
HDZ Q
 ;