João Carlos Compnet

Bom dia. Registrei as dlls Capicom e funcionou. Obrigado pela ajuda.

Ola, Não estou usando. Vou colocar em anexo a configuração.

Boa noite. Ao Fechar um cupom nfce estou recebendo a seguinte mensagem: Classe Nao registrada. Delphi7 + windows10 64 bits Posso ter uma ajuda?

Bom dia. Não consegui usar o exemplo do componente Boleto conforme eu precisava. A única função que funcionou foi a de registrar o título no banco do Brasil. As consultas e listagem não funcionaram. Partir então para fazer a integração com o Lazarus e o Restrequest4delpi. Conseguir realizar todas as funcionalidades permitidas pelo banco e deu tudo certo. Nesse momento estou transformando as funções que utilizo em componentes para facilitar a integração com os outros bancos. Um abraço

Bom dia Andre. Segue o link: https://github.com/viniciussanchez/RESTRequest4Delphi Para instalar basta colocar no path da aplicação e colocar na unit como no exemple acima. Para fazer funcionar ainda não cheguei lá.

Eu estou usando o ACBR atualizado, não sei se o problema é nessta versão.

Ao tentar pegar o token do banco do Brasil com o código abaixo feito no Lazarus recebo a seguinte mensagem de erro: SocketError: Connect to oauth.hm.bb.com.br:443 failed. OBS: Porta 443 habilitada no firewall e o Anti_virus desligado. Alguma dica unit frm_api; {$mode ObjFPC}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ZDataset, Math, DateUtils, ssl_openssl, RESTRequest4D; type { Twfrm_api } Twfrm_api = class(TForm) Memo1: TMemo; Token: TToggleBox; Token1: TToggleBox; procedure FormClose(Sender: TObject; var CloseAction: TCloseAction); procedure FormCreate(Sender: TObject); procedure Token1Change(Sender: TObject); procedure TokenChange(Sender: TObject); procedure Alimenta_titulo; private public end; var wfrm_api: Twfrm_api; implementation uses mACBrUtil, jsons; {$R *.lfm} { Twfrm_api } procedure Twfrm_api.TokenChange(Sender: TObject); var URL: string; LResponse :IResponse; begin URL := 'https://oauth.hm.bb.com.br/oauth/token'; try Lresponse := TRequest.New.BaseURL(URL) .AddHeader('gw-dev-app-key', 'xxxxxxxxxxxxxxxxxxxxxxxxxxx') .AddHeader('Authorization', 'Basic yyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy') .AddHeader('Cookie', 'Jzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz') .ContentType('application/x-www-form-urlencoded') .AddParam('grant_type', 'client_credentials') .AddParam('scope', 'cobrancas.boletos-requisicao cobrancas.boletos-info') .Post; memo1.Append(inttostr(Lresponse.StatusCode)); memo1.Append(Lresponse.Content); except on E:exception do begin memo1.Append(E.ToString); end; end; end;

No Postman consegui realizar todas as operações sem problema.

Boa tarde, Estou inicando a integração com o Banco do Brasil via API. Estou conseguindo registrar os títulos normalmente. Porém na consulta estou recebendo o seguinte erro: Cod_Retorno= Msg_Retorno= Ori_Retorno= HTTP_Result=404 JSON= indicadorContinuidade=0 proximoIndice=0 [Boletos Index = 000] numeroBoletoBB = dataRegistro = 30/12/1899 dataVencimento = 30/12/1899 valorOriginal = 30/12/1899 carteiraConvenio = variacaoCarteiraConvenio = 0 codigoEstadoTituloCobranca = estadoTituloCobranca = contrato = dataMovimento = 30/12/1899 dataCredito = 30/12/1899 valorAtual = 0 valorPago = 0 --- Obs: Tanto parao registro do título quanto para a consulta estou usado o exemplo da acbr. Também estou usando o Lazarus. Posso receber uma ajuda por favor.

Obrigado pelas dicas. Funcionou perfeitamente.

Perdão pelo descuido de escrever em letras maiusculas. 1. Estou validando as regras de negocio e esta tudo ok. ( ACBrNFe1.NotasFiscais.ValidarRegrasdeNegocios(Msg);) 2. Só recebo a mensagem pelo componente na tentativa de enviar a nota eletrônica. 3. O componente captura a mensagem de erro e a exibe. 4. O que preciso é capturar esse mensagem de erro que é exibida pelo componente ao enviar.

AO CLICAR EM IGNORA A MENSAGEM DO COMPONENTE REALMENTE NÃO É MAIS MOSTRADA, CONTUDO O PROBLEMA PERSISTE, POIS AINDA NÃO CONSIGO CAPTURAR A REJEIÇÃO.

Inclusive antes de enviar a NFe, faço sua validação pelo componente e não apresenta o erro. o erro só é apresentado ao enviar a NFe. ACBrNFe1.NotasFiscais.ValidarRegrasdeNegocios(Msg);

Estou informando o NCM propositalmente com o campo preenchido, mas com a informação invalida para poder capturar o código da rejeição e trata-la.

Bom dia, ao enviar uma NFe com erro no NCM por exemplo o componete exibe o erro mais não estou conseguindo capturar esse erro para poder tratar essa rejeição. Gostaria de ter ajuda por favor. try ACBrNFe1.Enviar(IntToStr(lote), False, False); execept status := inttostr(ACBrNFe1.NotasFiscais[0].NFe.procNFe.cStat); chavenfe := ACBrNFe1.NotasFiscais[0].NFe.procNFe.chNFe; motivo := ACBrNFe1.NotasFiscais[0].NFe.procNFe.xMotivo; end; Mensagem do componente: 33230738211379000151550010000001061242979323-nfe.xml