#include vhLib.Macro
 
HADWIZ ;Halux deuren wizard [ 11/28/2003  9:45 AM ]
 Do INIT^vhTERMINA
 w $$CREATE^HADWIZ(3711,1) 
 Quit
CREATE(KLNr,PRNr,Aantal,Munt,ObjTyp,Data,DocumentType) 
 ;ObjTyp: OFF;ORD;TOE
 New X,Y,Form,Qty,HalID,OrderID,KlantID,LegacyHADWIZ
 Set:'$G(KLNr) KLNr=3479
 Set:'$L($G(Munt)) Munt="EUR"
 Set:'$L($G(ObjTyp)) ObjTyp="ORD"
 Set:'$G(Aantal) Aantal=1
 Set HalID=$S($G(PRNr):$P($G(^KPR(PRNr,"G")),D,13),1:"")
 Do STORE^vhTERMINA()
 Set FP=2001 Write @F,@F1
 Set X=""
 Set Y = 0
 Do ##class(BL.Legacy.HADWIZ).MaakPopup(KLNr,.Y,.X)
 Set X=$$WILD^vhPOPUP("C;C","AB1OK-","Ingave formulier",.Y,X)
 If zb="CANC" Quit ""
 If X="D" Do  Quit:HalID="" ""  ;Dupliceer
 .Set PRNr=$$SELECT^PRODUKT6()
 .Set HalID=""
 .Quit:PRNr'?4.7N
 .Set HalID=$P($G(^KPR(PRNr,"G")),D,13)
 
 New IsCancelled,CanQuitECPWaitingLoop
 Set IsCancelled=0
 Set LegacyHADWIZ = ##class(BL.Legacy.HADWIZ).%New()
 #dim OrderID As %String = UR
 #dim KlantID As DOM.VKP.VanHoeckeKlantID = KLNr
 If X="A" {
	 Do LegacyHADWIZ.ProductenViaConfigurator(OrderID,KlantID,DocumentType)
 }Else{	 
	 Do LegacyHADWIZ.StartWizard()
	 Set PRNr = LegacyHADWIZ.AfhandelingWizardEnGeefProductID() 
	 
	 Quit:(IsCancelled)||(PRNr="") ""
	 
	 #dim Aantal As %Integer = $G(Qty)
	 Set:(Aantal = 0) Aantal = 1
	 
	 Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("HADWIZ","PubSub.WachtendeEventVerwerker VerwerkAlle() ... ")
	 Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("CacheCrash","PubSub.WachtendeEventVerwerker VerwerkAlle() ... ")
	 Do ##class(TECH.PubSub.WachtendeEventVerwerker).VerwerkAlleHadwiz()
	 Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("CacheCrash","LegacyHADWIZ.HerberekenProduct("_PRNr_") ... ")
	 Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("HADWIZ","LegacyHADWIZ.HerberekenProduct("_PRNr_") ... ")
	 Do LegacyHADWIZ.HerberekenProduct(PRNr)
	 Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("CacheCrash","LegacyHADWIZ.VoegToeProductAanBuffer("_PRNr_","_Aantal_")")
	 Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("HADWIZ","LegacyHADWIZ.VoegToeProductAanBuffer("_PRNr_","_Aantal_")")
 	 Do LegacyHADWIZ.VoegToeProductAanBuffer(PRNr,Aantal)	 	 
 	 Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("CacheCrash","CREATE finished.")
	 Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("HADWIZ","CREATE finished.")
 }
 Do REFRESH^vhTERMINA()	
 Do ##class(TECH.ListUtils).ListToMultiDimensional(LegacyHADWIZ.GeefProductLijnen(),.Data)
 
 Quit
 
