Envio/Retorno do Sicoob

[ALA]

Bom dia. Alguém poderia enviar um exemplo de como gererar/ler os arquivos de envio e retorno do banco sicoob...Obrigado

[Juliana Tamizou]

Bom dia.

No demo do componente vc tem esses exemplos, em relação as particularidade de como preencher as propriedades. temos o guia de particularidades.

https://acbr.sourceforge.io/ACBrMonitor/Particularidades.html (note que a primeira coluna se refere as propriedades para quem usa diretamente o componente).

Att.

[ALA]

Obrigado pelo retorno. Mas nao encontrei exemplo de como ler o arquivo de retorno do banco utilizando o componente, no help encontrei apenas exemplo de como utilizar o monitor...

[Juliomar Marchetti]

creio não ter olhado direito

[ALA]

Ops, obrigado Juliomar, estou com tanta pressa de liberar isso qua não tinha visto...

[Juliomar Marchetti]

Pressa inimiga da perfeição e também deixa o cara afobado e não consegue se concentrar nos detalhes

[ALA]

Pessoal boa noite, alguém sabe como faco p colocar

OcorrenciaOriginal.Tipo :='  01' => Entrada de titulos

para o banco sicoob

Cod. Movimento para o registro "P"

 

[ALA]

Apos a letra P tenho que gerar com 01, mas o componente sempre gera com 02. Alguém sabe onde altero isso ?

75600000         223452790000141                    0315770000000076422210608202018285400000108100000                                                                     
75600011R01  040 2023452790000141                    0315770000000076422 000000010608202000000000                                 
7560001300001P 02031577000000007642

[BigWings]

var
  Titulo: TACBrTitulo;


  Titulo := ACBrBoleto1.CriarTituloNaLista;
  Titulo.OcorrenciaOriginal.Tipo := ACBrBoleto.toRemessaRegistrar;

Esse já é o padrão, se no seu caso está gerando o código 02 (baixa de título), verifique se não está passando um valor diferente.

Outra forma, com base no programa exemplo:

procedure TfrmDemo.Button6Click(Sender: TObject);
var
  I: Integer;
begin
  // atualiza o tipo de ocorrência de todos os boletos
  for I := 0 to dm.ACBrBoleto.ListadeBoletos.Count - 1 do
    dm.ACBrBoleto.ListadeBoletos[I].OcorrenciaOriginal.Tipo := toRemessaRegistrar;
  dm.ACBrBoleto.GerarRemessa(1);
end;

 

[ALA]

Ops obrigado BigWings....

Deu certo. Existe algum lugar onde posso validar o arquivo gerado ?

[BigWings]

7 minutos atrás, ALA disse:

Ops obrigado BigWings....

Deu certo. Existe algum lugar onde posso validar o arquivo gerado ?

Até onde sei, o arquivo deve ser validado pelo SICOOB durante o processo de homologação.

[ALA]

7 minutos atrás, BigWings disse:

Até onde sei, o arquivo deve ser validado pelo SICOOB durante o processo de homologação.

Pensei que existia alguma saite, p isso. Vc sabe se tem alguma arquivo de retorno de exemplo ? Para eu ajusta a minha leitura aqui ?

[ALA]

Senhores, boa tarde. Obrigado pela ajuda, quase tudo esta funcionando. Só não estou entendendo como ler todos os registros retornados pelo banco e alimentar o meu banco de dados. No exemplo existe apenas   dm.ACBrBoleto.LerRetorno(); Mas não deveria ter um loop para pegar todas os registros que estão no componente ? Será que alguém poderia me enviar um exemplo ?

[Juliana Tamizou]

Boa tarde.

Note que o componente tem as propriedades DirArqRetorno e NomeArqRetorno, desta forma ele sabe onde o mesmo está e ao ser acionada está função vai carregar o arquivo e fazer o looping por todas as linhas lendo o mesmo para a lista de titulos do componente.

Att.