topic-37205

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Problem to Validate a data
Posted: Wed May 22, 2019 08:21 AM

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 (fw): Select all Collapse

 @ 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 (fw): Select all Collapse

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

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

armando.lagunas

Posts: 346

Joined: Mon Oct 05, 2009 03:35 PM

Re: Problem to Validate a data
Posted: Wed May 22, 2019 12:53 PM

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

Code (fw): Select all Collapse

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 (fw): Select all Collapse

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

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com

Silvio.Falconi

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Re: Problem to Validate a data
Posted: Wed May 22, 2019 03:48 PM

thanks

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

Enrico Maria Giordano

Posts: 9020

Joined: Thu Oct 06, 2005 08:17 PM

Re: Problem to Validate a data
Posted: Thu May 23, 2019 07:25 AM

armando.lagunas wrote:
Code (fw): Select all Collapse
   RETURN( .T. )   <---- aqui el problema
No problem here. It's a perfectly legal code.

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

FiveTech Support Forums

Continue the discussion