Identificador de Regra

CPR-000TORTC01

Finalidade: Permitir que a customização decida se tolera (ignora) ou bloqueia divergências entre o valor calculado pelo ERP e o valor recebido no XML da NF-e, para os tributos da Reforma Tributária (IBS, CBS e Imposto Seletivo), item a item, no Recebimento Eletrônico. O objetivo é evitar que pequenas diferenças de arredondamento no cálculo item a item — que não representam erro tributário real — bloqueiem o recebimento da nota. O valor gravado na nota permanece sempre o calculado pelo ERP; este identificador não altera o valor gravado, apenas decide se a divergência impede ou não o processamento.

Módulo: CPR - Compras.

Rotinas:

• F000INE - Recebimento Eletrônico
• Processo Agendado 67
• Web Service com.senior.g5.co.mcm.cpr.recebimentoeletronico, porta Processar.

Transação: Não se aplica.

Características:

• O identificador é executado durante a consistência de valores da Reforma Tributária no Recebimento Eletrônico, uma vez para cada item de produto ou serviço que apresente ao menos uma divergência de base de cálculo, alíquota ou valor de imposto entre o XML e o cálculo do ERP.
• Inativo (comportamento padrão): qualquer divergência encontrada bloqueia o recebimento, deixando a nota como "Inconsistente".
• Ativo: a regra percorre a lista de divergências do item (CprNLista) e, para cada linha que se deseje tolerar, altera o valor da variável CprATolDvg para S. Linhas não alteradas permanecem com o valor padrão N (bloqueia).
• Nenhuma mensagem ou consistência deve ser utilizada neste identificador; a regra deve apenas percorrer a lista e alterar a variável CprATolDvg nas linhas aplicáveis.

Variáveis Disponibilizadas:

Campos da lista CprNLista:

Lista das divergências de base de cálculo, alíquota ou valor encontradas entre o calculado pelo ERP e o recebido no XML, para cada imposto do item atual (IBS, CBS ou Imposto Seletivo).

Regra:

definir alfa CprACgcFil;
definir alfa CprACgcFor;
definir alfa CprAChvNel;
definir alfa CprAProSer;
definir numero CprNSeqIte;
@ Variaveis da Lista de divergencias @
definir numero CprNLista;
Definir Alfa RetornouValor;
Definir Alfa FimDaLista;
Definir Alfa obtValorAlfa_CodImp;
Definir Alfa obtValorAlfa_GrdDvg;
Definir Numero obtValorNumero_VlrCal;
Definir Numero obtValorNumero_VlrXml;
Definir Numero obtValorNumero_ValDif;
Definir Alfa AlterouValor;

@ Varre a lista de divergencias do item atual @
ListaRegraPrimeiro(CprNLista, RetornouValor);
se (RetornouValor = "S")
inicio
  FimDaLista = "N";
  enquanto (FimDaLista <> "S")
  inicio
    ListaRegraObterValorAlfa(CprNLista, "CprACodImp", obtValorAlfa_CodImp, RetornouValor);
    ListaRegraObterValorAlfa(CprNLista, "CprAGrdDvg", obtValorAlfa_GrdDvg, RetornouValor);
    ListaRegraObterValorNumero(CprNLista, "CprNVlrCal", obtValorNumero_VlrCal, RetornouValor);
    ListaRegraObterValorNumero(CprNLista, "CprNVlrXml", obtValorNumero_VlrXml, RetornouValor);
    ListaRegraObterValorNumero(CprNLista, "CprNValDif", obtValorNumero_ValDif, RetornouValor);

    @ Exemplo de tolerancia especifica por imposto: IS tolera ate R$ 0,05 na BASE @
    se ((obtValorAlfa_CodImp = "IS") e (obtValorAlfa_GrdDvg = "BASE") e (obtValorNumero_ValDif <= 0.05))
    inicio
      ListaRegraAlterarLinhaAlfa(CprNLista, "CprATolDvg", "S", AlterouValor);
    fim

    @ Exemplo de tolerancia: tolera ate R$ 0,15 na ALIQUOTA @
    se ((obtValorAlfa_GrdDvg = "ALIQUOTA") e (obtValorNumero_ValDif <= 0.15))
    inicio
      ListaRegraAlterarLinhaAlfa(CprNLista, "CprATolDvg", "S", AlterouValor);
    fim

    @ Exemplo de tolerancia: tolera R$ 0,01 no VALOR do imposto @
    se ((obtValorAlfa_GrdDvg = "VALOR") e (obtValorNumero_ValDif <= 0.01))
    inicio
      ListaRegraAlterarLinhaAlfa(CprNLista, "CprATolDvg", "S", AlterouValor);
    fim

    ListaRegraProximo(CprNLista, RetornouValor);
    ListaRegraFim(CprNLista, FimDaLista);
  fim
fim