Index: vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml =================================================================== diff -u -r34535 -r34832 --- vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml (.../Test.cls.xml) (revision 34535) +++ vhUnitTest/APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar/Test.cls.xml (.../Test.cls.xml) (revision 34832) @@ -61,7 +61,7 @@ Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).LeverDag,"Mon") Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).Duurtijd,4) Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).LeverDatum,64040) - Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).LeverTijd,"12:00") + Do $$$AssertEquals(OfferteDataResult.Items.GetAt(1).LeverTijd,43200) ]]> Index: APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml =================================================================== diff -u -r34532 -r34832 --- APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml (.../OfferteBerekenaar.cls.xml) (revision 34532) +++ APPS/TRANSP/Offerte/impl/DHL/OfferteBerekenaar.cls.xml (.../OfferteBerekenaar.cls.xml) (revision 34832) @@ -112,7 +112,7 @@ Set OfferteItem.Duurtijd = ..TransportDuur.DuurtijdPerWeekdagNr.GetAt(VroegsteAfhaalDag) Set OfferteItem.LeverDatum = ##class(TECH.DateTime).DatumBereken(..BerekenInput.VroegsteAfhaalDatum, OfferteItem.Duurtijd, ##class(TECH.enu.DatePart).Dag()) Set OfferteItem.LeverDag = ..GeefLeverDagAfkorting(##class(TECH.DateUtils).DayNumber(OfferteItem.LeverDatum)) - Set OfferteItem.LeverTijd = "12:00" + Set OfferteItem.LeverTijd = ##class(%Library.Time).DisplayToLogical("12:00") Set OfferteItem.OphaalDatum = ..BerekenInput.VroegsteAfhaalDatum Do OfferteData.Items.Insert(OfferteItem)