xbrowse toExcel need help export bitmap column type

[carlos vargas]

hello, friends.
i have this code.

Code: Select all  Expand view

   ADD TO oBrw DATA IIf( CLIE->ACTIVO, 1, 2 )          TITLE "Act"         SIZE 030 BITMAP IN "BMS_BGREEN", "BMS_BPINK"  CENTER
   ADD TO oBrw DATA CLIE->NUM_CLIE                     TITLE "Nº Cliente*" SIZE 096 ORDER "NUM_CLIE" PICTURE "@L 999999" CENTER
   ADD TO oBrw DATA CLIE->NOMBRE                       TITLE "Nombre*"     SIZE 270 ORDER "NOMBRE"
   ADD TO oBrw DATA CLIE->CEDULA                       TITLE "Cédula*"     SIZE 120 ORDER "CEDULA"
   ADD TO oBrw DATA CIUD->NOMBRE                       TITLE "Ciudad"      SIZE 130
   ADD TO oBrw DATA RUTA->NOMBRE                       TITLE "Ruta cobro"  SIZE 120
   ADD TO oBrw DATA IIf( !Empty( CLIE->NOTAS ), 1, 0 ) TITLE "Nota"        SIZE 034 BITMAP IN "BMS_POSTIT"
 

when i try export to excel using the method toexcel
the column 1 and 7, no show any data. ok, both columns are bitmap type,
but exist any form to assing another data (logical for example).

i have an idea. using the tag data of txbrowse column object

oBrw:aCols[1]:Tag = "CLIE->ACTIVE" /*---------------------> To Excel ( 'True' or 'False' )

and the toexcel method use the tag data when export column is bitmap type.

y try modify the code but is complex for my.

sorry for my bad english.

salu2

[nageswaragunupudi]

Instead of

Code: Select all  Expand view

  ADD TO oBrw DATA IIf( CLIE->ACTIVO, 1, 2 )          TITLE "Act"         SIZE 030 BITMAP IN "BMS_BGREEN", "BMS_BPINK"  CENTER
 

Use this code

Code: Select all  Expand view

  ADD TO oBrw DATA CLIE->ACTIVO          TITLE "Act"         SIZE 030
oBrw:Act:SetCheck( { "BMS_BGREEN", "BMS_BPINK" } )
 

No need to change any code in XBrowse.

[carlos vargas]

thank you, rao,

this work.

salu2