Problem FW 12.01 with date()

[Maurizio]

Antonio
in this sample

Code: Select all  Expand view

#Include "FiveWin.Ch"


Function Main()
   Local oDlg
   Local oGet1,oGet2
   local nVar2 := 0
   local dVar4 := ctod('  -  -    ')
   
   SET DATE ITALIAN
   SET CENTURY ON
   SET EPOCH TO 1960
   

   DEFINE DIALOG oDlg from 0,0 to 200,400 pixel

   @ 1,5 get oGet1 var dVar4
   
   @ 4,5 get oGet2 var nVar2 picture "99999"
   
   ACTIVATE DIALOG oDlg
 
 return nil

In the date I insert 02-02-12 when I confirm the get I have "02-02-12" , if I return on the get with the arrow key I have "02-02-2012"
the refresh doesn't working properly

Regard Maurizio
FWH 12.01 + Harbour

[Antonio Linares]

Maurizio,

In FWH\sources\classes\tget.prg line 1227 please insert this:

Code: Select all  Expand view

   ::oGet:KillFocus()  // new
   ::oGet:SetFocus()  // new
   ::DispText()
 

[Antonio Linares]

Better this way to avoid conflicts with other data types:

Code: Select all  Expand view

   if ::oGet:Type == "D"
      ::oGet:KillFocus()
      ::oGet:SetFocus()
   endif  
   ::DispText()
 

[Maurizio]

Thanks Antonio

Maurizio
www.nipeservice.com