gdLoadF=DTOC(DATE())
gdLoadF=CTOT(gdLoadF+" 00:00:00")

gdLoadT=DTOC(DATE())
gdLoadT=CTOT(gdLoadT+" 23:59:00")

lnResult=SQLEXEC(gnConnHandle,"exec sp_DisplaySchedule ?gnViewDept,?gdLoadF,?gdLoadT")

IF lnResult < 1
   aError(lcErrtxt)
   DO disperr
ENDIF