Adelmo Junior

Fica somente nessa tela não continua

O ACBrNFeTeste fica parado na abertura e não continua nem mostra nenhuma mensagem de erro, alguém sabe dizer o que pode ser?

Resolvido! Depois que fiz essa alteração está baixando normal como era antes com capicom! Obrigado pela dica!

Nenhum receio, testei todos os schemas e nenhum funcionou Essa é a configuração do certificado, que sempre funcionou dessa forma!

Também, tudo atualizado, baixei os schemas do portal da sefaz , do acbr e nada

Acabei de atualizar e continua o erro

Atualize o schema instalei o delphi 10.4.2 faz 3 meses ou mais Esse é o código

Alguém sabe dizer o motivo desse erro? Antes funcionava perfeitamente!

O Problema foi resolvido com essa configuração no ACBrNFe

O que tem de errado nesse código que é o que sempre uso e usei antes da atualização

sim

Bom dia; Depois que atualizei o ACBr, ao manifestar notas para baixar aparece esta mensagem, alguém sabe informar o motivo?

O ACBr já está compativel com o Rad Studio 10.4? Não consegui instalar o ACBr no RadStudio 10.4, depois da instalação quano abro o Rad Studio apresenta uma mensagem: "Runtime error" e fecha totalmente a ide.

Eu nunca vi isso, estava funcionando de boa! De uns dias pra cá o pessoa começou a falar que as notas estavam ficando em contingencia por esse motivo trabalho a anos com isso e nunca demorei tanto a resolver um problema desse e não lembro ter alterado o nada nesse código

26200937373977000164650010000000731000041000-nfe.xml Mas ai ele não da o valor correto do desconto

Influencia nos tipos de variáveis com currency, extended e double? estava usando currency e extended vinha com casas decimais com 6 dígitos e agora mudei para double e ja mudou aqui, acredito que seja isso

DesctoAcomulado:=0; ValorDescto:= 0.00; percdescto:= 0.00; TotalRealDescto:= 0.00; ValorDesctoProduto:=0; try ValorDesctoProduto:= DataModule1.ClientMestreTOTAL_DESCTO.AsFloat/QtdeTotalItens; Maiorvalor:= DataModule1.ClienteDetalheMaior.AsString; DataModule1.ClienteDetalhe.DisableControls; DataModule1.ClienteDetalhe.First; while not DataModule1.ClienteDetalhe.eof do begin if DataModule1.ClienteDetalheCANCELADO.AsString ='N' then begin // percdescto := DataModule1.ClientMestrePERC_DESCTO.AsFloat; // ValorDescto := (percdescto * Datamodule1.ClienteDetalheVALOR_TOTAL.AsFloat)/100; try DataModule1.ClienteDetalhe.Edit; DataModule1.ClienteDetalheDESCTO.AsFloat:= percdescto; if DataModule1.ClienteDetalheVALOR_TOTAL.AsFloat < ValorDesctoProduto then DesctoAcomulado:= DesctoAcomulado + ValorDesctoProduto else DataModule1.ClienteDetalheVALOR_DESCTO.AsFloat:= ValorDesctoProduto; DataModule1.ClienteDetalhe.Post; DataModule1.ClienteDetalhe.ApplyUpdates(-1); TotalRealDescto:= TotalRealDescto +ValorDescto; except end; end; DataModule1.ClienteDetalhe.Next; end; vDifDescto := DataModule1.ClientMestreTOTAL_DESCTO.AsFloat - fsvDesc; if vDifDescto < 0 then vDifDescto := vDifDescto * -1; Maiorvalor:= DataModule1.ClienteDetalheMaior.AsString; DataModule1.ClienteDetalhe.Locate('VALOR_TOTAL',Maiorvalor,[loPartialKey]); DataModule1.ClienteDetalhe.Edit; DataModule1.ClienteDetalheVALOR_DESCTO.AsFloat :=DesctoAcomulado + DataModule1.ClienteDetalheVALOR_DESCTO.AsFloat; DataModule1.ClienteDetalhe.Post; DataModule1.ClienteDetalhe.ApplyUpdates(-1); finally DataModule1.ClienteDetalhe.EnableControls; end; Já fiz de tudo não funciona, ão sei o que é exatamente

Não funcionou!

Baseado nisso vou fazer esse teste!, obrigado

A questão agora é como pegar esses resíduos! tem uma luz ai pra me dar mais uma forcinha, agradeço

Vou verificar aqui, obrigado pela dica

Não tinha esse problema, depois de uns dias pra cá muitas notas estão ficando em contingência por esse motivo

Acredito que seja no arredondamento, mas não sei como resolver; Tenho outro exemplo aqui: tenho uma venda de R$ 56,94 aplico o desconto em (R$) de R$ 6,94 então tenho R$ 50,00, faço o rateio que se não me engano em porcentagem é 12,188 arredondando fica 12,20 e o valor do item sem o desconto é R$ 9,49 passando a ser R$ 8,33. Então o desconto de cada item é de R$ 1,16 que multiplicado por 6 que seria o total de itens na nota fica o total de desconto R$ 6,96 Lembrando que o desconto que apliquei foi de R$ 6,94 na venda e depois faço o rateio! Como resolver isso? Eu carrego do banco para alimentar o componente

Justamente faço o rateio no é que é alterado esse valor

Bom dia! Estou com problema em aplicar desconto na nota, o desconto é de R$ 8,78 em uma nota no valor de R$ 208,78 na impressão o desconto é arredondado para R$ 8,80 o valor a pagar fica R$ 199,98 e mostra o troco de R$ 0,02 Onde está o erro?