LOCAL v && 
**  4 -е строки кода излишни их можно заменить одной 
*SELECT disp1 
*v=NEWID('disp1') 
*APPEND BLANK 
*REPLACE disp1.code WITH v
**
insert intp disp1 (code) values (NewID('disp1'))
** или в Default поля code поставить NewID()

** Здесь в принципе не правильно, результат ф-ии TableUpdate надо проверять
*= TABLEUPDATE(.T.)
*
*LOCATE FOR code =v
*IF NOT FOUND() 
*GO TOP
*ENDIF
*THISFORM.Grid1.Refresh()
*IF FOUND('disp1')
*THISFORM.Grid1.column2.SetFocus()
*ENDIF 
**
if not tableupdate(.t.,.t.,'disp1') 
aerror(arr)
= messagebox ('Не все ладно в датском королевстве' + arr( 2 ))
go top in disp1
else
THISFORM.Grid1.column2.SetFocus()
endif

USED("tablist")=.T. AND SEEK(lcAlias,"tablist","Tablename")=.T. AND ISRLOCKED(RECNO("tablist"),"tablist")=.F. AND RLOCK("tablist")=.T.

IF m.llIsUsedTabList=.F.
    USE tablist IN  0  shared
ENDIF

USED("tablist")=.T. AND SEEK(lcAlias,"tablist","Tablename")=.T. AND RLOCK("tablist")=.T.