Revision 14d71a6d
Von Sven Schöling vor mehr als 8 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 214 | 214 |
} |
| 215 | 215 |
|
| 216 | 216 |
my $select_eur = q|<option value=""> |. $locale->text('None') .q|</option>\n|;
|
| 217 |
my %eur; |
|
| 218 |
if (($form->{country_mode} = SL::DB::Default->get->country_mode) eq 'CH') {
|
|
| 219 |
%eur = ( |
|
| 220 |
1 => "Ertrag", |
|
| 221 |
6 => "Aufwand", |
|
| 222 |
); |
|
| 223 |
} else {
|
|
| 224 |
%eur = ( |
|
| 225 |
1 => "Umsatzerlöse", |
|
| 226 |
2 => "sonstige Erlöse", |
|
| 227 |
3 => "Privatanteile", |
|
| 228 |
4 => "Zinserträge", |
|
| 229 |
5 => "Ausserordentliche Erträge", |
|
| 230 |
6 => "Vereinnahmte Umsatzst.", |
|
| 231 |
7 => "Umsatzsteuererstattungen", |
|
| 232 |
8 => "Wareneingänge", |
|
| 233 |
9 => "Löhne und Gehälter", |
|
| 234 |
10 => "Gesetzl. sozialer Aufw.", |
|
| 235 |
11 => "Mieten", |
|
| 236 |
12 => "Gas, Strom, Wasser", |
|
| 237 |
13 => "Instandhaltung", |
|
| 238 |
14 => "Steuern, Versich., Beiträge", |
|
| 239 |
15 => "Kfz-Steuern", |
|
| 240 |
16 => "Kfz-Versicherungen", |
|
| 241 |
17 => "Sonst. Fahrzeugkosten", |
|
| 242 |
18 => "Werbe- und Reisekosten", |
|
| 243 |
19 => "Instandhaltung u. Werkzeuge", |
|
| 244 |
20 => "Fachzeitschriften, Bücher", |
|
| 245 |
21 => "Miete für Einrichtungen", |
|
| 246 |
22 => "Rechts- und Beratungskosten", |
|
| 247 |
23 => "Bürobedarf, Porto, Telefon", |
|
| 248 |
24 => "Sonstige Aufwendungen", |
|
| 249 |
25 => "Abschreibungen auf Anlagever.", |
|
| 250 |
26 => "Abschreibungen auf GWG", |
|
| 251 |
27 => "Vorsteuer", |
|
| 252 |
28 => "Umsatzsteuerzahlungen", |
|
| 253 |
29 => "Zinsaufwand", |
|
| 254 |
30 => "Ausserordentlicher Aufwand", |
|
| 255 |
31 => "Betriebliche Steuern", |
|
| 256 |
); |
|
| 257 |
} |
|
| 217 |
my %eur = ( |
|
| 218 |
1 => "Umsatzerlöse", |
|
| 219 |
2 => "sonstige Erlöse", |
|
| 220 |
3 => "Privatanteile", |
|
| 221 |
4 => "Zinserträge", |
|
| 222 |
5 => "Ausserordentliche Erträge", |
|
| 223 |
6 => "Vereinnahmte Umsatzst.", |
|
| 224 |
7 => "Umsatzsteuererstattungen", |
|
| 225 |
8 => "Wareneingänge", |
|
| 226 |
9 => "Löhne und Gehälter", |
|
| 227 |
10 => "Gesetzl. sozialer Aufw.", |
|
| 228 |
11 => "Mieten", |
|
| 229 |
12 => "Gas, Strom, Wasser", |
|
| 230 |
13 => "Instandhaltung", |
|
| 231 |
14 => "Steuern, Versich., Beiträge", |
|
| 232 |
15 => "Kfz-Steuern", |
|
| 233 |
16 => "Kfz-Versicherungen", |
|
| 234 |
17 => "Sonst. Fahrzeugkosten", |
|
| 235 |
18 => "Werbe- und Reisekosten", |
|
| 236 |
19 => "Instandhaltung u. Werkzeuge", |
|
| 237 |
20 => "Fachzeitschriften, Bücher", |
|
| 238 |
21 => "Miete für Einrichtungen", |
|
| 239 |
22 => "Rechts- und Beratungskosten", |
|
| 240 |
23 => "Bürobedarf, Porto, Telefon", |
|
| 241 |
24 => "Sonstige Aufwendungen", |
|
| 242 |
25 => "Abschreibungen auf Anlagever.", |
|
| 243 |
26 => "Abschreibungen auf GWG", |
|
| 244 |
27 => "Vorsteuer", |
|
| 245 |
28 => "Umsatzsteuerzahlungen", |
|
| 246 |
29 => "Zinsaufwand", |
|
| 247 |
30 => "Ausserordentlicher Aufwand", |
|
| 248 |
31 => "Betriebliche Steuern"); |
|
| 258 | 249 |
foreach my $item (sort({ $a <=> $b } keys(%eur))) {
|
| 259 | 250 |
my $text = H($::locale->{iconv_utf8}->convert($eur{$item}));
|
| 260 | 251 |
if ($item == $form->{pos_eur}) {
|
| ... | ... | |
| 265 | 256 |
|
| 266 | 257 |
} |
| 267 | 258 |
|
| 259 |
my $select_er = q|<option value=""> |. $locale->text('None') .q|</option>\n|;
|
|
| 260 |
my %er = ( |
|
| 261 |
1 => "Ertrag", |
|
| 262 |
6 => "Aufwand"); |
|
| 263 |
foreach my $item (sort({ $a <=> $b } keys(%er))) {
|
|
| 264 |
my $text = H($::locale->{iconv_utf8}->convert($eur{$item}));
|
|
| 265 |
if ($item == $form->{pos_er}) {
|
|
| 266 |
$select_er .= qq|<option value=$item selected>|. sprintf("%.2d", $item) .qq|. $text</option>\n|;
|
|
| 267 |
} else {
|
|
| 268 |
$select_er .= qq|<option value=$item>|. sprintf("%.2d", $item) .qq|. $text</option>\n|;
|
|
| 269 |
} |
|
| 270 |
|
|
| 271 |
} |
|
| 272 |
|
|
| 268 | 273 |
my $select_bwa = q|<option value=""> |. $locale->text('None') .q|</option>\n|;
|
| 269 | 274 |
|
| 270 | 275 |
my %bwapos = ( |
| ... | ... | |
| 367 | 372 |
select_bwa => $select_bwa, |
| 368 | 373 |
select_bilanz => $select_bilanz, |
| 369 | 374 |
select_eur => $select_eur, |
| 375 |
select_er => $select_er, |
|
| 370 | 376 |
}; |
| 371 | 377 |
|
| 372 | 378 |
# Ausgabe des Templates |
Auch abrufbar als: Unified diff
Erfolgsrechnung: von pos_eur auf pos_er gelegt.