Imagen condicional en Xbrowse

[JoseLuis]

Buenos dias

Tengo este codigo

Code: Select all  Expand view  RUN

       cAlias:= aAlias[24]

    @ 30, 0  XBROWSE oLbx OF oDlg;
    AUTOCOLS ALIAS cAlias UPDATE AUTOSORT LINES  ;
        COLUMNS "Estado","Albaran","Fecha","Pro","Pobla","CR","Prou","Pobla1","Baseimpo","kkilos","kilos","Factura","Codart","Tipo","Orden","nConductor","n_reexp","Spro","Graba","Operador";
    HEADERS "F"," Numero ", " Fecha ", " Cliente ", "Pobla", "T","Origen/Destino", "Pobla", " Importe ", " Bult. ", " Kilos "," Factura "," Tarifa ","Tipo","Orden"," Conductor " ,"Reexpedido","SPro","Fhora"," Operador ";
        ON LEFT DBLCLICK  (iif(!(aAlias[24])->(eof()) .and. Publicas:cAccesoM,(cTitulo:="Visualización de Albaranes ",Entalba1(cTitulo,"V",,aAlias),oLbx:Refresh()),.T.))
     for n := 1 to Len( oLbx:aCols )
      if oLbx:aCols[ n ]:cDataType == 'M'
         oLbx:aCols[ n ]:bStrData = GenLocalBlock( oLbx:aCols, n )
      endif
   next

        WITH OBJECT oLbx
    :lRecordSelector  := .F. // poner o no, columna de la flechita de la izquierda
        :nColDividerStyle := LINESTYLE_INSET
        :nRowDividerStyle := LINESTYLE_INSET
    :SetFocus()
    :SetChecks()
    :nColDividerStyle  := LINESTYLE_LIGHTGRAY //BLACK
        :lColDividerComplete := .t.
        :bClrStd:= { || { CLR_BLACK, If( oLbx:KeyNo % 2 == 0, nRGB(242,247,252),nRGB(226,226,208) ) } }
        :nMarqueeStyle := MARQSTYLE_HIGHLROW // Con cursor de todo el renglón
    :aCols[ 1 ]:nEditType       := TYPE_IMAGE
        :aCols[1]:AddResource("BMPENABLE")
        :aCols[1]:AddResource("BMPDISABLE")
        :aCols[1]:bBmpData := {|| Iif((cAlias)->Estado == 1 , 1 ,2 ) }
        :aCols[1]:lBmpStretch     := .t.
        :aCols[1]:lBmpTransparent := .T.
        :aCols[1]:nDataBmpAlign   := AL_LEFT
    END

        oDlg:oClient = oLbx
        oDlg:oControl = oLbx

    oLbx:CreateFromCode()
 

Y mi problema viene de que en la condición que doy en lBmpData, siempre me pone el Bmp numero 2, ya sea cuando (cAlias)->Estado tenga como valor 1 o cuando tenga como valor 2, siempre me pone el Bmp numero 2

Que puedo estar haciendo mal?

compilo para xharbour
Fwh Noviembre de 2015

Un saludo

[Armando]

José Luis:

Algo parecido me pasaba y lo resolví así, en

Code: Select all  Expand view  RUN

:aCols[1]:bBmpData := {|| DameBmp() }

……
…..

STATIC FUNCTION DameBmp()
     IF (cAlias)->Estado == 1
         RETURN(1)
     ELSE
         RETURN(2)
     ENDIF
RETURN(2)
 

Ojala también te funcione

Saludos

[JoseLuis]

Buenos dias

He probado y sigo en la misma situación, también he probado a llamar a los bmp desde el disco fisico, no desde recursos y estamos igual, siempre me pone el bmp que ponga en segundo lugar, no hace caso a la condicion if.

Así que de momento vuelvo en todas las pantallas que necesiten un bmp condicional a la clase wbrowse, que me está funcionando.

Un saludo

[Manuel Aranda]

Hola José Luís:

A mí este código me funciona bien, aunque no difiere mucho del tuyo:

Code: Select all  Expand view  RUN

   oCol := oLbx:AddCol()
   oCol:AddResource("LEVELB")
   oCol:AddResource("LEVELR")
   oCol:bBmpData   := { || IIF(EMPRESAS->Inactiva = .F.,1,2 )}
 

[FranciscoA]

José Luis:
Yo lo uso sin :aCols[ 1 ]:nEditType := TYPE_IMAGE, y me funciona. ( en FW1204 )
Intentalo.
Saludos.

[nageswaragunupudi]

Please remove

Code: Select all  Expand view  RUN

   :aCols[ 1 ]:nEditType       := TYPE_IMAGE
 

[Busmatic_wpb]

Buenas , estimado yo lo hago asi

WITH OBJECT :COCHE
:AddResource( "#1006" )
:AddResource( "#1007" )
:bBmpData := { || if ( ALLTRIM((oP:Situavl:fieldget(12)) ) == "FS" , 1, 2 ) }
:nHeadStrAlign = AL_CENTER
HeaderFont = fontB1
DataFont = fontB1
END
suerte..

[oliveiros junior]

Olá,

coloque também :bData := { || "" }, já aconteceu isso comigo e resolveu assim.

Att.,

Oliveiros Junior

[JoseLuis]

Buenas

Muchas gracias a todos.

Os pongo imagenes descriptivas, la primera columna es donde tiene que aparecer el bmp.

Con TYPE_IMAGE:
con type by Jose Luis Garcia, en Flickr


Sin TYPE_IMAGE:
sin type by Jose Luis Garcia, en Flickr


Con Wbrowse:
con wbrowse by Jose Luis Garcia, en Flickr

De momento lo dejo así.

Un saludo

[remtec]

No se si aun puede servir, pero yo lo hago asi.

Atte.

Antonio

Code: Select all  Expand view  RUN

                 REDEFINE XBROWSE oDlg5 ALIAS "&nro_usu2" FIELDS ;
                    Nro_bon,;
                    OemToAnsi(Nom_pac);
                    HEADERS;
                    "Nro. Guia",;
                  "Nombre del Paciente" ;
                    PICTURES '9999999999','@!' ;
                    ID 405 OF oDlg5 ;
                        FONT oFont1;
                        FOOTERS LINES CELL
                        oDlg5:nFreeze:=1


                    oCol := oDlg5:AddCol()
                    oCol:AddResource("#8013")
                    oCol:AddResource("#8014")
                        oCol:cHeader = "Est."