Agnaldo Prates 229 Posted August 14, 2020 Report Share Posted August 14, 2020 Bom dia pessoal. Sei que há um tópico sobre a questão do troco. No da NFC-e, (não testei na NF-e), o valor recebido não condiz com a realidade, pois, soma o troco com o valor dos produtos, a meu pensar, deveria ser somado ao campo vNF, assim ficaria correto o valor recebido. Vejamos: unit ACBrNFeDANFEFRDM.pas procedure TACBrNFeFRClass.CarregaCalculoImposto; { ... } if FNFe.pag.vTroco > 0 then begin FieldByName('vTroco').AsCurrency := FNFe.pag.vTroco; FieldByName('vTotPago').AsCurrency := FNFe.pag.vTroco+FieldByName('VNF').AsFloat; // FieldByName('vTotPago').AsCurrency := FNFe.pag.vTroco+FieldByName('VProd').AsFloat; end else if (FDANFEClassOwner is TACBrNFeDANFCEClass) then begin FieldByName('vTroco').AsCurrency := TACBrNFeDANFCEClass(DANFEClassOwner).vTroco; // FieldByName('vTotPago').AsCurrency := TACBrNFeDANFCEClass(DANFEClassOwner).vTroco + FieldByName('VProd').AsFloat; FieldByName('vTotPago').AsCurrency := FNFe.pag.vTroco+FieldByName('VNF').AsFloat; end; _____________ Prates, Agnaldo Link to post Share on other sites
Juliomar Marchetti 3,845 Posted August 14, 2020 Report Share Posted August 14, 2020 Está sugerindo correção? se sim anexe o fonte Juliomar Marchetti Ajude o Projeto ACBr crescer - Assine o SAC skype: juliomar telegram: juliomar http://www.juliomarmarchetti.com.br Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Link to post Share on other sites
Agnaldo Prates 229 Posted August 14, 2020 Author Report Share Posted August 14, 2020 5 horas atrás, Juliomar Marchetti disse: Está sugerindo correção? Sim. Segue anexo. ACBrNFeDANFEFRDM.pas _____________ Prates, Agnaldo Link to post Share on other sites
Juliomar Marchetti 3,845 Posted August 14, 2020 Report Share Posted August 14, 2020 Teria também um xml de NFC-e em homologação com essa situação? Juliomar Marchetti Ajude o Projeto ACBr crescer - Assine o SAC skype: juliomar telegram: juliomar http://www.juliomarmarchetti.com.br Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Link to post Share on other sites
Agnaldo Prates 229 Posted August 15, 2020 Author Report Share Posted August 15, 2020 (edited) 14 horas atrás, Juliomar Marchetti disse: Teria também um xml de NFC-e em homologação com essa situação? Sim. Segue anexo. Aqui o valor informado foi de R$ 40,00 11200833789021000197650010000014791636324641-NFe.xml 11200833789021000197650010000014781272234024-NFe.xml Edited August 15, 2020 by Agnaldo Prates 1 _____________ Prates, Agnaldo Link to post Share on other sites
Solution Juliomar Marchetti 3,845 Posted August 15, 2020 Solution Report Share Posted August 15, 2020 Já está no svn. mas tem uma coisa seu arquivo está bem desatualizado. o erro continuava a existir mas está muito distante seus fontes sugiro um revert para o svn e depois um update 1 Juliomar Marchetti Ajude o Projeto ACBr crescer - Assine o SAC skype: juliomar telegram: juliomar http://www.juliomarmarchetti.com.br Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Link to post Share on other sites
BigWings 3,983 Posted August 15, 2020 Report Share Posted August 15, 2020 Em 14/08/2020 at 10:15, Agnaldo Prates disse: FieldByName('vTroco').AsCurrency := TACBrNFeDANFCEClass(DANFEClassOwner).vTroco; // FieldByName('vTotPago').AsCurrency := TACBrNFeDANFCEClass(DANFEClassOwner).vTroco + FieldByName('VProd').AsFloat; FieldByName('vTotPago').AsCurrency := FNFe.pag.vTroco+FieldByName('VNF').AsFloat; Tinha um problema na parte do else. Subi correção, rev. 20452. 3 BigWingsAjude o Projeto ACBr crescer - Assine o SAC Link to post Share on other sites
Agnaldo Prates 229 Posted August 15, 2020 Author Report Share Posted August 15, 2020 Solucionado. Só fechar o tópico, eu não consigo fechá-lo mais. _____________ Prates, Agnaldo Link to post Share on other sites
Juliomar Marchetti 3,845 Posted August 15, 2020 Report Share Posted August 15, 2020 Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico. Juliomar Marchetti Ajude o Projeto ACBr crescer - Assine o SAC skype: juliomar telegram: juliomar http://www.juliomarmarchetti.com.br Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Link to post Share on other sites
Recommended Posts