FiveTech Support Forums

Armando, ¿qué pasaría si lo dejas así?:
aCol[ 9]:bBmpData := { || IIF(oRsHdr:Fields("HDR_CAN"):Value,1,2) }

Francisco:

Te agradezco la respuesta pero no, me sale exactamente igual.

Saludos

Tienes razón. Hice pruebas y tampoco me exporta a excel la imagen.

Mi código es así:

  **:MF:cDataType := "P"
  :MF:cToolTip:="Masculino/Femenino"
  :MF:nWidth := 24
  :MF:nEditType := TYPE_IMAGE
  :MF:lBmpStretch     := .t.
  :MF:lBmpTransparent := .T.
  :MF:bStrImage       := {|| if(upper((oLbx:cAlias)->MF)= "M",".\hombre.bmp",".\mujer.bmp") }

Francisco:

Aunque en mi caso no necesito la imagen sino algo que indique que el registro esta cancelado, tal vez un
(.T.) o (.F.), no necesariamente la imagen de los checkbox

A ver si alguien nos da más luz.

Saludos

ToExcel() exports images also.

But please keep in mind, ToExcel() exports the evaluated result of bEditValue but not bBmpData or bStrImage. ( btw bStrImage is now obsolete for long. oCol:bEditValue itself can return image buffer or image file name if cDataType is set to 'F' )

FranciscoA wrote:Tienes razón. Hice pruebas y tampoco me exporta a excel la imagen.

Mi código es así:

**:MF:cDataType := "P"
:MF:="Masculino/Femenino"
:MF:nWidth := 24
:MF:nEditType := TYPE_IMAGE
:MF:lBmpStretch := .t.
:MF:lBmpTransparent := .T.
:MF:bStrImage := {|| if(upper((oLbx:cAlias)->MF)= "M",".\hombre.bmp",".\mujer.bmp") }

#include 'hbcompat.ch'

REQUEST DBFCDX

function Main()

   local oDlg, oBrw, oFont

   RDDSETDEFAULT( "DBFCDX" )
   SET DELETED OFF
   USE CUSTOMER

   DEFINE FONT oFont NAME 'TAHOMA' SIZE 0,-12
   DEFINE DIALOG oDlg SIZE 640,400 PIXEL FONT oFont

   @ 30,10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg ;
      COLUMNS "First","City" ;
      ALIAS "CUSTOMER" CELL LINES NOBORDER

   ADD TO oBrw DATA !(oBrw:cAlias)->(DELETED()) HEADER "Status"
   oBrw:aCols[ 3 ]:SetCheck()

   ADD TO oBrw DATA If( (oBrw:cAlias)->Married, "c:\fwh\bitmaps\users.bmp", "c:\fwh\bitmaps\user.bmp" ) ;
      HEADER "Marital"
   WITH OBJECT ATail( oBrw:aCols )
      :cDataType     := 'F'
      :nWidth        := 40
   END

   oBrw:nRowHeight   := 40
   oBrw:CreateFromCode()

   @ 10,10 BUTTON "ToExcel" SIZE 40,12 PIXEL OF oDlg ACTION oBrw:ToExcel()

   ACTIVATE DIALOG oDlg CENTERED ON INIT ( oBrw:SetFocus(), .f. )
   RELEASE FONT oFont

return nil

nageswaragunupudi wrote:Your code

Code (fw): Select all Collapse

aCol [ 9 ] : = oRsHdr: EOF ( ) , 2 , IIF ( oRsHdr: Fields ( "HDR_CAN" ) : Value , 1 , 2 ) ) }

itself is wrong. This code even should give a syntax error while compiling.

You are assigning a numeric value to the browse column object and thereby destroying the browse column object itself.

Probably you wanted to assign it as a codeblock to oCol[9]:bBmpData.
In that case, the code should be:

Code (fw): Select all Collapse

aCol [ 9 ]:bBmpData : = { || oRsHdr: EOF ( ) , 2 , IIF ( oRsHdr: Fields ( "HDR_CAN" ) : Value , 1 , 2 ) ) }

        aCol[ 9]                            := oBrw:AddCol()
        aCol[ 9]:AddResource("SI")
        aCol[ 9]:AddResource("NO")
        aCol[ 9]:cHeader                := "Can"
        aCol[ 9]:bBmpData               := { || IF(oRsHdr:BOF() .AND. oRsHdr:EOF(),2,IIF(oRsHdr:Fields("HDR_CAN"):Value,1,2)) }
        aCol[ 9]:nHeadBmpAlign      := AL_RIGHT

Armando,
y si ya tienes el campo en el recordset como logico, condiciona al exportar si es .T. envia como dato de la columna a excel "CANCELADO", sino "ACTIVO"
digo, se me ocurre...

salu2
pak.o

Paquito (el del barrio? )

Te agradezco la sugerencia pero resulta que con llamar al método oBrw:ToExcel() xBrowse se encarga
de hacer la tarea, yo no meto mano a nada, al menos no se cómo hacerlo

Un abrazo

Amando,

bueno y porque no lo haces al vuelo,,,
se me ocurre, cuando das click para exportar, oBrw:ToExcel(), antes de esto, duplica o clona tu recordset, cambia el dato de la columna9, en lugar de una imagen pon el texto, luego envias a excel y cuando termine, regresa tu recordset clonado a original y listo...
REDEFINE BUTTON "a Excel" ACTION( clonarrecordset(), oBrw:ToExcel(), cloanrecordset() )
jeje la solucion del barrio,
salu2
pak.o

Francisco Horta wrote:Amando,

bueno y porque no lo haces al vuelo,,,
se me ocurre, cuando das click para exportar, oBrw:ToExcel(), antes de esto, duplica o clona tu recordset, cambia el dato de la columna9, en lugar de una imagen pon el texto, luego envias a excel y cuando termine, regresa tu recordset clonado a original y listo...
REDEFINE BUTTON "a Excel" ACTION( clonarrecordset(), oBrw:ToExcel(), cloanrecordset() )
jeje la solucion del barrio,
salu2
pak.o

        aCol[ 9]  := oBrw:AddCol()
        aCol[ 9]:AddResource("SI")
        aCol[ 9]:AddResource("NO")
        aCol[ 9]:cHeader                := "Can"
        aCol[ 9]:bBmpData               := { || IF(oRsHdr:BOF() .AND. oRsHdr:EOF(),2,IIF(oRsHdr:Fields("HDR_CAN"):Value,1,2)) }
        aCol[ 9]:nHeadBmpAlign      := AL_RIGHT

        aCol[ 9]    := oBrw:AddCol()
        aCol[ 9]:cHeader      := "Can"
        aCol[ 9]:bEditValue := { || oRsHdr:RecordCount() > 0 .and. oRsHdr:Fields("HDR_CAN"):Value }
        aCol[ 9]:SetCheck( { "SI","NO" } )

Rao,
Bueno, claro que se me ocurrio asi, pensando que Armando no quiera quitar la imagen de su xbrowse, pero...
Claro es mucho mejor, solucion rapida y efectiva,,, lo tendre en mente (bEditValue),jeje
saludos
pak.o

Francisco Horta wrote:Rao,
Bueno, claro que se me ocurrio asi, pensando que Armando no quiera quitar la imagen de su xbrowse, pero...
Claro es mucho mejor, solucion rapida y efectiva,,, lo tendre en mente (bEditValue),jeje
saludos
pak.o