KPAP3 G 1 ;AANKOOPPRIJZEN ;(VOLGENS KLASSIFIKATIE);KPAP1;Go van KPAP1 - Do naar KPSELS [ 06/20/2003  3:13 PM ]
 ;
T1 ;SELEKTIE : 
T2 ;: IDENTNUMMER PRODUKTNAAM               :       PPL MNT E KRT% CIF%     CIFPPL : H MARGE    W% :    VORK V% : EU          :   LIJSTPR :
T3 ;:---------------------------------------:--------------------------------------:---------------:------------:-------------:-----------:
T4 ;BLZ:
T5 ;:                                       :                                      :               :            :             :           :
 ;
1 S SGT="",(BLZ,HD,PSUBGR)=0,LN=99 K:"SD"'[$G(KVER) KVER
 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_"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 I HG'=0 S X=$D(@Q1) G 27:X
25 S HG=$N(@Q1) I HG=-1!(HG]HGX) G 160
27 S HD=1,GRS=GR I GR'=0 S X=$D(@Q2) G 31:X
29 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) G 25:HD W:'$D(KVER) # 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 I SGS'=SGT S SGT=SGS,PSUBGR=1
36 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:PSUBGR W !,$P($T(T3),U,2) S LN=LN+1 G 33
100 S PR=+^(PRCS) D ^KPCHKPR G 37:'OK
 D:'$D(Dev) ONELINE^KPAP1($ZN)
 D:$D(Dev) oneline^KPAP1($ZN)
136 G 37
160 I $D(KVER) W !,$P($T(T3),U,2),#
 C:$D(Dev) Dev
 D CLOSE^vhPRINTER
YZ Q
 ;
HD
 Q:$D(Dev)
 S BLZ=BLZ+1,(LN,HD)=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 HG=-1!(HG]HGX) G HDZ
HDB I BLZ>1!($N(B(100))=-1) D
 .I '$D(KVER) W $E(HG,EXH,99) W:GR=GRX "- ",$E(GR,EXG,99) W:SG=SGX "- ",$E(SG,EXS,99) W !!
 .W $P($T(T3),U,2),!,$P($T(T2),U,2),!,$P($T(T3),U,2)
HDZ Q
 ;
PSUBGR(KSS) 
 S PSUBGR=0
PSG S LN=LN+1 I LN+1>LNMAX W !,$P($T(T3),U,2) W # D HD G PSG
 W !,$P($T(T5),U,2),$C(13),?2,@FMTB,$$DISPLS^KLASS(KSS),@FMTb
 Q
 ;