Errores al traspar proy. FWH pre-release a FWH actualizada

Errores al traspar proy. FWH pre-release a FWH actualizada

Postby mlolo » Wed Apr 02, 2014 4:33 pm

Hola :-)

De primeras perdón por la parrafada que voy a poner, pero no veo otra forma de explicar correctamente lo que ocurre.

Tengo un proyecto realizado en FWH pre-release con las pantallas en un .RES y funciona correctamente. Compilado y enlazado con BCC 5.5 e ilink32
Ahora lo tengo que pasar a la última versión de FWH y harbour.

De primeras me he encontrado con la estructura de subdirectorios de harbour cambiada (también nombres de .libs) pero eso, en principio, no es problema.
He recompuesto los fichero .rmk y linkh.bat para compilar y montar el proyecto con los nuevos path de las librerías tanto de harbour (3.0) como de FWH.
A la hora de compilar no salta ningún problema y parece que a la hora de enlazar (ilink32) tampoco.
Uso la clase TWBrowse y para ello añado la librería TWBRW32.lib.

Al generar el ejecutable con lo nuevo de FWH y harbour 3.0 el compilador se quejaba y me ponía: Error E0030 Syntax error "syntax error at 'FUNCTION'"
No entiendo porqué, pero para evitar eso traspasé el fichero .RES con las pantallas a un .RC y este a .DLL de 32 bits con rd2dll32.

He vuelto a generar el ejecutable quitando la lo de DLL32 FUNCTION ..... para que no me de el error anterior y me crea el ejecutable sin errores.

Pero aquí vienen los problemas. Son:
- Al iniciar la aplicación me salta el debugger y se coloca donde declaro las variables locales en la función main(). No tengo ni idea de porqué hace eso.
- Si salgo del debugger sigue con la aplicación pero cuando intento abrir un diálogo, el que sea, me salta el error de que no lo puede abrir. Un ejemplo de ello sería esto:
Application
===========
Path and name: C:\Factu1H\factuges.exe (32 bits)
Size: 4,955,648 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 8 secs
Error occurred at: 02-04-2014, 18:15:04
Error description: Error FiveWin/3 Cannot create Dialog Box:
Resource: TABLAGENERALORDEN

