this.oTK = CREATEOBJECT('MyCursorAdapter')
WITH this.oTK
   .Alias = 't_tk'
   .DataSourceType = 'ODBC'
   .DataSource = sqlstringconnect(pcConnString)
   .CursorSchema = 'id_tk i, name c(80), shortname c(15)'
   .SelectCmd = 'SELECT id_tk, name, shortname FROM tk'
   .FetchSize = -1
   .KeyFieldList = 'id_tk'
   .Tables = 'tk'
   .UpdatableFieldList = 'name, shortname'
   .UpdateNameList = 'id_tk tk.id_tk, name tk.name, shortname tk.shortname'
   .CursorFill(.t.)
ENDWITH 

LPARAMETERS cFldState, lForce, cInsertCmd, lResult
IF lResult = .t.
   LOCAL lnCurrentArea, lcKeyField
   lnCurrentArea = SELECT()  
   IF SQLEXEC(this.DataSource, "SELECT @@IDENTITY AS newID", "_cur_id") = 1
      lcKeyField = this.Alias + '.' + this.KeyFieldList && Формируется имя таблицы и поля
      replace &lcKeyField WITH _cur_id.newID
      USE IN _CUR_ID
   ENDIF 
   SELECT(lnCurrentArea)
ENDIF

LOCAL lcText

DO FORM InputString WITH 'Новая товарная категория', 'Добавить', '', 80 TO lcText
IF LEN(lcText) > 0
   INSERT INTO t_tk (name, shortname) VALUES (lcText, " ")
   thisform.Grid1.Refresh
ENDIF
thisform.Grid1.SetFocus

LOCAL lcText

DO FORM InputString WITH 'Новая товарная категория', 'Добавить', '', 80 TO lcText
IF LEN(lcText) > 0
   CREATE CURSOR tmp (Name c(80), ShortName(15))
   INSERT INTO tmp (name, shortname) VALUES (lcText, " ")
   INSERT INTO t_tk (name, shortname) VALUES (tmp.name, tmp.shortname)
   USE IN tmp
   thisform.Grid1.Refresh
ENDIF
thisform.Grid1.SetFocus

LOCAL lcText

DO FORM InputString WITH 'Новая товарная категория', 'Добавить', '', 80 TO lcText
IF LEN(lcText) > 0
   CREATE CURSOR tmp (Name c(80), ShortName(15))
   INSERT INTO tmp (name, shortname) VALUES (lcText, " ")
   INSERT INTO t_tk (name, shortname) SELECT * FROM tmp
   USE IN tmp
   thisform.Grid1.Refresh
ENDIF
thisform.Grid1.SetFocus

   IF SQLEXEC(this.DataSource, "SELECT SCOPE_IDENTITY() AS newID", "_cur_id") = 1
   .....

procedure Form.SaveDataToServerMethod()
    * переводим транзакцию в ручной режим
    SQLSETPROP(hnd,'Transaction',2)
    * выполняем создание временных таблиц
    cc = FILETOSTR('CreateTmpTableForStepN.txt')
    SQLEXEC(hnd, cc)
** проверки на ошибки опустим 
    * Заносим Мастера (пусть будет одна запись)
    * строим строку для занесения во временную таблицу
    cc = [INSERT INTO  #Master (....)]    
    cc = cc + [VALUES (?MasterLocalCursor.Fields,.....)]
    SQLEXEC(hnd, cc)
    * Заносим детали
    SELECT DetailsLocalCursor
    SCAN
    * строим строку для занесения во временную таблицу
        cc = [INSERT INTO  #Details (....)]    
        cc = cc + [VALUES (?DetailsLocalCursor.Fields,.....)]
        SQLEXEC(hnd, cc)
    ENDSCAN
    * Вызываем собственно ХП сервера для занесения в таблички данных
    SQLEXEC(hnd, [ exec pr_InputStepN ?InputPatameters]
    * Удаляем временные таблички
    cc = FILETOSTR('DropTmpTableForSepN.txt')
    SQLEXEC(hnd, cc) >= 0
    * Завершаем транзакцию
    SQLCOMMIT(hnd)
    * Восстанавливаем соединение на автокоммит
    SQLSETPROP(hnd,'Transaction',1)
endproc

*Сама ХП сервера

CREATE PROCEDURE pr_InputStepN 
@InputParameters...
AS
DECLARE @ID int
-- Проверки всякие
-- Заполняем Мастера
BEGIN Transaction -- если нужно
INSERT INTO Master (MasterFields..) SELECT MasterFields FROM #Master
SET @ID = SCOPE_IDENT()
-- Заполняем детали
INSERT INTO Details (MasterID, DetailsFields..) SELECT @ID, DetailsFields FROM #details
if @@error <> 0 ....
begin
ROLLBACK TRAN
RAISEERROR(...)
end
COMMIT TRAN

lcCmd = 'INSERT INTO tablename (Field1, ....) VALUES (?var1, ?...) SELECT SCOPE_IDENTITY() as newid'
lnResult = SQLEXEC(oCA.DataSource, lcCmd, '_Cur_id')
IF lnResult = 1
   oCA.CursorRefresh()
   SEEK _cur_id.newid ORDER TAG tagname IN cursorname 
   USE IN _cur_id
ENDIF