Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que filtra a Empresa e Filial no Portal de SS (MNTI005)

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

MNTI005

Portal de SS - Programa Inicial


Rotina(s) envolvida(s)

Nome Técnico

MNTI0055

Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos


Ponto de Entrada

Descrição:

Ponto de entrada executado na rotina de Inclusão de SS via Portal (MNTI005) usado para filtrar Empresa/Filial. Para acesso da rotina, o Portal de Solicitação de Serviço pode ser configurado conforme passo a passo contido no link: https://tdn.totvs.com/x/QhbvH

Programa Fonte:

MNTI005.prw
Localização:Portal de Solicitação de Serviço: Realizar Login/Incluir uma Solicitação

Função:

MNTI0055()
Parâmetros:
NomeTipoDescrição
ParamIX[1]Array

Contém as seguintes posições:

[1] = Código da empresa
[2] = Código da Filial
[3] = Descrição da Filial
[4] = Descrição da Empresa
[5] = "ENVNGPORTAL" + Código Empresa + Código Filial


Retorno:

NomeTipoDescriçãoObrigatório
aEmpPortalArrayContém informações de empresa/filial do filtroX
Exemplo do Ponto de Entrada MNTI0055()
#INCLUDE"PROTHEUS.CH"

User Function MNTI0055()

	Local aEmpPortal:= ParamIXB[1]
	
	dbGoTop()
	While !Eof()
		nTamFil:=If(FindFunction("FwSizeFilial"),FwSizeFilial(),2)
		aEmpPortal:={{SM0->M0_CODIGO,Substr(SM0->M0_CODFIL,1,nTamFil),Upper(substr(SM0->M0_FILIAL,1,1))+Lower(substr(SM0->M0_FILIAL,2)),;
					Upper(substr(SM0->M0_NOME,1,1))+Lower(substr(SM0->M0_NOME,2)),"ENVNGPORTAL"+SM0->M0_CODIGO+Substr(SM0->M0_CODFIL,1,nTamFil)}}
		Exit
	End 

Return aEmpPortal