Phase 2 implementation: VFP Integration with Oracle synchronization

Major architectural changes: - Convert Oracle IMPORT_PARTENERI.cauta_sau_creeaza_partener from FUNCTION to PROCEDURE with OUT parameter for VFP compatibility - Add IS_PERSOANA_JURIDICA parameter to support individual vs company detection - Implement sync-comenzi-web.prg orchestrator for generic web order processing with 5-minute timer automation - Create ApplicationSetup class for proper object-oriented configuration management - Add comprehensive Oracle connection and sync settings via settings.ini configuration system - Implement generic web order processing functions (ProcessWebOrder, ValidateWebOrder, CleanWebText, ConvertWebDate) - Add proper VFP-Oracle integration with correct procedure call syntax using OUT parameters - Rename gomag-vending.prg to gomag-adapter.prg for clarity and platform-specific functionality - Move CheckIniFile function to utils.prg for better code organization - Add settings.ini.example template and update .gitignore to exclude actual settings files - Implement comprehensive logging system with rotation and error handling - Add connection validation and retry logic for robust Oracle integration Technical improvements: - Proper JSON processing integration with existing nfjson library - Comprehensive error handling with categorized logging (INFO, ERROR, WARN) - Timer-based automation with configurable intervals - Settings validation and default value creation - Generic function naming for multi-platform support - Class-based setup system replacing procedural approach 🤖 Generated with [Claude Code](https://claude.ai/code) Co-Authored-By: Claude <noreply@anthropic.com>
2025-09-10 16:01:42 +03:00
parent 86e9d32b76
commit d1858f86b6
10 changed files with 962 additions and 125 deletions
--- a/vfp/sync-comenzi-web.prg
+++ b/vfp/sync-comenzi-web.prg
@@ -0,0 +1,572 @@
+*-- 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)