FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour 驴C贸mo colocar en xBrowse el ticket para campos l贸gicos?
Posts: 79
Joined: Wed Mar 06, 2019 08:28 PM
驴C贸mo colocar en xBrowse el ticket para campos l贸gicos?
Posted: Tue Apr 23, 2019 03:37 AM

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.

"Porque Jehov谩 da la sabidur铆a , Y de su boca viene el conocimiento y la inteligencia Proverbios 2:6"

FWH 1903 + Bcc7 + PellesC + XEdit easycomp613@gmail.com

Waldemar
Colb煤n Chile
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: 驴C贸mo colocar en xBrowse el ticket para campos l贸gicos?
Posted: Tue Apr 23, 2019 02:31 PM
yo lo utilizo de esta forma:

Code (fw): Select all Collapse
                      //-- 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]:SetCheck(...), correponde al nombre del Header de la columna del campo l贸gico "ASIG" de la dbf de paso

Saludos
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
Posts: 79
Joined: Wed Mar 06, 2019 08:28 PM
Re: 驴C贸mo colocar en xBrowse el ticket para campos l贸gicos?
Posted: Wed Apr 24, 2019 12:00 AM

Estimado Armando

OK, Voy a probarlo, muchas gracias.

Saludos de Colb煤n - Maule - Chile

"Porque Jehov谩 da la sabidur铆a , Y de su boca viene el conocimiento y la inteligencia Proverbios 2:6"

FWH 1903 + Bcc7 + PellesC + XEdit easycomp613@gmail.com

Waldemar
Colb煤n Chile
Posts: 79
Joined: Wed Mar 06, 2019 08:28 PM
Re: 驴C贸mo colocar en xBrowse el ticket para campos l贸gicos?
Posted: Fri Apr 26, 2019 01:38 AM

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

"Porque Jehov谩 da la sabidur铆a , Y de su boca viene el conocimiento y la inteligencia Proverbios 2:6"

FWH 1903 + Bcc7 + PellesC + XEdit easycomp613@gmail.com

Waldemar
Colb煤n Chile

Continue the discussion