Уважаемые ГУРУ

Помогоите разобоаться с обновлением таблиц через КАД

This.PayICADPtr = CreateObject('CursorAdapter') && PayI

With This.PayICADPtr
.DataSource = CAdSourceHdr && Указатель на источник данных
.DataSourceType = CAdSourceType && Тип источника данных
.Tables = "PayI"
.Alias = "cPayI"
.BufferModeOverride = 5
.SelectCmd = "Select * from PayI where RecIdent=?RecID"
EndWith


if !This.PayICADPtr.CursorFill() && Заполнение курсора (1 запись)
AError(laErrors)
MessageBox(laErrors[2])
return(.F.)
endif

Scatter memo NAME ThisForm.PayIDataPtr && Считать поля записи в об"ект Scatter


* Редактирование полей записи в об"екте PayIDataPtr на форме


* обновление таблицы

Select cPayI && Курсор от PayI

With ThisForm.PayICADPtr
.UpdateType = 1
.KeyFieldList = 'RecIdent'

m.NameList = Field(1) +Space(1) + .Tables + "." + Field(1)
m.FieldList = Field(1)

for i=2 to FCount()
m.NameList = m.NameList + "," + Field(i) +Space(1) + .Tables + "." + Field(i)
m.FieldList = m.FieldList + "," + Field(i)
endfor

.UpdateNameList = m.NameList && Список изменяемых полей
.UpdatableFieldList = m.FieldList
EndWith


UPDATE cPayI where RecIdent = ThisForm.DocID SET;
PayDocNum = ThisForm.PayIDataPtr.PayDocNum


Дает ошибку Alias PAYDATAPTR not found

хотя вариант

m.aaa = ThisForm.PayIDataPtr.PayDocNum

UPDATE cPayI where RecIdent = ThisForm.RecID SET;
PayDocNum = m.aaa

проходит без проблем.


Получается , что все поля из об'екта придется перенести в локальные переменные,
а потом запускать Update ?

Или есть другое решение ?

to проходящий

Редактировать прямо в курсоре не трудно, если это существующая запись,

а как редактировать добавляемую запись -

добавить в курсор пустую запись и встать на нее ?

и чем добавлять: append blank или Insert SQL ?

to проходящий

А если User в дальнейшем отказался от добавления записи в форме,
что делать с курсором ? Пустая запись уже не нужна.

Обновить курсор? И чем ?

to проходящий

Еще один вопрос

В записи есть поля, которые непосредственно не редактируются,
например номер (ID) организации, а находятся в свойстве формы.

Чем их перенести в запись - через Replace ?

to проходящий

Если можно, буду благодарен

to проходящий

Спасибо, попробую разобраться

to проходящий

Есть еще одна проблема.

В каждой записи есть вычисляемое поле RecIdent - идентификатор записи

Для его получения и наращивания на +1 используется процедура, которая
напрямую через Use открывает таблицу идентификаторов, блокирует ее по FLock(),
находит тек. значение RecIdent для нужной таблицы,
увеличивает его на 1 и возвращает новое значение.

Таблицы от FoxPro for DOS, т.е. Identity не поддерживают, поменять на новый формат
не могу - их FPD не открывает.

Напрямую я, как понимаю, через КАД заблокировать таблицу идентификаторов
на время поиска и вычисления след. идентификатора не смогу.

Из тех вариантов, которые нашел - хранимая процедура в DBC файле,
но при добавлении в DBC таблиц от FPD VFOX 9.0 сразу пытается
их конвертировать в новый формат - засада для FPD

Есть ли еще варианты решения этой проблемы ?

Мне хотелось все сделать однообразно через ODBC

AlexiS, за идею хранилища хранимок спасибо. Обязательно попробую

По КАДу:

неужели возможно, используя события Befor и After, четко гарантировать
что между созданием курсора из таблицы идентификаторов, его модификацией и
сбросом на сервер
туда не вклинится еще кто-нибудь и не получит старое значение идентификатора
и получим 2 записи с одним ID соответственно

А есть какой-либо рабочий вариант процедуры расчета и получения ID

Можно его сделать достоянием публики ?