Thiago Duarte

Deu certo, obrigado

Desculpe Juliomar, não tinha percebido, já respondi, o erro acima era o preenchimento do campo scope errado. obrigado.

Olá, Alguém sabe o que pode ser esse erro ao realizar a consulta de boletos via api do banco do brasil: JSON={"erros":[{"codigoMensagem":"4678420","versaoMensagem":"1","textoMensagem":"Campo Carteira preenchido com dados inv\u00e1lidos.","codigoRetorno":"9998"}]} Estou preenchendo o campo carteira conforme o exemplo do arquivo na pasta do acbr: Título ex campos: ACBrBoleto.Cedente.CodigoCedente := '4863177'; ACBrBoleto.Cedente.Convenio := '1014051'; ACBrBoleto.Cedente.Modalidade := '35'; Carteira := '17'; EspecieDoc := 'DM';

Olá, desculpe a demora, era esse o problema mesmo.. Obrigado...

Olá, Estou usando o ACBrBoleto para o envio e consulta para a api do banco do brasil, porém ao realizar a consulta recebo o erro abaixo: {"statusCode":403,"error":"Forbidden","message":"Scopes Not Granted","erros":[]} Alguma dica do que pode ser?

Prezados, Estou desenvolvendo um service application para enviar os boletos para a api do Banco de Brasil. em tempo de execução eu passo as credenciais conforme abaixo: BeneficiarioWS.ClientID := 'eyJpZCmNvZxxxxxxxxxx; BeneficiarioWS.ClientSecret := 'eyJpZCI6IjgxODxxxxxxxxxxxxxx '; BeneficiarioWS.KeyUser := 'd27b077904fxxxxxxxxxxxxxx'; Porem dentro da função function TOAuth.Executar(const AAuthBase64: String): Boolean; da unit ACBRBoletoWS recebo a seguinte mensagem: 'Expected "{" but found value (1, 14)' Alguém já passou por algo parecido.

Obrigado Juliomar, mesmo assim não funcionou, mudei para "ACBrNFe1.Configuracoes.Geral.SSLLib := TSSLLib.libOpenSSL;" e deu certo. Obrigado! Obrigado Daniel, sim, fiz e deu certo, Obrigado!

Bom dia, Tenho um módulo no sistema Distribuição DFe, temos a versão Desktop e a versão Unigui. Temos uma procedure que pega o certificado digital e grava o mesmo em uma tabela do banco de dados, no desktop não temos problemas. Ocorre que no UNIGUI ao tentar ler o certificado para salvar no banco de dados o erro acontece: Obs: Na maquina de desenvolvimento o erro não acontece, somente acontece no servidor após publicar o módulo. a procedure: TRY MS := TMemoryStream.Create; MS.CopyFrom(AStream, AStream.Size); MS.SaveToFile(UniServerModule.LocalCachePath + 'cert.pfx'); ACBrNFe1.SSL.SSLCryptLib := cryWinCrypt; ACBrNFe1.Configuracoes.Certificados.ArquivoPFX := UniServerModule.LocalCachePath + 'cert.pfx'; ACBrNFe1.Configuracoes.Certificados.Senha := vSenhaCertificado; ACBrNFe1.SSL.CarregarCertificado; IF (ACBrNFe1.SSL.CertificadoLido) THEN BEGIN edCertificado.Text:= ACBrNFe1.SSL.DadosCertificado.NumeroSerie; edSenha.Text := vSenhaCertificado; try FDQuery:= TFDQuery.Create(Self); FDQuery.Connection:= DtmDistribuicaoDFe.FDConnection1; FDQuery.SQL.Text:= 'UPDATE OR INSERT INTO CERTIFICADOS_DFE (EMPRESA, CERT_ARQUIVO, CERT_ID, '+ 'CERT_CERTIFICADORA, CERT_VENCIMENTO, CERT_SERIAL, CERT_RAZAOSOCIAL, CERT_CNPJ, CERT_SENHA) '+ 'VALUES (:EMPRESA, :CERT_ARQUIVO, :CERT_ID, :CERT_CERTIFICADORA, :CERT_VENCIMENTO, :CERT_SERIAL, '+ ':CERT_RAZAOSOCIAL, :CERT_CNPJ, :CERT_SENHA )'; FDQuery.ParamByName('EMPRESA').AsString:= vIDEmpresa; FDQuery.ParamByName('CERT_ARQUIVO').LoadFromFile(UniServerModule.LocalCachePath + 'cert.pfx', ftblob ); FDQuery.ParamByName('CERT_ID').AsString := ACBrNFe1.SSL.DadosCertificado.ThumbPrint; FDQuery.ParamByName('CERT_CERTIFICADORA').AsString := ACBrNFe1.SSL.DadosCertificado.Certificadora; FDQuery.ParamByName('CERT_VENCIMENTO').AsDateTime := ACBrNFe1.SSL.DadosCertificado.DataVenc; FDQuery.ParamByName('CERT_SERIAL').AsString := ACBrNFe1.SSL.DadosCertificado.NumeroSerie; FDQuery.ParamByName('CERT_RAZAOSOCIAL').AsString := ACBrNFe1.SSL.DadosCertificado.RazaoSocial; FDQuery.ParamByName('CERT_CNPJ').AsString := FormatarCNPJ(ACBrNFe1.SSL.DadosCertificado.CNPJ); FDQuery.ParamByName('CERT_SENHA').AsString := dm.Crip.TextToCriptoHex(vSenhaCertificado); FDQuery.ExecSQL; finally FDQuery.Free; end; END ELSE uniMENSAGEM('Arquivo do certificado está inválido ou a senha não está correta, tente novamente.', mtError); FINALLY MS.Free; END; Alguém já passou por isso, alguma dica? Agradeço!!

Juliomar, aparentemente era a opção MostraStatus do componente ACBrNFeDANFeRL1, mudai para FALSE e o erro não aconteceu mais. Vou realizar mais testes. Obrigado por sua atenção!

Então Juliomar, só que eu estou publicando no IIS da minha própria maquina, não é outro servidor.

Boa tarde, Desenvolvi um módulo de Distribuição DFe no Unigui, porém, existe uma rotina onde eu carrego o xml após baixado para o componente ACBrNFe. Até nesse momento sem problemas, ocorre que, ao executar o comando ACBrNFe1.NotasFiscais.ImprimirPDF, onde o mesmo salva o PDF na pasta cache do usuário logado no sistema o erro abaixo ocorre: Operation not supported on selected printer. Obs: Esse cenário é após eu publicar a aplicação no IIS, se eu executar na maquina de desenvolvimento (F9 Delphi) o erro não ocorre. Alguém ja passou por algo parecido?