Ir para conteúdo
  • Cadastre-se

dev botao

  • Este tópico foi criado há 4081 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Postado

Exemplo simples populando um DataSet com o arquivo de retorno:

  CDSRetorno.Close;
  CDSRetorno.CreateDataSet;
  CDSRetorno.Open;  
  CDSRetorno.EmptyDataSet;
  ACBrBoleto1.ListadeBoletos.Clear;
  ACBrBoleto1.DirArqRetorno  := ExtractFilePath(ArquivoRetorno);
  ACBrBoleto1.NomeArqRetorno := ExtractFileName(ArquivoRetorno);
  try
  ACBrBoleto1.LerRetorno;
  for i := 0 to  ACBrBoleto1.ListadeBoletos.Count-1 do
    begin
      if ACBrBoleto1.ListadeBoletos.Objects[i].ValorRecebido > 0 then
        begin
          CDSRetorno.Insert;
          CDSRetorno.FieldByName('NossoNumero').AsString      := ACBrBoleto1.ListadeBoletos.Objects[i].NossoNumero;
          CDSRetorno.FieldByName('NumeroDocumento').AsString  := RetiraBrancos(ACBrBoleto1.ListadeBoletos.Objects[i].NumeroDocumento);
          CDSRetorno.FieldByName('DataVencimento').AsDateTime := ACBrBoleto1.ListadeBoletos.Objects[i].Vencimento;
          CDSRetorno.FieldByName('DataBaixa').AsDateTime      := ACBrBoleto1.ListadeBoletos.Objects[i].DataCredito;
          CDSRetorno.FieldByName('ValorDocumento').AsFloat    := ACBrBoleto1.ListadeBoletos.Objects[i].ValorDocumento;
          CDSRetorno.FieldByName('ValorBaixa').AsFloat        := ACBrBoleto1.ListadeBoletos.Objects[i].ValorRecebido;
          CDSRetorno.Post;
        end;
    end;
  Result := True;
  except
    on e : Exception do
      begin
        MessageDlg('Erro ao carregar arquivo de retorno. Contate o Suporte!'+#13+E.Message,mtWarning,[mbOk],0);
        Result := False;
      end;
  end;

Vinício Rocha

Analista de Sistemas

Logus Soluções

Formiga – MG

þeficazerp.com.br

 

Postado

meu codigo :

 

var I : Integer;
begin
     if OpenDialog1.Execute then
    begin
Memoret.Text := OpenDialog1.FileName;
ACBrBoleto1.DirArqRetorno := ExtractFileName(Memoret.Text);
ACBrBoleto1.NomeArqRetorno := ExtractFileName(Memoret.Text);
 ACBrBoleto1.LerRetorno;
  for i := 0 to  ACBrBoleto1.ListadeBoletos.Count-1 do
    begin
      if ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido > 0 then
        begin
          IBPescador.Insert;
         IBPescador.FieldByName('NOSSO_NUMERO').AsString      := ACBrBoleto1.ListadeBoletos.Objects.NossoNumero;
         IBPescador.FieldByName('DATA_VENC').AsDateTime := ACBrBoleto1.ListadeBoletos.Objects.Vencimento;
         IBPescador.FieldByName('DATA_QUIT').AsDateTime      := ACBrBoleto1.ListadeBoletos.Objects.DataCredito;
         IBPescador.FieldByName('VALOR_CONTA').AsFloat    := ACBrBoleto1.ListadeBoletos.Objects.ValorDocumento;
         IBPescador.FieldByName('VALOR_QUITATO').AsFloat        := ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido;
         IBPescador.Post;
       end;
     end;
   end;
end;
Postado

Juliomar não sei se é por causa disso mais vou tentar fazer , fui atualizar o SVN e dar o seguinte erro '' O sistema não pode encontrar o caminho especificado '' !

 

vou  tentar resolver isso se der certo eu posto aqui !

Postado

eu tava usando esse endereço para atualizar (svn://svn.code.sf.net/p/acbr/code/trunk)

 

mais esse erro deu quando tentei fazer um SVN Checkount...

 

ta com 4 a 5 dias que eu não atualizava no endereço acima... 

Postado

o erro é nessas linhas 

 

     if OpenDialog1.Execute then
    begin
Memoret.Text := OpenDialog1.FileName;
ACBrBoleto1.DirArqRetorno := ExtractFileName(Memoret.Text);
ACBrBoleto1.NomeArqRetorno := ExtractFileName(Memoret.Text);
ACBrBoleto1.LerRetorno;
Postado

bem eu achei alinha que não estava passando era essa 

 

ACBrBoleto1.DirArqRetorno := ExtractFileName(Memoret.Text);

 

eu mudei para ACBrBoleto1.DirArqRetorno := ExtractFilePath(Memoret.Text);

 

agora ta me retornando o erro: 'Função ler retorno240 não implementada para o banco não definido.'

 

Postado (editado)

O CPF do retorno tem que ser igual ao do cedente para dar Baixa ?

 

li nesse poste pelo que eu entende só vou poder ler o arquivo retorno por completo se as informações estiverem corretas com o cedente !

 

Editado por Flávio Machado
Postado (editado)

alguém poderia me dizer se eu só vou poder fazer os teste com arquivos retornos com os dados dos meus próprios cedentes ?

 

 'CPF inválido !' ;   // o erro esse!
 
isso depois que eu marquei a opção '' lecedenteretorno''
Editado por Flávio Machado
  • Este tópico foi criado há 4081 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...