- $main::lxdebug->enter_sub();
-
- my $form = $main::form;
- my %myconfig = %main::myconfig;
- my $locale = $main::locale;
-
- $main::auth->assert('config');
-
- AM->buchungsgruppe(\%myconfig, \%$form);
-
- $form->{callback} = "am.pl?action=list_buchungsgruppe";
-
- my $callback = $form->escape($form->{callback});
-
- $form->{title} = $locale->text('Buchungsgruppen');
-
- my @column_index = qw(up down description inventory_accno
- income_accno_0 expense_accno_0
- income_accno_1 expense_accno_1
- income_accno_2 expense_accno_2
- income_accno_3 expense_accno_3 );
- my %column_header;
- $column_header{up} =
- qq|<th class="listheading" width="16">|
- . qq|<img src="image/up.png" alt="| . $locale->text("up") . qq|">|
- . qq|</th>|;
- $column_header{down} =
- qq|<th class="listheading" width="16">|
- . qq|<img src="image/down.png" alt="| . $locale->text("down") . qq|">|
- . qq|</th>|;
- $column_header{description} =
- qq|<th class="listheading" width="40%">|
- . $locale->text('Description')
- . qq|</th>|;
- $column_header{inventory_accno} =
- qq|<th class=listheading>|
- . $locale->text('Bestandskonto')
- . qq|</th>|;
- $column_header{income_accno_0} =
- qq|<th class=listheading>|
- . $locale->text('National Revenues')
- . qq|</th>|;
- $column_header{expense_accno_0} =
- qq|<th class=listheading>|
- . $locale->text('National Expenses')
- . qq|</th>|;
- $column_header{income_accno_1} =
- qq|<th class=listheading>|
- . $locale->text('Revenues EU with UStId')
- . qq|</th>|;
- $column_header{expense_accno_1} =
- qq|<th class=listheading>|
- . $locale->text('Expenses EU with UStId')
- . qq|</th>|;
- $column_header{income_accno_2} =
- qq|<th class=listheading>|
- . $locale->text('Revenues EU without UStId')
- . qq|</th>|;
- $column_header{expense_accno_2} =
- qq|<th class=listheading>|
- . $locale->text('Expenses EU without UStId')
- . qq|</th>|;
- $column_header{income_accno_3} =
- qq|<th class=listheading>|
- . $locale->text('Foreign Revenues')
- . qq|</th>|;
- $column_header{expense_accno_3} =
- qq|<th class=listheading>|
- . $locale->text('Foreign Expenses')
- . qq|</th>|;
- $form->header;