FUNCTION ReIndPack( lPack, lIndCep, oMostraIndCep, olPack, oMeter1, ;
oMeter2, oMeter3 )
LOCAL Del_Indice
DEL_INDICE := DIRECTORY( "*.CDX" )
FOR I = 1 TO LEN( Del_Indice )
FERASE( DEL_INDICE[I][1] )
NEXT I
IF NetUse( "AGENDGRP", .F. )
IF lPack = .T.
MsgRun( "Borrando Registros Excluidos...", ;
"Por Favor, Espere!" , ;
{ || __DbPack() } )
ENDIF
oMeter1:nTotal = RecCount()
INDEX ON Field->GTE_CODIGO TAG CODIGO TO AGENDGRP ;
FOR !DELETED() ;
EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
EVERY 10
INDEX ON Field->GTE_NOMBRE TAG NOMBRE TO AGENDGRP ;
FOR !DELETED() ;
EVAL ( oMeter1:Set( RecNo() ), CursorWait(), SysRefresh() ) ;
EVERY 10
DbCloseAll()
ENDIF
...
RETURN NIL
if not exist obj md obj
c:\bcc582\bin\make -ftest.mak
#Borland make for Michel, (c) FiveTech Software 2014
HBDIR=c:\harbour
BCDIR=c:\bcc582
FWDIR=c:\fwh
#change these paths as needed
.path.OBJ = .\obj
.path.PRG = .\
.path.CH = $(FWDIR)\include;$(HBDIR)\include
.path.C = .\
.path.rc = .\
#important: Use Uppercase for filenames extensions, in the next two rules!
PRG = \
.\BEHAGEN1.PRG \
.\BEHAGEN2.PRG \
.\BEHBOEK1.PRG \
.\BEHBOEK2.PRG \
.\BEHDOSS1.PRG \
.\BEHDOSS2.PRG \
.\BEHINTRX.PRG \
.\BEHPAAND.PRG \
.\BEHPARAM.PRG \
.\BEHPRARC.PRG \
.\BEHSOOR1.PRG \
.\BEHSOOR2.PRG \
.\BEHUSER.PRG \
.\DOCWP1.PRG \
.\DOCWP2.PRG \
.\FGEGTL1.PRG \
.\GEGTL2.PRG \
.\JUDA.PRG \
.\MAKEIND.PRG \
.\RAPAGPRE.PRG \
.\RAPDOSBH.PRG \
.\STJUDA.PRG \
.\TINATIVO.PRG \
.\Z-ERROR1.PRG \
.\Z-PRINT.PRG \
.\Z-RPREV.PRG \
.\Z-TGET.PRG \
.\Z-WBROWS.PRG
OBJ = $(PRGS:.PRG=.OBJ)
OBJS = $(OBJ:.\=.\obj\)
PROJECT : JUDA.EXE
JUDA.EXE : $(OBJS) JUDA.RES
echo off
echo $(BCDIR)\lib\c0w32.obj + > b32.bc
echo $(OBJS), + >> b32.bc
echo juda.exe, + >> b32.bc
echo juda.map, + >> b32.bc
echo $(FWDIR)\lib\FiveH.lib $(FWDIR)\lib\FiveHC.lib + >> b32.bc
echo $(HBDIR)\lib\hbrtl.lib + >> b32.bc
echo $(HBDIR)\lib\hbvm.lib + >> b32.bc
echo $(HBDIR)\lib\gtgui.lib + >> b32.bc
echo $(HBDIR)\lib\hblang.lib + >> b32.bc
echo $(HBDIR)\lib\hbmacro.lib + >> b32.bc
echo $(HBDIR)\lib\hbrdd.lib + >> b32.bc
echo $(HBDIR)\lib\rddntx.lib + >> b32.bc
echo $(HBDIR)\lib\rddcdx.lib + >> b32.bc
echo $(HBDIR)\lib\rddfpt.lib + >> b32.bc
echo $(HBDIR)\lib\hbsix.lib + >> b32.bc
echo $(HBDIR)\lib\hbdebug.lib + >> b32.bc
echo $(HBDIR)\lib\hbcommon.lib + >> b32.bc
echo $(HBDIR)\lib\hbpp.lib + >> b32.bc
echo $(HBDIR)\lib\hbwin.lib + >> b32.bc
echo $(HBDIR)\lib\hbcpage.lib + >> b32.bc
echo $(HBDIR)\lib\hbct.lib + >> b32.bc
echo $(HBDIR)\lib\png.lib + >> b32.bc
echo $(HBDIR)\lib\hbcplr.lib + >> b32.bc
echo $(HBDIR)\lib\xhb.lib + >> b32.bc
echo $(HBDIR)\lib\hbzlib.lib + >> b32.bc
rem Uncomment these two lines to use Advantage RDD
rem echo $(HBDIR)\lib\rddads.lib + >> b32.bc
rem echo $(HBDIR)\lib\Ace32.lib + >> b32.bc
echo $(BCDIR)\lib\cw32.lib + >> b32.bc
echo $(BCDIR)\lib\import32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\odbc32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\nddeapi.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\iphlpapi.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\msimg32.lib + >> b32.bc
echo $(BCDIR)\lib\psdk\rasapi32.lib, >> b32.bc
IF EXIST juda.res echo juda.res >> b32.bc
$(BCDIR)\bin\ilink32 -Gn -aa -Tpe -s @b32.bc
del b32.bc
.PRG.OBJ:
$(HBDIR)\bin\harbour $< /L /N /W /V /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include
$(BCDIR)\bin\bcc32 -c -tWM -I$(HBDIR)\include -oobj\$& obj\$&.c
.C.OBJ:
echo -c -tWM -D__HARBOUR__ -DHB_API_MACROS > tmp
echo -I$(HBDIR)\include;$(FWDIR)\include >> tmp
$(BCDIR)\bin\bcc32 -oobj\$& @tmp $&.c
del tmp
juda.res : juda.rc
$(BCDIR)\bin\brc32.exe -r juda.rc
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 15 guests