Ir para conteúdo
  • Cadastre-se

dev botao

boleto on-line sicredi


Ver Solução Respondido por José M. S. Junior,
  • Este tópico foi criado há 1496 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro
Postado

gostaria de saber se ja ta implementado  

CedenteWS para o banco sicredi 

quando tento enviar da esse erro.

obrigado pela atenção desde ja.

 

 

        ACBrBoleto1.Cedente.CedenteWS.ClientID := cdsPortador.FieldByName('TP_ONLINE_CLIENTID').AsString;
        ACBrBoleto1.Cedente.CedenteWS.ClientSecret := cdsPortador.FieldByName('TP_ONLINE_CLIENTSECRET').AsString;
        ACBrBoleto1.Cedente.CedenteWS.Scope := 'cobranca.registro-boletos';
        ACBrBoleto1.Cedente.CedenteWS.KeyUser := cdsPortador.FieldByName('TP_ONLINE_KEYUSER').AsString;

        if cdsPortador.FieldByName('TP_ONLINE').AsInteger = 1 then
          ACBrBoleto1.Configuracoes.WebService.Ambiente := taProducao
        else if cdsPortador.FieldByName('TP_ONLINE').AsInteger = 2 then
          ACBrBoleto1.Configuracoes.WebService.Ambiente := taHomologacao;

        ACBrBoleto1.Configuracoes.WebService.Operacao := tpInclui;

        ACBrBoleto1.Configuracoes.WebService.SSLCryptLib := cryOpenSSL;
        ACBrBoleto1.Configuracoes.WebService.SSLHttpLib := httpOpenSSL;
        //ACBrBoleto1.Configuracoes.WebService.SSLType := LT_TLSv1_2;
        ACBrBoleto1.Configuracoes.WebService.TimeOut := 30000;
        ACBrBoleto1.Configuracoes.WebService.UseCertificateHTTP := False;

 

 

    with ACBrBoleto1 do
    begin
      // Função de Envio
      EnviarBoleto;

Screenshot_1.png

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.