PPRL3 G 1 ;VERKOOPPRIJZEN ;(VOLGENS KLASSIFIKATIE);KPRL1;Go van KPRL1 - Do naar KPSELS [ 04/09/2001   2:35 PM ]
 ;
1 S:'$D(MAC) MAC=0 S BLZ=0
 If 'MAC D INIT^vhPRINTER(132) G YZ:'$D(Print) S LNMAX=Print("LEN")-10-Print("BOT")-Print("TOP")
 S (PLN,PLX,PLNX)="",I=100 G 19:$N(B(I))=-1 I 'MAC D HD^PPRLP($P($T(+1),U,3)),^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 F I="HG","GR","SG" S @("EX"_$E(I,1))=$P(@("^"_Q_"PR(0,I)"),D,5)
23 D HD^PPRLP($P($T(+1),U,3)):MAC 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^PPRLP($P($T(+1),U,3)):'MAC S GRS=GR I GR'=0 S X=$D(@Q2) G 31:X
29 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) G 25:MAC W !,$P($T(T3^PPRLP),U,2) W:KPK $P($T(T3^PPRLP),U,3) W $P($T(T3^PPRLP),U,4),# 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
100 S PR=+^(PRCS) D ^KPCHKPR G 37:'OK
 D PRINT^PPRLP($P($T(+1),U,3))
140 G 37
160 D:'MAC CLOSE^vhPRINTER
YZ Q
 ;