KPAP1 G 1 ;LIJST AANKOOPPRIJZEN ;Go naar KPAP2, KPAP3, KPAP4 [ 06/20/2003  4:06 PM ]
 ;
T1 ;AFDRUKKEN SCHADUWGEGEVENS\"M[] = met   Z[] = zonder   V[] = enkel de verschillen"
T2 ;AFDRUKKEN VERSCHILLEN IN CifPPL\"[] = alle   S[] = stijgende   D[] = dalende"
 ;
1 S K=$P($T(+1),";",2)_QN_" " S FP=203+$L(K) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
12 S DOC=$P($T(+1),";",2),LSTX="KLPB"
13 S SELK=1 D PP^KPSEL I K="-" K @("^"_Q_"PSEL($J)") G YZ
14 S R="KSCH\21\3\"_$P($T(T1),U,2)_"\1\\""-MZV""[K&$L(K)" D R0 G 13:K="-"
 S KSCH=$S(K="Z":"",K="M":1,1:2),FP=2131
 W @F,@F1,$S(K="M":"MET",K="Z":"ZONDER",1:"VERSCHILLEN")
140 G 14:K="-"&(KSCH<2) I KSCH=2 D  G 14:K="-"
 .S R="KVER\22\3\"_$P($T(T2),U,2)_"\1\\""-SD""[K" D R0 Q:K="-"
 .S FP=2237 W @F,@F1,$S(K="S":"STIJGENDE",K="D":"DALENDE",1:"ALLE")
 ;
2 K DOC,LSTX,SELK G @("^KPAP"_$F("PKLBU",LST))
 ;
YZ Q
 ;
ONELINE(FromRout) 
 S PC=$P(A(0),D,1),(PEU,PEB)=$$GRORDE^PRODUKT2(PR)_1
 S PEH=$P(A(1),D,15),PEM=$P(A(1),D,16),PKT=$P(A(1),D,19),PSN=$P(A(1),D,20)
 S PMAS=$P(A(1),D,3),PPLS=$$SchaduwPPL^KPRIJS(PR),PK1S=$P(A(2),D,4),PVHS=$P(A(2),D,5),PWHS=$P(A(2),D,6),PCHS=$P(A(2),D,7),PNR=$P(A(2),D,25)
 I KSCH=2,PPLS="",PK1S="",PVHS="",PWHS="",PCHS="",PMAS="" Q
 S AFR=$E(PEB,2),X="" S:$D(A("J")) X=A("J") K A S PPL=$P(X,D,19),PMA=$P(X,D,17),PEA=$P(X,D,28),PK1=$P(X,D,9)
 S PCH=$P(X,D,21),PCP=$P(X,D,23),PWH=$P(X,D,24),PVK=$P(X,D,26),PVH=$P(X,D,27),PLP=$P(X,D,25)
 S:PLP PLP=PLP*$S($E(PEB)="M":1000,$E(PEB)="H":100,1:1)
 S:PCP PCP=PCP*$S($E(PEB)="M":1000,$E(PEB)="H":100,1:1)
 F SR="PLP" D S2 ;F SR="PCP","PLP" D S2
 S:'$L(PMAS) PMAS=PMA S:'$L(PK1S) PK1S=PK1 S PPP=""
 I PPLS,PPL D
 .S X=$$MUNT^vhRtn1(PMAS,,11)
 .S PPP=(PPLS-(PPLS*PK1S/100))*X
 .S X=$$MUNT^vhRtn1(PMA,,11)
 .S PPP=PPP/((PPL-(PPL*PK1/100))*X)
 .S PPP=PPP-1*100
 S:'$L(PPLS) PPLS=PPL S:'$L(PVHS) PVHS=PVH S:'$L(PWHS) PWHS=PWH S:'$L(PCHS) PCHS=PCH
 I KSCH=2,+PPLS=+PPL,+PK1S=+PK1,+PVHS=+PVH,+PWHS=+PWH,+PCHS=+PCH,PMA=PMAS Q
 I KSCH=2,KVER="S",PPLS<PPL Q
 I KSCH=2,KVER="D",PPLS>PPL Q
 I $G(HD),'$D(KVER) D @("HD^"_FromRout)
 I $G(PSUBGR) D PSUBGR^KPAP3(SGS)
122 S LN=LN+2+(KSCH>0) I LN'<LNMAX W !,$P($T(T3),U,2),# D @("HD^"_FromRout) G 122
 S:PVK PVK=PVK*$S($E(PEB)="M":1000,$E(PEB)="H":100,1:1)
 D S1 G 134:'KSCH S PLPP=PLP,PPL=PPLS,PK1=PK1S,PVH=PVHS,PWH=PWHS,PCH=PCHS,PCP=PPL S:PEA="H" PCP=PCP/100 S:PEA="M" PCP=PCP/1000
 S:FAMNT'[PMAS X=$$MUNT^vhRtn1(PMAS,,11),PCP=PCP*X
 S:PCP PCP=PCP*$S($E(PEB)="M":1000,$E(PEB)="H":100,1:1)
 S PCP=PCP*(100-PK1)/100*(100+PCH)/100 ;,PCP=$J(PCP,1,4)
 S:'PCP PWH=0 S X=PCP/(100-PWH/100)*PWH/100,X=$J(X,1,4)
 S PLP=PCP+X,PVK=PCP+X*PVH/100,PVK=$J(PVK,1,4)
 F SR="PLP" D S2 ;F SR="PCP","PLP" D S2
 S (PC,PEB,PEH,PEM,PKT)="",PNR="SCHADUW    " S:$L(PPP) PC=$J("",16)_"PPL%"
 I PMA=PMAS S (PMA,PEA)=""
 E  S PMA=PMAS
 D S1
134 W !,$P($T(T5),U,2) K PLPP
 Q
 ;
S1 S PHM=PLP-PCP W !,$P($T(T5),U,2) D S3 I '$D(B(220)),PSN D S3,S3
 Q
 ;
S2 S @SR=$$ROUND^KPRIJS(@SR) Q
 ;
S3 W $C(13),?2,$J($E(PNR,1,11),11),?14,PC I $E(PC,$L(PC)-3,$L(PC))="PPL%" S R=PPP_"\5\0\1" D R3
S3A W:PPL>999999 ?40,$J(PPL,10,2) I PPL<1000000 S R=PPL_"\10\41\2" D:+R R3
S3B W ?52,PMA W:$L(PEA) ?55,"/",PEA S R=PK1_"\4\58\1" D:+R R3 S R=PCH_"\4\63\1" D:+R R3 W:PPL>999999 ?67,$J(PCP,10,2)
S3C I PPL<1000000 S R=PCP_"\10\67\2" D:+R R3
S3D W ?79 W:PHM>9999 $J(PHM,8,2) I PHM<10000 S R=PHM_"\8\80\2" D:+R R3
S3E W:PWH ?89,$TR($J(PWH,5,2),".",",")
 W:PWH&(+PWH'=+$J(PWH,0,2)) "*" ; Meer dan 2 cijfers na de comma
 W:PVK>9999 ?95,$J(PVK,8,2) I PVK<10000 S R=PVK_"\8\96\2" D:+R R3
S3F W:PVH ?105,$J(PVH,2) W:'$D(PLPP) ?110,PEU
S3G I $D(PLPP),PLPP S R=PLP-PLPP*100/PLPP_"\8\112\2" I +R D R3 W "%"
S3H W:PLP>999999 ?123,$J(PLP,9,2) I PLP<1000000 S R=PLP_"\10\123\2" D:+R R3
S3I W:$L(PKT) $C(13),?133,PKT
S3Z Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" 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 W $E("........................................",1,R6),@F,@F0
R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ 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
 ;
T3 ;:---------------------------------------:--------------------------------------:---------------:------------:-------------:-----------:
T5 ;:                                       :                                      :               :            :             :           :
 ;
oneline(FromRout) 
 S PC=$P(A(0),D,1),(PEU,PEB)=$$GRORDE^PRODUKT2(PR)_1
 S PEH=$P(A(1),D,15),PEM=$P(A(1),D,16),PKT=$P(A(1),D,19),PSN=$P(A(1),D,20)
 S PMAS=$P(A(1),D,3),PPLS=$$SchaduwPPL^KPRIJS(PR),PK1S=$P(A(2),D,4),PVHS=$P(A(2),D,5),PWHS=$P(A(2),D,6),PCHS=$P(A(2),D,7),PNR=$P(A(2),D,25)
 I KSCH=2,PPLS="",PK1S="",PVHS="",PWHS="",PCHS="",PMAS="" Q
 S AFR=$E(PEB,2),X="" S:$D(A("J")) X=A("J") K A S PPL=$P(X,D,19),PMA=$P(X,D,17),PEA=$P(X,D,28),PK1=$P(X,D,9)
 S PCH=$P(X,D,21),PCP=$P(X,D,23),PWH=$P(X,D,24),PVK=$P(X,D,26),PVH=$P(X,D,27),PLP=$P(X,D,25)
 S:PLP PLP=PLP*$S($E(PEB)="M":1000,$E(PEB)="H":100,1:1)
 S:PCP PCP=PCP*$S($E(PEB)="M":1000,$E(PEB)="H":100,1:1)
 F SR="PLP" D S2 ;F SR="PCP","PLP" D S2
 S:'$L(PMAS) PMAS=PMA S:'$L(PK1S) PK1S=PK1 S PPP=""
 I PPLS,PPL D
 .S X=$$MUNT^vhRtn1(PMAS,,11)
 .S PPP=(PPLS-(PPLS*PK1S/100))*X
 .S X=$$MUNT^vhRtn1(PMA,,11)
 .S PPP=PPP/((PPL-(PPL*PK1/100))*X)
 .S PPP=PPP-1*100
 S:'$L(PPLS) PPLS=PPL S:'$L(PVHS) PVHS=PVH S:'$L(PWHS) PWHS=PWH S:'$L(PCHS) PCHS=PCH
 I KSCH=2,+PPLS=+PPL,+PK1S=+PK1,+PVHS=+PVH,+PWHS=+PWH,+PCHS=+PCH,PMA=PMAS Q
 I KSCH=2,KVER="S",PPLS<PPL Q
 I KSCH=2,KVER="D",PPLS>PPL Q
 S:PVK PVK=PVK*$S($E(PEB)="M":1000,$E(PEB)="H":100,1:1)
 W PNR,$C(9),PC,$C(9),PPL,$C(9),$J(PCP,0,2),$C(9),$J(PLP,0,2),$C(9)
 S PLPP=PLP,PPL=PPLS,PK1=PK1S,PVH=PVHS,PWH=PWHS,PCH=PCHS,PCP=PPL S:PEA="H" PCP=PCP/100 S:PEA="M" PCP=PCP/1000
 S:FAMNT'[PMAS X=$$MUNT^vhRtn1(PMAS,,11),PCP=PCP*X
 S:PCP PCP=PCP*$S($E(PEB)="M":1000,$E(PEB)="H":100,1:1)
 S PCP=PCP*(100-PK1)/100*(100+PCH)/100 ;,PCP=$J(PCP,1,4)
 S:'PCP PWH=0 S X=PCP/(100-PWH/100)*PWH/100,X=$J(X,1,4)
 S PLP=PCP+X,PVK=PCP+X*PVH/100,PVK=$J(PVK,1,4)
 F SR="PLP" D S2 ;F SR="PCP","PLP" D S2
 S (PC,PEB,PEH,PEM,PKT)="",PNR="SCHADUW    " S:$L(PPP) PC=$J("",16)_"PPL%"
 I PMA=PMAS S (PMA,PEA)=""
 E  S PMA=PMAS
 W PPL,$C(9),$J(PCP,0,2),$C(9),$J(PLP,0,2),$C(9)
 I $G(PLPP) S R=PLP-PLPP*100/PLPP I +R W $J(R,0,2),"%",$C(9)
 W $C(13)
 K PLPP
 Q
  ;