Index: APPS/OrderUitvoering/OrderUitvoeringService.cls.xml =================================================================== diff -u -r74289 -r74321 --- APPS/OrderUitvoering/OrderUitvoeringService.cls.xml (.../OrderUitvoeringService.cls.xml) (revision 74289) +++ APPS/OrderUitvoering/OrderUitvoeringService.cls.xml (.../OrderUitvoeringService.cls.xml) (revision 74321) @@ -61,7 +61,7 @@ #dim KlantNr As %String = "" #dim PartijNaam As %String = "" #dim ReceptieTijdstip As %TimeStamp = "" - #dim VroegsteLeverdatum as %TimeStamp = "" + #dim VroegsteLeverTijdstip as %TimeStamp = "" #dim VerzendwijzeId As %String = "" If ##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatOrder(OrderMetGoederenInHalux2.OrderID) { @@ -78,16 +78,17 @@ Set KlantNr = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Order.GeefKlantID()) Set PartijNaam = Partij.GeefNaam() - Set VroegsteLeverdatum = ##class(TECH.DateTime).DateToTimeStamp(Order.GeefVroegsteLeverdatum()) Set VerzendwijzeId = Order.GeefVerzendWijze().VerzendWijzeID + #dim Verzendwijze As DOM.VKP.VerzendWijze = ##class(DOM.VKP.VerzendWijze).OpenId(VerzendwijzeId) + Set VroegsteLeverTijdstip = ##class(TECH.DateTime).DateTimeToTimeStamp(Order.GeefVroegsteLeverdatum(), Verzendwijze.DueOutMagazijn) } Set Row = $LB(AdministratiefProduct.GeefID(), AdministratiefProduct.GeefKorttekst(), KlantNr, PartijNaam, OrderMetGoederenInHalux2.OrderID, - VroegsteLeverdatum, + VroegsteLeverTijdstip, VerzendwijzeId, ReceptieTijdstip, OrderMetGoederenInHalux2.DragerID,