KPRLPK2 G 1 ;DRUKKEN PRIJSLIJST PER ARTIKELSELEKTIE ;KPRLPK2; Go van KPRLPK1 - Do naar KPRLPK3 [ 11/29/2003   1:16 PM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
1 S V=2,HDT=1
2 S R=51 D ^KFOLE
3 K @("^"_Q_"HULP($J)") I KL'=0 S X=$D(@Q0) G 7:X
5 S KL=$N(@Q0) I (KL=-1)!(KL]KLX) G 67
7 S KC=$P(KL," ",2),PR=0,TL=$F("NFDE",KT)-1 S:KV="" KV=$$FADEF^vhRtn1() S UITZ=$D(^KLPUTZ("S",KC)) S:UITZ UITZ=1
9 I 'SW37,TL'=HDT D ^KBA99
13 S PR=$N(@Q3) G 46:PR=-1 S BP=0,X=@Q4 G 13:$P(X,D,8) I '$D(@Q5) K @Q3 G 13
15 S X=@Q5,PC=$P(X,D,1) D SC
16 S X=@("^"_Q_"PR(PR,0)"),X=^($P("0\1\2\2",D,TL)),PN=$P(X,D,$P("2\22\2\1",D,TL)),X=^($P("0\3\3\3",D,TL)),PN2=$P(X,D,$P("11\21\23\22",D,TL))
17 S X=$N(^("I")) S:$E(X,1)'="I" X=" \ \ " S:$E(X,1)="I" X=$P(^(X),D,1,3) S PHG=$P(X,D,1),PGR=$P(X,D,2),PSG=$P(X,D,3)
29 S PCOL="",X=$E("    ",1,4-$L($E(PC,22,25)))_$E(PC,22,25)_" "
 I $D(@("^"_Q_"COL(X)")) S PCOL=^(X,KT)
30 S X=@("^"_Q_"PR(PR,2)"),PID=$P(X,D,25)
31 S X=$N(^("J")) S:$E(X,1)'="J" X="" S:$E(X,1)="J" X=^(X) S PNV=$P(X,D,14),PGV=$P(X,D,16) S:'PNV PNV=$P(X,D,15) S:'PNV PNV=$P(X,D,16) S:'PGV PGV=$P(X,D,15) S:'PGV PGV=$P(X,D,14) S GVP=$P(X,D,15) I 'GVP S GVP=$P(X,D,16)
42 S @("^"_Q_"HULP($J,PHG,PGR,PSG,PCC)")=PID_D_PC_D_PN_D_PN2_D_PCOL_D_PLP_D_UEP_D_PK1_D_PK2_D_PNV_D_PGV_D_UMC_D_AFA_D_GVP_D G 13
46 G 5:'$D(@("^"_Q_"HULP($J)"))
47 D ^KPRLPK3 G 5
67 D CLOSE^vhPRINTER
69 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE
 ;
YZ Q
 ;