*a='usl_do'
*b='bd_pr'
*c='sprav'
*e='stprof'
*f='usl_ol'
*ff='usl_mp'

With Thisform
  If .combo2.Value='санатории'
    tip= 1 
    If .combo3.Value='служба'
      Serviciu = 'ppp'
  
      If .combo4.Value = 'число'
        var1 = 'usl_do->datr = thisform.text2.Value'
        var2 = 'usl_do->datr > {}'
      Else
        If .combo4.Value = 'семестр'
          var1 = 'usl_do->datr >= thisform.text2.Value'
          var2 = 'usl_do->datr <= thisform.text3.Value'
        Else
          If .combo4.Value = 'все'
            var1 = 'usl_do->datr > {}'
            var2 = 'usl_do->datr > {}' 
  
            Use usl_do In  0 
            Use bd_pr In  0 
            Use sprav In  0 
            Use stprof In  0    

            Select bd_pr->Name;
              , usl_do->tab_nom;
              , stprof->cpodl;
              , usl_do->Summa;
              , usl_do->datv;
              , usl_do->cena;
              , usl_do->kol;
              , usl_do->Summ;
              , usl_do->datr;
              , sprav->Name;
              , sprav->cod;
              FROM data1!sprav INNER Join data1!usl_do;
              INNER Join data1!bd_pr;
              INNER Join data1!stprof;
              ON bd_pr->bdp = stprof->bdp;
              ON usl_do->tab_nom = bd_pr->tab_nom;
              ON sprav->nom = usl_do->cods;
              WHERE sprav->cod = tip And usl_do->bdp = ppp And &var1  And &var2 ;
              ORDER By bd_pr->Name;
              INTO Cursor Serv
          Endif
        Endif
      Endif
    Endif
  Endif
 
  .grid2.RecordSource='serv'
  .grid2.Visible=.T.
  .grid2.Refresh
EndWith