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)