Jump to content

diadoacbr

Nota de Devolução e Ajuste validando formas de pagamento.


Natanael.Ribeiro
Go to solution Solved by simons,
  • Este tópico foi criado há 1442 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

olá, a função ValidarRegrasdeNegocios está validando as formas de pagamento nas notas de Devolução e Ajuste, sendo que elas devem ser informada como Sem Pagamento com o valor zerado.

    else if (NFe.infNFe.Versao >= 4) then
    begin
      fsvTotPag := 0;
      for I := 0 to NFe.pag.Count-1 do
      begin
        fsvTotPag :=  fsvTotPag + NFe.pag.vPag;
      end;
      GravaLog('Validar: 767-Soma dos pagamentos');
      if (fsvTotPag < NFe.Total.ICMSTot.vNF) then
        AdicionaErro('767-Rejeição: Somatório dos pagamentos diferente do total da Nota Fiscal');

      GravaLog('Validar: 869-Valor do troco');
      if (NFe.Total.ICMSTot.vNF <> (fsvTotPag - NFe.pag.vTroco)) then
        AdicionaErro('869-Rejeição: Valor do troco incorreto');
    end;

Link to comment
Share on other sites

  • 2 weeks later...
  • Este tópico foi criado há 1442 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.