Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml =================================================================== diff -u -r36338 -r36358 --- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml (.../OfferteBerekenaar.cls.xml) (revision 36338) +++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml (.../OfferteBerekenaar.cls.xml) (revision 36358) @@ -72,7 +72,7 @@ While PallettenIterator.HasNext() { #dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = PallettenIterator.Next() - Set TotaalGewichtInKg = TotaalGewichtInKg + ..TariefBepaler.BepaalFactureerbaarGewichtInKg(Pallet.Afmeting, Pallet.Gewicht) + Set TotaalGewichtInKg = TotaalGewichtInKg + ..TariefBepaler.BepaalFactureerbaarGewichtInKg(Pallet.Afmeting, Pallet.GewichtInKG) } Quit ..TariefBepaler.GeefTarief(..BerekenInput.LeverAdres.LandCode, ..BerekenInput.LeverAdres.Postcode, TotaalGewichtInKg) Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bepaal/Test.cls.xml =================================================================== diff -u -r36344 -r36358 --- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bepaal/Test.cls.xml (.../Test.cls.xml) (revision 36344) +++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler/Bepaal/Test.cls.xml (.../Test.cls.xml) (revision 36358) @@ -16,7 +16,7 @@ Do $$$AssertEquals(Palletten.Count(),1) #dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = Palletten.GetAt(1) - Do $$$AssertEquals(Pallet.Gewicht,100.000) + Do $$$AssertEquals(Pallet.GewichtInKG,100.000) Do $$$AssertEquals(Pallet.Afmeting.Hoogte,220) Do $$$AssertEquals(Pallet.Afmeting.Breedte,80) Do $$$AssertEquals(Pallet.Afmeting.Lengte,70) Index: APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml =================================================================== diff -u -r36344 -r36358 --- APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml (.../StapelingBepaler.cls.xml) (revision 36344) +++ APPS/TRANSP/Offerte/impl/DHL/StapelingBepaler.cls.xml (.../StapelingBepaler.cls.xml) (revision 36358) @@ -50,7 +50,7 @@ { #dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = ##class(APPS.TRANSP.OfferteService.dto.Pallet).%New() #dim PalletData As APPS.TRANSP.Offerte.impl.DHL.Data.Pallet = PallettenIterator.Next() - Set Pallet.Gewicht = (PalletData.GewichtInKG) + Set Pallet.GewichtInKG = (PalletData.GewichtInKG) Set Pallet.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(PalletData.Afmeting.Hoogte + ..#PalletHoogte,PalletData.Afmeting.Breedte, PalletData.Afmeting.Lengte) Do Palletten.Insert(Pallet) } Index: APPS/TRANSP/OfferteService/dto/Pallet.cls.xml =================================================================== diff -u -r34532 -r36358 --- APPS/TRANSP/OfferteService/dto/Pallet.cls.xml (.../Pallet.cls.xml) (revision 34532) +++ APPS/TRANSP/OfferteService/dto/Pallet.cls.xml (.../Pallet.cls.xml) (revision 36358) @@ -7,7 +7,7 @@ APPS.TRANSP.OfferteService.dto.Afmeting - + TECH.Decimal Index: vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler.cls.xml =================================================================== diff -u -r34535 -r36358 --- vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler.cls.xml (.../PallettenBepaler.cls.xml) (revision 34535) +++ vhTest/Fake/APPS/TRANSP/Offerte/impl/DHL/PallettenBepaler.cls.xml (.../PallettenBepaler.cls.xml) (revision 36358) @@ -25,7 +25,7 @@ for Teller=1:1:..AantalPalletten { #dim Pallet As APPS.TRANSP.OfferteService.dto.Pallet = ##class(APPS.TRANSP.OfferteService.dto.Pallet).%New() - Set Pallet.Gewicht = 100 + Set Pallet.GewichtInKG = 100 Set Pallet.Afmeting = ##class(APPS.TRANSP.OfferteService.dto.Afmeting).%New(1,1,1) Do Palletten.Insert(Pallet) }