Stack Calls
===========
Called from: .\source\classes\DIALOG.PRG => CREATEDLGERROR( 539 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 277 )
Called from: TARTICUL.PRG => TARTICULO( 144 )
Called from: FACTUGES.PRG => (b)BUILDOUTBAR( 784 )
Called from: .\source\classes\OUTLOOK.PRG => (b)TOUTLOOK_ADDITEM( 193 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 476 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 667 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONDOWN( 607 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1720 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 1470 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3236 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1003 )
Called from: FACTUGES.PRG => MAIN( 156 )

Sinceramente he intentado buscar información por todas partes para ver cual sería el problema y la solución , pero no encuentro nada.
Como digo en la versión que tenía (la pre-release de fwh) me funcionaba correctamente todo pero con lo nuevo no, y no sé a que se debe.

Paso el contenido de mis ficheros de compilación y link para que los veáis a ver si es que tengo algo mal:
---> Fichero llamado co.bat que tiene esto para compilar con un fichero compila.rmk y enlazar con un fichero linkh.bat:
c:\clipper5\bin\rmake /XS5000 compila
linkh.bat

---> Fichero de compilado compila.rmk:
// Compilador y Enlazador de la Aplicacion : CMC PARA HARBOUR
// Autor : RRG
// c:\bcc55\bin\brc32 -r CMC.rc
// Fecha :

// OBJ = .\obj
// "$(OBJ)"

makepath[.obj] := ".\OBJ"

.prg.obj:
C:\harbour\BIN\harbour $< /b /n /p /iC:\HARBOUR\INCLUDE;C:\FWH\INCLUDE /o.\obj\ > comp.log
c:\borland\bcc55\bin\bcc32 -M -c -IC:\HARBOUR\INCLUDE;C:\FWH\INCLUDE -tW -o.\obj\$*.obj .\obj\$*.c

FactuGes.obj: FactuGes.prg
MGeneral.obj: MGeneral.prg
klofunc.obj: klofunc.prg
kfiltro.obj: kfiltro.prg
tempresa.obj: tempresa.prg
fempresa.obj: fempresa.prg
tcliente.obj: tcliente.prg
fcliente.obj: fcliente.prg
toperari.obj: toperari.prg
foperari.obj: foperari.prg
thtrab.obj: thtrab.prg
tbanco.obj: tbanco.prg
fbanco.obj: fbanco.prg
tbcuenta.obj: tbcuenta.prg
fbcuenta.obj: fbcuenta.prg
tdiario.obj: tdiario.prg
Fdiario.obj: Fdiario.prg
fcontra.obj: fcontra.prg
talbaran.obj: talbaran.prg
tcontra.obj: tcontra.prg
falbaran.obj: falbaran.prg
tfactura.obj: tfactura.prg
ffactura.obj: ffactura.prg
trcontro.obj: trcontro.prg
frcontro.obj: frcontro.prg
tprovee.obj: tprovee.prg
fprovee.obj: fprovee.prg
talbap.obj: talbap.prg
falbap.obj: falbap.prg
tarticul.obj: tarticul.prg
farticul.obj: farticul.prg
tpresupu.obj: tpresupu.prg
fpresupu.obj: fpresupu.prg
tfactup.obj: tfactup.prg
ffactup.obj: ffactup.prg
fimpuest.obj: fimpuest.prg
finforme.obj: finforme.prg
tmoinf.obj: tmoinf.prg
fnuevoin.obj: fnuevoin.prg
asistein.obj: asistein.prg
ttitulo.obj: ttitulo.prg
ftitulo.obj: ftitulo.prg
tcabece.obj: tcabece.prg
fcabece.obj: fcabece.prg
tpie.obj: tpie.prg
fpie.obj: fpie.prg
tresume.obj: tresume.prg
fresume.obj: fresume.prg
tcuerpo.obj: tcuerpo.prg
fcuerpo.obj: fcuerpo.prg
timpres.obj: timpres.prg
historia.obj: historia.prg
fhistori.obj: fhistori.prg
tpfactu.obj: tpfactu.prg
rclipob.obj: rclipob.prg
rcli.obj: rcli.prg
facalba.obj: facalba.prg
facalbap.obj: facalbap.prg
facfact.obj: facfact.prg
fdesglo.obj: fdesglo.prg
tfpago.obj: tfpago.prg
ffpago.obj: ffpago.prg
fvence.obj: fvence.prg
tvence.obj: tvence.prg
tcfactu.obj: tcfactu.prg
tpvence.obj: tpvence.prg
fpvence.obj: fpvence.prg
tprecio.obj: tprecio.prg
fcbarras.obj: fcbarras.prg
tmoeart.obj: tmoeart.prg
reorgani.obj: reorgani.prg
ccampos.obj: ccampos.prg
imporinf.obj: imporinf.prg
reestruc.obj: reestruc.prg
floinfor.obj: floinfor.prg
rartvent.obj: rartvent.prg
fcplus.obj: fcplus.prg
registro.obj: registro.prg
tcpsal.obj: tcpsal.prg
tcpent.obj: tcpent.prg
tagente.obj: tagente.prg
fagente.obj: fagente.prg
tafactu.obj: tafactu.prg
tmorecic.obj: tmorecic.prg
tlineas.obj: tlineas.prg
flineas.obj: flineas.prg
actuinf.obj: actuinf.prg
flcombo.obj: flcombo.prg
tenvase.obj: tenvase.prg
fenvase.obj: fenvase.prg
ttrdia.obj: ttrdia.prg
ftrdia.obj: ftrdia.prg
fltrdia.obj: fltrdia.prg
tfmchof.obj: tfmchof.prg
ffmchof.obj: ffmchof.prg
rartcli.obj: rartcli.prg
imporhwc.obj: imporhwc.prg
rvencli.obj: rvencli.prg
tpedido.obj: tpedido.prg
fpedido.obj: fpedido.prg
tpedidoc.obj: tpedidoc.prg
fpedidoc.obj: fpedidoc.prg
pcontrol.obj: pcontrol.prg
etiqueta.obj: etiqueta.prg
abredato.obj: abredato.prg
tetiart.obj: tetiart.prg
tpagop.obj: tpagop.prg
tpagopg.obj: tpagopg.prg
rresuimp.obj: rresuimp.prg
rartpro.obj: rartpro.prg
rartcomp.obj: rartcomp.prg
tfamilia.obj: tfamilia.prg
ffamilia.obj: ffamilia.prg
tdescu.obj: tdescu.prg
fdescu.obj: fdescu.prg
tdosprn.obj: tdosprn.prg
morecibo.obj: morecibo.prg
tpcarga.obj: tpcarga.prg
fpcarga.obj: fpcarga.prg
rgancli.obj: rgancli.prg
factiket.obj: factiket.prg
rcolumn.obj: rcolumn.prg
thcobro.obj: thcobro.prg
fhcobro.obj: fhcobro.prg
thpago.obj: thpago.prg
fhpago.obj: fhpago.prg
imporpda.obj: imporpda.prg
fimprec.obj: fimprec.prg
asistere.obj: asistere.prg
trecticl.obj: trecticl.prg
frecticl.obj: frecticl.prg
preciart.obj: preciart.prg
eliminar.obj: eliminar.prg
rrangven.obj: rrangven.prg
rclismov.obj: rclismov.prg
tclipget.obj: tclipget.prg
tget.obj: tget.prg


---> Fichero de enlazado linkh.bat:
set hdir=c:\harbour
set hdirl=%hdir%\lib\win\bcc
set bcdir=C:\Borland\BCC55

@echo c0w32.obj + > b32.bc
@echo .\Obj\factuges .\Obj\klofunc .\noautlog + >> b32.bc
@echo .\Obj\mgeneral .\Obj\kfiltro + >> b32.bc
@echo .\Obj\tempresa .\Obj\fempresa .\Obj\tcliente .\Obj\fcliente + >> b32.bc
@echo .\Obj\toperari .\Obj\foperari .\Obj\thtrab .\Obj\tbanco + >> b32.bc
@echo .\Obj\fbanco .\Obj\tbcuenta .\Obj\fbcuenta .\Obj\tdiario + >> b32.bc
@echo .\Obj\fdiario .\Obj\fcontra .\Obj\talbaran .\Obj\tcontra + >> b32.bc
@echo .\Obj\talbaran .\Obj\tcontra .\Obj\falbaran .\Obj\ffactura + >> b32.bc
@echo .\Obj\tfactura .\Obj\trcontro .\Obj\frcontro .\Obj\tprovee + >> b32.bc
@echo .\Obj\fprovee .\Obj\tarticul .\Obj\farticul .\Obj\tpresupu + >> b32.bc
@echo .\Obj\fpresupu .\Obj\talbap .\Obj\falbap .\Obj\tfactup + >> b32.bc
@echo .\Obj\ffactup .\Obj\fimpuest .\Obj\finforme .\Obj\tmoinf + >> b32.bc
@echo .\Obj\fnuevoin .\Obj\asistein .\Obj\ttitulo .\Obj\ftitulo + >> b32.bc
@echo .\Obj\tcabece .\Obj\fcabece .\Obj\tpie .\Obj\fpie + >> b32.bc
@echo .\Obj\tresume .\Obj\fresume .\Obj\tcuerpo .\Obj\fcuerpo + >> b32.bc
@echo .\Obj\timpres .\Obj\historia .\Obj\fhistori .\Obj\tpfactu + >> b32.bc
@echo .\Obj\rclipob .\Obj\rcli .\Obj\facalba .\Obj\facalbap + >> b32.bc
@echo .\Obj\facfact .\Obj\fdesglo .\Obj\kfiltro .\Obj\tfpago + >> b32.bc
@echo .\Obj\ffpago .\Obj\fvence .\Obj\tvence .\Obj\tcfactu + >> b32.bc
@echo .\Obj\tpvence .\Obj\fpvence .\Obj\tprecio .\Obj\fcbarras + >> b32.bc
@echo .\Obj\tmoeart .\Obj\reorgani .\Obj\ccampos .\Obj\imporinf + >> b32.bc
@echo .\Obj\reestruc .\Obj\floinfor .\Obj\rartvent .\Obj\fcplus + >> b32.bc
@echo .\Obj\registro .\Obj\tcpsal .\Obj\tcpent .\Obj\tagente + >> b32.bc
@echo .\Obj\fagente .\Obj\tafactu .\Obj\tmorecic .\Obj\tlineas + >> b32.bc
@echo .\Obj\flineas .\Obj\actuinf .\Obj\flcombo .\Obj\tenvase + >> b32.bc
@echo .\Obj\fenvase .\Obj\ttrdia .\Obj\ftrdia .\Obj\fltrdia + >> b32.bc
@echo .\Obj\tfmchof .\Obj\ffmchof .\Obj\rartcli .\Obj\imporhwc + >> b32.bc
@echo .\Obj\rvencli .\Obj\tpedido .\Obj\fpedido .\Obj\pcontrol + >> b32.bc
@echo .\Obj\etiqueta .\Obj\abredato .\Obj\tetiart .\Obj\tpagop + >> b32.bc
@echo .\Obj\tpagopg .\Obj\rresuimp .\Obj\rartpro .\Obj\rartcomp + >> b32.bc
@echo .\Obj\tfamilia .\Obj\ffamilia .\Obj\tdosprn .\Obj\tdescu + >> b32.bc
@echo .\Obj\tpedidoc .\Obj\fpedidoc .\Obj\morecibo .\Obj\tpcarga + >> b32.bc
@echo .\Obj\fpcarga .\Obj\rgancli .\Obj\factiket .\Obj\rcolumn + >> b32.bc
@echo .\Obj\thcobro .\Obj\fhcobro .\Obj\thpago .\Obj\fhpago + >> b32.bc
@echo .\Obj\fdescu .\Obj\imporpda .\Obj\fimprec .\Obj\rrangven + >> b32.bc
@echo .\Obj\rclismov + >> b32.bc
@echo .\Obj\asistere .\Obj\eliminar .\Obj\trecticl + >> b32.bc
@echo .\Obj\frecticl .\Obj\preciart + >> b32.bc
@echo .\Obj\tget .\Obj\tclipget, + >> b32.bc
@echo factuges.exe, + >> b32.bc
@echo factuges.map, + >> b32.bc

@echo c:\fwh\lib\FiveH.lib c:\fwh\lib\FiveHC.lib + >> b32.bc
@echo c:\fwh\lib\TWBRW32.lib + >> b32.bc

@echo %hdirl%\hbwin.lib + >> b32.bc
@echo %hdirl%\gtwin.lib + >> b32.bc
@echo %hdirl%\gtgui.lib + >> b32.bc
@echo %hdirl%\hbrtl.lib + >> b32.bc
@echo %hdirl%\hbvm.lib + >> b32.bc
@echo %hdirl%\hblang.lib + >> b32.bc
@echo %hdirl%\hbmacro.lib + >> b32.bc
@echo %hdirl%\hbrdd.lib + >> b32.bc
@echo %hdirl%\rddntx.lib + >> b32.bc
@echo %hdirl%\rddcdx.lib + >> b32.bc
@echo %hdirl%\rddfpt.lib + >> b32.bc
@echo %hdirl%\hbsix.lib + >> b32.bc
@echo %hdirl%\hbdebug.lib + >> b32.bc
@echo %hdirl%\hbcommon.lib + >> b32.bc
@echo %hdirl%\hbpp.lib + >> b32.bc
@echo %hdirl%\hbcpage.lib + >> b32.bc
@echo %hdirl%\hbcplr.lib + >> b32.bc
@echo %hdirl%\hbct.lib + >> b32.bc
@echo %hdirl%\hbpcre.lib + >> b32.bc
@echo %hdirl%\xhb.lib + >> b32.bc
@echo %hdirl%\hbziparc.lib + >> b32.bc
@echo %hdirl%\hbmzip.lib + >> b32.bc
@echo %hdirl%\hbzlib.lib + >> b32.bc
@echo %hdirl%\minizip.lib + >> b32.bc
@echo %hdirl%\png.lib + >> b32.bc
@echo %hdirl%\hbcurl.lib + >> b32.bc
@echo %hdirl%\hbusrrdd.lib + >> b32.bc

@echo %bcdir%\lib\cw32.lib + >> b32.bc
@echo %bcdir%\lib\uuid.lib + >> b32.bc
@echo %bcdir%\lib\import32.lib + >> b32.bc
@echo %bcdir%\lib\ws2_32.lib + >> b32.bc
@echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc
@echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc
@echo %bcdir%\lib\psdk\iphlpapi.lib + >> b32.bc
@echo %bcdir%\lib\psdk\msimg32.lib + >> b32.bc
@echo %bcdir%\lib\psdk\psapi.lib + >> b32.bc
@echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc
@echo %bcdir%\lib\psdk\shell32.lib, >> b32.bc

c:\borland\bcc55\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc > linkh.log

Bueno, espero haberme explicado bien y no haber sido muy cansino.
Un saludo y gracias :-)
mlolo
 
