FiveTech Software tech support forums

Code: Select all

Procedure Main()
	local i

	alert( "mm2" )

	FIELD CAMPO1, CAMPO2

	dbCreate( "PASO", {{ "campo1", "C", 10, 0 },;
							 { "campo2", "C", 10, 0 }} )

	SELE 0 ; USE "PASO" NEW EXCLUSIVE

	for i := 1 to 10
		dbAppend()
		Field->Campo1 := PadL( i, 10, "0" )
		Field->Campo2 := str(i, 10 )
	Next i

	dbCloseAll()

return

Code: Select all

@echo off
CLS
ECHO Compiling PRG

set hdir=c:\harbour
set bcdir=c:\borland\bcc55\bin
set include=c:\harbour\include

%hdir%\bin\harbour ads.prg /a /n >clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

echo -O2 -e%1.exe -I%hdir%\include -tW %1.c > b32.bc
%bcdir%\bcc32 -OS -5 -tW -M @b32.bc

:ENDCOMPILE

IF EXIST %1.rc %bcdir%\brc32 -r %1

echo c0w32.obj + > b32.bc
echo ADS.obj, + >> b32.bc
echo ADS.exe, + >> b32.bc
echo ADS.map, + >> b32.bc
echo %hdir%\lib\rtl.lib    + >> b32.bc
echo %hdir%\lib\vm.lib     + >> b32.bc
echo %hdir%\lib\gtGui.lib  + >> b32.bc
echo %hdir%\lib\lang.lib   + >> b32.bc
echo %hdir%\lib\macro.lib  + >> b32.bc
echo %hdir%\lib\rdd.lib    + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib  + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
rem echo %hdir%\lib\rddads.lib + >> b32.bc
rem echo %hdir%\lib\Ace32.lib + >> b32.bc
echo %hdir%\lib\pcrepos.lib + >> b32.bc
echo c:\borland\bcc55\lib\cw32.lib + >> b32.bc
echo c:\borland\bcc55\lib\import32.lib, >> b32.bc

cls
%bcdir%\ilink32 -aa -Tpe @b32.bc
pause

:EXIT