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: |
| ||||||||
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas