Index: AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsDixfGenerator.cls.xml =================================================================== diff -u -r46449 -r46467 --- AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsDixfGenerator.cls.xml (.../LijstPrijsDixfGenerator.cls.xml) (revision 46449) +++ AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsDixfGenerator.cls.xml (.../LijstPrijsDixfGenerator.cls.xml) (revision 46467) @@ -36,6 +36,7 @@ Set AXLijstPrijsData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New() Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "FromDate") Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "Price") + Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "PriceAllocateMarkup") Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "PriceQty") Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "PriceType") Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "PriceUnit") Index: AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsDixfConverter.cls.xml =================================================================== diff -u -r46399 -r46467 --- AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsDixfConverter.cls.xml (.../LijstPrijsDixfConverter.cls.xml) (revision 46399) +++ AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsDixfConverter.cls.xml (.../LijstPrijsDixfConverter.cls.xml) (revision 46467) @@ -17,6 +17,7 @@ Set ..AxProduct.FromDate = "01/12/2017" Set ..AxProduct.Price = ..BepaalPrice(Product, GrootteOrdeVerkoop) + Set ..AxProduct.PriceAllocateMarkup = "1" Set ..AxProduct.PriceQty = "1" Set ..AxProduct.PriceType = "2" Set ..AxProduct.PriceUnit = ..BepaalPriceUnit(GrootteOrdeVerkoop) @@ -37,7 +38,7 @@ #dim Price As %String If ($$$Not(GrootteOrdeVerkoop = "E")){ - Set Price = $Replace(($Piece($$PRIJSGEG^KPRIJS(Product.Basis.ProductNr,"N"),"\",15)*100),".",",") // Code ook gebruikt in IteratorFilter om 0-prijzen uit te sluiten!!! + Set Price = $Replace(($Piece($$PRIJSGEG^KPRIJS(Product.Basis.ProductNr,"N"),"\",15)*100),".",",") } Else{ Set Price = $Replace(##class(TECH.Math).Round($Piece($$PRIJSGEG^KPRIJS(Product.Basis.ProductNr,"N"),"\",15),2),".",",") } Index: AXdixf/KostEnLijstPrijs/KostEnLijstPrijs.cls.xml =================================================================== diff -u -r46394 -r46467 --- AXdixf/KostEnLijstPrijs/KostEnLijstPrijs.cls.xml (.../KostEnLijstPrijs.cls.xml) (revision 46394) +++ AXdixf/KostEnLijstPrijs/KostEnLijstPrijs.cls.xml (.../KostEnLijstPrijs.cls.xml) (revision 46467) @@ -11,34 +11,38 @@ %String - + %String - + %String - + %String - + %String - + %String - + %String - + %String + +%String + + %String Index: AX/Uitgaand/PM/KostPrijs/impl/KostPrijsDixfConverter.cls.xml =================================================================== diff -u -r46394 -r46467 --- AX/Uitgaand/PM/KostPrijs/impl/KostPrijsDixfConverter.cls.xml (.../KostPrijsDixfConverter.cls.xml) (revision 46394) +++ AX/Uitgaand/PM/KostPrijs/impl/KostPrijsDixfConverter.cls.xml (.../KostPrijsDixfConverter.cls.xml) (revision 46467) @@ -15,7 +15,8 @@ Set ..AxProduct = ##class(AXdixf.KostEnLijstPrijs.KostEnLijstPrijs).%New() Set ..AxProduct.FromDate = "01/12/2017" - Set ..AxProduct.Price = $Replace(($Piece($$PRIJSGEG^KPRIJS(Product.Basis.ProductNr,"N"),"\",6)*100),".",",") // Code ook gebruikt in IteratorFilter om 0-prijzen uit te sluiten!!! + Set ..AxProduct.Price = $Replace(($Piece($$PRIJSGEG^KPRIJS(Product.Basis.ProductNr,"N"),"\",6)*100),".",",") + Set ..AxProduct.PriceAllocateMarkup = "1" Set ..AxProduct.PriceQty = "1" Set ..AxProduct.PriceType = "0" Set ..AxProduct.PriceUnit = "100" Index: AX/Uitgaand/PM/KostPrijs/impl/KostPrijsDixfGenerator.cls.xml =================================================================== diff -u -r46448 -r46467 --- AX/Uitgaand/PM/KostPrijs/impl/KostPrijsDixfGenerator.cls.xml (.../KostPrijsDixfGenerator.cls.xml) (revision 46448) +++ AX/Uitgaand/PM/KostPrijs/impl/KostPrijsDixfGenerator.cls.xml (.../KostPrijsDixfGenerator.cls.xml) (revision 46467) @@ -36,6 +36,7 @@ Set AXKostPrijsData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New() Do AXKostPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "FromDate") Do AXKostPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "Price") + Do AXKostPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "PriceAllocateMarkup") Do AXKostPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "PriceQty") Do AXKostPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "PriceType") Do AXKostPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "PriceUnit")