Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
I have a Problem......
Message
From
16/09/1998 16:45:17
 
 
To
16/09/1998 16:38:29
General information
Forum:
Visual FoxPro
Category:
Other
Miscellaneous
Thread ID:
00137484
Message ID:
00137491
Views:
15
Here is the code...

Dialog = 4 + 32 + 256
* 4 = Botones Sí y No
* 32 = Icono del signo de interrogación
* 256 = El segundo botón es el predeterminado
nRec = recno("reclamos")
sele valid_rcl && Copy from Reclamos, use to looking up the value repit
locate for thisform.poste.value=poste and thisform.elementos.value=idelemento and thisform.fallas.value=idfalla and estado_act="01" and !recno("valid_rcl")=nRec
if found()
nodefault && To prevent the usual LostFocus from acting
resp =messagebox("El Reclamo que esta Tratando de Agregar, ya esta en la Base de Datos.",Dialog,"Control de Reclamos")
thisform.poste.setfocus()
if resp = 6
thisform.refresh()
endif
endif
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform