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
*-------------------------------------------------------------------------------
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 37 guests