Ir para conteúdo
  • Cadastre-se

dev botao

Como identificar Se o boleto foi liquidado


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

Recommended Posts

Pessoal, boa noite!

Como identifico no arquivo de retorno do Itaú se o boleto foi pago ?
Já olhei na documentação mas não consigo identificar este item.

Já criei o arquivo remessa e enviei para testes, carregou e processou normalmente, e já foi gerado pra mim o arquivo de retorno.
Preciso ler e carregar o arquivo retorno para dar baixa nos boletos no meu sistema. Mas não consigo identificar qual o item que identifica se o boleto foi pago.

Alguém pode me ajudar ????

Link para o comentário
Compartilhar em outros sites

Você vai fazer algo como

ACBrBoleto1.LerRetorno;
  for i := 0 to ACBrBoleto1.ListadeBoletos.Count-1 do
  with ACBrBoleto1.ListadeBoletos.Objects do
  begin
    // Acrescenta na Tabela Temporária
    cds_Previa.Insert;
    cds_Previa.FieldByName('DT_OCORRENCIA').AsDateTime:=  DataOcorrencia;
    cds_Previa.FieldByName('NOSSO_NUMERO').AsString:=     NossoNumero;
    cds_Previa.FieldByName('SEU_NUMERO').AsString:=       SeuNumero;
    cds_Previa.FieldByName('SACADO').AsString:=           Sacado.NomeSacado;
    cds_Previa.FieldByName('DT_VENCIMENTO').AsDateTime:=  Vencimento;
    cds_Previa.FieldByName('VL_TITULO').AsCurrency:=      ValorDocumento;
    cds_Previa.FieldByName('VL_DESCONTO').AsCurrency:=    ValorDesconto + ValorAbatimento;
    cds_Previa.FieldByName('VL_TAXA').AsCurrency:=        ValorDespesaCobranca;
    cds_Previa.FieldByName('VL_MULTAJUROS').AsCurrency:=  ValorMoraJuros;
    cds_Previa.FieldByName('VL_OUTROSACR').AsCurrency:=   ValorOutrasDespesas;
    cds_Previa.FieldByName('VL_RECEBIDO').AsCurrency:=    ValorRecebido;
    cds_Previa.FieldByName('TIPO_OCORRENCIA').AsString:=  TipoOcorrenciaToStr(OcorrenciaOriginal.Tipo);
    cds_Previa.FieldByName('OCORRENCIA_ORIG').AsString:=  OcorrenciaOriginal.Descricao;
    cds_Previa.FieldByName('MOTIVO_REJEICAO').AsString:=  DescricaoMotivoRejeicaoComando.Text;
 

Depois você executa uma USP no seu banco para processar as baixas

  dm.AdoSP.ProcedureName:= 'usp_ProcessaRetorno';
  dm.AdoSP.Parameters.Refresh;
  dm.AdoSP.Parameters.ParamByName('@ID_CARTEIRA').Value  := dsCarteira.DataSet.FieldByName('ID').AsInteger;
  dm.AdoSP.ExecProc;
 

E como você vai identificar quais foram os que forma pagos?

Aqueles cujo TIPO_OCORRENCIA = 'toRetornoLiquidado' são os que foram pagos, aí é só baixar.

Espero ter ajudado.

 

  • Curtir 2
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2099 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.