Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problems to Requery a View.
Message
From
07/06/1999 22:10:04
Anderson Girardi
Athenas Automação de Escritório
Porto Alegre, Brazil
 
General information
Forum:
Visual FoxPro
Category:
Troubleshooting
Miscellaneous
Thread ID:
00226929
Message ID:
00227326
Views:
46
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
Map
View

Click here to load this message in the networking platform