Identificador de Regra

VEN-140CNFEC01

Módulo: VEN - Vendas.

Finalidade: Consistir o fechamento de uma nota fiscal. O identificador irá disponibilizar a chave de acesso da nota fsical para que, via regra, seja possível gerar uma mensagem de consistência. Acionado no início do processo de fechamento das notas fiscais de saída.

Transação: Não se aplica.

Regra:

@Função para verificar qual é o dia da semana@
pdatsis = DatSis;
RetDiaSemana(pdatsis, pDia);

@Se o dia da semana for segunda-feira, entra na verificação@
Se (pDia = 1)
inicio
definir cursor cursor_E099USU;
definir alfa Fechar_Nota;
definir numero Codigo_Usuario;
definir numero VSCodEmp;
Codigo_Usuario = CodUsu;

@Cursor para verificar se o cliente tem permissão para fechar a nota após o horário especial@
cursor_E099USU.SQL "select USU_PERNOT from E099USU\
where codemp = :VSCodEmp\
and codusu = :Codigo_Usuario";
cursor_E099USU.AbrirCursor();
Se (cursor_E099USU.Achou)
Fechar_Nota=cursor_E099USU.USU_PERNOT;
cursor_E099USU.FecharCursor();

@Se o usuário não tem permissão é a hora for maior que 14hs, apresenta mensagem impedindo o fechamento da nota@
Se ((Fechar_Nota <> "S") e (HorSis > 840))
mensagem(erro,"Este usuário não pode emitir notas sexta-feira após às 14hs.");
fim

Variáveis Disponibilizadas: