FiveTech Software tech support forums

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
 

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" )