Обработка удаления записи файла

[Anatoly]

При удалении выходит сообщение на подтверждение удаления подсвеченной записи, хотелось бы при подтверждении на удаление запротоколировать кто же это сделал. Но не могу найти точку вставки. Подскажите.

[Anatoly]

Забыл написать Clarion 6.3 ABC

[Игорь Столяров]

Привет !

Это не сложно. В форме для метода ThisWindow.PrimeUpdate делаешь 2 вставки:

ThisWindow.PrimeUpdate PROCEDURE

Loc:FlagDelete Byte(False)

Code

If (Self.Request = DeleteRecord)
! Здесь запомнили параметры удаляемой записи - вт.ч. и связанные записи для удаления.
! Например при удалении накладной - можно создать очередь с удаляемым содержанием накладной.
Loc:FlagDelete = True ! Запомнили, что метод вызван для удаления записи
end

ReturnValue = PARENT.PrimeUpdate()

If Loc:FlagDelete and (Self.Response = RequestCompleted)
! Запись и связанные с ней записи - успешно удалены
! Формируем протокол - по запомненным ранее параметрам удаленной записи
end

Все - удачи !

[Anatoly]

Спасибо, Игорь. Все работает.