Error al imprimir

[Walter Fedeli]

Hola Como andan?

Se me presenta un error al imprimir con la Tprint, 

Error: Non top modal window *NULL0000000931* can't be released. Program terminated.

Llamada desde TFORMMODAL:RELEASE (2199) in h_form.prg
Llamada desde TAPPLICATION:WINMHRELEASE (2266) in h_application.prg
Llamada desde TPDFPRINT:RELEASE (365) in h_print.prg
Llamada desde IMPRIMIR_FE (702) in C:\WVENTAS\ws_imp_fe.Prg
Llamada desde IMP_BOLE (2781) in C:\WVENTAS\LibFunWve.prg
Llamada desde IMP_BOLE_CLI (3668) in C:\WVENTAS\f_Pedido.prg
Llamada desde FACTURARPEDIDO (3364) in C:\WVENTAS\f_Pedido.prg
Llamada desde (b)F_PANT_PEDIDO (362) in C:\WVENTAS\f_Pedido.prg
Llamada desde (b)EVAL (0)
Llamada desde _OOHG_EVAL_ARRAY (0)
Llamada desde TBUTTON:DOEVENT (1921) in h_controlmisc.prg
Llamada desde TBUTTON:DOEVENTMOUSECOORDS (1937) in h_controlmisc.prg
Llamada desde TBUTTON:EVENTS_COMMAND (2221) in h_controlmisc.prg
Llamada desde TWINDOW:EVENTS (0) in h_windows.prg
Llamada desde _OOHG_TFORM_EVENTS2 (1819) in h_form.prg
Llamada desde TFORMMODAL:EVENTS (0) in h_form.prg
Llamada desde _OOHG_DOMESSAGELOOP (0)
Llamada desde TFORMMODAL:MESSAGELOOP (647) in h_form.prg
Llamada desde _ACTIVATEWINDOW (2870) in h_form.prg
Llamada desde F_PANT_PEDIDO (1161) in C:\WVENTAS\f_Pedido.prg
Llamada desde FPEDIDO (241) in C:\WVENTAS\f_Pedido.prg
Llamada desde NUEVOPRESU (470) in C:\WVENTAS\f_PresupuestoClien.prg
Llamada desde (b)FPRESUPUESTOCLIEN (183) in C:\WVENTAS\f_PresupuestoClien.prg
Llamada desde (b)EVAL (0)
Llamada desde _OOHG_EVAL_ARRAY (0)
Llamada desde TBUTTON:DOEVENT (1921) in h_controlmisc.prg
Llamada desde TBUTTON:DOEVENTMOUSECOORDS (1937) in h_controlmisc.prg
Llamada desde TBUTTON:EVENTS_COMMAND (2221) in h_controlmisc.prg
Llamada desde TWINDOW:EVENTS (0) in h_windows.prg
Llamada desde _OOHG_TFORM_EVENTS2 (1819) in h_form.prg
Llamada desde TFORMMODAL:EVENTS (0) in h_form.prg
Llamada desde _OOHG_DOMESSAGELOOP (0)
Llamada desde TFORMMODAL:MESSAGELOOP (647) in h_form.prg
Llamada desde _ACTIVATEWINDOW (2870) in h_form.prg
Llamada desde FPRESUPUESTOCLIEN (227) in C:\WVENTAS\f_PresupuestoClien.prg
Llamada desde (b)MAIN (1555) in C:\WVENTAS\WVENTAS.PRG
Llamada desde (b)EVAL (0)
Llamada desde _OOHG_EVAL_ARRAY (0)
Llamada desde TTOOLBUTTON:DOEVENT (1921) in h_controlmisc.prg
Llamada desde TTOOLBUTTON:DOEVENTMOUSECOORDS (1937) in h_controlmisc.prg
Llamada desde TTOOLBAR:EVENTS_COMMAND (310) in h_toolbar.prg
Llamada desde TWINDOW:EVENTS (0) in h_windows.prg
Llamada desde _OOHG_TFORM_EVENTS2 (1819) in h_form.prg
Llamada desde TFORMMAIN:EVENTS (0) in h_form.prg
Llamada desde _OOHG_DOMESSAGELOOP (0)
Llamada desde TFORMMAIN:MESSAGELOOP (647) in h_form.prg
Llamada desde _ACTIVATEWINDOW (2870) in h_form.prg
Llamada desde MAIN (1585) in C:\WVENTAS\WVENTAS.PRG

la linea que da el error es oPrint:Release()

He probado varias cosas y no logro que no de el error

oprint:enddoc()
IF HB_ISOBJECT( oPrint )
BEGIN SEQUENCE WITH {|i6| break(i6)}
oPrint:Release()
RECOVER
oPrint := NIL
END SEQUENCE
ENDIF
RETURN NIL

Alguien tiene alguna idea o sugerencia para poder aplicarla ?

Gracias

Saludos

Walter Fedeli

[Ciro Vargas C]

Intenta esto 

IF HB_ISOBJECT( oPrint )

   oPrint:End()

   oPrint := NIL

ENDIF

Saludos 

https://www.cyrusitexpert.com/
donaciones para CVC  generales  https://www.paypal.com/cgi-bin/webscr?cmd=_s-xclick&hosted_button_id=5369884

--
Has recibido este mensaje porque estás suscrito al grupo "[oohg]" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a oohg+uns...@googlegroups.com.
Para ver este debate, visita https://groups.google.com/d/msgid/oohg/881c17c7-5e02-4b0b-981c-20114ca1105dn%40googlegroups.com.

[Rosario Giuffré]

Como estas Walter.

Es un tema que ya se trató. Si buscas en el foro vas a encontrar posibles soluciones.

Yo renegue bastante con este problema. Todo indica que se quiere cerrar una ventana que ya no existe.

Tprint genera su propia ventana. Tienes que desglosar la rutina de impresión y ver en qué momento se cierra.
Yo lo pude solucionar después de renegar bastante, pero no encontré lo que realmente lo provocaba. 

Básicamente prolijé una rutina compleja de impresión y el problema se solucionó.

No es mucha ayuda pero busca en el foro.

Saludos

Rosario Giuffré

SoftSar Sistemas

Para ver este debate, visita https://groups.google.com/d/msgid/oohg/CALMx0uC0bK8FuQgYdZhkQGUhaHQ21QmfY_1rG2J0m3N98g_UDQ%40mail.gmail.com.