GetIP()
	New IONaam,CNaam,IP
 	Set IONaam=$I
    Quit:$E(IONaam,1,5)'="|TNT|"
    Set CNaam=$P($E(IONaam,6,99),":",1)
    If CNaam?1.3N1"."1.3N1"."1.3N1"."1.3N Do  ; eerst kijken of het IPAdres niet vervat zit in de device $I
  	. Set IP=CNaam
  	Else  Do  ; opzoeken van het IPAdress in de cQSYS tabel
    . Set IP=""         ; niet opzoeken in cQSYS, altijd via GetIP() 
    . If IP'?1.3N1"."1.3N1"."1.3N1"."1.3N Set IP=$$GetIP^BLDSYSLOG(CNaam,1) ; vertaling aanvragen van de Computernaam naar IPAdres
  	Quit IP
NewIPCom(Groep,Actie) 
 New Key
 Lock +^IPCom("N")
 Set Key=$G(^IPCom("N"))+1
 Set ^IPCom("N")=Key
 Lock -^IPCom("N")
 Kill ^IPCom("D",Key)
 Set IP = ##class(TECH.Process).GeefClientIP()
 ;Set IP=$$GetIP()
 ;Set:(IP="127.0.0.1") IP=$$GetIP^BLDSYSLOG($$$Server,1)   ; Patch voor lokale terminal op CacheServer  ; Added by WimV on 18/05/2011 
 Quit:IP'?1.3N1"."1.3N1"."1.3N1"."1.3N ""
 Set ^IPCom("IP",IP)=Key
 Do ##class(vhLib.Logger).%New("TBX_CREATE").Info("IPComNewKey","IPCom entry added : "_$Name(^IPCom("IP",IP))_" = "_Key)
 Kill ^IPCom("D",Key)
 Set ^IPCom("D",Key)=Groep_"`"_Actie_"`"_$H_"`"_IP
 Quit Key
NewIPCom2(Groep,Actie) 
 New Key,IP
 Set IP = ##class(TECH.Process).GeefClientIP()
 ;Set IP=$$GetClientIP^vhLib()
 Set Key = ##class(BL.Legacy.IPComService).GeefNieuweIpComKey(Groep,Actie,IP)
 Quit Key
 
