[ACBrNFeTeste para na abertura no Android]

5 minutos atrás, Adelmo Junior disse:

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

Fica somente nessa tela não continua

[ACBrNFeTeste para na abertura no Android]

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

[Erro ao manifestar nfe]

Em 18/06/2021 at 09:54, BigWings disse:

Se sempre funcionou, o que mudou pra parar se funcionar?

De qualquer forma CAPICOM não é recomendado. 

Tente alterar para libWincrypt. 

Resolvido!

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

Obrigado pela dica!

[Erro ao manifestar nfe]

4 horas atrás, Italo Giurizzato Junior disse:

Boa tarde Adelmo,

Qual é o receio de usar os schemas que nós disponibilizamos?

Nenhum receio, testei todos os schemas e nenhum funcionou

3 horas atrás, BigWings disse:

Não parece ser questão de schemas, mas sim de algo errado na assinatura ou no certificado.

Como está a configuração das propriedades SSLLib?

Essa é a configuração do certificado, que sempre funcionou dessa forma!

[Erro ao manifestar nfe]

2 horas atrás, Juliomar Marchetti disse:

Antes quando?

tu atualizou? reinstalou? atualizou os schemas?

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

[Erro ao manifestar nfe]

1 hora atrás, Juliomar Marchetti disse:

Então atualiza novamente e reinstala

Acabei de atualizar e continua o erro

[Erro ao manifestar nfe]

Atualize o schema

 

instalei o delphi 10.4.2 faz 3 meses ou mais

 

Esse é o código

[Erro ao manifestar nfe]

1 minuto atrás, Adelmo Junior disse:

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

[Manifestar NFe]

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

[Manifestar NFe]

3 minutos atrás, Adelmo Junior disse:

sim

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

 

[Manifestar NFe]

38 minutos atrás, Juliomar Marchetti disse:

Atualizou os schemas também?

sim

[Manifestar NFe]

Bom dia;

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

[Compatibilidade com Rad Studio 10.4]

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.

[Desconto na NFC-e]

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

[Desconto na NFC-e]

1 hora atrás, Juliomar Marchetti disse:

Anexa o xml que ele gerou

 

26200937373977000164650010000000731000041000-nfe.xml

38 minutos atrás, Juliomar Marchetti disse:

Sim muda. como é valor monetário geralmente se trabalha com 2 casas

Mas ai ele não da o valor correto do desconto

[Desconto na NFC-e]

23 minutos atrás, Adelmo Junior disse:

     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

 

1 hora atrás, Adelmo Junior disse:

Não funcionou!

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

[Desconto na NFC-e]

33 minutos atrás, Adelmo Junior disse:

Não funcionou!

     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

[Desconto na NFC-e]

6 horas atrás, Juliomar Marchetti disse:

Tu sabe o total certo? e tu sabe o total do desconto.

faz a diferença entre um e outro. será que não funciona?

Não funcionou!

[Desconto na NFC-e]

2 minutos atrás, Juliomar Marchetti disse:

Tu sabe o total certo? e tu sabe o total do desconto.

faz a diferença entre um e outro. será que não funciona?

Baseado nisso vou fazer esse teste!, obrigado

[Desconto na NFC-e]

Em 16/09/2020 at 11:33, Adelmo Junior disse:

Vou verificar aqui, obrigado pela dica

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

[Desconto na NFC-e]

39 minutos atrás, BigWings disse:

Você tem que guardar o resíduo do arredondamento em cada item. Somando os resíduos de arredondamento de cada item você vai ter um valor que deve ser somado ao desconto do item de maior valor.

Ex:

6,94 / 56,94 = 0,1218826835265191

9,49 * 0,1218826835265191 = 1,156666666666667 => desc: 1,15 resíduo: 0,0066666666666667

47,45 * 0,1218826835265191 = 5,783333333333333 => desc: 5,78 resíduo: 0,0033333333333333

resíduo total: 0,0066666666666667 + 0,0033333333333333 = 0,01

desc. total rateado = 6,93 + resíduo total => 6,93 + 0,01 = 6,94

O resíduo total acrescenta no item de maior valor, no exemplo o segundo, ficando o desconto 5,78 + 0,01 = 5,79

 

Vou verificar aqui, obrigado pela dica

[Desconto na NFC-e]

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

[Desconto na NFC-e]

4 minutos atrás, BigWings disse:

No XML está correto?

Se não estiver, provavelmente é algo na sua rotina.

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?

19 minutos atrás, Adelmo Junior disse:

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

Eu carrego do banco para alimentar o componente

[Desconto na NFC-e]

2 minutos atrás, Juliomar Marchetti disse:

Tu aplicou esse desconto rateado nos itens?

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

[Desconto na NFC-e]

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?