Another problem with new XbrGetDate - RESOLVED!!!

Another problem with new XbrGetDate - RESOLVED!!!

Postby Silvio.Falconi » Wed Jul 03, 2019 11:17 am

I have this Get

Code: Select all  Expand view  RUN
@ 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: Select all  Expand view  RUN

     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: Select all  Expand view  RUN

@ 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 :

Image

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
Last edited by Silvio.Falconi on Fri Jul 05, 2019 5:41 pm, edited 1 time in total.
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7075
Joined: Thu Oct 18, 2012 7:17 pm

Re: Another problem with new XbrGetDate

Postby Silvio.Falconi » 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 November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7075
Joined: Thu Oct 18, 2012 7:17 pm

Re: Another problem with new XbrGetDate

Postby Silvio.Falconi » Thu Jul 04, 2019 7:58 pm

resolved
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)
I use : FiveWin for Harbour November 2023 - January 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
User avatar
Silvio.Falconi
 
Posts: 7075
Joined: Thu Oct 18, 2012 7:17 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 40 guests