Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que realiza validações ao incluir um registro no Abastecimento Manual (MNTA655)

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

MNTA655

Abastecimento Manual


Rotina(s) envolvida(s)

Nome Técnico

MNTA6551

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 Manual (MNTA655) que permite realizar validações ao incluir um registro

Programa Fonte:

MNTA655.prx
Localização:SIGAMNT: Atualizações/Controle de Combustíveis/Abastecimento/Abastecimento Manual

Função:

MNTA6551()

Retorno:

.T./0
Exemplo do Ponto de Entrada MNTA6551()
#Include 'Protheus.ch'

User Function MNTA6551() 

	Local Ccadastro := "Abastecimento"                    
	Local oDlg, oMainWnd
	Local nOpca
	Local aAreaTQN := TQN->(GetArea())
	
	Private cMat   := Space(Len(SRA->RA_MAT))
	Private cSen   := Space(Len(SRA->RA_SENHA))   
	
	If Inclui                      	
		Define MsDialog oDlg Title Ccadastro From 9,0 To 16,50 Of oMainWnd				
		@ 1.5,1 Say "Matricula" COLOR CLR_BLUE 	
		@ 1.4,5 MSGET cMat PICTURE '@!' F3 "SRA" Valid EXISTCPO('SRA',cMat,1)  	
		@ 2.5,1 Say "Senha" COLOR CLR_BLUE 	
		@ 2.4,5 MSGET cSen PASSWORD Valid VALSENHA(cMat,cSen)				
		Activate MsDialog oDlg On Init EnchoiceBar(oDlg,{||nOpca:=1,oDlg:End()},{|| nOpca:=2,oDlg:End()},,) CENTERED				
		If (nOpca == 1) 		
			RestArea(aAreaTQN)		
			DbSelectArea("TQN")		
			Return .T.	
		Else   		
			RestArea(aAreaTQN)		
			DbSelectArea("TQN")		
			Return 0	
		EndIf	
	EndIf
	RestArea(aAreaTQN)
	DbSelectArea("TQN")
Return 

Static Function VALSENHA(cCodFunSRA,cSenhaSRA)
	
	Local lRet := .T.
	
	If Empty(cSenhaSRA)	
		MsgStop("Senha informada não poderá ser branca!","Atenção")	
		Return .F.
	EndIf
	
	dbSelectArea("SRA")
	dbSetOrder(01)
	If dbSeek(xFilial("SRA")+cCodFunSRA)	
		If cSenhaSRA != SRA->RA_SENHA		
			MsgStop("Senha informada não corresponde à senha do funcionário no cadastro de Funcionários!","Atenção")		
			lRet := .F.		
		EndIf
	Else	
		If !dbSeek(xFilial("SRA")+cCodFunSRA)		
			MsgStop("Senha informada não corresponde à senha do funcionário no cadastro de Funcionários!","Atenção")		
			lRet := .F.			
		EndIf
	EndIf
	
Return lRet