* vanzare_ui_compile.prg
* Compilare headless a fisierelor atinse de pagina "Vanzare" din fisa articolului: class library
* onom_articole.vcx (clasa frm_catalog_articole_nou, combo cota TVA) si programul
* ofacturare_comun.prg (clasa cus_pret_nomenclator). Fara Oracle - verifica doar sintaxa.
*
* Rulare: powershell -ExecutionPolicy Bypass -File ruleaza_suita.ps1 -Nume vanzare_ui_compile
* Log:    out\vanzare_ui_compile.log

SET SAFETY OFF
SET TALK OFF
SET NOTIFY OFF
CLOSE DATABASES

PUBLIC gcLog, gcCaz, lnErori
gcLog = "D:\ROA\ROAFACTURARE\COMUN\utile\Teste\facturare_unificat\out\vanzare_ui_compile.log"
gcCaz = ""
lnErori = 0

STRTOFILE("START " + TTOC(DATETIME()) + CHR(13) + CHR(10), gcLog)
ON ERROR DO CErr WITH ERROR(), MESSAGE(), PROGRAM(), LINENO()

DO Compileaza WITH "D:\ROA\ROAFACTURARE\COMUN\clase", "onom_articole.vcx"
DO Compileaza WITH "D:\ROA\ROAFACTURARE\COMUN\programe", "ofacturare_comun.prg"

STRTOFILE("REZULTAT erori=" + TRANSFORM(lnErori) + CHR(13) + CHR(10), gcLog, 1)
STRTOFILE("END " + TTOC(DATETIME()) + CHR(13) + CHR(10), gcLog, 1)
QUIT

PROCEDURE Compileaza
	LPARAMETERS tcDir, tcFisier
	LOCAL lcCale, lcErr
	lcCale = ADDBS(tcDir) + tcFisier
	lcErr = STRTRAN(lcCale, ".vcx", ".err")
	lcErr = STRTRAN(lcErr, ".prg", ".err")
	IF FILE(lcErr)
		DELETE FILE (lcErr)
	ENDIF
	SET DEFAULT TO (tcDir)
	IF UPPER(JUSTEXT(tcFisier)) = "VCX"
		COMPILE CLASSLIB (tcFisier)
	ELSE
		COMPILE (tcFisier)
	ENDIF
	IF FILE(lcErr)
		lnErori = lnErori + 1
		STRTOFILE("COMPILE ESEC " + tcFisier + CHR(13) + CHR(10), gcLog, 1)
		STRTOFILE(FILETOSTR(lcErr), gcLog, 1)
	ELSE
		STRTOFILE("COMPILE OK " + tcFisier + CHR(13) + CHR(10), gcLog, 1)
	ENDIF
ENDPROC

PROCEDURE CErr
	LPARAMETERS tnErr, tcMsg, tcProg, tnLine
	lnErori = lnErori + 1
	STRTOFILE("EROARE " + TRANSFORM(tnErr) + " " + tcMsg + " in " + tcProg + " linia " + TRANSFORM(tnLine) + CHR(13) + CHR(10), gcLog, 1)
ENDPROC