DISPLAY(PRNr,Aantal,Munt) 
 New HalID,Groep,GenTyp,ProductTypeAPI
 New IsKaderdeurProduct,KaderdeurViaBullzipPdf,GenereerDetailBladAlsPdf
 Set:'$G(Aantal) Aantal=1
 Set:'$L($G(Munt)) Munt="EUR"
 Do STORE^vhTERMINA()
 
 #dim Groep,HalID As %String
 #dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 #dim IsKaderdeurProduct As %Boolean = ProductTypeAPI.IsKaderdeurProduct(PRNr)
 Set KaderdeurViaBullzipPdf = (IsKaderdeurProduct) && (##class(BL.Legacy.HADWIZ).IsInetpubFolderBeschikbaar())
 
 Set GenereerDetailBladAlsPdf = (KaderdeurViaBullzipPdf) || (ProductTypeAPI.IsLegraboxProduct(PRNr)) || (ProductTypeAPI.IsTAORboxProduct(PRNr) ) || (ProductTypeAPI.IsMerivoboxProduct(PRNr) )
 If GenereerDetailBladAlsPdf {
	 #dim BestandLocatie As %String = ##class(BL.Legacy.HADWIZ).%New().GenereerProductDetailBlad(PRNr, IsKaderdeurProduct)
	 Do:(BestandLocatie'="") DisplayDoc(BestandLocatie) 
	 Do REFRESH^vhTERMINA()
	 Quit
 }
 ElseIf (ProductTypeAPI.IsTandemboxProduct(PRNr)) {
	 #dim GADataID As %String =$P(^KPR(PRNr,"G"),"\",13)
	 #dim BlnExists As %Boolean =##class(Prod.GAData.Product).%ExistsId(GADataID)
	 #dim BestandLocatie As %String
	 
	 If (BlnExists) {
		Set BestandLocatie = ##class(APPS.PM.Maatwerk.MaatwerkDoc).%New().GeefProductDisplayURL(PRNr)
		Do:(BestandLocatie'="") DisplayDoc(BestandLocatie,0) 
	 } Else {
		#dim BestandLocatie As %String = ##class(BL.Legacy.HADWIZ).%New().GenereerProductDetailBlad(PRNr, IsKaderdeurProduct)
	 	Do:(BestandLocatie'="") DisplayDoc(BestandLocatie)
	 }
	 
	 Do REFRESH^vhTERMINA()
	 Quit
 }
 Else {
	 Set GenTyp=$$GENTYP^HAD(PRNr)
	 If (GenTyp="") Do DisplayImg(PRNr) Quit
	 Set Groep=$$GenTypeTransform(GenTyp)
	 If (Groep?1(1"GRP",1"ASM")) Do DisplayImg(PRNr) Quit
	 Set HalID=$P($G(^KPR(PRNr,"G")),D,13)
	 If 'HalID Do DisplayImg(PRNr) Quit
	 
	 Set FP=2001 Write @F,@F1
	 Set FP=2104 Write @F,"  HALID :"
	 Set FP=2115 Write @F,HalID
	 Set FP=2144 Write @F,"  Groep :"
	 Set FP=2155 Write @F,Groep
	 Set FP=2204 Write @F,"   Munt :"
	 Set FP=2215 Write @F,Munt
	 Set FP=2244 Write @F,"   PRNr :"
	 Set FP=2255 Write @F,PRNr
	 Set FP=2304 Write @F," Aantal :"
	 Set FP=2315 Write @F,Aantal
	 Set FP=2007 Write @F,"HALUX\PRODUKT\DISPLAY"
	 If $$IO^cQ5()'="1097" Write FP=2007 Write @F,@F2,"HALUX\PRODUKT\DISPLAY"
	 Set FP=2001 Write @F,"VBA:\\"
	 Read K
 }
 Do REFRESH^vhTERMINA()
 Quit
 
DisplayImg(PRNr)
	#define OLGroep "OL"
	Set IsOrgal=$$ISORGAL^ORGALUX(PRNr)
	If IsOrgal Do
	. Set blMulti=##class(BL.Kenm.ProdMulti).Create($$$OLGroep)
	. Set lbMultiIDs=blMulti.GetMultiplesLB(PRNr)
	. Set KenmID=$LG($G(lbMultiIDs))
	. Set:KenmID="" KenmID=PRNr
	
	Quit:'##class(Res.ImageLink).HasImage("PR",PRNr)&&'(IsOrgal&&$L(##class(cspBasis.ProductList).DataDefValueURL("N",$$$OLGroep,KenmID,"InfoSleutel","LB")))
	New R,K,FP,FilePath,ID
	Set FilePath = ##class(BL.Legacy.HADWIZ).%New().GeefProductInfoUrlVhisie4(PRNr,"N")
	Set Url=FilePath
	Do:$L(FilePath)
	. Do STORE^vhTERMINA()
	. ; Oproep Internet Explorer
	. Set Url1=$P(Url,"?")_"?"
	. Set Url2=$P(Url,"?",2,99)
	. Set FP=1801
	. Write @F,@F1
	. Set FP=2007
	. Write @F,"TOOLS\SHELLEXECUTE"
	. Set FP=2101
	. Write @F
	. Write "iexplore.exe"
	. Set FP=2201
	. Write @F
	. Write Url1
	. Set FP=2301
	. Write @F
	. Write Url2
	. Set FP=2001
	. Write @F,"VBA:\\"
	. Read K:1
	. Do REFRESH^vhTERMINA()
	Quit
	
DisplayDoc(FilePath,UseDefaultBrowser="1")
	New R,K,FP,ID
	Set Url=FilePath
	Do:$L(FilePath)
	. Do STORE^vhTERMINA()
	. ; Oproep Internet Explorer
	. Set Url1=$E(Url,1,80)
	. Set Url2=$E(Url,81,999)
	. Set FP=1801
	. Write @F,@F1
	. Set FP=2007
	. Write @F,"TOOLS\SHELLEXECUTE"
	. Set FP=2101
	. Write @F
	. Write "iexplore.exe"
	. Set FP=2201
	. Write @F
	. Write Url1
	. Set FP=2301
	. Write @F
	. Write Url2
	. Set FP=2401
	. Write @F
	. Write UseDefaultBrowser
	. Set FP=2001
	. Write @F,"VBA:\\"
	. Read K:1
	. Do REFRESH^vhTERMINA()
	Quit
 
SYNCPR(PRNr) 
 q
 Do STORE^vhTERMINA()
 Set FP=2007 Write @F,@F2,"SYNC\PRODUKT"
 Set FP=2101 Write @F,@F2,"Product : ",PRNr
 Set FP=2001 Write @F,"VBA:\\"
 Read K:1
 Do REFRESH^vhTERMINA()
 Quit
 
PRINT(ObjTyp,ObjRef,Mode) ; Afdrukken van een orderlijst 
 ;ObjTyp: OFF;ORD;TOE
 ;Mode  : SHOWDLG;PPREVIEW;PRINTSTD;IMMEDIATE
 
 New KLNr,Y,LRec,LNr,Error,TL,TOENr,X,GenList,GenTyp,GenSub,TOENrs
 Set:$G(Mode)="" Mode="PPREVIEW"
 do ##class(vhLib.Logger).%New("HADWIZ").Info("PRINT","Afdrukken van een orderlijst - ObjTyp : "_ObjTyp_" ObjRef : "_ObjRef_" Mode : "_Mode)
 Do STORE^vhTERMINA()
 Set (GenList,Error)=""
 If ObjTyp="ORD" Do  ; Order
 . Set KLNr=$P(^KO1(ObjRef,"F"),D)
 . Set LNr=99
 . For  Set LNr=$O(^KOD(KLNr,"F",ObjRef,LNr)) Quit:LNr=""  Do
 .. Set LRec=^KOD(KLNr,"F",ObjRef,LNr)
 .. Set PRNr=$P(LRec,D,2)
 .. Quit:PRNr'?4.7N
 .. Quit:'$D(^KPR(PRNr,"J6332"))
 .. Set GenTyp=$$GENTYP^HAD(PRNr)
 .. Set GenTyp=$$GenTypeTransform(GenTyp)
 .. Set:GenList'[GenTyp GenList=GenList_";"_GenTyp
 .. Set TOENr=$P(LRec,D,27) 
 .. Set:TOENr="" TOENr="KOM"
 .. Quit:TOENr="KOM"
 .. Set TL(TOENr)=""
 .. Set TOENrs(TOENr)=GenTyp
 . Set $E(GenList,1)=""
 . Set Y=0
 . Set (TOENr,TOENrs)=""
 . For  Set TOENr=$O(TL(TOENr)) Quit:TOENr=""  Do 
 .. Set Y=Y+1,Y(Y)=TOENr_"`HALUX"
 .. Set TOENrs=TOENrs_";"_TOENr
 . Set $E(TOENrs)=""
 . If 'Y Set Error=1 Quit
 . If Y=1 Set TOENr=$P(Y(1),"`") Quit
 . Set X=$$WILD^vhPOPUP("C;C","B1K-M","Toelevering",.Y,TOENrs)
 . Set:zb="CANC" Error=1
 . Set TOENrs=$S(X:X,1:"")
 If ObjTyp="OFF" Do  ; Offerte
 . Set KLNr=$P(^KOFKL1(ObjRef,"F"),D)
 . Set TOENr=""
 . Set LNr=99
 . For  Set LNr=$O(^KOFKL(KLNr,"F",ObjRef,LNr)) Quit:LNr=""  Do
 .. Set LRec=^KOFKL(KLNr,"F",ObjRef,LNr)
 .. Set PRNr=$P(LRec,D,2)
 .. Quit:PRNr'?4.7N
 .. Quit:'$D(^KPR(PRNr,"J6332"))
 .. Set GenTyp=$$GENTYP^HAD(PRNr)
 .. Set GenTyp=$$GenTypeTransform(GenTyp)
 .. Set:GenList'[GenTyp GenList=GenList_";"_GenTyp
 . Set $E(GenList,1)=""
 If ObjTyp="TOE" Do  ; Toelevering
 . Set LEVNr=$P(^KTO1(ObjRef),D)
 . Set KLNr=$P(^KTO(LEVNr,ObjRef,1),D,8)
 . Set:KLNr="" KLNr=1239
 . Set TOENr=ObjRef
 . Set LNr=99
 . For  Set LNr=$O(^KTO(6332,ObjRef,LNr)) Quit:LNr=""  Do
 .. Set LRec=^KTO(6332,ObjRef,LNr)
 .. Set PRNr=$P(LRec,D,2)
 .. Quit:PRNr'?4.7N
 .. Quit:'$D(^KPR(PRNr,"J6332"))
 .. Set GenTyp=$$GENTYP^HAD(PRNr)
 .. Set GenTyp=$$GenTypeTransform(GenTyp)
 .. Set:GenList'[GenTyp GenList=GenList_";"_GenTyp
 . Set $E(GenList,1)=""
 Quit:GenList=""
 Quit:Error
 Set:'$D(TOENrs) TOENrs=TOENr
 For  Set TOENr=$P(TOENrs,";") Do  Set TOENrs=$P(TOENrs,";",2,99) Quit:TOENrs=""
 . Set GenTyp=GenList
 . If TOENr,$D(TOENrs(TOENr)) Set GenTyp=$G(TOENrs(TOENr))
 . Set FP=2001 Write @F,@F1
 . Set FP=2104 Write @F,"  ObjTyp:"
 . Set FP=2115 Write @F,ObjTyp
 . Set FP=2204 Write @F,"  ObjRef:"
 . Set FP=2215 Write @F,ObjRef
 . Set FP=2244 Write @F,"GenTyp:"
 . Set FP=2255 Write @F,GenTyp
 . Set FP=2304 Write @F," KLNr :"
 . Set FP=2315 Write @F,KLNr
 . Set FP=2344 Write @F," TOENr:"
 . Set FP=2355 Write @F,TOENr
 . Set FP=2404 Write @F," Mode :"
 . Set FP=2415 Write @F,Mode
 . Set FP=2007 Write @F,"HALUX\PRINT\ORDER"
 . Set FP=2001 Write @F,"VBA:\\"
 . Read K
 Do REFRESH^vhTERMINA()
 Quit
 
GenTypeTransform(GenTyp)   ; Added by WimV on 17/10/2005
 New GenSub
 Set GenSub=$P(GenTyp,"\",2)
 Set GenTyp=$P(GenTyp,"\",1)
 Quit:(GenTyp="") ""
 Set:GenTyp'="TBX" GenTyp="KAD"
 Set:GenSub="POM" GenTyp="GRP"   ; added by WimV
 Set:GenSub="GRP" GenTyp="GRP"
 Set:GenSub="ASM" GenTyp="ASM"
 Set:GenSub="TLM" GenTyp="TLM"
 Quit GenTyp
 
FREEST(TOENr,PRNr) ; Freestool met toelevering of product
 New K
 Do STORE^vhTERMINA()
 Set Error=""
 Set FP=2001 Write @F,@F1
 Set FP=2104 Write @F,"  ObjTyp:"
 Set FP=2115 Write @F,"TOE"
 Set FP=2204 Write @F,"  ObjRef:"
 Set FP=2215 Write @F,$S($G(PRNr):"999999",1:TOENr)
 Set FP=2304 Write @F," PRNr :"
 Set FP=2315 Write @F,$G(PRNr)
 Set FP=2007 Write @F,"HALUX\FREESTOOL"
 Set FP=2001 Write @F,"VBA:\\"
 Read K
 Do REFRESH^vhTERMINA()
 Quit