KPSTV4 G 1 ;VERSCHIL STOCKWAARDE ;(VOLGENS LEV.);KPSTV1;Go van KPSTV1 - Do naar KPSELS [ 08/06/2002   8:56 AM ]
 ;
T1 ;SELEKTIE : 
T2 ;": IDENTNUMMER : PRODUKTNAAM               : IN STOCK : "_$J("AANK PR "_FAMNT,10)_" :"_$J("WAARDE "_FAMNT,10)_" :"
T3 ;:-------------:---------------------------:----------:-------------:-----------:
T4 ;BLZ:
T5 ;TOTTAAL VOOR : 
 ;
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=0 D INIT^vhPRINTER("S;L;B",90) G YZ:'$D(Print)
 S FAMNT=$$MUNT^vhRtn1(,1),FAMNTRND=$$MUNT^vhRtn1(,4),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)"
21 S ATPWA=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 S TPWA=0
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),!!?2,$P($T(T5),U,2),LNM S R=TPWA_"\10\68\0" D:+R R3 W # G 25
100 S PR=+^(PRCS)
 G 31:$P(^KPR(PR,1),D,25) ; NON-Aktief
 G 31:$D(^PRLINK("D",PR)) ; Moederprodukt    
 D ^KPCHKPR G 31:'OK
112 S PC=$P(A(0),D,1),PST=$P(A(0),D,14),PCA=$P(A(1),D,25),PID=$P(A(2),D,25)
114 S PPL=$P(A("J"),D,19),PMA=$P(A("J"),D,17),PK1=$P(A("J"),D,9),PK2="",PEA=$P(A("J"),D,28) K A
116 S:PEA="H" PPL=PPL/100 S:PEA="M" PPL=PPL/1000 S PPAR=1 S:$L(PMA) PPAR=$$MUNT^vhRtn1(PMA,,11)
118 S PPL=$J(PPL*PPAR*(100-PK1)/100*(100-PK2)/100,0,2),PWA=PPL*PST
 S:'FAMNTRND PWA=PWA+.99999\1
120 S ATPWA=ATPWA+PWA,TPWA=TPWA+PWA
122 S LN=LN+1 I LN>50 W !,$P($T(T3),U,2),# D HD G 122
124 W !,": ",PID,?14,": ",PC W:PCA ?41,"#" W ?42,":" S R=PST_"\9\43\0" D:+R R3 W ?53,":"
126 S R=PPL_"\12\54\2" D:+R R3 W ?67,":" S R=PWA_"\10\68\"_FAMNTRND D:+R&(PPL) R3 W ?79,":"
128 G 31
160 D HD W !!?2,"ALGEMEEN TOTAAL"
162 S R=ATPWA_"\10\68\"_FAMNTRND D:+R R3
164 W # Do CLOSE^vhPRINTER K @("^"_Q_"HULP($J)")
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,?72,$P($T(T4),U,2),$J(BLZ,4),!,?30,@F82,$P($T(+1),U,2),@F83,$C(13),?53,$P($T(+1),U,3),?72,DT,!
HDA W ?30,$P($T(T1),U,2),X1,"   ",X2,?73,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
 ;