PPRL5 G 1 ;VERKOOPPRIJZEN ;(BEPAALDE PRODUKTEN);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_"PSEL($J,PRC)"
23 D HD^PPRLP($P($T(+1),U,3)) I PRC'=0 S X=$D(@Q1) G 100:X
25 S PRC=$N(@Q1) I PRC=-1!(PRC]PRCX) G 160:MAC W !,$P($T(T3^PPRLP),U,2) W:KPK $P($T(T3^PPRLP),U,3) W $P($T(T3^PPRLP),U,4),# G 160
100 S PR=+^(PRC) D ^KPCHKPR G 25:'OK
 D PRINT^PPRLP($P($T(+1),U,3))
140 G 25
160 D:'MAC CLOSE^vhPRINTER
YZ K @("^"_Q_"PSEL($J)") Q
 ;