Revision 5570a18e
Von Kivitendo Admin vor mehr als 7 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 227 | 227 |
} |
| 228 | 228 |
|
| 229 | 229 |
my $select_eur = q|<option value=""> |. $locale->text('None') .q|</option>\n|;
|
| 230 |
my %eur = ( |
|
| 231 |
1 => "Umsatzerlöse", |
|
| 232 |
2 => "sonstige Erlöse", |
|
| 233 |
3 => "Privatanteile", |
|
| 234 |
4 => "Zinserträge", |
|
| 235 |
5 => "Ausserordentliche Erträge", |
|
| 236 |
6 => "Vereinnahmte Umsatzst.", |
|
| 237 |
7 => "Umsatzsteuererstattungen", |
|
| 238 |
8 => "Wareneingänge", |
|
| 239 |
9 => "Löhne und Gehälter", |
|
| 240 |
10 => "Gesetzl. sozialer Aufw.", |
|
| 241 |
11 => "Mieten", |
|
| 242 |
12 => "Gas, Strom, Wasser", |
|
| 243 |
13 => "Instandhaltung", |
|
| 244 |
14 => "Steuern, Versich., Beiträge", |
|
| 245 |
15 => "Kfz-Steuern", |
|
| 246 |
16 => "Kfz-Versicherungen", |
|
| 247 |
17 => "Sonst. Fahrzeugkosten", |
|
| 248 |
18 => "Werbe- und Reisekosten", |
|
| 249 |
19 => "Instandhaltung u. Werkzeuge", |
|
| 250 |
20 => "Fachzeitschriften, Bücher", |
|
| 251 |
21 => "Miete für Einrichtungen", |
|
| 252 |
22 => "Rechts- und Beratungskosten", |
|
| 253 |
23 => "Bürobedarf, Porto, Telefon", |
|
| 254 |
24 => "Sonstige Aufwendungen", |
|
| 255 |
25 => "Abschreibungen auf Anlagever.", |
|
| 256 |
26 => "Abschreibungen auf GWG", |
|
| 257 |
27 => "Vorsteuer", |
|
| 258 |
28 => "Umsatzsteuerzahlungen", |
|
| 259 |
29 => "Zinsaufwand", |
|
| 260 |
30 => "Ausserordentlicher Aufwand", |
|
| 261 |
31 => "Betriebliche Steuern"); |
|
| 230 |
my %eur = %{ AM->get_eur_categories(\%myconfig, $form) };
|
|
| 262 | 231 |
foreach my $item (sort({ $a <=> $b } keys(%eur))) {
|
| 263 | 232 |
my $text = H($::locale->{iconv_utf8}->convert($eur{$item}));
|
| 264 | 233 |
if ($item == $form->{pos_eur}) {
|
| ... | ... | |
| 285 | 254 |
|
| 286 | 255 |
my $select_bwa = q|<option value=""> |. $locale->text('None') .q|</option>\n|;
|
| 287 | 256 |
|
| 288 |
my %bwapos = ( |
|
| 289 |
1 => 'Umsatzerlöse', |
|
| 290 |
2 => 'Best.Verdg.FE/UE', |
|
| 291 |
3 => 'Aktiv.Eigenleistung', |
|
| 292 |
4 => 'Mat./Wareneinkauf', |
|
| 293 |
5 => 'So.betr.Erlöse', |
|
| 294 |
10 => 'Personalkosten', |
|
| 295 |
11 => 'Raumkosten', |
|
| 296 |
12 => 'Betriebl.Steuern', |
|
| 297 |
13 => 'Vers./Beiträge', |
|
| 298 |
14 => 'Kfz.Kosten o.St.', |
|
| 299 |
15 => 'Werbe-Reisek.', |
|
| 300 |
16 => 'Kosten Warenabgabe', |
|
| 301 |
17 => 'Abschreibungen', |
|
| 302 |
18 => 'Rep./instandhlt.', |
|
| 303 |
19 => 'Übrige Steuern', |
|
| 304 |
20 => 'Sonst.Kosten', |
|
| 305 |
30 => 'Zinsauwand', |
|
| 306 |
31 => 'Sonst.neutr.Aufw.', |
|
| 307 |
32 => 'Zinserträge', |
|
| 308 |
33 => 'Sonst.neutr.Ertrag', |
|
| 309 |
34 => 'Verr.kalk.Kosten', |
|
| 310 |
35 => 'Steuern Eink.u.Ertr.'); |
|
| 257 |
my %bwapos = %{ AM->get_bwa_categories(\%myconfig, $form) };
|
|
| 311 | 258 |
foreach my $item (sort({ $a <=> $b } keys %bwapos)) {
|
| 312 | 259 |
my $text = H($::locale->{iconv_utf8}->convert($bwapos{$item}));
|
| 313 | 260 |
if ($item == $form->{pos_bwa}) {
|
Auch abrufbar als: Unified diff
Kontendaten bearbeiten - Kategorien für EÜR/BWA aus DB
Die hartkodierten Kategorien für die Dropdowns entfernt und stattdessen
aus den Views eur_categories und bwa_categories auslesen.