Jhonlenon Ribeiro

Mais fica errado porque as Aliquota IBS 0.1 e CBS 0.9 são essas para 2026....eu Autorizei o XML em homologação

Sim...ai em 2026 não soma IBS e CBS

@DevAgrotis Parece que sim....peguei do demo ACBrCT-e... // Reforma Tributária if rgReformaTributaria.ItemIndex = 0 then begin Imp.vTotDFe := 100; Imp.IBSCBS.CST := cst000; Imp.IBSCBS.cClassTrib := ct000001; Imp.IBSCBS.gIBSCBS.vBC := 100; Imp.IBSCBS.gIBSCBS.gIBSUF.pIBS := 5; Imp.IBSCBS.gIBSCBS.gIBSUF.gDif.pDif := 5; Imp.IBSCBS.gIBSCBS.gIBSUF.gDif.vDif := 50; Imp.IBSCBS.gIBSCBS.gIBSUF.gDevTrib.vDevTrib := 50; Imp.IBSCBS.gIBSCBS.gIBSUF.gRed.pRedAliq := 5; Imp.IBSCBS.gIBSCBS.gIBSUF.gRed.pAliqEfet := 5; Imp.IBSCBS.gIBSCBS.gIBSUF.vIBS := 50; Imp.IBSCBS.gIBSCBS.gIBSMun.pIBS := 5; Imp.IBSCBS.gIBSCBS.gIBSMun.gDif.pDif := 5; Imp.IBSCBS.gIBSCBS.gIBSMun.gDif.vDif := 50; Imp.IBSCBS.gIBSCBS.gIBSMun.gDevTrib.vDevTrib := 50; Imp.IBSCBS.gIBSCBS.gIBSMun.gRed.pRedAliq := 5; Imp.IBSCBS.gIBSCBS.gIBSMun.gRed.pAliqEfet := 5; Imp.IBSCBS.gIBSCBS.gIBSMun.vIBS := 50; Imp.IBSCBS.gIBSCBS.gCBS.pCBS := 5; Imp.IBSCBS.gIBSCBS.gCBS.gDif.pDif := 5; Imp.IBSCBS.gIBSCBS.gCBS.gDif.vDif := 50; Imp.IBSCBS.gIBSCBS.gCBS.gDevTrib.vDevTrib := 50; Imp.IBSCBS.gIBSCBS.gCBS.gRed.pRedAliq := 5; Imp.IBSCBS.gIBSCBS.gCBS.gRed.pAliqEfet := 5; Imp.IBSCBS.gIBSCBS.gCBS.vCBS := 50; Imp.IBSCBS.gIBSCBS.gTribRegular.CSTReg := cst000; Imp.IBSCBS.gIBSCBS.gTribRegular.cClassTribReg := ct000001; Imp.IBSCBS.gIBSCBS.gTribRegular.pAliqEfetRegIBSUF := 5; Imp.IBSCBS.gIBSCBS.gTribRegular.vTribRegIBSUF := 50; Imp.IBSCBS.gIBSCBS.gTribRegular.pAliqEfetRegIBSMun := 5; Imp.IBSCBS.gIBSCBS.gTribRegular.vTribRegIBSMun := 50; Imp.IBSCBS.gIBSCBS.gTribRegular.pAliqEfetRegCBS := 5; Imp.IBSCBS.gIBSCBS.gTribRegular.vTribRegCBS := 50; Imp.IBSCBS.gIBSCBS.gIBSCredPres.cCredPres := cp01; Imp.IBSCBS.gIBSCBS.gIBSCredPres.pCredPres := 5; Imp.IBSCBS.gIBSCBS.gIBSCredPres.vCredPres := 50; Imp.IBSCBS.gIBSCBS.gIBSCredPres.vCredPresCondSus := 50; Imp.IBSCBS.gIBSCBS.gCBSCredPres.cCredPres := cp01; Imp.IBSCBS.gIBSCBS.gCBSCredPres.pCredPres := 5; Imp.IBSCBS.gIBSCBS.gCBSCredPres.vCredPres := 50; Imp.IBSCBS.gIBSCBS.gCBSCredPres.vCredPresCondSus := 50; // Tipo Tributação Compra Governamental Imp.IBSCBS.gIBSCBS.gTribCompraGov.pAliqIBSUF := 5; Imp.IBSCBS.gIBSCBS.gTribCompraGov.vTribIBSUF := 50; Imp.IBSCBS.gIBSCBS.gTribCompraGov.pAliqIBSMun := 5; Imp.IBSCBS.gIBSCBS.gTribCompraGov.vTribIBSMun := 50; Imp.IBSCBS.gIBSCBS.gTribCompraGov.pAliqCBS := 5; Imp.IBSCBS.gIBSCBS.gTribCompraGov.vTribCBS := 50; end;

