;#include Prod.Product
 ;
 ;
 ;	/!\    DEPRECATED
 ;
 ;
ECPRIJSL ;e-Commerce [ 11/13/2002  10:51 AM ]
 ;
 ; Prijzen opvragen via korttekst
KORT(UserId,KLNr,ScrnId,KortT) 
 New D,U,Q,R,PrevKortT,LenKortT,PRNr,MaxCount,IsKsCust,IsHandel,KlMunt,Mask,PrInfo,VhKlRef
 Do ##class(vhLib.Logger).%New("ECPRIJSL.mac").WarningMail("Verouderde routine","ECPRIJSL werd net aangeroepen, in de routine staat aangegeven dat deze deprecated is. Dit moet dus herzien worden!"_$c(13,10,13,10)_##class(TECH.Process).GeefStackTrace()_$c(13,10,13,10)_$$GetJobInfo^vhLib())
 Lock +^EC("C",UserId,KLNr,ScrnId):0 Else  Quit
 Kill ^EC("C",UserId,KLNr,ScrnId)
 Do INIT
 Set VhKlRef=$$VHKLREF^ECFJOB(UserId,KLNr)
 Set ^EC("C",UserId,KLNr,ScrnId)=""
 If $D(^EC("MUS",UserId,ScrnId)),$D(^EC("MKL",KLNr,ScrnId)),$$KLCHECK^ECFJOB(UserId,KLNr) Do
 .Do LOGGING^ECFJOB(UserId,KLNr,ScrnId)
 .Do INITCUST
 .Set MaxCount=200,KortT=$$UPTRIMAN^vhRtn1(KortT),PrevKortT=$E(KortT,1,3)_" "
 .Set:$L(PrevKortT)>1 PrevKortT=$O(^KPR1(PrevKortT),-1)
 .Set LenKortT=$L(KortT)
 .Set:LenKortT>3 LenKortT=3
 .For  Set PrevKortT=$O(^KPR1(PrevKortT)) Quit:PrevKortT=""!($E(PrevKortT,1,LenKortT)'=$E(KortT,1,LenKortT))  Do  Quit:$$COUNT^ECFJOB(UserId,KLNr,ScrnId)'<MaxCount
 ..Quit:$E($E(PrevKortT,1,3)_$E(PrevKortT,5,25),1,$L(KortT))'=KortT
 ..Set PRNr=+^KPR1(PrevKortT)
 ..Do VERWERK(UserId,KLNr,ScrnId,PRNr,VhKlRef,IsKsCust,IsHandel)
 .; Een tweede maal zoeken voor orgalux
 .Set MaxCount=200,KortT="OL"_KortT,PrevKortT=$E(KortT,1,3)_" "
 .Set:$L(PrevKortT)>1 PrevKortT=$O(^KPR1(PrevKortT),-1)
 .Set LenKortT=$L(KortT)
 .Set:LenKortT>3 LenKortT=3
 .For  Set PrevKortT=$O(^KPR1(PrevKortT)) Quit:PrevKortT=""!($E(PrevKortT,1,LenKortT)'=$E(KortT,1,LenKortT))  Do  Quit:$$COUNT^ECFJOB(UserId,KLNr,ScrnId)'<MaxCount
 ..Quit:$E($E(PrevKortT,1,3)_$E(PrevKortT,5,25),1,$L(KortT))'=KortT
 ..Set PRNr=+^KPR1(PrevKortT)
 ..Do VERWERK(UserId,KLNr,ScrnId,PRNr,VhKlRef,IsKsCust,IsHandel)
 Do CHKEMPTY^ECFJOB(UserId,KLNr,ScrnId,PrInfo) 
 Lock -^EC("C",UserId,KLNr,ScrnId)
 Quit
 
KORTold(UserId,KLNr,ScrnId,KortT) 
 New D,U,Q,R,PrevKortT,LenKortT,PRNr,MaxCount,IsKsCust,IsHandel,KlMunt,Mask,PrInfo,VhKlRef
 Lock +^EC("C",UserId,KLNr,ScrnId):0 Else  Quit
 Kill ^EC("C",UserId,KLNr,ScrnId)
 Do INIT
 Set VhKlRef=$$VHKLREF^ECFJOB(UserId,KLNr)
 Set ^EC("C",UserId,KLNr,ScrnId)=""
 If $D(^EC("MUS",UserId,ScrnId)),$D(^EC("MKL",KLNr,ScrnId)),$$KLCHECK^ECFJOB(UserId,KLNr) Do
 .Do LOGGING^ECFJOB(UserId,KLNr,ScrnId)
 .Do INITCUST
 .Set MaxCount=200,KortT=$$UPTRIMAN^vhRtn1(KortT),PrevKortT=$E(KortT,1,3)_" "
 .Set:$L(PrevKortT)>1 PrevKortT=$O(^KPR1(PrevKortT),-1)
 .Set LenKortT=$L(KortT)
 .Set:LenKortT>3 LenKortT=3
 .For  Set PrevKortT=$O(^KPR1(PrevKortT)) Quit:PrevKortT=""!($E(PrevKortT,1,LenKortT)'=$E(KortT,1,LenKortT))  Do  Quit:$$COUNT^ECFJOB(UserId,KLNr,ScrnId)'<MaxCount
 ..Quit:$E($E(PrevKortT,1,3)_$E(PrevKortT,5,25),1,$L(KortT))'=KortT
 ..Set PRNr=+^KPR1(PrevKortT)
 ..Do VERWERK(UserId,KLNr,ScrnId,PRNr,VhKlRef,IsKsCust,IsHandel)
 Do CHKEMPTY^ECFJOB(UserId,KLNr,ScrnId,PrInfo) 
 Lock -^EC("C",UserId,KLNr,ScrnId)
 Quit
 ;
 ; Prijzen opvragen via klassificatie
KLAS(UserId,KLNr,ScrnId,SortKey) 
 New D,U,Q,HoofdGr,Groep,SubGroep,Mask,PrInfo
 Do ##class(vhLib.Logger).%New("ECPRIJSL.mac").WarningMail("Verouderde routine","ECPRIJSL werd net aangeroepen, in de routine staat aangegeven dat deze deprecated is. Dit moet dus herzien worden!"_$c(13,10,13,10)_##class(TECH.Process).GeefStackTrace()_$c(13,10,13,10)_$$GetJobInfo^vhLib())
 Lock +^EC("C",UserId,KLNr,ScrnId):0 Else  Quit
 Kill ^EC("C",UserId,KLNr,ScrnId)
 Set ^EC("C",UserId,KLNr,ScrnId)=""
 Do INIT
 If $D(^EC("MUS",UserId,ScrnId)),$D(^EC("MKL",KLNr,ScrnId)),$$KLCHECK^ECFJOB(UserId,KLNr) Do
 .Do LOGGING^ECFJOB(UserId,KLNr,ScrnId)
 .Set (HoofdGr,Groep,SubGroep)=""
 .If $L(SortKey) Do
 ..Set SortKey=$$UPCASE^vhRtn1(SortKey)
 ..Quit:$L(SortKey)<4
 ..Set HoofdGr=$E(SortKey,1,4)
 ..Quit:$L(SortKey)<9
 ..Set Groep=$E(SortKey,1,9)
 ..Quit:$L(SortKey)<14
 ..Set SubGroep=$E(SortKey,1,17)
 .Set:$L(HoofdGr) HoofdGr=HoofdGr_" " Set:$L(Groep) Groep=Groep_" " Set:$L(SubGroep,"/")=2 SubGroep=SubGroep_" "
 .If $L(HoofdGr),$L(Groep),'$L(SubGroep) Do GROEP(UserId,KLNr,ScrnId,HoofdGr,Groep)
 .If $L(SubGroep) Do SUBGROEP(UserId,KLNr,ScrnId,HoofdGr,Groep,SubGroep)
 Do CHKEMPTY^ECFJOB(UserId,KLNr,ScrnId,PrInfo) 
 Lock -^EC("C",UserId,KLNr,ScrnId)
 Quit
 ;
GROEP(UserId,KLNr,ScrnId,HoofdGr,Groep) 
 New R,PRNr,CompKort,IsKsCust,IsHandel,KlMunt,SubGroep,VhKlRef
 Set VhKlRef=$$VHKLREF^ECFJOB(UserId,KLNr)
 Do INITCUST
 Set SubGroep=""
 For  Set SubGroep=$O(^KPH(HoofdGr,Groep,SubGroep)) Quit:SubGroep=""  Do
 .Set CompKort=""
 .For  Set CompKort=$O(^KPH(HoofdGr,Groep,SubGroep,"  ",CompKort)) Quit:CompKort=""  Do
 ..Set PRNr=+^KPH(HoofdGr,Groep,SubGroep,"  ",CompKort)
 ..Do VERWERK(UserId,KLNr,ScrnId,PRNr,VhKlRef,IsKsCust,IsHandel)
 Quit
 ;
SUBGROEP(UserId,KLNr,ScrnId,HoofdGr,Groep,SubGroep) 
 New R,PRNr,CompKort,IsKsCust,IsHandel,KlMunt,OneHg,OneGr,OneSg,TempGr,TempSg,VhKlRef
 Set VhKlRef=$$VHKLREF^ECFJOB(UserId,KLNr)
 Set OneHg=$L(HoofdGr),OneGr=$L(Groep),OneSg=$L(SubGroep,"/")=2,TempGr=Groep,TempSg=SubGroep
 Do INITCUST
 Set:OneHg HoofdGr=$O(^KPH(HoofdGr),-1)
 For  Set HoofdGr=$O(^KPH(HoofdGr)) Quit:HoofdGr=""  Do  Quit:OneHg
 .Set Groep="" Set:OneGr Groep=$O(^KPH(HoofdGr,TempGr),-1)
 .For  Set Groep=$O(^KPH(HoofdGr,Groep)) Quit:Groep=""  Do  Quit:OneGr
 ..Set SubGroep="" Set:OneSg SubGroep=$O(^KPH(HoofdGr,Groep,TempSg),-1)
 ..For  Set SubGroep=$O(^KPH(HoofdGr,Groep,SubGroep)) Quit:SubGroep=""  Do  Quit:OneSg
 ...If OneSg,SubGroep'=TempSg Quit
 ...If 'OneSg,$E(SubGroep,12,14)'=$E(TempSg,12,14) Quit
 ...Set CompKort=""
 ...For  Set CompKort=$O(^KPH(HoofdGr,Groep,SubGroep,"  ",CompKort)) Quit:CompKort=""  Do
 ....Set PRNr=+^KPH(HoofdGr,Groep,SubGroep,"  ",CompKort)
 ....Do VERWERK(UserId,KLNr,ScrnId,PRNr,VhKlRef,IsKsCust,IsHandel)
 Quit
 ;
VERWERK(UserId,KLNr,ScrnId,PRNr,VhKlRef,IsKsCust,IsHandel) 
 New R,Rec,Staffel,PrijsKl,Prijs
 If $D(^KPR(PRNr)) Do
 .Set Rec=PRNr
 .Quit:'$$CHECKPR(PRNr,KLNr,IsKsCust,IsHandel)
 .Set Staffel=$$STAFFEL^KS(PRNr)
 .Do:IsKsCust PRIJS^ECFJOB(KLNr,PRNr,.Prijs)
 .;For PrijsKl="E","K","L","S","G" Do
 ..Set R=$$PROD^KPRIJS(PRNr,PrijsKl,"",KlMunt)
 ..Set $P(Rec,D,2)=$$ROUND^ECFJOB($P(R,D,3))
 ..If $D(Prijs(PrijsKl)) Do
 ...Set R=Prijs(PrijsKl)
 ...Set Rec=Rec_D_$$EXTNUM^ECFJOB($P(R,D),"",0)
 ...Set Rec=Rec_D_$$EXTNUM^ECFJOB($P(R,D,2),"",2)
 ..Else  Do
 ...Set Rec=Rec_D_$$EXTNUM^ECFJOB($P(Staffel,D,$F("LKE",PrijsKl)-1),"",0)
 ...Set Rec=Rec_D_$$EXTNUM^ECFJOB($P(R,D),"",2)
 .Set $P(Rec,D,100)="",Rec=$$PRINFO^ECFJOB(Rec,1,KLNr,PrInfo) Set:VhKlRef Rec=$$KLREF^ECFJOB(Rec,1,KLNr)
 .Do SAVE^ECFJOB(UserId,KLNr,ScrnId,Rec,61,62)
 Quit
 ;
 ; Controle of een product mag getoond worden
CHECKPR(PRNr,KLNr,IsKsCust,IsHandel) 
 New R,IDNr,Ok,HoofdGr,Groep,SubGroep,CompKort,GenProd,IsKind,KortT
 Set R=^KPR(PRNr,0),GenProd=$P(R,D,3),IsKind=($P(R,D,23)="K")||($E($P(R,D,23))="H")
 Set R=^KPR(PRNr,2),IDNr=$P(R,D,25)
 If '$$CHECKKLAS(PRNr) Quit 0
 If $E(IDNr)=6 Set Ok=0
 Else  If IsKind Set Ok=0
 Else  If $L(GenProd) Set Ok=0
 Else  If IsKsCust!IsHandel Do
 .Set R=^KPR(PRNr,3),Ok=$P(R,D,3)
 .Set:Ok Ok=$$ISPROD^KS(PRNr)
 Else  Do
 .Set Ok=$E(IDNr)'=7
 .Quit:'Ok
 .Set KortT=$P(^KPR(PRNr,0),D,1)
 .;Set Ok=$E(KortT,1,3)'="I25"
 .;Quit:'Ok
 .If ($E(IDNr)=8)||(KortT?1.E1"*"4N1"*".E) Do  Quit
 ..Set HoofdGr=$$SORTKEY^PRODUKT(PRNr,1),Groep=$$SORTKEY^PRODUKT(PRNr,2)
 ..Set SubGroep=$$SORTKEY^PRODUKT(PRNr,3),CompKort=$$COMPR^PRODUKT(PRNr)
 ..Set Ok=$D(^KKAAP(KLNr,HoofdGr,Groep,SubGroep,CompKort))
 .If $E(IDNr)'=0,$E(IDNr)'=9,'$D(^KSTKL(KLNr,PRNr)) Set Ok=0
 Quit Ok
 
CHECKKLAS(PRNr)
 New RecI,KlasKey,RecKlas
 Set RecI=$O(^KPR(PRNr,"I"))
 Quit:$E(RecI)'="I" 0
 Set KlasKey=$P(^KPR(PRNr,RecI),D,4) ; klaskey van de subgroep
 Set RecKlas=$G(^KLAS("K",KlasKey))
 Quit:'$P(RecKlas,D,12) 0 ; Subgroep niet tonen
 Set KlasKey=$P(RecKlas,D,9) ; klaskey van groep
 Set RecKlas=$G(^KLAS("K",KlasKey))
 Quit:'$P(RecKlas,D,12) 0 ; Groep niet tonen
 Set KlasKey=$P(RecKlas,D,8) ; klaskey van hoofdgroep
 Set RecKlas=$G(^KLAS("K",KlasKey))
 Quit:'$P(RecKlas,D,12) 0 ; HoofdGroep niet tonen
 Quit 1 	
 ;
INIT 
 Set D="\",U=";",Q="K"
 Set Mask=$G(^EC("PAR","MASK"))
 Set PrInfo=51
 Quit
 ;
INITCUST 
 New KlantID
 #dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
 Set IsKsCust='(##class(DOM.DomeinContext).Instance().GeefKlantTypeAPI().IsIndustriePoolKlant(KlantID))
 Set KlMunt=$P(^KKL(^KK1(KLNr),0),D,11) Set:KlMunt="" KlMunt=$$FADEF^vhRtn1()
 Set IsHandel=$$IsHandel^KLANT5(KLNr)
 Quit
 ;