// FWSX1Util - Recommended class for SX1 operations
Local oSX1 := FWSX1Util():New()
oSX1:AddGroup("MR0001")
oSX1:SearchGroup()
Local aPergunte := oSX1:GetGroup("MR0001")

// Check if a question group exists
Local lExists := FWSX1Util():ExistPergunte("MR0001")

// Check if a specific item exists in the group
Local lItem := FWSX1Util():ExistItem("MR0001", "De cliente?")

// Using Pergunte() to open the parameter dialog (standard approach for reports)
User Function MyReport()

    // Pergunte() opens the parameter dialog for group "MR0001"
    // Returns .T. if user confirmed, .F. if cancelled
    If !Pergunte("MR0001", .T.)
        Return
    EndIf

    // After Pergunte(), answers are in mv_par01..mv_parNN
    Local cCodDe  := mv_par01   // e.g., "From" customer code
    Local cCodAte := mv_par02   // e.g., "To" customer code
    Local dDtDe   := mv_par03   // e.g., "From" date
    Local dDtAte  := mv_par04   // e.g., "To" date
    Local nOpcao  := mv_par05   // e.g., combo selection (1, 2, or 3)

    // Use parameters in the report logic
    DbSelectArea("SA1")
    DbSetOrder(1)
    DbSeek(xFilial("SA1") + cCodDe)

    While !Eof() .And. SA1->A1_COD <= cCodAte
        // Process records...
        DbSkip()
    EndDo

Return

// Reading SX1 directly to check what questions exist in a group
// DEPRECATED - Use FWSX1Util():GetGroup() instead
User Function ListQuestions(cGroup)
    Local aArea := GetArea()

    DbSelectArea("SX1")
    DbSetOrder(1)
    DbSeek(cGroup)

    While !Eof() .And. SX1->X1_GRUPO == cGroup
        ConOut("Question " + SX1->X1_ORDEM + ": " + AllTrim(SX1->X1_PERGUNT))
        ConOut("  Type: " + SX1->X1_TIPO + " | Size: " + cValToChar(SX1->X1_TAMANHO))
        DbSkip()
    EndDo

    RestArea(aArea)
Return

// FWSX2Util - Recommended class for SX2 operations

// Get physical file name for a table
Local cFile := FWSX2Util():GetFile("SA1")

// Get path of the table
Local cPath := FWSX2Util():GetPath("SA1")

// Get table description
Local cName := FWSX2Util():GetX2Name("SA1") // Returns "Clientes"

// Get the module that owns the table
Local nModule := FWSX2Util():GetX2Module("SA1")

// Check if a table exists (positions on SX2)
Local lExists := FWSX2Util():SeekX2File("SA1990")

// Return specific fields from SX2
Local aData := FWSX2Util():GetSX2Data("SA1", {"X2_UNICO"}, .F.)

// Opening a table by its alias (standard Protheus pattern)
DbSelectArea("SA1")       // Internally looks up SX2 to find the physical file
DbSetOrder(1)             // Set to the first SIX index

// Check if a table alias exists in SX2
// DEPRECATED - Use FWSX2Util():SeekX2File() instead
User Function TableExists(cAlias)
    Local lExists := .F.
    Local aArea   := GetArea()

    DbSelectArea("SX2")
    DbSetOrder(1)
    lExists := DbSeek(cAlias)

    RestArea(aArea)
Return lExists

// List all custom tables (aliases starting with "Z")
// DEPRECATED - Use FWSX2Util methods instead
User Function ListCustomTables()
    Local aArea := GetArea()

    DbSelectArea("SX2")
    DbSetOrder(1)
    DbSeek("Z")

    While !Eof() .And. Left(SX2->X2_CHAVE, 1) == "Z"
        ConOut("Alias: " + SX2->X2_CHAVE + ;
               " | File: " + AllTrim(SX2->X2_ARQUIVO) + ;
               " | Desc: " + AllTrim(SX2->X2_NOME))
        DbSkip()
    EndDo

    RestArea(aArea)
Return

// FWSX3Util - Recommended class for SX3 operations

// Get field description
Local cDesc := FWSX3Util():GetDescription("A1_COD")

// Get field type
Local cType := FWSX3Util():GetFieldType("A1_COD")

// Get complete field structure (name, type, size, decimals, picture)
Local aStruct := FWSX3Util():GetFieldStruct("A1_COD")

// List all fields for a table
Local aFields := FWSX3Util():GetAllFields("SA1", .T.) // .T. includes virtual fields

// Get structure of all fields for an alias
Local aStruct := FWSX3Util():GetListFieldsStruct("SA1", .T., .F.)

// Check if a field exists
Local lExists := FWSX3Util():SeekX3File("A1_COD")