Posts: 21
Joined: Wed Apr 02, 2014 2:14 pm

Re: Errores al traspar proy. FWH pre-release a FWH actualizada

Postby cnavarro » Wed Apr 02, 2014 4:48 pm

Has instalado la ultima version de Harbour 3.2 que proporciona Antonio con FWH?
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6500
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Errores al traspar proy. FWH pre-release a FWH actualizada

Postby mlolo » Wed Apr 02, 2014 5:02 pm

cnavarro wrote:Has instalado la ultima version de Harbour 3.2 que proporciona Antonio con FWH?


Si pero no sé si he hecho correctamente cogiendo lo que he bajado de FWH pegándolo machacando lo que había de harbour, porque no sé si lo que pasa Antonio es un harbour completo o solo los directorios con los ficheros a sustituir en mi instalación de harbour.

Un saludo :-)
mlolo
 
Posts: 21
Joined: Wed Apr 02, 2014 2:14 pm

Re: Errores al traspar proy. FWH pre-release a FWH actualizada

Postby cnavarro » Wed Apr 02, 2014 5:23 pm

Yo tengo la siguiente estructura de directorios
c:\harbour
c:\harbour\harb.....
c:\harbour\harb20131007 ( esta es la ultima )

Lo que hay que hacer es modificar los bat con la nueva trayectoria o crear un nuevo bat para poder compilar con las distintas versiones de harbour

