PPRL4 G 1 ;VERKOOPPRIJZEN ;(VOLGENS LEVERANCIER);KPRL1;Go van KPRL1 - Do naar KPSELS [ 08/07/2002   3:45 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_"LE(LE)",Q2="^"_Q_"PL(LES)",Q3="^"_Q_"HULP($J,PRCS)"
23 D HD^PPRLP($P($T(+1),U,3)):MAC 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^PPRLP($P($T(+1),U,3)):'MAC
29 S PRCS=PRC I PRC'=0 S X=$D(@Q3) G 100:X
31 S PRCS=$N(@Q3) I PRCS=-1!(PRCS]PRCX) 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
100 S PR=+^(PRCS) D ^KPCHKPR G 31:'OK
 D PRINT^PPRLP($P($T(+1),U,3))
140 G 31
160 D:'MAC CLOSE^vhPRINTER K @("^"_Q_"HULP($J)")
YZ Q
 ;
HD IF MAC W @$P($T(T10),U,2) W:KPK @$P($T(T10),U,3) W @$P($T(T10),U,4),$C(13) G HDZ
 S BLZ=BLZ+1,LN=0 W !,QN,?113+KPK,$P($T(T4),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),U,2),"IN ",KVM,@F83,$C(13),?73,$P($T(+1),U,3),?113+KPK,DT,!,NM3
HDA W ?30,$P($T(T1),U,2),X1,"   ",X2,?114+KPK,TD,!! I LE=-1!(LE]LEX) G HDZ
HDB I BLZ>1!($N(B(100))=-1) W LNM,!!,$P($T(T3),U,2) W:KPK $P($T(T3),U,3) W $P($T(T3),U,4),!,$P($T(T2),U,2) W:KPK $P($T(T2),U,3) W $P($T(T2),U,4),!,$P($T(T3),U,2) W:KPK $P($T(T3),U,3) W $P($T(T3),U,4)
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
 ;