// Using GetSX3Cache to get field properties efficiently (also valid)
Local cType := GetSX3Cache("A1_COD", "X3_TIPO")     // Returns "C"
Local nSize := GetSX3Cache("A1_COD", "X3_TAMANHO")   // Returns field size
Local cPict := GetSX3Cache("A1_COD", "X3_PICTURE")   // Returns picture mask

// Read field properties from SX3
// DEPRECATED - Use FWSX3Util():GetFieldStruct() instead
User Function GetFieldInfo(cField)
    Local aArea := GetArea()

    DbSelectArea("SX3")
    DbSetOrder(2) // Index by field name (X3_CAMPO)
    If DbSeek(cField)
        ConOut("Field: "   + AllTrim(SX3->X3_CAMPO))
        ConOut("Table: "   + AllTrim(SX3->X3_ARQUIVO))
        ConOut("Type: "    + SX3->X3_TIPO)
        ConOut("Size: "    + cValToChar(SX3->X3_TAMANHO))
        ConOut("Dec: "     + cValToChar(SX3->X3_DECIMAL))
        ConOut("Title: "   + AllTrim(SX3->X3_TITULO))
        ConOut("Mand: "    + SX3->X3_OBRIGAT)
        ConOut("Valid: "   + AllTrim(SX3->X3_VALID))
        ConOut("Picture: " + AllTrim(SX3->X3_PICTURE))
    Else
        ConOut("Field " + cField + " not found in SX3")
    EndIf

    RestArea(aArea)
Return

// List all fields for a given table
// DEPRECATED - Use FWSX3Util():GetAllFields() instead
User Function ListTableFields(cAlias)
    Local aArea := GetArea()

    DbSelectArea("SX3")
    DbSetOrder(1) // Index by X3_ARQUIVO + X3_CAMPO
    DbSeek(cAlias)

    While !Eof() .And. AllTrim(SX3->X3_ARQUIVO) == cAlias
        ConOut(PadR(SX3->X3_CAMPO, 10) + " | " + ;
               SX3->X3_TIPO + " | " + ;
               Str(SX3->X3_TAMANHO, 3) + " | " + ;
               AllTrim(SX3->X3_TITULO))
        DbSkip()
    EndDo

    RestArea(aArea)
Return

// FWGetSX5 / FwPutSX5 - Recommended functions for SX5 operations

// Get all records from a generic table
Local aContent := FWGetSX5("13") // Returns array with all records from table "13"
// aContent[n][1] = Branch, [2] = Table, [3] = Key, [4] = Description

// Get a specific record
Local aContent := FWGetSX5("13", "SP") // Returns only key "SP" from table "13"

// Get with a specific language
Local aContent := FWGetSX5("13", , "en") // Description in English

// Write to SX5
FwPutSX5(, "ZZ", "001", "Descricao PT", "Description EN", "Descripcion ES")

// Using the standard function X5Descri() (also valid for quick lookups)
Local cDesc := X5Descri("13", "001") // Returns description for table 13, key 001

// Read a description from a generic table
// DEPRECATED - Use FWGetSX5() instead
User Function GetSX5Desc(cTabela, cChave)
    Local cDesc := ""
    Local aArea := GetArea()

    DbSelectArea("SX5")
    DbSetOrder(1) // X5_FILIAL + X5_TABELA + X5_CHAVE
    If DbSeek(xFilial("SX5") + cTabela + cChave)
        cDesc := AllTrim(SX5->X5_DESCRI)
    EndIf

    RestArea(aArea)
Return cDesc

// List all entries in a specific generic table
// DEPRECATED - Use FWGetSX5() instead
User Function ListSX5Table(cTabela)
    Local aArea := GetArea()

    DbSelectArea("SX5")
    DbSetOrder(1)
    DbSeek(xFilial("SX5") + cTabela)

    While !Eof() .And. SX5->X5_FILIAL == xFilial("SX5") .And. SX5->X5_TABELA == cTabela
        ConOut("Key: " + AllTrim(SX5->X5_CHAVE) + ;
               " | Desc: " + AllTrim(SX5->X5_DESCRI))
        DbSkip()
    EndDo

    RestArea(aArea)
Return

// SuperGetMV - Recommended way to read parameters (with default value fallback)
// SuperGetMV(cParam, lHelp, cDefault)
Local cEstado := SuperGetMV("MV_ESTADO", .F., "SP")
Local nMoeda  := SuperGetMV("MV_MOEDA1", .F., 1)

// GetNewPar - Alternative with default value
Local cEstado := GetNewPar("MV_ESTADO", "SP")

// GetMV - Older approach (still valid but SuperGetMV is preferred)
Local cEstado := GetMV("MV_ESTADO")

// Writing/updating a parameter value
PutMV("MV_ESTADO", "RJ")  // Changes the state parameter to "RJ"

