Pesquisar na Comunidade

Boa tarde, Consegui consumir o webservice do santander para emitir boleto via XML, usando THPPRIO com delphi xe8. Gerei as units do wsdl e tudo trabalha bem. Mas, meu problema é que com THTTPRIO, toda vez que executo eu tenho que selecionar o certificado. O ACBr não trabalha assim. Uma vez configurado o certificado em tempo de projeto ele não fica perguntando. Preciso consumir o serviço sem que o componente me pergunte pelo certificado em tempo de execução. Resolvi,então, tentar com os componentes ACBr para ver se dava certo. Andei olhando os fontes do ACBr para Envio de NFS-e como base de estudo, mas não cheguei a nenhuma conclusão. Tentei algo assim, mas meu conhecimento dos fontes não é suficiente. Alguem poderia me ajudar com esse codigo para carregar o certificado A1 para usar com TACBrWinHTTPReqResp e enviar o soap? Stream:=TMemoryStream.Create; ACBrWinHTTPReqResp1:=TACBrWinHTTPReqResp.Create; try //Como faço para CarregarCertificado; ACBrWinHTTPReqResp1.MimeType:='application/soap+xml; charset=utf-8'; ACBrWinHTTPReqResp1.Url:='https://ymbdlb.santander.com.br:443/dl-ticket-services/TicketEndpointService'; ACBrWinHTTPReqResp1.SOAPAction:=''; ACBrWinHTTPReqResp1.EncodeDataToUTF8:=true; Stream.Position:=0; Request.lines.SaveToStream(Stream); Stream.Position:=0; ACBrWinHTTPReqResp1.Execute(Stream); resp:=ACBrWinHTTPReqResp1.Data; finally Stream.Free; ACBrWinHTTPReqResp1.Free; end; Esse codigo aqui funciona com THPPRIO, mas sempre pede o certificado em tempo de execução. A unit do wsdl não foi adiciconada aqui, mas quem quiser contribuir, posso compartilhar essa unit. function TfrmPrincipal.enviaPedidoTicket:string; var tickend:TicketEndpoint; pedido:ticketResponse; tickReq:ticketRequest; RIO: THTTPRIO; begin RIO := THTTPRIO.Create(nil); with RIO.HTTPWebNode do begin ClientCertificate.CertName:='XXXXXXXXXXXXXXXXXXXX'; ClientCertificate.Issuer:='AC Certisign RFB G5'; ClientCertificate.SerialNum:='XXXXXXXXXX'; Password:='1234'; UseUTF8InHeader:=true; end; tickend := GetTicketEndpoint(true,'',RIO); tickReq:=ticketRequest.Create; geraArrayTicket(tickReq); //geraXmlTicket(); try pedido := tickend.create(tickReq); result:=''; with pedido do begin if retCode=0 then begin result:=ticket; end; end; except on e:exception do begin showmessage(e.Message); end; end; end;

Bom dia a todos, estou tentando gerar arquivo remessa para o banco Santander carteira 101 mas o número/dígito do cedente e também a carteira nunca aparecem dentro do arquivo gerado como aparecia quando eu usava o CobreBem, alguém pode me dizer onde estou errando? Já li diversos tópicos no fórum e as vezes o pessoal comenta que é necessário usar o código de transmissão Santander, outras vezes código do cedente + dígito num total de 7 posições. Estou informando as propriedades problemáticas assim: ... ... ACBrBOLETO.LayoutRemessa := c240; ACBrBOLETO.Cedente.TipoCarteira := tctRegistrada; ACBrBOLETO.Cedente.ResponEmissao := tbBancoEmite; ACBrBOLETO.Cedente.CaracTitulo := tcSimples; ACBrBOLETO.Cedente.Modalidade := '101'; //número da carteira ECR2 no CobreBem ACBrBOLETO.Cedente.CodigoCedente := '145025' + '1'; //código e dígito do cedente ... with vACBrTitulo do begin ... Carteira := '101'; //número da carteira ECR2 no CobreBem ... end; ... ... Grato por qualquer ajuda/dica, minha versão do ACBr é de 08/04/2015 e acompanhando de lá pra cá não vi mudanças na rotina do Santander.

Mandei a imagem em anexo, a carteira do banco para homologar tem que estar apenas 101 ?? Estou tentando homologar e me pediu que ficasse apenas 101 porém informa a modalidade e o cedente ai fica 101/101, fica assim mesmo ????

Galera estou lendo um arquivo de retorno do Santander pelo o componente ACBR BOLETO, mas quando ele vai ler a ocorrência da linha do título, ai vem o famoso erro: First chance exception at $75EAC41F. Exception class EAccessViolation with message 'Access violation at address 011E2ECA in module 'Teste.exe'. Read of address 00000014'. Process Teste.exe (4624)Quando eu debuguei ele deu o erro nessa linha Titulo.OcorrenciaOriginal , ele não consegue acessa a variável Titulo: TACBrTitulo, alguém pode me ajudar?

Depois de tentar homologar o boleto no Santander, precisei corrigir um detalhe no arquivo, peço que seja analisado e incrementado na atualização ACBrBancoSantander.pas --> linha 257 Atual : Copy(NossoNumero,6,7) + DigitoNossoNumero correto : Copy(NossoNumero,2,7) + DigitoNossoNumero Espero ter ajudado;;; Daniel Pio Programador