FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Ayuda migrando a harbour
ricardog
Posts: 158
Joined: Tue Oct 11, 2005 03:10 PM
Ayuda migrando a harbour
Posted: Fri Jul 04, 2014 06:44 PM
Buenas tardes.

Mi aplicaci贸n compila sin errores, y se construye el .EXE, pero este no hace nada.

Compilo con Harbour 3.0, y xMate, este es mi ambiente (expuesto por Carlos Vargas, en este foro).

Code (fw): Select all Collapse
[Environment]
Description 1=Harbour Compiler
Description 2=
Description 3=

[Advanced]
Command types=1,1,1,1,1,1,1,1,1

[Harbour]
HB_INSTALL=P:\32Bits\Harbour
HB_COMMAND=%HB_BIN_INSTALL%\Harbour.Exe %PRG% /m /n /gc0 /w0 /es2 /i%HB_INC_INSTALL% /q0 /d__HARBOUR__
Option prefix=/

[C]
C_INSTALL=P:\32Bits\Borland\bcc582
C_COMP_COMMAND=%C_BIN_INSTALL%\Bcc32.Exe %CRLF%-M -c -O2 -e -tWM -q %CRLF%-D__HARBOUR__ %CRLF%-I%HB_INC_INSTALL%;%C_INC_INSTALL% -n%HOME%\Obj %C%
C_LIB_COMMAND=%C_BIN_INSTALL%\TLib.Exe %LIB% /P1024 @%RSP% , %LST%
C_LINK_COMMAND=%C_BIN_INSTALL%\iLink32.Exe -Gn -q -aa -Tpe -s @%LNK%
C_RC_COMMAND=%C_BIN_INSTALL%\brc32.exe -r -i%C_INC_INSTALL%\windows\sdk -I%C_INC_INSTALL%\windows\crtl -fo%RES% %RC%
C_DLL_COMMAND=%C_BIN_INSTALL%\iLink32.Exe -Gn -q -aa -Tpd -M -L%C_LIB_INSTALL% @%LNK%
Option prefix=-

[User]
POSTEXE_COMMAND=
POSTLIB_COMMAND=
POSTDLL_COMMAND=

[Files]
P:\32Bits\FWH\lib\Fiveh.lib=1
P:\32Bits\FWH\lib\Fivehc.lib=2
%HB_LIB_INSTALL%\win\bcc\hbrtl.lib=3
%HB_LIB_INSTALL%\win\bcc\hbvm.lib=4
%HB_LIB_INSTALL%\win\bcc\gtgui.lib=5
%HB_LIB_INSTALL%\win\bcc\hblang.lib=6
%HB_LIB_INSTALL%\win\bcc\hbmacro.lib=7
%HB_LIB_INSTALL%\win\bcc\hbrdd.lib=8
%HB_LIB_INSTALL%\win\bcc\rddntx.lib=9
%HB_LIB_INSTALL%\win\bcc\rddcdx.lib=10
%HB_LIB_INSTALL%\win\bcc\rddfpt.lib=11
%HB_LIB_INSTALL%\win\bcc\hbsix.lib=12
%HB_LIB_INSTALL%\win\bcc\hbdebug.lib=13
%HB_LIB_INSTALL%\win\bcc\hbcommon.lib=14
%HB_LIB_INSTALL%\win\bcc\hbpp.lib=15
%HB_LIB_INSTALL%\win\bcc\hbcpage.lib=16
%HB_LIB_INSTALL%\win\bcc\hbwin.lib=17
%HB_LIB_INSTALL%\win\bcc\hbcplr.lib=18
%HB_LIB_INSTALL%\win\bcc\hbct.lib=19
%HB_LIB_INSTALL%\win\bcc\hbpcre.lib=20
%HB_LIB_INSTALL%\win\bcc\xhb.lib=21
%HB_LIB_INSTALL%\win\bcc\hbziparc.lib=22
%HB_LIB_INSTALL%\win\bcc\hbmzip.lib=23
%HB_LIB_INSTALL%\win\bcc\hbzlib.lib=24
%HB_LIB_INSTALL%\win\bcc\minizip.lib=25
%HB_LIB_INSTALL%\win\bcc\png.lib=26
%HB_LIB_INSTALL%\hbrtl.lib=27
%C_LIB_INSTALL%\c0w32.obj=28
%C_LIB_INSTALL%\cw32.lib=29
%C_LIB_INSTALL%\uuid.lib=30
%C_LIB_INSTALL%\import32.lib=31
%C_LIB_INSTALL%\ws2_32.lib=32
%C_LIB_INSTALL%\psdk\odbc32.lib=33
%C_LIB_INSTALL%\psdk\nddeapi.lib=34
%C_LIB_INSTALL%\psdk\iphlpapi.lib=35
%C_LIB_INSTALL%\psdk\msimg32.lib=36
%C_LIB_INSTALL%\psdk\psapi.lib=37
%C_LIB_INSTALL%\PSDK\rasapi32.lib=38
%C_LIB_INSTALL%\PSDK\GdiPlus.lib=39
%C_LIB_INSTALL%\psdk\shell32.lib=40
%HB_LIB_INSTALL%\win\bcc\xdiff.lib=41
%HB_LIB_INSTALL%\win\bcc\hbnortl.lib=42

