KCTRU ;KONTROLE UITZONDERINGEN PRIJSKLASSE ;KCTRU; [ 08/05/2002  10:33 AM ]
 G 1
 ;
T1 ;KLANT\klant
T3 ;: NUM. : NAAM VAN DE KLANT           :
T4 ;:------:-----------------------------:-----------------:-----------------:-----------------:---------------------------:
T5 ;BLZ:
T6 ;FOUTEN UITZONDERINGEN PRIJSKLASSE
 ;
S1 S LN=LN+1 I LN>50 W !,$P($T(T4),U,2),# D HD G S1
S1A W !,":" W:$L(KN) $J(KC,5) W ?7,": " W:$L(KN) KN W ?37,": " S K=55
S1B F I="HG","GR","SG" W $E(@(I_"X"),$P(@("P"_I),D,5),99),?K,": " S K=K+18
S1C W PCX,?119,":" S (KN,PCX)=""
S1Z Q
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
BREAK B 1
13 S Q1="KL",Q2="K1",Q3=$P($T(T1),U,2),FP=301 W @F,@F1 D ^KSELH G YZ:K="-"
15 D INIT^vhPRINTER(132) G 13:'$D(Print)
 ;
2 S Q0="^"_Q_"KL(KL)",Q1="^"_Q_"KL(KL,0)",Q2="^KLPUTZ(""N"",KC)",Q3="^KLPUTZ(""N"",KC,HG)",Q4="^KLPUTZ(""N"",KC,HG,GR)"
21 S Q5="^KLPUTZ(""N"",KC,HG,GR,SG)",Q6="^KLPUTZ(""N"",KC,HG,GR,SG,PR)"
23 S R=@("^"_Q_"PR(0,0)"),R=100,PPC=D
25 S R=$N(^(R)) I R'=-1,R<1000 S K=^(R) G 25:$P(K,U,16)'=101 S PPC=$P(K,U,9)_D_$P(K,U,1)
27 F I="HG","GR","SG" S @("P"_I)=^(I)
 ;
3 S BLZ=0
31 D HD I KL'=0 S X=$D(@Q0) G 4:X
33 S KL=$N(@Q0) I KL=-1!(KL]KLX) G Y
 ;
4 S KC=$P(KL," ",2) G 33:'$D(@Q2) S KN=$P(@Q1,D,2),HG=0
41 S HG=$N(@Q3) G 33:HG=-1 S GR=0,HGX=HG_" " I '$D(@("^"_Q_"PH(HGX)")) S PCX="" D S1 G 41
43 S GR=$N(@Q4) G 41:GR=-1 S SG=0,HGX=HG_" ",GRX=GR_" " I '$D(@("^"_Q_"PH(HGX,GRX)")) S PCX="" D S1 G 43
45 S SG=$N(@Q5) G 43:SG=-1 S PR=0,HGX=HG_" ",GRX=GR_" ",SGX=SG_" " I '$D(@("^"_Q_"PH(HGX,GRX,SGX)")) S PCX="" D S1 G 45
47 S PR=$N(@Q6) G 45:PR=-1 I '$D(@("^"_Q_"PR(PR)")) S PCX="" D S1 G 47
 ;
5 S R=$N(^(PR,"I")),K="" S:$E(R,1)="I" K=^(R) I HG=$P(K,D,1),GR=$P(K,D,2),SG=$P(K,D,3) G 47
51 S PCX=$P(^(0),D,1) D S1 G 47
 ;
Y W !,$P($T(T4),U,2),# D CLOSE^vhPRINTER
YZ Q
 ;
HD S BLZ=BLZ+1,LN=0 W !,QN,?112,$P($T(T5),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(T6),U,2),@F83,$C(13),?112,DT,!,NM3,?113,TD,!!
HDA W $P($T(T4),U,2),!,$P($T(T3),U,2) F I="HG","GR","SG","PC" W " ",$P(@("P"_I),D,2),$J("",@("P"_I)+1-$L($P(@("P"_I),D,2))),":"
HDB W !,$P($T(T4),U,2)
HDZ Q
 ;