Nosso Numero Vem Zerado - Caixa Sicob

[foleyjf]

Já implementei a impressão do boleto e está correto o retorno estou fazendo só que o nosso numero vem zerado.

A minha configuração de Banco e Cedente por enquanto esta toda no componente.

 

Para importar o retorno estou usando o seguinte código :

 

var
i : integer;
Begin
     if OpenDialog1.Execute then
     Begin
     ACBrBoleto1.LeCedenteRetorno := true ;
     ACBrBoleto1.DirArqRetorno:= 'C:\CAIXA\CobCAIXA\Retorno\';
     ACBrBoleto1.NomeArqRetorno:= extractfilename(opendialog1.filename);
     ACBrBoleto1.LerRetorno;

     for i := 0 to ACBrBoleto1.ListadeBoletos.Count-1 do
      begin
        DmDados.TbRetorno.Insert;
        Dmdados.TbRetorno.FieldByName('NossoNumero').Value := StrToInt(ACBrBoleto1.ListadeBoletos.Objects.NossoNumero);
        Dmdados.TbRetorno.FieldByName('DTO').Value := FormatDateTime('dd/mm/yyyy',  ACBrBoleto1.ListadeBoletos.Objects.DataOcorrencia );
        Dmdados.TbRetorno.FieldByName('VrPG').Value := ACBrBoleto1.ListadeBoletos.Objects.ValorDespesaCobranca;
        Dmdados.TbRetorno.FieldByName('VrTxC').Value := ACBrBoleto1.ListadeBoletos.Objects.ValorDocumento;
        Dmdados.TbRetorno.FieldByName('VrCr').Value := ACBrBoleto1.ListadeBoletos.Objects.ValorRecebido;
        Dmdados.TbRetorno.FieldByName('NDoc').Value := ACBrBoleto1.ListadeBoletos.Objects.SeuNumero;
        Dmdados.TbRetorno.FieldByName('CDO').Value := ACBrBoleto1.ListadeBoletos.Objects.CodigoLiquidacaoDescricao;
        Dmdados.TbRetorno.FieldByName('DTC').Value := FormatDateTime('dd/mm/yyyy',  ACBrBoleto1.ListadeBoletos.Objects.DataCredito );
        Dmdados.TbRetorno.FieldByName('Seq').Value := ACBrBoleto1.ListadeBoletos.Objects.LinhaDigitada;
        Dmdados.TbRetorno.FieldByName('CDCd').Value := ACBrBoleto1.ListadeBoletos.Objects.LocalPagamento;
        DmDados.TbRetorno.post;
      end;
        Dmdados.TbRetorno.Free;
        ShowMessage('Retorno processado com sucesso !');
end;
end;

 

 

[Juliana Tamizou]

Boa noite.

 

Você checou se as posições referentes a esta posição foram informadas com algum valor no arquivo gerado pelo banco?

 

Att.

[foleyjf]

Sim, tem valores um exemplo

 

10400000         2029708220001201641870000004693    01641108700000046953HIGIPRATIC COM E PREST SERVICOCAIXA ECONOMICA FEDERAL                 22003201500533200127803000000                                                      000           

10400011T0100020 20029708220001201641870000004693    01641108700000046953HIGIPRATIC COM E PREST SERVICO                                                                                000012782003201500000000                                

1040001300001T 0601641108700000046953         870000948171               200320150000000000447862370218068000000000094813         0900000000000000008000000000094813                                  0000000000002950401010000                

1040001300002U 06000000000000000000000000000000000000000000000000000000000000000000000044786000000000044491000000000000000000000000000000200320152303201523032015                                                                              

10400015         00000400000300000000000139459                       0000000000000000000000000000000000000000000000                                                                                                                            

10499999         000001000006

[Juliana Tamizou]

Bom dia.

 

Favor anexar o arquivo ao invés de copiar as linhas do mesmo no post.

Att.

[ganef]

Boa noite, primeiramente nao sei se este Tópico Seria o Mais Indicado para Passar esse "problema" Que encontrei nenhuma Nosso numero na versao do boleto 0.0.122a (Peguei Esse numero nenhuma mudança-log do boleto)

Bom A Questão foi debatida no topico e foi postado inclusive Uma Parte do Padrão de Formação do Nosso numero Pará SICOB começando com 82NNNNNNNN-D.

Atualizei o ACBr e Como de Uma Outra Vez Já tinha Atualizado e Os boletos Impressos Neste tipo de carteira SR estavam Apresentando O Nosso numero sem o 82 ...

Entrei sem fonte ACBrBancoCaixaSICOB e não Procedimento FormataNossoNumero, Linha 363 subistitui:  if (wTamNossoNum = 10) ou (wTamNossoNum = 15), em seguida,   parágrafo: if (wTamNossoNum = 15), em seguida, 

Desta forma o Nosso numero Gerado Pelo Componente voltou a considerar o 82NNNNNNNN-D Que É o Correto POIs eu tiva a Empresa Homologação Pela.

Espero ajudado PODE TER.

Abraços.

 

HGS Sistemas

ACBrBancoCaixaSICOB.pas

[Juliana Tamizou]

Boa noite.

 

Boa noite, primeiramente nao sei se este Tópico Seria o Mais Indicado para Passar esse "problema" Que encontrei nenhuma Nosso numero na versao do boleto 0.0.122a (Peguei Esse numero nenhuma mudança-log do boleto)

Bom A Questão foi debatida no topico e foi postado inclusive Uma Parte do Padrão de Formação do Nosso numero Pará SICOB começando com 82NNNNNNNN-D.

Atualizei o ACBr e Como de Uma Outra Vez Já tinha Atualizado e Os boletos Impressos Neste tipo de carteira SR estavam Apresentando O Nosso numero sem o 82 ...

Entrei sem fonte ACBrBancoCaixaSICOB e não Procedimento FormataNossoNumero, Linha 363 subistitui:  if (wTamNossoNum = 10) ou (wTamNossoNum = 15), em seguida,   parágrafo: if (wTamNossoNum = 15), em seguida, 

Desta forma o Nosso numero Gerado Pelo Componente voltou a considerar o 82NNNNNNNN-D Que É o Correto POIs eu tiva a Empresa Homologação Pela.

Espero ajudado PODE TER.

Abraços.

 

HGS Sistemas

 

Seu post não é relacionado ao problema descrito neste tópico, neste caso você deve criar um novo tópico para seu problema.

Obs. Procure descrever seu problema de forma mais clara.