=cursorsetprop('buffering', 5, 'Appartm')

LOCAL llSuccess, llReSave, llIsOtherWrite, cStrN
llIsOtherWrite = .F.
llReSave = .T.
cOsobAccount1 = UPPER(ALLTRIM(THISFORM.cOsobAccount1.value))
nAppartNo1 = THISFORM.nAppartNo1.value
nZhilPl1 = THISFORM.nZhilPl1.value
nAllPl1 = THISFORM.nAllPl1.value
nOtopPl1 = THISFORM.nOtopPl1.value
nRoomsQuantity1 = THISFORM.nRoomsQuantity1.value
nPeopleQuantity1 = THISFORM.nPeopleQuantity1.value
nSubs1 = THISFORM.nSubs1.value
IF THISFORM.PrivateYN1.value = 1
nPrivat1 = 0
*THISFORM.cPrivateYN1.caption = "íåïðèâàòèçîâàíà"
ELSE
nPrivat1 = 1
*THISFORM.cPrivateYN1.caption = "ïðèâàòèçîâàíà"
ENDIF
* nPrivat1 = THISFORM.nPrivat1.Value
nPilgi = Pilgi.PilgiId

DO CASE
CASE THISFORM.new_red = "NEW"
cCommand = "INSERT INTO Appartm (Houseid, cOsobAccount, nAppartNo," + ;
"nZhilPl, nAllPl, nOtopPl, nRoomsQuantity," + ;
"nPeopleQuantity, nSubs, nPrivat, PilgiId)" + ;
"VALUES (THISFORM.ChosenHouseStreet, UPPER(ALLTRIM(THISFORM.cOsobAccount1.value))," + ;
"THISFORM.nAppartNo1.value, THISFORM.nZhilPl1.value, THISFORM.nAllPl1.value," + ;
"THISFORM.nOtopPl1.value, THISFORM.nRoomsQuantity1.value," + ;
"THISFORM.nPeopleQuantity1.value, THISFORM.nSubs1.value, nPrivat1, nPilgi)"

CASE THISFORM.new_red = "EDIT"
cCommand = "UPDATE Appartm SET cOsobAccount = cOsobAccount1," + ;
"nAppartNo = nAppartNo1, nZhilPl = nZhilPl1," + ;
"nAllPl = nAllPl1, nOtopPl = nOtopPl1," + ;
"nRoomsQuantity = nRoomsQuantity1, nPeopleQuantity = nPeopleQuantity1," + ;
"nSubs = nSubs1, nPrivat = nPrivat1, PilgiId = nPilgi" + ;
" WHERE Appartm.AppartmId=THISFORM.ChosenHouseStreet"

ENDCASE
SET EXACT ON
IF SEEK(cOsobAccount1, 'Appartm', 'nAppartN') &&AND THISFORM.new_red = "NEW"
= MESSAGEBOX("Îîñîáîâèé ðàóíîê " + cOsobAccount1 + " âæå ïðèñóòíié ó äîâiäíèêó",48, "Äóáëÿæ!!!")
ELSE

DO WHILE m.llReSave=.T.
llReSave = .F.
llSuccess = .T.
BEGIN TRANSACTION

&cCommand

* Ñáðîñ áóôåðà ïåðâîé òàáëèöû
IF m.llSuccess = .T.
llSuccess = TableUpdate(.T.,m.llIsOtherWrite,'Appartm')
ENDIF

* Ñáðîñ áóôåðà âòîðîé òàáëèöû
* IF m.llSuccess = .T.
* llSuccess = TableUpdate(.T.,m.llIsOtherWrite,'Tab2')
* ENDIF
* Ñáðîñ áóôåðà î÷åðåäíûõ òàáëèö
* ....

IF m.llSuccess = .F.
* Íåìåäëåííî ïðåêðàùàåì òðàíçàêöèþ
ROLLBACK
* Òåïåðü íóæåí àíàëèç ïðè÷èíû íåóäà÷è
LOCAL laError(1)
=AERROR(laError)
wait window str(m.laError)
IF m.laError = 1585
= MESSAGEBOX("Ïîêà äàííûé ïîëüçîâàòåëü ðåäàêòèðîâàë äðóãîé âíåñ èçìåíåíèÿ",48, "")
* Ïîêà äàííûé ïîëüçîâàòåëü ðåäàêòèðîâàë äðóãîé âíåñ èçìåíåíèÿ
* Åñëè ðåøèëè ïèñàòü ïîâåðõ, òî
*llIsOtherWrite = .T.
*llReSave = .T.
ELSE
* Àíàëèç êîäà îøèáêè è, âîçìîæíî, ïîâòîð ïîïûòêè èçìåíåíèé
* Åñëè ðåøèëè ïîâòîðèòü ïîïûòêó ñîõðàíåíèÿ ÍÈ×ÅÃÎ ÍÅ ÌÅÍßß
llReSave = .T.
ENDIF
ELSE
END TRANSACTION
ENDIF
ENDDO


thisform.release()

ENDIF

Sorry - авторство кода все же принадлежит Максимову а не мне!!!