Error en Preview

[Pedro]

Hola Antonio

Pensaba que el error 6 deleting enhaced metafile error description ya se había solucionado en la versión 8.12, pero veo que no es así. Sigue dando guerra el dichoso error
Hay alguna solución para eso?

Un abrazo
Pedro

[Antonio Linares]

Pedro,

Ese error se produce porque no estan emparejados los PAGE ... ENDPAGE

Es decir, si tienes un PAGE de mas sin su ENDPAGE, o viceversa, se intentara borrar un fichero que no existe y de ahi el error.

Luego, es un error de programacion, no algo que podamos controlar en FWH. Como mucho podriamos mostrar un error, pero a fin de cuentas, eso es lo que ya sucede

[Pedro]

Hola Antonio

Tu crees que este Report tiene un page o un endapage de más?
Pues en este Report cuando termina de imprimir hacia el Preview las 2,3, 4 o X páginas, sale el error.
Si me dijeras en la clase Tprinter pues no sé me lo miraría mucho los Pages EndPages, pero alli solo me da un error 1131
Bound Array en Tpreview:BottomPage y no presenta todas las páginas, sólo la primera, y si pinchas el boton última página
sale ese error.
Pero aqui, en cualquier Report que le ponga el preview sale ese error 6, y mis reports son como este del código que te pongo.
No creo que sea por los Pages EndPages.

Un saludo Antonio
Pedro

Code: Select all

*-------------------------------------------------------------------------------
Function Reportea(cAlias,aTextos)
*-------------------------------------------------------------------------------
LOCAL oFont1, oFont2, oPen1, oPen2
Local oReport
Local nSele := SELECT()

     DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10
     DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-9 
     
     DEFINE PEN oPen1 WIDTH 3 COLOR CLR_HGREEN
     DEFINE PEN oPen2 WIDTH 1 COLOR CLR_HMAGENTA
     
     dbSelectArea(cAlias)      
     (cAlias)->(dbGotop())
     PrinterSetup()
     
     REPORT oReport TITLE  aTextos[1],"",aTextos[2],"" ;
          FONT   oFont1, oFont2 ;
          PEN    oPen1, oPen2 ;
          HEADER "Fecha: "+dtoc(date()),"","Página:"+Str(oReport:nPage,3) RIGHT ;
          PREVIEW
          
          COLUMN TITLE "LIN" ;
          DATA (cAlias)->(RECNO()) ;
          PICTURE "999";
          FONT 2  ;
          GRID 2        
          
          COLUMN TITLE "CLIENTE" ;
          DATA (cAlias)->CLIENTE ;
          FONT 2  ;
          GRID 2     
                       
          COLUMN TITLE "NOMBRE" ;
          DATA (cAlias)->NOMBRE ;
          FONT 2  ;
          GRID 2
                 
          COLUMN TITLE "FECHA" ;
          DATA Dtoc((cAlias)->FECHA) ;
          FONT 2  ;
          GRID 2   
          
          COLUMN TITLE "NUMERO" ;
          DATA (cAlias)->NUMERO ;
          PICTURE "99,999";               
          FONT 2  ;
          GRID 2                     
          
          COLUMN TITLE "NETO     " ;
          DATA (cAlias)->BRUTO - ((cAlias)->IMPDTO + (cAlias)->IMPCENTR + (cAlias)->IMPRAPPEL + (cAlias)->IMPPTOPAGO) TOTAL ;
          PICTURE "99,999.99";               
          FONT 2  ;
          GRID 2
          
          COLUMN TITLE "CUOTA IVA" ;
          DATA (cAlias)->CUOTA TOTAL ;
          PICTURE "99,999.99";               
          FONT 2  ;
          GRID 2          
          
          COLUMN TITLE "RECGO IVA" ;
          DATA (cAlias)->RECARGO TOTAL ;
          PICTURE "99,999.99";               
          FONT 2  ;
          GRID 2          
          
          COLUMN TITLE "TOTAL     " ;
          DATA (cAlias)->total;
          PICTURE "999,999.99";
          TOTAL ;               
          FONT 2  ;
          GRID 2   
          
          COLUMN TITLE "GRASAS" ;
          DATA (cAlias)->GRASAS ;
          TOTAL ;
          PICTURE "99,999.99";               
          FONT 2  ;
          GRID 2               
              
          COLUMN TITLE "M" ;
          DATA (cAlias)->marcado ;
          FONT 2  ;
          GRID 2
                         
  END REPORT
  
  ACTIVATE REPORT oReport
     oFont1:End()
     oFont2:End()
     
     oPen1:End()
     oPen2:End()
     oReport:End()
     
 RETURN NIL

[FranciscoA]

Pedro: prueba quitándole la instrucción oReport:End()

...
...
END REPORT

ACTIVATE REPORT oReport
oFont1:End()
oFont2:End()

oPen1:End()
oPen2:End()
// oReport:End() //quitar esto
RETURN NIL