AT19DCPO - Alteração da Estrutura das Tabelas do ModelDef da Mesa Operacional

01. DADOS GERAIS

02. SITUAÇÃO/REQUISITO

Ponto de Entrada para alteração da estrutura das tabelas 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 das tabelas do Modelo

Exemplo de Utilização.

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

User Function AT19DCPO()


Local aSubMdls := PARAMIXB[2] // Estrutura das tabelas, passado por referência
Local nX := 0
Local xAux := NIL
For nX := 1 To Len(aSubMdls)

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

aSubMdls[nX,1]:AddField("e-mail",;
                        "e-mail",;
                        "AA1_EMAIL",;
                        "C",;
                        Tamsx3("AA1_EMAIL")[1],;
                        0,;
                        NIL,;
                        NIL,;
                        NIL,;
                        .F.,;
                        NIL,;
                        NIL,;
                        .F.,;
                        .T.,;
                        NIL)

    xAux := FwStruTrigger( 'AA1_CODTEC', 'AA1_EMAIL',;
       'Posicione("AA1",1,xFilial("AA1") + FwFldGet("AA1_CODTEC"),"AA1_EMAIL")', .F. )
       aSubMdls[nX,1]:AddTrigger( xAux[1], xAux[2], xAux[3], xAux[4])
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á.