KPRL1 G 1 ;LIJST VERKOOPPRIJZEN ;Go naar KPRL2, KPRL3, KPRL4 [ 04/03/2003  11:39 AM ]
 ;
T2 ;AFDRUKKEN SCHADUWGEGEVENS\"M[] = met   Z[] = zonder"
T3 ;TOT BASIS- OF GROOTPRIJS \"B[] = tot basis   G[] = tot groot"
T4 ;MUNTKODE LIJST           \"BEF, NLG, EUR of MTL"
T10 ;Ok voor begin transfert\"[] = ok"
T11 ;Ok voor einde transfert\"[] = ok"
 ;
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",MAC=$P(^cLOG(boot,"DEV",$$IO^cQ5),D,1)="MC"
13 S SELK=1 D PP^KPSEL I K="-" K @("^"_Q_"PSEL($J)") G YZ
130 S R="KVM\20\3\"_$P($T(T4),U,2)_"\3\\"";-;BEF;NLG;EUR;MTL;""[(U_K_U)&$L(K)" D R0 G 13:K="-"
 S KVM=$$MUNTKODE^vhRtn1(KVM)
132 S R="K\21\3\"_$P($T(T3),U,2)_"\1\\""-BG""[K&$L(K)" D R0 G 130:K="-"
134 S KPK=$S(K="B":0,1:12),FP=2131 W @F,"TOT ",$S(K="B":"BASIS",1:"GROOT"),"PRIJS"
14 S R="KSCH\22\3\"_$P($T(T2),U,2)_"\1\\""-MZ""[K&$L(K)" D R0 G 132:K="-" S KSCH=$S(K="Z":"",1:1),FP=2231 W @F,@F1,$S(K="M":"MET",1:"ZONDER")
15 IF MAC S Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,$$ASKFILE^vhDEV("TRANSFERT.TXT"),"W") G 13:0[Dev U Dev
 ;
2 K DOC,LSTX,SELK D @("^PPRL"_$F("PKLBU",LST))
21 C:MAC Dev
 ;
YZ 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
 ;