Igual hago con Fwh
c:\Fwh
\fwh1204
\etc

Has de estar seguro que no esta cogiendo libs o ficheros de las versiones anteriores, antes de entrar a analizar otras historias
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6500
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Errores al traspar proy. FWH pre-release a FWH actualizada

Postby cnavarro » Wed Apr 02, 2014 5:38 pm

mlolo wrote:
cnavarro wrote:Has instalado la ultima version de Harbour 3.2 que proporciona Antonio con FWH?


Si pero no sé si he hecho correctamente cogiendo lo que he bajado de FWH pegándolo machacando lo que había de harbour, porque no sé si lo que pasa Antonio es un harbour completo o solo los directorios con los ficheros a sustituir en mi instalación de harbour.

Un saludo :-)


Lo mas importante es asegurarte en realizar una instalacion "limpia" tanto de Harbour como de "Fwh"
Y asegurarte de direccionar correctamente los .bat a esos nuevos directorios
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6500
Joined: Wed Feb 15, 2012 8:25 pm
Location: España


Re: Errores al traspar proy. FWH pre-release a FWH actualizada

Postby mlolo » Wed Apr 02, 2014 6:16 pm

OK, siguiendo vuestro consejo, voy a reponer harbour y fwh desde cero.
Después volveré a intentar compilar con el fichero .RES en vez del .DLL para las pantallas.
Lo que tampoco entiendo es porqué al compilar aparece este error:
Error E0030 Syntax error "syntax error at 'FUNCTION'"
al poner esta línea:
DLL32 FUNCTION BWCCRegister( hIns AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"
mlolo
 
Posts: 21
Joined: Wed Apr 02, 2014 2:14 pm

Re: Errores al traspar proy. FWH pre-release a FWH actualizada

Postby cnavarro » Wed Apr 02, 2014 6:39 pm

DLL32 FUNCTION BWCCRegister( hIns AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"

Intenta con
DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6500
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Errores al traspar proy. FWH pre-release a FWH actualizada

Postby mlolo » Thu Apr 03, 2014 10:40 am

cnavarro wrote:DLL32 FUNCTION BWCCRegister( hIns AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"

Intenta con
DLL32 FUNCTION BWCCRegister( hInst AS LONG ) AS WORD PASCAL LIB "BWCC32.DLL"


OK, gracias.
Parece que se ha resuelto esta parte, pero a sido porque he puesto el harbour que pasa Antonio a pelo en c:\harbour. Quiero decir sin haber instalado previamente harbour 3.0

Parece que se genera el ejecutable correctamente y veo las pantallas del fichero .RES (el .RC me dice que no lo puede enlazar porque tiene cosas de 16 bits, ya lo miraré luego)

Ahora el problema me surge al imprimir. Me dice:
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 )

El código fuente del informes (parte del fichero) es:
//-- 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

Un saludo y gracias :-)
mlolo
 
Posts: 21
Joined: Wed Apr 02, 2014 2:14 pm

Re: Errores al traspar proy. FWH pre-release a FWH actualizada

Postby Antonio Linares » Thu Apr 03, 2014 1:50 pm

Mlolo,

Veo que estas compilando y enlazando este módulo:

rcolumn.obj: rcolumn.prg

Ese módulo existe en FWH y el tuyo puede estar reemplazandolo :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41314
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Errores al traspar proy. FWH pre-release a FWH actualizada

Postby mlolo » Thu Apr 03, 2014 3:37 pm

Antonio Linares wrote:Mlolo,

Veo que estas compilando y enlazando este módulo:

rcolumn.obj: rcolumn.prg

Ese módulo existe en FWH y el tuyo puede estar reemplazandolo :-)


OK, problema resuelto.
Muchiiisimas gracias. Ya me estaba empezando a "rayar" :-)
mlolo
 
Posts: 21
Joined: Wed Apr 02, 2014 2:14 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 81 guests