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

Natanael.Ribeiro · 17 Agosto, 2018

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;