1 package SL::Controller::Mebil;
5 use parent qw(SL::Controller::Base);
7 #use SL::Controller::Helper::ReportGenerator;
8 use SL::ReportGenerator;
11 use SL::Locale::String; # t8
16 use SL::mebil::Mapping;
18 use Rose::Object::MakeMethods::Generic (
19 scalar => [ qw(report number_columns year current_year objects subtotals_per_quarter salesman_id) ],
20 'scalar --get_set_init' => [ qw(employees types data) ],
24 $::lxdebug->enter_sub;
25 $::lxdebug->message(5, 'controller=mebil/action=map');
28 $::form->header(no_layout => 1);
30 print "<h1>Mebil running</h1>";
32 my $sql = "SELECT chart_id,xbrl_tag from mebil_mapping";
33 my $result = SL::DBUtils::do_query($::form, $::form->get_standard_dbh, $sql);
34 $::lxdebug->message(5, "result= $result");
35 print "$result<br>\n";
37 my @r = SL::DBUtils::selectall_hashref_query($::form, $::form->get_standard_dbh, $sql);
38 print ref($r[1])||"SCALAR";
41 while (my($k,$v) = each(%$fst)) {
42 print $k, " : ", $v, "</br>\n";
48 print "<p>Mebil ready</p>";
49 $::lxdebug->leave_sub;
53 $::lxdebug->enter_sub;
56 # call model -> diese Zeile ist fraglich, war ein Konflikt
57 #$self->{data} = DB::MebilMapping::getMappings($::form->get_standard_dbh);
59 $::form->{title} = $::locale->text('Mebil Map');
61 my $mapping = new SL::mebil::Mapping($::form, $::form->get_standard_dbh);
62 $self->{data} = $mapping->get_mapping();
64 $self->prepare_report;
67 $::lxdebug->leave_sub;
71 $::lxdebug->enter_sub;
74 $self->year($::form->{year} || DateTime->today->year - 1);
76 $::form->{title} = $::locale->text('Mebil Map');
78 my $mapping = new SL::mebil::Mapping($::form, $::form->get_standard_dbh);
80 (my $fromacc, my $toacc) = $mapping->calc_mapping($self->{year});
82 $self->report(SL::ReportGenerator->new(\%::myconfig, $::form));
84 my @columns = (qw(name amount));
87 name => { text => 'Konto', align => 'left' },
88 amount => { text => 'Betrag' , align => 'right' },
91 $self->report->set_options(
92 std_column_visibility => 1,
93 controller_class => 'Mebil',
94 output_format => 'HTML',
95 raw_top_info_text => $self->render('mebil/report_top', { output => 0 }, YEARS_TO_LIST => [ reverse(($self->year - 10)..($self->year + 5)) ]),
96 title => t8('mebil - Mapping: values for #1', $self->year),
97 # allow_pdf_export => 1,
98 # allow_csv_export => 1,
100 $self->report->set_columns(%column_defs);
101 $self->report->set_column_order(@columns);
102 # $self->report->set_export_options(qw(list year subtotals_per_quarter salesman_id));
103 $self->report->set_options_from_form;
104 $self->add_data_sorted($fromacc);
105 $self->add_data_sorted($toacc);
107 $::lxdebug->leave_sub;
108 return $self->report->generate_with_headers;
110 sub add_data_sorted {
112 my $data = shift; # hash reference
114 foreach my $key (sort keys %$data) {
116 name => { data => $key },
117 amount => { data => $::form->format_amount(\%::myconfig, $data->{$key}, 2) },
119 $self->report->add_data(\%data);
126 $self->report(SL::ReportGenerator->new(\%::myconfig, $::form));
128 my @columns = (qw(fromacc typ toacc));
130 #$self->number_columns([ grep { !m/^(?:month|year|quarter)$/ } @columns ]);
133 fromacc => { text => 'Quelle', align => 'left' },
134 typ => { text => 'Typ' , align => 'right' },
135 toacc => { text => 'Ziel' , align => 'left' },
138 #$column_defs{$_}->{align} = 'right' for @columns;
140 $self->report->set_options(
141 std_column_visibility => 1,
142 controller_class => 'Mebil',
143 output_format => 'HTML',
144 # raw_top_info_text => $self->render('financial_overview/report_top', { output => 0 }, YEARS_TO_LIST => [ reverse(($self->current_year - 10)..($self->current_year + 5)) ]),
145 title => 'mebil - Mapping',
146 # allow_pdf_export => 1,
147 # allow_csv_export => 1,
149 $self->report->set_columns(%column_defs);
150 $self->report->set_column_order(@columns);
151 # $self->report->set_export_options(qw(list year subtotals_per_quarter salesman_id));
152 $self->report->set_options_from_form;
157 # my @visible_columns = $self->report->get_visible_columns;
158 # my @type_columns = @{ $self->types };
159 # my @non_type_columns = grep { my $c = $_; none { $c eq $_ } @type_columns } @visible_columns;
161 foreach my $mapping (@{ $self->{data} }) {
163 fromacc => { data => $mapping->{fromacc} },
164 typ => { data => $mapping->{typ} },
165 toacc => { data => $mapping->{toacc} },
167 $self->report->add_data(\%data);
170 return $self->report->generate_with_headers;