Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 3488 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Pessoal, alguém esta trabalhando na implantação da leitura do retorno do Sicoob? Vi que não foi implantado, vou precisar implantar esta leitura, mas caso alguém já esteja trabalhando nisto me disponho a ajudar.

  • 3 semanas depois ...
Postado

Não sei se os seus fontes esão atualizados pois a unit ACBrBancoob.pas já dispõe desteas procedures.

    Procedure LerRetorno400(ARetorno:TStringList) 
    Procedure LerRetorno240(ARetorno:TStringList)
Elas estão implementadas só não testei.

_____________

Prates, Agnaldo

  • 5 semanas depois ...
Postado (editado)

Desculpe a demora em responder, estava na sema de provas por isso fiquei uns dias sem acessar o fórum.

 

Quanto às rotinas, tenho sim, inclusive, estão em conformidade com o "layout  do banco" não o layout do manual.

 

segue o anexos.

 

Tem uma grid que coloquei no demo, para mostrar os dados, lembrando que este Grid não está no Demo oficial. 

ACBrBancoob.pas

ACBrBoleto.pas

Editado por agnaldoprates

_____________

Prates, Agnaldo

  • Administradores
Postado

Bom dia.

 

Com "layout do banco"  vc quer dizer que não bate com o manual fornecido pelos mesmos?

 

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Postado

Boa tarde Juliana. É isso mesmo, o layout fornecido pelo banco não está em conformidade com o layout aceito pela instituição. Alterei a unit para gerar exatamente como o "Cedente" aplicativo do banco gera. 

 

Att.

_____________

Prates, Agnaldo

  • Administradores
Postado

Bom dia.

 

O banco não possui um manual com o layout atualizado? Esta diferença é referente a alguma particularidade de determinada carteira?

 

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Postado (editado)

Boa noite Juliana.

Até onde eu sei não há uma definição específica para a carteira.

Aqui neste tópico minha indignação quanto ao que os bancos fazem conosco, afinal, os bancos tem legislação específica e, de posse dessa "permissão" fazem o que realmente entendem ser correto.  É uma pena, mas se seguir o manual, não dá certo.

 

ps. Se entender necessário tenho os manuais que eles me enviaram.

 

Att.

Editado por agnaldoprates

_____________

Prates, Agnaldo

  • Administradores
Postado

Bom dia.

 

Por favor, envie os manuis disponibilizados pelo banco.

 

Att.

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Postado

Agnaldo, boa tarde. Eu também estou precisando de processar um retorno CNAB240 para o Sicoob e os arquivos que você postou foi de grande valia. Só que, como os fontes do ACBRBoleto foram atualizados recentemente, aproveitei a função LerRetorno240 na unit ACBrBancoob.pas. Li um arquivo no formato 240 e deu certo. A única coisa que modifiquei na sua rotina foi utilizar as propriedades ACBrBanco.TamanhoAgencia e ACBrBanco.TamanhoConta na hora de ler estas informações do arquivo. como segue o exemplo abaixo:

rAgencia := trim(Copy(ARetorno[0],54,ACBrBanco.TamanhoAgencia));
rDigitoAgencia := trim(Copy(ARetorno[0],58,1));
rConta := trim(Copy(ARetorno[0],63,ACBrBanco.TamanhoConta));
rDigitoConta := Copy(ARetorno[0],71,1);
rCedente := trim(Copy(ARetorno[0],73,30));

Segue em anexo a unit modificada. Vou colocar em produção no meu cliente e debugar a rotina mais vezes verificando o manual de orientação para o retorno com o CNAB 240.

 

Boa tarde a todos

3 Virtudes de um líder:
1) Ensinar o que se sabe
2) Praticar o que se ensina
3) Aprender o que se ignora

Postado

Boa tarde Pedro.

Fique a vontade para alterar, no meu caso não tive que modificar, conta e agencia, pois o sistema Cedente.exe recebeu o arquivo gerado pelo componente sem problemas, processei o retorno também e baixei os boletos sem problemas.

 

 

Att.

  • Curtir 1

_____________

Prates, Agnaldo

Postado

Obrigado Agnaldo, estou ansioso para que os moderadores aprovem e subam as alterações para evitar de termos códigos isolados dos fontes oficiais.

3 Virtudes de um líder:
1) Ensinar o que se sabe
2) Praticar o que se ensina
3) Aprender o que se ignora

  • 7 meses depois ...
  • Este tópico foi criado há 3488 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • 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.