[DLL Files]
%HB_LIB_INSTALL%\harbour.lib=1
%C_LIB_INSTALL%\C0W32.OBJ=2
%C_LIB_INSTALL%\CW32.LIB=3
%C_LIB_INSTALL%\IMPORT32.LIB=4


Gracias por su ayuda.


Ricardo E. Guardado Flores
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Ayuda migrando a harbour
Posted: Fri Jul 04, 2014 09:26 PM

Ricardo, en lo que pones, no puedo ver donde indicas tus prg.

si gustas te puedo ayudar remoto por team

salu2
carlos vargas

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
ricardog
Posts: 158
Joined: Tue Oct 11, 2005 03:10 PM
Re: Ayuda migrando a harbour
Posted: Mon Jul 07, 2014 11:50 PM
Carlos, buenas tardes perdon pero no habia podido responderte, este es el archivo .XHP de xMate

    [Version]
    Type=xMate
    Number=1.15

    [Info]
    Type=Executable
    Architecture=FWH + Harbour
    Include=P:\32Bits\FWH\include;%HB_INSTALL%\include;P:\Fuentes\xHarbour\MyMedica\Include
    Define=

    [xMate]
    Create Map/List File=No

    [Project]
    Run=
    Params=
    Final Path=%HOME%\BIN
    Maintain LNK=No
    Default Type=1
    Error log=

    [Data Path]
    Dbf=

    [Editor]
    P:\Fuentes\Harbour\MyMedica\Source\Main.prg=1,N,Y

    [Files]
    %HOME%\Source\Main.prg=1,.F.,448,32,
    %HOME%\Source\report.prg=2,.F.,1332,16,
    %HOME%\Source\Paciente.prg=3,.F.,27,3,
    %HOME%\Source\Institucion.prg=4,.F.,284,25,
    %HOME%\Source\Ciudades.prg=5,.F.,42,68,
    %HOME%\Source\Estados.prg=6,.F.,152,4,
    %HOME%\Source\Paises.prg=7,.F.,184,80,
    %HOME%\Source\Doctor.prg=8,.F.,441,69,
    %HOME%\Source\Areas.prg=9,.F.,146,27,
    %HOME%\Source\Habitacion.prg=10,.F.,125,36,
    %HOME%\Source\Departamentos.prg=11,.F.,49,103,
    %HOME%\Source\Contrarecibo.prg=12,.F.,505,49,
    %HOME%\Source\Almacen.prg=13,.F.,37,27,
    %HOME%\Source\Articulo.prg=14,.F.,317,37,
    %HOME%\Source\Divisiones.prg=15,.F.,93,80,
    %HOME%\Source\Historiac.prg=16,.F.,103,16,
    %HOME%\Source\Clasificacion.prg=17,.F.,243,65,
    %HOME%\Source\Empresas.prg=18,.F.,53,16,
    %HOME%\Source\Ubicaciones.prg=19,.F.,31,6,
    %HOME%\Source\Proveedor.prg=20,.F.,431,92,
    %HOME%\Source\Usuario.prg=21,.F.,285,50,
    %HOME%\Source\PdeVenta.prg=22,.F.,674,121,
    %HOME%\Source\Terminales.prg=23,.F.,101,72,
    %HOME%\Source\Especialidad.prg=24,.F.,37,83,
    %HOME%\Source\HojaQx.prg=25,.F.,647,12,
    %HOME%\Source\NotaIngreso.prg=26,.F.,199,38,
    %HOME%\Source\NotaUrgencia.prg=27,.F.,591,21,
    %HOME%\Source\NotaPre.prg=28,.F.,397,27,
    %HOME%\Source\Modulos.prg=29,.F.,232,80,
    %HOME%\Source\Permisos.prg=30,.F.,233,80,
    %HOME%\Source\Traspasos.prg=31,.F.,690,80,
    %HOME%\Source\NotaEvol.prg=32,.F.,425,16,
    %HOME%\Source\NotaEgreso.prg=33,.F.,251,40,
    %HOME%\Source\Check.prg=34,.F.,31,138,
    %HOME%\Source\Devolucion.prg=35,.F.,622,22,
    %HOME%\Source\Indicacion.prg=36,.F.,106,78,
    %HOME%\Source\OrdendeC.prg=37,.F.,321,66,
    %HOME%\Source\Cartas.prg=38,.F.,158,72,
    %HOME%\Source\REgresos.prg=39,.F.,93,51,
    P:\Fuentes\xHarbour\Comun\Classes\TWord\Tword.prg=40,.F.,550,51,
    %HOME%\Source\FacturaCFDI.prg=41,.F.,37,4,
    %HOME%\Source\FormatoTick.prg=42,.F.,443,12,
    %HOME%\Source\Funciones.prg=43,.F.,30,47,
    %HOME%\Source\CargosPac.prg=44,.F.,1721,52,
    %HOME%\Source\REdoCuenta.prg=45,.F.,249,1,
    %HOME%\Source\ProgCiru.prg=46,.F.,278,71,
    %HOME%\Source\MPaciente.prg=47,.F.,26,15,
    %HOME%\Source\CuadraCensos.prg=48,.F.,187,113,
    %HOME%\Source\Cie10.prg=49,.F.,206,7,
    %HOME%\Source\SolicitudPiso.prg=50,.F.,627,33,
    %HOME%\Source\RFacturasxProv.prg=51,.F.,45,53,
    %HOME%\Source\DevolProv.prg=52,.F.,203,50,
    %HOME%\Source\Fiscales.prg=53,.F.,122,34,
    %HOME%\Source\CargosPacD.prg=54,.F.,191,100,
    %HOME%\Source\Vales.prg=55,.F.,344,115,
    %HOME%\Source\RConsumos.prg=56,.F.,138,31,
    %HOME%\Source\OtrosCargos.prg=57,.F.,296,97,
    %HOME%\Source\NotaCred.prg=58,.F.,34,15,
    %HOME%\Source\FacturasxFechaAExcel.prg=59,.F.,48,10,
    %HOME%\Source\Compra.prg=60,.F.,614,76,
    %HOME%\Source\Pos.prg=61,.F.,426,21,
    %HOME%\Source\Requisicion.prg=62,.F.,16,35,
    %HOME%\Source\NotaCredP.prg=63,.F.,177,67,
    %HOME%\Source\EstadUrge.prg=64,.F.,889,56,
    %HOME%\Source\Urgencias.prg=65,.F.,383,68,
    %HOME%\Lib\MedicaLib.Lib=66,.F.,0,0,
    P:\Fuentes\Harbour\RgAdoLib\Lib\RgAdoLib.Lib=67,.F.,0,0,
    %HOME%\Resource\MAIN.RES=68,.F.,0,0,
    P:\Fuentes\xHarbour\Comun\resource\RGLIB.res=69,.F.,0,0,
    P:\Fuentes\xHarbour\Comun\resource\Prev32.res=70,.F.,0,0,
    P:\32Bits\FWH\lib\Fiveh.lib=71,.T.,0,0,
    P:\32Bits\FWH\lib\Fivehc.lib=72,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbrtl.lib=73,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbvm.lib=74,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\gtgui.lib=75,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hblang.lib=76,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbmacro.lib=77,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbrdd.lib=78,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\rddntx.lib=79,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\rddcdx.lib=80,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\rddfpt.lib=81,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbsix.lib=82,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbdebug.lib=83,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbcommon.lib=84,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbpp.lib=85,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbcpage.lib=86,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbwin.lib=87,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbcplr.lib=88,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbct.lib=89,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbpcre.lib=90,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\xhb.lib=91,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbziparc.lib=92,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbmzip.lib=93,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbzlib.lib=94,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\minizip.lib=95,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\png.lib=96,.T.,0,0,
    %HB_LIB_INSTALL%\hbrtl.lib=97,.T.,0,0,
    %C_LIB_INSTALL%\c0w32.obj=98,.T.,0,0,
    %C_LIB_INSTALL%\cw32.lib=99,.T.,0,0,
    %C_LIB_INSTALL%\uuid.lib=100,.T.,0,0,
    %C_LIB_INSTALL%\import32.lib=101,.T.,0,0,
    %C_LIB_INSTALL%\ws2_32.lib=102,.T.,0,0,
    %C_LIB_INSTALL%\psdk\odbc32.lib=103,.T.,0,0,
    %C_LIB_INSTALL%\psdk\nddeapi.lib=104,.T.,0,0,
    %C_LIB_INSTALL%\psdk\iphlpapi.lib=105,.T.,0,0,
    %C_LIB_INSTALL%\psdk\msimg32.lib=106,.T.,0,0,
    %C_LIB_INSTALL%\psdk\psapi.lib=107,.T.,0,0,
    %C_LIB_INSTALL%\PSDK\rasapi32.lib=108,.T.,0,0,
    %C_LIB_INSTALL%\PSDK\GdiPlus.lib=109,.T.,0,0,
    %C_LIB_INSTALL%\psdk\shell32.lib=110,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\xdiff.lib=111,.T.,0,0,
    %HB_LIB_INSTALL%\win\bcc\hbnortl.lib=112,.T.,0,0,
    [/list:u]

    Gracias
Lautaro
Posts: 337
Joined: Fri Oct 07, 2005 02:44 PM
Re: Ayuda migrando a harbour
Posted: Tue Jul 08, 2014 05:11 PM

Carlos,

驴 puedes mostrar el comienzo de tu prg main.prg ?

Atte.,

Lautaro

Hola,

Soy un Contador que por necesidad aprendio a programar y se quedo programando.
ricardog
Posts: 158
Joined: Tue Oct 11, 2005 03:10 PM
Re: Ayuda migrando a harbour
Posted: Tue Jul 08, 2014 05:52 PM
Claro que si Lautaro.

Code (fw): Select all Collapse
DEFINE FONT oSys:oFontBold 聽 NAME "Verdana" 聽 聽SIZE 0, - 12 聽BOLD
DEFINE FONT oSys:oFontTitle 聽NAME "DEFAULT_GUI_FONT" SIZE 0, - 32 BOLD 聽 //Para los Titulos de los dialogos
DEFINE FONT oSys:oFontTitleSmall 聽NAME "DEFAULT_GUI_FONT" SIZE 0, - 22 BOLD 聽 //Para los Titulos peque帽os de los dialogos

DEFINE ICON oSys:oIcon RESOURCE "ICO_BBG"
DEFINE BRUSH oSys:oBrushDlg File bmp( "Degrada" )
oSys:oBmp := TImage():DEFINE( , jpg( "empresa" ) )

