sync SVN r18107

utile/Teste/facturare_unificat/s8_4a_compile.prg

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