Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que realiza validações ao incluir um item na Estrutura de Bens (MNTA090)

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

MNTA090

Estrutura de Bens


Rotina(s) envolvida(s)

Nome Técnico

MNTA0901

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 Estrutura de Bens (MNTA090) que é chamado ao confirmar a inclusão de um item

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Bens/Estrutura de Bens 

Programa Fonte:

MNTA090.prw

Função:

MNTA0901()

Retorno:

NomeTipoDescrição
lRetLógicoSe as informações estiverem de acordo com as validações retorna verdadeiro (.T.), caso contrário, retorna falso (.F.)
Exemplo do Ponto de Entrada MNTA0901()
#Include 'Protheus.ch'

//O exemplo abaixo faz uma verificação simples no cadastro do bem.
//Na situacao se 'Movim. Bem' estiver como "Sim" e 'Status' preenchido no cadastro, o bem não será adicionado à estrutura.
User Function MNTA0901()

	Local lRet := .T.
	Local aArea := GetArea()
	
	dbSelectArea("ST9")
	dbSetOrder(01)
	If dbSeek(xFilial("ST9")+M->TC_COMPONE)	
		If ST9->T9_MOVIBEM == "S" .And. !Empty(ST9->T9_STATUS)		
			APMSGINFO("Não é possível incluir o bem '"+AllTrim(M->TC_COMPONE)+"' na estrutura.","ATENCAO")		
			lRet := .F.	
		EndIf
	EndIf
	RestArea(aArea)

Return lRet