ADO and decimal numbers

[damianodec]

hi
I have this code

Code: Select all  Expand view

@ 40, 10 GET o_get VAR m_get MEMO OF dialog SIZE 450, 200   PIXEL

oRs := FW_OpenRecordSet( oCn, m_Get, 1 )
...
@ 40,10 XBROWSE oBrw SIZE -10,-50 PIXEL CELL AUTOSORT;
RECORDSET oRs AUTOCOLS;
OF oDlg2   
 

In m_get I put my Select... (Select * FROM...)
XBROWSE shows two decimal numbers but I want four decimal numbers
I can not to use PICTURE because SELECT change according to what I write in m_get

thank you

[Maurizio]

Ciao ,
try

SET DECIMALS TO 4

Maurizio
www.nipeservice.com

[damianodec]

Hi
ciao Maurizio

SET DECIMAL TO is inside at the top of .prg but not work with ADO

[nageswaragunupudi]

Please make this modification in your xbrowse.prg:

Please locate the following lines in METHOD SetColFromADO(...)

Code: Select all  Expand view

  CASE ASCAN( { 4, 5, 6 }, nType ) > 0  // Single, Double, Currency
      cType         := 'N'
      nLen          := oField:Precision
      nDec          := 2
 

Please change the last line as:

Code: Select all  Expand view

       nDec  := Set( _SET_DECIMALS )
 

Now, in your code
SET DECIMALS TO 4 and run your program
Please let us know if this is working ok for you.

[damianodec]

hi Mr Rao thank you
I try this in xbrowse.prg

Code: Select all  Expand view

  CASE ASCAN( { 4, 5, 6 }, nType ) > 0  // Single, Double, Currency
      cType         := 'N'
      nLen          := oField:Precision
      nDec          := Set( _SET_DECIMALS )
*     nDec          := 2

and in my.prg

Code: Select all  Expand view

  SET DATE ITALIAN
    SET DELETED ON
    SET CENTURY ON
    SET CONFIRM ON
    SET DECIMALS TO 4
    SET FIXED ON   

Inside file LINK1.RSP there is list of all .obj to compile and I put in xbrowse.obj

Code: Select all  Expand view

IF NOT ERRORLEVEL 1 IF EXIST *.obj c:\borland\bcc55\bin\ilink32 c0w32 @link1.rsp

Code: Select all  Expand view

...
prvmail.obj +
sendmail1.obj +
sendmail2.obj +
interact.obj +
xbrowse.obj +
funzio.obj, +
MYEXE.exe, +
MYEXE.map, ...+

but in my browse I still get two decimals

[damianodec]

I Mr Rao
in xBrowse i changed oCol:nDataDec in SetColFromADO METHOD

Code: Select all  Expand view

if nDec != nil
*      oCol:nDataDec  := Min( nDec, 2 )
       oCol:nDataDec  :=  nDec
endif

and now works

[nageswaragunupudi]

I Mr Rao
in xBrowse i changed oCol:nDataDec in SetColFromADO METHOD

Code: Select all  Expand view

if nDec != nil
*      oCol:nDataDec  := Min( nDec, 2 )
       oCol:nDataDec  :=  nDec
endif

and now works

This seems to be code from an older version.
Current version is just what you corrected.
So my first modification was working for me without problems