Al intentar imprimir un informe me aparece esto:
Application
===========
Path and name: C:\Factu1H\factuges.exe (32 bits)
Size: 5,024,256 bytes
Compiler version: Harbour 3.2.0dev (r1307082134)
FiveWin Version: FWH 13.12
Windows version: 5.1, Build 2600 Service Pack 3
Time from start: 0 hours 0 mins 4 secs
Error occurred at: 03-04-2014, 12:38:39
Error description: Error BASE/1005 Message not found: TRCOLUMN:_LMEMO
Args:
[ 1] = O TRCOLUMN
Stack Calls
Called from: => __ERRRT_SBASE( 0 )
Called from: ../../../tobject.prg => TRCOLUMN:ERROR( 0 )
Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
Called from: ../../../tobject.prg => TRCOLUMN:MSGNOTFOUND( 0 )
Called from: ../../../tobject.prg => TRCOLUMN:_LMEMO( 0 )
Called from: .\source\classes\PDREPORT.PRG => RPTADDCOLUMN( 105 )
Called from: TARTICUL.PRG => LARTICULOS( 581 )
Called from: TARTICUL.PRG => (b)PONBARRA( 233 )
He revisado el c贸digo del informe y a priori no veo nada extra帽o. Es este (forma parte de un fichero donde abro las tablas y todo):
//-- Listado de Articulos.
static function LArticulos()
local oFont1,oFont2,nRec
local oReport
DbGoTop()
nRec := RecNo()
DEFINE FONT oFont1 NAME "Arial" SIZE 0,8
DEFINE FONT oFont2 NAME "Arial" SIZE 0,8 BOLD UNDERLINE
REPORT oReport;
TITLE " LISTADO DE ARTICULOS ","",;
"Fecha: "+DTOC(Date()),;
Alltrim(STR(gCodEmpre))+" - "+Alltrim(g1NomEmpre);
FOOTER "P谩gina "+str(oReport:nPage,3);
FONT oFont1,oFont2 ;
PREVIEW
COLUMN TITLE "C贸digo ";
DATA (oVar:nAlias)->CodArt;
SIZE 12
COLUMN TITLE "Nombre del Articulo";
DATA Left((oVar:nAlias)->NomArt,29);
SIZE 30
COLUMN TITLE "Familia";
DATA (oVar:nAlias)->CodFam;
SIZE 4
COLUMN TITLE "Precio Ud.";
DATA (oVar:nAlias)->Precio;
PICTURE if(gDecPrecio,"@EZ 999,999.999","@EZ 999,999.99");
TOTAL;
SIZE 10
COLUMN TITLE "Stock";
DATA (oVar:nAlias)->Stock;
PICTURE if(gCantTresDec,"@E 999,999.999","@E 999,999.99");
TOTAL;
SIZE 10
COLUMN TITLE "Coste Ud.";
DATA (oVar:nAlias)->Coste;
PICTURE if(gDecPrecio,"@EZ 999,999.999","@EZ 999,999.99");
TOTAL;
SIZE 10
COLUMN TITLE "Stock x Coste";
DATA (oVar:nAlias)->Coste*(oVar:nAlias)->Stock;
PICTURE if(gDecPrecio,"@EZ 9,999,999.999","@EZ 9,999,999.99");
TOTAL;
SIZE 10
END REPORT
ACTIVATE REPORT oReport
DbGoTo(nRec)
return nil
驴Qu茅 puedo estar haciendo mal? En la versi贸n de FWH pre-release donde lo ten铆a antes no me daba error. Ahora tengo la 煤ltima versi贸n de FWH.
Un saludo y gracias 