Ajuste Cobrança HSBC - Homologação

[Celio Souza]

Boa tarde galera. 

 

Brother denner me da uma mao brother. 

 

nessa posicao aqui da unity hsbc.

 

 

 

  if Trim(Copy(ARetorno[0], 12, 15)) <> 'COBRANCA CNR' Then
     ACBrBanco.ACBrBoleto.DataCreditoLanc := StringToDateTimeDef(Copy(ARetorno[0], 120, 2) + '/' +
                                                                 Copy(ARetorno[0], 122, 2) + '/' +
                                                                 Copy(ARetorno[0], 124, 2), 0, 'DD/MM/YY');

 

 

so que nessa posicao do header nao tem nada. 

como devo fazer ?

[denerbuzato]

Boa tarde Célio,

Posta seu arquivo retorno para darmos uma olhada no conteúdo dele

[Celio Souza]

blz 

COB11499.dat

[denerbuzato]

25 minutos atrás, Celio Souza disse:

so que nessa posicao do header nao tem nada.

Analisando a posição 120 do registro header em anexo contém a data 10/05/16

[Celio Souza]

Verdade, foi a quebra de linha do notepad++ e ansiedade para terminar logo meu chamado aqui 

 

Valeu brother Denner.  

 

desculpa ai ! sou noob JR

[Celio Souza]

Então dener, quando e passado a data para o sistema, ele vem com 0. 

 

 

ate no acbrBancoHSBC ele esta oks com a data normal, agora quando adiciono o seguinte no codigo 

 

dCredito:=ACBrBoleto.ListadeBoletos.Objects[iCont].DataCredito;

 

somente ele vem com 0. 

[denerbuzato]

Essa variável que você esta usando "DataCredito" está em outro ponto
 

        if Trim(Copy(ARetorno[0], 12, 15)) = 'COBRANCA CNR' Then
        begin
           if StrToIntDef(Copy(Linha, 83, 6), 0) <> 0 Then
              DataCredito := StringToDateTimeDef(Copy(Linha, 83, 2) + '/' +
                                                 Copy(Linha, 85, 2) + '/' +
                                                 Copy(Linha, 87, 2), 0, 'DD/MM/YY');

Como seu arquivo é "COBRANCA" ele não atende a esse requisito e não entra neste bloco, além de não ter data nesta posição 83.

Recomendo que você use como data de recebimento a data de ocorrencia. Caso você esteja passando para seu dataset a data de credito, poderá fazer algum tratamento antes para que sempre sua data de crédito tenha valor, como por exemplo:

        //Feito isto para garantir que a data de crédito (data de recebimento) sempre tenha valor, mesmo para bancos que não retornem nesta variavel "DataCredito" (Ex. HSBC)
        if (ACBrBoleto1.ListadeBoletos.Objects[i].DataCredito = 0) then
          ACBrBoleto1.ListadeBoletos.Objects[i].DataCredito := ACBrBoleto1.ListadeBoletos.Objects[i].DataOcorrencia
        else
          if (ACBrBoleto1.ListadeBoletos.Objects[i].DataOcorrencia = 0) then
            ACBrBoleto1.ListadeBoletos.Objects[i].DataCredito := ACBrBoleto1.DataCreditoLanc;
        //

 

[denerbuzato]

Entendeu Célio? Para simplificar para você.

Antes do seu código:

30 minutos atrás, Celio Souza disse:

dCredito:=ACBrBoleto.ListadeBoletos.Objects[iCont].DataCredito;

Coloque:

8 minutos atrás, denerbuzato disse:

 

        //Feito isto para garantir que a data de crédito (data de recebimento) sempre tenha valor, mesmo para bancos que não retornem nesta variavel "DataCredito" (Ex. HSBC)
        if (ACBrBoleto1.ListadeBoletos.Objects[i].DataCredito = 0) then
          ACBrBoleto1.ListadeBoletos.Objects[i].DataCredito := ACBrBoleto1.ListadeBoletos.Objects[i].DataOcorrencia
        else
          if (ACBrBoleto1.ListadeBoletos.Objects[i].DataOcorrencia = 0) then
            ACBrBoleto1.ListadeBoletos.Objects[i].DataCredito := ACBrBoleto1.DataCreditoLanc;
        //

 

Veja se terá a data que deseja.

[Celio Souza]

Eu entendi brother. valeu, so estou com um problemas mas e tecnico mesmo. o tipo extended nao esta passando para o TDatetime. 

 

Outra coisa o ACBrBoleto.ListadeBoletos.Objects[iCont].DataBaixa  tambem esta chegando 0. posso fazer a mesma coisa com ele ? 

[denerbuzato]

O que seria essa "DataBaixa"? na unit "ACBrBancoHSBC" não tem essa implementação.

De qualquer forma, pelo nome, acredito que pode usar essa mesma ideia.

[Celio Souza]

Pois na documentacao ela nao exixte tambem, mas acredito que seja a data credito mesmo ! 

 

mas tenho uma duvida e o senhor google nao conseguiu me responder, quando eu passo para uma variavel dtime o valor extend contendo a data, o valor nao e passado. muito estranho isso. 

depois que passa da linha o valor da variavel dtime fica zerado. 

exemplo: 

 

dBaixa(0):=ACBrBoleto.ListadeBoletos.Objects[iCont].DataCredito(499012)

[Celio Souza]

Valeu brother denerbuzato !!! 

 

VC e o cara !

 

deu tudo certinho aqui !

[Dedox]

Sobre o problema do Celio, penso que precisam atualizar no SVN, estou com a versão atualizada e quando leio o arquivo de retorno o sistema exibe a mensagem informando que o cedente está inválido pois está procurando aquele espaço em branco para fazer a verificação.

Poderias atualizar no SVN por gentileza? Grato!

[Juliomar Marchetti]

2 horas atrás, Dedox disse:

Sobre o problema do Celio, penso que precisam atualizar no SVN, estou com a versão atualizada e quando leio o arquivo de retorno o sistema exibe a mensagem informando que o cedente está inválido pois está procurando aquele espaço em branco para fazer a verificação.

Poderias atualizar no SVN por gentileza? Grato!

Qual código?

anexe a unit que está falando para que o responsável usando os manuais do banco possa validar isso!