Ponto de Entrada – M651DPC

P.E permite criar validações no duplo click da MarkBrow na tela de Firmar OP (MATA651)

Exemplo da Rotina:

User Function M651DPC()
	//...
Return lRet

Exemplo 1- Valida o duplo clique ao firmar OP:

#INCLUDE "PROTHEUS.CH"
 
//=================================================================================
/*/{Protheus.doc} M651DPC
P.E permite criar validações no duplo click da MarkBrow na tela de Firmar OP [MATA651]
 
@type       function
@author     Thiago.Andrrade
@since      30/05/2019
@version    1.0
@return     .T. -> Permite Firmar OP
            .F. -> Não permite Firmar OP
/*/
//=================================================================================
 
User Function M651DPC()
 
Local lRet := .T.
Local cNomeUsr := Alltrim(cUSERNAME)
 
If cEmpAnt == '01'
    If !substr(cNomeUsr,1,4) $ "PCP2/PCP4/PCP5/PCP6/PCP9/AL18/AL17"
        MsgStop("Usuario sem permissão para Firmar OP!", "Atenção")      
        lRet   := .F.
    Endif
Endif
 
Return(lRet)

Observações:

  • Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
  • Se tiver sugestões de rotinas, pode entrar em contato;
  • Função e documentação enviada por Thiago.Andrrade;

Referências: