KPPL10 G 1 ;PRODUKTENLIJST ;(VOLGENS LEVERANCIER);KPPL1;Go van KPPL4 - Do naar KPSELS [ 08/05/2002   4:27 PM ]
 ;
T1 ;SELEKTIE : 
T2 ;: HOOFDGROEP    : GROEP         : SUBGROEP      : IDENTNUMMER : PRODUKTNAAM      VERWB. = *   : REFERENTIE LEVERANCIER    : D : LEV :
T3 ;:---------------:---------------:---------------:-------------:-------------------------------:---------------------------:---:-----:
T4 ;BLZ:
 ;
S2 W $C(13),?50,$J($E(PNR,1,11),11),?64,PC,?90,VWB,?96,PLF,?124,$P("\D",D,PDP+1),?128,$S(PLN=PLNX:" "" ",1:$E(PLN,1,3))
S2Z Q
 ;
1 S BLZ=0,I=100 G 19:$N(B(I))=-1 D HD,^KPSELS
19 S Q0="^"_Q_"PR(PR,0)",Q1="^"_Q_"LE(LE)",Q2="^"_Q_"PL(LES)",Q3="^"_Q_"HULP($J,PRCS)",(HX,HXX,GX,GXX,SX,SXX,PLN,PLX,PLNX)="",(TVWB,TAPR)=0
23 I LE'=0 S X=$D(@Q1) G 27:X
25 S LE=$N(@Q1) I LE=-1!(LE]LEX) G 160
27 S LES=$P(LE," ",2)_" ",LNM=$P(^(LE,0),D,2),X=$D(@Q2) G 25:'X D S9,HD
29 S PRCS=PRC I PRC'=0 S X=$D(@Q3) G 100:X
31 S PRCS=$N(@Q3) I PRCS=-1!(PRCS]PRCX) W !,$P($T(T3),U,2),# G 25
100 S PR=+^(PRCS) D ^KPCHKPR G 31:'OK
 G 31:$P(A(1),D,25)
112 S TAPR=TAPR+1,VWB="",PC=$P(A(0),D,1) S:$P(A(0),D,14) VWB=VWB_"v" S:$P(A(0),D,17) VWB=VWB_"t" S PSN=$P(A(1),D,20)
113 S PNR=$P(A(2),D,25) S:$P(A(2),D,9) VWB=VWB_"o" S (PLR,PLF)="" I $D(A("J")) S PLR=$P(A("J"),D,1),PLF=$P(A("J"),D,3)
114 S PDP=$D(^("E")) S:PDP VWB=VWB_"d" S PI2="H"
115 S PI2=$N(^(PI2)) G 117:$E(PI2,1)'="H" S X=^(PI2) F I=1:1 Q:'$L($P(X,D,I))  I $E($P(X,D,I),7)=2 S VWB=VWB_"H" Q
116 G 115:VWB'["H"
117 S:VWB="" VWB="*",TVWB=TVWB+1 S:VWB["H" VWB=""
123 I PLR&(PLR'=PLX) S PLN=$P(@("^"_Q_"LE(@(""^""_Q_""L1(PLR)""),0)"),D,2)
126 S:'$D(A("I")) A("I")="" I HX'=$P(A("I"),D,1) S (HX,HXX)=$P(A("I"),D,1),(GX,GXX)=$P(A("I"),D,2),(SX,SXX)=$P(A("I"),D,3)
128 I GX'=$P(A("I"),D,2) S (GX,GXX)=$P(A("I"),D,2),(SX,SXX)=$P(A("I"),D,3)
130 I SX'=$P(A("I"),D,3) S (SX,SXX)=$P(A("I"),D,3)
132 S LN=LN+1 I LN>50 W !,$P($T(T3),U,2),# D HD G 132
140 W !,": ",$E(HXX,EXH,13+EXH-1),?16,": ",$E(GXX,EXG,13+EXG-1),?32,": ",$E(SXX,EXS,13+EXS-1),?48,": ",$J($E(PNR,1,11),11),?62,": ",PC,?90,VWB
145 W ?94,": ",PLF,?122,": ",$P("\D",D,PDP+1),?126,": ",$S(PLN=PLNX:" "" ",1:$E(PLN,1,3)),?132,":" I '$D(B(220)),PSN D S2,S2
146 S (HXX,GXX,SXX)="",PLNX=PLN G 31
160 D HD W !!,"NIET VERWIJDERBARE PRODUKTEN :" S R=(TAPR-TVWB)_"\6\30\0" D R3
162 W !,"VERWIJDERBARE PRODUKTEN      :" S R=TVWB_"\6\30\0" D R3
164 W !,"TOTAAL AANTAL PRODUKTEN      :" S R=TAPR_"\6\30\0" D R3
166 W # D CLOSE^vhPRINTER K @("^"_Q_"HULP($J)")
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?125,$P($T(T4),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,$C(13),?60,$P($T(+1),U,3),?125,DT,!,NM3
HDA W ?30,$P($T(T1),U,2),X1,"   ",X2,?126,TD,!! I LE=-1!(LE]LEX) G HDZ
HDB I BLZ>1!($N(B(100))=-1) W LNM,!!,$P($T(T3),U,2),!,$P($T(T2),U,2),!,$P($T(T3),U,2)
HDZ Q
 ;
S9 K @("^"_Q_"HULP($J)") S SL=LES,SM=0,S1="^"_Q_"PL(SL,SM)",S2="^"_Q_"PL(SL,SM,SR)",S3="^"_Q_"PL(SL,SM,SR,SP)"
S9A S SM=$N(@S1) G S9Z:SM=-1 S SR=0
S9B S SR=$N(@S2) G S9A:SR=-1 S SP=0
S9C S SP=$N(@S3) G S9B:SP=-1 S R=+^(SP),@("^"_Q_"HULP($J,SP)")=R G S9C
S9Z K SL,SM,SR,SP,S1,S2,S3,R Q
 ;
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
 ;