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 AT190FCP.

03. SOLUÇÃO

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

AT190FCP
User Function AT190FCP()
Local oModel 	:= PARAMIXB[1]
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] == "TGY"

        aSubMdls[nX,1]:AddField("Descr. Produto",;
                                "Descr. Produto",;
                                "TGY_DESCPR",;
                                "C",;
                                Tamsx3("B1_DESC")[1],;
                                0,;
                                NIl,;
                                {|| .F. },;
                                NIL,;
                                .F.,;
                                Nil,;
                                NIL,;
                                Nil,;
                                .T.,;
                                NIL)

        xAux := FwStruTrigger( 'TGY_TFFCOD', 'TGY_DESCPR',;
            'Posicione( "SB1", 1, xFilial("SB1") + Posicione("TFF",1, FwFldGet("TGY_FILIAL") + FwFldGet("TGY_TFFCOD"),"TFF_PRODUT"), "B1_DESC")', .F. )
            aSubMdls[nX,1]:AddTrigger( xAux[1], xAux[2], xAux[3], xAux[4])

    Endif

Next nX

Return .T.

A ordem do array é:

EstruturaExemplo
TituloDescr. Produto
Sub. TituloDescr. Produto
IdentificadorTGY_DESCPR
Tipo do campo"C"
Tamanho do campoTamsx3("B1_DESC")[1]
Decimal do campo

0 

Valid do campo

{ | | ... }

When do Campo{ | | ... }
Lista de Valores{ ... }
Obrigatoriedade.F.
Inicializador{ | | ... }
Campo chaveNil
Recebe Valor.T.
Virtual.T.
Valid Usuário{ | | ... }

Tabelas para manipulação:

EstruturaTabela

oStrAA1

AA1
oStrTGYTGY
oStrALCALC
oStrDTADTA

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

  • Não há.