Eduardo Flaeschen

Alterei os 2 arquivos que encontrei: C:\ACBr\Fontes\ACBrDFe\ACBrNFSeX\ACBrNFSeXServicos.ini C:\ACBr\Lib\Delphi\LibD25\Win32\ACBrNFSeXServicos.ini [5300108] ; Atualizado em 11/09/2024 Nome=Brasilia UF=DF Provedor=PadraoNacional Versao=2.04 ;ProRecepcionar=https://df.issnetonline.com.br/webservicenfse204/nfse.asmx ;HomRecepcionar=https://www.issnetonline.com.br/homologaabrasf/webservicenfse204/nfse.asmx E ao executar o programa exemplo, a propriedade "ACBrNFSeX1.Configuracoes.Geral.Provedor" continua com "proISSNet". O que mais preciso alterar ?

Desculpe a ignorância e, por conseguinte, a insistência.... Mesmo marcando a opção, a aba "Provedor Padrão Nacional" não é habilitada, veja: TENHO QUE FAZER ALGUMA ALTERAÇÃO NO CÓDIGO ? Como existem esses botões na aba do "Provedor Padrão Nacional", estou acreditando que as rotinas sejam diferentes da ação na aba "Demais Provedores"

Se entendo corretamente, DF está na lista Não era para a aba dos provedores mostrar "Provedor Padrão Nacional" ? ela está desativada

Como configurar o ACBrNFSeX_Exemplo para uso do Provedor Nacional no DF, atendendo as mudanças de 01/2026 ? No condição original de execução, a aba "Provedor Padrão Nacional" fica desabilitada !!

Obrigado. Acho que já podemos encerrar esse tópico.

Não, é isso que preciso construir. Já fiz uns testes com API Horse e aquele famoso "ping" - "pong" e está certinho. Agora é construir os end-points configurados conforme a documentação deles.... e ainda publicar em ambiente https !!!

Ok, muito obrigado. Aproveitando... sabe de alguém que já tenha implementado webhook para retorno da movimentação dos boletos SICOOB e BB ? alguma dica Obrigado

Prezados, Estou usando normalmente o TACBrBoleto para a geração e registro de boleto do BB via API. Tudo funcionando 100%. Preciso de uma orientação para implementar rotina de recuperação da segunda via do boleto, ou seja, consultar o BB via API e salvar o pdf com o boleto consultado. Olhei a rotina de consulta no exemplo mas não consegui identificar a recuperação do pdf. Podem me ajudar, por favor ? Obrigado

Uma outra questão: Consegui gerar o PDF do boleto mas apesar das configurações, não foi incluída a logo do banco e o boleto gerado não mostrou o QR-Code do PIX, veja: RetornoRegistro.txt boleto.pdf

Agora já estou conseguindo fazer o registro dos boletos, mas na hora do envio do email, aparece o erro abaixo: Aproveitando, pode me dar uma dica de como obter o PDF do boleto gerado após a confirmação ?

Só agora que falou é que percebi o link, pra mim aqui está aparecendo muito apagado e não percebi. Obrigado, é o campo "Modalidade"

Obrigado por responder, mas acho que não entendeu !!! Esse "Now" eu extrai do próprio exemplo do ACBr (uDemoBoleto.pas). O que preciso é saber qual campo da tela de configuração corresponde à esse que está gerando o erro (Variação da carteira) : JSON={"erros":[{"codigo":"4432632","versao":"1","mensagem":"Variacao da carteira nao informada.","providencia":"Informe corretamente os campos do boleto.","ocorrencia":"000000000000000000277173"}]}

Estou fazendo os testes mas no Exemplo tem a configuração: ... Titulo.DataProcessamento := Now; Titulo.Carteira := edtCarteira.Text; Titulo.NossoNumero := edtNossoNro.Text; {utilizado na Consulta, Alteração e Baixa da API Inter com QrCode e C6} Titulo.NossoNumeroCorrespondente := edtNossoNumeroCorrespondente.Text; Titulo.ValorDocumento := StrToCurr(edtValorDoc.Text); ... Mas estou com erro : HTTP_Result=400 JSON={"erros":[{"codigo":"4432632","versao":"1","mensagem":"Variacao da carteira nao informada.","providencia":"Informe corretamente os campos do boleto.","ocorrencia":"000000000000000000277173"}]} Não encontrei nenhum campo para a definição da "Variação da carteira" !!!, onde informar ?

