seek $LoanPaymentCalendarFileHandle, -$file_seek_calendario_pago[0], 1;

##</code><code>##

seek $LoanPaymentCalendarFileHandle, $file_seek_calendario_pago[0], 0;


##</code><code>##

# counters everywhere
my @counter_tran_prestamo = 0;
my @counter_cuentas_prestamo = 0;
my @counter_calendario_pago = 0;
my @prev_account = '0';

my @counter_accounts_per_file = 0;
my @counter_files = 0;

my @found_calendario_pago = 0;
my @found_trans = 0;

my @file_seek_tran_prestamo;
my @file_seek_cuentas_prestamo;
my @file_seek_calendario_pago;

##</code><code>##

my $counter_tran_prestamo = 0;
my $counter_cuentas_prestamo = 0;
my $counter_calendario_pago = 0;
my $prev_account = '0';

my $counter_accounts_per_file = 0;
my $counter_files = 0;

my $found_calendario_pago = 0;
my $found_trans = 0;

my $file_seek_tran_prestamo;
my $file_seek_cuentas_prestamo;
my $file_seek_calendario_pago;