PERMITE INCLUSÃO DE CAMPOS SE2
Características do Requisito
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 |
Ponto de Entrada
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas