Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada que realiza a validação de campos não vazios da tabela TQB no Fechamento da Solicitação de Serviço (MNTA290)

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

MNTA290

Fechamento de Solicitação de Serviço


Rotina(s) envolvida(s)

Nome Técnico

MNTA2908

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 Fechamento de Solicitação de Serviço (MNTA290) que realiza a validação de campos não vazios da tabela TQB

Programa Fonte:

MNTA290.prx
Localização:SIGAMNT: Atualizações/Controle de Oficina/Solicitação de Serviço/Fechamento

Função:

MNTA2908()

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRetArray

O array é composto por quatro posições:

aRet[1] = Campo;

aRet[2] = Mensagem;

aRet[3] = Tipo de Mensagem;

aRet[4] = Mostra ou não os campos na mensagem;

ou por múltiplas posições na primeira, sendo as demais constantes:

aRet[1][1] = Campo1;

aRet[1][2] = Campo2; ... ;

X
Bloco de código
titleExemplo do Ponto de Entrada MNTA2908()
#Inlcude 'Protheus.ch'

User Function MNTA2908()

	Local aRet    := {}
	Local aCampos := {}
	Local cCampo  := ""
	Local cMsg    := ""
	Local cTipo   := ""  //"I" - Info; "S" - Stop; "YN" - YesNo (Optar em continuar ou nao)
	Local lEndMsg := .F. //.T. - Mostra no final da mensagem os campos nao preenchidos; .F. - Nao mostra.
	
	/*	O array e' composto por 4 (quatro) posicoes:		
	aRet[1] = Campo;		
	aRet[2] = Mensagem;		
	aRet[3] = Tipo de Mensagem;		
	aRet[4] = Mostra ou nao os campos na mensagem;	
	ou por multiplas posicoes na primeira, sendo as demais constantes: 
	aRet[1][1] = Campo1; 
	aRet[1][2] = Campo2; ...; */
	
	aCampos := { "TQB_CENTRA","TQB_CCUSTO" }
	cCampo  := ""
	cMsg    := "Um ou mais campos não foram preenchidos."
	cTipo   := "YN" //Em Tipo "YN" o texto "Deseja continuar?" e impresso em tela automaticamente
	lEndMsg := .T.//Carrega o array
	
	If Len(aCampos) > 0	
		aAdd(aRet, aCampos) //Adiciona diversos campos
	Else	
		aAdd(aRet, cCampo) // Adiciona um campo
	EndIf
	aAdd(aRet, cMsg) //Adiciona a mensagem
	aAdd(aRet, cTipo) //Adiciona o tipo da mensagem
	aAdd(aRet, lEndMsg) //Adiciona se havera final de mensagem
		
Return aRet