// Example: Check if a feature is enabled
If SuperGetMV("MV_USARFT", .F., "N") == "S"
    // Feature is enabled
EndIf

// FWSX6Util - For existence checks and replication operations
// Check if a parameter exists
Local lExists := FWSX6Util():ExistsParam("MV_ESTADO")

// Replicate parameter to specific branches
Local lOk := FWSX6Util():ReplicateParam("MV_ESTADO", {"01","02"})

// Replicate to all branches
Local lOk := FWSX6Util():ReplicateParam("MV_ESTADO", "*")

// Get parameter data in JSON format
Local cJson := FWSX6Util():GetParamData("MV_ESTADO", "99")

// Reading SX6 directly (bulk queries)
// DEPRECATED - Use FWSX6Util methods instead
User Function ListMVParams(cPrefix)
    Local aArea := GetArea()

    DbSelectArea("SX6")
    DbSetOrder(1) // X6_FIL + X6_VAR
    DbSeek(xFilial("SX6") + cPrefix)

    While !Eof() .And. Left(AllTrim(SX6->X6_VAR), Len(cPrefix)) == cPrefix
        ConOut("Param: " + AllTrim(SX6->X6_VAR) + ;
               " | Type: " + SX6->X6_TIPO + ;
               " | Value: " + AllTrim(SX6->X6_CONTEUD) + ;
               " | Desc: " + AllTrim(SX6->X6_DESCRIC))
        DbSkip()
    EndDo

    RestArea(aArea)
Return

// List all triggers for a specific source field
User Function ListTriggers(cField)
    Local aArea := GetArea()

    DbSelectArea("SX7")
    DbSetOrder(1) // X7_CAMPO + X7_SEQUENC
    DbSeek(cField)

    While !Eof() .And. AllTrim(SX7->X7_CAMPO) == cField
        ConOut("Trigger #" + SX7->X7_SEQUENC)
        ConOut("  Source: "    + AllTrim(SX7->X7_CAMPO))
        ConOut("  Target: "    + AllTrim(SX7->X7_CDOMIN))
        ConOut("  Rule: "      + AllTrim(SX7->X7_REGRA))
        ConOut("  Condition: " + AllTrim(SX7->X7_CONDIC))
        ConOut("  Type: "      + SX7->X7_TIPO)
        ConOut("  Alias: "     + AllTrim(SX7->X7_ALIAS))
        ConOut("  Order: "     + SX7->X7_ORDEM)
        DbSkip()
    EndDo

    RestArea(aArea)
Return

// Example: A trigger that fills customer name when customer code is entered
// This would be configured in SX7 as:
//   X7_CAMPO  = "C5_CLIENTE"     (source: order customer code)
//   X7_ALIAS  = "SA1"            (lookup: customer table)
//   X7_ORDEM  = "01"             (index: A1_FILIAL + A1_COD + A1_LOJA)
//   X7_SEEK   = xFilial("SA1") + M->C5_CLIENTE + M->C5_LOJACLI
//   X7_REGRA  = "SA1->A1_NOME"  (expression: customer name)
//   X7_CDOMIN = "C5_NOMECLI"    (target: order customer name field)
//   X7_CONDIC = ""               (no condition, always fires)
//   X7_TIPO   = "E"              (foreign key trigger)

// List relationships for a specific table
User Function ListRelationships(cAlias)
    Local aArea := GetArea()

    DbSelectArea("SX9")
    DbSetOrder(1)
    DbSeek(cAlias)

    While !Eof() .And. AllTrim(SX9->X9_DOM) == cAlias
        ConOut("Parent Table: " + AllTrim(SX9->X9_DOM))
        ConOut("  Parent Key: "   + AllTrim(SX9->X9_CDOM))
        ConOut("  Parent Expr: "  + AllTrim(SX9->X9_EXPDOM))
        ConOut("  Related Expr: " + AllTrim(SX9->X9_EXP))
        ConOut("  SQL Cond: "     + AllTrim(SX9->X9_CONDSQL))
        DbSkip()
    EndDo

    RestArea(aArea)
Return

// Example: Check if SA1 (Customers) has relationships defined
// SA1 -> SE1 (Receivables): A customer generates receivable titles
// SA1 -> SC5 (Sales Orders): A customer has sales orders
User Function CheckCustomerRels()
    Local aArea := GetArea()

    DbSelectArea("SX9")
    DbSetOrder(1)
    DbSeek("SA1")

    While !Eof() .And. AllTrim(SX9->X9_DOM) == "SA1"
        ConOut("SA1 -> " + AllTrim(SX9->X9_EXP))
        DbSkip()
    EndDo

    RestArea(aArea)
Return

