cValToStr() error *Fixed*

[dutch]

It has occur an error while TXBrwose need to convert TIMESTAMP field in MySql. I try TDolphin but some field is TIMESTAMP and got an error.

Code: Select all  Expand view

  Path and name: D:\FWH1305\download\TDolphin\download\testpag.exe (32 bits)
   Size: 2,680,320 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20130903)
   FiveWin  Version: FWHX 13.11
   Windows version: 6.1, Build 7601 Service Pack 1

   Time from start: 0 hours 0 mins 1 secs
   Error occurred at: 06/18/14, 09:10:07
   Error description: Error BASE/1118  Argument error: TTOC
   Args:
     [   1] = C   ...

Stack Calls
===========
   Called from:  => TTOC( 0 )
   Called from: .\source\function\VALTOSTR.PRG => CVALTOSTR( 95 )

Thank you for any help and idea.

[nageswaragunupudi]

Mr Dutch

Please help me with the results of :
? oQry:FieldType( <ntimestampfield> )
? ValType( oQry:FieldGet( <timestamefield> ) )

If both results are 'T' then please make this modification:
Locate method SetColFromMySQL(...) in xbrowse.prg.
Please change the line

Code: Select all  Expand view

  CASE cType       == 'D'

as

Code: Select all  Expand view

  CASE cType       $ 'DT'

If in the above test,
? ValType( oQry:FieldGet( <timestamefield> ) )
returns 'C' instead of 'T', please insert these two lines just before "OTHERWISE"

Code: Select all  Expand view

CASE cType == 'T'
                  cType := 'C'
 

I shall be glad if you can respond early.

PS: Regret I am not able to test myself as my development PC is under maintenance.

[dutch]

Dear Mr.Rao,

I've test the result ValType() of TimeStamp field as below

Code: Select all  Expand view

   cValType := valtype( oQry:FieldGet( 'rta_stamp' )) return "C"
   cValType := oQry:FieldType( 'rta_stamp' )    return "T"
   cValType := valtype( oQry:rta_stamp )        return "C"

It has no error when I modified TXBrowse as your mention below.

Thanks a lot Mr.Rao

Mr Dutch

Please help me with the results of :
? oQry:FieldType( <ntimestampfield> )
? ValType( oQry:FieldGet( <timestamefield> ) )

If both results are 'T' then please make this modification:
Locate method SetColFromMySQL(...) in xbrowse.prg.
Please change the line

Code: Select all  Expand view

  CASE cType       == 'D'

as

Code: Select all  Expand view

  CASE cType       $ 'DT'

If in the above test,
? ValType( oQry:FieldGet( <timestamefield> ) )
returns 'C' instead of 'T', please insert these two lines just before "OTHERWISE"

Code: Select all  Expand view

CASE cType == 'T'
                  cType := 'C'
 

I shall be glad if you can respond early.

PS: Regret I am not able to test myself as my development PC is under maintenance.

[Antonio Linares]

Dutch,

Did you just applied this ?

CASE cType $ 'DT'

thanks,

(Going to include it in FWH 14.06)

[nageswaragunupudi]

Dutch,

Did you just applied this ?

CASE cType $ 'DT'

thanks,

(Going to include it in FWH 14.06)

No.
Test results of Mr Dutch indicate that though Dolphin returns fiedtype as 'T', it actually returns a character value not DateTime value. So if Dolphin says the fieldtype is 'T', we should consider it as 'C'.
So the fix must be:

Code: Select all  Expand view

CASE cType == 'T'
     cType := 'C'
     nLen   := 19

 

[Antonio Linares]

Rao,

Thanks for the clarification