KPLKPUTZ2 G 1 ;PRIJSVERGELIJK PER KLANT ;KPLK2; Go van KPLK1 - Do naar KPLK3 [ 04/03/2001  2:00 PM ]
 ;
S0 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S0C:$L(J)
S0A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S0B G S0Z
S0C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S0D E  S OK="S OK=X"_J_"Y" X OK
S0Z Q
 ;
1 ;    het drukken van de info
 New KPLKPrint,KLPUTZPrint,KlKLPUTZ,Output,zb
 Set Output=$G(^HULP($J,"SPV"),"PV;HU;SU")
 If Output["PM",'$$ASK^vhWACHTW("MANAGER","","",0) Do
 . Set Output=$P(Output,"PM")_$P(Output,"PM",2)
 . Set:$E(Output)=";" $E(Output)=""
 . Set:$E(Output,$L(Output))=";" $E(Output,$L(Output))=""
 . Set:Output[";;" Output=$P(Output,";;")_";"_$P(Output,";;",2)
 . Set:Output="" Output="PV;HU;SU"
 Set Output=$$PI^vhPOPUP("C;C","-1MOB","","KPLK","OUTPUT",Output) G YZ:zb="CANC",YZ:Output=""
 Set ^HULP($J,"SPV")=Output,PWD=Output["PM"
 If PWD Set PWD=29,VPL=0
 Else  Set PWD=""
3 D INIT^vhPRINTER(132) G YZ:'$D(Print)
 Merge KPLKPrint=Print
 Set:$D(Print("LEN")) Print("LEN")=Print("LEN")-1
 Set:$D(Print("MAXLIJN")) Print("MAXLIJN")=Print("MAXLIJN")-1
 Merge KLPUTZPrint=Print
 K @("^"_Q_"HULP($J)")
300 S BLZ=0,I=100 G 4:$N(B(I))=-1 D HD^KPLK3,^KSELO
4 I KL'=0 S X=$D(@Q0) G 6:X
5 S KL=$N(@Q0) G 67:KL=-1 I KL'?.N G 67:KL]KLX
6 S K=KL S:K?.N K=^(K) S KlKLPUTZ=K,KC=$P(K," ",2),PR=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 5:BP=-1!(BP]LBP)
7 S A(0)=@Q1 F I=1:1:SW3-1 S A(I)=^(I)
8 S I=100
9 S I=$N(B(I)) G 11:I=-1 S X=$P(A(I\100-1),D,I#100) D S0 G 5:'OK,9
11
 Kill Print
 Merge Print=KPLKPrint
 D:Output["PV" ^KPLK6
 D:Output["PM" ^KPLK6
 Kill KPLKPrint
 Merge KPLKPrint=Print
 Kill Print
 Merge Print=KLPUTZPrint
 D:Output["HU" PRINT^KLPUTZ3(KlKLPUTZ,KlKLPUTZ,"N")
 Kill Print
 Merge Print=KLPUTZPrint
 D:Output["SU" PRINT^KLPUTZ3(KlKLPUTZ,KlKLPUTZ,"S")
 G 5
67 W # D CLOSE^vhPRINTER
 ;
YZ K @("^"_Q_"SEL($J)")
 Q
 ;
CBSEL(sSelect,sOld,sNew,sRec)
 New Ok,D
 Set Ok=1,D="\"
 If sSelect=1,$D(sX(2)) Set sX(1)=sX(2) Kill sX(2)
 Do:sSelect=2
 . If '$$ASK^vhWACHTW("MANAGER","","",0) Set Ok=0 Quit
 . Quit:'$D(sX(1))
 . Set sX(2)=sX(1)
 . Kill sX(1)
 Quit Ok
 ;