* s7b2_compile.prg - plan #12b, S7b-2: COMPILE CLASSLIB headless pe ofacturare.vcx dupa
* write-back-ul textului (nota implicita a politicii de stoc in optiuni). Fara Oracle -
* COMPILE CLASSLIB nu are nevoie de conexiune, doar verifica sintaxa claselor.
*
* Rulare: powershell -ExecutionPolicy Bypass -File ruleaza_suita.ps1 -Nume s7b2_compile
* Log:    out\s7b2_compile.log (copiat apoi in docs\loguri_12b\s7b2_compile.log)

SET SAFETY OFF
SET TALK OFF
CLOSE DATABASES

PUBLIC gcLog, gcVcx
gcLog = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\s7b2_compile.log"
gcVcx = "D:\ROA\ROAFACTURARE\COMUN\clase\ofacturare.vcx"

STRTOFILE("START " + TTOC(DATETIME()) + CHR(13) + CHR(10), gcLog)

ON ERROR DO s7b2_err WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()

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 s7b2_err
	LPARAMETERS tnErr, tcMsg, tcProg, tnLine
	STRTOFILE("EROARE " + TRANSFORM(tnErr) + " " + tcMsg + " in " + tcProg + " linia " + TRANSFORM(tnLine) + CHR(13) + CHR(10), gcLog, 1)
	QUIT
ENDPROC