#include vhLib.Macro
#include BL.EC.Common
#include %occInclude
 
 ; Call by: Do Test^Flow.Offerte.LijnProductGA.tmpDev
 ;Test()  [routine: zie lager]
 
 
	; Deze routine werkt niet binnen PROCEDUREBLOCK
KLANTPRxKPRIJS(KLNrPrs,GenPRNr,KPrijsVH)
	New PrijsRec
	$$$InitOldLocals
	Set PrijsRec=$$KLANTPR^KPRIJS(KLNrPrs,GenPRNr,$G(%NoSa),$J(KPrijsVH,0,2))
	Quit PrijsRec
 
 

 
 
	; Call by: Do Simulate^Flow.Offerte.LijnProductGA.tmpDev()
Simulate(OffID)
	s:('$D(%ClientIP)) %ClientIP="192.168.1.97"
	;New oHfd
	New Taal
	Set Taal="N"
	Kill %blFlowOfferte,%blFlowOffProdGAData
    $$$blFlowOfferte
    Set oHfd=%blFlowOfferte.Open($G(OffID,1576))
	Quit:('$IsObject(oHfd))
	Do %blFlowOfferte.SimulateAll(Taal)
	kill arKDtl 
	Do simShowResults
	Kill %blFlowOffProdGAData
	Quit
simShowResults
	;Do ObjToXMLFileDBG^vhLib(oHfd,"c:\temp\","OFFERTE_sim",,)   ; ("_"_$P(oLijn.GroepKey,".",2))
	New Key,oLijn
	Set Key=""
	For  Set oLijn=%blFlowOfferte.oOfferte.Lijnen.GetNext(.Key) Quit:Key=""  Do 
	. Do simShowResLijn(oLijn)
	Quit
simShowResLijn(oLijn)
	w oLijn.GroepKey,!
	w $$$LCVT(oLijn.Status),!
	;w oLijn.GenerischType," - "
	;w oLijn.GenerischProductGetObjectId(),!
	w oLijn.NettoEPrijs," - "
	w oLijn.BrutoEPrijs,!
	;w oLijn.Korting1," - "
	;w oLijn.Korting2," - "
	;w oLijn.GrootteOrde,!
	;Do oLijn.Kenmerken.SetAt(KPrijsVH,"PPL")
	w oLijn.KortTekst,!
	;w $$$LCVT(oLijn.LangTekst),!
	w !
	Quit
 
	; Call by: Do Generate^Flow.Offerte.LijnProductGA.tmpDev()
Generate(OffID)
	s:('$D(%ClientIP)) %ClientIP="192.168.1.97"
	;New oHfd
	Kill %blFlowOfferte,%blFlowOffProdGAData
    $$$blFlowOfferte
    Set oHfd=%blFlowOfferte.Open($G(OffID,1576))
	Quit:('$IsObject(oHfd))
	Do %blFlowOfferte.GenerateAll()
	kill arKDtl 
	Do genShowResults
	Kill %blFlowOffProdGAData
	Quit
genShowResults
	Do ObjToXMLFileDBG^vhLib(oHfd,"c:\temp\","OFFERTE",,)   ; ("_"_$P(oLijn.GroepKey,".",2))
	Quit
 
 
 
 
 
Test2
	// Een WS.TBX.OrderLijn wordt omgezet in Flow.Offerte.Lijn --> LijnProductGAData [TBX]
	// Op deze lijn wordt GenerateProduct() uitgevoerd, deze creëert het Afgeleid product en het Prod.product 
	// en beiden worden bewaard.
	Kill
	New sc
	Set LnA=""
	;Set LnA=##class(Flow.Offerte.LijnProductGA).NewFromWSOrderLn(391,2)
	w:('LnA) "No LijnProductGAData [TBX]"
	Quit:('LnA)
	Set sc=LnA.GenerateProduct()
	w $$$LCVT($$ObjectArrayToLB^vhLib(LnA.Kenmerken)),!,!
	Do $system.OBJ.Dump(LnA)
	w !,!
	Quit

 
DbgAdd(s,v)
	Set sDbg=sDbg_s_"="_v_" ** "
	Quit
TTrace(msg)
	s:('$D(%ClientIP)) %ClientIP="192.168.1.97"
	d WL^vhDBG("TBox:"_msg)
	Quit
TTraceW(msg)
	d TTrace(.msg)
	;w msg,!
	Quit