lparameters tcCADcursorSchema
if !empty(tcCADcursorSchema)
	
	local llConvertData, lсCADcursorSchema
	llConvertData = (atc("#AllSqlDataToFox#", tcCADcursorSchema)> 0 )
	lсCADcursorSchema = ""
	
	with this
		if empty(.aSqlTableFields[ 1 ]) ;
		   and sqlcolumns(.nConnection, .Tables , "FOXPRO", "sqlTableFields")= 1  ;
		   and used("sqlTableFields")
		   
			select * ;
				from sqlTableFields ;
				into array .aSqlTableFields
		
		endif
		
		use in select("sqlTableFields")
		
		local lnArrayRow, lcFieldName, lcFieldName, lcFieldType, lcFieldAttrib
		* узнаем все поля, которые будут в выборке
		
		if .CursorFill(.f.,.f.) and afields( .aSqlTableFields, .Alias)> 0 
		
			for lnArrayRow= 1  to alen( .aSqlTableFields,  1 )
				
				lcFieldName = upper(alltrim(.aSqlTableFields[lnArrayRow, 1 ]))
				lcFieldType = alltrim(.aSqlTableFields[lnArrayRow, 2 ])
				
				lnPos =  atc(lcFieldName+" ", tcCADcursorSchema)
						
			    if empty(lnPos)
					if ascan( .aSqlTableFields, lcFieldName)> 0 
					   
							lсCADcursorSchema = lсCADcursorSchema + iif(!empty(lсCADcursorSchema), ", ", "") + ;
												lcFieldName + ;
												iif( llConvertData and inlist( lcFieldType, "D", "T") and lcFieldName<>"TIMESTAMP", ;
													 " d(8)", ;
													 " " + lcFieldType + " (" + transform(.aSqlTableFields[lnArrayRow, 3 ]) + ;
													 					        "," + ;
													 					        transform(.aSqlTableFields[lnArrayRow, 4 ]) + ")" ;
													)
					else
						* значение есть в массиве .aSqlTableFields - в выборке - какое-то дополнительное поле
						* но такого нет в самой табличке на сервере
						lсCADcursorSchema = lсCADcursorSchema + iif(!empty(lсCADcursorSchema), ", ", "") + ;
											lcFieldName + " " + lcFieldType + "(" + ltrim(str(.aSqlTableFields[lnArrayRow, 3 ])) + ;
																			  "," + ltrim(str(.aSqlTableFields[lnArrayRow, 4 ])) + ;
																			  ")"
					endif
				else
						lcFieldAttrib = strextract(upper(tcCADcursorSchema), lcFieldName, ",")
						if empty(lcFieldAttrib)
							lcFieldAttrib = alltrim(substr(upper(tcCADcursorSchema),lnPos + len(lcFieldName)+ 1 ))
						endif
						lсCADcursorSchema = lсCADcursorSchema + iif(!empty(lсCADcursorSchema), ", ", "") + ;
											lcFieldName + " " + lcFieldAttrib
				endif
				
			endfor
			
			tcCADcursorSchema = lсCADcursorSchema
		
		else
		
			* произошла ошибка
			local laErrors[ 1 ], lcErrorMessage
			=aerror(laErrors)
			text to lcErrorMessage noshow textmerge pretext  3 
				
					Курсорадаптер. Ошибка проверки курсорсхемы !
					
					Таблица: <<.Tables>>
					Метод: CursorFill
					Ошибка:	<<iif(type('laErrors[2]')='C',laErrors[ 2 ],'Неопознанная ошибка!')>>
					
			endtext
			messagebox(lcErrorMessage, 16 ,'Класс КАД')
			
			* ошибка курсорфилла
			tcCADcursorSchema = .f.
			return .f.
		
		endif
		 
	
	endwith

endif 
return .t.

lnConnect = ....
loCad = createob("cursoradapter")
with loCad
    ....
     ***  тут постоянно что-то меняем
    .....
    if .cursorfill()
      insert into (.Alias) ...
      if !tableupdate()
         messagebox("бага")
      endif
    endif
endwith