Obrigado Juliomar, Não fiz testes ainda, estou fazendo a "transcrição" para a minha aplicação e algumas propriedades me parecem ser para a opção CNAB240. Como só vou usar a API, gostaria de "limpar" a rotina

Prezados, Consultando o exemplo para geração de boletos, existe a rotina abaixo para configuração ! Quais os parâmetros necessários para utilizar apenas as funções com a API do BB - "Banco.TipoCobranca := cobBancoDoBrasilAPI" ? Obrigado, procedure TfrmDemoBoleto.AplicarConfiguracoesAoComponente; var Beneficiario : TACBrCedente; Banco : TACBrBanco; Boleto : TACBrBoleto; WebService : TACBrWebService; BeneficiarioWS : TACBrCedenteWS; CobAnterior : TACBrTipoCobranca; begin Boleto := FACBrBoleto; WebService := Boleto.Configuracoes.WebService; CobAnterior := Boleto.Banco.TipoCobranca; if CobAnterior <> TACBrTipoCobranca(cbxBanco.Items.Objects[cbxBanco.ItemIndex]) then edtLocalPag.Text := ''; //Boleto.ListadeBoletos.Clear; Boleto.PrefixArqRemessa := edtPrefixRemessa.Text; Boleto.LayoutRemessa := TACBrLayoutRemessa(cbxCNAB.itemindex); Boleto.Configuracoes.WebService.Ambiente := TTipoAmbienteWS(cbbAmbiente.ItemIndex); Boleto.ImprimirMensagemPadrao := ckbImprimirMensagemPadrao.Checked; Boleto.LeCedenteRetorno := ckbLerCedenteArquivoRetorno.Checked; Boleto.LerNossoNumeroCompleto := ckbLerNossoNumeroCompleto.Checked; Boleto.RemoveAcentosArqRemessa := ckbRemoverAcentuacaoRemessa.Checked; Beneficiario := Boleto.Cedente; BeneficiarioWS := Beneficiario.CedenteWS; Beneficiario.Agencia := edtAgencia.Text; Beneficiario.AgenciaDigito := edtAgenciaDV.Text; Beneficiario.Conta := edtConta.Text; Beneficiario.ContaDigito := edtContaDV.Text; Beneficiario.DigitoVerificadorAgenciaConta := edtAgenciaContaDV.Text; Beneficiario.Convenio := edtConvenio.Text; Beneficiario.Modalidade := edtModalidade.Text; Beneficiario.Operacao := edtOperacao.Text; Beneficiario.CodigoTransmissao := edtCodigoTransmissao.Text; Beneficiario.CodigoCedente := edtCodigoCedente.Text; if Length(OnlyNumber(edtBenifCNPJ.Text)) = 14 then Beneficiario.TipoInscricao := pJuridica else Beneficiario.TipoInscricao := pFisica; Beneficiario.TipoDocumento := TACBrTipoDocumento(cbxTipoDocumento.ItemIndex); Beneficiario.IdentDistribuicao := TACBrIdentDistribuicao(cbxTipoDistribuicao.itemIndex); Beneficiario.ResponEmissao := TACBrResponEmissao(cbxResponsavelEmissao.ItemIndex); Beneficiario.PIX.TipoChavePIX := TACBrPIXTipoChave(cbxTipoChavePix.ItemIndex); Beneficiario.PIX.Chave := edtChavePix.Text; Beneficiario.CaracTitulo := TACBrCaracTitulo(cbxCaracteristicaTitulo.itemIndex); Beneficiario.TipoCarteira := TACBrTipoCarteira(cbxTipoCarteira.itemIndex); Beneficiario.CNPJCPF := edtBenifCNPJ.Text; Beneficiario.Nome := edtBenifRazao.Text; Beneficiario.FantasiaCedente := edtBenifFantasia.Text; Beneficiario.Logradouro := edtBenifEndereco.Text; Beneficiario.NumeroRes := edtBenifNum.Text; Beneficiario.Complemento := edtBenifComplemento.Text; Beneficiario.Bairro := edtBenifBairro.Text; Beneficiario.Cidade := edtBenifCidade.Text; Beneficiario.UF := edtBenifUF.Text; Beneficiario.CEP := edtBenifCEP.Text; Beneficiario.Telefone := edtBenifTelefone.Text; Banco := Boleto.Banco; Banco.TipoCobranca := TACBrTipoCobranca(cbxBanco.Items.Objects[cbxBanco.ItemIndex]); Banco.LayoutVersaoArquivo := StrToIntDef(edtCNABLVArquivo.Text,0); Banco.LayoutVersaoLote := StrToIntDef(edtCNABLVLote.Text,0); Banco.CIP := edtCIP.Text; Banco.DensidadeGravacao := edtDensidadeGravacao.Text; if (Banco.LocalPagamento <> edtLocalPag.Text) and (edtLocalPag.Text <> '') then Banco.LocalPagamento := edtLocalPag.Text; if edtLocalPag.Text = '' then edtLocalPag.Text := Banco.LocalPagamento; BeneficiarioWS.ClientID := edtClientID.Text; BeneficiarioWS.ClientSecret := edtClientSecret.Text; BeneficiarioWS.KeyUser := edtKeyUser.Text; BeneficiarioWS.Scope := edtScope.Text; BeneficiarioWS.IndicadorPix := chkIndicadorPix.Checked; WebService.Ambiente := TTipoAmbienteWS(cbbAmbiente.ItemIndex); WebService.SSLHttpLib := TSSLHttpLib(cbxSSLLib.ItemIndex); WebService.ArquivoCRT := edtArquivoCRT.Text; WebService.ArquivoKEY := edtArquivoKey.Text; WebService.VersaoDF := edtVersaoDF.Text; WebService.TimeOut := 60000; Boleto.Configuracoes.Arquivos.LogNivel := TNivelLog(cbbLogNivel.Items.Objects[cbbLogNivel.ItemIndex]); Boleto.Configuracoes.Arquivos.PathGravarRegistro := edtPathLog.Text; Boleto.Configuracoes.Arquivos.NomeArquivoLog := edtArquivoLog.Text; AplicarConfiguracoesComponenteEmail; if Assigned(FACBrBoleto.ACBrBoletoFC) then FACBrBoleto.ACBrBoletoFC.DirLogo := edtPathLogoMarca.Text; {$IFDEF GERADOR_FAST_REPORT} FACBrBoletoFCFR.FastReportFile := edtPathFR3.Text; FACBrBoletoFCFR.MostrarPreview := True; FACBrBoletoFCFR.MostrarSetup := True; {$ENDIF} end;

Valeu, muito obrigado. Como falou, vou "brincar" e ver a melhor opção !

Estou usando "ACBrNFSeX1.Emitir(vNumLote, meUnitario, false)" para o envio da NFSe e ACBrNFSeX1.NotasFiscais[0].ImprimirPDF; para gerar a DANFE e o componente é TACBrNFSeXDANFSeRL. Se der pra alterar a formatação dos valores para não usar o R$ já ajuda bastante também

Obrigado Juliomar, mas como eu faria isso "ativa uso de escala" e "usar duas propriedades no componente" ??

Obrigado. Fiz um limpa geral, reiniciei a máquina e rodei a instalação apagando os arquivos antigos e deu certo. Mas estou com um problema na DANFE, pode me ajudar, por favor ? veja na imagem que os valores para IRPF e CSLL estão encavalando ! Como posso diminuir o font e tirar o R$ ?

Prezados, após a atualização que fiz hoje, não consigo mais instalar o ACBr, vejam o log: Versao Instalador: 3.2.1.5 Executado em: 17/07/2025 14:53:51 Versão do delphi: Delphi 10.2 Tokyo Win32 Dir. Instalação : C:\ACBr\ Dir. Bibliotecas: C:\ACBr\Lib\Delphi\LibD25\Win32 Removendo arquivos ACBr antigos dos discos... ...OK Removendo librarypaths da instalação anterior do ACBr na IDE... ...OK Removendo pacotes 32bits da instalação anterior do ACBr na IDE... ...OK Criando diretórios de bibliotecas para Win32... ...OK Adicionando library paths para Win32... ...OK Alterando a variável de ambiente PATH do Delphi... ...OK COMPILANDO OS PACOTES... Cleaning package cache for ACBr_synapse.bpl Cleaning ok Compiling package C:\ACBr\Pacotes\Delphi\synapse\ACBr_synapse.dpk "C:\Program Files (x86)\Embarcadero\Studio\19.0\bin\dcc32.exe" "C:\ACBr\Pacotes\Delphi\synapse\ACBr_synapse.dpk" Embarcadero Delphi for Win32 compiler version 32.0 Copyright (c) 1983,2017 Embarcadero Technologies, Inc. 44712 lines, 0.17 seconds, 381076 bytes code, 29464 bytes data. Compilation success Pacote "ACBr_synapse.dpk" compilado com sucesso. Cleaning package cache for ACBr_Comum.bpl Cleaning ok Compiling package C:\ACBr\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk "C:\Program Files (x86)\Embarcadero\Studio\19.0\bin\dcc32.exe" "C:\ACBr\Pacotes\Delphi\ACBrComum\ACBr_Comum.dpk" Embarcadero Delphi for Win32 compiler version 32.0 Copyright (c) 1983,2017 Embarcadero Technologies, Inc. C:\ACBr\Fontes\ACBrComum\ACBr.inc(62) Error: E2029 'END' expected but '<' found C:\ACBr\Fontes\ACBrComum\ACBr.inc(64) Error: E2038 Illegal character in input file: '|' (#$7C) Compilation failure Erro ao compilar o pacote "ACBr_Comum.dpk". Abortando... Ocorreram erros na compilação dos pacotes. PODEM ME AJUDAR ? É URGENTE

Prezados, Invariavelmente os clientes estão com esse erro, é intermitente. Gostaria de saber se existe alguma parametrização para aumentar o tempo de processamento e evitar o timeout. Segue o retorno Requisição Ambiente: 1 Cidade : Brasilia/DF Provedor: ISSNet Versão: 2.04 Método Executado: Gerar NFSe Parâmetros de Envio Numero do Lote: 2083 Parâmetros de Retorno Data de Envio : Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : X999 Mensagem: Erro de Conexão: Erro Interno: 12002 Erro HTTP: 0 URL: https://df.issnetonline.com.br/webservicenfse204/nfse.asmx Erro: 12002 - TimeOut de Requisição Falha ao Receber Resposta. Erro: 12002 - TimeOut de Requisição Correção: --------- Método Executado: Consultar o Lote de Rps Parâmetros de Envio Numero do Prot: Numero do Lote: Parâmetros de Retorno Situação Lote : Sucesso : False NFS-e Numero....: 2083 Cod. Verificacao: Prestador.......: PANTOJA SOCIEDADE INDIVIDUAL DE ADVOCACIA Tomador.........: CONDOMINIO RESIDENCIAL ESPANHA

Complementando, quando chamo a rotina ChecarResposta(tmRecepcionar); recebo como resposta o txt abaixo: Requisição Ambiente: 2 Cidade : Brasilia/DF Provedor: ISSNet Versão: 2.04 Método Executado: Gerar NFSe Parâmetros de Envio Numero do Lote: 51 Parâmetros de Retorno Data de Envio : Numero do Prot: Numero da Nota: Link : Código Verif. : Sucesso : False Erro(s): Código : X999 Mensagem: Erro de Conexão: EndTag: '</' not found Correção: --------- Método Executado: Consultar o Lote de Rps Parâmetros de Envio Numero do Prot: Numero do Lote: Parâmetros de Retorno Situação Lote : Sucesso : False NFS-e Numero....: 51 Cod. Verificacao: Prestador.......: QD Tecnologia da informação LTDA ME Tomador.........: Amorim Camilo e Romano Advogados Associados

@Italo Giurizzato Junior, fiz o ajuste conforme sua orientação e no meu entendimento gerou o xml de retorno (???). mas como pode observar pela resposta da NotaControl, me parece ter alguma divergência. Veja nos anexos os XML's que mandei pra eles e o que me responderam ! Portal NFS-e #0406215 Erro na regação da NFSe - DF - Ambiente de homologação.htm 51-ger-nfse.xml 51-ger-nfse-soap.xml 51-lista-nfse-ger-soap.xml

Certinho, muito obrigado @Italo Giurizzato Junior

@Italo Giurizzato Junior, consegui contato com a NotaControl e eles estão me pedido os XML do envio e do retorno. O arquivo de envio eu já consegui pegar mas o retorno estou apenas com o TXT que é gerado pelo componente no tratamento do erro como coloquei acima. Existe alguma opção para eu pegar exatamente o XML de retorno ? Obrigado