24 lines
829 B
Plaintext
24 lines
829 B
Plaintext
* s6c4_compile.prg
|
|
* Compilare headless onom_articole.vcx dupa garda NULL la INSERT (id_tara_origine).
|
|
SET SAFETY OFF
|
|
SET TALK OFF
|
|
SET NOTIFY OFF
|
|
CLOSE DATABASES
|
|
lcLog = "D:\ROA\ROAFACTURARE\docs\loguri_12b\s6c4_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 onom_articole.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
|