PRPUTZ3 ;PRIJSUITZ. PRODUKTEN ;Go naar KPSL2, KPSL3, KPSL4 [ 08/07/2002   3:45 PM ]
 ;
 Set K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K)
 Write @F11,@F1,@F,@F5
 Set FP=202
 Write @F,@F4,K,@F5
 Set DOC=$P($T(+1),";",2),LSTX="K",SELK=1
 Do PP^KPSEL
 Quit:K="-"
 Kill DOC,LSTX,SELK
 ;Goto @("^KPSL"_$F("PKLBU",LST))
 Goto 1
 ;
T1 ;SELEKTIE : 
T2 ;: PRODUKT                   :             : KLANT                     : BLUMKLANT                 :
T3 ;:---------------------------:-------------:---------------------------:---------------------------:
T4 ;BLZ:
 ;
1 S SGT="",(BLZ,SWP,SWS)=0,%J=$$%J^vhRtn1()
 D INIT^vhPRINTER(132) G YZ:'$D(Print)
 S LNMAX=Print("LEN")-10-Print("BOT")-Print("TOP")
 S I=100 G 19:$N(B(I))=-1 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)"
22 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 170
27 D HD S GRS=GR I GR'=0 S X=$D(@Q2) G 31:X
29 S GRS=$N(@Q2) I GRS=-1!(GRS]GRX) W # 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
 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:'SWP!SWS W !,$P($T(T3),U,2) S SWP=0,SWS=1,LN=LN+1 G 33
100 S PR=+^(PRCS) G 37:'$D(^PRPUTZ("N",PR)) D ^KPCHKPR G 37:'OK
 G 37:$P(A(1),D,25)
 D SORTCUST(PR) G 37:'$D(^HULP(%J)) D LISTPR(PR)
150 S SWP=1,SWS=0 G 37
170 W # X F71
 K ^HULP(%J)
YZ Q
 ;
LISTPR(PRNr) 
 New R,KortTxt,IdentNr,Klant,KlantNm,BLKLNr,BLKLNm,BLKLStr
 Set R=^KPR(PRNr,0),KortTxt=$P(R,D),R=^KPR(PRNr,2),IdentNr=$P(R,D,25),Klant=""
 For  Set Klant=$O(^HULP(%J,Klant)) Quit:Klant=""  Do
 .Set KlantNm=$S(Klant=" ":"ALLEN",1:$P(^KKL(Klant,0),D,2)),BLKLNr=^HULP(%J,Klant)
 .Set R=^BLBeri("K",BLKLNr),BLKLNm=$P(R,D),BLKLStr=$P(R,D,2)
 .Set LN=LN+1 If LN'<LNMAX Write:'SWS !,$P($T(T3),U,2),# Do HD Set LN=LN+1
 .Write !,": ",KortTxt,?28,": ",IdentNr,?42,": ",KlantNm,?70,": ",BLKLNm,?98,":"
 .Set (KortTxt,IdentNr)=""
 Quit
 ;
SORTCUST(PRNr) 
 New KLNr,BLKLNr
 Kill ^HULP(%J)
 Set KLNr=""
 For  Set KLNr=$O(^PRPUTZ("N",PRNr,KLNr)) Quit:KLNr=""  Do
 .Set BLKLNr=^PRPUTZ("N",PRNr,KLNr,0)
 .If 'KLNr Set ^HULP(%J," ")=BLKLNr
 .Else  Set ^HULP(%J,^KK1(KLNr))=BLKLNr
 Quit
 ;
HD S BLZ=BLZ+1,LN=0,SWS=1 W !,QN,?91,$P($T(T4),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,$C(13),?91,DT,!,NM3
HDA W ?30,$P($T(T1),U,2),X1,"   ",X2,?92,TD,!! I HG=-1!(HG]HGX) G HDZ
HDB I BLZ>1!($N(B(100))=-1) W $E(HG,EXH,99) W:GR=GRX "- ",$E(GR,EXG,99) W:SG=SGX "- ",$E(SG,EXS,99) W !!,$P($T(T3),U,2),!,$P($T(T2),U,2),!,$P($T(T3),U,2)
HDZ Q
 ;