Pesquisar na Comunidade

Bom dia, Pessoal existe alguma configuração que devo fazer no ACBrBoleto para ele ler os dados do Sacador do Arquivo de Retorno? Estou usando ACBrBoleto.ListadeBoletos.Objects.Sacado.NomeSacado; após realizar o comando de Ler o Arquivo de Retorno, Porém é retornado vázio, as outras informações aparecem, exceto o bloco Sacado. Banco Itau

Bom dia Estou lendo o arquivo de retorno CNAB400 do Santander e estava acusando erro 'Agencia\Conta do arquivo inválido'. Observando o arquivo AcbrBancoSantander.pas verifiquei que estava sendo usando o campo fpTamanhoConta para identificar a conta do cliente: rConta := PadLeft( OnlyNumber(rConta),fpTamanhoConta,'0'); E observei que no create da classe fpTamanhoConta estava sendo atribuído 11. Como a conta do cliente possui 8 dígitos, fiz um teste, passando foTamanhoConta para 8, e neste teste a leitura do arquivo retorno foi feita corretamente. Existe alguma forma de alterar o fpTamanhoConta sem alterar o arquivo AcbrBancoSantander.pas ou a correção deve ser feita no arquivo mesmo? Obrigado

Olá, Ao importar um arquivo de retorno CNAB 400 do banco Sicredi ocorreram dois erros em arquivos diferentes O primeiro erro foi " ' ' is not a valid integer value": nossa analise sobre o que esta no txt: para alguns arquivos de retorno do banco, o sistema não esta gera os campos da posição 319 com os zeros preenchidos Exemplo quando o código do retorno foi "H5 " ao invés de "H500000000", então fiz a seguinte alteração em LerRetorno400 de: if CodMotivo <> '00' then //Após o 1º motivo os 00 significam que não existe mais motivo begin MotivoRejeicaoComando.Add(IfThen(Copy(Linha,MotivoLinha,2) = '00', '00', Copy(Linha,MotivoLinha,2))); DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(OcorrenciaOriginal.Tipo,CodMotivo)); end; para: if (CodMotivo <> '00') And (Trim(CodMotivo) <> '') then //Após o 1º motivo os 00 significam que não existe mais motivo begin MotivoRejeicaoComando.Add(IfThen(Copy(Linha,MotivoLinha,2) = '00', '00', Copy(Linha,MotivoLinha,2))); DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao(OcorrenciaOriginal.Tipo,CodMotivo)); end; O segundo erro foi " 'C6' is not a valid integer value" quando o código do retorno foi "H5000000C6", verifiquei que faltou tratar o Código de motivo 'C6'. de: toRetornoLiquidadoAposBaixaouNaoRegistro: //17 case AnsiIndexStr(CodMotivo,['A8', 'H5', 'H6', 'H8']) 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'; else case StrToInt(CodMotivo) of 00: Result:= '00-Ocorrência aceita, liquidação após baixa'; else Result:= PadLeft(CodMotivo,2,'0') +' - Outros Motivos'; end; end; para: toRetornoLiquidadoAposBaixaouNaoRegistro: //17 case AnsiIndexStr(CodMotivo,['A8', 'C6', 'H5', 'H6', 'H8']) of 0: Result:= 'A8-Recebimento da liquidação fora da rede Sicredi - via compensação eletrônica'; 1: Result:= 'C6-Título já liquidado'; 2: Result:= 'H5-Recebimento de liquidação fora da rede Sicredi - VLB Inferior - via compensação'; 3: Result:= 'H6-Recebimento de liquidação fora da rede Sicredi - VLB Superior - via compensação'; 4: Result:= 'H8-Recebimento de liquidação fora da rede Sicredi - Contingência via compe'; else case StrToInt(CodMotivo) of 00: Result:= '00-Ocorrência aceita, liquidação após baixa'; else Result:= PadLeft(CodMotivo,2,'0') +' - Outros Motivos'; end; end; Segue em anexo os arquivos de retorno com erro e o ACBRBancoSicredi. Obrigada. ACBrBancoSicredi.pas retorno_erro_C6.CRT retorno_erro_cod_vazio.CRT

Boa tarde. Tudo bem? Gostaria de saber se alguns dos(as) nobres colegas já conseguiram fazer a unit que trata recebe o arquivo de retorno do Banco Santander. Obrigado. Toninho Eleotério