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")