Palota

Entendi tinha procurado antes de criar o tópico, mas não encontrei, obrigado por responder !

Cnab 240 Na Linha 727. Onde se preenche com espaço Desta forma "PadRight(DigitoVerificadorAgenciaConta, 1, ' ')+ // 72 - Dígito verificador Ag/Conta (zero)" não deveria ser com zero? Ficando desta forma "PadRight(DigitoVerificadorAgenciaConta, 1, '0')+ // 72 - Dígito verificador Ag/Conta (zero)" Arquivo de remessa validado com esta alteração ! Segue .pas Alterado : ACBrBancoBancoob.pas Link para o Validador do Sicoob : https://www.sicoob.com.br/validador-cnab240-cobranca?p_auth=DcV4qOBn&p_p_id=validadorcnab_WAR_portalsicoobinternetsp&p_p_lifecycle=1&p_p_state=normal&p_p_mode=view&p_p_col_id=column-1&p_p_col_pos=1&p_p_col_count=2&_validadorcnab_WAR_portalsicoobinternetsp_javax.portlet.action=manterCNAB

Boa tarde Meu cliente emite boletos do Sicredi em dias não úteis e também em dias uteis, este caso me gerou um problema quanto ao nome do arquivo, percebi que na unit AcbrBancoSicredi function CalcularNomeArquivoRemessa ele monta o nome do arquivo com Cód cedente + Cód mês + dia em formato 'dd', e depois testa se existe o arquivo para trocar ou não a extensão Ex: Cliente gera um boleto no Sábado dia 28/04 -> o arquivo ficaria na pasta da seguinte forma cedente+4+28.crm Cliente gera outro boleto na Segunda dia 30/04 - o arquivo ficaria na pasta da seguinte forma cedente+4+30.crm O banco irá ler o arquivo arquivo gerado no sábado na próxima segunda feira dia 30/04 e processar o primeiro arquivo normalmente, mesmo ele sendo enviado para o banco no dia sábado 28/04, já na segunda feira dia 30/04 o cliente gera um novo boleto o banco estará esperando a extensão .rm2, pois já processou o arquivo de sábado, mas como o nome do arquivo enviado no sábado está com dia diferente ele não encontra nenhum arquivo e gera com a extensão .crm, ocasionando o problema ! Minha sugestão seria substituir a linha 1263 da unit AcbrBancoSicredi onde está o código "FormatDateTime( 'dd', Now ); " por alguma função que retorne o próximo dia útil, ou até mesmo só os que não sejam sábado e domingo como : if DayOfWeek(vDtUtil) = 7 then vDtUtil:= vDtUtil+ 2 else if DayOfWeek(vDtUtil) = 1 then vDtUtil:= vDtUtil + 1; Me Desculpem se deixei passar algo e por minha própria causa estou com este problema ! Aguardo retorno. Grato !