topic-2962

Board index FiveWin para CA-Clipper Get, Get, y Mas Gets

Posts: 15

Joined: Wed Mar 29, 2006 02:46 PM

Get, Get, y Mas Gets
Posted: Mon May 08, 2006 01:07 PM

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

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Get, Get, y Mas Gets
Posted: Tue May 09, 2006 10:26 PM

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 Collapse

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 Collapse

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..

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

wmormar

Posts: 1076

Joined: Fri Oct 07, 2005 10:41 PM

Re: Get, Get, y Mas Gets
Posted: Thu May 11, 2006 01:49 AM

Wneskers wrote: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 Collapse

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

William, Morales

Saludos

méxico.sureste

FiveTech Support Forums

Continue the discussion