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. ![]()
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. ![]()
José Vicente Beltrán wrote:... no encuentro el equivalente de SELECT <campo> FOR <valor> de TWBrowse...
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#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.> )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 ![]()
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