sync SVN r18107

utile/Teste/facturare_unificat/s6c4_compile.prg

@@ -0,0 +1,23 @@
+* 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