+ if ($mapping->{typ} eq 'H') {
+ # process Haben
+ $sql = "SELECT SUM(ac.amount) AS saldo
+ FROM acc_trans ac
+ JOIN chart c ON (c.id = ac.chart_id)
+ WHERE (ac.transdate <= '31.12.$year')
+ AND (c.accno = '$mapping->{fromacc}') ";
+ my $result = SL::DBUtils::selectall_hashref_query($::form, $::form->get_standard_dbh, $sql);
+ $fromacc{$mapping->{fromacc}} = $result->[0]->{saldo};
+ $toacc{$mapping->{toacc}} += $result->[0]->{saldo};
+ }
+ elsif ($mapping->{typ} eq 'S') {
+ # process Soll
+ $sql = "SELECT SUM(ac.amount)* -1 AS saldo
+ FROM acc_trans ac
+ JOIN chart c ON (c.id = ac.chart_id)
+ WHERE (ac.transdate <= '31.12.$year')
+ AND (c.accno = '$mapping->{fromacc}') ";
+ my @result = SL::DBUtils::selectfirst_array_query($::form, $::form->get_standard_dbh, $sql);
+ $fromacc{$mapping->{fromacc}} = $result[0];
+ $toacc{$mapping->{toacc}} += $result[0];
+ }
+# elsif ($mapping->{typ} eq 'V') {
+# # process Vorjahr
+# $fromacc{$mapping->{fromacc}} = 300.;
+# $toacc{$mapping->{toacc}} = 300.;
+# }
+# elsif ($mapping->{typ} eq 'A') {
+# # process Aktjahr
+# $fromacc{$mapping->{fromacc}} = 400.;
+# $toacc{$mapping->{toacc}} = 400.;
+# }
+ elsif ($mapping->{typ} eq 'X') {
+ # add to other account
+ $toacc{$mapping->{toacc}} += $toacc{$mapping->{fromacc}};
+ }
+ elsif ($mapping->{typ} eq 'Y') {
+ # substract from other account
+ $toacc{$mapping->{toacc}} -= $toacc{$mapping->{fromacc}};
+ }
+ elsif ($mapping->{typ} eq 'R') {
+ # rule based
+ my $sql = rule2sql($mapping->{fromacc}, $year);
+ $::lxdebug->message(5, "sql=$sql");
+ my @result = SL::DBUtils::selectfirst_array_query($::form, $::form->get_standard_dbh, $sql);
+ $toacc{$mapping->{toacc}} += $result[0];
+ }
+ elsif ($mapping->{typ} eq 'C') {
+ # constant value
+ ; # do nothing here
+ }
+ else {
+ die "Error: Invalid mapping type: $mapping->{typ}\n";
+ }
+ }
+
+ $self->report(SL::ReportGenerator->new(\%::myconfig, $::form));
+
+ my @columns = (qw(name amount));
+
+ my %column_defs = (
+ name => { text => 'Konto', align => 'left' },
+ amount => { text => 'Betrag' , align => 'right' },
+ );
+
+ $self->report->set_options(
+ std_column_visibility => 1,
+ controller_class => 'Mebil',
+ output_format => 'HTML',
+ raw_top_info_text => $self->render('mebil/report_top', { output => 0 }, YEARS_TO_LIST => [ reverse(($self->year - 10)..($self->year + 5)) ]),
+ title => t8('mebil - Mapping: values for #1', $self->year),
+# allow_pdf_export => 1,
+# allow_csv_export => 1,
+ );
+ $self->report->set_columns(%column_defs);
+ $self->report->set_column_order(@columns);
+# $self->report->set_export_options(qw(list year subtotals_per_quarter salesman_id));
+ $self->report->set_options_from_form;
+ $self->add_data_sorted(\%fromacc);
+ $self->add_data_sorted(\%toacc);
+