AT190DMODE - Alteração da ModelDef da Mesa Operacional

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Ponto de Entrada para alteração do ModelDef no TECA190D.

03. SOLUÇÃO

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

Exemplo de Utilização.

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

User Function AT190DMODE()

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

For nX := 1 To Len(aSubMdls)

aSubMdls:SetDescription('Model ' + Str(nX) )

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

Para alteração da estrutura do Model, utilize o ponto de Entrada AT19DCPO.

05. ASSUNTOS RELACIONADOS

• Não há.