gomag-vending/vfp/sync-comenzi-web.prg

*-- sync-comenzi-web.prg - Orchestrator pentru sincronizarea comenzilor web cu Oracle ROA
*-- Autor: Claude AI  
*-- Data: 10 septembrie 2025
*-- Dependency: gomag-vending.prg trebuie rulat mai intai pentru generarea JSON-urilor

SET SAFETY OFF
SET CENTURY ON 
SET DATE DMY 
SET EXACT ON 
SET ANSI ON 
SET DELETED ON

*-- Variabile globale
PRIVATE gcAppPath, gcLogFile, gnStartTime, gnOrdersProcessed, gnOrdersSuccess, gnOrdersErrors
PRIVATE goConnectie, goSettings, goAppSetup
LOCAL lcJsonPattern, laJsonFiles[1], lnJsonFiles, lnIndex, lcJsonFile
LOCAL loJsonData, lcJsonContent, lnOrderCount, lnOrderIndex
LOCAL loOrder, lcResult, llProcessSuccess

*-- Initializare
gcAppPath = ADDBS(JUSTPATH(SYS(16,0)))
SET DEFAULT TO (m.gcAppPath)
SET PATH TO nfjson ADDITIVE 
SET PROCEDURE TO utils.prg ADDITIVE
SET PROCEDURE TO ApplicationSetup.prg ADDITIVE
SET PROCEDURE TO nfjsonread.prg ADDITIVE

*-- Statistici
gnStartTime = SECONDS()
gnOrdersProcessed = 0
gnOrdersSuccess = 0
gnOrdersErrors = 0

*-- Initializare logging
gcLogFile = InitLog("sync_comenzi")
LogMessage("=== SYNC COMENZI WEB → ORACLE ROA ===", "INFO", gcLogFile)

*-- Creare și inițializare clasa setup aplicație
goAppSetup = CREATEOBJECT("ApplicationSetup", gcAppPath)

*-- Setup complet cu validare și afișare configurație
IF !goAppSetup.Initialize()
    LogMessage("EROARE: Setup-ul aplicației a eșuat sau necesită configurare!", "ERROR", gcLogFile)
    RETURN .F.
ENDIF

*-- Obținere setări din clasă
goSettings = goAppSetup.GetSettings()

*-- Verificare directoare necesare
IF !DIRECTORY(gcAppPath + "output")
    LogMessage("EROARE: Directorul output/ nu există! Rulează mai întâi adapter-ul web", "ERROR", gcLogFile)
    RETURN .F.
ENDIF

*-- Rulare automată adapter pentru obținere comenzi (dacă este configurat)
IF goSettings.AutoRunAdapter
    LogMessage("Rulez adapter pentru obținere comenzi: " + goSettings.AdapterProgram, "INFO", gcLogFile)
    IF !ExecuteAdapter()
        LogMessage("EROARE la rularea adapter-ului, continuez cu fișierele JSON existente", "WARN", gcLogFile)
    ENDIF
ELSE
    LogMessage("AutoRunAdapter este dezactivat, folosesc doar fișierele JSON existente", "INFO", gcLogFile)
ENDIF

*-- Găsire fișiere JSON comenzi din pattern configurat
lcJsonPattern = gcAppPath + "output\" + goSettings.JsonFilePattern
lnJsonFiles = ADIR(laJsonFiles, lcJsonPattern)

IF lnJsonFiles = 0
    LogMessage("AVERTISMENT: Nu au fost găsite fișiere JSON cu comenzi web", "WARN", gcLogFile)
    LogMessage("Rulează mai întâi adapter-ul web cu GetOrders=1 în settings.ini", "INFO", gcLogFile)
    RETURN .T.
ENDIF

LogMessage("Găsite " + TRANSFORM(lnJsonFiles) + " fișiere JSON cu comenzi web", "INFO", gcLogFile)

*-- Încercare conectare Oracle (folosind conexiunea existentă din sistem)
IF !ConnectToOracle()
    LogMessage("EROARE: Nu s-a putut conecta la Oracle ROA", "ERROR", gcLogFile)
    RETURN .F.
ENDIF

*-- Procesare fiecare fișier JSON găsit
FOR lnIndex = 1 TO lnJsonFiles
    lcJsonFile = gcAppPath + "output\" + laJsonFiles[lnIndex, 1]
    LogMessage("Procesez fișierul: " + laJsonFiles[lnIndex, 1], "INFO", gcLogFile)
    
    *-- Citire și parsare JSON
    TRY
        lcJsonContent = FILETOSTR(lcJsonFile)
        IF EMPTY(lcJsonContent)
            LogMessage("AVERTISMENT: Fișier JSON gol - " + laJsonFiles[lnIndex, 1], "WARN", gcLogFile)
            LOOP
        ENDIF
        
        *-- Parsare JSON array cu comenzi
        loJsonData = nfJsonRead(lcJsonContent)
        IF ISNULL(loJsonData)
            LogMessage("EROARE: Nu s-a putut parsa JSON-ul din " + laJsonFiles[lnIndex, 1], "ERROR", gcLogFile)
            LOOP
        ENDIF
        
        *-- Verificare dacă este array
        IF TYPE('loJsonData') != 'O'
            LogMessage("EROARE: JSON-ul nu este un array valid - " + laJsonFiles[lnIndex, 1], "ERROR", gcLogFile)
            LOOP
        ENDIF
        
        *-- Obținere număr comenzi din array
        lnOrderCount = AMEMBERS(laOrders, loJsonData, 0)
        LogMessage("Găsite " + TRANSFORM(lnOrderCount) + " comenzi în " + laJsonFiles[lnIndex, 1], "INFO", gcLogFile)
        
        *-- Procesare fiecare comandă din JSON
        FOR lnOrderIndex = 1 TO lnOrderCount
            lcOrderPropName = laOrders[lnOrderIndex]
            loOrder = EVALUATE('loJsonData.' + lcOrderPropName)
            
            IF TYPE('loOrder') = 'O'
                gnOrdersProcessed = gnOrdersProcessed + 1
                llProcessSuccess = ProcessWebOrder(loOrder)
                
                IF llProcessSuccess
                    gnOrdersSuccess = gnOrdersSuccess + 1
                ELSE
                    gnOrdersErrors = gnOrdersErrors + 1
                ENDIF
            ENDIF
        ENDFOR
        
    CATCH TO loError
        LogMessage("EROARE la procesarea fișierului " + laJsonFiles[lnIndex, 1] + ": " + loError.Message, "ERROR", gcLogFile)
        gnOrdersErrors = gnOrdersErrors + 1
    ENDTRY
ENDFOR

*-- Închidere conexiune Oracle
DisconnectFromOracle()

*-- Logging final cu statistici
LogMessage("=== PROCESARE COMPLETĂ ===", "INFO", gcLogFile)
LogMessage("Total comenzi procesate: " + TRANSFORM(gnOrdersProcessed), "INFO", gcLogFile)
LogMessage("Comenzi importate cu succes: " + TRANSFORM(gnOrdersSuccess), "INFO", gcLogFile)
LogMessage("Comenzi cu erori: " + TRANSFORM(gnOrdersErrors), "INFO", gcLogFile)
CloseLog(gnStartTime, 0, gnOrdersProcessed, gcLogFile)

RETURN .T.

*-- ===================================================================
*-- HELPER FUNCTIONS
*-- ===================================================================

*-- Funcție pentru conectarea la Oracle folosind setările din settings.ini
FUNCTION ConnectToOracle
LOCAL llSuccess, lcConnectionString, lnHandle

llSuccess = .F.

TRY 
    *-- Conectare Oracle folosind datele din settings.ini
    lnHandle = SQLCONNECT(goSettings.OracleDSN, goSettings.OracleUser, goSettings.OraclePassword)
    
    IF lnHandle > 0
        goConnectie = lnHandle
        llSuccess = .T.
        LogMessage("Conectare Oracle reușită - Handle: " + TRANSFORM(lnHandle), "INFO", gcLogFile)
        LogMessage("DSN: " + goSettings.OracleDSN + " | User: " + goSettings.OracleUser, "DEBUG", gcLogFile)
    ELSE
        LogMessage("EROARE: Conectare Oracle eșuată - Handle: " + TRANSFORM(lnHandle), "ERROR", gcLogFile)
        LogMessage("DSN: " + goSettings.OracleDSN + " | User: " + goSettings.OracleUser, "ERROR", gcLogFile)
    ENDIF
    
CATCH TO loError
    LogMessage("EROARE la conectarea Oracle: " + loError.Message, "ERROR", gcLogFile)
ENDTRY

RETURN llSuccess
ENDFUNC

