Я работаю с Oracle и VFP

БД не любят операции удаления я ее заменяю операцией update
Но для этого при построении всех таблиц добавляю два поля
unicod С(10) и out C(1) которые по умолчанию устанавливаю unicod = sys(2015) out = [1] в свойствах таблицы.
Когда мне необходимо удалить запись я устанавливаю out = [0] все поля (кроме unicod) очищаю.
В дальнейшем эту запись испльзую для новой записи.

При этом -

Кнопка Удаление :

*!* SET STEP ON

IF ctunicod <> [ ]
update tabvid SET vidp = 0,;
opis = [],;
poz = [],;
out = [0];
WHERE tabvid.unicod = ctunicod
WAIT [Проведено вилучення] WINDOW AT 20,20 TIMEOUT 2
ENDIF
ntvidp = 51
ctvidp = []
ctopis = []
ctznachv = []
ctunicod = [ ]
ThisForm.text1.Refresh
ThisForm.text2.Refresh
ThisForm.text3.Refresh
thisform.Grid1.setfocus
*!* ThisForm.Release
*!* DO FORM Forms\fredind
RETURN

Кнопка ЗАПИСЬ :

*!* SET STEP ON

IF ctunicod <> [ ]
BEGIN TRANSACTION
update tabvid SET vidp = ntvidp,;
opis = ALLTRIM(ctopis),;
poz = ALLTRIM(ctznachv);
WHERE tabvid.unicod = ctunicod
WAIT [Проведено коригування] WINDOW AT 20,20 TIMEOUT 2
*** Внесення змін в довідник табелю
update tabln SET znachv = ALLTRIM(ctznachv);
WHERE tabln.vidp = ntvidp
END TRANSACTION
WAIT [В зв'язку з проведеною зміною в довіднику типів відпусток проведено коригування довідника табелю] WINDOW AT 20,20 TIMEOUT 2

ELSE
RELEASE atabvid
SELECT unicod FROM tabvid WHERE out = [0];
INTO ARRAY atabvid
IF TYPE([atabvid]) # && Если массив существует

update tabvid SET vidp = ntvidp,;
opis = ctopis,;
poz = ctznachv,;
out = [1];
WHERE tabvid.Out = [0] AND tabvid.Unicod = atabvid(1)
Else
INSERT INTO tabvid (vidp,opis,poz);
VALUES (ntvidp,ALLTRIM(ctopis),ALLTRIM(ctznachv))
EndIf

WAIT [Проведено запис] WINDOW AT 20,20 TIMEOUT 2
ENDIF
ntvidp = 51
ctvidp = [ ]
ctopis = []
ctznachv = []
ctunicod = [ ]
ThisForm.text1.Refresh
ThisForm.text2.Refresh
ThisForm.text3.Refresh
thisform.Grid1.setfocus
*!* ThisForm.Release
*!* DO FORM Forms\fredind
RETURN

Если понравилось - Удачи.