Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
I have a Problem......
Message
De
16/09/1998 16:45:17
 
 
À
16/09/1998 16:38:29
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00137484
Message ID:
00137491
Vues:
14
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform