FiveTech Software tech support forums

Hola Antonio y foro :

No me habia percatado de ese detalle, hasta ahora que estuve checando algunos reportes, al usar el preview me muestra todo OK, pero al salir del mismo y querer seguir trabajando, pum !!! cierra la aplicacion de un solo golpe y sin ningun tipo de aviso.

- Ya estuve haciendo pruebas, si mando imprimir directo, todo OK, no termina la App.

- Ya desactive la clase UtilPrn que tambien uso en los reportes, la clase de Menu5C que entra en un "pequeño conflicto" con el menu del preview y nada, con y sin estas clases hace lo mismo.

- Ya cheque la documentacion de la clase, y no encuentro nada raro contra el codigo.

- Ya susitui el archivo prev32.dll que tenia, con el que trae el build de Abril 06 y nada.... igual

Comento que estos reportes, tal cual estan, trabajaban a la perfeccion con 16bits.


Anexo links para ver unos video de lo que sucede :

NOTA : En los video aparece "basurita" debido a la calidad de los mismos, pero en pantalla todo se ve OK.

Caso 1 :
Desde una pestaña de un folder, al generar el preview, me permite seguir usando las otras pestañas,pero al querer seleccionar alguna del folder "padre" ....... zas !!!

http://hyperupload.com/download/015f535 ... 1.avi.html

Caso 2 :
Desde un dialogo, que es donde permito configurar la impresion de los documentos del cliente, usando la opcion de prueba..... zas !!!

http://hyperupload.com/download/02cc1fa ... 2.avi.html


Y aqui esta un poco de codigo :

Function PRNCRTGRP( nMode, aPrntrDts, cKurUsr, cCrtTxt, lVwDts, lOrdX )
LOCAL oPrn, nLine := 7.5, nQ, nRw, nCl, oFntH, oFntD, oFntF, oBrush, oUtil, cLX
LOCAL cEmpHdr, cStrF, aHdrX := { "RELACION DE VENTAS [ORDEN] ", ;
"CONCENTRADO DE VENTAS AGRUPADAS POR PRODUCTO", "CONCENTRADO DE VENTAS POR USUARIO", ;
"RELACION DE VENTAS COSTEADAS" }
LOCAL nPags := 1, cL1, cL2, cLH, cStrLine, cLY, oCorteX, aRepObj, aRepVrs, aHdrDts
cEmpHdr := AllTrim( DeCrypt( AllTrim( EMPDTSP->ENC ), GnMyXDts(7) ) )
IF nMode == 1
aHdrX[1] += IIF( lOrdX, "DOCUMENTO ", "CAPTURA " )
IF lVwDts
aHdrX[1] += " [OTROS DATOS]"
ENDIF
ENDIF
cL1 := PadC( "IMPRESION DEL CORTE DEL DIA : " + ChgDat2Str( Date() ), 78 )
cL2 := PadC( aHdrX[nMode], 78 )
cStrF := " IMPRESO POR : " + cKurUsr + Space(10) + "EL : " + ChgDat2Str( Date() ) + ;
Space(10) + "A LAS : " + Time() + Space(10) + "PAG : " + AllTrim( Str( nPags ) )
DO CASE
CASE nMode == 1
cLH := " FOLIO No. PARTE DESCRIPCION UNITARIO UNS IMPORTE"
CASE nMode == 2
cLH := " GRUPO No. PARTE DESCRIPCION UNS IMPORTE"
CASE nMode == 3
cLH := " FOLIO NOMBRE DEL CLIENTE TIPO HORA IMPORTE"
CASE nMode == 4
cLH := " FOLIO UNS IMPORTE FACTURA UNS IMPORTE FECHA PROVEEDOR"
ENDCASE
IF aPrntrDts[8]
PRINT oPrn TITLE "CORTE DEL DIA" PREVIEW TO aPrntrDts[6]
ELSE
PRINT oPrn TO aPrntrDts[6]
ENDIF
DEFINE FONT oFntH NAME "Arial" SIZE 0,-16 BOLD OF oPrn
DEFINE FONT oFntD NAME "Courier New" SIZE 0,-12 OF oPrn
DEFINE FONT oFntF NAME "Arial" SIZE 0,-8 OF oPrn
DEFINE BRUSH oBrush COLOR CLR_WHITE
//DEFINE UTILPRN oUtil OF oPrn

