BigWings

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Falha catastrófica é um access violation num processo remoto. Provavelmente tem algo no tratamento das exceções que esta gerando o AV. Da forma abaixo também ocorre erro? except on e: exception do begin DB.Rollback; Log.Trace(e.Message); raise; end; end;

Veja que o desconto apareceu nas instruções. Os valores de desconto, multa, juros a direita não devem ser preenchidos. Só no momento do pagamento do boleto que o operador do caixa vai anotar os valores efetivamente aplicados.

Veja o que diz a documentação: Esse validador provavelmente não está levando isso em consideração. A sugestão é emitir um boleto de teste em produção e validar direto com o banco.

Já tem quase 10 anos que essa alteração foi implementada no componente. Na época eu já tinha feito testes direto nos bancos e já estavam aceitando esse algoritmo. O link está quebrado mas todos os manuais recentes dos bancos trazem o cálculo do fator dessa forma. Se algum validador online não está aceitando, o problema é no validador.

O componente apenas gera os blocos e registros, você deve alimentar com os valores.

Ele ainda está tentando fazer a consulta do recibo... Teve uma correção pra isso esta semana, atualize.

Parece que você está enviando no modo assíncrono, esse modo foi descontinuado na versão 4.00.

Você tem que informar a ocorrência: https://acbr.sourceforge.io/ACBrLib/IndicedeCodigosTituloINI.html Por exemplo, pra alterar vencimento:

É o que parece, a SEFAZ-MG não está identificando os emitentes de outros estados como emissores de NFe, e rejeitando. Teria que abrir um chamado lá, e reportar.

O que exatamente não está aparecendo? Como ficou no XML?

Veja:

O erro não vem da SEFAZ, é a validação contra os schemas, indicando a falta da tag da chave dos CTe complementados. Atentou-se pra essa mudança? {CTe de Complemento de valor} {infCTe.versao = 3.0} InfCTeComp.chave := ''; {infCTe.versao = 4.0} with infCteComp10.New do begin chCTe := 'chave'; end; Conforme código comentado no programa exemplo.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Sim, no Windows 64 bits, a pasta \System32 só tem DLLs de 64 bits, as de 32 bits ficam na \SysWOW64. Tem uma explicação pra isso, mas que é confuso é.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Pode ser a tag indDeduzDeson que estava sendo gerada no XML, por estar por padrão ativada. Foi enviada há pouco uma correção para o SVN, se ainda não fez, atualize os fontes e teste novamente.

Enviei uma correção para o SVN para evitar esse problema, rev. 32593. Favor atualize os fontes e teste novamente.

Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico.

Esse NCM consta normalmente no arquivo:

MsXML precisa ser registrada.

Se você estiver usando os schemas oficiais, com a libxml2, vai ter esse problema com qualquer string com menos de 3 dígitos. Nos schemas disponibilizados pelo ACBr foi feito um ajuste para contornar esse problema, então é só usar eles. https://svn.code.sf.net/p/acbr/code/trunk2/Exemplos/ACBrDFe/Schemas

Ao que parece você não usa ACBr... veja como é no componente: procedure TCTeEnvEvento.DefinirServicoEAction; begin if (FPConfiguracoesCTe.Geral.VersaoDF <= ve300) then FPServico := GetUrlWsd + 'CteRecepcaoEvento' else FPServico := GetUrlWsd + 'CTeRecepcaoEventoV4'; FPSoapAction := FPServico + '/cteRecepcaoEvento'; end; procedure TCTeRecepcao.DefinirServicoEAction; begin case FPConfiguracoesCTe.Geral.ModeloDF of moCTe: begin if Sincrono then begin if FPConfiguracoesCTe.Geral.VersaoDF <= ve300 then begin FPServico := GetUrlWsd + 'CteRecepcaoSinc'; FPSoapAction := FPServico + '/cteRecepcaoSinc'; end else begin FPServico := GetUrlWsd + 'CTeRecepcaoSincV4'; FPSoapAction := FPServico + '/cteRecepcao'; end; end else begin FPServico := GetUrlWsd + 'CteRecepcao'; FPSoapAction := FPServico + '/cteRecepcaoLote'; end; end; moCTeOS: begin if FPConfiguracoesCTe.Geral.VersaoDF <= ve300 then begin FPServico := GetUrlWsd + 'CteRecepcaoOS'; FPSoapAction := FPServico + '/cteOSRecepcao'; end else begin FPServico := GetUrlWsd + 'CTeRecepcaoOSV4'; FPSoapAction := FPServico + '/cteRecepcaoOS'; end; end; else begin if (FPConfiguracoesCTe.Geral.VersaoDF <= ve300) then FPServico := GetUrlWsd + 'CTeRecepcaoGTVe' else FPServico := GetUrlWsd + 'CTeRecepcaoGTVeV4'; FPSoapAction := FPServico + '/cteRecepcaoGTVe'; end; end; end;