Jhonlenon Ribeiro

BigWings Deu certo aqui..obrigado....pode encerrar o topico.

Bom dia, como faço pra incluir um feriado municipal no json do ACBrFeriado? o feriado municipal seria o aniversário da cidade de Araguaína - TO. O json que estou usando é esse abaixo...tentei colocar o feriado municipal mais não é lido pelo componente. peguei o arquivo json desse topico ACBrFeriadoEventos.json

Pode encerrar o topico obrigado

Victor H. Gonzales - Panda Obrigado pela ajuda, realmente o manual estava desatualizado...0800 me mandou o novo manual onde a multa é passada em percentual...o sicredi não aceita em valor. Vou disponibilizar o novo manual caso alguél precise....pode encerrar o topico https://mega.nz/file/ChYmwZAA#1r6tzI20wVjVZEYRSnJCzLnbNEmwhJB59GuCNdUoolI

Liguei no sicredi no 0800 ai eles falaram que o codgio da multa está passando o 2 que seria por valor para percentual teria que passar o 1 mais no manual da API não tem o campo codigo da multa. link do manual. https://mega.nz/file/74Z32QyJ#WXscD3Q5RqJRGkcKLN_o2nNxv5mcFKTZbi7RT_5k51s

Boa noite, faço a emissão do boleto do sicredi usando parte da ACBr, faço todo o processo como se fosse gerar a remessa mais gero é o json e faço a transmissão, até ai tudo bem, mais hoje um cliente reclamou do juros e multa do boleto vencido, a situação ocorrida foi essa: Valor do Boleto: 1263,15 Juros ao dia: 2,11 Valor Multa apois o vencimento: 25,16 Tipo de Juros: A A = Valor B = Percentual Quando o cliente foi pagar cobrou um valor do juros de 326,00 sendo que o json foi enviado dessa forma acima, na minhas conta o valor do juros e multa não passa de 40,00 reais Será que foi porque informei o tipo de juros no valor? teria que ser no percentual? porte do meu json "tipoJuros":"A","juros":2.11,"multas":25.26

Victor H. Gonzales - Panda Era isso mesmo fui ver app key tava passando informação errada. Obrigado pela ajuda. pode encerrrar o topico.

Victor H. Gonzales - Panda Essa mesma app key uso na emissão de boleto e dá certo.

Juliomar Marchetti estranho que pouco dias funcionava eu não alterei nada no codigo. A emissão do boleto está OK.

Boa noite, alguém está tendo erro ao consultar boleto do Banco do Brasil via API? até uns 5 dias atraz tava funcionando. depois parou, já atualizei ACBr e não resolveu..erro no print.

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.