Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
I have a Problem......
Message
De
16/09/1998 16:49:18
 
 
À
16/09/1998 16:45:17
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Divers
Thread ID:
00137484
Message ID:
00137497
Vues:
13
>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

Anyway I have to leave in few minutes, and have no time to look at this right now. I hope someone else will help you here. However, I have a concern: few days ago you posted exactly the same code and didn't give any written explanations what this code should do.
Edward Pikman
Independent Consultant
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform