Banco Sicoob Remessa 240

[wadcompany]

Bom dia amigos, estou anexando uma alteração que fiz na unit ACBrBancoBancoob pois a mesma não estava gerando no arquivo de remessa a data de limite pagamento, mesmo informando nas propriedades do componente.

Peço que algum moderador avalie e se for o caso suba pra todos no SVN, pois com algumas mudanças no validador do SICOOB sem esta informação não valida o arquivo de remessa 240, pois sempre estava preenchendo com 00000000.

Fico no aguardo e agradeço a atenção.

ACBrBancoBancoob.pas

[Juliana Tamizou]

Boa tarde,

Obrigada pela colaboração, assim que for adicionada ao svn, retornaremos no tópico.

Att.

[wadcompany]

@Juliana Tamizou

[José M. S. Junior]

Boa tarde, a sua correção foi adicionada aos fontes, favor atualizar... Obrigado.

[wadcompany]

Boa tarde, agradeço muito pela ajuda! Obrigado a todos!

[Mario Inacio]

Boa tarde.

Assim como fez wadcompany, estou anexando uma alteração que fiz na unit ACBrBancoBancoob pois a mesma não estava gerando no arquivo de remessa a data juros mora, posição 119 a 126, do bloco Registro Detalhe "P", mesmo informando nas propriedades do componente.

Comentei o trecho que estava preenchendo a data como 00000000, na linha 873 até a 879, informado abaixo a variável ADataMoraJuros formatada e obrigatória conforme norma do Manual, também em anexo.

Peço que algum moderador avalie e se for o caso suba pra todos no SVN, pois com algumas mudanças no validador do SICOOB sem esta informação não valida o arquivo de remessa 240, e após a referida mudança, validou corretamente.

Fico no aguardo e agradeço a atenção.

ACBrBancoBancoob.pas

Layouts_para_troca_de_informações - cooperativas - Cobrança Bancária.xls

[José M. S. Junior]

Suas sugestões foram disponibilizadas nos fontes do Projeto ACBr. 

Obrigado pela contribuição!

[Mario Inacio]

Bom dia.

Não sei ao certo o que mudaram na validação do Sicoob, mas tive que alterar novamente o ACBrBancoBancoob.pas.

O código (linha 896) estava assim, enviando a DataDesconto vazia caso não houvesse informação de desconto:

     {Descontos}
     if (ValorDesconto > 0) then
       begin
         if(DataDesconto > 0) then
           ADataDesconto := FormatDateTime('ddmmyyyy', DataDesconto)
         else  ADataDesconto := PadLeft('', 8, '0');
       end
     else
       ADataDesconto := PadLeft('', 8, '0');

 

Dessa forma, estava rejeitando, então apenas alterei pra gerar zeros caso não haja desconto:

     {Descontos}
     if (ValorDesconto > 0) then
       begin
         if(DataDesconto > 0) then
           ADataDesconto := FormatDateTime('ddmmyyyy', DataDesconto)
         else  ADataDesconto := PadLeft('0', 8, '0'); // aqui
       end
     else
       ADataDesconto := PadLeft('0', 8, '0'); //aqui

Segue o novo arquivo em anexo.

Abraços

 

 

 

ACBrBancoBancoob.pas