Index: BL/EC/EDI.cls.xml =================================================================== diff -u -r734 -r771 --- BL/EC/EDI.cls.xml (.../EDI.cls.xml) (revision 734) +++ BL/EC/EDI.cls.xml (.../EDI.cls.xml) (revision 771) @@ -1,10 +1,10 @@ - + BL.EC.Common 1 %RegisteredObject -62073,43114.798707 +62124,59790.230757 60207,60266.060949 0 @@ -72,7 +72,7 @@ d ArrayToTextWF^vhLib("arMatrix(""OUT"",""PRM"")","c:\Temp\TBox Neves calcMatrix.txt") d ArrayToTabDelim^vhLib(.arMatrix,"c:\Temp\TBox Neves calcMatrix002.txt")]]> 1 - + %Status calculation - . ;d WL^vhDBG("oLijn = "_oLijn_" "_$$$LCVT(oLijn.Status)) - // [?? RESET BL] -#IF ($$$Server="CACHE02") - . Do oLijn.BL.Simulate("N",.NoSa) -#ELSE . Do %blFlowOfferte.SimulateLijn(oLijn,"N") ; ..SimulateAll() -#ENDIF . d:($L(oLijn.Status)) WL^vhDBG("oLijn.Status = "_$$$LCVT(oLijn.Status)) . ; Get Prijs and store into array . Set arMatrix("OUT","LST",lnI,"Prijs")=oLijn.NettoEPrijs . Set:($D(arDim)) arMatrix("OUT","PRM",arListItem(arDim(1)),arListItem(arDim(2)),arListItem(arDim(3)))=oLijn.NettoEPrijs . Set:($D(arDim)) arMatrix("OUT","DBG",arListItem(arDim(1)),arListItem(arDim(2)),arListItem(arDim(3)))=$LB(lnI,oLijn.NettoEPrijs) . w !,$J(lnI,2)_". "_"Prijs = "_oLijn.NettoEPrijs,! - //d WL^vhDBG($$$ArrayTT2("arMatrix",.arMatrix)) + ;d WL^vhDBG($$ArrayToText^vhLib("arMatrix",.arMatrix)) Do:($L($G(FilePath))) comOutputToFile() Quit $$$OK comOutputToFile() @@ -243,106 +236,6 @@ FromServer,WSOrdID Flow.Offerte.Hoofding WSOrd) - ;d WLIP^vhDBG(97,"WSOrd "_$G(WSOrd)) - Quit:('$IsObject(WSOrd)) "" - $$$blFlowOfferte - Set KLNr=$$wsoKLNrFromOrder(.sDomVERW) - Set oHfd=%blFlowOfferte.Create() ; incl ID toekennen - Set oHfd.Oorsprong="TBX" - Set oHfd.CreatieTijdStip=$S($$$Trim(WSOrd.SubmitTS)="":$H, 1:$ZDTH(WSOrd.SubmitTS,3)) - ;Set oHfd.Datum=$H - Set oHfd.Referentie=$S($G(sDomVERW)="":"ERROR !!! ", sDomVERW="HFLE":$$$KLNaamHFLE, sDomVERW'="VHEPN":WSOrd.KLNaam, 1:WSOrd.Commissie) - Set oHfd.CommReferentie=$S($G(sDomVERW)="":"ERROR !!! ", sDomVERW'="VHEPN":WSOrd.Commissie, 1:"") - Set oHfd.Commentaar=$$wsoCommentFromOrder - Do oHfd.KlantSetObjectId(KLNr) ; controle op KLNr ??? - Set oHfd.EmailOrderbevestiging = $S(sDomVERW="VHEPN":WSOrd.KLEMail,1:"") // JCL : overhalen Email adres order bevestiging - Set oHfd.LeveringsAdres=$S(sDomVERW="VHEPN":..SelectAdresFromWS(WSOrd,KLNr), 1:"") - Set sc=%blFlowOfferte.Save() ; oHfd.%Save() - ;d WL^vhDBG("OffHoofd saved: "_$$ParseStatus^vhLib(sc)) - Quit:($$$ISERR(sc)) "" - ;Set arGADatas=$$wsoConvertToGADatas - ; Build Lijnen - Set i="" - For Set WSLn=WSOrd.Lijnen.GetNext(.i) Quit:(i="") Do Quit:($$$ISERR(sc)) - . Set GAData=$zobjclassmethod($S(WSLn.GAMeta="TBX":"Prod.GAData.TBXLade",1:"Prod.GAData.Abstract"),"Create") - . Do GAData.BL.GADataFromWSOrderLijn(WSLn,WSOrd.NietMeeleveren) - . ;Do GAData.BL.CompleteGAData() ; Vervolledigen van de Data tijdens calculatie GAProd - . ;Set GAData=arGADatas.GetAt(i) - . Set oLijn=%blFlowOfferte.InsertLijnAfgeleidProduct(,,GAData,+WSLn.Qty) - . Set:('$IsObject(oLijn)) sc=$$$ERROR($$$GeneralError,"oLijn not created") - . Quit:($$$ISERR(sc)) - . Set oLijn.Hoofding=oHfd - . Set sc=oLijn.%Save() - Set GAData="" - ;Set arGADatas="" - Set:('$$$ISERR(sc)) sc=%blFlowOfferte.Save() - If $$$ISERR(sc) Do - . ;Set Status=$$$errCreateWithText(..#errNoSave,$$ParseStatus^vhLib(sc)) - . Set oHfd="" - . Set OffID="" - Else Do - . Set OffID=oHfd.%Id() - Quit oHfd ; OffID -wsoOpenWSOrder - If FromServer="WWW" Do - . ; Call WebService to retrieve WSOrder - . Set WSOrd="" - Else Do - . ; retrieve from local namespace - . 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 - 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) -wsoCommentFromOrder() - ; Extract EDI ref via volgende lijn: - ; w EDIRef=$$$TextBetween(oHfd.Commentaar,"TBX-EDI-nr: ",$$$CRLF) - Set txt="Levertijd: "_WSOrd.LeverTijd - Set txt=txt_$$$CRLF_"TBX-EDI-nr: "_WSOrd.OrderNr ; $S($L(WSOrd.%Id()):WSOrd.%Id(), 1:WSOrd.mID) - Set:($L(WSOrd.Opmerking1)) txt=txt_$$$CRLF_"Opmerking: "_$$$CRLF_WSOrd.Opmerking1_$$$CRLF - Set KL=oHfd.Klant - Quit:('$IsObject(KL)) txt - ;Set:($D(arCmp)) txt=txt_$$$CRLF_"KlantData" - Set:(WSOrd.KLStraatNrBus'=KL.StraatNrBus) txt=txt_$$$CRLF_"Straat: "_WSOrd.KLStraatNrBus - Set:(WSOrd.PostNr'=KL.Postnummer ) txt=txt_$$$CRLF_"PostNr: "_WSOrd.KLPostNr - Set:(WSOrd.WoonPlaats'=KL.Woonplaats ) txt=txt_$$$CRLF_"WoonPlaats: "_WSOrd.KLWoonPlaats - Set:(WSOrd.Telefoon'=KL.Telefoon1 ) txt=txt_$$$CRLF_"Telefoon: "_WSOrd.KLTelefoon - Set:(WSOrd.Fax'=KL.Telefax ) txt=txt_$$$CRLF_"Fax: "_WSOrd.KLFax - Set:(WSOrd.EMail'=KL.EmailAdres ) txt=txt_$$$CRLF_"EMail: "_WSOrd.KLEMail - Kill KL - Quit txt - /* -wsoConvertToGADatas() - Set arObj=##class(%ArrayOfObjects).%New() - Set i="" - For Set WSLn=WSOrd.Lijnen.GetNext(.i) Quit:(i="") Do Quit:($$$ISERR(sc)) - . Set GAData=$zobjclassmethod($S(WSLn.GAMeta="TBX":"Prod.GAData.TBXLade",1:"Prod.GAData.Abstract"),"Create") - . Do arObj.SetAt(GAData,i) - . Do GAData.BL.GADataFromWSOrderLijn(WSLn) - . Do GAData.BL.CompleteGAData() - Set GAData="" ; clean up obj-ref - Quit arObj - */ -]]> - - - - -Omzetten van WSOrder data naar Offerte.Hoofding+Lijnen -Geeft als resultaat offerte hoofding terug. -De Kenmerken en enkele properties zijn reeds ingevuld, maar de producten (GAData+KPR) zijn nog NIET berekend. -1 -FromServer,WSOrdID -Flow.Offerte.Hoofding - WSOrd) ;d WLIP^vhDBG(97,"WSOrd "_$G(WSOrd)) @@ -357,7 +250,6 @@ Set oHfd.CommReferentie=$S($G(sDomVERW)="":"ERROR !!! ", sDomVERW'="VHEPN":WSOrd.Commissie, 1:"") Set oHfd.Commentaar=$$wsoCommentFromOrder Do oHfd.KlantSetObjectId(KLNr) ; controle op KLNr ??? - Set oHfd.EmailOrderbevestiging = $S(sDomVERW="VHEPN":WSOrd.KLEMail,1:"") // JCL : overhalen Email adres order bevestiging Set oHfd.LeveringsAdres=$S(sDomVERW="VHEPN":..SelectAdresFromWS(WSOrd,KLNr), 1:"") Set sc=%blFlowOfferte.Save() ; oHfd.%Save() ;d WL^vhDBG("OffHoofd saved: "_$$ParseStatus^vhLib(sc)) @@ -369,7 +261,7 @@ For Set WSLn=WSOrd.Lijnen.GetNext(.i) Quit:(i="") Do Quit:($$$ISERR(sc)) . Do wsoConvertWSLijnToArray . Set Qty=$G(arData("LN","AANT")) - . Set oLijn=%blFlowOfferte.InsertLijnAfgeleidProductOLD(,,"TBX",+Qty,.arData) + . Set oLijn=%blFlowOfferte.InsertLijnAfgeleidProduct(,,"TBX",+Qty,.arData) . Set:('$IsObject(oLijn)) sc=$$$ERROR($$$GeneralError,"oLijn not created") . Quit:($$$ISERR(sc)) . Set oLijn.Hoofding=oHfd @@ -424,7 +316,6 @@ Do WSLn.DataArrayFromWSLn(.tmpAr) Merge arData("LN")=tmpAr Quit - /* */ ]]> @@ -476,5 +367,5 @@ - +