#include vhLib.Macro
#include %occInclude
 
	; Oproepen via : 
	;   d ShowXML^BL.Prod.GAData.TestWV()
ShowXML()
	Set GADataID="2"
	Set ExportType=""
	  d RestartTimer^vhLib()
	Set pr=##class(BL.Prod.GAData.sub.pxProduct).Create(ExportType,GADataID,,.sc)
	  d WL^vhDBG("Time for proxy Create() :"_$$TimeFromStart^vhLib)
	w !,"Status= "_sc,!,!
	w:($$$ISERR(sc)) $$ParseStatus^vhLib(sc),!
	Quit:($$$ISERR(sc))
	Set sc=$$ObjToXMLFile^vhLib(pr,"c:\Temp\GAProd_ID_"_GADataID_".xml")
	w:($$$ISERR(sc)) $$ParseStatus^vhLib(sc),!
	;d pr.XMLExport(,"literal,indent")
	Quit
 
	; Oproepen via : 
	;   s sc=$$OpenAndCalc^BL.Prod.GAData.TestWV(2,)   w sc,!
OpenAndCalc(GADataID,CalcType)
	Set gd=##class(Prod.GAData.AbstractBasis).%OpenId($G(GADataID,2))   ; w gd,!
	; Fill uncomplete data (from WSOrd)
	Do gd.InitBL("TBXLadeInterface")
	Set sc=gd.BL.CompleteGAData()
	Set gd.BL=""
	; Default BL
	Do gd.InitBL("TBXLadeBuild")
	; Values for the calculated properties
	Set sc=gd.BL.CalcGADataPropts()
	; Calculate Items
	Set CalcType=$G(CalcType,"DTL")  ; "BS" / "DTL" 
	Set:($$$ISOK(sc)) sc=gd.BL.Calculate(CalcType)
	
	/// Eerste testen (160 items) : 
	///   BS  : .235 sec 
	///   DTL : .335 sec 
		
	Set:($$$ISOK(sc)) sc=gd.BL.CreateBouwstenen(361367)
	Set:($$$ISOK(sc)) sc=gd.BL.CreateKenmerken(361367,"TBX")
	
	Quit sc
 
 
 /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ 
 /// +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+ 
 
	; Oproepen via : 
	;   s sc=$$WSOrd2GAData^BL.Prod.GAData.TestWV(534,.arGA)   s GAData=$S($IsObject($G(arGA)):arGA.GetAt(1), 1:"")
WSOrd2GAData(WSOrdID,arGADatas)
	New WSOrd,KLNr,sDomVERW,arObj,GAData,i,WSLn
	Do wsoOpenWSOrder   ; (WSOrdID --> WSOrd)
	Quit:('$IsObject(WSOrd)) ""
	;$$$blFlowOfferte
	Set KLNr=$$wsoKLNrFromOrder(.sDomVERW)
	Set arGADatas=$$wsoConvertToGADatas
	;Set arGADatas=""
	Quit $$$OK   ; OffID
wsoConvertToGADatas()
	Set arObj=##class(%ArrayOfObjects).%New()
	Set i=""
	For  Set WSLn=WSOrd.Lijnen.GetNext(.i) Quit:(i="")  Do  Quit:($$$ISERR(sc))  q:i=2   ; temp testing : quit after first line
	. Set GAData=$zobjclassmethod($S(WSLn.GAMeta="TBX":"Prod.GAData.TBXLade",1:"Prod.GAData.AbstractBasis"),"Create","BL.Prod.GAData.TBXLadeInterface")
	. Do arObj.SetAt(GAData,i)
	. Set sc=$$$OK
	. ;Set:('GAData.InitBL("BL.Prod.GAData.TBXLadeInterface")) sc=$$$ERROR($$$GeneralError,"BL is niet goed ")
	. Set:($$$ISOK(sc)) sc=GAData.BL.GADataFromWSOrderLijn(WSLn)
	. Set:($$$ISOK(sc)) sc=GAData.BL.CompleteGAData("WSOrd")
	Set GAData=""   ; clean up obj-ref
	Quit arObj
wsoOpenWSOrder
	If $IsObject(WSOrdID) Do  Quit
	. Set WSOrd=WSOrdID
	Else  Do
	. Set WSOrd=##class(WS.TBX.Order).%OpenId(WSOrdID)
	Quit
wsoKLNrFromOrder(sDomVERW)   ; sDomVERW als .local doorgeven
	New lbDomLU,sDomKLNr
	Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(WSOrd.WebDomain,$LB("VERW","KLNR"))
	Set sDomVERW=$LG(lbDomLU,1)
	Set sDomKLNr=$LG(lbDomLU,2)
	Quit +$S(sDomVERW'="VHEPN":sDomKLNr, 1:WSOrd.KLNummer)