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
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only