Problem to Validate a data

[Silvio.Falconi]

on my app I dont use Dtpicker but two get ad you can see on picture



and I use the XBrDtPicker of Rao to select a adate
as you can see I have problem to validate the get

Code: Select all  Expand view

 @ 23,144 GET aGet[4] VAR dDataFinale SIZE 120,14 PIXEL OF oFld:aDialogs[1] ;
    BITMAP  ".\bitmaps\cal.bmp" ;
    ACTION (dDataFinale:=XBrDtPicker(Conv_Textdate(dDataFinale,3) , "Seleziona una  data",0.1,,aGet[4] ),;
    IIF( dDataFinale=ctod(""),;
               aGet[4]:cText( "Selezionare una data"),;
               aGet[4]:cText(Convertidata(dDataFinale))),;
           aGet[4]:refresh(),;
           nGiorni:=(Conv_Textdate(dDataFinale,3)-Conv_Textdate(dDataIniziale,3) ),;
            oSay[1]:settext(str(nGiorni)),;
            oSay[1]:refresh(),;
            oSay[2]:refresh()) VALID ValidareData( Conv_Textdate(dDataIniziale,3), Conv_Textdate(dDataFinale,3) )


 

the conv_textDate is function to converte string date to date format made from Uwe on another post

Code: Select all  Expand view

FUNCTION ValidareData( dFechaIni, dFechaFin )
   IF ( dFechaIni > dFechaFin )
      alert( "La data finale deve essere  maggiore di quella finale " )
      RETURN( .F. )
   ENDIF
   RETURN( .T. )

[armando.lagunas]

devuelve el valor .t. o .f. desde una variable local

Code: Select all  Expand view

FUNCTION ValidareData( dFechaIni, dFechaFin )
   IF ( dFechaIni > dFechaFin )
      alert( "La data finale deve essere  maggiore di quella finale " )
      RETURN( .F. )
   ENDIF
   RETURN( .T. )   <---- aqui el problema
 

solución:

Code: Select all  Expand view

FUNCTION ValidareData( dFechaIni, dFechaFin )
   LOCAL lValid := .T.

   IF ( dFechaIni > dFechaFin )
      alert( "La data finale deve essere  maggiore di quella finale " )
      lValid := .F.
   ENDIF
   RETURN  lValid
 

[Silvio.Falconi]

thanks

[Enrico Maria Giordano]

[quote="armando.lagunas"]

Code: Select all  Expand view

   RETURN( .T. )   <---- aqui el problema

No problem here. It's a perfectly legal code.

EMG