chore(legacy): muta proiectul Visual FoxPro in legacy-vfp/
Codul VFP original (ROAAUTO) era doar de testare/proba si nu se mai dezvolta. Mutat in legacy-vfp/ (sursa .prg, proiect .pjx/.PJT, date .DBF/.CDX/.FPT, test-comenzi.xml). Actualizat caile DBF default in tools/import_dbf.py si referinta din tests/test_import_dbf.py. Adaugat legacy-vfp/README.md. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
This commit is contained in:
55
legacy-vfp/rar_automate.prg
Normal file
55
legacy-vfp/rar_automate.prg
Normal file
@@ -0,0 +1,55 @@
|
||||
#DEFINE XML_PATH "C:\RAR\comenzi.xml"
|
||||
#DEFINE LOG_PATH "C:\RAR\auto_log.txt"
|
||||
|
||||
PROCEDURE AutomateProcesare
|
||||
LOCAL lcDate, llSuccess, llTestMode
|
||||
llSuccess = .F.
|
||||
llTestMode = .F. && Productie
|
||||
|
||||
lcDate = DTOC(DATE())
|
||||
|
||||
Try
|
||||
* Export comenzi in XML
|
||||
DO export_comenzi WITH XML_PATH, DATE()
|
||||
|
||||
* Procesare prin RAR AutoPass
|
||||
loRar = CREATEOBJECT("RarAutoPass")
|
||||
IF !loRar.SetCredentials(m.llTestMode) && .F. pentru productie
|
||||
THIS.WriteLog("EROARE: " + loRar.ErrorMsg)
|
||||
llSuccess = .F.
|
||||
RETURN llSuccess
|
||||
ENDIF
|
||||
|
||||
IF loRar.ProcessXMLComenzi(XML_PATH)
|
||||
THIS.WriteLog("Procesare reu?ita pentru " + lcDate)
|
||||
llSuccess = .T.
|
||||
ELSE
|
||||
THIS.WriteLog("EROARE: " + loRar.ErrorMsg)
|
||||
llSuccess = .F.
|
||||
ENDIF
|
||||
|
||||
Catch To loError
|
||||
THIS.WriteLog("EROARE: " + loError.Message)
|
||||
llSuccess = .F.
|
||||
Endtry
|
||||
|
||||
Return llSuccess
|
||||
|
||||
PROCEDURE WriteLog
|
||||
PARAMETERS tcMessage
|
||||
LOCAL llSuccess
|
||||
llSuccess = .F.
|
||||
|
||||
Try
|
||||
STRTOFILE(;
|
||||
TTOC(DATETIME()) + ": " + tcMessage + CHR(13) + CHR(10),;
|
||||
LOG_PATH,;
|
||||
1)
|
||||
llSuccess = .T.
|
||||
|
||||
Catch To loError
|
||||
? "Eroare scriere log: " + loError.Message
|
||||
llSuccess = .F.
|
||||
Endtry
|
||||
|
||||
Return llSuccess
|
||||
Reference in New Issue
Block a user