KPE7 G 1 ;INDELING PRODUCTEN ; [ 08/05/2002   1:05 PM ]
 ;
T1 ;VANAF :
T2 ;TOT   :
T3 ;BLZ:
T4 ;/NL.
T5 ;VANAF HET BEGIN
T6 ;TOT HET EINDE
 ;
S1 W !,":" I $L($P(GR,D,2)) W $E(@INF,1,$P(GR,D,3)+2),":"
 I $L($P(SG,D,2)) W $E(@INF,1,$P(SG,D,3)+2) W:MetWinst $E(@INF,1,16) W ":"
S1A F I=1,2 S K="",$P(K,$E(@INF,1),47)=$E(@INF,1)_":" W K
S1Z Q
 ;
S2 S @("L"_I)="" I $L(@$E(I,1)),$D(@("^"_Q_"P"_I_"1(@$E(I,1))")) S @("L"_I)=$P(^(@$E(I,1)),D,1)
S2Z Q
 ;
 ; Select
SELECT 
 New FKey,LKey,Niv
 Set FP=803 Write @F,$P($T(T1),U,2),@F2,!!?2,$P($T(T2),U,2),@F2
 Set K=$$SELECT^KLASS(-3,1,"","","Vanaf klassificatie") Quit:K="-"
 If K="." Set FKey=$P(^KPHG1($O(^KPHG1(""))),D,6),Niv=1
 Else  Set FKey=+K,Niv=$P(K,D,2)
 Set FP=811 Write @F,$S(K=".":$P($T(T5),U,2),1:$$DISPL^KLASS(FKey))
11 Set K=$$SELECT^KLASS(Niv,1,FKey,Niv-1,"Tot klassificatie") Goto 1:K="-"
 Set LKey=+K
 I K'="." Goto 11:$$GETSORT^KLASS(FKey)]$$GETSORT^KLASS(LKey)
 Set FP=1011 Write @F,$S(K=".":$P($T(T6),U,2),1:$$DISPL^KLASS(LKey))
 Set (H,G,S,M,PRC)=0,(HH,GG,SS,MM,PRCX)="ZZZZZ",(MK,MKX)="  "
 Set:FKey H=$$GETSORT^KLASS(FKey,1) Set:LKey HH=$$GETSORT^KLASS(LKey,1)
 If Niv>1 Set:FKey G=$$GETSORT^KLASS(FKey,2) Set:LKey GG=$$GETSORT^KLASS(LKey,2)
 If Niv>2 Set:FKey S=$$GETSORT^KLASS(FKey,3) Set:LKey SS=$$GETSORT^KLASS(LKey,3)
 Quit
 ;
BLDHULP 
 New I,KKey,HoofdGr,Groep,SubGroep
 Set I=""
 For  Set I=$O(^KPSG(I)) Quit:I=""  Do
 .Set KKey=$$GETKEY^KLASS(I)
 .Set HoofdGr=$$GETSORT^KLASS(KKey,1),Groep=$$GETSORT^KLASS(KKey,2),SubGroep=$$GETSORT^KLASS(KKey,3)
 .Set ^HULP(%J,HoofdGr,Groep,SubGroep,"  ")=""
 Quit
 ;
SKIP(Aktief,Niveau,HoofdGr,Groep,SubGroep) 
 New R
 Set R=$S(Aktief="A":"'",1:""),R=R_"$D(^KPH(HoofdGr" Set:Niveau>1 R=R_","_"Groep"
 Set:Niveau>2 R=R_","_"SubGroep" Set R=R_"))"
 Quit @R
 ;
1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3)
 S %J=$$%J^vhRtn1() K ^HULP(%J) D BLDHULP
