Get, Get, y Mas Gets

[Wneskers]

1. Estimados amigos, como hago en un cuardo de dialogo o en un folder para que el sistema le indique al usuario que dejo campos sin rellenar, por ejemplo: SI EN LA PRIMERA CARPETA LE FALTO EL NOMBRE EN LA SEGUNDA LE FALTO UN PORCENTAJE EL SISTEMA LE INDIQUE QUE NO PUEDE GRABAR CON UN MENSAJES QUE DIGA "El nombre no puede estar vacio" etc... e indicarme en que parte del programa ponerlo,

2. Por otra parte en la siguiente intruccion:

oFld:aDialogs[2]:bGotFocus:={ || oCodPro:SetFocus() }

cuando la aplico en unos casos la ingnora en otros me dice QUE ES NUMERIC y el programa da error. en que parte del programa deberia palicar esta intruccion, en el get afectado?, en el get que esta antes de primere get del segundo folder? si alguien me puede ayudar,


Otra cosa los concejos que me han dado han sido muy utiles, y agradezco la ayuda

Atte:
William Neskers
Venezuela

[leandro]

Amigo que pena no te pude enviar el correo ayer, pero aqui esta la respuesta.

1. Esta es para saber que get esta blanco.

Code: Select all  Expand view

IF Empty(oGet1)
  MSGINFO("Digite Nombre")
ELSE
  ..... ejecutas el proceso
ENDIF


2. Si estas en una pestaña diferente en el get para que pase el foco a la otroa haces lo siguiente:

ofld:Setoption(1)

3. para que tome el foco hazlo de la siguiente manera:

oget1:setfocus(.t.)

En resumidas cuentas lo que creo que quieres hacer es lo siguiente:

Code: Select all  Expand view

IF Empty(oGet1)   //Si el get se encuentra vacio
  MSGINFO("Digite Nombre")
  ofld:setoption(1) //selecionas la pestaña que debe tomar el foco
  oget1:setfocus(.t.) //tomas el foco del objeto seleccionado
ELSE   //Si el valor el correcto
  ..... ejecutas el proceso
ENDIF


Espero te sirva..

[wmormar]

1. Estimados amigos, como hago en un cuardo de dialogo o en un folder para que el sistema le indique al usuario que dejo campos sin rellenar, por ejemplo: SI EN LA PRIMERA CARPETA LE FALTO EL NOMBRE EN LA SEGUNDA LE FALTO UN PORCENTAJE EL SISTEMA LE INDIQUE QUE NO PUEDE GRABAR CON UN MENSAJES QUE DIGA "El nombre no puede estar vacio" etc... e indicarme en que parte del programa ponerlo,

2. Por otra parte en la siguiente intruccion:

oFld:aDialogs[2]:bGotFocus:={ || oCodPro:SetFocus() }

cuando la aplico en unos casos la ingnora en otros me dice QUE ES NUMERIC y el programa da error. en que parte del programa deberia palicar esta intruccion, en el get afectado?, en el get que esta antes de primere get del segundo folder? si alguien me puede ayudar,


Otra cosa los concejos que me han dado han sido muy utiles, y agradezco la ayuda

Atte:
William Neskers
Venezuela

William (o como decimos en México, tocayo),

Code: Select all  Expand view

FUNCTION main()
DEFINE DIALOG oDlg ....
  @ 10,10 SAY "Nombre" OF oDlg
  @ 11,10 SAY "Edad" OF oDlg
  @ 10,20 GET oGet[1] VAR cNombre PICTURE "@k!" OF oDlg
  @ 11,20 GET oGet[2] VAR nEdad PICTURE "999" OF oDlg
  @ 13,10 BUTTON oBtn SIZE 100,50 ACTION grabar(cNombre,nEdad)
ACTIVATE DIALOG oDlg
RETURN NIL
//**
FUNCTION grabar(cNombre,nEdad)
  IF EMPTY(cNombre)
      MSGINFO("Debe de agregar el nombre...","Información")
      RETURN NIL
  ENDIF
  IF nEdad <= 0
      MSGINFO("La edad debe ser mayor que 0 (cero)","Información")
      RETURN NIL
  ENDIF
  * Aqui se graba
RETURN NIL


Bueno, espero haber ayudado