* s8_4a_compile.prg
* Compilare headless ofacturare.vcx dupa write-back S8-4a (toArticol.Id_Pol in do_adauga_articol_cautat).
SET SAFETY OFF
SET TALK OFF
SET NOTIFY OFF
CLOSE DATABASES
lcLog = "D:\ROA\ROAFACTURARE\docs\loguri_12b\s8_4a_compile.log"
IF !DIRECTORY("D:\ROA\ROAFACTURARE\docs\loguri_12b")
	MD "D:\ROA\ROAFACTURARE\docs\loguri_12b"
ENDIF
STRTOFILE("START " + TTOC(DATETIME()) + CHR(13) + CHR(10), lcLog)
ON ERROR DO CErr WITH ERROR(), MESSAGE(), LINENO()

SET DEFAULT TO "D:\ROA\ROAFACTURARE\COMUN\clase"
COMPILE CLASSLIB ofacturare.vcx
STRTOFILE("COMPILE OK" + CHR(13) + CHR(10), lcLog, 1)
STRTOFILE("END " + TTOC(DATETIME()) + CHR(13) + CHR(10), lcLog, 1)
QUIT

PROCEDURE CErr
LPARAMETERS tnErr, tcMsg, tnLine
STRTOFILE("COMPILE FAIL " + TRANSFORM(tnErr) + " " + tcMsg + " line=" + TRANSFORM(tnLine) + CHR(13) + CHR(10), lcLog, 1)
QUIT