AT190DVIEW - Alteração da ViewDef da Mesa Operacional

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Ponto de Entrada para alteração da VIEW no TECA190D.

03. SOLUÇÃO

Ponto de entrada na função ViewDef para alteração da mesma. Passado como parâmetro por referência, estrutura da ViewDef e estrutura das tabelas.

Exemplo de Utilização.

#INCLUDE "protheus.ch"
#INCLUDE "parmtype.ch"
#INCLUDE "FWMVCDEF.CH"

User Function AT190DVIEW()

Local oView := PARAMIXB[1]  // Estrutura da View, passado por referência
Local aSubMdls := PARAMIXB[2] // Estrutura das tabelas, passado por referência
Local nX := 0

For nX := 1 To Len(aSubMdls)

If aSubMdls[nX,2] == "ABB"

aSubMdls[nX,1]:AddField("TFF_ESCALA","10","Código Escala","Código Escala",{},"C","@!",Nil,Nil,.T.,"",Nil,Nil,Nil,Nil,.T.,Nil)

Endif

Next nX

Return .T.

A estrutura das tabelas é composta por um array de 12 posições onde cada uma delas contem outro array de 2 posições:

A primeira posição carrega a estrutura da tabela e a segunda posição carrega o nome.

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

• Não há.