local lcSql,lcWhere lcSql = "" lcWhere = "" lcSql = " select * from client " Local lcTxtDueDate,lcTxtDelDate lcTxtDueDate = "DueDate>='[StartDate]' And DueDate<='[EndDate]'" lcTxtDueDate= Strtran( lcTxtDueDate, "[StartDate]", Dtoc(date()) lcTxtDueDate= Strtran( lcTxtDueDate, "[EndDate]", Dtoc(date()) lcTxtDelDate = "DeliveryDate>='[StartDate]' And DeliveryDate<='[EndDate]'" lcTxtDelDate= Strtran( lcTxtDelDate, "[StartDate]", Dtoc(date()) lcTxtDelDate= Strtran( lcTxtDelDate, "[EndDate]", Dtoc(date()) lcWhere = " where " + lcTxtDueDate + " and " + lcTxtDelDate lcSql = lcSql + lcWhere