MA490CALT - Valida a alteração de comissões

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Faturamento

Rotina:

Rotina	Nome Técnico
MATA490	Manutenção de Comissões

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

A finalidade do ponto de entrada MA490CALT é permitir ou não a alteração das comissões na rotina de Manutenção de Comissões.

Localização:

Atualizações/Diversos/Manut. de Comissão

Eventos:

MA490CALT() --> lRet

Programa Fonte:

MATA490.PRX

Parâmetros:

Nenhum

Retorno:

Nome	Tipo	Descrição	Obrigatório
lRet	Lógico	.T. - Permite a alteração da comissão / .F. - Não permite a alteração da comissão	Sim

Exemplo:

#Include 'Protheus.ch'

User Function MA490CALT()

Local lRet := .T.
Local cUsuario := RetCodUsr()

If cUsuario == "000001"
  Help(" ",1,"TESTE",,"Usuário sem permissão para alterar a comissão.", 3, 0)
  lRet := .F.
EndIf
 
Return lRet