topic-37402

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Another problem with new XbrGetDate - RESOLVED!!!
Posted: Wed Jul 03, 2019 11:17 AM

I have this Get

@ 08,144 GET aGet[3] VAR dDataStart SIZE 120,14 PIXEL OF oFolder:aDialogs[1] ;
          BITMAP "c:\work\fwh\bitmaps\32x32\calendar.bmp" ;
          ACTION (dDataStart := XbrGetDate(  ,"Seleziona una data",{^ 2019/06/15 }, {^ 2019/09/20 } ,,0.6 ),;
               IIF( dDataStart=ctod("") .or. dDataStart=nil ,;
                          aGet[3]:cText( "Selezionare una data")            ,;
                          aGet[3]:cText(Convertidata(dDataStart)))       ,;
                           aGet[3]:refresh()   )

it run good but Instead of {^ 2019/06/15 }, {^ 2019/09/20 }

I wish insert my dates min and Max ( because I cannot Know them)

I have these date on a ini file :

Code (fw): Select all Collapse

     Local cIniFile  := TakeOffExt( GetModuleFileName( GetInstance() ) ) + ".ini"
     Local dBassa1   := GetPvProfString("Stagioni", "BASSA1","17.05.", cIniFile)
     Local dBassa4   := GetPvProfString("Stagioni", "BASSA4","20.09.", cIniFile)
     Local dStagioneMin:=  dBassa1+ltrim(str(year(date())))
     Local dStagioneMax:=  dBassa4+ltrim(str(year(date())))
     Local dDatalimiteMin
     Local dDatalimiteMax

        dDatalimiteMin := ctod(dStagioneMin)
        dDatalimiteMax := ctod(dStagioneMax)
        dDataStart:= Convertidata(dCheckIn )

if I made

Code (fw): Select all Collapse

 
@ 08,144 GET aGet[3] VAR dDataStart SIZE 120,14 PIXEL OF oFolder:aDialogs[1] ;
          BITMAP "c:\work\fwh\bitmaps\32x32\calendar.bmp" ;
          ACTION (dDataStart := XbrGetDate(  ,"Seleziona una data",dDatalimiteMin, dDatalimiteMax ,,0.6 ),;
               IIF( dDataStart=ctod("") .or. dDataStart=nil ,;
                          aGet[3]:cText( "Selezionare una data")            ,;
                          aGet[3]:cText(Convertidata(dDataStart)))       ,;
                           aGet[3]:refresh()   )

it run but the calendar showed bad as you can see here :

How I can resolve ?

I try to converte my dates with

Local dBassa12 := GetPvProfString("Stagioni", "BASSA1","05/17", cIniFile)
Local dBassa42 := GetPvProfString("Stagioni", "BASSA4","09/20", cIniFile)

dStagioneMin:= "{^ "+ltrim(str(year(date())))+"/"+dBassa12+" }"
dStagioneMax:= "{^ "+ltrim(str(year(date())))+"/"+dBassa42+" }"

dDatalimiteMin := ctod(dStagioneMin)
dDatalimiteMax := ctod(dStagioneMax)

but the calendar make errors

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

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: Another problem with new XbrGetDate
Posted: Thu Jul 04, 2019 10:19 AM

ahh ok
there is error with GetPvProfString command on HArbour not run

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

Silvio.Falconi

Posts: 7318

Joined: Thu Oct 18, 2012 07:17 PM

Re: Another problem with new XbrGetDate
Posted: Thu Jul 04, 2019 07:58 PM

resolved

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

FiveTech Support Forums

Continue the discussion