sync SVN r18107

utile/Teste/facturare_unificat/s8_3_compile.prg

@@ -0,0 +1,40 @@
+* s8_3_compile.prg - plan #12b, S8-3: COMPILE CLASSLIB headless pe ofacturare.vcx dupa
+* write-back-ul verificarii de cont de venit pe cele trei cai de adaugare a liniei.
+* Fara Oracle - COMPILE CLASSLIB nu are nevoie de conexiune, doar verifica sintaxa claselor.
+*
+* Rulare: vfp9.exe -A -T s8_3_compile.prg
+* Log:    out\s8_3_compile.log
+
+SET SAFETY OFF
+SET TALK OFF
+SET TABLEPROMPT OFF
+CLOSE DATABASES
+
+PUBLIC gcLog, gcVcx
+gcLog = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\s8_3_compile.log"
+gcVcx = "D:\ROA\ROAFACTURARE\COMUN\clase\ofacturare.vcx"
+
+STRTOFILE("START " + TTOC(DATETIME()) + CHR(13) + CHR(10), gcLog)
+
+ON ERROR DO s8_3_err WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()
+
+IF FILE(STRTRAN(gcVcx, ".vcx", ".err"))
+	DELETE FILE (STRTRAN(gcVcx, ".vcx", ".err"))
+ENDIF
+
+COMPILE CLASSLIB (gcVcx)
+
+IF FILE(STRTRAN(gcVcx, ".vcx", ".err"))
+	STRTOFILE("COMPILE ESEC" + CHR(13) + CHR(10), gcLog, 1)
+	STRTOFILE(FILETOSTR(STRTRAN(gcVcx, ".vcx", ".err")), gcLog, 1)
+ELSE
+	STRTOFILE("COMPILE OK" + CHR(13) + CHR(10), gcLog, 1)
+ENDIF
+
+QUIT
+
+PROCEDURE s8_3_err
+	LPARAMETERS tnErr, tcMsg, tcProg, tnLine
+	STRTOFILE("EROARE " + TRANSFORM(tnErr) + " " + tcMsg + " in " + tcProg + " linia " + TRANSFORM(tnLine) + CHR(13) + CHR(10), gcLog, 1)
+	QUIT
+ENDPROC