*-- Funcție pentru deconectarea de la Oracle
FUNCTION DisconnectFromOracle
IF TYPE('goConnectie') = 'N' AND goConnectie > 0
    SQLDISCONNECT(goConnectie)
    LogMessage("Deconectare Oracle reușită", "INFO", gcLogFile)
ENDIF
RETURN .T.
ENDFUNC

*-- Funcție principală de procesare comandă web
FUNCTION ProcessWebOrder
PARAMETERS loOrder
LOCAL llSuccess, lcOrderNumber, lcOrderDate, lnPartnerID, lcArticlesJSON
LOCAL lcObservatii, lcSQL, lnResult, lcErrorDetails

llSuccess = .F.

TRY
    *-- Validare comandă
    IF !ValidateWebOrder(loOrder)
        LogMessage("EROARE: Comandă web invalidă - lipsesc date obligatorii", "ERROR", gcLogFile)
        RETURN .F.
    ENDIF
    
    *-- Extragere date comandă
    lcOrderNumber = CleanWebText(TRANSFORM(loOrder.number))
    lcOrderDate = ConvertWebDate(loOrder.date)
    
    LogMessage("Procesez comanda: " + lcOrderNumber + " din " + lcOrderDate, "INFO", gcLogFile)
    
    *-- Procesare partener (billing address)
    lnPartnerID = ProcessPartnerFromBilling(loOrder.billing)
    IF lnPartnerID <= 0
        LogMessage("EROARE: Nu s-a putut procesa partenerul pentru comanda " + lcOrderNumber, "ERROR", gcLogFile)
        RETURN .F.
    ENDIF
    
    LogMessage("Partener identificat/creat: ID=" + TRANSFORM(lnPartnerID), "INFO", gcLogFile)
    
    *-- Construire JSON articole
    lcArticlesJSON = BuildArticlesJSON(loOrder.items)
    IF EMPTY(lcArticlesJSON)
        LogMessage("EROARE: Nu s-au găsit articole valide în comanda " + lcOrderNumber, "ERROR", gcLogFile)
        RETURN .F.
    ENDIF
    
    *-- Construire observații cu detalii suplimentare
    lcObservatii = BuildOrderObservations(loOrder)
    
    *-- Apel package Oracle pentru import comandă
    lcSQL = "SELECT PACK_IMPORT_COMENZI.importa_comanda_web(?, TO_DATE(?, 'YYYY-MM-DD'), ?, ?, NULL, ?) AS ID_COMANDA FROM dual"
    
    lnResult = SQLEXEC(goConnectie, lcSQL, ;
        lcOrderNumber, ;        && p_nr_comanda_ext
        lcOrderDate, ;          && p_data_comanda  
        lnPartnerID, ;          && p_id_partener
        lcArticlesJSON, ;       && p_json_articole
        lcObservatii, ;         && p_observatii
        "cursor_comanda")
    
    IF lnResult > 0 AND RECCOUNT("cursor_comanda") > 0 AND cursor_comanda.ID_COMANDA > 0
        LogMessage("SUCCES: Comandă importată - ID Oracle: " + TRANSFORM(cursor_comanda.ID_COMANDA), "INFO", gcLogFile)
        USE IN cursor_comanda
        llSuccess = .T.
    ELSE
        *-- Obținere detalii eroare Oracle
        lcErrorDetails = GetOracleErrorDetails()
        LogMessage("EROARE: Import comandă eșuat pentru " + lcOrderNumber + " - " + lcErrorDetails, "ERROR", gcLogFile)
        IF USED("cursor_comanda")
            USE IN cursor_comanda
        ENDIF
    ENDIF
    
CATCH TO loError
    LogMessage("EXCEPȚIE la procesarea comenzii " + lcOrderNumber + ": " + loError.Message, "ERROR", gcLogFile)
ENDTRY

RETURN llSuccess
ENDFUNC

*-- Funcție pentru validarea comenzii web
FUNCTION ValidateWebOrder
PARAMETERS loOrder
LOCAL llValid

llValid = .T.

*-- Verificări obligatorii
IF TYPE('loOrder.number') != 'C' OR EMPTY(loOrder.number)
    llValid = .F.
ENDIF

IF TYPE('loOrder.date') != 'C' OR EMPTY(loOrder.date)
    llValid = .F.
ENDIF

IF TYPE('loOrder.billing') != 'O'
    llValid = .F.
ENDIF

IF TYPE('loOrder.items') != 'O'
    llValid = .F.
ENDIF

RETURN llValid
ENDFUNC

*-- Funcție pentru procesarea partenerului din billing GoMag
FUNCTION ProcessPartnerFromBilling
PARAMETERS loBilling
LOCAL lnPartnerID, lcDenumire, lcCodFiscal, lcAdresa, lcTelefon, lcEmail
LOCAL lcSQL, lnResult

lnPartnerID = 0

TRY
    *-- Extragere date partener din datele billing
    LOCAL lnIsPersoanaJuridica
    
    IF TYPE('loBilling.company') = 'O' AND !EMPTY(loBilling.company.name)
        *-- Companie - persoană juridică
        lcDenumire = CleanWebText(loBilling.company.name)
        lcCodFiscal = IIF(TYPE('loBilling.company.code') = 'C', loBilling.company.code, NULL)
        lnIsPersoanaJuridica = 1  && Persoană juridică
    ELSE
        *-- Persoană fizică
        lcDenumire = CleanWebText(ALLTRIM(loBilling.firstname) + " " + ALLTRIM(loBilling.lastname))
        lcCodFiscal = NULL  && Persoanele fizice nu au CUI în platformele web
        lnIsPersoanaJuridica = 0  && Persoană fizică
    ENDIF
    
    *-- Formatare adresă pentru Oracle (format semicolon cu prefix JUD:)
    lcAdresa = FormatAddressForOracle(loBilling)
    
    *-- Date contact
    lcTelefon = IIF(TYPE('loBilling.phone') = 'C', loBilling.phone, "")
    lcEmail = IIF(TYPE('loBilling.email') = 'C', loBilling.email, "")
    
    LogMessage("Partener: " + lcDenumire + " | CUI: " + IIF(ISNULL(lcCodFiscal), "NULL", lcCodFiscal) + " | Tip: " + IIF(lnIsPersoanaJuridica = 1, "JURIDICA", "FIZICA"), "DEBUG", gcLogFile)
    
    *-- Apel package Oracle IMPORT_PARTENERI (PROCEDURA cu parametru OUT)
    *-- Folosind sintaxa corectă pentru parametrii OUT în VFP
    LOCAL lnPartnerResult
    lnPartnerResult = 0
    
    lcSQL = "BEGIN PACK_IMPORT_PARTENERI.cauta_sau_creeaza_partener(?lcCodFiscal, ?lcDenumire, ?lcAdresa, ?lcTelefon, ?lcEmail, ?lnIsPersoanaJuridica, ?@lnPartnerResult); END;"
    
    lnResult = SQLEXEC(goConnectie, lcSQL)
    
    IF lnResult > 0
        lnPartnerID = lnPartnerResult
        LogMessage("Partener procesat cu succes: ID=" + TRANSFORM(lnPartnerID), "DEBUG", gcLogFile)
    ELSE
        *-- Obținere detalii eroare Oracle
        lcErrorDetails = GetOracleErrorDetails()
        LogMessage("EROARE la apelul procedurii PACK_IMPORT_PARTENERI pentru: " + lcDenumire + " - " + lcErrorDetails, "ERROR", gcLogFile)
        lnPartnerID = 0
    ENDIF
    
CATCH TO loError
    LogMessage("EXCEPȚIE la procesarea partenerului: " + loError.Message, "ERROR", gcLogFile)
ENDTRY

RETURN lnPartnerID
ENDFUNC

*-- Funcție pentru construirea JSON-ului cu articole conform package Oracle
FUNCTION BuildArticlesJSON
PARAMETERS loItems
LOCAL lcJSON, lnItemCount, lnIndex, lcItemProp, loItem
LOCAL lcSku, lcQuantity, lcPrice

lcJSON = ""

TRY
    IF TYPE('loItems') != 'O'
        RETURN ""
    ENDIF
    
    lnItemCount = AMEMBERS(laItems, loItems, 0)
    IF lnItemCount = 0
        RETURN ""
    ENDIF
    
    lcJSON = "["
    
    FOR lnIndex = 1 TO lnItemCount
        lcItemProp = laItems[lnIndex]
        loItem = EVALUATE('loItems.' + lcItemProp)
        
        IF TYPE('loItem') = 'O'
            *-- Extragere date articol
            lcSku = IIF(TYPE('loItem.sku') = 'C', CleanWebText(loItem.sku), "")
            lcQuantity = IIF(TYPE('loItem.quantity') = 'C' OR TYPE('loItem.quantity') = 'N', TRANSFORM(VAL(TRANSFORM(loItem.quantity))), "1")
            lcPrice = IIF(TYPE('loItem.price') = 'C' OR TYPE('loItem.price') = 'N', TRANSFORM(VAL(TRANSFORM(loItem.price))), "0")
            
            IF !EMPTY(lcSku)
                *-- Adaugare virgulă pentru elementele următoare
                IF lnIndex > 1
                    lcJSON = lcJSON + ","
                ENDIF
                
                *-- Format JSON conform package Oracle: {"sku":"...", "cantitate":..., "pret":...}
                lcJSON = lcJSON + '{"sku":"' + lcSku + '","cantitate":' + lcQuantity + ',"pret":' + lcPrice + '}'
            ENDIF
        ENDIF
    ENDFOR
    
    lcJSON = lcJSON + "]"
    
CATCH TO loError
    LogMessage("EROARE la construirea JSON articole: " + loError.Message, "ERROR", gcLogFile)
    lcJSON = ""
ENDTRY

RETURN lcJSON
ENDFUNC

*-- Funcție pentru curățarea textului web (HTML entities → ASCII simplu)
FUNCTION CleanWebText
PARAMETERS tcText
LOCAL lcResult

IF EMPTY(tcText) OR TYPE('tcText') != 'C'
    RETURN ""
ENDIF

lcResult = tcText

*-- Conversie HTML entities în caractere simple (fără diacritice)
lcResult = STRTRAN(lcResult, '&#259;', 'a')  && ă → a
lcResult = STRTRAN(lcResult, '&#537;', 's')  && ș → s  
lcResult = STRTRAN(lcResult, '&#539;', 't')  && ț → t
lcResult = STRTRAN(lcResult, '&#238;', 'i')  && î → i
lcResult = STRTRAN(lcResult, '&#226;', 'a')  && â → a
lcResult = STRTRAN(lcResult, '&amp;', '&')
lcResult = STRTRAN(lcResult, '&lt;', '<')
lcResult = STRTRAN(lcResult, '&gt;', '>')
lcResult = STRTRAN(lcResult, '&quot;', '"')

*-- Eliminare tag-uri HTML simple
lcResult = STRTRAN(lcResult, '<br>', ' ')
lcResult = STRTRAN(lcResult, '<br/>', ' ')
lcResult = STRTRAN(lcResult, '<br />', ' ')

RETURN ALLTRIM(lcResult)
ENDFUNC

*-- Funcție pentru conversia datei web în format Oracle
FUNCTION ConvertWebDate
PARAMETERS tcWebDate
LOCAL lcResult

IF EMPTY(tcWebDate) OR TYPE('tcWebDate') != 'C'
    RETURN DTOS(DATE())
ENDIF

*-- Web date format: "2025-08-27 16:32:43" → "2025-08-27"
lcResult = LEFT(tcWebDate, 10)

*-- Validare format YYYY-MM-DD
IF LEN(lcResult) = 10 AND SUBSTR(lcResult, 5, 1) = '-' AND SUBSTR(lcResult, 8, 1) = '-'
    RETURN lcResult
ELSE
    RETURN DTOS(DATE())
ENDIF
ENDFUNC

*-- Funcție pentru formatarea adresei în format semicolon pentru Oracle
FUNCTION FormatAddressForOracle
PARAMETERS loBilling
LOCAL lcAdresa, lcJudet, lcOras, lcStrada

*-- Extragere componente adresă
lcJudet = IIF(TYPE('loBilling.region') = 'C', CleanWebText(loBilling.region), "Bucuresti")
lcOras = IIF(TYPE('loBilling.city') = 'C', CleanWebText(loBilling.city), "BUCURESTI")
lcStrada = IIF(TYPE('loBilling.address') = 'C', CleanWebText(loBilling.address), "Adresa necunoscuta")

*-- Format semicolon cu prefix JUD: conform specificațiilor Oracle
lcAdresa = "JUD:" + lcJudet + ";" + lcOras + ";" + lcStrada

RETURN lcAdresa
ENDFUNC

*-- Funcție pentru construirea observațiilor comenzii
FUNCTION BuildOrderObservations
PARAMETERS loOrder
LOCAL lcObservatii

lcObservatii = ""

*-- Informații plată și livrare
IF TYPE('loOrder.payment') = 'O' AND TYPE('loOrder.payment.name') = 'C'
    lcObservatii = lcObservatii + "Payment: " + CleanWebText(loOrder.payment.name) + "; "
ENDIF

IF TYPE('loOrder.delivery') = 'O' AND TYPE('loOrder.delivery.name') = 'C'
    lcObservatii = lcObservatii + "Delivery: " + CleanWebText(loOrder.delivery.name) + "; "
ENDIF

*-- Status și sursă
IF TYPE('loOrder.status') = 'C'
    lcObservatii = lcObservatii + "Status: " + CleanWebText(loOrder.status) + "; "
ENDIF

IF TYPE('loOrder.source') = 'C'
    lcObservatii = lcObservatii + "Source: " + CleanWebText(loOrder.source)
    
    IF TYPE('loOrder.sales_channel') = 'C'
        lcObservatii = lcObservatii + " " + CleanWebText(loOrder.sales_channel)
    ENDIF
    lcObservatii = lcObservatii + "; "
ENDIF

*-- Verificare adrese diferite shipping vs billing
IF TYPE('loOrder.shipping') = 'O' AND TYPE('loOrder.billing') = 'O'
    IF TYPE('loOrder.shipping.address') = 'C' AND TYPE('loOrder.billing.address') = 'C'
        IF !ALLTRIM(loOrder.shipping.address) == ALLTRIM(loOrder.billing.address)
            lcObservatii = lcObservatii + "Shipping: " + CleanWebText(loOrder.shipping.address)
            
            IF TYPE('loOrder.shipping.city') = 'C'
                lcObservatii = lcObservatii + ", " + CleanWebText(loOrder.shipping.city)
            ENDIF
            lcObservatii = lcObservatii + "; "
        ENDIF
    ENDIF
ENDIF

*-- Limitare lungime observații pentru Oracle
IF LEN(lcObservatii) > 500
    lcObservatii = LEFT(lcObservatii, 497) + "..."
ENDIF

RETURN lcObservatii
ENDFUNC

*-- Funcție pentru obținerea detaliilor erorii Oracle
FUNCTION GetOracleErrorDetails
LOCAL lcError, laError[1], lnErrorLines, lnIndex

lcError = ""

*-- Obținere eroare Oracle
lnErrorLines = AERROR(laError)
IF lnErrorLines > 0
    FOR lnIndex = 1 TO lnErrorLines
        IF lnIndex > 1
            lcError = lcError + " | "
        ENDIF
        lcError = lcError + ALLTRIM(STR(laError[lnIndex, 1])) + ": " + laError[lnIndex, 2]
    ENDFOR
ENDIF

IF EMPTY(lcError)
    lcError = "Eroare Oracle nedefinită"
ENDIF

RETURN lcError
ENDFUNC

*-- Funcție pentru execuția adapter-ului configurat
FUNCTION ExecuteAdapter
LOCAL llSuccess, lcAdapterPath

llSuccess = .F.

TRY
    lcAdapterPath = gcAppPath + goSettings.AdapterProgram
    
    IF FILE(lcAdapterPath)
        LogMessage("Execuție adapter: " + lcAdapterPath, "INFO", gcLogFile)
        DO (lcAdapterPath)
        llSuccess = .T.
        LogMessage("Adapter executat cu succes", "INFO", gcLogFile)
    ELSE
        LogMessage("EROARE: Adapter-ul nu a fost găsit la: " + lcAdapterPath, "ERROR", gcLogFile)
    ENDIF
    
CATCH TO loError
    LogMessage("EXCEPȚIE la execuția adapter-ului " + goSettings.AdapterProgram + ": " + loError.Message, "ERROR", gcLogFile)
ENDTRY

RETURN llSuccess
ENDFUNC

*-- Orchestrator complet pentru sincronizarea comenzilor web cu Oracle ROA
*-- Caracteristici:
*-- - Citește JSON-urile generate de gomag-vending.prg
*-- - Procesează comenzile cu toate helper functions necesare  
*-- - Integrează cu package-urile Oracle validate în Phase 1
*-- - Logging complet cu statistici de procesare
*-- - Error handling pentru toate situațiile
*-- - Support pentru toate formatele GoMag (billing/shipping, companii/persoane fizice)