* build_registratura.prg - M6: recompilare completa a proiectului (headless).
* Rulare: vfp9.exe -A -T "D:\ROA\ROAREGISTRATURA\Teste\build_registratura.prg"
* Log:    D:\ROA\ROAREGISTRATURA\Teste\log_build.txt (+ erori de compilare in .err daca apar)
SET SAFETY OFF
SET TALK OFF
PUBLIC gcBuildLog
gcBuildLog = 'D:\ROA\ROAREGISTRATURA\Teste\log_build.txt'
STRTOFILE('=== build_registratura ' + TTOC(DATETIME()) + CHR(13)+CHR(10), gcBuildLog)

ON ERROR DO blog WITH '*** EROARE ' + TRANSFORM(ERROR()) + ': ' + MESSAGE() + ;
	' | ' + MESSAGE(1) + ' | prg=' + PROGRAM() + ' lin=' + TRANSFORM(LINENO())

SET DEFAULT TO D:\ROA\ROAREGISTRATURA
DO blog WITH 'BUILD EXE roaregistratura.exe FROM roaRegistratura RECOMPILE ...'
BUILD EXE roaregistratura.exe FROM roaRegistratura RECOMPILE
DO blog WITH 'Build incheiat. Verificati roaregistratura.err daca exista.'
IF FILE('D:\ROA\ROAREGISTRATURA\roaregistratura.err')
	DO blog WITH '--- roaregistratura.err ---'
	DO blog WITH FILETOSTR('D:\ROA\ROAREGISTRATURA\roaregistratura.err')
ELSE
	DO blog WITH 'FARA erori de compilare (.err inexistent).'
ENDIF
ON ERROR
QUIT

PROCEDURE blog
	LPARAMETERS tcMsg
	STRTOFILE(TRANSFORM(tcMsg) + CHR(13)+CHR(10), gcBuildLog, 1)
ENDPROC