¿Cómo colocar en xBrowse el ticket para campos lógicos?

[wyerco613]

Estimados.

Ya revise todos los ejemplos (los que encontré) y no he podido ver el código donde se hace esto en Xbrowse y yampoco los bitmaps.

Muchas Gracias desde Ya.

[armando.lagunas]

yo lo utilizo de esta forma:

Code: Select all

                      //-- Folder 3-1
                    
                              REDEFINE  XBROWSE  oBrw[ 5] ID  21 COLUMNS "ASIG","CODI","NOMB" ALIAS "SI16" OF oFld:aDialogs[1] FONT xFont NOBORDER AUTOSORT FOOTERS

                              oBrw[5]:aCols[ 1]:cHeader   := "Estado"             ;  oBrw[5]:aCols[ 1]:nWidth        :=  50
                              oBrw[5]:aCols[ 2]:cHeader   := "Código"             ;  oBrw[5]:aCols[ 2]:nWidth        :=  60
                              oBrw[5]:aCols[ 3]:cHeader   := "Nombre de Bodega"   ;  oBrw[5]:aCols[ 3]:nWidth        := 320

                              oBrw[5]:nHeaderLines        :=  2
                              oBrw[5]:Estado:SetCheck( { FWBmpOn(), FWBmpOff() }, EDIT_GET )

                      //--

 

FWBmpOn(), FWBmpOff() son los bitmap por defecto de Fivewin, puedes reemplazarlos por los que usas personalmente, ya sea por recursos o ficheros

fijate en oBrw[5]:Estado:SetCheck(...), correponde al nombre del Header de la columna del campo lógico "ASIG" de la dbf de paso

Saludos

[wyerco613]

Estimado Armando


OK, Voy a probarlo, muchas gracias.


Saludos de Colbún - Maule - Chile

[wyerco613]

Estimados, No me funciona

Aquí mi código

@ 0,0 XBROWSE oBrwPen;
FIELDS if(Pend->MARCA,Tic,Bla),;
Dtoc(Pend->FECHA),Pend->CORR,;
Pend->DETALLE,;
Transform(Pend->VALOR,"@E 99,999,999");
HEADERS "M","FECHA","CORRELATIVO","DETALLE","VALOR";
ON DBLCLICK ( Marca(PEND),oBrwPen:DrawSelect() );
FONT oLetra

oBrwPen:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrwPen:M:SetCheck( , .t. )
oBrwPen:CreateFromCode()
oVenChPen:oClient:=oBrwPen

oVenChPen:bPostEnd := { || ( aNomBas[PEND] )->( DBCLOSEAREA() ) }

ACTIVATE WINDOW oVenChPen;
ON INIT ( oVenChPen:SetFocus() );
VALID( alBases[PEND]:=.F.,.T. )

Desde ya muchas gracias