Error en Listbox con Report

[Manuel Valdenebro]

Desde un dialogo, donde tengo un listbox con campos de la base de datos "x", pulsando un botón imprimo un listado (con previo) pero de otra DBF que tambien está abierta.

Al volver del previo (imprima o no) el listbox se disloca, duplicando los registros. Lo he intentado de varias formas, añadiendo oLbx:Refresh(), oLbx:upstable(), DBGOTOP(), tanto en el botón del diálogo, como al final del ACTIVE REPORT POSTEND. He intentado poniendo el previo modal y no modal, pero continua el problema. Solo funciona suprimiendo el previo ó colocándole un ALERT() cuando vuelve del proceso de impresión.

¿Alguna idea magistral?

Muchas gracias por vuestras ideas y un buen fin de semana.

[ADBLANCO]

Cual ListBox Utilizas?, En mi caso uso TwBrowse y SIEMPRE defino el alias;

oLbx:cAlias:='x'

Porque lo que te pasa es típico de perder el foco a la tabla.

[cmsoft]

No se si será la opcion, pero hace despues que reporte termine un select a la tabla que tiene el listbox.

Espero te sirva

Code: Select all  Expand view

SELECT (tabla_listbox)
DEFINE DIALOG ....
@ 10, 10 BUTTON oBot ACTION Reporte()
ACTIVATE DIALOG ...

STATIC FUNCTION Reporte()
...
SELECT (tabla_listbox)
RETURN nil


[Manuel Aranda]

Hola Manuel:

No hace mucho me topé con el mismo problema, y es que para imprimir con REPORT tienes que estar situado en el área de trabajo correspondiente (que alguien me corrija si me equivoco). Yo lo hago así y funciona correctamente:
............
Local nAreanterior:=SELECT()
DbSelectArea("GASTOS2")
REPORT
...............
..............
END REPORT
//
DbSelectArea(nAreanterior)
//

Saludos,
Manuel

[Manuel Valdenebro]

Muchas gracias a todos por responder.

Uso el listbox Twbrowse. En la definición del listbox, tengo un alias de su base y al final del report tengo un Select a dicha base, pero como dije antes, si no le pongo un ALERT de stop, la cosa se descontrola. Creo que quizas pueda ser que el preview crea un dialogo no-modal y que quizas esto produce el descontrol del listbox.