WHERE  EVALUATE(?tcWhereString) = ( .T. )

Structure for table:  OSTAT.DBF
Number of data records:        1968     
Date of last update:            28 . 03 . 2005 
Code Page:    1251 
Field Field Name  Type       Width  Dec   Index   Collate  Nulls
  1    ID_MATER     Integer     4              Asc   Machine   No
  2    ACCCOD1      Character   12                             No     Счет
  3    NOMCOD       Character   11                             No     Ном.номер
  4    NOMNAM       Character   40                             No
  5    AMOUNT       Numeric     11        3                      No
  6    UNICOD       Character   5                              No
  7    PRICE        Numeric     12        2                      No
  8    SUMM         Numeric     15        2                      No
  9    L_PRINT      Logical     1                              No
** Total **                   112 

SELECT Ostat.id_mater, Ostat.acccod1 AS schet, Ostat.nomcod AS nom_nom,;
  Ostat.nomnam, Ostat.amount AS kol_vo, Ostat.unicod AS ed_izm,;
  Ostat.price AS cena, Ostat.summ, Ostat.l_print;
 FROM ;
     v_mater!ostat;
 WHERE  EVALUATE(?tcWhereString) = ( .T. );
 ORDER BY Ostat.acccod1, Ostat.nomcod

tcWhereString = "Ostat.acccod1='10.07'"

lcSQL = [select * from table where ]+lcExrp +[ into cursor tresult]
&lcSQL

CREATE SQL VIEW Lv_ostat_2 ;
AS SELECT Ostat.id_mater, Ostat.acccod1 AS schet, Ostat.nomcod AS nom_nom,;
  Ostat.nomnam, Ostat.amount AS kol_vo, Ostat.unicod AS ed_izm,;
  Ostat.price AS cena, Ostat.summ, Ostat.l_print;
 FROM v_mater!ostat;
 WHERE &?tcWhereString;
 ORDER BY Ostat.acccod1, Ostat.nomcod

 WHERE ?&tcWhereString;

USE lv_ostat_2 AGAIN IN  0 

lcSQL = [select * from table where ]+lcExrp +[ into cursor tresult]
&lcSQL