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;