Pesquisar na Comunidade

Bom dia!!! @Juliana Tamizou, Encontrei um Erro nessas Units: Fontes\ACBrBoleto\ACBrBancoBradesco.pas Fontes\ACBrBoleto\ACBrBancoBradescoSICOOB.pas Fontes\ACBrBoleto\ACBrBancoCaixaSICOB.pas Fontes\ACBrBoleto\ACBrBancoCecred.pas Fontes\ACBrBoleto\ACBrBancoSicredi.pas. Na Seguinte Linha: CodOcorrencia := StrToInt(IfThen(copy(Linha,109,2) = '00','00',copy(Linha,109,2))); essa linha contem em todas essas units. O q esta acontecendo q em certa situacao o banco me retornou um Arquivo de Retorno com essa string do copy(Linha,109,2) = ' ' (vazio). A correçao é bem simples, trocar para StrToIntDef, igual esta na linha acima : OcorrenciaOriginal.Tipo := CodOcorrenciaToTipo(StrToIntDef( copy(Linha,109,2),0)); Teria como me ajudar? para mim nao precisar modificar meu fonte. Aguardo seu Retorno.

Oi pessoal, sou novato em desenvolvimento delphi e já estou utilizando o ACBrBoletos para gerar boletos, mas estava implementando a leitura do arquivo de retorno para realizar as baixas de títulos no sistema e me deparei com um problema na leitura do arquivo, estava tentando ler um arquivo de retorno do Banco do Brasil e percebi que para buscar o " Nosso Numero " corretamente ele busca a carteira no arquivo antes e com o que retornar mais o tamanho do Convenio ele busca de uma maneira ou de outra utilizando " IF's " o Nosso Numero, entretanto ao ler a carteira no banco do Brasil traz apenas um caractere e ao buscar o nosso numero ele compara com 16 e 18, e como o tamanho da carteira é dois dígitos esta colocando um zero antes do digito lido ex: se no arquivo estiver ' 18 ' ira trazer ' 01 ' por buscar apenas um digito e seu tamanho ser 2. Selecionando a Carteira do arquivo, é utilizada a procedure : " procedure TACBrBancoBrasil.LerRetorno240(ARetorno: TStringList); " Arquivo de retorno: OBS: esse arquivo foi criado manualmente para ser realizado um teste de baixa. Pegando nosso numero: Como pode ver ele compara com '16' ou '18' para pegar da posição 38 os 17 caracteres que é oque preciso, mas não vem porque o busca apenas um digito. Depurando o código: Mostrando oque esta trazendo. Gente acredito que seja somente seja alterar a busca da carteira para trazer 2 caracteres ao invés de 1, gostaria de saber se isso esta certo e eu apenas estou fazendo confusão ou realmente esta errado e precisa mudar ? Desculpa ai pelo textão mas gosto de explicar bem a situação para não haver muitas duvidas sobre a pergunta.

Boa tarde pessoal. Estou tentando colocar a cobrança do Banco do Brasil para um cliente, no entanto, meu cliente disse que o banco passou para ele que precisamos importar o arquivo de Retorno do Processamento da Remessa. Alguém saberia me dizer se há essa possibilidade pelo componente boleto?

Saudações Até pouco tempo atrás meu software operava em poucas empresas e elas usavam basicamente os mesmos bancos. Agora cada uma delas usa um banco diferente para cobrança e com pouco tempo eles "trocam" de banco. Isso acaba me fazendo gerar um monte de código para trabalhar com os arquivos de retorno. Eu procurei, e não encontrei. Mas pergunto, Existe um jeito de padronizar a busca dos dados de retorno sem importar a qual banco ele foi feito? Para que numa única rotina ele importe os dados do Sicredi, Banco do Brasil, Itaú, etc?? Qualquer idéia é bem vinda. Claudiomir

Boa noite, estou tento problemas para ler o arquivo de retorno utilizando o acbrboleto. O cenário é o seguinte. Cedente do tipo pessoa fisica, Banco Itau, tipo 400 no arquivo de retorno o componente lê o cpf com 3 números 0 na frente do cpf assim: 00012312312312 quando vai validar não verifica se o cedente é pessoa fisica ou juridica então da o erro que que o cpf deve conter 11 digitos. Eu acredito que a ocorrência esteja acontecendo aqui: case StrToIntDef(Copy(ARetorno[1],2,2),0) of 1 : rCNPJCPF:= Copy(ARetorno[1],07,11); 2 : rCNPJCPF:= Copy(ARetorno[1],04,14); else rCNPJCPF:= Copy(ARetorno[1],4,14); end;

Pessoal apos atualização do bloco abaixo: unit ACBrBancoCaixa; // prevenir quando o seunumero não vem informado no arquivo if StrToIntDef(SeuNumero, EmptyStr) then begin SeuNumero := NossoNumero; NumeroDocumento := NossoNumero end; Para bloco atual Usando o Metodo AnsiSameText // prevenir quando o seunumero não vem informado no arquivo if AnsiSameText(Trim(SeuNumero), EmptyStr) then begin SeuNumero := NossoNumero; NumeroDocumento := NossoNumero end; O que ocorre é que quando o seunumero vem no arquivo vazio ou zerado usando o metodo StrToIntDef ele setava o nosso numero beleza, porem agora usando AnsiSameText o valor de retorno é do arquivo veio com zeros '000000000' então ele não pega o nosso numero e atribui no seunumero. percebi isso na hora de fazer a baixa no sistema usando um arquivo de retorno todos seunumero veio com zeros 000000000' eu nao achei as parcelas. Alguem pode fazer a correção? caso venha vazio ou com zeros atribuir o valor do nossonumero ao seunumero.

Bom dia Como faço pra mostrar o arquivo de retorno na tela do usuário, mostrando as ocorrências do arquivo. Consigo ler o arquivo mas não mostra.