Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Manutenção de Ativos

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Manutenção de ativos (SIGAMNT)

Função:MNTA765E()
País:Brasil


02. DESCRIÇÃO

Descrição:

Ponto de Entrada que permite inserir campos SE2 para serem gravados e alterados.

Localização:

Em Atualizações > Gestão de Riscos > Multas > Multas

Programa Fonte:MNTA765.prx

Função:

MNTA765E

Parâmetros:

NomeTipoDescrição
nRotNuméricoInforma em quais rotinas os campos da SE2 serão apresentados. Sendo 1 para Cadastro de Multas ( MNTA765 ), Notificação ( MNTA766 ) e 2 para Documento Obrigatório ( MNTA805 ).

Retorno:

NomeTipoDescriçãoObrigatório
aCampoPE
ArrayRetorna array com os campos a serem informados em tela e suas propriedades.Sim

03. DEMAIS INFORMAÇÕES

Exemplo MNTA765E()
#include 'protheus.ch'
  
  
//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA765E
PE para adição de campos da SE2
  
@author  author
@since   date
@version version
/*/
//-------------------------------------------------------------------
User Function MNTA765E()
  
    Local aCamp     := {}
    Local aCampoPE  := {}
    Local cCampo    := ""
    Local cPicture  := ""
    Local cTamanho  := ""
    Local cDecimal  := ""
    Local cValid    := ""
    Local cUsado    := ""
    Local cTipo     := ""
    Local cF3       := ""
    Local cContext  := ""
    Local cCBox     := ""
    Local cRelacao  := ""
    Local nCnt      := 0
    //1 = Multas / 2 = Documentos
    Local nRot  := ParamIXB[1]
    //Campo opcional, o envio dele preenchera automaticamente a grid
    Local xValor
  
    If nRot == 2   //1 = Multas / 2 = Documentos
  
        aCamp := { "E2_LINDIG", "E2_CLEARIN", "E2_SEFIP", "E2_CODRDA", "E2_FILDEB" }
  
        For nCnt := 1 To Len(aCamp)
  
            // Pega valores do campo
            cCampo      := aCamp[nCnt]
            cPicture    := Posicione("SX3",2,cCampo,"X3_PICTURE")
            cTamanho    := Posicione("SX3",2,cCampo,"X3_TAMANHO")
            cDecimal    := Posicione("SX3",2,cCampo,"X3_DECIMAL")
            cValid      := Posicione("SX3",2,cCampo,"X3_VALID")
            cUsado      := Posicione("SX3",2,cCampo,"X3_USADO")
            cTipo       := Posicione("SX3",2,cCampo,"X3_TIPO")
            cF3         := Posicione("SX3",2,cCampo,"X3_F3")
            cContext    := Posicione("SX3",2,cCampo,"X3_CONTEXT")
            cCBox       := Posicione("SX3",2,cCampo,"X3_CBOX")
            cRelacao    := Posicione("SX3",2,cCampo,"X3_RELACAO")
            xValor      := ''
  
            aAdd(aCampoPE,{NGRETTITULO(cCampo),cCampo,cPicture,cTamanho,cDecimal,cValid,cUsado,cTipo,cF3,cContext,cCBox,cRelacao,xValor})
        Next nCnt
    EndIf
  
Return aCampoPE


04. ASSUNTOS RELACIONADOS

  • Não se aplica.