Marcelo Grando

Bom dia, O mesmo problema estava ocorrendo comigo ao tentar transmitir um CT-e Simplificado, usei esses arquivos postados nesse tópico e autorizou no sefaz, acredito que o correto seria como a JeannyPaiva fez

Bom dia, @Juliomar Marchetti Fiz alguns ajustes também no arquivo de retorno ACBrBoletoRet_Bradesco.pas, tinha algumas "tags" que não estava retornando o valor correto, segue arquivo em anexo para análise. Segue em anexo o arquivo ACBrBoletoRet_Bradesco.json, contendo o retorno do boleto sem QRcode; Atual (postado por @Jhonlenon Ribeiro ) Ajustado function TRetornoEnvio_Bradesco.LerRetorno(const ARetornoWS: TACBrBoletoRetornoWS): Boolean; OBS: Ajustes feito para o boleto sem QRcode ACBrBoletoRet_Bradesco.pas ACBrBoletoRet_Bradesco.json

Bom dia, Segue ACBrBoletoW_Bradesco.pas modificada em anexo ACBrBoletoW_Bradesco.pas

Boa tarde, Corrigir também as "tag" no arquivo ACBrBoletoW_Bradesco.pas, tem algumas que tem a acentuação e por isso está retornando com erro ao enviar o arquivo;

Bom dia @Italo Giurizzato Junior, O XML de NF-e em questão não foi gerado pelo nosso sistema. O cliente recebeu esse arquivo de terceiros e tentou importá-lo em nosso sistema para gerar o CT-e. Os XML gerados pelo nosso sistema utilizam os componentes do ACBR e estão sendo gerados corretamente. Inclusive, após ajustar manualmente o XML recebido para o formato correto, a importação foi realizada normalmente. De toda forma, para minimizar o impacto quando recebemos arquivos com essa inconsistência, faremos um ajuste no sistema para tratar o XML incorreto e possibilitar a importação. Obrigado pelo retorno e esclarecimentos!

Bom dia, Esta ocorrendo um erro ao tentar ler um XML de NF-e que contenha a tag <infAdic><obsCont><xCampo>; Estou repassando o arquivo ACBrNFe.XmlReader.pas corrigido, não sei se realmente é um problema nesse arquivo ou se o XML que estou tentando ler esta corrompido, mas alterando o ACBrNFe.XmlReader.pas consegui ler o xml normalmente. ACBR atualizado: At revision: 41387 Arquivo ACBr_II\trunk2\Fontes\ACBrDFe\ACBrNFe\Base\ACBrNFe.XmlReader.pas linha 1559 procedure TNFeXmlReader.LerInfAdic(const ANode: TACBrXmlNode); Ao tentar ler o campo "xCampo" no XML de NF-e (Imagem 1) esta ocorrendo erro "ACCESS_VIOLATION"; (Imagem 2) o erro ocorre nessa linha NFe.InfAdic.obsCont[i].xCampo := ANodes[i].Attributes.Items['xCampo'].Content; (Imagem 2) se trocar por essa forma ObterConteudo(ANodes[i].Childrens.Find('xCampo'), tcStr); não ocorre o erro NFe.InfAdic.obsCont[i].xCampo := ObterConteudo(ANodes[i].Childrens.Find('xCampo'), tcStr); (Imagem 3) no meu sistema o erro ocorre quando uso o LoadFromFile, LoadFromString ... ACBrNFe1.NotasFiscais.LoadFromFile(ArquivosXML[I], false); Imagem 1 Imagem 2 Imagem 3 ACBrNFe.XmlReader.pas

Arquivo: PagFor.Itau.GravarTxtRemessa.pas Local do arquivo: \ACBr_II\trunk2\Fontes\ACBrPagFor\Bancos Comentar ou excluir as linhas 369, 522 e 959 GeraSegmentoB(mSegmentoBList: TSegmentoBList); 369 - // Inc(FSequencialDoRegistroNoLote); GeraSegmentoJ52(mSegmentoJ52List: TSegmentoJ52List); 522 - // Inc(FSequencialDoRegistroNoLote); GeraSegmentoW(mSegmentoWList: TSegmentoWList); 959 - // Inc(FSequencialDoRegistroNoLote); CORRIGIDO: PagFor.Itau.GravarTxtRemessa.pas

Desinstalei a ACBr, FR, o Delphi 2010 e Delphi 12.3 e reinstalei somente o Delphi 12.3 com a FR e ACBr; A principio resolveu o problema no Delphi 12.3, agora esta funcionando os componentes da ACBr vinculados ao FR. Muito obrigado pela ajuda!

