Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r47723 -r47738
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47723)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml (.../Test.cls.xml) (revision 47738)
@@ -117,10 +117,8 @@
Do $$$AssertEquals(ConvertedProduct.InventTableModuleInventPriceUnit,"1")
Do $$$AssertEquals(ConvertedProduct.InventTableModuleInventUnitId,"STK")
Do $$$AssertEquals(ConvertedProduct.InventTableModulePurchEndDisc,"Ja")
- Do $$$AssertEquals(ConvertedProduct.InventTableModulePurchTaxItemGroupId,"G3")
Do $$$AssertEquals(ConvertedProduct.InventTableModulePurchUnitId,"STK")
Do $$$AssertEquals(ConvertedProduct.InventTableModuleSalesEndDisc,"Ja")
- Do $$$AssertEquals(ConvertedProduct.InventTableModuleSalesTaxItemGroupId,"G3")
Do $$$AssertEquals(ConvertedProduct.InventTableModuleSalesUnitId,"STK")
Do $$$AssertEquals(ConvertedProduct.ItemDimCostPrice,"Nee")
Do $$$AssertEquals(ConvertedProduct.ItemInventLocationId,"CACHE")
@@ -2052,6 +2050,270 @@
]]>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
1
AX.Uitgaand.PM.Product.impl.Product
Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r47735 -r47738
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 47735)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 47738)
@@ -181,12 +181,10 @@
Set ..AxProduct.InventTableModuleInventUnitId = "STK"
Set ..AxProduct.InventTableModulePurchEndDisc = "Ja"
Set ..AxProduct.InventTableModulePurchOverDeliveryPct = ..BepaalInventTableModulePurchOverDeliveryPct(Product)
- Set ..AxProduct.InventTableModulePurchTaxItemGroupId = "G3"
Set ..AxProduct.InventTableModulePurchUnderDeliveryPct = ..BepaalInventTableModulePurchUnderDeliveryPct(Product)
Set ..AxProduct.InventTableModulePurchUnitId = "STK"
Set ..AxProduct.InventTableModuleSalesEndDisc = "Ja"
Set ..AxProduct.InventTableModuleSalesPriceUnit = $Piece(..ProductLegacyApi.GeefPrijsGegevens(Product.Basis.ProductNr),"\",9)
- Set ..AxProduct.InventTableModuleSalesTaxItemGroupId = "G3"
Set ..AxProduct.InventTableModuleSalesUnitId = "STK"
Set ..AxProduct.ItemDimCostPrice = "Nee"
Set ..AxProduct.ItemId = Product.Basis.IdentNummer
@@ -276,6 +274,8 @@
If (..AxProduct.ItemGroupId = "") {
w !,"ArtikelGroep is leeg voor VHBE voor product: '"_Product.Basis.KortTekst_"'"
}
+ Set ..AxProduct.InventTableModuleSalesTaxItemGroupId = $$$If(((..AxProduct.ItemGroupId="BROCH")||(..AxProduct.ItemGroupId="KLEDIJ")),"S3","G3")
+ Set ..AxProduct.InventTableModulePurchTaxItemGroupId = ..AxProduct.InventTableModuleSalesTaxItemGroupId
Set ..AxProduct.ModelGroupId = $$$If(..AxProduct.ItemGroupId="KLEDIJ","NIGL","SOPR")
Set ..AxProduct.PmfProductType = ..BepaalPmfProductTypeVH(Product)
Set ..AxProduct.ReqGroupId = ..Utils.ConvertReqGroupId(##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),Product)
@@ -312,6 +312,8 @@
If (..AxProduct.ItemGroupId = "") {
w !,"ArtikelGroep is leeg voor HLX voor product: '"_Product.Basis.KortTekst_"'"
}
+ Set ..AxProduct.InventTableModuleSalesTaxItemGroupId = $$$If(((..AxProduct.ItemGroupId="BROCH")||(..AxProduct.ItemGroupId="KLEDIJ")),"S3","G3")
+ Set ..AxProduct.InventTableModulePurchTaxItemGroupId = ..AxProduct.InventTableModuleSalesTaxItemGroupId
Set ..AxProduct.ModelGroupId = $$$If(..AxProduct.ItemGroupId="KLEDIJ","NIGL","SOPR")
Set ..AxProduct.PmfProductType = ..BepaalPmfProductTypeHLX(Product)
Set ..AxProduct.ReqGroupId = ..Utils.ConvertReqGroupId(##class(AXimpl.InterneFirmaInitialen).HaluxNv(),Product)