Ayuda migrando a harbour

ricardog · Post by **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

[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

Post by **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

ricardog · Post by **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\_.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

Lautaro · Post by **Lautaro** » Tue Jul 08, 2014 5:11 pm

Carlos,

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

Atte.,

Lautaro

ricardog · Post by **ricardog** » Tue Jul 08, 2014 5:52 pm

Claro que si Lautaro.

Code: Select all

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.

Lautaro · Post by **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

ricardog · Post by **ricardog** » Tue Jul 08, 2014 7:25 pm

No, Lautaro sigue sin hacer nada el .EXE

FiveTech Software tech support forums

Ayuda migrando a harbour

Ayuda migrando a harbour

Re: Ayuda migrando a harbour

Re: Ayuda migrando a harbour

Re: Ayuda migrando a harbour

Re: Ayuda migrando a harbour

Re: Ayuda migrando a harbour

Re: Ayuda migrando a harbour