BerekenTijdenAbstract %String %Date 1 %String 1 d ##class(APPS.Halux.Planning.Pitching.impl.BerekenTijdenLeadingNotPitched).%New().Bereken() rs:%ResultSet rsToelev:%ResultSet rsToelev:%ResultSet,rsLijn:%ResultSet ",ResourcePitched.EindTijdstip,! Do ResourcePitched.Save() Quit ResourcePitched ]]> ToeleveringNr:%String TECH.Iterator TECH.Iterator DueOutTijdstip,BatchImpl->GeplandOp,BatchImpl->Categorie" _" from APPS_Halux_common_impl.BatchImpl_ToeleveringenIndex BT" Do rs.Prepare(SQL) Set sc=rs.Execute() Set it=##class(TECH.ResultSetIterator).%New(rs) Quit it ]]> BatchID:%String rsToelev:%ResultSet +$H { Set DueOutTijdstip=$zd(+$zdth(DueOutTijdstip,3),3)_" 14:30" } Else { Set DueOutTijdstip=$zd(+$H,3)_" 10:30" } Quit DueOutTijdstip ]]> Resource:%String