TEXT TO lcSQL TEXTMERGE NOSHOW PRETEXT 15 SELECT ConvertDateTime(VEH.EvtDate, VEH.EvtTime) AS start_time, ConvertDateTime(VEH.EvtDate, VEH.EvtTime) + GetDuration(VEH.duration) AS end_time, ST.descr AS SvcType_dsc, SVC.servref FROM funeral!ServiceVehicle VEH WITH (BUFFERING = .T.) JOIN aserdet SVC WITH (BUFFERING = .T.) ON VEH.service_id = SVC.serviceid JOIN psvctype ST ON SVC.servtype = ST.code WHERE VEH.VehCode = '[[tcVehCode]]' AND VEH.SvcVehID # [[tiSvcVehID]] AND ConvertDateTime(VEH.EvtDate, VEH.EvtTime) < {[[ttEndTime]]} AND (ConvertDateTime(VEH.EvtDate, VEH.EvtTime) + GetDuration(VEH.duration)) > {[[ttStartTime]]} ENDTEXT FUNCTION ConvertDateTime(tdDate, tcTime) RETURN DATETIME(YEAR(m.tdDate), ; MONTH(m.tdDate), ; DAY(m.tdDate), ; VAL(GETWORDNUM(m.tcTime, 1, ":")), ; VAL(GETWORDNUM(m.tcTime, 2, ":"))) ENDFUNC FUNCTION GetDuration(tcDuration) LOCAL lnDuration lnDuration = (VAL(GETWORDNUM(m.tcDuration, 1, ':')) * 3600) ; + (VAL(GETWORDNUM(m.tcDuration, 2, ':')) * 60)) RETURN m.lnDuration ENDFUNC