The evaluation of an exact numeric expression exceeds the predetermined precision. This is a run time error. In addition, subtraction and multiplication operations, the scale
of the exact numeric expression is determined following the SQL standards guideline and the precision is capped at the maximum supported value ( 30 ). If the result of evaluating exceed the supported precision, this error is returned.

IF !USED('projects')
	USE "d:\программы\fox pro\работа с базой\projects.dbf" IN  0  SHARED && локальная таблица с данными
ENDIF
loConn = SQLSTRINGCONNECT("DRIVER={Advantage StreamlineSQL ODBC};DataDirectory=\\viktor\fox;CharSet=win-1251;DefaultType=Visual FoxPro;RightsChecking=OFF;ServerType=REMOTE;")
?SQLEXEC(loConn,"select top 0 kdprojects, iznos_k from projects", "prh1") && пустая таблица куда добавляем новые данные
DO setfieldtoupdate WITH 'Prh1','Projects','kdprojects' && Какие поля нужно обновлять и по какому ключу
SELECT Prh1
APPEND FROM projects && Добавляем записи
?CURSORSETPROP("SendUpdates", .T., "Prh1")
?TABLEUPDATE(.T., .T., "Prh1") && Ошибка  2232  

DEBUG
susp
?SQLDISCONNECT(loConn)
loConn = SQLSTRINGCONNECT("DRIVER={Advantage StreamlineSQL ODBC};DataDirectory=\\viktor\fox;CharSet=win-1251;DefaultType=Visual FoxPro;RightsChecking=OFF;ServerType=REMOTE;")
?SQLEXEC(loConn,"execute procedure sp_zaptable('projects')")
?SQLDISCONNECT(loConn)

PARAMETERS toAlias, toAliasFrom, toKeyFields
IF EMPTY(m.toAlias) OR EMPTY(m.toAliasFrom) OR EMPTY(m.toKeyFields)
	RETURN
ENDIF
m.loCountField = AFIELDS(loFields,m.toAlias)
STORE '' TO loStrField, loStrUpdateField
FOR loFieldI =  1  TO m.loCountField
	m.loStrField = m.loStrField + IIF(EMPTY(m.loStrField),'',',') + m.loFields[m.loFieldI, 1 ]
	m.loStrUpdateField = m.loStrUpdateField + IIF(EMPTY(m.loStrUpdateField),'',',') + m.loFields[m.loFieldI, 1 ] + " " + m.toAliasFrom + "." + m.loFields[m.loFieldI, 1 ]
ENDFOR
IF AT(',',m.toKeyFields) =  0 
	SELECT (m.toAlias)
	INDEX ON &toKeyFields. TAG &toKeyFields. OF (m.toAlias)
ENDIF
?CURSORSETPROP("Tables", m.toAliasFrom, m.toAlias)
?CURSORSETPROP("KeyFieldList", m.toKeyFields, m.toAlias)
?CURSORSETPROP("UpdatableFieldList", m.loStrField, m.toAlias)
?CURSORSETPROP("UpdateNameList", m.loStrUpdateField, m.toAlias)
?CURSORSETPROP("Buffering",  5 , m.toAlias)