NO VALIDA GET

[remtec]

Amigos

Muy buen día.

Tengo un problema y no encuentro la solución.

Lo que debo hacer es que el usuario Ingrese la Fecha de Nacimiento y vaya a validar a la rutina, Debe Obligar a ingresar fecha de nacimiento y luego calcular la edad.

Hoy como tengo el codígo muestra el mensaje "Debe Ingresar Fecha de Nacimiento", pero igual sigue al siguiente Get, la idea es que lo obligue a ingresar fecha.

Muchos Saludos.

Antonio.

Muestro el Codigo actual:

Code: Select all  Expand view

     ...............
     ...............
     @ 090,180 GET oGet2    Var Ape_Pac1       SIZE 350,22 PIXEL OF oDlg2      COLOR RGB(0,0,128)   FONT oFont4 UPDATE
     @ 120,180 GET oGet3    Var Nom_Pac1       SIZE 350,22 PIXEL OF oDlg2      COLOR RGB(0,0,128)   FONT oFont4 UPDATE
     @ 150,180 GET oGet4    Var Fec_Nac1       SIZE 110,22 PIXEL OF oDlg2   PICTURE "@d"   COLOR RGB(0,0,128)   FONT oFont4 UPDATE ;
            Valid  If(Calcula_Edad(Fec_Nac1),oGet4:SetFocus,.T.)

     @ 150,390 SAY oGet5    Var Eda_Pac1       SIZE 30,22 PIXEL OF oDlg2      COLOR RGB(0,0,128)   FONT oFont4   BORDER
     @ 180,180 GET oGet6    Var _       SIZE 30,22 PIXEL OF oDlg2      COLOR RGB(0,0,128)   FONT oFont4   UPDATE
     @ 240,180 GET oGet7    Var Dir_Pac1       SIZE 200,22 PIXEL OF oDlg2      COLOR RGB(0,0,128)   FONT oFont4 UPDATE
     @ 270,180 GET oGet8    Var Cod_Ciu1       SIZE 30,22 PIXEL OF oDlg2      COLOR RGB(0,0,128)   FONT oFont4    UPDATE
     @ 300,180 GET oGet9    Var Cod_Com1       SIZE 30,22 PIXEL OF oDlg2      COLOR RGB(0,0,128)   FONT oFont4    UPDATE

     @ 460,500 BTNBMP SIZE 60,50 PROMPT "SALIR"  OF oDlg2 PIXEL 2007  FONT oFont6 oGroup FLAT;
        filename"c:\Desa\FichasWin\Iconos\door_in.png" ToolTip  "SALIR DEL SISTEMA";
        ACTION (oDlg2:End())


     @ 460,50 BTNBMP  SIZE 60,50 PROMPT "ACTUA" OF oDlg2 2007 FONT oFont6 oGroup FLAT;
        filename"c:\Desa\FichasWin\Iconos\edit.png" ToolTip "MODIFICAR DATOS" ;
        ACTION (oGet1:SetFocus() )


     @ 460,200 BTNBMP  SIZE 60,50 PROMPT "GRABA" OF oDlg2 2007  FONT oFont6 oGroup FLAT;
        filename"c:\Desa\FichasWin\Iconos\disk.png" ToolTip "GRABA DATOS" ;
        ACTION ( Graba_Paci() )



     ACTIVATE DIALOG oDlg2 CENTERED

Return

** Rutina Que Calcula Edad

Function Calcula_Edad(F_Naci)

        If Empty(F_Naci)
            MsgStop( "Debe Ingresar Fecha de Nacimiento")
            return(.F.)
        Endif

        If ( F_Naci > date() )

           MsgStop( "La Fecha de Nacimiento Debe ser Menor que o Igual a "+dtoc(date()) )
           return(.F.)
       Endif

        Stor 0 to anos,ndias,mese,eda_paci
        na=F_Naci
        ac=date()
        ndias=ac-na
        anos=int(ndias/365.25)
        ndias=ndias-(365.25*anos)
        mese=int(ndias/30.4375)
        Eda_Pac1=anos

        return (.T.)


 

[Armando]

Remtec:

Parece que el problema esta aquí

Code: Select all  Expand view

 Valid  If(Calcula_Edad(Fec_Nac1),oGet4:SetFocus,.T.)
 

Siempre estas devolviendo (.T.)

Intenta así:

Code: Select all  Expand view

 Valid  Calcula_Edad(Fec_Nac1)
 

Saludos

[remtec]

Hola Armando

Muchas gracias por responder.

Aplique tu sugerencia, NO me actualiza la oGet5, que es la Eda_Pac1, que se calcula en la función.

Saludos

Antonio

[Armando]

Remtec:

Asignale la clausula UPDATE a:

Code: Select all  Expand view

 @ 150,390 SAY oGet5    Var Eda_Pac1       SIZE 30,22 PIXEL OF oDlg2      COLOR RGB(0,0,128)   FONT oFont4   BORDER [color=#FF0040]UPDATE
[/color]

Y en Calcula_Edad mándale el dialogo

Code: Select all  Expand view

Valid  Calcula_Edad(oDlg2,Fec_Nac1)
 

Y en la función Calcula_Edad(oDlg2,Fec_Nac1)
…..
….
….
….
oDlg2:UpDate()
RETURN(.T.)

Saludos

[remtec]

Hola Armando.

Nada, no actuliza la Eda_Pac1.

Saludos
Antonio

Code: Select all  Expand view

     @ 150,180 GET oGet4    Var Fec_Nac1       SIZE 110,22 PIXEL OF oDlg2   PICTURE "@d"   COLOR RGB(0,0,128)   FONT oFont4 UPDATE ;
                                                  Valid  Calcula_Edad(oDlg2,Fec_Nac1)

 

Code: Select all  Expand view

Function Calcula_Edad(oDlg2,F_Naci)

        If Empty(F_Naci)
         MsgStop( "Debe Ingresar Fecha de Nacimiento")
         return(.F.)
        Endif
        If ( F_Naci > date() )

         MsgStop( "La Fecha de Nacimiento Debe ser Menor que o Igual a "+dtoc(date()) )
         return(.F.)
      Endif

        Stor 0 to anos,ndias,mese,eda_paci
        na=F_Naci
        ac=date()
        ndias=ac-na
        anos=int(ndias/365.25)
        ndias=ndias-(365.25*anos)
        mese=int(ndias/30.4375)
        Eda_Pac1=anos

        oDlg2:UpDate()
        return (.T.)

 

[Armando]

Antonio:

Disculpa, no me había dado cuenta de que el oGET5 no es un get es un SAY

Prueba así

Code: Select all  Expand view

......
......
oGet5:SetText(Eda_Pac1)
oDlg2:UpDate()
return (.T.)
 

Saludos

[remtec]

Hola Armando

Super, funciono perfecto.

Muchas gracias.

Saludos

Antonio.

[Willi Quintana]

Hola amigos:

Code: Select all  Expand view

   @ 150,180 GET oGet4    Var Fec_Nac1       SIZE 110,22 PIXEL OF oDlg2   PICTURE "@d"   COLOR RGB(0,0,128)   FONT oFont4 UPDATE ;
            Valid(Calcula_Edad(Fec_Nac1),oGet4:SetFocus,.T.)