1 .Поле даты ‘date_1’ 
в object DataWindow во вкладке Format содержит
dd-mm-yyyy
В таблице тип поля ‘date’ , 
edit Style – None, Default - 'today()'

второе поле ‘Tn’ тип поля ‘integer’
String ls_msg		// error message
String ls_sql		// the new SELECT statement
String ls_where	// WHERE clause

Boolean lb_new
lb_new = True
wf_Retrieve(lb_new) // datawindow will be почищен и добавлена одна пустая строка
Заданы  2  аргумента, по которым надо выбрать записи из таблицы.

 2 .Так как были ошибки с датой, пытаюсь упростить
- выбрать только по одному полю ‘Tn’ , тип которого integer
dw_master.SetSqlSelect(ls_sql ) 
ls_msg =dw_master.Modify("DataWindow.Table.Select=~"" + ls_sql + "~"")
IF ls_msg <> "" THEN
      MessageBox("dw.Modify Error", ls_msg, StopSign!)
      RETURN
   END IF
dw_master.retrieve()
//dw_master.retrieve( ls_sql)   // Column lists do not match
dw_master.SetFocus()    
return

Однако  13  нижеприведенных вариантов некорректны:

//++- 1   ls_sql = "SELECT assign_5.Tn  FROM assign_5 "  
//++- 2   ls_sql = "SELECT Tn  FROM assign_5 "  // fropm PB5. 0 , pg. 245 

//+- ls_sql = "SELECT Tn  FROM assign_5 "  // Column lists do not match ( я поставил один пробел в конце строки )
//+- ls_sql = "SELECT Tn  FROM assign_5"  // Column lists do not match ( без пробела в конце строки )

//+- 3  ls_sql = 'SELECT * FROM "DBA"."assign_5" where tn=101' // Line  1  Column  44 : incorrect syntax.
//+- 4   ls_sql = "SELECT * FROM  where tn=101" // Unable to Retrieve Rows

//+- 5  ls_sql = "SELECT * FROM 'DBA'.'assign_5' where tn=101" // Line  1  Column  44 : incorrect syntax.

//+- 6  ls_sql = "SELECT * FROM assign_5 where assign_5.tn=101"  // Column lists do not match

//+- 7  ls_sql = "SELECT * FROM assign_5 where assign_5.tn=101"  // Column lists do not match

//+- 8  ls_sql = "SELECT * FROM assign_5 "   // Column lists do not match ( я поставил один пробел в конце строки )
//+- 9  ls_sql = "SELECT * FROM assign_5"   // Column lists do not match  ( без пробела в конце строки )
//+- 10  ls_sql = "SELECT Tn,Date_1 FROM assign_5"   // Column lists do not match  ( без пробела в конце строки )

//  Column lists do not match - после вставки всех полей, из которых состоит таблица
//+- 11  ls_sql = "SELECT tn,date_1,Codedepart, department, position, salary, argument  FROM assign_5"

//+- 12   Column lists do not match - ставлю пробел перед Select
 //+- ls_sql = " SELECT tn,date_1,Codedepart, department, position, salary, argument  FROM assign_5"

//+- 13   ls_sql = "SELECT * FROM assign_5  WHERE assign_5.Tn = 109"

ls_sql = "SELECT * FROM assign_5  WHERE Tn=109"

 3 . последняя версия:
// ls_sql = '"SELECT "assign_5"."tn", ' + &
//  '  "assign_5"."date_1" ' + &
//' FROM "assign_5"'
ls_sql = '"SELECT "assign_5"."tn",   "assign_5"."date_1"  FROM "assign_5"'
dw_master.SetSqlSelect(ls_sql ) 
ls_msg =dw_master.Modify("DataWindow.Table.Select=~"" + ls_sql + "~"")

 IF ls_msg <> "" THEN
      MessageBox("dw.Modify Error", ls_msg, StopSign!)
      RETURN
   END IF
dw_master.retrieve()
//dw_master.retrieve( ls_sql)   
dw_master.SetFocus()    
return