AT190dFG - Alteração dos F3 da Mesa Operacional

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Necessário alteração nos F3 da mesa operacional para remover campos.

03. SOLUÇÃO

Foi implementado o PE AT190dFG, para que seja possível remover campos na exibição do PE.

O PE recebe de parametros os Arrays aSeek, aIndex e o Caracter TIPO. O retorno da função deve ser ambos os arrays devidamente preenchidos.

ASeek:  serve para modificar a estrutura dos campos, adicionando ou removendo campos de exibição.

AIndex: serve para pesquisa na tela de exibição.

TIPO: Serve para identificar o tipo de consulta que esta sendo executada.

Exemplo de Implementação:

User Function AT190dFG()
Local aSeek    := PARAMIXB[1]  // Estrutura da View, passado por referência
Local aIndex   := PARAMIXB[2] // Estrutura das tabelas, passado por referência
Local nX

If PARAMIXB[3] $ "CONTRATO|CONTRATO_TFL|CONTRATO_LCA|CONTRATO_LGY|CLIENTE_TFL|ORCITEXTR"
    aSeek := {}
    For nX := 1 To Len(PARAMIXB[1])
        If PARAMIXB[1][nX][2][1][7] <> "A1_NOME" 
            AADD( aSeek, PARAMIXB[1][nX])
        EndIf
    Next nX
EndIf

Return {aSeek, aIndex}

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

• TecF3190 - Consulta da mesa operacional