Linha de Produto: | Microsiga Protheus | ||||||||||
Segmento: | Manufatura | ||||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||||
Rotina: |
| ||||||||||
Issues Relacionadas | 12.1.17 / MNG-6234 | ||||||||||
País(es): | Todos | ||||||||||
Banco(s) de Dados: | Todos | ||||||||||
Sistema(s) Operacional(is): | Todos |
Descrição: | Ponto de Entrada que permite inserir campos SE2 para serem gravados e alterados. | ||||||||
Localização: | SIGAMNT: Atualizações/Controle de Risco/Multas/Multa | ||||||||
Eventos: | Cadastro de Multa (MNTA765) | ||||||||
Programa Fonte: | MNTA765.PRX | ||||||||
Função: | NGPARCELAS() | ||||||||
| Parâmetros: |
| ||||||||
Retorno: |
|
Exemplo:
#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]
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")
aAdd(aCampoPE,{NGRETTITULO(cCampo),cCampo,cPicture,cTamanho,cDecimal,cValid,cUsado,cTipo,cF3,cContext,cCBox,cRelacao})
Next nCnt
EndIf
Return aCampoPE