José Francisco

Assim Juliomar, eu agradeço pela ajuda, vou continuar investigando aqui, abraços.

pois é Juliomar, muito estranho, mas testei o token juntamente com os certificados e ids que o banco inter oferece no postman e funcionou normal. Ele da o erro na procedure TOAuth.ProcessarRespostaOAuth(const ARetorno: AnsiString); dentro de ACBrBoletoWS.Rest.OAuth.pas na linha em vermelho. procedure TOAuth.ProcessarRespostaOAuth(const ARetorno: AnsiString); var LJson : TACBrJSONObject; LErrorMessage: String; begin FToken := ''; FExpire := 0; FErroComunicacao := ''; try LJson := TACBrJSONObject.Parse(UTF8ToNativeString(ARetorno)); try if (FHTTPSend.ResultCode in [ 200 .. 205 ]) then begin FToken := LJson.AsString[ 'access_token' ]; try FExpire := now + (LJson.AsInteger[ 'expires_in' ] * OneSecond); DoLog('Validade: ' + DateTimeToStr(FExpire), logSimples); except FExpire := 0; end; end else begin FErroComunicacao := 'HTTP_Code=' + IntToStr(FHTTPSend.ResultCode); if Assigned(LJson) then begin LErrorMessage := LJson.AsString[ 'error_description' ]; if LErrorMessage = '' then LErrorMessage := LJson.AsString[ 'error_title' ]; FErroComunicacao := FErroComunicacao + ' Erro=' + LErrorMessage; end; DoLog('Erro: ' + FErroComunicacao, logSimples); end; finally LJson.Free; end; except FErroComunicacao := 'HTTP_Code=' + IntToStr(FHTTPSend.ResultCode) + ' Erro=' + ARetorno; DoLog('Erro: ' + FErroComunicacao, logSimples); end; end; essa ARetorno vem alimentada da seguinte forma: ARetorno: 'client_id={AQUI EU COLOQUEI O MEU CLIENT_ID}&client_secret={AQUI EU COLOQUEI O MEU CLIENT_SECRET}&scope=boleto-cobranca.read boleto-cobranca.write pagamento-boleto.write pagamento-boleto.read cob.write cob.read cobv.write cobv.read pix.write pix.read webhook.read webhook.write payloadlocation.write payloadlocation.read pagamento-pix.write pagamento-pix.read&grant_type=client_credentials' EU acredito que deveria vir um JSON aqui.

Fala Juliomar blz, pois é, tbm testei assim, e da forma que vc enviou tbm, mesmo erro..

Olá Pessoal, estou tendo problemas na função que Gera o Token do boleto inter, pois o mesmo retorna HTTP_Code=500. Segue os logs completos do ACBrBoleto (Componente Delphi). 12/08/24 18:50:41:524 - Autenticando Token... 12/08/24 18:50:41:525 - Comando Enviar: TOAuth 12/08/24 18:50:41:532 - URL: [POST] https://cdpj.partners.bancointer.com.br/oauth/v2/token 12/08/24 18:50:41:588 - Erro: HTTP_Code=500 Erro=client_id={AQUI EU COLOQUEI O MEU CLIENT_ID}&client_secret={AQUI EU COLOQUEI O MEU CLIENT SECRET}&scope=boleto-cobranca.read boleto-cobranca.write pagamento-boleto.write pagamento-boleto.read cob.write cob.read cobv.write cobv.read pix.write pix.read webhook.read webhook.write payloadlocation.write payloadlocation.read pagamento-pix.write pagamento-pix.read&grant_type=client_credentials 12/08/24 18:50:41:589 - Falha Envio: Falha na Autenticação: HTTP_Code=500 Erro=client_id={AQUI EU COLOQUEI O MEU CLIENT_ID}&client_secret={AQUI EU COLOQUEI O MEU CLIENT SECRET}&scope=boleto-cobranca.read boleto-cobranca.write pagamento-boleto.write pagamento-boleto.read cob.write cob.read cobv.write cobv.read pix.write pix.read webhook.read webhook.write payloadlocation.write payloadlocation.read pagamento-pix.write pagamento-pix.read&grant_type=client_credentials Abaixo as configurações do componente ACBrBoleto: procedure TForm1.ConfigurarComponente; var Boleto : TACBrBoleto; WebService : TACBrWebService; Beneficiario : TACBrCedente; BeneficiarioWS : TACBrCedenteWS; Banco : TACBrBanco; Cobranca : TACBrTipoCobranca; begin Boleto := ACBrBoleto1; WebService := Boleto.Configuracoes.WebService; Cobranca := Boleto.Banco.TipoCobranca; Beneficiario := Boleto.Cedente; BeneficiarioWS := Beneficiario.CedenteWS; Boleto.Homologacao := false; Boleto.Banco.TipoCobranca := cobBancoInter; BeneficiarioWS.ClientID := '{AQUI EU COLOQUEI O MEU CLIENT_ID}'; BeneficiarioWS.ClientSecret := '{AQUI EU COLOQUEI O MEU CLIENT SECRET}'; BeneficiarioWS.KeyUser := ''; BeneficiarioWS.Scope := 'boleto-cobranca.read boleto-cobranca.write pagamento-boleto.write pagamento-boleto.read '+ 'cob.write cob.read cobv.write cobv.read pix.write pix.read webhook.read webhook.write '+ 'payloadlocation.write payloadlocation.read pagamento-pix.write pagamento-pix.read'; BeneficiarioWS.IndicadorPix := true; WebService.Ambiente := taProducao; WebService.SSLHttpLib := TSSLHttpLib(0); WebService.SSLType := TSSLType(5); WebService.TimeOut := 10000; WebService.ArquivoCRT := DIR_CERTIF+'InterAPI_Certificado.crt'; WebService.ArquivoKEY := DIR_CERTIF+'InterAPI_Chave.key'; //Dados do Cedente: Beneficiario.CodigoCedente := '{MEU CODIGO}'; Beneficiario.Nome := '{MINHA EMPRESA}; Beneficiario.Agencia := '0001'; Beneficiario.AgenciaDigito := '1'; Beneficiario.Conta := '{MINHA CONTA}'; Beneficiario.ContaDigito := '2'; end; OBs.: Para testar se realmente o banco estava aceitando as minhas credenciais, eu configurei o Postman com os mesmos parâmetros, e ao enviar o método POST obtive com sucesso o "access_token". Desde já agradeço

Sim sim, italo, até ai tudo bem, a grande questão e o retorno do status das notas fiscais para agente saber as notas Normais e as canceladas, mas como isso não tem no Padrão Nacional vamos trabalhando dessa forma. Obrigado.

Só uma observação na função EnviarEvento, quando eu envio o evento de cancelamento da nota fiscal, eu consigo pegar o idEvento através da chamada: ACBrNFSeX1.WebService.EnviarEvento.idEvento, assim desta forma eu sei que o evento de cancelamento foi registrado no servidor ai dentro do meu sistema eu coloco o status dela como cancelado. Mas essa mesma função ao consultar um evento, não me retorna o id do evento.

Olá Grande Italo, blz, então ao tentar consultar o evento informando uma chave de uma nota que não foi cancelada ele não salva nenhum arquivo XML: *-procEveNFSe.xml, e tbm não salva quando eu consulta uma nota que já foi cancelada. Estou usando o Aplicativo ACBr para testes com todas as opções marcadas para salvar. Ele salva quando vc usa a função de EnviarEvento.

Olá Pessoal, a um tempo estamos implantando a nota fiscal de serviço Padrão Nacional em nosso sistema web, mas diferente do padrão da ABRASF o padrão Nacional estamos com dificuldade de retornar os status da nota. Por exemplo, para consultar uma nota fiscal que foi cancelada usamos a função: ACBrNFSeX1.ConsultarEvento(xChaveNFSe, StrTotpEvento(Ok, xTipoEvento),StrToIntDef(xNumSeqEvento, 1)), na qual retorna: Método Executado: Consultar Evento Parâmetros de Envio Evento : Cancelamento de NFS-e Num. Seq. Evento: 1 Parâmetros de Retorno Chave NFSe : Data : 22/05/2024 Tipo Evento : Cancelamento de NFS-e Num. Seq. Evento: 1 ID do Evento : Sucesso : True mesmo consultando uma chave de uma nota normal, o resultado e o mesmo, não tenho nenhum parâmetro de retorno que posso usar para identificar se na consulta essa nota esta cancelada no servidor do gov. Se alguém tiver uma dica, agradeço.

ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Items[i].RetInfEvento.nProt

Entendido BigWings, Obrigado, vou usar o FastReport para desenvolver um já que o componente permite, assim, fica mais padronizado. Vlw obrigado.

Olá Pessoal, espero que estejam todos bem. Estou implementando a NFS-e no meu sistema e o provedor da minha cidade usa o Fiorilli, até ai tudo bem, já consegui implementar, assinar e transmitir as notas, tudo com o componente ACBrNFSeX, mas o layout da impressão esta diferente do emitido pelo próprio site da prefeitura que usa o padrão da Fiorili, vou anexar aqui neste tópico o modelo gerado pelo componente e o gerado pelo site. Minha dúvida é se o componente do ACBrNFSeXDANFSeRL ou ACBrNFSeXDANFSeFR possui esse modelo da fiorilli. Segue abaixo algumas coisas que tentei fazer: ACBrNFSeXDANFSeRL: Mudei a opção de "DetalharServico" para False. Mudei a opção “Provedor” para proFiorilli Mudei a opção TipoDANFSE para tpFiorilli no ACBrNFSeXDANFSeFR: Mudei a opção de "DetalharServico" para False. Mudei a opção “Provedor” para proFiorilli Mudei a opção TipoDANFSE para tpFiorilli FastFile testei todos os modelos que tinha dentro da pasta “Report” Layout gerado pelo ACBr.pdf Layout gerado pelo site Fiorilli.pdf

Nossa empresa trabalha com e-commerce em php, ai eu tinha instalado o delphi para aprender a mexer em pascal já que as linguagem são bem parecidas, mas vi que o lazarus faz a mesma coisa então estou usando ele para aprender a mexer com pascal

Pois é, aqui infelizmente estou com o mesmo problema no 10.4.2 CE, pois ele não tem linha de comando e não instala não só o ACBr, como tbm o JEDI que por ironia, está disponível no GetIl Package Manager do delphi kkk, é complicado, estou usando o 10.3 ainda até acabar a licença, acredito que até lá, alguém ache uma solução ou migrar a aplicação para o Lazarus.

O meu tbm esta dando o mesmo problema, e esta na versão 10.4 com a licença Community Edition