Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que realiza validação do campo TQQ_CODMOT na rotina de Análise Consistência (MNTA700)

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

MNTA700

Análise Consistência


Rotina(s) envolvida(s)

Nome Técnico

MNTA7001

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 Análise Consistência (MNTA700) chamado na validação do campo TQQ_CODMOT. Criado pois cliente não utilizava o CPF do condutor como condicional para abastecimento.

Programa Fonte:

MNTA700.prx
Localização:SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Análise Consistência

Função:

MNTA7001()

Retorno:

NomeTipoDescriçãoObrigatório
lRetVhLógicoCaso as informações estejam de acordo com a validação, retorna verdadeiro (.T.), caso contrário, retorna falso (.F.)X
Exemplo do Ponto de Entrada MNTA7001()
#Include 'Protheus.ch'
#Include 'MNTA700.ch'

//Programa que utilizará o codigo do motorista ao invés do CPF
User Function MNTA7001()

	Local lRetVh := .T.
	Local aAreaM := GetArea()
	Local dDemissao := Ctod('  /  /  ' )
	
	dbSelectArea('DA4')
	dbSetOrder(1)
	If dbSeek(xFilial('DA4')+M->TQQ_CODMOT)   
		If DA4->DA4_TIPMOT == '1'	   
			dbSelectArea('SRA')	   
			dbSetOrder(13)	   
			dbSeek(DA4->DA4_COD)	   
			While !Eof() .And. SRA->RA_MAT == DA4->DA4_COD		      
				If Empty(SRA->RA_DEMISSA)	         
					dDemissao := Ctod('  /  /  ')	         
					Exit	      
				EndIf		      
				If SRA->RA_DEMISSA > dDemissao	         
					dDemissao := SRA->RA_DEMISSA	      
				EndIf		      
				dbSelectArea("SRA")	      
				dbSkip()	   
			End		   
			If !Empty(dDemissao) .And. dDemissao < M->TQQ_DTABAS	      
				Help(' ', 1, STR0042, , STR0045+Chr(13)+STR0044, 3, 1)	      
				lRetVh := .F.	   
			EndIf		   
			If DA4->DA4_TIPMOT == '2'	      
				Help(' ', 1, STR0042, , STR0046, 3, 1)	      
				lRetVh := .F.	   
			EndIf	   
			If DA4->DA4_TIPMOT == '3'	      
				Help(' ', 1, STR0042, , STR0046, 3, 1)	      
				lRetVh := .F.	   
			EndIf	   
			dbSelectArea('SR8')	   
			dbSetOrder(1)	   
			dbSeek(xFilial('SR8')+DA4->DA4_COD)	   
			If SR8->R8_TIPO = 'F'	      
				If M->TQQ_DTABAS > SR8->R8_DATAINI .And. M->TQQ_DTABAS < SR8->R8_DATAFIM	         	
					Help(' ', 1, STR0042, , STR0047, 3, 1)	         
					lRetVh := .F.	      
				EndIf	   
			EndIf	
		EndIf	   
	Else   
		MsgInfo( STR0048, STR0036)   
		lRetVh := .F.
	EndIf
	RestArea(aAreaM)		
	
Return lRetVh