58 lines
1.8 KiB
Plaintext
58 lines
1.8 KiB
Plaintext
* 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
|