Jump to content

Adelmo Junior

Membros
  • Posts

    36
  • Joined

  • Last visited

Everything posted by Adelmo Junior

  1. O ACBrNFeTeste fica parado na abertura e não continua nem mostra nenhuma mensagem de erro, alguém sabe dizer o que pode ser?
  2. Resolvido! Depois que fiz essa alteração está baixando normal como era antes com capicom! Obrigado pela dica!
  3. Nenhum receio, testei todos os schemas e nenhum funcionou Essa é a configuração do certificado, que sempre funcionou dessa forma!
  4. Também, tudo atualizado, baixei os schemas do portal da sefaz , do acbr e nada
  5. Acabei de atualizar e continua o erro
  6. Atualize o schema instalei o delphi 10.4.2 faz 3 meses ou mais Esse é o código
  7. Alguém sabe dizer o motivo desse erro? Antes funcionava perfeitamente!
  8. O Problema foi resolvido com essa configuração no ACBrNFe
  9. O que tem de errado nesse código que é o que sempre uso e usei antes da atualização
  10. Bom dia; Depois que atualizei o ACBr, ao manifestar notas para baixar aparece esta mensagem, alguém sabe informar o motivo?
  11. 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.
  12. 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
  13. 26200937373977000164650010000000731000041000-nfe.xml Mas ai ele não da o valor correto do desconto
  14. 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
  15. 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
  16. A questão agora é como pegar esses resíduos! tem uma luz ai pra me dar mais uma forcinha, agradeço
  17. Não tinha esse problema, depois de uns dias pra cá muitas notas estão ficando em contingência por esse motivo
  18. 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
  19. Justamente faço o rateio no é que é alterado esse valor
  20. 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?
×
×
  • 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.