Contador De Registro Do Tacbrbancoob.gerarregistrotrailler240 Está Calculando Errado

[Dempsey]

Contador de registro, coluna 18 do Trailler do LOTE, está calculando errado no TACBrBancoob.GerarRegistroTrailler240(ARemessa: TStringList): String;

A partir da linha 930 está asim:

function TACBrBancoob.GerarRegistroTrailler240(

  ARemessa: TStringList): String;

begin

  {REGISTRO TRAILER DO LOTE}

  Result:= IntToStrZero(ACBrBanco.Numero, 3)                          + //Código do banco

           '0001'                                                     + //Número do lote

           '5'                                                        + //Tipo do registro: Registro trailer do lote

           Space(9)                                                   + //Uso exclusivo FEBRABAN/CNAB

           IntToStrZero((3 * ARemessa.Count-1), 6)                    + //Quantidade de Registro da Remessa

           ...

Deveria ser assim:

  function TACBrBancoob.GerarRegistroTrailler240(

  ARemessa: TStringList): String;

var

  wQTDTitulos: Integer;

begin

  wQTDTitulos := ARemessa.Count - 1;

  {REGISTRO TRAILER DO LOTE}

  Result:= IntToStrZero(ACBrBanco.Numero, 3)                          + //Código do banco

           '0001'                                                     + //Número do lote

           '5'                                                        + //Tipo do registro: Registro trailer do lote

           Space(9)                                                   + //Uso exclusivo FEBRABAN/CNAB

           IntToStrZero((4 * wQTDTitulos + 2), 6)                    + //Quantidade de Registro da Remessa

           ...

Deixei em verde o que foi INSERIDO ou ALTERADO

Editado 13 Maio, 2015 por Dempsey

[Juliana Tamizou]

Bom dia.

 

Favor anexar a unit alterada e o manual utilizado como base para as alterações.

 

Att.

[Dempsey]

Bom dia.

 

Favor anexar a unit alterada e o manual utilizado como base para as alterações.

 

Att.

Sim... Fiz as alterações necessárias aqui e enviei para o banco, assim que for HOMOLOGADO pelo banco envio a unit...

As alterações são estas:

 

* Contador de registro, coluna 18 do Trailler do LOTE, está calculando errado, tem somar todas as linhas do arquivo MENOS 2    (-2), isso porque a 1ª linha e a última não contam.

 

* Contador de registro, coluna 18 do Trailler do ARQUIVO, está calculando errado, tem somar todas as linhas do arquivo, i

  nclusive a 1ª linha e a última.

 

* Valor total dos titulos não foi informado, coluna 30 no trailler do lote

 

* No segmento S não sai as instruções de Protesto e Multa

 

* No segmento R não sai as observações do sacado, coluna 100 a 179

 

* No segmento R tem q informar o valor da multa na coluna 66 (ver opção % ou R$)

 

* No segmento R tipo de Desconto é "0" na coluna 42

 

* No segmento Q não está saindo a Inscrição do Sacado, coluna 154

 

* No segmento R não sai as observações do sacado, coluna 100 a 179

 

* No segmento P informar o tipo de Juros Mora ( 1, 2 ou 3), coluna 118

 

* No segmento P criar opções para informar quem fazerá EMISSÃO e DISTRIBUIÇÃO, coluna 61 e 62

[Juliana Tamizou]

Boa tarde.

 

Quando anexar a unit, anexe também o manual do banco.

 

Att.

[Dempsey]

Boa tarde.

 

Quando anexar a unit, anexe também o manual do banco.

 

Att.

Oi Juliana... Alterações foram homologadas pelo Banco

 

Em anexo estou enviando a unit alterada, as correções feitas e o Layout do Banco...

Deixei os códigos que inseri no mesmo padrão das outras unit's...

Todas as linhas alteradas estão comentadas com o meu nome //DEMPSEY...

ACBrBancoBancoob.pas

Correcoes_Integracao.txt

SICOOB - Layouts_para_troca_de_informações.rar

ACBrBancoBancoob.pas

Correcoes_Integracao.txt

SICOOB - Layouts_para_troca_de_informações.rar

[Dempsey]

Gostaria de saber ser as alterações feitas serão homologadas

[Juliomar Marchetti]

Sim !

só deve de aguardar pois além de existir um refatoring sendo feito todos trabalham durante o dia em suas respectivas empresas sendo funcionários ou donos!

basta aguardar

[Renan Eustaquio]

Estou com esse problema no trunk 2 unit (ACBrBancoBancoob), não será realizada a correção ou há algum coisa que eu esteja fazendo errado ??

 

Em 13/05/2015 at 16:37, Dempsey disse:

 

Contador de registro, coluna 18 do Trailler do LOTE, está calculando errado no TACBrBancoob.GerarRegistroTrailler240(ARemessa: TStringList): String;

 

A partir da linha 930 está asim:

function TACBrBancoob.GerarRegistroTrailler240(

  ARemessa: TStringList): String;

begin

  {REGISTRO TRAILER DO LOTE}

  Result:= IntToStrZero(ACBrBanco.Numero, 3)                          + //Código do banco

           '0001'                                                     + //Número do lote

           '5'                                                        + //Tipo do registro: Registro trailer do lote

           Space(9)                                                   + //Uso exclusivo FEBRABAN/CNAB

           IntToStrZero((3 * ARemessa.Count-1), 6)                    + //Quantidade de Registro da Remessa

           ...

Deveria ser assim:

  function TACBrBancoob.GerarRegistroTrailler240(

  ARemessa: TStringList): String;

var

  wQTDTitulos: Integer;

begin

  wQTDTitulos := ARemessa.Count - 1;

  {REGISTRO TRAILER DO LOTE}

  Result:= IntToStrZero(ACBrBanco.Numero, 3)                          + //Código do banco

           '0001'                                                     + //Número do lote

           '5'                                                        + //Tipo do registro: Registro trailer do lote

           Space(9)                                                   + //Uso exclusivo FEBRABAN/CNAB

           IntToStrZero((4 * wQTDTitulos + 2), 6)                    + //Quantidade de Registro da Remessa

           ...

 

 

Deixei em verde o que foi INSERIDO ou ALTERADO

 

Editado 26 Outubro, 2016 por Renan Eustaquio

[Juliomar Marchetti]

já tem mais e um ano o último post!

acho que deve ser algo que está interpretando errado e usando errado o componente