oPrn:SetPortrait()
nRw := oPrn:nVertRes() / 66
nCl := oPrn:nHorzRes() / 80

oCorteX := TTxtFile():New( cCrtTxt )
aHdrDts := { cL1, cL2, cLH }
aRepObj := { oUtil, oFntH, oFntD, oFntF, oBrush } // Objetos Del Reporte
aRepVrs := { cEmpHdr, aHdrDts } // Varibles NO Modificables
PRNREPHDR( 0, aRepObj, aRepVrs, @cStrF, @nLine, @nPags )
FOR nQ := 1 TO oCorteX:RecCount()
IF nQ > 5
cStrLine := oCorteX:ReadLine()
oPrn:Say( nRw*nLine, nCl*01, cStrLine, oFntD )
nLine ++
IF nLine >= 61
PRNREPHDR( 1, aRepObj, aRepVrs, @cStrF, @nLine, @nPags )
ENDIF
ENDIF
oCorteX:Skip()
NEXT
oCorteX:Close()
ENDPAGE
ENDPRINT
RELEASE FONT oFntH, oFntD, oFntF
RELEASE BRUSH oBrush

//oFntH:END()
//oFntD:END()
//oFntF:END()
//oBrush:END()
//oUtil:Reset()
Return NIL
*-----*


Ojala y no sea algo grave......


Gracias y Saludos

Raymundo Islas M. wrote:Hola Antonio y foro :

aRepObj:= { oUtil, oFntH, oFntD, oFntF, oBrush } //

¿Está bien el oUtil o seróa oPrn?

Hola Manuel

Pues ya ni se

Ya desactive todo lo que implica la UtilPrn y sigue igual !!!

Pero la clase, cuando la activo, si me muestra correctamente lo que debe mostrar !!!


Saludos

Pero en la línea que te señalo, figura el objeto oUtil. ¿Es correcto?

Asi es Manuel, pero la clase en si esta totalmente desactivada, en esa linea no tiene ningun valor (NIL) y aunque la mando a otra funcion que es la que me pinta el cuadro de encabezado y footer del reporte, no se usa.

Gracias y Saludos

Raymundo,

Puedes probar samples\TestPrn2.prg y comprobar si te funciona bien ? gracias

Antonio

El ejemplo que indicas funciona OK al igual que los preview de la App, en si, el problema no es el mostrar los datos, sino que al cerrar el preview, me cierra la App tambien !!.


Gracias y Saludos

Raymundo,

Tienes un VALID en la ventana principal de tu aplicación ? Se activa el VALID ?

O la aplicación se cierra totalmente y sin errores ? De ser así, Windows solo cierra una aplicación cuando esta entra en un bucle recursivo que desestabilizaría todo el sistema. Por ejemplo, una función que se llama a si misma: la pila crecería hasta un punto en que el sistema operativo decide cerrar la aplicación por seguridad.

Tambien prueba a ejecutar la aplicación desde una ventana de consola y mira a ver si al terminar escribe algún mensaje de error en la ventana de consola.

Antonio, la App se cierra de golpe en cuanto cierro la pantalla del Preview, en el 1er post, puse un par de links de unos videos donde se aprecia lo que comento, si tuviste oportunidad de verlos ?

Voy a probar lo que me comentas ..

Gracias

Raymundo,

Comprueba si en source\classes\rpreview.prg tienes estas líneas:

Antonio

El PreView si contiene la instruccion como lo indicas, e inclusive, cambie el nombre de la toolbar que manejo ya que tambien se llamaba - oBar -, pero sigue con el mismo resultado