Revision ee30d4e8
Von Jan Büren vor etwa 11 Jahren hinzugefügt
| SL/RP.pm | ||
|---|---|---|
|
#=====================================================================
|
||
|
=====================================================================
|
||
|
# LX-Office ERP
|
||
|
# Copyright (C) 2004
|
||
|
# Based on SQL-Ledger Version 2.1.9
|
||
| ... | ... | |
|
};
|
||
|
|
||
|
my ($query, $startdate, $last_ob, $mindate);
|
||
|
$query = qq|select max(transdate) from acc_trans where ob_transaction is true and transdate <= ?|;
|
||
|
$query = qq|select max(transdate) from acc_trans where ob_transaction is true and transdate <= ?|;
|
||
|
($last_ob) = selectrow_query($::form, $dbh, $query, $::locale->format_date(\%::myconfig, $asofdate));
|
||
|
$last_ob = $::locale->parse_date_to_object(\%::myconfig, $last_ob) if $last_ob;
|
||
|
|
||
|
$query = qq|select min(transdate) from acc_trans|;
|
||
|
|
||
|
$query = qq|select min(transdate) from acc_trans|;
|
||
|
($mindate) = selectrow_query($::form, $dbh, $query);
|
||
|
$mindate = $::locale->parse_date_to_object(\%::myconfig, $mindate);
|
||
|
|
||
| ... | ... | |
|
|
||
|
return $::locale->format_date(\%::myconfig, $mindate);
|
||
|
};
|
||
|
|
||
|
};
|
||
|
|
||
|
};
|
||
|
|
||
|
sub balance_sheet {
|
||
|
$main::lxdebug->enter_sub();
|
||
| ... | ... | |
|
$form->{period} = $form->{this_period} = conv_dateq($form->{asofdate});
|
||
|
}
|
||
|
|
||
|
# get starting date for calculating balance
|
||
|
# get starting date for calculating balance
|
||
|
$form->{this_startdate} = get_balance_starting_date($form->{asofdate});
|
||
|
|
||
|
get_accounts($dbh, $last_period, $form->{this_startdate}, $form->{asofdate}, $form, \@categories);
|
||
Auch abrufbar als: Unified diff
remove whitespace RP.pm