Linha Microsiga Protheus

Árvore de páginas

 

Ponto de Entrada LJ701Key

Descrição:

Este ponto de entrada permite fazer validações se continua o processamento das ações ("Gravar como Orçamento", "Gravar como Venda" e "Sair" da rotina Venda Assistida (LOJA701).

Através deste ponto de entrada é possível fazer validações e se necessário bloquear a ação do usuário, não permitindo que o sistema continue a execução de uma das ações acima sitadas.

Eventos:

O ponto de entrada é executado ao clicar nas opções ("Gravar como Orçamento", "Gravar como Venda" e "Sair" ou quando pressionado as teclas (F4, F5 ou F6) na rotina Venda Assistida (LOJA701).

Programa Fonte:

LOJA701

Retorno:

lRet (lógico) - Retorno utilizado para definir se continua ou não o processamento da ação acionada pelo usuário.

 

Exemplo:

User Function LJ701Key()
Local lRet := .T. //.T.=Permite continuar ; .F.=Bloqueia e não permite continuar
Local lIsCaixa := LJProFile(3) //Verifica se no perfil de caixa está configurado como "Usuário é caixa"


//<Coloque aqui sua regra de validação desejada.>

If !(lIsCaixa) //Não permite continuar se usuário não é caixa

MsgAlert("Não é permitido continuar, pois usuário não é caixa!")
lRet := .F.

EndIf

Return lRet