Progress - Leer browser

   
Vista:

Leer browser

Publicado por reheba renher33@hotmail.com (17 intervenciones) el 14/04/2011 00:46:02
hola a todos tengo un browser de una tabla que lleno de datos, tengo filtros y clasificaciones en el, al terminar quiero que los datos que quedaron en el browser y su orden de la informacion, leerlo para mandarlo a un reporte . muchas gracias BYE
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Leer browser

Publicado por DparteD (129 intervenciones) el 15/04/2011 19:32:51
Espero que sea esto lo que necesitas, es un ejemplo en el que se llena una Tabla temporal con los registros contenidos en un Browser ( en el ejemplo se muestra el código minimo para ser comprendido.

/***************************************************************************************************/
/**** llena una tabla temporal con los registros contenidos en un Browser ***/
/***************************************************************************************************/

DEFINE TEMP-TABLE TSELECT
FIELD TSANO LIKE TABLA1.ANOPED
FIELD TSABONO LIKE TABLA1.PEDIDO.

/******* DISPLAY DEL QUERY ********/
DISPLAY
TABLA1.ANOPED COLUMN-LABEL "Año"
TABLA1.PEDIDO COLUMN-LABEL "Número" FORMAT ">>>,>>9"

/**** OBTIENE LA SELECCIÓN DEL QUERY EN UNA TABLA TEMPORAL *****/

ASSIGN
hquery = br_table:QUERY
hbuffer = hquery:GET-BUFFER-HANDLE(1)
hAnoNum = hBuffer:BUFFER-FIELD("ANOPED").
hAbonoNum = hBuffer:BUFFER-FIELD("PEDIDO").
hquery:get-first(NO-LOCK, NO-WAIT).
DO icount = 1 TO hquery:NUM-RESULTS:
CREATE TSELECT.
TSELECT.TSANO = hAnoNum:BUFFER-VALUE.
TSELECT.TSABONO = hAbononum:BUFFER-VALUE.
hquery:GET-NEXT(NO-LOCK, NO-WAIT).
END.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Leer browser

Publicado por reheba (17 intervenciones) el 19/04/2011 01:09:46
Ok muchas gracias si funciona.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar