FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Migrar a harbour
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Migrar a harbour
Posted: Mon Jun 30, 2014 10:23 AM
Hola a todos:

Estoy empezando a migrar de xHarbour a Harbour, me he descargado la versión 3.2.0 de harbour que creo que es la última y en mi archivo BAT para crear el ejecutable he cambiado los directorios de xHarbour a Harbour y ha quedado así:
Code (fw): Select all Collapse
del cyewin.exe
del *.c
del *.obj

copy obj\c0w32.obj
copy obj\bpaint.obj

set hdir=c:\harbour\bin\
set bdir=c:\bcc582\bin\
set bdir2=c:\bcc582\include\

SET PATH=%path;c:\fwh\bin;c:\bcc582\bin;c:\harbour\bin;c:\copiones
SET LIB=%lib;c:\fwh\lib;c:\bcc582\lib;c:\harbour\lib
SET INCLUDE=%include;c:\fwh\include;c:\bcc582\include;c:\harbour\include

%hdir%harbour cyewin /m/n/i
%hdir%harbour rddsys   /n/i
%hdir%harbour preparar /n/i
%hdir%harbour procesos /n/i
%hdir%harbour gesttext /n/i
%hdir%harbour gestmenu /n/i
%hdir%harbour gestusua /n/i
%hdir%harbour gestusu2 /n/i
%hdir%harbour gestempr /n/i
%hdir%harbour gestimem /n/i
%hdir%harbour gestmult /n/i
%hdir%harbour gestacti /n/i
%hdir%harbour gestdape /n/i
%hdir%harbour gestadfa /n/i
%hdir%harbour gestconc /n/i
%hdir%harbour gestplan /n/i
%hdir%harbour gestasde /n/i
%hdir%harbour gestamor /n/i
%hdir%harbour gestproy /n/i
%hdir%harbour gestepig /n/i
%hdir%harbour gestdiar /n/i
%hdir%harbour gesthdia /n/i
%hdir%harbour gestfact /n/i
%hdir%harbour gesthfac /n/i
%hdir%harbour gestbapg /n/i
%hdir%harbour gestcuan /n/i
%hdir%harbour gestdecu /n/i
%hdir%harbour gestdec1 /n/i
%hdir%harbour gestdec2 /n/i
%hdir%harbour gestdec3 /n/i
%hdir%harbour gestcipe /n/i
%hdir%harbour ges2cipe /n/i
%hdir%harbour gestmodu /n/i
%hdir%harbour gestlist /n/i
%hdir%harbour gestlis2 /n/i
%hdir%harbour gestimpr /n/i
%hdir%harbour gesti110 /n/i
%hdir%harbour gesti115 /n/i
%hdir%harbour gesti123 /n/i
%hdir%harbour gestirpf /n/i
%hdir%harbour gestivas /n/i
%hdir%harbour gestiva2 /n/i
%hdir%harbour gesti347 /n/i
%hdir%harbour gesti340 /n/i
%hdir%harbour gesti349 /n/i
%hdir%harbour gesti190 /n/i
%hdir%harbour gesti180 /n/i
%hdir%harbour gesti193 /n/i
%hdir%harbour gesti184 /n/i
%hdir%harbour gesti390 /n/i
%hdir%harbour gestp390 /n/i
%hdir%harbour gestpres /n/i
%hdir%harbour gestutil /n/i
%hdir%harbour gestauto /n/i
%hdir%harbour rpreview /n/i
%hdir%harbour tmetafil /n/i
%hdir%harbour pdf1     /n/i
%hdir%harbour tget     /n/i
%hdir%harbour pdfhbdcs /n/i
%hdir%harbour control  /n/i

%bdir%bcc32 -M -c cyewin.c
%bdir%bcc32 -c rddsys.c
%bdir%bcc32 -c preparar.c
%bdir%bcc32 -c procesos.c
%bdir%bcc32 -c gesttext.c
%bdir%bcc32 -c gestmenu.c
%bdir%bcc32 -c gestusua.c
%bdir%bcc32 -c gestusu2.c
%bdir%bcc32 -c gestempr.c
%bdir%bcc32 -c gestmult.c
%bdir%bcc32 -c gestimem.c
%bdir%bcc32 -c gestacti.c
%bdir%bcc32 -c gestdape.c
%bdir%bcc32 -c gestadfa.c
%bdir%bcc32 -c gestconc.c
%bdir%bcc32 -c gestplan.c
%bdir%bcc32 -c gestasde.c
%bdir%bcc32 -c gestamor.c
%bdir%bcc32 -c gestproy.c
%bdir%bcc32 -c gestepig.c
%bdir%bcc32 -c gestdiar.c
%bdir%bcc32 -c gesthdia.c
%bdir%bcc32 -c gestfact.c
%bdir%bcc32 -c gesthfac.c
%bdir%bcc32 -c gestbapg.c
%bdir%bcc32 -c gestcuan.c
%bdir%bcc32 -c gestdecu.c
%bdir%bcc32 -c gestdec1.c
%bdir%bcc32 -c gestdec2.c
%bdir%bcc32 -c gestdec3.c
%bdir%bcc32 -c gestcipe.c
%bdir%bcc32 -c ges2cipe.c
%bdir%bcc32 -c gestmodu.c
%bdir%bcc32 -c gestlist.c
%bdir%bcc32 -c gestlis2.c
%bdir%bcc32 -c gestimpr.c
%bdir%bcc32 -c gesti110.c
%bdir%bcc32 -c gesti115.c
%bdir%bcc32 -c gesti123.c
%bdir%bcc32 -c gestirpf.c
%bdir%bcc32 -c gestivas.c
%bdir%bcc32 -c gestiva2.c
%bdir%bcc32 -c gesti347.c
%bdir%bcc32 -c gesti340.c
%bdir%bcc32 -c gesti349.c
%bdir%bcc32 -c gesti180.c
%bdir%bcc32 -c gesti184.c
%bdir%bcc32 -c gesti190.c
%bdir%bcc32 -c gesti193.c
%bdir%bcc32 -c gesti390.c
%bdir%bcc32 -c gestp390.c
%bdir%bcc32 -c gestpres.c
%bdir%bcc32 -c gestutil.c
%bdir%bcc32 -c gestauto.c
%bdir%bcc32 -c rpreview.c
%bdir%bcc32 -c tmetafil.c
%bdir%bcc32 -c pdf1.c
%bdir%bcc32 -c tget.c
%bdir%bcc32 -c pdfhbdcs.c
%bdir%bcc32 -c control.c

%bdir%brc32 -r -I%bdir2 cyewin

%bdir%ilink32 -Gn -aa -Tpe -s -v @cyewin1.lnk

del *.c
del *.obj

cyewin 



El LNK no lo he tocado porque todavía no he podido llegar a el ya que cuando toma el BCC32 los archivos .c siempre da errores y son

Code (fw): Select all Collapse
C:\ColtHop\CyEWin>c:\harbour\bin\harbour cyewin /m/n/i
Harbour 3.2.0dev (r1406271520)
Copyright (c) 1999-2014, http://harbour-project.org/
Compiling 'cyewin.prg'...
Lines 5240, Functions/Procedures 23
Generating C source output to 'cyewin.c'... Done.

C:\ColtHop\CyEWin>c:\harbour\bin\harbour rddsys   /n/i
Harbour 3.2.0dev (r1406271520)
Copyright (c) 1999-2014, http://harbour-project.org/
Compiling 'rddsys.prg'...
Lines 12, Functions/Procedures 2
Generating C source output to 'rddsys.c'... Done.

C:\ColtHop\CyEWin>c:\harbour\bin\harbour preparar /n/i
Harbour 3.2.0dev (r1406271520)
Copyright (c) 1999-2014, http://harbour-project.org/
Compiling 'preparar.prg'...
Lines 5957, Functions/Procedures 44
Generating C source output to 'control.c'... Done.

C:\ColtHop\CyEWin>c:\bcc582\bin\bcc32 -M -c cyewin.c
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
cyewin.c:
Error E2451 cyewin.c 121: Undefined symbol 'HB_FS_MEMVAR'
Error E2141 cyewin.c 121: Declaration syntax error
Error E2190 cyewin.c 121: Unexpected }
Error E2040 cyewin.c 121: Declaration terminated incorrectly
Error E2040 cyewin.c 121: Declaration terminated incorrectly
Error E2451 cyewin.c 1027: Undefined symbol 'hb_vm_SymbolInit_CYEWIN'
*** 6 errors in Compile ***

C:\ColtHop\CyEWin>c:\bcc582\bin\bcc32 -c gestusua.c
Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
gestusua.c:
Error E2451 gestusua.c 55: Undefined symbol 'HB_FS_MESSAGE'
Error E2141 gestusua.c 55: Declaration syntax error
Error E2190 gestusua.c 55: Unexpected }
Error E2040 gestusua.c 55: Declaration terminated incorrectly
Error E2040 gestusua.c 55: Declaration terminated incorrectly
Error E2451 gestusua.c 356: Undefined symbol 'hb_vm_SymbolInit_GESTUSUA'
*** 6 errors in Compile ***



Básicamente siempre da o Undefined symbol 'HB_FS_MESSAGE' o Undefined symbol 'HB_FS_MEMVAR' y después siempre Undefined symbol 'hb_vm_SymbolInit_GESTUSUA'

Alguien me podría ayudar o decirme alguna guía para poder migrar.

Un saludo

Carlos
Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Migrar a harbour
Posted: Mon Jun 30, 2014 12:42 PM
Carlos, por qué no usas como plantilla el fichero .mak y .bat que aparece en

C:\Fwh\makes\bormake.zip


y compruebas los posibles errores
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
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Migrar a harbour
Posted: Mon Jun 30, 2014 03:50 PM

Carlos,

Podrías publicar el código de cyewin.prg ó en caso de que sea confidencial, enviármelo por email ? gracias :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: Migrar a harbour
Posted: Tue Jul 01, 2014 07:21 AM
Hola Antonio:

Es este:
Code (fw): Select all Collapse
#include "FIVEWIN.CH"
#include "Report.Ch"
#include "Winapi.CH"
#include "IMAGE.CH"

//------------------------------------------------------------//

FUNCTION Main(zzopczz)
PUBLIC za,zb,zc,zd,ze,zf,zg,zh,zi,zj,zk,zl,zm,zn,zo,zp,zq,zr,zs,zt,zu,za1,za2,za3,za4,za5,za6,za7,za8,za9,zb1,zb2,zb3,zb4,zb5,zv,zw
PUBLIC zaa,zba,zca,zcb,zcc,zda,zdb,zdc,zdd,zde,zdf,zdg,zea,zeb,zfa,zfb,zga,zgb,zha,zia,zib,zja,zka,zla,zma,zmb,zna,zoa,zpa,zpb,zqa,zqb,zqc,zqd,zqe,zqf,zqg,zra,zrb,zsa,zsb,zta,zua
PUBLIC za1a,za2a,za3a,za4a,za5a,za1b,za2b,za3b,za4b,za5b,za6a,za7a,za8a,za9a,zb1a,zb2a,zb3a,zb4a,zb5a,zva,zvb,zwa,zwb
PUBLIC z0100,z0101,z0102,z0103,z0104,z0105,z0106,z0107,z0108,z0109,z0110,z0111
PUBLIC z0200,z0201,z0202,z0203,z0204,z0205,z0206
PUBLIC z0300,z0301,z0302,z0303,z0304,z0305,z0306,z0307,z0308,z0309
PUBLIC z0400,z0401,z0402,z0403,z0404,z0405,z0406,z0407,z0408,z0409,z0410
PUBLIC z0500,z0501,z0502,z0503,z0504,z0505,z0506
PUBLIC z0600,z0601,z0602,z0603,z0604,z0605,z0606,z0607,z0608,z0609,z0610,z0611,z0612,z0613,z0614
PUBLIC z0700,z0701,z0702,z0703,z0704,z0705,z0706,z0707,z0708,z0709,z0710,z0711,z0712,z0713,z0714,z0715
PUBLIC z0800,z0801,z0802,z0803,z0804
PUBLIC z0900,z0901,z0902,z0903,z0904,z0905,z0906,z0907,z0908,z0909,z0910,z0911,z0912,z0913,z0914,z0915,z0916,z0917
PUBLIC z1000,z1001,z1002,z1003,z1004,z1005,z1006,z1007,z1008,z1009,z1010,z1011
PUBLIC z1100,z1101,z1102,z1103
PUBLIC mme0101,mme0102,mme0103,mme0104,mme0105,mme0106,mme0107,mme0108,mme0109,mme0110
PUBLIC mme0201,mme0202,mme0203,mme0204,mme0205,mme0206
PUBLIC mme0301,mme0302,mme0303,mme0304,mme0305,mme0306,mme0307,mme0308,mme0309
PUBLIC mme0401,mme0402,mme0403,mme0404,mme0405,mme0406,mme0407,mme0408,mme0409,mme0410
PUBLIC mme0501,mme0502,mme0503,mme0504,mme0505,mme0506
PUBLIC mme0601,mme0602,mme0603,mme0604,mme0605,mme0606,mme0607,mme0608,mme0609,mme0610,mme0611,mme0612,mme0613,mme0614
PUBLIC mme0701,mme0702,mme0703,mme0704,mme0705,mme0706,mme0707,mme0708,mme0709,mme0710,mme0711,mme0712,mme0713,mme0713,mme0714,mme0715
PUBLIC mme0801,mme0802,mme0803,mme0804
PUBLIC mme0901,mme0902,mme0903,mme0904,mme0905,mme0906,mme0907,mme0908,mme0909,mme0910,mme0911,mme0912,mme0913,mme0914,mme0915,mme0916,mme0917
PUBLIC mme1001,mme1002,mme1003,mme1004,mme1005,mme1006,mme1007,mme1008,mme1009,mme1010,mme1011,nme1012
PUBLIC ValEjer,ValDemo,p1d,p1b,p2b,p1c,p2c,zdatita,zempr,zmomb,zejer,zdatita01,zempr01,zmomb01,zejer01,zdatita02,zempr02,zmomb02,zejer02,zusuario,oFont,zAncFon,zLarFon,tex01,tex02
PUBLIC oVentPrinc,oDlgwBot,oDlgwDir,oDlgwVen,oDlgwBro,oDlgwMen,oDlgwFac,oDlgwDat,menu,submenu,submenu2,numact,nomact,fz1,fz2,menu01,salida,NumPag,oPrn
PUBLIC fcontrol,fred,zmulti,rutadato,rutaloca,oBmp,oBmpTiled,zCajaOpci,oFondoBot,re,reg,em,oDlgwBus,oDlgwBu2,opc,zzopcz,cont,oImg,oImg2,zImpLis,zImpLis2,zImpImp,zSelImp
PUBLIC ProPorH,ProPorV,zNomFue,zProPor,oPen,oBrush01,oBrush02,ModiCu,zValid,zTexInf,actiempr,clasiono,cViejo,cCampo,cFich,desf,hasf,desa,desc,desp,hasa,hasc,hasp
PUBLIC adebe,ahaber,asaldo,atot01,atot02,atot03,atot04,atot05,atot06,atot07,atot08,xypreview,dato,ejer2,asi2,asifil,des,des1,has,has1,zPix2
PUBLIC escri01,escri02,escri03,escri04,escri05,impre01,opci11,opci12,opci13,opci14,opci15,opci16,opci17,opci18,opci19,opci20,opci00,opci21,opci22,opci23,opci99
PUBLIC fondo01,fondo02,fondo03,fondo04,fondo05,zOpc,zOpc1,zAnc,zLar,oBrw,oBrw1,zText,fdes,fhas,modelo,fich,fich1,fic1,titubapg,zArchivo,zproye
PUBLIC orimen01,orimen02,orimen03,orimen04,orimen05,orimen06,orimen07,orimen08,orimen09,orimen10,orimen11,wsiono,per,eje,zeje,tri,iiva,iirpf,i110,i115,i123
PUBLIC ancho01,ancho02,ancho03,ancho04,ancho05,ancho06,ancho07,ancho08,ancho09,ancho10,ancho11,AntSelect,zSubMen,tipmod,fdesdo,mod,num131,num310,num311
PUBLIC oMenu01,oMarc01,oSubMenu,oSu01,oSu02,oCanMe01,oCanMe02,oCanMe03,oCanMe04,oCanMe05,SubMenu01,zTexInf,zMenu01,zMenu02,zMenu03,i131,i130,i202,i222,i300,i310,i370,i322,i353,pornor,poragr
PUBLIC varbus01,varbus02,varbus03,FunBus01,oVarBus01,oVarBus02,oVarBus03,oVarBus04,oVarBus05,oVarBus06,oVarBus07,oVarBus08,oVarBus09,oVarBus10,zOpcBus,zDatAnt
PUBLIC vabu001,vabu002,vabu003,vabu004,vabu005,vabu006,vabu007,vabu008,vabu009,vabu010,vabu011,vabu012,vabu013,vabu014,vabu015,vabu016,crear,zDesAnt,znumero,zpuesto,znombre,zletra,z1letra,z1puesto,z1nombre
PUBLIC titufact,iv1,iv2,iv3,iv4,iv5,iv6,iv7,re1,re2,re3,re4,re5,re6,re7,cuen,nume,znume,znum2,ivas,datos,calbi,oRete,im1,re,opz2,opz3,funfac01,funimp01,odlgx,pdlgx,apu,zivaincl
PUBLIC xiva1,xiva2,xiva3,oIVA,oModo,oTipo,zControl,nRow,nCol,oTipov,oNuAsi,oDesCu,boiva,descue,venfac,oNuDoc,descla,oDescl,coltot,zGetKey,zgrupo,zva018,zva014,zline01,zline02
PUBLIC ProPorVp,ProPorHp,ProPorH2p,ProPorV2p,zProPorVp,zProPorHp,zProPorV,zProPorH,oDlgwVenP,zFunAna01,zPrime,zSele,zTipo,zejex,zejey,zancho,zLargo,ejeemp01,ejeemp02,prorsn,prortri,proranu,proritri,prorianu
PUBLIC zImpMan0,zImpMan1,zImpMan2,zImpMan3,zImpMan4,zImpMan5,zImpMan6,nombfich,nombfic1,zNom,zzNum01,zNum01,zNum02,zNum03,zNum04,zNum05,zNum06,zNum07,zNum08,zNum09,zNum10,zNum11,zNum12,zNum13,zNum14,salida,imp310sn
PUBLIC epigr,indim,dator,epiga,india,datoa,retacue,zcomple,zTitle,zSitBot,zactagr,zactmod,zcrcaemp,tip

PUBLIC zrevigein,zrevifaga,zrevifain,zBusFin,zdatohist,ztexthist,ztexhis

PUBLIC xPul203,xPul204,xPul205,xPul206,xPul207,xPul208,xPul209,xPul210,xPul211,xPul212,xPul213,xPul214,xPul215,xPul216,xPul217

if file ("cyewin2.exe")
  WaitRun("cyewin2.exe")
  SELECT 1
  use EMPRESA SHARED
  count                    to a
  count for cambempr = "S" to b
  if a = b
    erase cyewin2.exe
  endif
  clos data
  SET RESOURCES TO
else
  if isexerunning ( cfilename ( hb_argv ( 0 ) ) ) .OR. empty(zzopczz)
    SET RESOURCES TO
  else
    zGetKey = 1
    titufact = 1
    zPrime = 0
    zNum = 1
    do While .T.
      do case
        case zNum > 99
          zVar = "tDlg"   + str(zNum,3,0)
        case zNum > 9
          zVar = "tDlg0"  + str(zNum,2,0)
        otherwise
          zVar = "tDlg00" + str(zNum,1,0)
      endcase
      PUBLIC &zVar
      zNum = zNum + 1
      if zNum = 251
        exit
      endif
    enddo
    zNum = 1
    do While .T.
      do case
        case zNum > 99
          zVar = "vDlg"   + str(zNum,3,0)
        case zNum > 9
          zVar = "vDlg0"  + str(zNum,2,0)
        otherwise
          zVar = "vDlg00" + str(zNum,1,0)
      endcase
      PUBLIC &zVar
      zNum = zNum + 1
      if zNum = 271
        exit
      endif
    enddo
    zNum = 1
    do While .T.
      do case
        case zNum > 99
          zVar = "gDlg"   + str(zNum,3,0)
        case zNum > 9
          zVar = "gDlg0"  + str(zNum,2,0)
        otherwise
          zVar = "gDlg00" + str(zNum,1,0)
      endcase
      PUBLIC &zVar
      zNum = zNum + 1
      if zNum = 251
        exit
      endif
    enddo
    zNum = 1
    do While .T.
      do case
        case zNum > 99
          zVar = "xPul"  + str(zNum,3,0)
        case zNum > 9
          zVar = "xPul"  + str(zNum,2,0)
        otherwise
          zVar = "xPul0" + str(zNum,1,0)
      endcase
      PUBLIC &zVar
      zNum = zNum + 1
      if zNum = 107
        exit
      endif
    enddo
    zNum = 1
    do While .T.
      do case
        case zNum > 99
          zVar = "va"   + str(zNum,3,0)
        case zNum > 9
          zVar = "va0"  + str(zNum,2,0)
        otherwise
          zVar = "va00" + str(zNum,1,0)
      endcase
      PUBLIC &zVar
      zNum = zNum + 1
      if zNum = 251
        exit
      endif
    enddo
    zvalid = 1

    DEFINE CURSOR oCursor2  RESOURCE "Hand"

    **  ESTO ES PARA GENERAR INDICES DESDE FUERA

    if zzopczz = "0"
      SELECT 2
      use CONTROL SHARED
      zmulti = multi
      if multi = "S"
        if netDisk(curdrive())
          store "c:\colthop\cyewin\"    to rutaloca
        else
          store Curdrive() + ":\colthop\cyewin\" to rutaloca
        endif
        store Curdrive() + ":\colthop\cyewin\" to rutadato
      else
        store Curdrive() + ":\" + CurDir() + "\" to rutaloca
        store Curdrive() + ":\" + CurDir() + "\" to rutadato
      endif
      fcontrol = rutaloca + "CONTROL.DBF"
      fred     = rutaloca + "RED.DBF"
      use &FCONTROL SHARED
      zempr = empresa
      zejer = ejercicio
      use
      inicempr()
      generar(2)
      SET RESOURCES TO
    else

      a1 = chr(val(substr(zzopczz, 4,3)) - 210)
      a2 = chr(val(substr(zzopczz,10,3)) - 147)
      a3 = chr(val(substr(zzopczz, 1,3)) - 280)
      a4 = chr(val(substr(zzopczz,13,3)) - 387)
      a5 = chr(val(substr(zzopczz, 7,3)) - 179)

      ValDemo = a5
      if ValDemo = "0"
        va001 = 2012
        ValEjer = str(va001,4,0)
      else
        ValEjer = a1+ a2 + a3 + a4
      endif
      if val(ValEjer) = 1900
        SET RESOURCES TO                       // Desactivamos los recursos definidos.
      else
        escri01 = RGB (  0,  0,  0)
        escri02 = RGB (255,  0,  0)
        escri03 = RGB (  0,  0,255)
        escri04 = RGB (  0,  0,255)
        escri05 = RGB (  0,180,  0)
        fondo01 = RGB (245,245,245)
        fondo02 = RGB (255,255,150)
        fondo03 = RGB (255,255,255)
        fondo04 = RGB (245,245,245)
        fondo05 = RGB (255,255,255)
        impre01 = RGB (205,205,205)

        if file ("USUARIO.ENC")
          memoWrit ("USUARIO.DBF",decrypt(MemoRead ("USUARIO.ENC"),"123"))
          erase usuario.enc
        endif
        if file ("REGISTRO.ENC")
          memoWrit ("REGISTRO.DBF",decrypt(MemoRead ("REGISTRO.ENC"),"123"))
          erase registro.enc
        endif

        sethelpfile()

        ***** para las preview fuera de la ventana
        xypreview = 0
        ***** para las preview fuera de la ventana

        repin = 0

        if ! file ("USUARIO.DBF")
          creausua()
        endif
        if ! file ("REGISTRO.DBF")
          creausu2()
        endif

        preparar()

        ProPorV  = GetSysMetrics(1)/768
        ProPorH  = (GetSysMetrics(0)/1024)
        use &FCONTROL SHARED
        if ancho = 0.00000 .AND. largo = 0.00000 .AND. propo = 0.00000 .AND. propv = 0.00000
          bloqfila()
          replace ancho with 9
          replace largo with 16
          replace propo with 1
          replace propv with 16
          replace nomfue  with "Colt Hop Font"
          replace negrita with 700
          dbunlock()
        endif

        ProPorH2 = ancho
        ProPorV2 = largo
        zProPorH = propo
        zProPorV = propv
        zNomFue  = trim(nomfue)

        ProPorH  = ProPorH * zProPorH

        if imprlist = space(100)
          bloqfila()
          replace imprlist with PrnGetName()
          dbunlock()
        endif
        if imprimpr = space(100)
          bloqfila()
          replace imprimpr with PrnGetName()
          dbunlock()
        endif

        zImpLis = alltrim(imprlist)
        zImpImp = alltrim(imprimpr)
        zSelImp = substr(caracter01,1,1)
        zline01 = linea01
        zline02 = linea02

        if negrita = 700
          DEFINE FONT oFont NAME zNomFue SIZE  ProPorH2,ProPorV2 BOLD
        else
          DEFINE FONT oFont NAME zNomFue SIZE  ProPorH2,ProPorV2
        endif

        clos data

        DEFINE WINDOW oVentPrinc MDI FROM 0, 0 TO 24,80;
          TITLE  "CyEWin Contabilidad y Estimaciones en WINDOWS";
          COLORS RGB (0,0,0), RGB ( 10,100, 10);
          MENU MenuPrin() ICON "CyEWin.ico"

          SET FONT OF oVentPrinc TO oFont

          SET MESSAGE OF oVentPrinc TO "CYEWIN Contabilidad y Estimaciones en WINDOWS - Colt Hop ED., S.L." KEYBOARD CLOCK DATE 2010

          pintabaj()
          elimmenu()
          catotdia()
          gestmenu(1,1)

        ACTIVATE WINDOW oVentPrinc MAXIMIZED ON INIT gestusua() VALID ! GetKeyState (VK_ESCAPE)
      endif
    endif
  endif
endif
RETURN( NIL )

STATIC FUNCTION MenuPrin()
PUBLIC oMenuPrin
MENU oMenuPrin 2010
  MENUITEM "Salida"
ENDMENU
RETURN( oMenuPrin )

Procedure elimmenu()
oVentPrinc:End()
oVentPrinc:SetFocus()
oVentPrinc:Refresh()
RETURN( .T. )

PROCEDURE pintabaj()
DEFINE WINDOW oDlgwDat OF oVentPrinc MDICHILD PIXEL FROM 600*ProPorV,  0*ProPorH TO 850*ProPorV,3072*ProPorH COLORS escri01, fondo01 STYLE nOr(WS_DLGFRAME)
  @ 10*ProporV,  5*ProporH SAY zmomb01   VAR LocaText(128,1) OF oDlgwDat PIXEL COLOR escri01, fondo01 FONT oFont SIZE 145*ProporH,zProPorV*ProPorV
  @ 10*ProporV,520*ProporH SAY zejer01   VAR LocaText(129,1) OF oDlgwDat PIXEL COLOR escri01, fondo01 FONT oFont SIZE  65*ProporH,zProPorV*ProPorV
  @ 30*ProporV,  5*ProporH SAY atot01    VAR LocaText(124,1) OF oDlgwDat PIXEL COLOR escri01, fondo01 FONT oFont SIZE  46*ProporH,zProPorV*ProPorV
  @ 30*ProporV, 59*ProporH SAY atot02    VAR LocaText(125,1) OF oDlgwDat PIXEL COLOR escri01, fondo01 FONT oFont SIZE  32*ProporH,zProPorV*ProPorV
  @ 30*ProporV,208*ProporH SAY atot03    VAR LocaText(126,1) OF oDlgwDat PIXEL COLOR escri01, fondo01 FONT oFont SIZE  39*ProporH,zProPorV*ProPorV
  @ 30*ProporV,364*ProporH SAY atot04    VAR LocaText(127,1) OF oDlgwDat PIXEL COLOR escri01, fondo01 FONT oFont SIZE  39*ProporH,zProPorV*ProPorV
  @ 30*ProporV,520*ProporH SAY zdatita01 VAR LocaText(130,1) OF oDlgwDat PIXEL COLOR escri01, fondo01 FONT oFont SIZE  35*ProporH,zProPorV*ProPorV
  @ 20*ProporV,650*ProporH SAY ztexinf   VAR LocaText(131,1) + chr(13) + LocaText(131,2) OF oDlgwDat PIXEL COLOR escri01, fondo01 FONT oFont SIZE 300*ProporH,2*zProPorV*ProPorV CENTER
  @ 50*ProporV,  5*ProporH SAY ztexhis   VAR ztexthist OF oDlgwDat PIXEL COLOR fondo03, escri03 FONT oFont SIZE 240*ProporH, zProPorV*ProPorV CENTER
  @ 10*ProporV,155*ProporH say zempr01   VAR zempr     OF oDlgwDat PIXEL COLOR escri03, fondo03 FONT oFont SIZE  39*ProporH, zProPorV*ProPorV CENTER BORDER
  @ 10*ProporV,212*ProporH say zmomb02   VAR zmomb     OF oDlgwDat PIXEL COLOR escri03, fondo03 FONT oFont SIZE 300*ProporH, zProPorV*ProPorV CENTER BORDER
  @ 10*ProporV,600*ProporH say zejer02   VAR zejer     OF oDlgwDat PIXEL COLOR escri03, fondo03 FONT oFont SIZE  40*ProporH, zProPorV*ProPorV CENTER BORDER
  @ 30*ProporV, 91*ProporH say atot06    VAR adebe     OF oDlgwDat PIXEL COLOR escri03, fondo03 FONT oFont SIZE 109*ProporH, zProPorV*ProPorV CENTER BORDER PICT "9,999,999,999.99"
  @ 30*ProporV,247*ProporH say atot07    VAR ahaber    OF oDlgwDat PIXEL COLOR escri03, fondo03 FONT oFont SIZE 109*ProporH, zProPorV*ProPorV CENTER BORDER PICT "9,999,999,999.99"
  @ 30*ProporV,403*ProporH say atot08    VAR asaldo    OF oDlgwDat PIXEL COLOR escri03, fondo03 FONT oFont SIZE 109*ProporH, zProPorV*ProPorV CENTER BORDER PICT "9,999,999,999.99"
  @ 30*ProporV,560*ProporH say zdatita02 VAR zdatita   OF oDlgwDat PIXEL COLOR escri03, fondo03 FONT oFont SIZE  80*ProporH, zProPorV*ProPorV CENTER BORDER
  @ 10*ProporV,650*ProporH say zMenu01   VAR ""        OF oDlgwDat PIXEL COLOR escri03, fondo03 FONT oFont SIZE 340*ProporH, zProPorV*ProPorV CENTER BORDER
  @ 30*ProporV,650*ProporH say zMenu02   VAR ""        OF oDlgwDat PIXEL COLOR escri03, fondo03 FONT oFont SIZE 340*ProporH, zProPorV*ProPorV CENTER BORDER
ACTIVATE WINDOW oDlgwDat NORMAL VALID ! GetKeyState (VK_ESCAPE)
RETURN( NIL )

PROCEDURE salida()
cajaOpci (121)
zIniBot = (zLar - 150) / 2
@(zAnc-30)*ProPorV,(zIniBot   )*ProPorH BUTTON xPul01 PROMPT LocaText(136,1) OF oDlgwVen SIZE 70*ProPorH,20*ProPorV PIXEL FONT oFont ACTION salida03(1)
@(zAnc-30)*ProPorV,(zIniBot+80)*ProPorH BUTTON xPul02 PROMPT LocaText(137,1) OF oDlgwVen SIZE 70*ProPorH,20*ProPorV PIXEL FONT oFont ACTION salida03(2)
xPul01:SetFocus()
RETURN( NIL )

PROCEDURE salida03(zCajaOpci)
if zCajaOpci = 1
  SELECT 81
  use REGISTRO SHARED
  bloqfila()
  append blank
  replace usuario with zusuario
  replace fecha   with date()
  replace hora    with time()
  replace empresa with zempr
  replace tipo    with "Salida"
  replace puesto  with Upper(NetName())
  dbunlock()
  use
  if ValDemo = "0"
    ShellExecute(0,"Open","http://www.colthop.es/index.php?pag=3",NIL,NIL,1)
  endif
  SET RESOURCES TO                       // Desactivamos los recursos definidos.
  oVentPrinc:End()
endif
if zCajaOpci = 2
  oDlgwVen:End()
  SaliMenu()
endif
RETURN( NIL )

Procedure ejeconso()
if mme0106 = "S"
  ShellExecute(0,"Open","TeamViewerQS.exe",NIL,NIL,1)
endif
SaliMenu()
RETURN( .T. )

Procedure acercade()
CajaOpci(122)
zte := DIRECTORY("cyewin.exe")[1,3]
@118*ProPorV,10*ProPorH SAY tDlg008 VAR LocaText(130,1) + ": " + str(day(zte),2,0) + " - " + trim(xmonth(month(zte))) + " - " + str(year(zte),4,0) OF oDlgwVen PIXEL COLOR escri01, fondo01 SIZE 434*ProPorH,18*ProPorV CENTER
zIniBot = (zLar - 70) / 2
@(zAnc-30)*ProPorV,(zIniBot   )*ProPorH BUTTON xPul01 PROMPT LocaText(133,1) OF oDlgwVen SIZE 70*ProPorH,20*ProPorV PIXEL FONT oFont ACTION acercade1()
xPul01:SetFocus()
RETURN( NIL )

Procedure acercade1()
oDlgwVen:End()
SaliMenu()
RETURN( NIL )

Procedure ejemanua()
ShellExecute(0,"Open","Manual.pdf",NIL,NIL,1)
SaliMenu()
RETURN( .T. )

Procedure ejemayuda()
WinHelp("ayuda.hlp")
SaliMenu()
RETURN( .T. )

function filesize(cFile)
Local nFiles := directory(cfile)
return nfiles[1,2]

procedure catotdia()
SELECT 18
use &ZN SHARED
go top
do while .T.
  if eof()
    store ctod("01/01/"+zejer) to fedes
    store ctod("31/12/"+zejer) to fehas
    exit
  endif
  if inclopci = "S"
    store finicio to fedes
    store ffinal  to fehas
    exit
  endif
  skip + 1
enddo
zdatohist = 0
SELECT 8
use &ZD
OrdSetFocus (zda)
set filter to
go top
adebe  = 0
ahaber = 0
do while .T.
  if eof()
    exit
  endif
  if fecha >= fedes .AND. fecha <= fehas
    if lugar = "D"
      adebe  = adebe  + importe
    else
      ahaber = ahaber + importe
    endif
    zdatohist = 1
  endif
  skip + 1
enddo
if zdatohist = 0
  SELECT 36
  use &ZQ
  OrdSetFocus (zqa)
  set filter to
  go top
  adebe  = 0
  ahaber = 0
  do while .T.
    if eof()
      exit
    endif
    if fecha >= fedes .AND. fecha <= fehas
      if lugar = "D"
        adebe  = adebe  + importe
      else
        ahaber = ahaber + importe
      endif
      zdatohist = 2
    endif
    skip + 1
  enddo
endif
do case
  case zdatohist = 0
    ztexthist = LocaText(131,4)
  case zdatohist = 1
    ztexthist = LocaText(131,5)
  case zdatohist = 2
    ztexthist = LocaText(131,6)
endcase
ztexhis:Refresh()
if str(adebe,15,2)  = str(ahaber,15,2)
  asaldo = "0"
else
  asaldo = adebe - ahaber
endif
atot06:Refresh()
atot07:Refresh()
atot08:End()
if asaldo = "0"
  asaldo = val(asaldo)
  @ 30*ProporV,403*ProporH say atot08    VAR asaldo  OF oDlgwDat PIXEL COLOR escri03, fondo03 FONT oFont SIZE 109*ProporH, zProPorV*ProPorV CENTER BORDER PICT "9,999,999,999.99"
else
  @ 30*ProporV,403*ProporH say atot08    VAR asaldo  OF oDlgwDat PIXEL COLOR fondo02, escri02 FONT oFont SIZE 109*ProporH, zProPorV*ProPorV CENTER BORDER PICT "9,999,999,999.99"
endif
clos data
RETURN (NIL)

procedure cambusua()
SELECT 81
use REGISTRO SHARED
bloqfila()
append blank
replace usuario with zusuario
replace fecha   with date()
replace hora    with time()
replace empresa with zempr
replace tipo    with "Salida"
replace puesto  with Upper(NetName())
dbunlock()
clos data
cambusua1(5)
RETURN (NIL)

procedure cambusua1(zOpc)
store space(10)          to va001
store space(10)          to va002
store LocaText(221,zOpc) to re
CreaVent(120,280)
zIniBot = (zLar - 150) / 2
@ 10*ProporV, 10*ProporH SAY       tDlg001 VAR LocaText(200,6)        OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 130*ProporH,zProPorV*ProPorV
@ 30*ProporV, 10*ProporH SAY       tDlg002 VAR LocaText(200,7)        OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 130*ProporH,zProPorV*ProPorV
@(zAnc-30)*ProporV, 10*ProporH SAY tDlg003 VAR re                     OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 260*ProporH,zProPorV*ProPorV CENTER
@ 10*ProporV,140*ProporH GET       gDlg001 VAR va001                  OF oDlgwVen PIXEL COLOR escri02, fondo02 FONT oFont SIZE  65*ProporH,zProPorV*ProPorV CENTER NOBORDER
@ 30*ProporV,140*ProPorH GET       gDlg002 VAR va002                  OF oDlgwVen PIXEL COLOR escri02, fondo02 FONT oFont SIZE  65*ProPorH,zProPorV*ProPorV CENTER NOBORDER PASSWORD
@(zAnc-60)*ProPorV,(zIniBot    )*ProPorH BUTTON xPul01 PROMPT LocaText(133,1) OF oDlgwVen PIXEL SIZE  70*ProPorH,20*ProPorV FONT oFont ACTION cambusua2()
@(zAnc-60)*ProPorV,(zIniBot+ 80)*ProPorH BUTTON xPul02 PROMPT LocaText(132,1) OF oDlgwVen PIXEL SIZE  70*ProPorH,20*ProPorV FONT oFont ACTION cambusua3()
gDlg001:SetFocus()
RETURN (NIL)

procedure cambusua3()
oDlgwVen:End()
salida03(1)
RETURN (NIL)

procedure cambusua2()
oDlgwVen:End()
SELECT 80
use USUARIO SHARED
go top
locate for usuario = va001
dbunlock()
if eof()
  clos data
  cambusua1(3)
else
  if clave = Encrypt(va002, "123")
    if claveadm = "S" .AND. tipo <> "A"
      cambUsua5()
    else
      clos data
      cambusua4()
    endif
  else
    clos data
    cambusua1(4)
  endif
endif
RETURN (NIL)

procedure cambusua4()
SELECT 80
use USUARIO SHARED
zusuario = va001
locate for usuario = va001
tomamenu()
dbunlock()
clos data
SELECT 81
use REGISTRO SHARED
bloqfila()
append blank
replace usuario with zusuario
replace fecha   with date()
replace hora    with time()
replace empresa with zempr
replace tipo    with "Entrada"
replace puesto  with Upper(NetName())
dbunlock()
clos data
gestmenu(menu,submenu)
RETURN (NIL)

procedure cambusua5()
clos data
store space(10) to va002
CreaVent(100,280)
zIniBot = (zLar - 150) / 2
@ 10*ProporV, 10*ProporH SAY       tDlg001 VAR LocaText(221,6)        OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 260*ProporH,zProPorV*ProPorV CENTER
@ 30*ProporV, 10*ProporH SAY       tDlg002 VAR LocaText(221,2)        OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 130*ProporH,zProPorV*ProPorV
@ 30*ProporV,140*ProPorH GET       gDlg001 VAR va002                  OF oDlgwVen PIXEL COLOR escri02, fondo02 FONT oFont SIZE  65*ProPorH,zProPorV*ProPorV CENTER NOBORDER
@(zAnc-30)*ProPorV,(zIniBot    )*ProPorH BUTTON xPul01 PROMPT LocaText(133,1) OF oDlgwVen PIXEL SIZE  70*ProPorH,20*ProPorV FONT oFont ACTION cambusua6()
@(zAnc-30)*ProPorV,(zIniBot+ 80)*ProPorH BUTTON xPul02 PROMPT LocaText(132,1) OF oDlgwVen PIXEL SIZE  70*ProPorH,20*ProPorV FONT oFont ACTION cambusua3()
gDlg001:SetFocus()
RETURN (NIL)

procedure cambusua6()
oDlgwVen:End()
SELECT 80
use USUARIO SHARED
go top
locate for tipo = "A"
dbunlock()
if clave = Encrypt(va002, "123")
  clos data
  cambusua4()
else
  clos data
  cambusua1(4)
endif
RETURN (NIL)

procedure zHistDato(zOpc)
CreaVent( 80,500)
zIniBot = (zLar - 80) / 2
if zOpc = 1
  @ 10*ProporV, 10*ProporH SAY tDlg001 VAR LocaText(368,9) OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 480*ProporH,zProPorV*ProPorV CENTER
else
  @ 10*ProporV, 10*ProporH SAY tDlg001 VAR LocaText(369,1) OF oDlgwVen PIXEL COLOR escri01, fondo01 FONT oFont SIZE 480*ProporH,zProPorV*ProPorV CENTER
endif
@(zAnc-30)*ProPorV,      zIniBot*ProPorH BUTTON xPul01 PROMPT LocaText(133,1) OF oDlgwVen PIXEL SIZE  70*ProPorH,20*ProPorV FONT oFont ACTION zHistDato1()
xPul01:SetFocus()
RETURN (NIL)

procedure zHistDato1(zOpc)
oDlgwVen:End()
SaliMenu()
RETURN (NIL)

procedure TraBas64(nTrasBas64)
do case
  case nTrasBas64 >= 97
    cTrasBas64 = nTrasBas64 - 71
  case nTrasBas64 >= 65
    cTrasBas64 = nTrasBas64 - 65
  case nTrasBas64 >= 48
    cTrasBas64 = nTrasBas64 + 4
  case nTrasBas64 = 43
    cTrasBas64 = 62
  case nTrasBas64 = 47
    cTrasBas64 = 63
  otherwise
    msginfo(nTrasBas64)
endcase
cTrasBas64 = padl(alltrim(DectoBin(cTrasBas64)),6,"0")
RETURN (cTrasBas64)


Un saludo

Carlos
Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Migrar a harbour
Posted: Tue Jul 01, 2014 07:53 AM

Carlos,

Acabo de construirlo con FWH\samples\buildh.bat y se compila correctamente (bueno hay un montón de variables usadas sin definir) y luego el enlazador no encuentra ciertas funciones tuyas, pero lo que es el compilador en C (Borland en este caso) no ha dado ningún error.

Prueba a construirlo con builh.bat y verás lo que te comento.

regards, saludos

Antonio Linares
www.fivetechsoft.com
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: Migrar a harbour
Posted: Tue Jul 01, 2014 09:44 AM
Hola a todos.

Mucho mejor. He colocado como el archivo buildh.bat mi archivo CLZ.bat (con el que compilo) y el archivo con el que enlazo cyewin1.lnk como el b32.bc y queda:
Code (fw): Select all Collapse
c0w32.obj +
cyewin.obj   +
rddsys.obj   +
preparar.obj +
procesos.obj +
gesttext.obj +
gestusua.obj +
gestmenu.obj +
gestusu2.obj +
gestempr.obj +
gestimem.obj +
gestmult.obj +
gestacti.obj +
gestdape.obj +
gestadfa.obj +
gestplan.obj +
gestasde.obj +
gestamor.obj +
gestproy.obj +
gestconc.obj +
gestepig.obj +
gestdiar.obj +
gesthdia.obj +
gestfact.obj +
gesthfac.obj +
gestbapg.obj +
gestcuan.obj +
gestdecu.obj +
gestdec1.obj +
gestdec2.obj +
gestdec3.obj +
gestcipe.obj +
ges2cipe.obj +
gestmodu.obj +
gestlist.obj +
gestlis2.obj +
gestimpr.obj +
gesti110.obj +
gesti115.obj +
gesti123.obj +
gestirpf.obj +
gestivas.obj +
gestiva2.obj +
gesti347.obj +
gesti340.obj +
gesti349.obj +
gesti180.obj +
gesti184.obj +
gesti190.obj +
gesti193.obj +
gesti390.obj +
gestp390.obj +
gestpres.obj +
gestutil.obj +
gestauto.obj +
rpreview.obj +
tmetafil.obj +
bpaint.obj +
tget.obj +
control.obj, +
cyewin.exe, +
cyewin.map, +
c:\fwh\lib\FiveHX.lib +
c:\fwh\lib\FiveHC.lib +
c:\harbour\lib\hbwin.lib +
c:\harbour\lib\gtwin.lib +
c:\harbour\lib\gtgui.lib +
c:\harbour\lib\hbrtl.lib +
c:\harbour\lib\hbvm.lib +
c:\harbour\lib\hblang.lib +
c:\harbour\lib\hbmacro.lib +
c:\harbour\lib\hbrdd.lib +
c:\harbour\lib\rddntx.lib +
c:\harbour\lib\rddcdx.lib +
c:\harbour\lib\rddfpt.lib +
c:\harbour\lib\hbsix.lib +
c:\harbour\lib\hbdebug.lib +
c:\harbour\lib\hbcommon.lib +
c:\harbour\lib\hbpp.lib +
c:\harbour\lib\hbcpage.lib +
c:\harbour\lib\hbcplr.lib +
c:\harbour\lib\hbct.lib +
c:\harbour\lib\hbpcre.lib +
c:\harbour\lib\xhb.lib +
c:\harbour\lib\hbziparc.lib +
c:\harbour\lib\hbmzip.lib +
c:\harbour\lib\hbzlib.lib +
c:\harbour\lib\minizip.lib +
c:\harbour\lib\png.lib +
c:\harbour\lib\hbcurl.lib +
c:\harbour\lib\hbusrrdd.lib +
C:\bcc582\lib\cw32.lib +
C:\bcc582\lib\import32.lib +
C:\bcc582\lib\uuid.lib +
C:\bcc582\lib\wininet.lib +
C:\bcc582\lib\oleaut32.lib +
C:\bcc582\lib\psdk\odbc32.lib +
C:\bcc582\lib\psdk\rasapi32.lib +
C:\bcc582\lib\psdk\nddeapi.lib +
C:\bcc582\lib\psdk\msimg32.lib +
C:\bcc582\lib\psdk\iphlpapi.lib +
C:\bcc582\lib\psdk\psapi.lib +
C:\bcc582\lib\psdk\gdiplus.lib +
C:\bcc582\lib\psdk\shell32.lib +
C:\compilar\clipper\extend.lib,
cyewin.res


Y me dan los siguientes errores para que me orientes de que pueden ser:

Code (fw): Select all Collapse
C:\ColtHop\CyEWin>c:\bcc582\bin\ilink32 -Gn -aa -Tpe -s -v @cyewin1.lnk 
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_HB_FUN___CLSACTIVE' referenced from C:\FWH\LIB\FIVEHX.LIB|DDE
Error: Unresolved external '_HB_FUN_CURDRIVE' referenced from C:\COLTHOP\CYEWIN\PREPARAR.OBJ
Error: Unresolved external '_HB_FUN_FW_GT' referenced from C:\COLTHOP\CYEWIN\GESTTEXT.OBJ
Error: Unresolved external '_HB_FUN_TPDF' referenced from C:\COLTHOP\CYEWIN\GESTDIAR.OBJ
Error: Unresolved external '_HB_FUN_DBSKIPPER' referenced from C:\FWH\LIB\FIVEHX.LIB|XBROWSE
Error: Unresolved external '_HB_FUN_VTWRAPPER' referenced from C:\FWH\LIB\FIVEHX.LIB|ADOFUNCS
Error: Unresolved external '_hb_itemPutDTL' referenced from C:\FWH\LIB\FIVEHX.LIB|VALTOSTR
Error: Unresolved external '_hb_part' referenced from C:\FWH\LIB\FIVEHX.LIB|VALTOSTR
Error: Unresolved external '_HB_FUN_HB_DBG_VMSTKLCOUNT' referenced from C:\FWH\LIB\FIVEHX.LIB|HARBOUR
Error: Unresolved external '_HB_FUN_HB_DBG_VMPARLLIST' referenced from C:\FWH\LIB\FIVEHX.LIB|HARBOUR
Error: Unresolved external '_HB_FUN_HB_DBG_VMVARLGET' referenced from C:\FWH\LIB\FIVEHX.LIB|HARBOUR
Error: Unresolved external '_HB_FUN_HB_DBG_VMVARSLEN' referenced from C:\FWH\LIB\FIVEHX.LIB|HARBOUR


De todos ellos el de TPDF es porque usaba la clase TPDF y la voy a cambiar por la HBHPDF si se por que es, pero el resto podrías orientarme.

Un saludo

Carlos
Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: Migrar a harbour
Posted: Tue Jul 01, 2014 11:07 AM

Hola Antonio:

ya he cambiado los LIB de la carpeta FWH por los que vienen en el Buildh.bat y solo me queda reemplazar los CurDrive por hb_curdrive y el cambio de TPDF por HBHPDF.

Un saludo

carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Migrar a harbour
Posted: Tue Jul 01, 2014 03:29 PM

Carlos,

Muy bien, si necesitas más ayuda nada más tienes que decirlo.

Seguro que muy pronto tienes tu aplicación funcionando perfectamente con Harbour :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: Migrar a harbour
Posted: Tue Jul 01, 2014 04:54 PM

OK Antonio:

Pero son tres y con mucho pdf.

Un saludo y gracias

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Migrar a harbour
Posted: Tue Jul 01, 2014 07:57 PM

Animo! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
colthop
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Re: Migrar a harbour
Posted: Wed Jul 02, 2014 09:50 AM

Hola a Todos.

Sigo con esto de la migración y veo que todo me funciona solo me queda pasar de tPdf a HPdf. He visto el ejemplo testprn6.prg y este hace todo lo que necesito menos el seleccionar un tamaño de fuente y el imprimir un texto. Alguien me podría indicar como se hace. También he visto la contrib donde lo pone todo, pero si alguien me comenta lo anterior me ahorraría mucho tiempo.

Un saludo y gracias

Carlos

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.

Continue the discussion

Static archive · New replies & topics via GitHub Discussions