Pesquisar na Comunidade
Showing results for tags 'Contador de registros'.
Encontrado 1 registro
-
Contador De Registro Do Tacbrbancoob.gerarregistrotrailler240 Está Calculando Errado
um tópico no fórum postou Dempsey ACBrBoleto
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