24 lines
850 B
Plaintext
24 lines
850 B
Plaintext
* 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
|