Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que realiza validações/gravações específicas na confirmação da tela de tanques e bombas no cadastro de Postos Internos (MNTA615)

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

MNTA615

Posto Interno


Rotina(s) envolvida(s)

Nome Técnico

MNTA6151

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 Posto Interno (MNTA615) que realiza validações/gravações específicas na confirmação da tela de tanques e bombas 

Programa Fonte:

MNTA615.prx
Localização:SIGAMNT: Atualizações/Controle de Combustíveis/Cadastro Postos/Posto Interno

Função:

MNTA6151()

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRetLógico

Se as informações estiverem de acordo com as validações, retorna verdadeiro (.T.), caso contrário, retorna falso (.F.) 

X
Exemplo do Ponto de Entrada MNTA6151()
#Include 'Protheus.ch'

User Function MNTA6151()

	Local lRet,lGrava
	Local aC,aHLocal j
	lRet := .T.
	lGrava := .F.
	aC := aClone(aSvCols[1])
	aH := aClone(aSvHeader[1])
	
	For j := 1 to Len(aC)	
		If !aC[j][Len(aH)+1]		
			cInstal := GdFieldGet("TQI_INSTAL",j,Nil,aH,aC)		
			If cInstal <> '1'			
				lGrava := .T.		
			EndIf	
		EndIf
	Next j
	
	If lGrava	
		If MsgYesNo("Confirma a gravacao de historico para instalacao?","PE MNTA6151")		
			//U_GrvHIST()  
			//funcao de usuario	
		EndIf
	Else	
		MsgInfo("Historico nao sera gravado.","PE MNTA6151")
	EndIf
	
Return lRet

//aCols: componente aCols do objeto em foco
//aSvCols: [1] - tanques
//         [2] - bombas