DEFINE WINDOW oSys:oWnd TITLE "[ M茅dica5 漏 ], Gesti贸n Hospitalaria - " + oSys:cEmpresa + ;
聽 聽 聽 聽IF( oSys:lIsDemo, " .::. Sistema de Demostraci贸n .::.", "" ) ;
聽 聽 聽 聽MENU MenuApp() ICON oSys:oIcon ;
聽 聽 聽 聽FROM 0, 0 TO oSys:aCoors[ 1 ] - 1, oSys:aCoors[ 4 ]

聽DEFINE OUTLOOK2003 oOutLook2003 OF oSys:oWnd ;
聽 聽 聽 聽 聽 PROMPTS "Cat谩logos" ;
聽 聽 聽 聽 聽 BITMAPS 聽"people16"

聽 聽oOutLook2003:nWidth += 55
聽 聽oOutLook2003:nHeight -= 290 //255
聽 聽oSys:oWnd:oLeft = NIL

聽 聽@ 0, 0 EXPLORERBAR oSys:oExBar OF oOutLook2003:aDialogs[ 1 ] ;
聽 聽 聽 SIZE oOutLook2003:aDialogs[ 1 ]:nWidth, oOutLook2003:aDialogs[ 1 ]:nHeight

聽 聽oSys:oExBar:SetFont( oSys:oFont )

