Histórico da Página

#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