Добрый день!
Как обновить данные в форме, если они берутся из параметрического view при добавлении новой записи?

В Ините формы:

*********
PARAMETERS id_code - Ключевое поле таблицы "contract" (contract_id)
THISFORM.id_code = id_code (при добавлении = 0)

lnContractId = THISFORM.id_code
где lnContractId - параметр вьюхи, которая лежит в Dataenvironment с параметром NoDataOnLoad = .T.

Requery("v_contract")
=CURSORSETPROP("Buffering", 5, "v_contract")

IF THISFORM.id_code = 0
select v_contract
APPEND BLANK
ENDIF
************
В default value таблицы contract стоит функция получения нового значения ключа.
Данные по TableUpdate() благополучно попадают в исходную таблицу.

Повторная выдача Requery("v_contract") ничего не дает, т.к. вьюха о новом значении ничего не знает.
Как быть?

Спасибо,так и сделал. Но пришлось оборачивать в транзакцию для, если что, отката данных в табличке, где храняться последние значения ключевых полей.

LOCAL llSuccess,laError(1),lnNewRecContractId
llSuccess = .T.

BEGIN TRANSACTION
THISFORM.id_code = AddNewRecord("contract")

SELECT v_contract
replace contract_id WITH THISFORM.id_code

m.llSuccess = TableUpdate(.T.,.T.,"v_contract")

IF m.llSuccess = .T.
END TRANSACTION
ELSE
ROLLBACK
=AERROR(laError)
*Дальше анализ ошибки и вывод MESSAGEBOX*
ENDIF

Ну и lnContractId = THISFORM.id_code
Requery("v_contract")

Сорри, это не в Ините формы! Я забыл комменты вставить. Ночь, однако!
Собственно задачка в редактировании формы с данными один ко многим.
Т.е. шапка + спецификация в виде грида. Связка идет по полю contract_id

Получился вот такой рабочий полуфабрикат.

PARAMETERS id_code
THISFORM.id_code = id_code

THISFORM.grdDisloc.RecordSource = ""

LOCAL lnContractId
m.lnContractId = THISFORM.id_code

Requery("v_contr_cust")
Requery("v_disloc_address")

=CURSORSETPROP("Buffering", 5, "v_contr_cust") - шапка(одна строка)
=CURSORSETPROP("Buffering", 5, "v_disloc_address") - спецификация(много)

THISFORM.grdDisloc.RecordSourceType = 1
THISFORM.grdDisloc.RecordSource = "v_disloc_address"

IF THISFORM.id_code = 0
APPEND BLANK
ENDIF

В ините все, не считая кое-каких мелочей по установке значений по умолчанию в шапке.

Теперь сохранение. (опять же надо причесать)

LOCAL llSuccess,lnNewRecContractId,lnNewDislocId
llSuccess = .T.
BEGIN TRANSACTION

IF THISFORM.id_code = 0
*Новая запись*
THISFORM.id_code = AddNewRecord("contract")

SELECT v_contr_cust
replace contract_id WITH THISFORM.id_code
ENDIF

m.llSuccess = TableUpdate(.T.,.T.,"v_contr_cust")
IF m.llSuccess = .T.
*Если в шапке все в порядке, идем по строкам в спецификации*
SELECT v_disloc_address
IF GETNEXTMODIFIED(0,"v_disloc_address") <> 0
GO TOP
nRec=GETNEXTMODIFIED(0,"v_disloc_address")
DO WHILE nRec!=0
GO nRec
IF nRec < 0
*Новая*
lnNewDislocId = AddNewRecord("disloc")
SELECT v_disloc_address
*Занесение ключевых полей*
replace disloc_id WITH lnNewDislocId,contract_id WITH THISFORM.id_code
ENDIF

m.llSuccess = TableUpdate(0,.T.,"v_disloc_address")
IF m.llSuccess = .F.
EXIT
ENDIF
nRec=GETNEXTMODIFIED(nRec)
ENDDO
ENDIF
ENDIF

IF m.llSuccess = .T.
END TRANSACTION
ELSE
ROLLBACK
ENDIF

m.lnContractId = THISFORM.id_code

Requery("v_contr_cust")
Requery("v_disloc_address")
thisform.Refresh

Галочки везде где положено стоят, все работает.

Вот как-то так, и никаких дыр. Другое дело, что пока будет все это хозяйство заполняться транзакция будет висеть. Но в моем случае спецификация насчитывает не так много строк.
Что посоветуете? Я раньше с фоксовыми вьюхами не работал, какое-то недоверие к ним. Да и пока эти тестил, фокс успел докатиться при Requery() до "серьезного сбоя" так, что комп ребутить пришлось. Руки кривые может...

И родительская и доченяя могут меняться.
Классический пример - приходная накладная.
В шапке - номер,поставщик,дата, и пр.вещи.
В спецификации - перечень товаров с количеством и ценой,кол-во уже списанного.
Надо иметь возможность править и шапку и спецификацию(грид).

Класть на каждую форму кнопки добавить-изменить считаю дурным тоном. :)
В тулбаре программы одна кнопка для добавить,одна изменить для всех форм.

В форме для редактирования под спецификацией две - (+) (-). Или по правому щелчку на спецификации они же дублируются в контекстном меню.

Спасибо, :) Придется мудрить...