// List the configuration of a standard query
User Function ListSXBQuery(cQueryAlias)
    Local aArea := GetArea()

    DbSelectArea("SXB")
    DbSetOrder(1) // XB_ALIAS + XB_TIPO + XB_LINPOS
    DbSeek(cQueryAlias)

    While !Eof() .And. AllTrim(SXB->XB_ALIAS) == cQueryAlias
        Do Case
            Case SXB->XB_TIPO == "1"
                ConOut("== Query: " + AllTrim(SXB->XB_DESCRI) + " ==")
            Case SXB->XB_TIPO == "2"
                ConOut("  Column: " + AllTrim(SXB->XB_COLUNA) + ;
                       " | Title: " + AllTrim(SXB->XB_DESCRI))
            Case SXB->XB_TIPO == "3"
                ConOut("  Return: " + AllTrim(SXB->XB_CONTEM))
            Case SXB->XB_TIPO == "4"
                ConOut("  Filter: " + AllTrim(SXB->XB_SEEK))
            Case SXB->XB_TIPO == "5"
                ConOut("  Search Order: " + AllTrim(SXB->XB_DESCRI))
        EndCase
        DbSkip()
    EndDo

    RestArea(aArea)
Return

// The F3 lookup is invoked in the UI when a field's X3_F3 references an SXB alias.
// Example: Field A1_COD might have X3_F3 = "SA1" which triggers a customer lookup.
// This is configured in SX3, not in code:
//   X3_CAMPO = "C5_CLIENTE"
//   X3_F3    = "SA1"         -> When user presses F3, opens the SA1 standard query

// FWSIXUtil - Recommended class for SIX operations

// Check if an index exists by order number
Local lExists := FWSIXUtil():ExistIndex("SA1", "1")

// Check if an index exists by nickname
Local lExists := FWSIXUtil():ExistIndex("SE1", "TITPAI", .T.)

// Get all indexes for a table
Local aIndexes := FWSIXUtil():GetAliasIndexes("SA1")
// Returns: {{field1, field2}, {field1, field2, field3}}

// Using indexes in practice:
// DbSetOrder() sets the active index by its order number from SIX
DbSelectArea("SA1")
DbSetOrder(1)  // Order 1: A1_FILIAL + A1_COD + A1_LOJA
DbSeek(xFilial("SA1") + "000001" + "01")  // Seek customer 000001, store 01

DbSetOrder(3)  // Order 3: A1_FILIAL + A1_CGC (CNPJ/CPF index)
DbSeek(xFilial("SA1") + "12345678000199")  // Seek by CNPJ

// List all indexes for a table
// DEPRECATED - Use FWSIXUtil():GetAliasIndexes() instead
User Function ListIndexes(cAlias)
    Local aArea := GetArea()

    DbSelectArea("SIX")
    DbSetOrder(1) // INDICE + ORDEM
    DbSeek(cAlias)

    While !Eof() .And. AllTrim(SIX->INDICE) == cAlias
        ConOut("Index Order " + SIX->ORDEM + ": " + AllTrim(SIX->CHAVE))
        ConOut("  Description: " + AllTrim(SIX->DESCRICAO))
        ConOut("  Nickname: "    + AllTrim(SIX->NICKNAME))
        ConOut("  Show Search: " + SIX->SHOWPESQ)
        DbSkip()
    EndDo

    RestArea(aArea)
Return

// Find which index order to use for a specific key pattern
// DEPRECATED - Use FWSIXUtil():ExistIndex() instead
User Function FindIndexByKey(cAlias, cKeyFragment)
    Local cOrder := ""
    Local aArea  := GetArea()

    DbSelectArea("SIX")
    DbSetOrder(1)
    DbSeek(cAlias)

    While !Eof() .And. AllTrim(SIX->INDICE) == cAlias
        If cKeyFragment $ AllTrim(SIX->CHAVE)
            cOrder := SIX->ORDEM
            ConOut("Found index order " + cOrder + ": " + AllTrim(SIX->CHAVE))
            Exit
        EndIf
        DbSkip()
    EndDo

    RestArea(aArea)
Return cOrder

SX2 (Table) ──────┬──> SX3 (Fields for this table)
                   │        │
                   │        ├──> X3_F3 ──> SXB (F3 lookup definition)
                   │        │
                   │        ├──> X3_TRIGGER ──> SX7 (Field triggers)
                   │        │
                   │        ├──> X3_CBOX ──> SX5 (Combo box domain values)
                   │        │
                   │        └──> X3_VALID ──> Validation expressions
                   │
                   ├──> SIX (Indexes for this table)
                   │
                   ├──> SX9 (Relationships to other tables)
                   │
                   └──> SX1 (Report parameters referencing this table)

SX6 (MV Parameters) ──> System-wide configuration values