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