BR B 1
20 S BLA=$J("",30),LIN="------------------------------"
30 S BLZ=0,LN=999,FP=223+$L(NM1) W @F11,@F1,@F,@F5 S FP=202 W @F,@F4,$P($T(+1),U,2),NM1," ",@F5
40 S Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" "
50 S Y=$N(^(Y)) G 60:Y=-1 S @Y=^(Y) G 50
60 D SELECT G YZ:K="-" F I="HG","GR","SG" S @("EX"_$E(I,1))=$P(@I,D,5)
 S Niveau=$S(S'=0:3,G'=0:2,1:1)
 S Aktief=$$ASKL^vhINP("INDELPROD","AKTIEF") I $L(Aktief),"-."[Aktief G 60
 S FP=1503 W @F,@F1,$S(Aktief="A":"Aktieve ",Aktief="P":"Passieve ",1:"Alle "),$P("hoofd\\sub",D,Niveau),"groepen"
65 S MetWinst=$$ASK^vhWACHTW("MANAGER","","",0) I MetWinst S FP=280 W @F,"+"
70 D INIT^vhPRINTER(132) G YZ:'$D(Print)
 S LNMAX=Print("LEN")-10-Print("BOT")-Print("TOP") I $P(Print("PRINTER"),U,2)="CA",'Print("BOT") S LNMAX=LNMAX-2
75 I $L(H),H'=0 S HX=$E(H,EXH,99) S I="HG" D S2 G 85
80 S H=$N(^HULP(%J,H)),HX=$E(H,EXH,99) G 160:H=-1!($L(HH)&(H]HH)) S I="HG" D S2 G 90
85 I $L(G),G'=0 S GX=$E(G,EXG,99) S I="GR" D S2 G 95
90 S G=$N(^HULP(%J,H,G)),GX=$E(G,EXG,99) I G=-1!($L(GG)&(G]GG)) S LN=999 G 80
92 S I="GR" D S2 G 100
95 I $L(S),S'=0 S SX=$E(S,EXS,99) S I="SG" D S2 G 105
100 S S=$N(^HULP(%J,H,G,S)),SX=$E(S,EXS,99) G 90:S=-1!($L(SS)&(S]SS)) S I="SG" D S2 G 116
105 I $L(M) S MX=M G 125
116 S M=""
120 S M=$N(^HULP(%J,H,G,S,M)) G 125:M'=-1
 I $L(Aktief) G 100:$$SKIP(Aktief,Niveau,H,G,S)
 G 100:$N(^HULP(%J,H,G,S))'=-1 S INF="BLA",LN=LN+1 D S1 G 100
125 S MX=M I $L(Aktief) G 150:$$SKIP(Aktief,Niveau,H,G,S)
 S LN=LN+1 I LN>LNMAX S INF="LIN" D:BLZ S1 W:BLZ # D H1
130 W !,": " I $L($P(GR,D,2)) W GX,$J("",$P(GR,D,3)-$L(GX)+1),": "
140 I $L($P(SG,D,2)) W SX,$J("",$P(SG,D,3)-$L(SX)+1) D  W ":"
 .Q:'MetWinst
 .S KKey=$$GETKEY^KLASS(S),(%Winst,KlRabat)="" S:KKey %Winst=$P(^KLAS("K",KKey),D,11),KlRabat=$P(^KLAS("K",KKey),D,12)
 .I %Winst="" W $J("",8)
 .E  W "(",$J($$EXTNUM^vhLib.DataTypes(%Winst,5,"%",2),5),") "
 .I KlRabat="" W $J("",8)
 .E  W "(",$J($$EXTNUM^vhLib.DataTypes(KlRabat,5,"%",2),5),") "
 F I="GR","SG" W " ",@("L"_I),$J("",45-$L(@("L"_I)))," :"
150 S (GX,SX,LGR,LSG)="" G 120
160 I LN S INF="LIN" D S1 W #
 D CLOSE^vhPRINTER G 30
 ;
YZ B 0 K ^HULP(%J) Q
 ;
H1 S BLZ=BLZ+1,LN=0 W !,NM1,?125,$P($T(T3),U,2),$J(BLZ,4),!,NM2,?44,@F82,$P($T(+1),U,2),@F83,$C(13),?125,DT
H1A W !,NM3,?126,TD,!!
H1B F I=1:1:3 W HX," : ",LHG,$C(13)
H1C W ! S INF="LIN" D S1 W !,": " I $L($P(GR,D,2)) W $P(GR,D,2),$J("",$P(GR,D,3)-$L($P(GR,D,2)))," : "
H1D I $L($P(SG,D,2)) W $P(SG,D,2),$J("",$P(SG,D,3)-$L($P(SG,D,2))) W:MetWinst "      W%     KLR" W " :"
H1E F I="GR","SG" I $L($P(@I,D,2)) W " ",$P(@I,D,2),$P($T(T4),U,2),$J("",42-$L($P(@I,D,2))),":"
H1F S INF="LIN" D S1
H1Z Q
 ;