Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml =================================================================== diff -u -r48554 -r48559 --- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 48554) +++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 48559) @@ -241,10 +241,7 @@ Set ..AxProduct.IntraUnit = ..BepaalIntraUnit(Product) Set ..AxProduct.ADUCountableOrDivisible = ..BepaalADUCountableOrDivisible(Product) Set ..AxProduct.ADUPriceCodexGroupId = ..Utils.ConvertADUPriceCodexGroupId(Product.Basis.ProductNr) - Set ..AxProduct.InventItemSalesDeliveryDateControlType = $$$If(((..DefaultOrderType="Aankooporder")&&(Product.Basis.StockNietStock'="")),"ATP + uitgiftemarge","CTP") Set ..AxProduct.InventItemSalesSetuATPInclPlannedOrders = $$$If(..AxProduct.InventItemSalesDeliveryDateControlType="ATP + uitgiftemarge","1","0") - Set ..InventItemSalesDeliveryDateControlType = ..AxProduct.InventItemSalesDeliveryDateControlType - Set ..AxProduct.InventItemSalesSetupOverride = $$$If(..InventItemSalesDeliveryDateControlType="ATP + uitgiftemarge","Ja","Nee") Set ..AxProduct.ADUPriceUnitNetPrice = ..AxProduct.InventTableModuleSalesPriceUnit ]]> @@ -281,7 +278,10 @@ Set ..AxProduct.PmfProductType = ..BepaalPmfProductTypeVH(Product) Set ..AxProduct.ReqGroupId = ..Utils.ConvertReqGroupId(##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv(),Product) Set ..AxProduct.InventItemPurchSetupCalendarDays = ..BepaalInventItemPurchSetupCalendarDaysVH(Product) + Set ..AxProduct.InventItemSalesDeliveryDateControlType = $$$If(((..DefaultOrderType="Aankooporder")&&(Product.Basis.StockNietStock'="")&&($$$Not(##class(TECH.StringUtils).Equals(Product.Basis.LinkType,"HH","HHZ")))),"ATP + uitgiftemarge","CTP") + Set ..InventItemSalesDeliveryDateControlType = ..AxProduct.InventItemSalesDeliveryDateControlType Set ..AxProduct.InventItemSalesSetupATPTimeFence = ..BepaalInventItemSalesSetupATPTimeFenceVH(Product) // Heeft ..InventItemSalesDeliveryDateControlType nodig! + Set ..AxProduct.InventItemSalesSetupOverride = $$$If(..InventItemSalesDeliveryDateControlType="ATP + uitgiftemarge","Ja","Nee") Set ..AxProduct.PdsVendorCheckItem = ..BepaalPdsVendorCheckItemVH(Product) ]]> @@ -319,7 +319,10 @@ Set ..AxProduct.PmfProductType = ..BepaalPmfProductTypeHLX(Product) Set ..AxProduct.ReqGroupId = ..Utils.ConvertReqGroupId(##class(AXimpl.InterneFirmaInitialen).HaluxNv(),Product) Set ..AxProduct.InventItemPurchSetupCalendarDays = "1" + Set ..AxProduct.InventItemSalesDeliveryDateControlType = $$$If(((..DefaultOrderType="Aankooporder")&&(Product.Basis.StockNietStock'="")),"ATP + uitgiftemarge","CTP") + Set ..InventItemSalesDeliveryDateControlType = ..AxProduct.InventItemSalesDeliveryDateControlType Set ..AxProduct.InventItemSalesSetupATPTimeFence = ..BepaalInventItemSalesSetupATPTimeFenceHLX(Product) // Heeft ..InventItemSalesDeliveryDateControlType nodig! + Set ..AxProduct.InventItemSalesSetupOverride = $$$If(..InventItemSalesDeliveryDateControlType="ATP + uitgiftemarge","Ja","Nee") Set ..AxProduct.PdsVendorCheckItem = ..BepaalPdsVendorCheckItemHLX(Product) ]]>