Metodo TCFeR.LerXml adciona CFe.Pagto mas ao tentar reemitir Apresenta erro de Forma de Pagamento Invalida

[Roberio]

Boa Tarde a todos não encontrei um topico sobre o assunto e resolvir compartilhar um problema/solução encontrado pra quem usa acbrecfvirtualsat

Usando MFE com integrador fiscal caso o integrador não responda (muito comum por sinal) se o usuario ou sistema tentar reenviar o mesmo cupom após o timeout do integrador o metodo TCFeR.LerXml adciona na linha 360 uma nova forma de pagamento, mas como o objeto cfe ja esta carregado esta forma de pagamento fica zerada, observei que fazem a mesma coisa com os itens adcionando um item pra cada item encontrado no xml anteriormente carregado

 

no entanto no metodo TACBrECFVirtualSATClass.FechaCupomVirtual o fonte limpa os itens com quantidade 0 mas não limpava as formas de pagamento que estavam com zero, deixando assim o xml do cupom com varios <mp> com valor zero.

 

adcionei nos meus fontes as linhas

for I := CFe.Pagto.Count-1 downto 0 do
        if CFe.Pagto.Items.vMP=0 then
          CFe.Pagto.Delete(I);

no entanto gostaria de saber se fiz certo e se sim que fosse adcionado nas proximas versões 

 

desde já agradeço o excelente trabalho

[Daniel Simoes]

Por favor anexe as Units modificadas...

[Roberio]

Segue ACBrECFVirtualSAT.pas Modificado nas linhas 497 a 500

incluido 

 

     for I := CFe.Pagto.Count-1 downto 0 do
        if CFe.Pagto.Items.vMP=0 then
          CFe.Pagto.Delete(I);

[Daniel Simoes]

Obrigado... já no SVN, commit: 15268