Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus®
Segmento:Serviços
Módulo:Gestão de Serviços
Função:TECA190F.prw
Ticket:8743085
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-8367


02. SITUAÇÃO/REQUISITO

Abertura do ponto de entrada AT190FVI.

03. SOLUÇÃO

Ponto de entrada para alterar a estrutura da view. Passado por referencia: view (PARAMIXB[1]) e array com as tabelas(PARAMIXB[2]).

AT190FCP
User Function AT190FVI()
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] == "TGY"

        aSubMdls[nX,1]:AddField("TGY_DESCPR",;
                                "06",;
                                "Descrição Produt.",;
                                "Descrição Produt.",;
                                {},;
                                "C",;
                                "@!",;
                                Nil,;
                                Nil,;
                                .T.,;
                                "",;
                                Nil,;
                                Nil,;
                                Nil,;
                                Nil,;
                                .T.,;
                                Nil)

    EndIf

Next nX

Return .T.

Tabelas para manipulação:

Estrutura

Tabela

oStrAA1

AA1
oStrTGYTGY
oStrALCALC
oStrDTADTA

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

  • Não há.