Index: APPS/StockBeheer/impl/TAORPlatenMagazijn.cls.xml =================================================================== diff -u -r42993 -r45890 --- APPS/StockBeheer/impl/TAORPlatenMagazijn.cls.xml (.../TAORPlatenMagazijn.cls.xml) (revision 42993) +++ APPS/StockBeheer/impl/TAORPlatenMagazijn.cls.xml (.../TAORPlatenMagazijn.cls.xml) (revision 45890) @@ -79,14 +79,12 @@ ProductNaam:%String Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml =================================================================== diff -u -r45400 -r45890 --- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml (.../AankoopOrderRegelDixfConverter.cls.xml) (revision 45400) +++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml (.../AankoopOrderRegelDixfConverter.cls.xml) (revision 45890) @@ -44,7 +44,7 @@ 1 - + DOM.PM.impl.BlumProductAPI 1 @@ -77,7 +77,7 @@ Set ..AankoopAPI = $$$Inject(AankoopApi,##class(DOM.DomeinContext).Instance().GeefAankoopAPI()) Set ..BlumKundeOmzetter = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde).%New() Set ..SoprConvertor = ##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New() - Set ..ProductApi = ##class(DOM.PM.impl.BlumProductAPI).%New() + Set ..BlumProductApi = ##class(DOM.PM.impl.BlumProductAPI).%New() Quit $$$OK ]]> @@ -506,7 +506,7 @@ Set AxProductIdentNummer = $Extract(AxProductIdentNummer,1)_"."_$Extract(AxProductIdentNummer,2,4)_"."_$Extract(AxProductIdentNummer,5,7)_"."_$Extract(AxProductIdentNummer,8) #dim Toelevering As DOM.AKP.impl.DataM.DataMToelevering = ##class(DOM.AKP.impl.DataM.DataMToelevering).%New(ToeleveringLijn.ToeleveringNr,"L||5005") #dim KundeNr As %String = Toelevering.GeefKlantNummerBijLeverancier() - Set ..AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ProductApi.GeefProductIdVolgensIdentNummer(AxProductIdentNummer,KundeNr)) + Set ..AxProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..BlumProductApi.GeefProductIdVolgensIdentNummer(AxProductIdentNummer,KundeNr)) } ]]> Index: APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml =================================================================== diff -u -r38095 -r45890 --- APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml (.../ToeleveringInfoVerzamelaar.cls.xml) (revision 38095) +++ APPS/AKP/AankoopControle/BLUM/impl/ToeleveringInfoVerzamelaar.cls.xml (.../ToeleveringInfoVerzamelaar.cls.xml) (revision 45890) @@ -4,6 +4,11 @@ vhLib.Macro TECH.Mockable + +DOM.PM.ProductAPI +1 + + DOM.AKP.ToeleveringAPI 1 @@ -15,14 +20,16 @@ -BlumProductAPI:DOM.PM.BlumProductAPI,ToeleveringAPI:DOM.AKP.ToeleveringAPI +ProductApi:DOM.PM.ProductAPI="",BlumProductAPI:DOM.PM.BlumProductAPI="",ToeleveringAPI:DOM.AKP.ToeleveringAPI="" 1 1 %Status 1 @@ -62,7 +69,7 @@ do ..StuurMailNietGesplitsteToeleveringLijn(ToeleveringNr,CSBSO41.IdentNr,CSBSO41.ProductNrCustomer) } } - #Dim Product as DOM.PM.Product = ..BlumProductAPI.GeefProduct(CSBSO41.ProductNrCustomer) + #Dim Product as DOM.PM.Product = ..ProductApi.GeefProduct(CSBSO41.ProductNrCustomer) ;is de prijs die we verwachten -> dummy factuur, prijs die blum gaat rekenen zit niet in despatch bericht. set CSBSO41.Value = CSBSO41.QuantityInvoiced * ..GeefVHProductPrijs(CSBSO41.ProductNrCustomer) Index: DOM/PM/impl/BlumProductAPI.cls.xml =================================================================== diff -u -r37660 -r45890 --- DOM/PM/impl/BlumProductAPI.cls.xml (.../BlumProductAPI.cls.xml) (revision 37660) +++ DOM/PM/impl/BlumProductAPI.cls.xml (.../BlumProductAPI.cls.xml) (revision 45890) @@ -1,7 +1,7 @@ -DOM.PM.impl.ProductAPI,DOM.PM.BlumProductAPI +DOM.PM.BlumProductAPI,TECH.RegisteredObject ProductID:%String