Index: APPS/TRANSP/dto/Nacalculatie.cls.xml
===================================================================
diff -u -r54418 -r56255
--- APPS/TRANSP/dto/Nacalculatie.cls.xml (.../Nacalculatie.cls.xml) (revision 54418)
+++ APPS/TRANSP/dto/Nacalculatie.cls.xml (.../Nacalculatie.cls.xml) (revision 56255)
@@ -13,6 +13,12 @@
1
+
+%Integer
+0
+1
+
+
%Integer
0
@@ -25,6 +31,11 @@
1
+
+%Double
+1
+
+
%String
1
Index: APPS/TRANSP/impl/TransportService/Nacalculator/RapportDataFactory.cls.xml
===================================================================
diff -u -r54421 -r56255
--- APPS/TRANSP/impl/TransportService/Nacalculator/RapportDataFactory.cls.xml (.../RapportDataFactory.cls.xml) (revision 54421)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/RapportDataFactory.cls.xml (.../RapportDataFactory.cls.xml) (revision 56255)
@@ -25,6 +25,8 @@
Do ..VoegToeEigenschap(KeyValueList, "RitNummer")
Do ..VoegToeEigenschap(KeyValueList, "OphaalTijdstip")
+ Do ..VoegToeEigenschap(KeyValueList, "AantalColli")
+ Do ..VoegToeEigenschap(KeyValueList, "ColliPrijs")
Do ..VoegToeEigenschap(KeyValueList, "AantalEuroPallet")
Do ..VoegToeEigenschap(KeyValueList, "AantalHalveEuroPallet")
Do ..VoegToeEigenschap(KeyValueList, "Palletprijs")
Index: APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml
===================================================================
diff -u -r56252 -r56255
--- APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml (.../TransportdataVoorKlantBepaler.cls.xml) (revision 56252)
+++ APPS/TRANSP/impl/TransportService/Nacalculator/TransportdataVoorKlantBepaler.cls.xml (.../TransportdataVoorKlantBepaler.cls.xml) (revision 56255)
@@ -68,6 +68,7 @@
Set Levering = LeveringIterator.Next()
If Levering.GeefGeleverdAanKlantID() = KlantId {
Set NacalculatieDto = ##class(APPS.TRANSP.dto.Nacalculatie).%New()
+ Set NacalculatieDto.AantalColli = Levering.GeefAantalColli()
Set NacalculatieDto.AantalEuroPallet = Levering.GeefAantalEuroPalletten()
Set NacalculatieDto.AantalHalveEuroPallet = Levering.GeefAantalHalveEuroPalletten()
Set NacalculatieDto.LeveradresGemeente = Levering.GeefAdres().GeefGemeente()
@@ -78,6 +79,7 @@
Set NacalculatieDto.RitNummer = RitId
Set NacalculatieDto.Bonnummers = ..MaakBonnummerLijstje(Levering)
Set NacalculatieDto.Land = Levering.GeefAdres().GeefLand().GeefNaam()
+ Set NacalculatieDto.ColliPrijs = 0
Set NacalculatieDto.Palletprijs = ..BepaalPalletPrijs(Levering)
Set NacalculatieDto.LijnTotaal = NacalculatieDto.Palletprijs * (Levering.GeefAantalEuroPalletten() + Levering.GeefAantalHalveEuroPalletten())
Set NacalculatieDto.TeBetalen = NacalculatieDto.LijnTotaal/2