78 |
78 |
sub make_booking {
|
79 |
79 |
my ($self) = @_;
|
80 |
80 |
$main::lxdebug->enter_sub();
|
81 |
|
my @ids = map { $::form->{"trans_id_$_"} } grep { $::form->{"multi_id_$_"} } (1..$::form->{rowcount});
|
|
81 |
my @ids = map { $::form->{"multi_id_$_"} } grep { $::form->{"multi_id_$_"} } (1..$::form->{rowcount});
|
82 |
82 |
my $cnt = 0;
|
83 |
83 |
$main::lxdebug->message(LXDebug->DEBUG2(),"generate for ".$::form->{cbob_chart}." # ".scalar(@ids)." charts");
|
84 |
84 |
if (scalar(@ids) && $::form->{cbob_chart}) {
|
... | ... | |
108 |
108 |
my $cgi = $::request->{cgi};
|
109 |
109 |
|
110 |
110 |
my %column_defs = (
|
111 |
|
'ids' => { 'text' => '<input type="checkbox" id="multi_all" value="1">', 'align' => 'center' },
|
112 |
|
'chart' => { 'text' => $::locale->text('Account'), },
|
113 |
|
'description' => { 'text' => $::locale->text('Description'), },
|
114 |
|
'saldo' => { 'text' => $::locale->text('Saldo'), 'align' => 'right'},
|
115 |
|
'sum_cb' => { 'text' => $::locale->text('Sum CB Transactions'), 'align' => 'right'}, ##close == Schluss
|
116 |
|
'sum_ob' => { 'text' => $::locale->text('Sum OB Transactions'), 'align' => 'right'}, ##open == Eingang
|
|
111 |
'ids' => { raw_header_data => $self->presenter->checkbox_tag("", id => "check_all",
|
|
112 |
checkall => "[data-checkall=1]"), 'align' => 'center' },
|
|
113 |
'chart' => { text => $::locale->text('Account'), },
|
|
114 |
'description' => { text => $::locale->text('Description'), },
|
|
115 |
'saldo' => { text => $::locale->text('Saldo'), 'align' => 'right'},
|
|
116 |
'sum_cb' => { text => $::locale->text('Sum CB Transactions'), 'align' => 'right'}, ##close == Schluss
|
|
117 |
'sum_ob' => { text => $::locale->text('Sum OB Transactions'), 'align' => 'right'}, ##open == Eingang
|
117 |
118 |
);
|
118 |
119 |
my @columns = qw(ids chart description saldo sum_cb sum_ob);
|
119 |
120 |
map { $column_defs{$_}->{visible} = 1 } @columns;
|
... | ... | |
147 |
148 |
my $chart_id = $chart->id;
|
148 |
149 |
my $row = { map { $_ => { 'data' => '' } } @columns };
|
149 |
150 |
$row->{ids} = {
|
150 |
|
'raw_data' => $cgi->hidden('-name' => "trans_id_${idx}", '-value' => $chart_id)
|
151 |
|
. $cgi->checkbox('-name' => "multi_id_${idx}",' id' => "multi_id_id_".$chart_id, '-value' => 1, '-label' => ''),
|
152 |
|
'valign' => 'center',
|
153 |
|
'align' => 'center',
|
|
151 |
'raw_data' => $self->presenter->checkbox_tag("multi_id_${idx}", value => $chart_id, "data-checkall" => 1),
|
|
152 |
'valign' => 'center',
|
|
153 |
'align' => 'center',
|
154 |
154 |
};
|
155 |
155 |
$row->{chart}->{data} = $chart->accno;
|
156 |
156 |
$row->{description}->{data} = $chart->description;
|
... | ... | |
273 |
273 |
sub init_cb_description { $::form->{cb_description} }
|
274 |
274 |
|
275 |
275 |
sub init_charts9000 {
|
276 |
|
# wie geht prüfen von länge auf 4 in rose ?
|
277 |
|
SL::DB::Manager::Chart->get_all( query => [ \ "accno like '9%' and length(accno) = 4"] );
|
278 |
|
#SL::DB::Manager::Chart->get_all( query => [ accno => { like => '9%'}] );
|
|
276 |
SL::DB::Manager::Chart->get_all( query => [ accno => { like => '9%'}] );
|
279 |
277 |
}
|
280 |
278 |
|
281 |
279 |
sub init_charts {
|
Erstellen von Jahresabschluss-Buchungen(3)
Für Auswahl moderne presenter Methoden statt alte cgi Methoden eingebaut.
Fehlende Umbenennung in html Templates für Events korrigiert
Die Auswahl der 9xxx Konten nicht mehr auf 4 Zeichen begrenzt