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