JHONLENON

Diego A. Folieni Boa noite, tentei baixar o arquivo no link mais já foi removido...vc poderia postar como fez pra assinar o json do boleto do Bradesco? to fazendo aqui mais precisava assinar o json e ecodificar em 64.

sandrojoel Eu não fiz o pix do sicoob...mais pelo que vi tem passar o certificado digital na chamada do boleto, o mesmo certificado enviado para o sicoob.

Fernando Rodrigo Atualizei o link...eu consegui emitir boleto do sicoob em homologação e produção usando o REST, ficou bacana, ai não precisar mais usar o http do indy. tem um demo do fontes onde vc pode testar a emissão em homologação e produção. Mais para emitir em produção vc precisa das credenciais. https://pastebin.com/rU50zgDV

Fernando Rodrigo em qual passo vc está? está conseguindo pegar o code? e conseguiu o acess_token e reflesh_token? isso em produção porque o sicoob é muito estranho cara vc tudo em homologação quando vai testar em produção não passa. Aqui fiz o seguinte...já com as credenciais de produção em mãos, coloquei no Rest Debug do Delphi e json do boleto, um detalhe que judou foi validar meu json do boleto pelo postman pra saber se está todo correto, qualquer erro não passa. Se você conseguir gerar o boleto no Rest Debug ai vc copia os componentes já configurado e passa os parametros principais, com Client_ID, Autorization e gran_type. Vou postar o codigo detalhado. Mais a parte de emissão de boleto só consegui emitir em produção. Agora conseguir o code e acess_token funciona em homologação e produção. https://pastebin.com/rU50zgDV

Fernando Rodrigo cara graças à DEUS hoje eu consegui emitir boleto do sicoob em Produção! veja que novela, fiz toda o codigo usando o http do indy..funcionou 100% em homologação...quando passei para produção não funcionou...cara passei uns 2 dias pensativo e tentando entender, ai testei no rest de novo....porque já tinha tentando antes no rest e não tinha conseguido...ainda fiz uns teste no Rest Debug do delphi em tempo de execução ai consegui emitir o boleto em produção...mais se eu testar em homologação no rest não vai....kkkkkkkkk...

Fernando Rodrigo Bom dia, eu consegui emitir boleto do sicoob em homologação mais em produção me retorna o erro HTTP/1.1 500 Internal Server Error mandei e-mail para o suporte do developrs mais eles não sabe dizer o que é porque tenho as credenciais em produção e as urls e callback....se eu consegui eu posto um feedback aqui. Também eles tem uma nova API onde vai ultilizar o metodo Client_Credentiols, ai não vai precisar usar esse metodo Autoriozation_Code....mais essa API ainda não está disponivel.

Boa tarde, estou tentando gerar boleto do sicoob via API via Authorization Code, estou com essa função em http com indy...mais só http/1.1 500 internal server error..esse erro pode ser muito gerenerico... estou usando esse codigo aqui para obter o acess_token procedure TF_sicoob.WebBrowser1NavigateComplete2(ASender: TObject; const pDisp: IDispatch; const URL: OleVariant); var mURL, sResponse, mCode : string; var HTTP: TIdHTTP; FParams, access_token, refresh_token : String; Json, scope, token_type, expires_in : String; JsontoSend, AResponseContent : TStringStream; var IOHandler : TIdSSLIOHandlerSocketOpenSSL; begin HTTP := TIdHTTP.Create; IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try Json := 'grant_type=authorization_code' + '&'+'code='+mCode + '&' +'redirect_uri=https://minhaurl.com.br/'; AResponseContent := TStringStream.Create(''); JsonToSend := TStringStream.Create(utf8Encode(Json)); Try IOHandler.SSLOptions.SSLVersions := [sslvTLSv1_2]; HTTP.IOHandler :=IOHandler; HTTP.Request.Clear; HTTP.Request.CharSet := 'utf-8'; HTTP.Request.Accept := '*/*'; HTTP.Request.AcceptEncoding := 'gzip, deflate, br'; HTTP.Request.ContentType := 'application/x-www-form-urlencoded'; HTTP.Request.CustomHeaders.AddValue('Authorization', 'Basic ' + MEU_TOKEM_BASIC); HTTP.Response.ContentType := 'application/x-www-form-urlencoded'; HTTP.Response.CharSet := 'utf-8'; try HTTP.Post('https://sandbox.sicoob.com.br/token', JsontoSend, AResponseContent); Except on E: Exception do begin ShowMessage('Erro: ' + E.Message ); Exit; end; end; if HTTP.ResponseCode = 200 then begin access_token := getCamposJsonString(AResponseContent.DataString, 'access_token'); refresh_token := getCamposJsonString(AResponseContent.DataString, 'refresh_token'); expires_in := getCamposJsonString(AResponseContent.DataString, 'expires_in'); scope := getCamposJsonString(AResponseContent.DataString, 'scope'); end; //showmessage(AResponseContent.DataString); //showmessage(HTTP.ResponseCode.ToString); //showmessage(HTTP.ResponseText); Finally FreeAndNil(JsontoSend); End; finally FreeAndNil(HTTP); FreeAndNil(IOHandler); end; end; Em homologação funciona 100% cheguei até emitir boleto em homologação, mais quando passa para produção não funciona. Eu já tenho as credenciais e Callback_URL em produção, alguém tem alguma ideia pra me ajudar?

lgcastellucci você conseguiu resolver seu problema? estou com mesmo prolema aqui com sicoob.

Aggille Sistemas de Gestão Obrigado deu certo...eu fiz assim..pode encerrar o topico var Retorno : TListaRetEnvio; CONTRATO : String; begin Retorno := ACBrBoleto.ListaRetornoWeb; if Retorno.Count > 0 then begin for j := 0 to Retorno.Count-1 do for I := 0 to Pred(Retorno.Count) do begin CONTRATO := ACBrBoleto.ListaRetornoweb[i].DadosRet.TituloRet.Contrato; end; end; end;

Victor H. Gonzales - Panda Eu eu vi aqui que passa o nossonumero e client_id linkado com swagger....acho que deu certo, agora não entendi como pego o retorno pra saber se o boleto foi baixado ou não

Alguém já fez a baixa de boleto do banco do brasil usando a rotina tpBaixa do componente ACBrBoleto? eu fiquei sem entender quais são os parametros que preciso passar pra baixar um boleto em espeficio. Eu já ultilizo a rotina de consultar boletos do banco do brasil via API ai ficou 100% mais como seria na baixa de boleto?

Andrei Ricardo Você conseguiu dá baixa no boleto do banco do brasil usando componente ACBrBoleto? eu vi que já tem o tipo de operação tpBaixa que é pra dá baixa no boleto do banco do Brasil, mais não to conseguindo usar aqui. pra consultar os boletos tá dando certo....agora não to sabendo é fazer a baixa. //---------Baixa de Boleto Banco do Brasil----------------------------------- if ACBrBoleto.Banco.TipoCobranca = cobBancoDoBrasilAPI then begin ACBrBoleto.Banco.TipoCobranca :=cobBancoDoBrasilAPI; ACBrBoleto.Cedente.CedenteWS.ClientID:= DM.SQL_busca_contaClientID_API.AsString; ACBrBoleto.Cedente.CedenteWS.ClientSecret:= DM.SQL_busca_contaClientSecret_API.AsString; ACBrBoleto.Cedente.CedenteWS.Scope:= DM.SQL_busca_contaScope_API.AsString; try ACBrBoleto.Cedente.CedenteWS.KeyUser:=DM.SQL_busca_contaKeyUser_API.AsString; Except on E: Exception do begin //-------------------------------------------------------------------- end; end; ACBrBoleto.Configuracoes.WebService.Filtro.Clear; ACBrBoleto.Configuracoes.WebService.Filtro.indicadorSituacao := isbBaixado; ACBrBoleto.Configuracoes.WebService.Filtro.dataMovimento.DataInicio := DataInicial.Date; ACBrBoleto.Configuracoes.WebService.Filtro.dataMovimento.DataFinal := DataFinal.Date; //Filtros.indiceContinuidade := 300; ACBrBoleto.Configuracoes.WebService.Operacao := tpConsultaDetalhe; //dm.ACBrBoleto.Configuracoes.WebService.Filtro := Filtros; try ACBrBoleto.EnviarBoleto; Except on E: Exception do begin if Application.MessageBox('Atenção...erro na comunicação com API do Banco do Brasil','SYSPDV', MB_OK) = IDOK then Exit; end; end; end;

Victor H. Gonzales - Panda A caixa também tem a consulta de titulo de boleto e baixa via webservice...vou postar o manual completo em anexo. Manual_Leiaute_Webservice.pdf

Gostaria de saber se o metodo consultar situação de boleto via webservice funciona para caixa. ACBrBoleto.Configuracoes.WebService.Filtro.Clear; ACBrBoleto.Configuracoes.WebService.Filtro.indicadorSituacao := isbBaixado; ACBrBoleto.Configuracoes.WebService.Filtro.dataMovimento.DataInicio := DataInicial.Date; ACBrBoleto.Configuracoes.WebService.Filtro.dataMovimento.DataFinal := DataFinal.Date; //Filtros.indiceContinuidade := 300; ACBrBoleto.Configuracoes.WebService.Operacao := tpConsulta; //dm.ACBrBoleto.Configuracoes.WebService.Filtro := Filtros; try ACBrBoleto.EnviarBoleto; Except on E: Exception do begin if Application.MessageBox('Atenção...erro na comunicação com webservice do banco','Sistema', MB_OK) = IDOK then Exit; end; end; Retorno := ACBrBoleto.ListaRetornoWeb;

BigWings Obrigado era isso mesmo....tava sem configurar SSLCryptLib....pode encerrar o topico.