João Paulo F. Bellucci

Bom dia! Tudo blz? Estou estudando para inicializar a implementação de cobrança em débito automático. Qual banco que seu cliente usa? Possuímos o banco Bradesco aqui para cobrança, existe algum quantidade mínima de cobrança para essa modalidade?

Boa Tarde! Pelo que percebi ainda não subiram para a versão oficial. Tem que aguardar eles atualizarem la.

Bom dia! Independentemente o correto é a forma como postei ai, pois antes eles não validavam esses campos, e agora estão começando a validar. Se você mandar com essa nova formatação que postei, irá funcionar para as que não estão validando também.

- CNAB400 motivos. - O Sicoob e bancos cooperativados passaram a validar os campos: Agencia, AgenciaDigito, Conta, ContaDigito. O Field Cedente.Conta vem preenchido com a conta e zeros a esquerda com 12 digitos ex: 000000001234 Ao gerar o arquivo de remessa justamente na Linha 349: PadLeft( OnlyNumber(Cedente.Conta), 8, '0') o sistema gera para a interface a seguinte informação 00000000 regeitando a conta real que é 1234 Como solução foi adotado o corte correto: PadLeft( RightStr(OnlyNumber(Cedente.Conta),8), 8, '0') + // Conta Corrente Retornando: 00001234 Obs: Este problema não ocorre no CNAB240 pois lá são 12 digitos para conta. Segue o arquivo corrigido em anexo. ACBrBancoBancoob.pas

Boa tarde, @acgubamg Consegui resolver o problema. Tive que fazer somente uma autenticação com senha e depois não faço mais. No inicio do programa faço uma assinatura fake com senha para acessar o certificado, depois retiro a senha do componente e funciona perfeitamente. Da impressão que a rotina ao tentar assinar pela segunda vez com o outro componente se estiver com senha fica com crash. Obrigado pela ajuda.

Estou tendo o mesmo problema "Falha Recebendo os Dados Erro:12175" o que percebi é que possuo dois componentes "ACbrNFe" um para emissão da NFe e outro para manifesto que fica em uma thread quando um funciona o outro não funciona. Da impressão que o componente que entra primeiro tem a prioridade para usar o certificado o outro fica com erro. Na versão anterior funcionava perfeitamente quando era somente a "CAPICOM". Alguém passando pelo mesmo problema?

Boa tarde @fernandoschulz sim, mantive as implementações que eles fizeram e voltei a linha de código que estava errada.

Bom dia, no dia 23 postei a correção só que o pessoal do ACbr não viu ainda e não subiu a versão corrigida. Essa versão que postei esta funcionando perfeitamente aqui comigo. Qualquer dúvida estou a disposição.

Esqueci de anexar o fonte com a correção. Segue em anexo. ACBrBancoSantander.pas

Bom dia! Para funcionar deve ser mantida a regra anterior que era essa: Copy(Cedente.Conta,Length(Cedente.Conta),1) + // 384 a 384 Cedente.ContaDigito + Space(6) + // 385 a 391 No fonte atual desprezaram a regra que mencionei acima. Segue o fonte atual: Cedente.ContaDigito + Space(6) + // 384 a 391

Boa Tarde, Atualizei meu ACBr boletos e agora o Santander está rejeitando o arquivo a lógica foi implementada errada voltei par a versão anterior e funcionou corretamente. Segue o trecho do manual do CNAB 400: • Complemento Conta Cobrança (posições 384-385): preencher com a última posição da conta cobrança e com o dígito (CCCCCCCCC-D) Essa regra foi quebrada nessa última alteração. Qualquer dúvida estou a disposição.

Correção da linha 342 para não preencher com zero a esquerda o CPF do cedente pois o banco não aceita. ACBrBancoBancoob.pas linha 342 de PadLeft(onlyNumber(Cedente.CNPJCPF),14,'0') para PadLeft(onlyNumber(Cedente.CNPJCPF),14,' ') Segue o arquivo corrigido em anexo. ACBrBancoBancoob.pas

A rotina de retorno do Sicredi não está prevendo a situação do retorno 'C7' que é 'Título já baixado' Para resolver o problema coloquei essa situação no código. Segue parte do código modificada e o arquivo. toRetornoLiquidado: //06 case AnsiIndexStr(CodMotivo, ['A8', 'H5', 'H6', 'H8', 'X1', 'X2', 'X3', 'X4', 'X5', 'X0', 'X6', 'X7', 'X8', 'X9', 'XA', 'XB', 'C7']) of 0: Result:= 'A8-Recebimento da liquidação fora da rede Sicredi - via compensação eletrônica'; 1: Result:= 'H5-Recebimento de liquidação fora da rede Sicredi - VLB Inferior - Via compensação'; 2: Result:= 'H6-Recebimento de liquidação fora da rede Sicredi - VLB Superior - Via compensação'; 3: Result:= 'H8-Recebimento de liquidação fora da rede Sicredi - Contingência Via Compe'; 4: Result:= 'X1-Regularização centralizadora - Rede Sicredi'; 5: Result:= 'X2-Regularização centralizadora - Compensação'; 6: Result:= 'X3-Regularização centralizadora - Banco correspondente'; 7: Result:= 'X4-Regularização centralizadora - VLB Inferior - via Compensação'; 8: Result:= 'X5-Regularização centralizadora - VLB Superior - via Compensação'; 9: Result:= 'X0-Pago com cheque'; 10: Result:= 'X6-Pago com cheque - bloqueado 24 horas'; 11: Result:= 'X7-Pago com cheque - bloqueado 48 horas'; 12: Result:= 'X8-Pago com cheque - bloqueado 72 horas'; 13: Result:= 'X9-Pago com cheque - bloqueado 96 horas'; 14: Result:= 'XA-Pago com cheque - bloqueado 120 horas'; 15: Result:= 'XB-Pago com cheque - bloqueado 144 horas'; 16: Result:= 'C7-Título já baixado'; <---- Situação que não estava sendo tratada e gerava erro else case StrToInt(CodMotivo) of 00: Result:= '00-Ocorrência aceita, liquidação normal'; else Result:= PadLeft(CodMotivo,2,'0') +' - Outros Motivos'; end; end; ACBrBancoSicredi.pas

Legal, mas por garantia o correto é manter a logica oferecida acima pois a anterior não faz sentido. CodMotivo := IfThen(Copy(Linha,MotivoLinha,2) = ' ', '00', Copy(Linha,MotivoLinha,2));

Também aconteceu comigo para resolver tive que colocar essa solução. De acordo com a documentação do Sicredi esses campos deveriam vir 00 se for sem ocorrência mais não é isso mais que está acontecendo; "319 a 328 010 Motivos da ocorrência XXXXXXXXXX Cada dois dígitos “XX” correspondem a um motivo. Se “00”, não há motivo de ocorrência; Confira tabela no item 6.3. 329 "