Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml =================================================================== diff -u -r48559 -r48577 --- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 48559) +++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml (.../VrijgegProductDixfConverter.cls.xml) (revision 48577) @@ -241,7 +241,6 @@ Set ..AxProduct.IntraUnit = ..BepaalIntraUnit(Product) Set ..AxProduct.ADUCountableOrDivisible = ..BepaalADUCountableOrDivisible(Product) Set ..AxProduct.ADUPriceCodexGroupId = ..Utils.ConvertADUPriceCodexGroupId(Product.Basis.ProductNr) - Set ..AxProduct.InventItemSalesSetuATPInclPlannedOrders = $$$If(..AxProduct.InventItemSalesDeliveryDateControlType="ATP + uitgiftemarge","1","0") Set ..AxProduct.ADUPriceUnitNetPrice = ..AxProduct.InventTableModuleSalesPriceUnit ]]> @@ -280,6 +279,7 @@ 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.InventItemSalesSetuATPInclPlannedOrders = $$$If(..InventItemSalesDeliveryDateControlType="ATP + uitgiftemarge","1","0") Set ..AxProduct.InventItemSalesSetupATPTimeFence = ..BepaalInventItemSalesSetupATPTimeFenceVH(Product) // Heeft ..InventItemSalesDeliveryDateControlType nodig! Set ..AxProduct.InventItemSalesSetupOverride = $$$If(..InventItemSalesDeliveryDateControlType="ATP + uitgiftemarge","Ja","Nee") Set ..AxProduct.PdsVendorCheckItem = ..BepaalPdsVendorCheckItemVH(Product) @@ -321,6 +321,7 @@ Set ..AxProduct.InventItemPurchSetupCalendarDays = "1" Set ..AxProduct.InventItemSalesDeliveryDateControlType = $$$If(((..DefaultOrderType="Aankooporder")&&(Product.Basis.StockNietStock'="")),"ATP + uitgiftemarge","CTP") Set ..InventItemSalesDeliveryDateControlType = ..AxProduct.InventItemSalesDeliveryDateControlType + Set ..AxProduct.InventItemSalesSetuATPInclPlannedOrders = $$$If(..InventItemSalesDeliveryDateControlType="ATP + uitgiftemarge","1","0") Set ..AxProduct.InventItemSalesSetupATPTimeFence = ..BepaalInventItemSalesSetupATPTimeFenceHLX(Product) // Heeft ..InventItemSalesDeliveryDateControlType nodig! Set ..AxProduct.InventItemSalesSetupOverride = $$$If(..InventItemSalesDeliveryDateControlType="ATP + uitgiftemarge","Ja","Nee") Set ..AxProduct.PdsVendorCheckItem = ..BepaalPdsVendorCheckItemHLX(Product)