FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Ayuda migrando a harbour

Post a reply

Ayuda migrando a harbour

Postby ricardog » Fri Jul 04, 2014 6: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: Select all  Expand view  RUN

[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
ricardog
 
Posts: 158
Joined: Tue Oct 11, 2005 3:10 pm
Top

Re: Ayuda migrando a harbour

Postby carlos vargas » Fri Jul 04, 2014 9: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)
User avatar
carlos vargas
 
Posts: 1721
Joined: Tue Oct 11, 2005 5:01 pm
Location: Nicaragua
Top

Re: Ayuda migrando a harbour

Postby ricardog » 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,

Gracias
ricardog
 
Posts: 158
Joined: Tue Oct 11, 2005 3:10 pm
Top

Re: Ayuda migrando a harbour

Postby Lautaro » Tue Jul 08, 2014 5:11 pm

Carlos,

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

Atte.,

Lautaro
User avatar
Lautaro
 
Posts: 322
Joined: Fri Oct 07, 2005 2:44 pm
Location: Osorno, Chile
Top

Re: Ayuda migrando a harbour

Postby ricardog » Tue Jul 08, 2014 5:52 pm

Claro que si Lautaro.

Code: Select all  Expand view  RUN
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:oWnd: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.
ricardog
 
Posts: 158
Joined: Tue Oct 11, 2005 3:10 pm
Top

Re: Ayuda migrando a harbour

Postby Lautaro » Tue Jul 08, 2014 7: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
User avatar
Lautaro
 
Posts: 322
Joined: Fri Oct 07, 2005 2:44 pm
Location: Osorno, Chile
Top

Re: Ayuda migrando a harbour

Postby ricardog » Tue Jul 08, 2014 7:25 pm

:x
No, Lautaro sigue sin hacer nada el .EXE
ricardog
 
Posts: 158
Joined: Tue Oct 11, 2005 3:10 pm
Top
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 23 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group