FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Actualizando de TWBrowse a XBrowse
Posts: 282
Joined: Mon Oct 10, 2005 08:55 AM
Actualizando de TWBrowse a XBrowse
Posted: Fri Nov 01, 2013 02:34 PM

Estoy actualizando el código de una antigua aplicación pero no encuentro el equivalente de SELECT <campo> FOR <valor> de TWBrowse para convertirlo a xBrowse.
¿Alguien me puede echar una mano?
Gracias desde ya. :shock:

Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Actualizando de TWBrowse a XBrowse
Posted: Fri Nov 01, 2013 08:07 PM
José;
Estas seguro que esa sentencia pertenece a TWBrowse?.
José Vicente Beltrán wrote:... no encuentro el equivalente de SELECT <campo> FOR <valor> de TWBrowse...

Nunca la use, ni tengo conocimiento de ella.
Que mostraba tu WBrowse, archivos: DBF?, ADO?, MYSQL?
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 282
Joined: Mon Oct 10, 2005 08:55 AM
Re: Actualizando de TWBrowse a XBrowse
Posted: Fri Nov 01, 2013 08:58 PM
Mario, gracias por contestar, uso DBF, te indico el codigo.

Code (fw): Select all Collapse
    REDEFINE LISTBOX oLibx ;
                FIELDS STR(partidas->cod_estad,5),;
                      STR(partidas->p_bruto,12,2),;
                      STR(partidas->p_neto,12,2),;
                      STR(partidas->valor,12,2);
                         ID 101 OF oFld:aDialogs[2];
                         FONT oFontG;
                         COLOR CLR_BLACK, 16511708;
                     FIELDSIZES 45,210,100,100;
                     HEADERS "Cod", "P.bruto","P.neto","Valor";
                     SELECT partidas->n_exped FOR xn_exped


La ultima linea es el motivo de mi pregunta, es la que marca el rango de registros que se debe presentar en el browse. :-)
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Re: Actualizando de TWBrowse a XBrowse
Posted: Sat Nov 02, 2013 01:43 AM
José;
pues, aparte de que me hiciste concer algo nuevo, te cuento que si lo tiene: mirá el .ch
Code (fw): Select all Collapse
#xcommand @ <nRow>, <nCol> [ COLUMN ] XBROWSE  <oBrw>  ;
               [ [ FIELDS ] <Flds,...>] ;
               [ <dsrc: ALIAS, ARRAY, RECSET, RECORDSET, OBJECT, DATASOURCE> <uDataSrc> ] ;
               [ <sizes:FIELDSIZES, SIZES, COLSIZES> <aColSizes,...> ] ;
               [ <head:HEAD,HEADER,HEADERS> <aHeaders,...> ] ;
               [ <pic: PICS, PICTURE, PICTURES> <aPics,...> ] ;
               [ <cols: COLS, COLUMNS> <aCols,...> ] ;
               [ <idx: SORT,ORDERS> <aSort,...> ] ;
               [ JUSTIFY <aJust,...> ] ;
               [ SIZE <nWidth>, <nHeigth> ] ;
               [ ID <nID> ] ;
               [ <dlg:OF,DIALOG> <oWnd> ] ;
               [ SELECT <cField> FOR <uValue1> [ TO <uValue2> ] ] ;
               [ <change: ON CHANGE, ON CLICK> <uChange> ] ;
               [ ON [ LEFT ] DBLCLICK <uLDblClick> ] ;
               [ ON RIGHT CLICK <uRClick> ] ;
               [ FONT <oFont> ] ;
               [ CURSOR <oCursor> ] ;
               [ <color: COLOR, COLORS> <nClrFore> [,<nClrBack>] ] ;
               [ MESSAGE <cMsg> ] ;
               [ <update: UPDATE> ] ;
               [ <pixel: PIXEL> ] ;
               [ WHEN <uWhen> ] ;
               [ <design: DESIGN> ] ;
               [ VALID <uValid> ] ;
               [ <autosort: AUTOSORT> ] ;
               [ <autocols: AUTOCOLS> ] ;
               [ <footers: FOOTERS> ] ;
               [ <fasted: FASTEDIT> ] ;
               [ <lcell: CELL> ] [ <llines: LINES> ] ;
               [ ROWS <aRows> ] ;
               [ BACKGROUND <uBack> [ <bckmode: TILED, STRETCH, FILL, VERTICAL, HORIZONTAL> ] ] ;
               [ CLASS <child> ] [ <transp: TRANSPARENT> ] [ <noborder: NOBORDER> ] ;
      => ;
          <oBrw> := XbrowseNew( <oWnd>, <nRow>, <nCol>, <nWidth>, <nHeigth>,;
                           [ \{ <{Flds}> \} ], ;
                           [\{<aHeaders>\}], [\{<aColSizes>\}], ;
                           [<{uChange}>],;
                           [\{|nRow,nCol,nFlags|<uLDblClick>\}],;
                           [\{|nRow,nCol,nFlags|<uRClick>\}],;
                           <oFont>, <oCursor>, <nClrFore>, <nClrBack>, <cMsg>,;
                           <.update.>, <uDataSrc>, <{uWhen}>,;
                           <.design.>, <{uValid}>, <.pixel.>, [<nID>], <.autosort.>, <.autocols.> , ;
                           [\{<aPics>\}], [\{<aCols>\}],;
                           [\{<aJust>\}], [\{<aSort>\}], <.footers.>, <.fasted.>, ;
                           <.lcell.>, <.llines.>, <aRows>, <uBack>, [upper(<(bckmode)>)], ;
                           [ If( ValType( <child> ) == 'B', <child>, <{child}> ) ], <.transp.>, <.noborder.> )


Estuve buscando un sample, aunque no en profundidad, y no econtré
Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 282
Joined: Mon Oct 10, 2005 08:55 AM
Re: Actualizando de TWBrowse a XBrowse
Posted: Sat Nov 02, 2013 09:51 AM

Mario
Parece que en este caso AMBOS hemos aprendido algo nuevo, muchas gracias por tu información, ahora me toca a mi buscar los ejemplos :shock:

Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Actualizando de TWBrowse a XBrowse
Posted: Sat Nov 02, 2013 08:43 PM

José,

Revisando conversaciones de Mr. Rao que es el mejor experto con la Clase TXBrowse he encontrado esto:

viewtopic.php?p=147969#p147969

Por lo visto no lo tenemos disponible y hay que hacerlo como él indica en su mensaje

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion