Davi De Sousa Calixto

Caramba o Tópico é antigo mas me salvou instalei o Delphi Rio pra testes começou um inferno aqui de mensagens, Já tinha o Berlim instalado e o Delphi 7 funcionando perfeito. Mandei dar uma pesquisada de ACBr*.bpl achei uns não sei porque na pasta do Delphi7 retirei puff problema resolvido! Valeu ad dicas aí!

Segue projeto completo testado no meu código de beneficiário para inclusão, alteração, baixa e consulta de boletos no web service caixa. Projeto testado em Delphi 10.2, para Delphi 7 ou inferior é necessário substituir a função Hash e SHA256! Certifique-se que seu código de beneficiário está liberado na sua agência para o uso de Web Service. Preencha os campos sendo a primeiro boleto Numero 1. Seja feliz! Agradeço a contribuição de todos e espero que possa ajudar! CAIXA SOAP WSDL.rar

Pode fechar o Tópico o erro esta no arquivo de Retorno que esta configurado como 02 Pessoa Jurídica. Vou verificar no Banco já que a conta e Física.

Corrigindo: Se coloco LeCedenteRetorno:= False; vem o erro falando que o "CNPJ\CPF: 00088888888888 do arquivo não corresponde aos dados do Cedente!". Se coloco LeCedenteRetorno:= True; fala que o 'CNPJ é Inválido'.

Estou tentando ler um arquivo de retorno mas esta retornando erro. Se coloco LeCedenteRetorno:= True; vem o erro falando que o "CNPJ\CPF: 00088888888888 do arquivo não corresponde aos dados do Cedente!". Se coloco LeCedenteRetorno:= True; fala que o 'CNPJ é Inválido'. Alguma coisa no código esta fazendo pensar que o CPF é CNPJ e está invalidando a leitura do arquivo! Estou debugando e percebi que ele ajusta para 00088888888888 ou seja coloca 14 caracteres a variável depois valida como CNPJ por isso retorna esse erro.

Não achei esse campo no esquema... Está usando qual função, incluir, alterar, consultar... Porque no esquema não tem tipo no desconto! Da uma olhada no manual Manual_Leiaute_Webservice.pdf <DESCONTOS> <DESCONTO> Ocorre até 3 vezes <DATA></DATA> date Não yyyy-MM-dd NE025 {Choice} <VALOR></VALOR> dec 13,2 Não 0000000000000.00 NE024 <PERCENTUAL></PERCENTUAL> dec 10,5 Não 0000000000.00000 </DESCONTO> </DESCONTOS>

Segue projeto completo testado no meu código de beneficiário para inclusão, alteração, baixa e consulta de boletos no web service caixa. Projeto testado em Delphi 10.2, para Delphi 7 ou inferior é necessário substituir a função Hash e SHA256! Certifique-se que seu código de beneficiário está liberado na sua agência para o uso de Web Service. Preencha os campos sendo a primeiro boleto Numero 1. Seja feliz! ? Agradeço a contribuição de todos e espero que possa ajudar! CAIXA SOAP WSDL.rar

Batendo cabeça aqui achei um erro na função de Inclusão de boleto. case operacao of INCLUIR_BOLETO: acao := 'INCLUIR_BOLETO'; ALTERA_BOLETO: acao := 'ALTERA_BOLETO'; BAIXA_BOLETO: acao := 'BAIXA_BOLETO'; CONSULTA_BOLETO: begin acao := 'CONSULTA_BOLETO'; url := 'https://barramento.caixa.gov.br/sibar/ConsultaCobrancaBancaria/Boleto'; end; end; trocar a acao INCLUIR_BOLETO por INCLUI_BOLETO

<?xml version="1.0" encoding="ISO-8859-1"?> <soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/"> <soapenv:Body> <manutencaocobrancabancaria:SERVICO_SAIDA xmlns:sibar_base="http://caixa.gov.br/sibar" xmlns:manutencaocobrancabancaria="http://caixa.gov.br/sibar/manutencao_cobranca_bancaria/boleto/externo"> <HEADER xmlns="http://caixa.gov.br/sibar"> <VERSAO xmlns="">1.2</VERSAO> <AUTENTICACAO xmlns="">2VpDBavOb32IKn9DOfaTQ8JnibDBX0m/hDpj1VYvoyU=</AUTENTICACAO> <USUARIO_SERVICO xmlns="">SGCBS02P</USUARIO_SERVICO> <OPERACAO xmlns="">INCLUI_BOLETO</OPERACAO> <SISTEMA_ORIGEM xmlns="">SIGCB</SISTEMA_ORIGEM> <UNIDADE xmlns="">3458</UNIDADE> <DATA_HORA xmlns="">20181019162459</DATA_HORA> </HEADER> <COD_RETORNO>00</COD_RETORNO> <ORIGEM_RETORNO>MANUTENCAO_COBRANCA_BANCARIA</ORIGEM_RETORNO> <MSG_RETORNO/> <DADOS> <CONTROLE_NEGOCIAL> <ORIGEM_RETORNO>SIGCB</ORIGEM_RETORNO> <COD_RETORNO>0</COD_RETORNO> <MENSAGENS> <RETORNO>(0) OPERACAO EFETUADA</RETORNO> </MENSAGENS> </CONTROLE_NEGOCIAL> <INCLUI_BOLETO> <CODIGO_BARRAS>10498769500000001008620113000100040000000080</CODIGO_BARRAS> <LINHA_DIGITAVEL>10498620121300010004300000000802876950000000100</LINHA_DIGITAVEL> <NOSSO_NUMERO>0</NOSSO_NUMERO> <URL>https://boletoonline.caixa.gov.br/ecobranca/SIGCB/imprimir/0862011/14000000000000008</URL> </INCLUI_BOLETO> </DADOS> </manutencaocobrancabancaria:SERVICO_SAIDA> </soapenv:Body> </soapenv:Envelope> Quando a inclusão da certo o XML de retorno é assim incluso a url para download do PDF e retorno '(0) OPERACAO EFETUADA' Pelo que vi no seu seu cedente não esta configurado na caixa basta entrar em contato com a agência e solicitar. A url pra produção e homologação não muda essa configuração é feita pela caixa sendo em homologação iniciada em 14 '14000000000000008' quando em produção 00000000000000008.

Fez os testes em qual ambiente? Pois utilizando as funções esta dando divergencia do hash na consulta e erro na estrutura de dados na inclusão. Lembrando que em homologação o nosso número inicia com 14. Vou dar mais uma olhada e posto aqui a aplicacão completada sem banco de dados. Muito obrigado pela contribuição!

Falta o DataModulo in 'DataModulo.pas' {DM: TDataModule},

Poderia compartilhar as Unit ausentes no projeto: ConfigBancoFD in '..\..\Source-Sindicato\Comum\ConfigBancoFD.pas', uFDSeek in '..\..\Source-Sindicato\Comum\uFDSeek.pas';

Fiz dessa forma deu certo pelo SoapUi enviou perfeito. function GetStrHashSHA256(Str: String): TBytes; var HashSHA: THashSHA2; begin HashSHA := THashSHA2.Create; result := HashSHA.GetHashBytes(Str,SHA256); end; autenticacao:= Format('%7.7d',[StrToInt(SoNumero(codbeneficiario.Text))])+'14'+Format('%15.15d',[StrToInt(nossonumero.Text)])+FormatDateTime('ddmmyyyy',StrToDateTime(datavencimento.Text))+FormatFloat('000000000000000',StrToFloat(SoNumero(valor.Text)))+FormatFloat('00000000000000',StrToFloat(SoNumero(cpfcnpj.Text))); edtbase64.Text:= TNetEncoding.Base64.EncodeBytesToString(GetStrHashSHA256(autenticacao));

Estou tentando implementar o sistema de Webservice da caixa mas seria melhor este ser adicionado ao Acbr justo que já uso em minha aplicação. Para entender melhor a Caixa e o Bradesco já implementaram um sistema de Webservice SOAP/XML com mensagem XSD e WSDL utilizando (SSL/HTTPS) em método GET/POST. As funções disponíveis são INCLUI_BOLETO, ALTERA_BOLETO, BAIXA_BOLETO E CONSULTA_BOLETO. Estou enviando o manual de implementação e o link do WSDL para importação no Delphi https://barramento.caixa.gov.br/sibar/ManutencaoCobrancaBancaria/Boleto/Externo?wsdl Fiz pelo Delphi 7, 10.1 e 10.2 a importação mas o arquivo Externo.pas criado vem com layout todo bagunçado gerando erro na hora da execução além de faltar de alguns campos como CPF, CNPJ, NOME e RAZAO_SOCIAL. Estou a disposição para envio de material se houver interesse de mais pessoas para o desenvolvimento da ferramenta, visto que envio de arquivo de remessa está sendo substituída pelos bancos. A melhor parte deste sistema é que o retorno Soap inclui o link para download do boleto então nem é necessário formulário de impressão! Manual_Leiaute_Webservice.pdf Externo.pas XML_INCLUI_BOLETO_EXEMPLO.xml