}
hotfix_reformat_date();
} # Ende Bericht für vorgewählten Zeitraum (warum auch immer die Prüfung (custom eq true) ist ...
-
+
RP->income_statement(\%myconfig, \%$form);
($form->{department}) = split /--/, $form->{department};
my $edit_url = build_std_url('action=edit', 'type', 'vc');
my $idx;
- foreach my $accno (@{ $form->{TB} }) {
+ foreach my $accno (@{ $form->{TB} || [] }) {
$accno->{soll} = $accno->{debit};
$accno->{haben} = $accno->{credit};
my %subtotals = map { $_ => 0 } @totals_columns;
my %totals = map { $_ => 0 } @totals_columns;
my $found_heading = 0;
- my @tb = sort { $a->{accno} cmp $b->{accno} } @{ $form->{TB} };
+ my @tb = sort { $a->{accno} cmp $b->{accno} } @{ $form->{TB} || [] };
# sort the whole thing by account numbers and display
foreach my $idx (0 .. scalar(@tb) - 1) {
# Hotfix, um das Datumsformat, die unten hart auf deutsches Datumsformat eingestellt
# sind, entsprechend mit anderem Formaten (z.B. iso-kodiert) zum Laufen zu bringen (S.a.: Bug 1388)
sub hotfix_reformat_date {
-
+
$main::lxdebug->enter_sub();
-
+
my $form = $main::form;
my %myconfig = %main::myconfig;
my $locale = $main::locale;
-
+
if ($myconfig{dateformat} ne 'dd.mm.yyyy'){
my $current_dateformat = $myconfig{dateformat};
$myconfig{dateformat} = 'dd.mm.yyyy';