Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que valida o cadastro do Abastecimento em Lote (MNTA656)

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

MNTA656

Abastecimento Lote Posto Interno


Rotina(s) envolvida(s)

Nome Técnico

MNTA6565

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 Abastecimento em Lote (MNTA656) utilizado para realizar validações ao confirmar o registro

Programa Fonte:

MNTA656.prw
Localização:SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Abastecimento Lote Posto Interno

Função:

MNTA6565()
Parâmetros:
NomeTipoDescrição
ParamIXB[1]Numérico

Tipo de validação:

1 - Linha;

2 - Todo o Follow-Up (aCols).

ParamIXB[2]CaracterPosto
ParamIXB[3]CaracterLoja
ParamIXB[4]CaracterTanque
ParamIXB[5]CaracterCombustível
ParamIXB[6]ArrayaCols
ParamIXB[7]NuméricoLinha atual

Retorno:

NomeTipoDescriçãoObrigatório
lRetLógicoConfirma o abastecimento caso verdadeiro (.T.), caso contrário a operação é interrompidaX
Exemplo do Ponto de Entrada MNTA656()
#Include 'Protheus.ch'

User Function MNTA6565()

	Local lRet := .T.

	/* ParamIXB	[1] - Tipo de Validacao: 1 -> Linha; 2 -> Todo o Follow-Up (aCols)	
				[2] - Posto	
				[3] - Loja	
				[4] - Tanque	
				[5] - Combustivel	
				[6] - aCols	
				[7] - Linha atual */
				
	If ParamIXB[1] == 1	
		If !MsgYesNo("Confirmar este abastecimento ?","P.E. MNTA6565")		
			lRet := .F.	
		EndIf
	Else	
		If !MsgYesNo("Confirmar o abastecimento do Follow-Up "+cValToChar(ParamIXB[7])+" ?","P.E. MNTA6565")		
			lRet := .F.	
		EndIf
	EndIf
	
Return lRet