KPAP5 G 1 ;AANKOOPPRIJZEN ;(BEPAALDE PRODUKTEN);KPAP1;Go van KPAP1 - Do naar KPSELS [ 06/20/2003  2:54 PM ]
 ;
T1 ;SELEKTIE : 
T2 ;: IDENTNUMMER PRODUKTNAAM               :       PPL MNT E KRT% CIF%     CIFPPL : H MARGE    W% :    VORK V% : EU          :   LIJSTPR :
T3 ;:---------------------------------------:--------------------------------------:---------------:------------:-------------:-----------:
T4 ;BLZ:
 ;
1 S BLZ=0
 S Dir=$$DIRUSER^vhDEV(),Dev=Dir_"AANKOOPPRIJZEN.TXT"
 D INIT^vhPRINTER(132) G YZ:'$D(Print)
 S LNMAX=Print("LEN")-10-Print("BOT")-Print("TOP")
 D:$D(Dev)
 .C Print("DEV")
 .O Dev:"NRW"
 .U Dev
 .W "Identnummer",$C(9),"Korttekst",$C(9),"PPL",$C(9),"CIFPPL",$C(9),"Lijsprijs",$C(9),"Schaduw PPL",$C(9),"Schaduw CIFPPL",$C(9),"Schaduw lijstprijs",$C(9),"%",$C(13)
 .S LNMAX=999999999
 N FAMNT
 S FAMNT=$$FADEF^vhRtn1(),I=100 G 19:$N(B(I))=-1 I '$D(Dev) D HD,^KPSELS
19 S Q0="^"_Q_"PR(PR,0)",Q1="^"_Q_"PSEL($J,PRC)"
23 D HD I PRC'=0 S X=$D(@Q1) G 100:X
25 S PRC=$N(@Q1) I PRC=-1!(PRC]PRCX) W !,$P($T(T3),U,2),# G 160
100 S PR=+^(PRC) D ^KPCHKPR G 25:'OK
 D:'$D(Dev) ONELINE^KPAP1($ZN)
 D:$D(Dev) oneline^KPAP1($ZN)
136 G 25
160
 C:$D(Dev) Dev
 D CLOSE^vhPRINTER
YZ K @("^"_Q_"PSEL($J)") Q
 ;
HD
 Q:$D(Dev)
 S BLZ=BLZ+1,LN=0 W !,QN,?127,$P($T(T4),U,2),$J(BLZ,4),!,NM2,?60,$P($T(+1),U,3),?127,DT,$C(13),?30,@F82,$P($T(+1),U,2),@F83,$C(13),!,NM3
HDA W ?30,$P($T(T1),U,2),X1,"   ",X2,?128,TD,!! I PRC=-1!(PRC]PRCX) G HDZ
HDB I BLZ>1!($N(B(100))=-1) W !!,$P($T(T3),U,2),!,$P($T(T2),U,2),!,$P($T(T3),U,2)
HDZ Q
 ;