@DevAgrotis eu consegui aqui....vou postar parte do xml... <IBSCBS> <CST>000</CST> <cClassTrib>000001</cClassTrib> <gIBSCBS> <vBC>500.00</vBC> <gIBSUF> <pIBSUF>0.1000</pIBSUF> <vIBSUF>0.50</vIBSUF> </gIBSUF> <gIBSMun> <pIBSMun>0.0000</pIBSMun> <vIBSMun>0.00</vIBSMun> </gIBSMun> <vIBS>0.50</vIBS> <gCBS> <pCBS>0.9000</pCBS> <vCBS>4.50</vCBS> </gCBS> </gIBSCBS> </IBSCBS> <vTotDFe>500.00</vTotDFe>

Boa tarde....estou com mesmo problema no CT-e

Bom dia @Victor H. Gonzales - Panda testei os fontes do SVN e pareceu está OK tanto na API de cobrança com qrcode e sem qrcode e também API legado mais antiga, o pessoal vai ter dificuldade para testar em homologação porque o json do bradesco em homologação sempre foi confuso mesmo. Agora é só arrochar em produção mesmo.

Sim...

Bom dia @Victor H. Gonzales - Panda lhe enviei no e-mail [email protected] as credenciais e certificado em homologação tanto da Cobrança com QRCODE e sem QRCODE via site developers.

@Victor H. Gonzales - Panda fiz algumas alterações nas units ai está gerando o token e tentando registrar, mais dá erro de validação no json. Isso para API de cobrança com qrcode e sem qrcode via site developers bradesco. A outro API de cobrança hibrida mais antiga ainda não tive tempo de testar. Vou anexar as units que alterei. ACBrBoletoW_Bradesco.pas ACBrBoletoRet_Bradesco.pas

.crt e .key teria que rever o processo porque não está pegando o token, nas 2 unit que eu alterei estava OK o token e o registro.

@Victor H. Gonzales - Panda eu testei usando a API do de cobrança com qrcode do site do developers bradesco ai dá erro ai tentar pegar o token. Testei o certificado e o problema não é no certificado.

Eu vi que ultima a unit anexada no post já estava alterada para atender tanto a API antiga quando a mais novo...então pode desconsiderar esse comentário.

Bom dia...pelo que vi os end point mais antigo da API de Cobrança hibrida Bradesco foi comentada. No meu ponto de vista teria que permancer os end point antigo....sei que API de cobrança hibrida bradesco via solicitação...essa que agente abre o chamando pedindo a liberação de uso da API será descontinuada e só vai permancer as API de cobrança com qrcode e sem qrcode via site developers bradesco. Mais era bom manter a unit alterior, seria bom criar uma nova e ou compatilizar a unit atual com as 2 API de cobrança hibrido. Afinal tem alguns usuario que estão usando API mais antiga. Eu tinha já implementado a API de cobrança com qrcode bradesco do site developers...só fiz foi criar uma novo unit...sem mexer na unit atual.... Então ficaria assim...para API de cobrança com qrcode developers bradesco seria essas ACBrBoleto.Cedente.CedenteWS.ClientID := 'seu client_id'; ACBrBoleto.Cedente.CedenteWS.ClientSecret :='seu client secret'; ACBrBoleto.Cedente.CedenteWS.IndicadorPix :=True; ACBrBoleto.Configuracoes.WebService.SSLCryptLib := cryWinCrypt; ACBrBoleto.Configuracoes.WebService.SSLHTTPLib := httpOpenSSL; AcBrBoleto.Configuracoes.WebService.SSLType := LT_TLSv1_2; ACBrBoleto.Configuracoes.WebService.TimeOut := 50000; ACBrBoleto.Configuracoes.WebService.VersaoDF := 'V2'; ACBrBoleto.Configuracoes.WebService.UseCertificateHTTP := True; ACBrBoleto.Configuracoes.WebService.ArquivoCRT := 'seu certificado.crt; ACBrBoleto.Configuracoes.WebService.ArquivoKEY := 'seu certificado.key'; e para API de Cobrança Hibrida Bradesco via solicitação seria essas abaixo. ACBrBoleto.Cedente.CedenteWS.ClientID := 'seu client_id'; ACBrBoleto.Cedente.CedenteWS.ClientSecret := 'seu client_id''; ACBrBoleto.Cedente.CedenteWS.Scope := ''; ACBrBoleto.Cedente.CedenteWS.KeyUser := ''; ACBrBoleto.Cedente.CedenteWS.IndicadorPix := True; ACBrBoleto.Configuracoes.WebService.SSLCryptLib := cryWinCrypt; ACBrBoleto.Configuracoes.WebService.SSLHTTPLib := httpOpenSSL; AcBrBoleto.Configuracoes.WebService.SSLType := LT_TLSv1_2; ACBrBoleto.Configuracoes.WebService.TimeOut := 50000; ACBrBoleto.Configuracoes.WebService.UseCertificateHTTP := False; ACBrBoleto.Configuracoes.WebService.ArquivoCRT := 'seu certificado.crt; ACBrBoleto.Configuracoes.WebService.ArquivoKEY := 'seu certificado.key'; ACBrBoletoWS.pas ACBrBoletoW_Bradesco_V2.pas ACBrBoletoRet_Bradesco_V2.pas

@hugo_fabricio é apenas um conselho...sei que API de cobrança hibrida bradesco via solicitação...essa que agente abre o chamando pedindo a liberação de uso da API será descontinuada e só vai permancer as API de cobrança com qrcode e sem qrcode via site developers bradesco. Mais era bom manter a unit alterior, era criar uma nova e ou compatilizar a unit atual com as 2 API de cobrança hibrido. Afinal tem alguns usuario que estão usando API mais antiga.

@hugo_fabricio coloca aqui o link do seu post....pra mim dá uma analisada...chegou a testar em homologação e produção?

Vou anexar as units para ser analisada para ser adicionada aos fontes ACBrBoleto. FIz testes homologação e produção. Obs: no site do bradesco developers tem 2 APIs de boletos.....cobrança com qr code e cobrança sem qr code. Essa é a cobrança COM QR CODE. Configurações no ACBrBoleto para testes. ACBrBoleto.Cedente.CedenteWS.ClientID := 'seu cliente_id'; ACBrBoleto.Cedente.CedenteWS.ClientSecret :='seu cliente secret'; ACBrBoleto.Cedente.CedenteWS.Scope := ''; ACBrBoleto.Cedente.CedenteWS.KeyUser := ''; ACBrBoleto.Cedente.CedenteWS.IndicadorPix :=True; ACBrBoleto.Configuracoes.WebService.SSLCryptLib := cryWinCrypt; ACBrBoleto.Configuracoes.WebService.SSLHTTPLib := httpOpenSSL; AcBrBoleto.Configuracoes.WebService.SSLType := LT_TLSv1_2; ACBrBoleto.Configuracoes.WebService.TimeOut := 50000; ACBrBoleto.Configuracoes.WebService.VersaoDF := 'V2'; ACBrBoleto.Configuracoes.WebService.UseCertificateHTTP := True; ACBrBoleto.Configuracoes.WebService.ArquivoCRT := 'seu certificado.crt; ACBrBoleto.Configuracoes.WebService.ArquivoKEY := 'seu certificado.key'; ACBrBoletoRet_Bradesco_V2.pas ACBrBoletoW_Bradesco_V2.pas ACBrBoletoWS.pas

Bom dia, no ACBrBoleto já existe o boleto hibrido pix bradesco via API....mais não é o mesmo boleto com QR CODE pix do site developers. Os end point são diferentes e forma de autenticação também, com base das units ACBrBoletoW_Bradesco e ACBrBoletoRet_Bradesco eu desenvolvi a cobrança com QR CODE Bradesco via API do site bradesco developers

Boa tarde...foi adicionado o campo pagador na consulta em lista do retorno no itaú (TpConsulta). Vou anexar a unit ACBrBoletoRet_Itau_API para ser analisada. Já que existe essa informação no json de retorno de boletos liquidados por dia. ListaRetorno.DadosRet.TituloRet.Sacado.NomeSacado := LJsonBoletoObject.AsString['pagador']; ACBrBoletoRet_Itau_API.pas

Boa tarde @Italo Giurizzato Junior vi que em outro post....você tinha falado do ambiente em homologação da NFS-e do Padrão Nacional que estava com problema...será que arrumaram ou continua com bug?

Bom dia, eu estava verificando e existe outros topicos relacionado a esse assunto...meu erro é esse aqui.... {"tipoAmbiente":2,"versaoAplicativo":"SefinNac_Pre_1.3.0","dataHoraProcessamento":"2025-06-22T21:45:06.4878178-03:00","idDPS":"DPS170210926114119900015200900000000000000008","erros":[{"Parametros":null,"Codigo":"E999","Descricao":"Erro não catalogado"}]}..isso acontece só em ambiente de homologação....em produção envia normal sem erro. Será que até hoje nunca arrumaram o ambiente em homologação para NFS-e Padrão Nacional? em 2023 esse ERRO NÃO CATALOGADO já ocorria, será que é algum problema no meu xml? esse problema é geral ainda?

@Victor H. Gonzales - Panda e se validasse por status não daria certo?

Boa tarde @Victor H. Gonzales - Panda realmente remover o for não pode, mais que tal validar com só em cima do c6Bank? porque existe varias formas de fazer o envio. print em anexo.

Testei a ideia do @Antonio Gomes e deu certo...como mostra o print abaixo..unit em anexo ACBrBoletoWS.pas

Bom dia, já tem uns 8 meses que fiz a homologação da emissão do boleto c6Bank via API, até ai tudo certo, quando fiz a homologação do boleto percebi que o componente ACBrBoleto tentava registrar o mesmo boleto 2 vezes, então pensei deve ser erro no meu código, então ignorei o erro e na segunda tentativa dava certo, isso gerando varios boletos dentro de um while, sendo que o envio é individual de cada boleto e não em lote. Então como mesmo dando erro de duplicidade de registro tava dando certo, deixei quieto, então onten o Rodrigo da c6Bank me chamou no zap e falou que a minha integração já tinha registrado mais de 1000 erro de tentativa de registro de boleto no servidor da c6Bank. Então fui analisar a fundo e vi que no if FBoleto.ListadeBoletos.Count > 0 then da unit ACBrBoletoWS no segundo boleto ele ordenava errado e ao inves de pegar o o segundo boleto, pregava era o primeiro boleto causando duplicidade de registro, outros colegas me relataram a mesma coisa também. Fiz uma alteração na unit ACBrBoletoWS e estou postando em anexo para ser analisada se a alteração está correta, pois se trata de uma unit global onde varios bancos usa ela para o registro de boleto. Só alterei essa parte abaixo da unit. function TBoletoWS.Enviar: Boolean; var indice : Integer; LJsonEnvio: String; LUltimoEnvio: TDateTime; begin Banco := FBoleto.Banco.TipoCobranca; Result := False; FBoletoWSClass.FHTTPSend.Timeout := FBoleto.Configuracoes.WebService.TimeOut; try if FBoleto.ListadeBoletos.Count > 0 then begin // Pegando sempre o último registro indice := Pred(FBoleto.ListadeBoletos.Count); // último índice FBoletoWSClass.FTitulo := FBoleto.ListadeBoletos[indice]; LJsonEnvio := FBoletoWSClass.GerarRemessa; Result := FBoletoWSClass.Enviar; FRetornoWS := FBoletoWSClass.FRetornoWS; RetornoBanco.RetWS := FRetornoWS; RetornoBanco.FEnvWS := LJsonEnvio; RetornoBanco.RetornoEnvio(indice); end else if (FBoleto.Configuracoes.WebService.Operacao in [tpConsulta]) then // Apenas Consulta Genérica begin FBoletoWSClass.GerarRemessa; Result := FBoletoWSClass.Enviar; FRetornoWS := FBoletoWSClass.FRetornoWS; RetornoBanco.RetWS := FRetornoWS; RetornoBanco.RetornoEnvio(0); end; except on E: Exception do begin if not Assigned(FBoletoWSClass.RetornoBanco) or ((FBoletoWSClass.RetornoBanco.CodRetorno = 0) and (Trim(FBoletoWSClass.RetornoBanco.Msg) = '')) then DoLog('Falha Envio: ' + ACBrStr(E.Message), logSimples) else DoLog('Erro Envio: ' + ACBrStr(IntToStr(FBoletoWSClass.RetornoBanco.CodRetorno) + sLineBreak + FBoletoWSClass.RetornoBanco.Msg + sLineBreak + E.Message), logSimples); raise; end; end; ACBrBoletoWS.pas

Bom dia...eu estava precisando ocultar o e-mail do tomador na NFS-e Autorizada na hora de gerar o DANFSE...eu uso o fortes report. A situação é o seguinte, se o tomador fornecer o e-mail no cadastra ai fica tudo certo, agora quando ele não tem e-mail eu precisava informar um e-mail cooporativa nosso que seria específico para essa situação, só que quando fosse esse e-mail cooporativo não era pra mostrar no DANFSE...passava apenas no xml. Porque isso? porque para CANCELAR uma NFS-e de serviço a prefeitura só deixa se na emissão da NFS-e estiver sido informado um e-mail válido. Uso o componente ACBrNFSeX e Fortes Report. Tem alguma forma de fazer isso usando o componente ACBrNFSeX?