Nosso Numero E Vencimento Errados No Retorno Caixa Sigcb

[Alberto]

Bom dia,

 

Estou lendo o arquivo de retorno da caixa SIGCB e verifiquei que a data de vencimento e o nosso número estão errados:

 

Detalhado no Manual:

• 13.3T | Nosso Número | Identificação do Título no Banco | 42 | 56 | 15 - Num *G069
• 16.3T | Vencimento | Data de Vencimento do Título | 74  | 81 | 8 - Num *C012

 

Código original:

         {Segmento T}
         if Copy(Linha,14,1)= 'T' then
          begin
            SeuNumero                   := copy(Linha,59,11);
            NumeroDocumento             := copy(Linha,59,11);
            OcorrenciaOriginal.Tipo     := CodOcorrenciaToTipo(StrToIntDef(
                                        copy(Linha,16,2),0));
            //05 = Liquidação Sem Registro
            Vencimento := StringToDateTimeDef( Copy(Linha,74,2)+'/'+
                                               Copy(Linha,76,2)+'/'+
                                               Copy(Linha,78,2),0, 'DD/MM/YY' );

            ValorDocumento       := StrToFloatDef(Copy(Linha,82,15),0)/100;
            ValorDespesaCobranca := StrToFloatDef(Copy(Linha,199,15),0)/100;
            NossoNumero          := Copy(Linha,40,11);
            Carteira             := Copy(Linha,40,2);

          end

 

Nosso Número:

Veja que o manual diz que o nosso numero tem 15 posições iniciando do 40, mas no fonte está pegando 11 dígitos a partir da posição 40 que é a modalidade.

 

Vencimento:

Está pegando os 2 dígitos do ano da posição 78 e deveria pegar da posição 80 ou 4 dígitos a partir da 78.

 

Fiz essa alterações e funcionou corretamente.

 

[nebrio]

Alberto

Esse é o mesmo problema que identifiquei no meu post.....

Estou verificando a unit toda de leitura......assim que tiver uma posição de todos os campos vou postar para o pessoal analisar....

De inicio vc pode modificar sua unit para atender sua necessidade.....

 

Att,