LOCAL lcSQLText as String, lnCursorCount as Number

lcSQLText = "SELECT * FROM informix.bst_creddebtors ORDER by short_name"

IF gnConnHandle >  0            && проверка наличия подключения к базе

   lnCursorCount = SQLEXEC(gnConnHandle, lcSQLText, "CredDogList")

   IF lnCursorCount <  0 
  
     = MESSAGEBOX("Данные списка кредитных договоров не получены.",  16 , "Ошибка")

      RETURN .F.
 
   ELSE
 
     * setup - свободная dbf-таблица

     IF creddoglist.workodb_day != setup.dtcurrcash

	  lcMessText = "Дата создания списка договоров" + DTOC(creddoglist.workodb_day) + CHR( 13 ) + ;
	 		"не совпадает с датой кассового дня " + DTOC(setup.dtcurrcash)

	 = MESSAGEBOX(lcMessText,  16 , "Ошибка")

	 USE IN creddoglist
	 RETURN .F.

      ELSE

         thisform.cboFindCred.ColumnCount =  3 
	 thisform.cboFindCred.RowSourceType =  2 
	 thisform.cboFindCred.RowSource = "creddoglist.short_name, adress, p_data"
	 thisform.cboFindCred.SetFocus

   ENDIF

ENDIF
	
ENDIF