Ronald i thank you nowly

see my code:

LOCAL lcCustomer_id, lcOrder_ID, liRecno, lcId_Config
lcId_Config = Config.Id_Config


=TableRevert(.t.,"vItemConfiguracao")
=TableRevert(.t.,"ItemConfig")

lcOrder_ID = oApp.DoFormRetVal("ProcurarFornMat")

IF !EMPTY(lcOrder_id) AND !ISNULL(lcOrder_id)
liRecno = RECNO("vItemConfiguracao")
If !Seek(lcOrder_id,"vItemConfiguracao","Id_FornMat")
Append Blank In vItemConfiguracao
Replace vItemConfiguracao.Id_Config With lcId_Config in vItemConfiguracao
Replace vItemConfiguracao.IdFornMat With lcOrder_ID In vItemConfiguracao
Replace Config.PrecoReal With Config.PrecoReal + vMateriais.PrecoReal In Config
Replace Config.PrecoDolar With Config.PrecoDolar + vMateriais.PrecoDolar In Config
EndIf
ELSE
Return
ENDIF


Select ItemConfig
=TableUpdate(.t.)
=Requery("vItemConfiguracao")
ThisForm.Refresh