[Ajuda] Erro na Leitura do Arquivo de Retorno do Banco (Cobrebemx)

Delphi

19/03/2011

boa tar de pessoal estou com um problema ao tentar ler o arquivo de retorno do banco no meu modulo de boletos.
estou usando a dll da cobrebemx, ja olhei os exemplos, baixei manual mais o erro continua .

mandei o arquivo de retonor cobrebemx e eles me mandaram o arquilo ja lido.
vou postar o q a cobrebemx me retornou e o q meu sistema leu so salientando q tou usando arquivo de licenca de teste.

Dados Fornecido Pela Cobrebemx

Dados do Titulo 1 :
NossoNumero= 249000000001035116
CodigoOcorrencia= 06
DataOcorrencia= 20/05/2008
Pagamento= Sim
DataCredito= 20/05/2008
ValorPago= 198,81
ValorMultaPaga= 0
ValorJurosPago= 5,81
ValorTaxaCobranca= 2,4
ValorCredito= 198,81
NumeroDocumento= 00000000000
ValorDesconto= 0
Banco= 104
Carteira= 1
Agencia= 000000
ContaCorrente=
CodigoCedente=
NumeroControle= 000000000000000
ValorOutrosAcrescimos= 0
------------------------------------------
Motivos Ocorrencia:
     Motivo(0)= 03 - Liquidação - Agências CAIXA
     Motivo(0)= 01 - Ocorrência 06 com Motivo 01 não encontrado
     Motivo(0)= 00 - Liquidação
------------------------------------------
Todos os Campos:
-------------------------------------------------------------------------------------------------------------------------
Dados Dados Lido Pelo meu prg

Dados do Titulo 1 :
NossoNumero= 249000000001035116
CodigoOcorrencia= 08
DataOcorrencia= 17/07/2012
Pagamento= Sim
DataCredito=
ValorPago= 1.90
ValorMultaPaga= 0
ValorJurosPago= 0
ValorTaxaCobranca= 0.30
ValorCredito= 1.60
NumeroDocumento= 00000000000
ValorDesconto= 0
Banco= 104
Carteira= 1
Agencia= 000000
ContaCorrente=
CodigoCedente=
NumeroControle=
------------------------------------------
Motivos Ocorrencia:
00-Confirmação do Recebimento do Cancelamento
------------------------------------------
Todos os Campos:
-------------------------------------------------------------------------------------------------------------------------


aqui a baixo o codigo q usei para ler o arquivo (usei o mesmo layout q o cara do suprote usou p ler).

