Date issue - extremely frustrating!

Anonymous · Post by **Anonymous** » Sat Jun 15, 2019 2:33 am

Hi again. I have one screen where no matter what I do, the date will not format correctly. I've stuck SetDateFormat, SetDateCountry and SetInternational all over the place trying to get it to work, and nothing makes any difference. I've wasted hours on it. Below are images displaying the correct format, and another where the date is incorrect. The incorrect screen is called by pressing the "List Jobs" Button. This is the code:

METHOD ListJobsButton( ) CLASS JobInfo
Local oRecord as string

SetDateFormat("dd/MM/yyyy")
SetInternational(#Clipper)

oRecord := self:Server:FIELDGET(#CLCODE)

If self:oSFJobInfo_DETAIL:CurrentView == #FormView
self:oCCListJobsButton:Caption := "View Record"
self:oSFJobInfo_DETAIL:Server:OrderScope(TOPSCOPE, oRecord)
self:oSFJobInfo_DETAIL:Server:OrderScope(BOTTOMSCOPE, oRecord)
self:oSFJobInfo_DETAIL:GoTop()
self:oSFJobInfo_DETAIL:ViewTable()
ELSE
self:oSFJobInfo_DETAIL:ViewForm()
self:oCCListJobsButton:Caption := "List Jobs [F4]"

END IF

RETURN self

The properties for the window are attached as is the Fieldspec for the problem field. Any ideas would be greatfully received. Thanks

Jamal · Post by **Jamal** » Sat Jun 15, 2019 4:40 am

Looks strange! As if the DataBrowser is not respecting the SetDateFormat.
It's been a long time since I used DataBrowser (I now use bBrowser), but I think you can get better control if you use the DataColumn class to create the data columns. Something like this (not tested):

LOCAL oColumn AS DataColumn
LOCAL oServer AS DbServer

oServer := DbServer{"yourserver.dbf"}

SELF:use(oServer )

SELF:Browser := oSFJobInfo_DETAIL{SELF}

oColumn := DataColumn{}
oColumn :width := 15
oColumn :HyperLabel:= HyperLabel{#JOBDATE}
oColumn:Caption := "Job Date"
oColumn:FieldSpec := DateFS{} // your fieldspec
SELF:browser:addColumn(oColumn )

SELF:ViewAs(#BrowseView)

Jamal

BiggyRat · Post by **BiggyRat** » Sat Jun 15, 2019 4:54 am

Thanks very much Jamal, I'll try that right now, and you're right, it does seem to be ignoring the SetDateFormat. That's what's so frustrating!

UPDATE: No, that didn't work either Jamal... Here's the code I used:

local oColumn
SetDateFormat("dd/MM/yyyy")
oColumn := DataColumn{}
oColumn :Width := 15
oColumn :HyperLabel:= HyperLabel{#JOBDATE}
oColumn:Caption := "Job Date"
oColumn:FieldSpec := DateFS{#JOBDATE} // your fieldspec
self:browser:addColumn(oColumn )

robert · Post by **robert** » Sat Jun 15, 2019 5:19 am

Jeff,

Try SetCentury(TRUE). Does that make a difference ?

Robert

BiggyRat · Post by **BiggyRat** » Sat Jun 15, 2019 5:37 am

Nope, sorry Robert, but thanks

Karl-Heinz · Post by **Karl-Heinz** » Sat Jun 15, 2019 6:38 am

Hi Jeff,

Hard to believe that Roberts SetCentury ( TRUE ) advice doesn´t help ....

SetInternational (#Clipper) sets SetCentury() to false. Therefore, you must add a setcentury (true) after the SetInternational (#Clipper).

SetInternational(#Clipper)
SetCentury(TRUE)

Just tried it with the VO-Databrowser. In a date column the year is correctly shown, either with 2 or 4 digits - without any attached fieldspec.

Seriously asked: Is there more than *one* SetInternational (#Clipper) call in you app ?

regards
Karl-Heinz

Jamal · Post by **Jamal** » Sat Jun 15, 2019 6:54 am

Confirming what Robert and Karl said:

This does not work:

Code: Select all

  SetCentury(true)            // Does not work here
  SetDateFormat("dd/MM/yyyy")    
  SetInternational(#Clipper)

This works:

Code: Select all

  
  SetDateFormat("dd/MM/yyyy")    
  SetInternational(#Clipper) 
  SetCentury(true)  // MUST be set after SetInternational(#Clipper)

Jamal

BiggyRat · Post by **BiggyRat** » Sat Jun 15, 2019 7:36 am

Thanks Jamal and Karl-Heinz, but it seems much more sinister things are at work. VO Crashed completely and could't access the repository, So I deleted the whole thing and copied my backup copy of VO onto my PC (not installed, as I've stated before, I have no idea where my VO CD is.)

Whatever I do, I cannot get my app to run at all. I've re-indexed the project, and I get all sorts of varying errors at runtime like my Main Menu is an unknown class etc. On top of that I'm still getting an error in CAVOPP.DLL as I wrote the other day, it crashed exactly at 14 seconds to go every compile. It crashes with the "sorry!" screen, I restart VO and and compile again, it restarts where it left off, and compiles.

Also attached it the current error when trying to start my app. I'm guessing a DLL error, but I have NFI which one...

So now, I'm trying to rebuild the repository, and I get the attached message. Seriously It was never this hard. VO always worked like a dream, now I struggle to get the damn thing to stay stable.

I've asked this before without much success, but does anyone have a full install file that I can wipe my entire PC and start with VO 2.8SP4 fresh? There are just too many things going wrong with my version, and I think every time I copy it back from my old files, I'm probably re-importing the same problems.

robert · Post by **robert** » Sat Jun 15, 2019 12:36 pm

Jeff,
If you mail me your VO 2.8 SP4 serial number, then I will verify that number.
If the number is correct then I'll mail you a download link for a SP4 installer.

Robert at XSharp dot EU

BiggyRat · Post by **BiggyRat** » Sat Jun 15, 2019 1:32 pm

Brilliant. Thank you so much Robert. Check your messages

Main menu