Linha Microsiga Protheus

Árvore de páginas

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:

Rotina

Nome Técnico

MNTA765

Cadastro de Multa

Rotina(s) envolvida(s)

Nome Técnico

MNTA766

Notificação

MNTA805Documentos Obrigatórios

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:
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

 

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