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
+
+
+
+
+
+
+
+