Если в ODBC таблицах нет изменений, использую TPS таблицы, если есть то полностью обновляю локальные TPS таблицы
с помощью этого кода
Spoiler
Код: Выделить всё
!Код наполнения данными из файла (pFM_) в копию файла (pFM2_)
OneSaveToTwoFile PROCEDURE (RelationManager pRM_,FileSynchronizationClass pFS_,FileManager pFM_,RelationManager pRM2_,FileManager pFM2_)
SET(pFM_.File)
Loop while pFM_.Next() = Level:Benign
CLEAR(pFM2_.File)
sourceRec &= pFM_.File{PROP:Record}
targetRec &= pFM2_.File{PROP:Record}
targetRec = sourceRec
IF pFM2_.Insert() = Level:Benign
ELSE
Message('Ошибка добавления записи: '& pFM2_.GetName() &'!<13,10>Ошибка: '& ERRORCODE() &' : '& ERRORFILE(),'Ошибка')
BREAK
END
END
Нужно, что то аналогичное как при использовании GET для поиска записи
Spoiler
Код: Выделить всё
SET(pFM_.File)
Loop while pFM_.Next() = Level:Benign
! что то вроде этого ================================
fileTPS.FieldPrimary = fileODBC.fieldPrimary
GET(fileTPS, fileTPSPrimaryKey)
IF ~ERRORCODE()
...
Update OR Delete record
ELSE
Insert record
END
END