procedure TfrmCarregaRetorno.retorno;
var i,j : Integer;
begin

  btnProc.Enabled := false;
  btnCance.Enabled := false;
  CobreBemX := CreateOleObject('CobreBemX.ContaCorrente');
  menoRet.Lines.Clear;
  menoRet.Lines.Add('Inicando Leitura do Arquivo...') ;
  with frmmenu do
      begin
         CobreBemX.ArquivoLicenca :=  ExtractFilePath(Application.ExeName)+arqlic;
         CobreBemX.CodigoAgencia :=  agencia;
         CobreBemX.NumeroContaCorrente := cc;
         CobreBemX.CodigoCedente := codcend;

         menoRet.Lines.Add('Cedente = '+codcend);

         CobreBemX.InicioNossoNumero := '00001';
         CobreBemX.FimNossoNumero := '99999';
         CobreBemX.ProximoNossoNumero := '15';
         CobreBemX.PadroesBoleto.PadroesBoletoImpresso.ArquivoLogotipo := ExtractFilePath(Application.ExeName)+ arqlogotipo;
         CobreBemX.PadroesBoleto.PadroesBoletoImpresso.CaminhoImagensCodigoBarras := 'c:\Boleto\bin\Imagens\';
      end;
         CobreBemX.ArquivoRetorno.Diretorio := ExtractFilePath(edtArq.Text);
         CobreBemX.ArquivoRetorno.Arquivo:= ExtractFileName(edtArq.Text);
         CobreBemX.ArquivoRetorno.Layout := 'SIGCB240' ;

          menoRet.Lines.Add('Modelo de Leitura do Arquivo = SIGCB240') ;

         CobreBemX.CarregaArquivosRetorno;


   for I := 0 to CobreBemX.OcorrenciasCobranca.Count - 1 do
   begin
    with DMCDSCP80 do
      begin
         dsRetorno.DataSet.Open;
         menoRet.Lines.Add('Iniando Leitura do Titulo...');
         dsRetorno.DataSet.Insert;
         dsRetorno.DataSet.FieldByName('dt_ret').Value := now;
         dsRetorno.DataSet.FieldByName('NossoNumero').Value := CobreBemX.OcorrenciasCobranca[i].NossoNumero ;
         dsRetorno.DataSet.FieldByName('codocorrencia').Value := CobreBemX.OcorrenciasCobranca[i].CodigoOcorrencia;
         if CobreBemX.OcorrenciasCobranca[i].DataOcorrencia <> '' then
          begin
              dsRetorno.DataSet.FieldByName('dt_ocorrencia').Value := CobreBemX.OcorrenciasCobranca[i].DataOcorrencia;
          end;

          dsRetorno.DataSet.FieldByName('pagto').Value := CobreBemX.OcorrenciasCobranca[i].Pagamento;

         if CobreBemX.OcorrenciasCobranca[i].DataCredito <> '' then
           begin
              dsRetorno.DataSet.FieldByName('dt_credito').Value := CobreBemX.OcorrenciasCobranca[i].DataCredito;
           end;

         dsRetorno.DataSet.FieldByName('vlr_pg').value := CobreBemX.OcorrenciasCobranca[i].ValorPago;

         dsRetorno.DataSet.FieldByName('vlr_multapg').value := CobreBemX.OcorrenciasCobranca[i].ValorMultaPaga;
         dsRetorno.DataSet.FieldByName('vlr_jurospg').value := CobreBemX.OcorrenciasCobranca[i].ValorJurosPago;
         dsRetorno.DataSet.FieldByName('vlr_txcobranca').value := CobreBemX.OcorrenciasCobranca[i].ValorTaxaCobranca;
         dsRetorno.DataSet.FieldByName('vlr_credi').value := CobreBemX.OcorrenciasCobranca[i].ValorCredito;
         dsRetorno.DataSet.FieldByName('id_bolgerado').Value := CobreBemX.OcorrenciasCobranca[i].NumeroDocumento;
         dsRetorno.DataSet.FieldByName('vlrdesc').Value := CobreBemX.OcorrenciasCobranca[i].ValorDesconto;
         dsRetorno.DataSet.FieldByName('banco').Value := CobreBemX.OcorrenciasCobranca[i].Banco;
         dsRetorno.DataSet.FieldByName('carteira').Value := CobreBemX.OcorrenciasCobranca[i].Carteira;
         dsRetorno.DataSet.FieldByName('agencia').Value := CobreBemX.OcorrenciasCobranca[i].Agencia;
         dsRetorno.DataSet.FieldByName('contacc').Value := CobreBemX.OcorrenciasCobranca[i].ContaCorrente;
         dsRetorno.DataSet.FieldByName('codCedente').Value := CobreBemX.OcorrenciasCobranca[i].CodigoCedente;
         dsRetorno.DataSet.FieldByName('numcontrol').Value := CobreBemX.OcorrenciasCobranca[i].NumeroControle;
         dsRetorno.DataSet.FieldByName('vlr_outracres').Value := CobreBemX.OcorrenciasCobranca[i].ValorOutrosAcrescimos;

         for J := 0 to CobreBemX.OcorrenciasCobranca[i].MotivosOcorrencia.Count - 1 do
           begin
             dsRetorno.DataSet.FieldByName('motivo').Value :=
             CobreBemx.OcorrenciasCobranca[i].MotivosOcorrencia[j].Codigo + '-' +
             CobreBemx.OcorrenciasCobranca[i].MotivosOcorrencia[j].Descricao;
           end;
             menoRet.Lines.Add('Leitura do Titulo Finalizada...');
             menoRet.Lines.Add(' ');
      end;
             
            TClientDataSet(dsRetorno.DataSet).ApplyUpdates(0);
            dsRetorno.DataSet.Close;
            btnProc.Enabled := true;
            btnCance.Caption := 'Fechar';
            btnCance.Enabled := true;
            btnLoad.Enabled := false;
      end;

end;


SE ALGUEM PODE ME AJUDAR AGRADECO.





Adriano Carvalho

Adriano Carvalho

Curtidas 0
POSTAR