聽 聽//El panel para los dialogos, de la aplicacion
聽 聽oSys:oPanel 聽 := TPanel():New( 0, oOutLook2003:nWidth, oSys:oWnd:nHeight, oSys:oWnd:nWidth, oSys:oWnd )
聽 聽oSys:oPanel:bPainted 聽:= { | hDC | PalBmpDraw( hDC, 0, 0, oSys:oBmp:hBitmap,, oSys:oPanel:nRight, oSys:oPanel:nBottom,, .T. ) }

聽 聽oSys:oPanel2 = oSys:oExBar:AddPanel( "Cat谩logos", "BMP_EDITAR", 100 )
聽 聽oSys:oPanel2:AddLink( " 聽Pacientes", 聽 聽 聽 聽{ | o | Perform( "Pacientes()" ) }, "PEOPLE16" )
聽 聽oSys:oPanel2:AddLink( " 聽" )
聽 聽oSys:oPanel2:AddLink( " 聽Programaci贸n de Cirugias", { | o | Perform( "CitasCi()" ) } , 聽"BMP_CALENDARIOPQ" )
聽 聽oSys:oPanel2:AddLink( " 聽" )
聽 聽oSys:oPanel2:AddLink( " 聽Censos", 聽 聽 聽 聽{ | o | Censos() }, "CLIENTE" )
聽 聽oSys:oPanel2:AddLink( " 聽" )
聽 聽oSys:oPanel2:AddLink( " 聽Cie-10", 聽 聽 聽 聽{ | o | Cie10() }, "CRUZBLANCA" )
聽 聽oSys:oPanel2:AddLink( " 聽" )
聽 聽oSys:oPanel2:AddLink( " 聽Consultas DGP", { | o | InternetMain() }, "CLIENTE" )
聽 聽oSys:oPanel2:AddLink( " 聽" )
聽 聽oSys:oPanel2:AddLink( " 聽Salir", 聽 聽 聽 聽 { | o | oSys:oWnd:END() }, "TERMIN2" )

ACTIVATE WINDOW oSys:oWnd MAXIMIZED ;
聽 聽 聽 聽 聽ON INIT ( CargaParam(), ; 聽 聽 聽 聽//ChecaServidor(),; 聽 聽oSys:SetMenu(MenuApp()),;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽Checa_Passw( .T. ), ; 聽 聽//Se envia .T., porque es una nueva sesion de usuario
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽IF(oTerminal:solfondo,RegistraFondo(),),;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽tinativo():new( nTempo_espera, cNome_funcao, lTimercontinua ), ; 聽 //Traido desde el foro
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oTimerMata := TTimer():New( 1200000, { || MataProcesos( oTimerMata ) } ), ; 聽 //60,000 milisegundos = 60 segundos
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽oTimerMata:ACTIVATE(), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽IF( oTerminal:tipo = 11 .or. oTerminal:tipo = 15 .or. oTerminal:tipo = 4 .or. oTerminal:tipo = 6 ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽.or. oTerminal:tipo = 22 .or. oTerminal:tipo = 23 ,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 ( MsgRun( "Cargando parametros para CFDI", ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 "Por favor , Espere...", ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽{ || oSys:Carga_Parametros() } ) ), ), ;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽PonBarraMsg( oTerminal ) ) ;
聽 聽 聽 聽 聽VALID MsgYesNo( "Est谩 seguro de querer salir...", "Salir del Sistema" )


Gracias por ayudar.

Ricardo E. Guardado Flores.
Lautaro
Posts: 337
Joined: Fri Oct 07, 2005 02:44 PM
Re: Ayuda migrando a harbour
Posted: Tue Jul 08, 2014 07:03 PM

Carlos,

Revisa la funcion o procedimiento donde construyes el menu, alguna vez me paso eso y era porque faltaba un endmenu.

Un prueba simple que puedes hacer es comentar la parte de la generacion del menu y ver si se muestra la ventana.

Saludos,

Lautaro

Hola,

Soy un Contador que por necesidad aprendio a programar y se quedo programando.
ricardog
Posts: 158
Joined: Tue Oct 11, 2005 03:10 PM
Re: Ayuda migrando a harbour
Posted: Tue Jul 08, 2014 07:25 PM

No, Lautaro sigue sin hacer nada el .EXE

:x

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions