lo_CA=CREATEOBJECT("CursorAdapter")
lo_CA.Alias="c_MY"
lo_CA.DataSourceType="ODBC"
lo_CA.DataSource=_nCH
lo_CA.SelectCmd=[select idTable, organisation, status from table1]
lo_CA.CursorSchema = "idTable C(20), ORGANISATION N(6, 0), STATUS N(4, 0)"
lo_CA.Tables="tableT"
lo_CA.KeyFieldList="idTable"
lo_CA.UpdateNameList=[idTable table1."idTable", ORGANISATION table1.organisation]
lo_CA.UpdatableFieldList="ORGANISATION"
lo_CA.UpdateCmdDataSourceType="ODBC"
lo_CA.UpdateCmdDataSource=_nCH
lo_CA.UpdateType= 1 
lo_CA.AllowUpdate=.T.
lo_CA.BatchUpdateCount= 50 
lo_CA.MaxRecords=- 1 
llCursorFilled=lo_CA.CursorFill()
IF llCursorFilled=.F.
	MESSAGEBOX('ррррр')
ELSE 
	UPDATE c_MY SET ORGANISATION= 55  where idTable="1234567"
	TABLEUPDATE(.T.)	
ENDIF 
RELEASE lo_CA

lo_CA=CREATEOBJECT("CursorAdapter")
lo_CA .Alias="c_Material"
lo_CA .DataSourceType="ODBC"
lo_CA .DataSource=_nCH
lo_CA .SelectCmd=[select "material number", organisation, "material status" from material]
lo_CA .CursorSchema = "MATERIAL_NUMBER C(20), ORGANISATION N(6, 0), MATERIAL_STATUS N(4, 0)"
lo_CA .Tables="material"
lo_CA .KeyFieldList="MATERIAL_NUMBER"
lo_CA .UpdateNameList=[MATERIAL_NUMBER material."material number", ORGANISATION material.organisation]
lo_CA .UpdatableFieldList="ORGANISATION"
lo_CA .UpdateCmdDataSourceType="ODBC"
lo_CA .UpdateCmdDataSource=_nCH
lo_CA .UpdateType= 1 
lo_CA .AllowUpdate=.T.
lo_CA .BatchUpdateCount= 50 
lo_CA .MaxRecords=- 1 
lo_CA .BreakOnError=.T.
llCursorFilled=lo_CA .CursorFill()
IF llCursorFilled=.F.
	AERROR(a_er)
	MESSAGEBOX('Ошибка N '+CAST(a_er( 1 ) as varchar( 6 ))+CHR( 13 )+a_er( 2 ),  16 )
	RELEASE lo_CA
	RETURN 
ELSE 
UPDATE c_Material SET ORGANISATION= 55  where material_number='1234567' 
loCheck=Newobject("custom_check","C:\foxprg\Class\my\pcb_otchet.vcx")
IF loCheck.data_update('c_Material')= 1 
	WAIT WINDOW 'Обновление прошло удачно' NOWAIT TIMEOUT  10 
ENDIF 
RELEASE loCheck	
LOCATE FOR material_number="1234567"
BROWSE 
? lo_CA.CursorRefresh()
LOCATE FOR material_number="1234567"
*после рефреша обновлений пропали 
BROWSE 
RELEASE lo_CA

lo_CA.AllowUpdate=.T.
lo_CA.UpdateType= 1 
lo_CA.AllowUpdate=.T.
lo_CA.BatchUpdateCount= 200 
lo_CA.MaxRecords=- 1 
lo_CA.BreakOnError=.T.
lo_CA.ConflictCheckType= 3 

TEXT TO l_sql NOSHOW PRETEXT  15 
	create table #myTempTable
	(
	organisation numeric( 4 , 0 ),
	ncrd char( 16 )
	) 
ENDTEXT 
IF SQLEXEC(_nCH,l_sql)<= 0  
	AERROR(a_er)
	MESSAGEBOX('Ошибка N '+CAST(a_er( 1 ) as varchar( 6 ))+CHR( 13 )+a_er( 2 ),  16 )
	RETURN .F.
ENDIF 
	
lo_CA=CREATEOBJECT("CursorAdapter")
lo_CA.Alias="c_TestCA"
lo_CA.DataSourceType="ODBC"
lo_CA.DataSource=_nCH
lo_CA.SelectCmd='select ncrd, organisation from #myTempTable'
lo_CA.CursorSchema = "ncrd C(16), ORGANISATION N(4, 0)"
lo_CA.UseCursorSchema=.T.
lo_CA.Tables="#myTempTable"
lo_CA.KeyFieldList="ncrd"
lo_CA.UpdateNameList=[ncrd #myTempTable.ncrd, ORGANISATION #myTempTable.organisation]
lo_CA.UpdatableFieldList="ncrd, ORGANISATION"
***
lo_CA.UpdateCmdDataSourceType="ODBC"
lo_CA.UpdateCmdDataSource=_nCH
lo_CA.AllowUpdate=.T.
lo_CA.UpdateType= 1 
lo_CA.InsertCmdDataSourceType="ODBC"
lo_CA.InsertCmdDataSource=_nCH
lo_CA.AllowInsert=.T.
****
lo_CA.BufferModeOverride= 5 
lo_CA.AllowSimultaneousFetch=.T.
lo_CA.BatchUpdateCount= 150 
lo_CA.MaxRecords= 150 
lo_CA.BreakOnError=.T.
lo_CA.ConflictCheckType= 3 
llCursorFilled=lo_CA.CursorFill()
IF llCursorFilled=.F.
	AERROR(a_er)
	MESSAGEBOX('Ошибка N '+CAST(a_er( 1 ) as varchar( 6 ))+CHR( 13 )+a_er( 2 ),  16 )
	RELEASE lo_CA
	RETURN .F.
ENDIF  
lnPredpr=thisform.comboboxsearch1.Value
LOCAL ltStart1,ltEnd1,ltEnd2
ltStart1=DATETIME()
INSERT INTO c_TestCA (ncrd,organisation) SELECT ncrd, lnPredpr FROM  c_MyLocalCursore
*
loCheck=Newobject("custom_check","C:\foxprg\Class\my\pcb_otchet.vcx")
IF loCheck.data_update('c_TestCA')= 1 
	WAIT WINDOW 'Этап N 2' NOWAIT TIMEOUT  10 
ELSE 
	RELEASE lo_CA
	USE IN c_TestCA
	RETURN 	.F.
ENDIF 
ltEnd1=DATETIME()
MESSAGEBOX(CAST(INT((ltEnd1-ltStart1)/ 60 ) as varchar( 3 )) +':'+;
		CAST((ltEnd1-ltStart1)-INT((ltEnd1-ltStart1)/ 60 )* 60  as varchar( 2 )))
IF loCheck.data_update('c_TestCA')= 1 
	WAIT WINDOW 'Этап N3' NOWAIT TIMEOUT  10 
ELSE 
	RELEASE lo_CA
	USE IN c_TestCA
	RETURN 	.F.
ENDIF 
RELEASE lo_CA
RETURN .T.