Index: AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverterHLX.cls.xml =================================================================== diff -u --- AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverterHLX.cls.xml (revision 0) +++ AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverterHLX.cls.xml (revision 47614) @@ -0,0 +1,13 @@ + + + +AXimpl.Dynamics.ProductItemUpsertIn.Converter.EnvelopeConverter + + +%String +hlx + + + + + Index: AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverterVHBE.cls.xml =================================================================== diff -u --- AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverterVHBE.cls.xml (revision 0) +++ AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverterVHBE.cls.xml (revision 47614) @@ -0,0 +1,13 @@ + + + +AXimpl.Dynamics.ProductItemUpsertIn.Converter.EnvelopeConverter + + +%String +vhbe + + + + + Index: AXimpl/AxToAdminUtils.cls.xml =================================================================== diff -u -r47598 -r47614 --- AXimpl/AxToAdminUtils.cls.xml (.../AxToAdminUtils.cls.xml) (revision 47598) +++ AXimpl/AxToAdminUtils.cls.xml (.../AxToAdminUtils.cls.xml) (revision 47614) @@ -105,7 +105,8 @@ Quit:SupplierId="05924" "L||7903" Quit:SupplierId="05885" "L||7917" Quit:SupplierId="06657" "L||8020" - ; als we hier komen is het een leverancier die we niet voorzien hebben!!! + ; als we hier komen is het een nieuwe leverancier die we niet voorzien hebben!!! + DO ##class(vhLib.Logger).%New().ErrorMail("Nieuwe leverancier met id '"_SupplierId_"' gedefinieerd in AX Halux, die nog niet voorzien is in ConvertSupplierIDHLX") Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Nieuwe leverancier met id '"_SupplierId_"' gedefinieerd in AX Halux, die nog niet voorzien is in Admin Conversiecode.")) ]]> Index: AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter.cls.xml =================================================================== diff -u -r47585 -r47614 --- AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter.cls.xml (.../ProductItemConverter.cls.xml) (revision 47585) +++ AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter.cls.xml (.../ProductItemConverter.cls.xml) (revision 47614) @@ -57,17 +57,19 @@ -ProductItem:AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem +ProductItem:AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem,LegalEntity:%String="vhbe" -ProductItem:AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem,Product:DOM.PM.Product +ProductItem:AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem,Product:DOM.PM.Product,LegalEntity:%String 1 -ProductItem:AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem +ProductItem:AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem,LegalEntity:%String 1 %String - Index: vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverter/Test.cls.xml =================================================================== diff -u -r47275 -r47614 --- vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverter/Test.cls.xml (.../Test.cls.xml) (revision 47275) +++ vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverter/Test.cls.xml (.../Test.cls.xml) (revision 47614) @@ -15,7 +15,7 @@ Set SOPR.SOPR= ##class(%ListOfDataTypes).%New() Set ProductItemConverterMock = ##class(vhTest.Mock.AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter).%New() - Do ProductItemConverterMock.VerwachtMethodCall("ConvertProductItem",..Matches.DataTransferObject(Principaal)).DanDoeNiks().ExactAantalKeer(1) + Do ProductItemConverterMock.VerwachtMethodCall("ConvertProductItem",..Matches.DataTransferObject(Principaal),).DanDoeNiks().ExactAantalKeer(1) Do ProductItemConverterMock.VerwachtMethodCall("ConvertProductItem",..Matches.DataTransferObject(SOPR)).DanDoeNiks().Nooit() Set ProductLookupMock = ##class(vhTest.Mock.AXimpl.Admin.Common.ProductBepaler).%New() @@ -35,7 +35,7 @@ set LoggerMock = ##class(vhTest.Mock.vhLib.Logger).%New() Do LoggerMock.VerwachtMethodCall("Warning","Productsynchronizatie AX - Admin","Voor principaal product 'IdentNummer' in AX bestaat het product voor SOPR contract 'vhbe-08614' nog niet." _ $$$CRLF _ "PM is verwittigd, geen actie nodig").DanDoeNiks() - Set Converter = ##class(AXimpl.Dynamics.ProductItemUpsertIn.Converter.EnvelopeConverter).%New(ProductItemConverterMock,ProductAPIMock,ProductLookupMock,MailAPIMock,LoggerMock) + Set Converter = ##class(AXimpl.Dynamics.ProductItemUpsertIn.Converter.EnvelopeConverterVHBE).%New(ProductItemConverterMock,ProductAPIMock,ProductLookupMock,MailAPIMock,LoggerMock) Do Converter.Convert(Envelope) Do ProductItemConverterMock.Verifieer() @@ -64,8 +64,8 @@ Set SOPR.Ext.GetAt(1).ExternalItemId= "0123456789012345678901234567890123456789" Set ProductItemConverterMock = ##class(vhTest.Mock.AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter).%New() - Do ProductItemConverterMock.VerwachtMethodCall("ConvertProductItem",..Matches.DataTransferObject(Principaal)).DanDoeNiks().ExactAantalKeer(1) - Do ProductItemConverterMock.VerwachtMethodCall("ConvertProductItem",..Matches.DataTransferObject(SOPR)).DanDoeNiks().ExactAantalKeer(1) + Do ProductItemConverterMock.VerwachtMethodCall("ConvertProductItem",..Matches.DataTransferObject(Principaal),"vhbe").DanDoeNiks().ExactAantalKeer(1) + Do ProductItemConverterMock.VerwachtMethodCall("ConvertProductItem",..Matches.DataTransferObject(SOPR),"vhbe").DanDoeNiks().ExactAantalKeer(1) Set ProductLookupMock = ##class(vhTest.Mock.AXimpl.Admin.Common.ProductBepaler).%New() Do ProductLookupMock.VerwachtMethodCall("GeefProductIdVoorLeverancierId","IdentNummer","L||5005","vhbe-08614").DanReturn("SOPRProductId") @@ -78,9 +78,10 @@ #dim MailAPIMock as vhTest.Mock.TECH.Mail.MailAPI = ##class(vhTest.Mock.TECH.Mail.MailAPI).MockInstance() - Set Converter = ##class(AXimpl.Dynamics.ProductItemUpsertIn.Converter.EnvelopeConverter).%New(ProductItemConverterMock,ProductAPIMock,ProductLookupMock,MailAPIMock) + Set Converter = ##class(AXimpl.Dynamics.ProductItemUpsertIn.Converter.EnvelopeConverterVHBE).%New(ProductItemConverterMock,ProductAPIMock,ProductLookupMock,MailAPIMock) Do Converter.Convert(Envelope) + Do ProductMock.Verifieer() Do ProductAPIMock.Verifieer() Do ProductItemConverterMock.Verifieer() Index: AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverter.cls.xml =================================================================== diff -u -r47275 -r47614 --- AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverter.cls.xml (.../EnvelopeConverter.cls.xml) (revision 47275) +++ AXimpl/Dynamics/ProductItemUpsertIn/Converter/EnvelopeConverter.cls.xml (.../EnvelopeConverter.cls.xml) (revision 47614) @@ -1,8 +1,14 @@ +1 TECH.RegisteredObject + +%String +OverschijfInAfgeleideClass + + AXimpl.Dynamics.ProductItemUpsertIn.Converter.ProductItemConverter 1 @@ -50,7 +56,8 @@ Set ProductItemIterator = ##class(TECH.ListIterator).%New(Message.Body.MessageParts.MessagePart.Item) While ProductItemIterator.HasNext(){ #dim ProductItem as AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem = ProductItemIterator.Next() - Do ..ProductItemConverter.ConvertProductItem(ProductItem) + Do ..ProductItemConverter.ConvertProductItem(ProductItem, ..#LegalEntity) + Set SOPRIterator = ##class(TECH.ListIterator).%New(ProductItem.SOPR) While SOPRIterator.HasNext(){ #dim SOPRProductId = "" @@ -63,7 +70,7 @@ If $Length(SOPRProductId){ #dim SOPRIdentNummer = ..ProductAPI.GeefProduct(SOPRProductId).GeefIdentNr() #dim SOPRPrice as %Numeric = SOPR.CostPrice - Do ..ProductItemConverter.ConvertProductItem(..ApplySOPRToProductItem(ProductItem,SOPRIdentNummer, SOPRPrice)) + Do ..ProductItemConverter.ConvertProductItem(..ApplySOPRToProductItem(ProductItem,SOPRIdentNummer, SOPRPrice),..#LegalEntity) } else { Do ..StuurOntbrekendeSOPRMail(ProductItem.ItemId,SOPR.ContractId) } Index: vhTest/Mock/AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter.cls.xml =================================================================== diff -u -r47144 -r47614 --- vhTest/Mock/AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter.cls.xml (.../ProductItemConverter.cls.xml) (revision 47144) +++ vhTest/Mock/AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter.cls.xml (.../ProductItemConverter.cls.xml) (revision 47614) @@ -9,8 +9,8 @@ right -ProductItem:AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem -ProductItem:AXif.Dynamics.ProductItemIn.MessageParts.AxdEntityItem,LegalEntity:%String="vhbe" + Index: vhDeploy/D20171117AXConfigProductItemInConvertorHlxVhbe.cls.xml =================================================================== diff -u --- vhDeploy/D20171117AXConfigProductItemInConvertorHlxVhbe.cls.xml (revision 0) +++ vhDeploy/D20171117AXConfigProductItemInConvertorHlxVhbe.cls.xml (revision 47614) @@ -0,0 +1,27 @@ + + + +vhDeploy.Deploy + + +%String +ConfigItem - Instellen ConfigItem AX ProductItemIn Converter opsplitsing hlx vhbe + + + +1 + + + + + + Index: vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter/Test.cls.xml =================================================================== diff -u -r47585 -r47614 --- vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter/Test.cls.xml (.../Test.cls.xml) (revision 47585) +++ vhUnitTest/AXimpl/Dynamics/ProductItemUpsertIn/Converter/ProductItemConverter/Test.cls.xml (.../Test.cls.xml) (revision 47614) @@ -3,6 +3,41 @@ vhUnitTest.TestCase + + + + + + + +