Page 1 of 1
¿Cómo colocar en xBrowse el ticket para campos lógicos?
Posted: Tue Apr 23, 2019 3:37 am
by 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.
Re: ¿Cómo colocar en xBrowse el ticket para campos lógicos?
Posted: Tue Apr 23, 2019 2:31 pm
by 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
Re: ¿Cómo colocar en xBrowse el ticket para campos lógicos?
Posted: Wed Apr 24, 2019 12:00 am
by wyerco613
Estimado Armando
OK, Voy a probarlo, muchas gracias.
Saludos de Colbún - Maule - Chile
Re: ¿Cómo colocar en xBrowse el ticket para campos lógicos?
Posted: Fri Apr 26, 2019 1:38 am
by 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