SELECT "assign_5"."tn",   
         "assign_5"."date_1",   
         "assign_5"."codedepart",   
         "assign_5"."department",   
         "assign_5"."position",   
         "assign_5"."salary",   
         "assign_5"."argument"  
    FROM "assign_5"   
Объектные переменные:
Public:
   Date     id_returndate    // the date
   Integer  ii_returncode    // return code:
                                     //     = - 1  for "Cancel"
                                     //     =  0   for blank date
                                     //     =  1   for valid date
String is_origsql    // original SQL SELECT statement

Teкст сценария:
String ls_msg		// error message
String ls_sql		// the new SELECT statement
String ls_where	// WHERE clause
string return_status  // какая кнопка в окне отклика была нажата: OK or Cancel
ii_returncode = - 1 	      // assume "Cancel"

dw_master.reset()
string rc, mod_string
integer rc
string where_clause
dw_master.SetTransObject(SQLCA)
is_origsql = &
        dw_master.Describe("DataWindow.Table.Select")
// Remove the DataWindow's SELECT statement
dw_master.Modify("DataWindow.Table.Select = ''")

вариант_1:
where_clause = 'where Tn = '  + string(strResponse2.tn) + ' and date_1 = "' + &
string(strResponse2.date_1,"dd-mm-yyyy") + '"'
вариант_2:
where_clause = 'where Tn = '  + string(strResponse2.tn) + ' and date_1 = "' + &
string(strResponse2.date_1,"yyyy-mm-dd") + '"'

mod_string = "DataWindow.Table.Select='" &
        + is_origsql + where_clause +  "'"  

dw_master.SetSqlSelect(mod_string )  
rc = dw_master.Modify(mod_string) // 0211.2007

IF rc = "" THEN
        dw_master.Retrieve( )
ELSE
        MessageBox("Status", "Modify Failed" + rc)
END IF

String ls_msg		// error message
String ls_sql		// the new SELECT statement
String ls_where	// WHERE clause
id_returndate = date("21-10-1978")
ii_returncode = - 1 	      // assume "Cancel"
//  Construct the SQL SELECT, based on the date returned
 ls_where = " WHERE assign_5.date_1 = '"         &
            + String(id_returndate,"yyyy-mm-dd")    &
            + "'"	// construct a WHERE clause
ls_sql = is_origsql + ls_where	   // the new SQL statement

//  Assign the new SELECT statement to the DataWindow
IF dw_master.SetSqlSelect(ls_sql) <>  1  THEN
//   MessageBox("Error",                                             &
//              "Unable to change the DataWindow's SELECT to:~n~n" + &
//              ls_sql, StopSign!)

//  IF SetSqlSelect fails, try Modify, which is more forgiving

   IF ls_where <> "" THEN
    ls_where = " WHERE assign_5.date_1 = '"         &
               + String(id_returndate,"yyyy-mm-dd")    &
               + "'"		// construct a WHERE clause
      ls_sql = is_origsql + ls_where	// the new SQL statement
   END IF

   ls_msg =dw_master.Modify("DataWindow.Table.Select=~"" + ls_sql + "~"")
   IF ls_msg <> "" THEN
      MessageBox("dw.Modify Error", ls_msg, StopSign!)
      RETURN
   END IF
END IF
//  Retrieve the rows for the selected date
wf_Retrieve(False)      // retrieve the rows
dw_master.SetFocus()         // set focus on the DataWindow

ls_sql='select Tn, date_1 from assign_5'
dw_master.reset( ) // да, чистит.
// return
dw_master.setsqlselect(ls_sql)
dw_master.settransobject(sqlca)
dw_master.retrieve()
return