Tem que corrigir essas linhas também: linha 168, 199, 315 e 346 ARetornoWS.DadosRet.TituloRet.Vencimento := DateCresolToDateTime(LJsonObject.AsString['dtvencimento']); // não encontra o dtvencimento corrigido ARetornoWS.DadosRet.TituloRet.Vencimento := DateCresolToDateTime(LJsonObject.AsString['dtVencimento']); // o "V" tem que ser maiúsculo;

Realmente tinha caminhos referenciando o delphi 2010 dentro do path do enviroment variables, removi esses caminhos reiniciei a maquina mas mesmo assim o erro continua. Depois, tentei desinstalar o FR e o ACBr nos 2 delphi, removi todos os path dentro dos delphi do FR e o ACBr, removi as bpl do ACBr manualmente e depois executei o arquivo apagarAcbr.bat, depois de tudo removido, reiniciei a maquina novamente, instalei o FR e o ACBr somente no delphi 12 e o erro continua, estou pensando em desinstalar os 2 delphi da maquina e instalar a princípio somente o delphi 12 com o FR e o ACBr, só que o meu medo agora é fazer isso e o erro continuar a acontecer.

Sim, tenho instalado na mesma maquina o Delphi 2010 com o FastReport versão 4.15.13 + ACBr (esta funcionando normalmente) o Delphi 12.3 com o FastReport VCL Reporting versão 2025.1.8 + ACBr único problema que ocorreu foi esse "Invalid parameter" ao adicionar no form qualquer um desses componentes: ACBrCTeDACTEFR, ACBrMDFeDAMDFEFR, ACBrNFeDANFEFR, ACBrNFSeDANFSeFR e ACBrNFSeXDANFSeFR, Tentei alterar, mas continua com o mesmo problema; Tentei executar o arquivo "apagarAcbr.bat" e reinstalar novamente o ACBr, mas também não adiantou. Será que é porque tenho 2 versões do Delphi e do FR na mesma maquina ?

A versão do FR que você tem, tem ainda a propriedade CheckboxAsShape no componente frxPDFExport ? Caso não tenha, estou achando que é isso que esta causando o problema no ACBr pra mim, o frxPDFExport esta sendo usado nos componentes de impressão do ACBr e no caso, ao tentar criar o frxPDFExport, a falta dessa propriedade "CheckboxAsShape" seria o "Invalid parameter".

Após o meu projeto pronto não abrir, o primeiro teste que fiz foi tentar por o componente em um projeto novo , simplesmente ao pegar o componente da palette e jogar ele no form já ocorre o erro de "Invalid parameter" e não salva nada no dfm.

O FR versão Embarcadero tinha sido instalado dentro da pasta \OneDrive\Documentos\Embarcadero\Studio\23.0\CatalogRepository, depois que desinstalei ele, eu exclui a pasta do FR que estava dentro desta pasta \CatalogRepository Agora o FR esta instalado dentro da pasta C:\Program Files (x86)\Embarcadero\Componentes\Fast Reports\VCL\2025.1.8\Sources

No library path, tem somente o apontamento para a nova instalação do FR. dcu/.dcp/.bpl também não encontrei nada referente ao FR versão Embarcadero. Inclusive, depois que desinstalei essa versão, eu exclui a pasta aonde tinha instalado o FR versão Embarcadero e a nova versão do FR instalei em uma pasta diferente, na verdade foi o próprio FR que solicitou o caminho da instalação.

Justamente, o componente não fica visual porque ocorre o erro, "invalid parameter". Se for salvar o form, o Delphi pergunta se desejo remover a declaração do componente.

Pior que não, o mesmo erro ocorre ao adicionar o componente ACBrCTeDACTEFR, ACBrMDFeDAMDFEFR, ACBrNFeDANFEFR, ACBrNFSeDANFSeFR e ACBrNFSeXDANFSeFR em um form novo no Delphi 12. Essa propriedade no frxPDFExport1.CheckboxAsShape que não existe mais no FastReport atual, mas esse componente abre normalmente ignorando o erro, o frxPDFExport1 permanece na tela, os demais que ocorre o erro de "invalid parameter" somem da tela e não permite recoloca-los. Esse erro ocorre em todas os componentes da ACBr ACBrCTeDACTEFR, ACBrMDFeDAMDFEFR, ACBrNFeDANFEFR, ACBrNFSeDANFSeFR e ACBrNFSeXDANFSeFR, abrindo no form já existente e ignorando o erro, o componente some da tela e se for colocar manualmente ocorre o erro e não adiciona o componente, mesmo sendo em um form novo de um novo projeto. Será que por causa dessa propriedade frxPDFExport1.CheckboxAsShape que não existe mais no fastreport estaria causando o erro de invalid parameter nos componentes do ACBr ?

Eu adquiri o delphi 12 e tentei usar com o fastreport que vem junto no Delphi, ocorreu esse erro que reportei acima, vi que a versão que vem junto com o Delphi não é completa, então adquiri a versão completa do Fastreport, desinstalei o fastreport que veio junto com o delphi e instalei o FastReport VCL Reporting versão 2025.1.8, reinstalei também o ABCr novamente. mas o erro continuou ocorrendo. O erro ocorre ao abrir no Delphi 12 o form que já tinha os componentes adicionados (desenvolvido no delphi 2010), O mesmo erro ocorre ao adicionar o componente ACBrCTeDACTEFR, ACBrMDFeDAMDFEFR, ACBrNFeDANFEFR, ACBrNFSeDANFSeFR e ACBrNFSeXDANFSeFR em um form novo no Delphi 12. OBS: estou tentando migrar o meu sistema do Delphi 2010 para o Delphi 12; Tem essa propriedade no frxPDFExport que não existe mais no FastReport atual, mas esse componente abre normalmente ignorando o erro, Será que não seria isso que esta causando o erro no componente do ACBr, pelo que eu vi ele usa esse componente frxPDFExport nos componentes da ACBr citados acima. O mesmo DataModule usando no Delphi 2010 e no Delphi 12, no Delphi 2012 ocorre o erro e não visualiza o componente.

Já tinha o ACBr instalado com essa opção "Deixar somente a pasta LibXX no Library Path do Delphi" desmarcado.

Obrigado pelo retorno! O FastReport que adquiri é a versão completa, mas não leva o nome 'Enterprise'. Além disso, minha versão já está acima da 2025.1.7. Há alguma funcionalidade específica da edição 'Enterprise' que seja necessária para o uso?

Alguém já se deparou com esse erro "Invalid parameter." ao adicionar o componente TACBrCTeDACTERFR no form ? O erro esta ocorrendo no: Delphi 12.3 Professional Estou usando o FastReport VCL Reporting versão 2025.1.8 Esta instalado a ultima versão ACBr;

Eu fiz essas alterações e apliquei no meu sistema e a princípio esta registrando e consultando o boleto normalmente. INCLUI_CONSULTA_BAIXA.rar

Arquivo: ACBrBoletoRet_Cresol.pas Local do arquivo: \ACBr_II\trunk2\Fontes\ACBrBoleto\WS Correções na função LerRetorno do ACBrBoletoRet_Cresol.pas (WS) linha 92 function TRetornoEnvio_Cresol.LerRetorno(const ARetornoWS: TACBrBoletoRetornoWS): Boolean; ... linha 109 if Pos('[', RetWS) > 0 then //estava executando esse comando tendo o '[' em qualquer lugar do "RetWS"; alterado para if Pos('[', RetWS) = 1 then //executa o comando somente se o primeiro carácter do "RetWS" for '['; linha 168 e 199 ARetornoWS.DadosRet.TituloRet.Vencimento := DateCresolToDateTime(LJsonObject.AsString['dtvencimento']); // não encontra o dtvencimento corrigido ARetornoWS.DadosRet.TituloRet.Vencimento := DateCresolToDateTime(LJsonObject.AsString['dtVencimento']); // o "V" tem que ser maiúsculo; ACBrBoletoRet_Cresol.pas

Arquivo: ACBrMDFeDAMDFEFR.pas ...\ACBr_II\trunk2\Fontes\ACBrDFe\ACBrMDFe\DAMDFE\Fast\ACBrMDFeDAMDFEFR.pas linha 1059 procedure TACBrMDFeDAMDFEFR.CarregaContratantes; var i:integer; begin with cdsContratantes, FMDFe.rodo.infANTT do begin for I := 0 to infContratante.Count - 1 do begin Append; if Length(infContratante[i].CNPJCPF)=11 then FieldByName('CNPJCPF').AsString := FormatarCPF(infContratante[i].CNPJCPF) else FieldByName('CNPJCPF').AsString := FormatarCNPJ(infContratante[i].CNPJCPF); Post; end; end; end; O Append; e o Post; estão fora do "for I", carregando somente o primeiro contratante, caso tenha mais de 1 não carrega todos; ACBrMDFeDAMDFEFR.pas

[4201703] ; Atualizado em 03/03/2025 Nome=Ascurra UF=SC Provedor=IPM Versao=1.01 ProRecepcionar=https://ws-ascurra.atende.net:7443/?pg=rest&service=WNERestServiceNFSe