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
