| 830 |
830 |
}
|
| 831 |
831 |
|
| 832 |
832 |
sub list_buchungsgruppe {
|
| 833 |
|
$main::lxdebug->enter_sub();
|
| 834 |
|
|
| 835 |
|
my $form = $main::form;
|
| 836 |
|
my %myconfig = %main::myconfig;
|
| 837 |
|
my $locale = $main::locale;
|
| 838 |
|
|
| 839 |
|
$main::auth->assert('config');
|
| 840 |
|
|
| 841 |
|
AM->buchungsgruppe(\%myconfig, \%$form);
|
| 842 |
|
|
| 843 |
|
$form->{callback} = "am.pl?action=list_buchungsgruppe";
|
| 844 |
|
|
| 845 |
|
my $callback = $form->escape($form->{callback});
|
| 846 |
|
|
| 847 |
|
$form->{title} = $locale->text('Buchungsgruppen');
|
| 848 |
|
|
| 849 |
|
my @column_index = qw(up down description inventory_accno
|
| 850 |
|
income_accno_0 expense_accno_0
|
| 851 |
|
income_accno_1 expense_accno_1
|
| 852 |
|
income_accno_2 expense_accno_2
|
| 853 |
|
income_accno_3 expense_accno_3 );
|
| 854 |
|
my %column_header;
|
| 855 |
|
$column_header{up} =
|
| 856 |
|
qq|<th class="listheading" width="16">|
|
| 857 |
|
. qq|<img src="image/up.png" alt="| . $locale->text("up") . qq|">|
|
| 858 |
|
. qq|</th>|;
|
| 859 |
|
$column_header{down} =
|
| 860 |
|
qq|<th class="listheading" width="16">|
|
| 861 |
|
. qq|<img src="image/down.png" alt="| . $locale->text("down") . qq|">|
|
| 862 |
|
. qq|</th>|;
|
| 863 |
|
$column_header{description} =
|
| 864 |
|
qq|<th class="listheading" width="40%">|
|
| 865 |
|
. $locale->text('Description')
|
| 866 |
|
. qq|</th>|;
|
| 867 |
|
$column_header{inventory_accno} =
|
| 868 |
|
qq|<th class=listheading>|
|
| 869 |
|
. $locale->text('Bestandskonto')
|
| 870 |
|
. qq|</th>|;
|
| 871 |
|
$column_header{income_accno_0} =
|
| 872 |
|
qq|<th class=listheading>|
|
| 873 |
|
. $locale->text('National Revenues')
|
| 874 |
|
. qq|</th>|;
|
| 875 |
|
$column_header{expense_accno_0} =
|
| 876 |
|
qq|<th class=listheading>|
|
| 877 |
|
. $locale->text('National Expenses')
|
| 878 |
|
. qq|</th>|;
|
| 879 |
|
$column_header{income_accno_1} =
|
| 880 |
|
qq|<th class=listheading>|
|
| 881 |
|
. $locale->text('Revenues EU with UStId')
|
| 882 |
|
. qq|</th>|;
|
| 883 |
|
$column_header{expense_accno_1} =
|
| 884 |
|
qq|<th class=listheading>|
|
| 885 |
|
. $locale->text('Expenses EU with UStId')
|
| 886 |
|
. qq|</th>|;
|
| 887 |
|
$column_header{income_accno_2} =
|
| 888 |
|
qq|<th class=listheading>|
|
| 889 |
|
. $locale->text('Revenues EU without UStId')
|
| 890 |
|
. qq|</th>|;
|
| 891 |
|
$column_header{expense_accno_2} =
|
| 892 |
|
qq|<th class=listheading>|
|
| 893 |
|
. $locale->text('Expenses EU without UStId')
|
| 894 |
|
. qq|</th>|;
|
| 895 |
|
$column_header{income_accno_3} =
|
| 896 |
|
qq|<th class=listheading>|
|
| 897 |
|
. $locale->text('Foreign Revenues')
|
| 898 |
|
. qq|</th>|;
|
| 899 |
|
$column_header{expense_accno_3} =
|
| 900 |
|
qq|<th class=listheading>|
|
| 901 |
|
. $locale->text('Foreign Expenses')
|
| 902 |
|
. qq|</th>|;
|
| 903 |
|
$form->header;
|
| 904 |
|
|
| 905 |
|
print qq|
|
| 906 |
|
<body>
|
| 907 |
|
|
| 908 |
|
<table width=100%>
|
| 909 |
|
<tr>
|
| 910 |
|
<th class=listtop>$form->{title}</th>
|
| 911 |
|
</tr>
|
| 912 |
|
<tr height="5"></tr>
|
| 913 |
|
<tr>
|
| 914 |
|
<td>
|
| 915 |
|
<table width=100%>
|
| 916 |
|
<tr class=listheading>
|
| 917 |
|
|;
|
| 918 |
|
|
| 919 |
|
map { print "$column_header{$_}\n" } @column_index;
|
| 920 |
|
|
| 921 |
|
print qq|
|
| 922 |
|
</tr>
|
| 923 |
|
|;
|
| 924 |
|
|
| 925 |
|
my $swap_link = qq|am.pl?action=swap_buchungsgruppen&|;
|
| 926 |
|
|
| 927 |
|
my $row = 0;
|
| 928 |
|
my ($i, %column_data);
|
| 929 |
|
foreach my $ref (@{ $form->{ALL} }) {
|
| 930 |
|
|
| 931 |
|
$i++;
|
| 932 |
|
$i %= 2;
|
| 933 |
|
|
| 934 |
|
print qq|
|
| 935 |
|
<tr valign=top class=listrow$i>
|
| 936 |
|
|;
|
| 937 |
|
|
| 938 |
|
if ($row) {
|
| 939 |
|
my $pref = $form->{ALL}->[$row - 1];
|
| 940 |
|
$column_data{up} =
|
| 941 |
|
qq|<td align="center" valign="center" width="16">| .
|
| 942 |
|
qq|<a href="${swap_link}id1=$ref->{id}&id2=$pref->{id}">| .
|
| 943 |
|
qq|<img border="0" src="image/up.png" alt="| . $locale->text("up") . qq|">| .
|
| 944 |
|
qq|</a></td>|;
|
| 945 |
|
} else {
|
| 946 |
|
$column_data{up} = qq|<td width="16"> </td>|;
|
| 947 |
|
}
|
| 948 |
|
|
| 949 |
|
if ($row == (scalar(@{ $form->{ALL} }) - 1)) {
|
| 950 |
|
$column_data{down} = qq|<td width="16"> </td>|;
|
| 951 |
|
} else {
|
| 952 |
|
my $nref = $form->{ALL}->[$row + 1];
|
| 953 |
|
$column_data{down} =
|
| 954 |
|
qq|<td align="center" valign="center" width="16">| .
|
| 955 |
|
qq|<a href="${swap_link}id1=$ref->{id}&id2=$nref->{id}">| .
|
| 956 |
|
qq|<img border="0" src="image/down.png" alt="| . $locale->text("down") . qq|">| .
|
| 957 |
|
qq|</a></td>|;
|
| 958 |
|
}
|
| 959 |
|
|
| 960 |
|
$column_data{description} = qq|<td><a href="am.pl?action=edit_buchungsgruppe&id=$ref->{id}&callback=$callback">$ref->{description}</td>|;
|
| 961 |
|
$column_data{inventory_accno} = qq|<td align=right>$ref->{inventory_accno}</td>|;
|
| 962 |
|
$column_data{income_accno_0} =
|
| 963 |
|
qq|<td align=right>$ref->{income_accno_0}</td>|;
|
| 964 |
|
$column_data{expense_accno_0} = qq|<td align=right>$ref->{expense_accno_0}</td>|;
|
| 965 |
|
$column_data{income_accno_1} =
|
| 966 |
|
qq|<td align=right>$ref->{income_accno_1}</td>|;
|
| 967 |
|
$column_data{expense_accno_1} = qq|<td align=right>$ref->{expense_accno_1}</td>|;
|
| 968 |
|
$column_data{income_accno_2} =
|
| 969 |
|
qq|<td align=right>$ref->{income_accno_2}</td>|;
|
| 970 |
|
$column_data{expense_accno_2} = qq|<td align=right>$ref->{expense_accno_2}</td>|;
|
| 971 |
|
$column_data{income_accno_3} =
|
| 972 |
|
qq|<td align=right>$ref->{income_accno_3}</td>|;
|
| 973 |
|
$column_data{expense_accno_3} = qq|<td align=right>$ref->{expense_accno_3}</td>|;
|
| 974 |
|
|
| 975 |
|
map { print "$column_data{$_}\n" } @column_index;
|
| 976 |
|
|
| 977 |
|
print qq|
|
| 978 |
|
</tr>
|
| 979 |
|
|;
|
| 980 |
|
|
| 981 |
|
$row++;
|
| 982 |
|
}
|
| 983 |
|
|
| 984 |
|
print qq|
|
| 985 |
|
</table>
|
| 986 |
|
</td>
|
| 987 |
|
</tr>
|
| 988 |
|
<tr>
|
| 989 |
|
<td><hr size=3 noshade></td>
|
| 990 |
|
</tr>
|
| 991 |
|
</table>
|
| 992 |
|
|
| 993 |
|
<br>
|
| 994 |
|
<form method=post action=am.pl>
|
| 995 |
|
|
| 996 |
|
<input name=callback type=hidden value="$form->{callback}">
|
| 997 |
|
|
| 998 |
|
<input type=hidden name=type value=buchungsgruppe>
|
|
833 |
$::lxdebug->enter_sub;
|
|
834 |
$::auth->assert('config');
|
| 999 |
835 |
|
| 1000 |
|
<input class=submit type=submit name=action value="|
|
| 1001 |
|
. $locale->text('Add') . qq|">
|
|
836 |
AM->buchungsgruppe(\%::myconfig, $::form);
|
| 1002 |
837 |
|
| 1003 |
|
</form>
|
|
838 |
$::form->{callback} = "am.pl?action=list_buchungsgruppe";
|
|
839 |
$::form->{title} = $::locale->text('Buchungsgruppen');
|
|
840 |
$::form->header;
|
| 1004 |
841 |
|
| 1005 |
|
</body>
|
| 1006 |
|
</html>
|
| 1007 |
|
|;
|
|
842 |
print $::form->parse_html_template('am/buchungsgruppe_list', {
|
|
843 |
swap_link => qq|am.pl?action=swap_buchungsgruppen&|,
|
|
844 |
});
|
| 1008 |
845 |
|
| 1009 |
|
$main::lxdebug->leave_sub();
|
|
846 |
$::lxdebug->leave_sub;
|
| 1010 |
847 |
}
|
| 1011 |
848 |
|
| 1012 |
849 |
sub buchungsgruppe_header {
|
am/list_buchungsgruppe nach template ausgelagert