41 lines
1.2 KiB
Plaintext
41 lines
1.2 KiB
Plaintext
* 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
|