62d8a85ea8296f5e3469f635b3f376151ce6179f
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

1) <?php
2) 
3) require_role(ROLE_SYSADMIN);
4) 
5) $title = 'Report';
6) 
7) 
8) $year = date("Y")-1;
9) 
Bernd Wurst Korrekte Darstellung von Ab...

Bernd Wurst authored 5 years ago

10) $typeresult = db_query("SELECT id, description, investment FROM buchhaltung.types");
Bernd Wurst Korrekte Dortierung der Rep...

Bernd Wurst authored 6 years ago

11) $dataresult = db_query("SELECT id, date, description, invoice_id, direction, type, amount, tax_rate, gross FROM buchhaltung.transactions WHERE date BETWEEN :from and :to ORDER BY date", array(":from" => $year."-01-01", ":to" => $year."-12-31"));
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

12) 
13) $types = array();
14) $data_by_type = array();
15) $sum_by_type = array();
Bernd Wurst Korrekte Darstellung von Ab...

Bernd Wurst authored 5 years ago

16) $investment_types = array();
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

17) while ($t = $typeresult->fetch()) {
18)     $types[$t['id']] = $t['description'];
19)     $data_by_type[$t['id']] = array();
20)     $sum_by_type[$t['id']] = 0.0;
Bernd Wurst Korrekte Darstellung von Ab...

Bernd Wurst authored 5 years ago

21)     if ($t['investment'] == 1) {
22)         $investment_types[$t['id']] = $t;
23)     }
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

24) }
25) 
26) while ($line = $dataresult->fetch()) {
27)     $data_by_type[$line['type']][] = $line;
28) }
29) 
30) 
31) output("Journal für $year (01.01.$year-31.12.$year, gruppiert nach Buchungskonten)");
32) 
33) DEBUG($types);
Bernd Wurst Korrekte Darstellung von Ab...

Bernd Wurst authored 5 years ago

34) DEBUG($investment_types);
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

35) $net_by_type = array(0 => array(-1 => array(), 0 => array(), 19 => array()));
36) $umsatzsteuer = 0.0;
37) $vorsteuer = 0.0;
38) foreach ($types as $id => $t) {
39)     if (count($data_by_type[$id]) == 0) {
40)         continue;
41)     }
42)     output("<h3>$t</h3>");
Bernd Wurst Korrekte Dortierung der Rep...

Bernd Wurst authored 6 years ago

43)     output('<table style="font-size: 10pt;">');
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

44)     $umsatz19proz = 0.0;
45)     $umsatz0proz = 0.0;
46)     $umsatzandereproz = 0.0;
47)     $netsum = 0.0;
48)     $ustsum = 0.0;
49)     foreach ($data_by_type[$id] as $line) {
50)         $net = $line['amount'];
51)         if ($line['gross'] == 1 && $line['tax_rate'] > 0) {
52)             $net = $net / (1.0+($line['tax_rate']/100));
53)         }
54)         if ($line['direction'] == 'out') {
55)             $net = -$net;
56)         }
57)         $ust = $net * ($line['tax_rate']/100);
58)         if ($line['tax_rate'] == 19.0) {
59)             $umsatz19proz += $net;
60)         } elseif ($line['tax_rate'] == 0.0) {
61)             $umsatz0proz += $net;
62)         } else {
63)             $umsatzandereproz += $net;
64)         }
65)         $netsum += $net;
66)         $ustsum += $ust;
67)         if ($id == 0) {
68)             $umsatzsteuer += $ust;
69)         } else {
70)             $vorsteuer += $ust;
71)         }
72)         $gross = $net + $ust;
73)         $net = str_replace('.', ',', sprintf('%.2f €', $net));
74)         $ust = str_replace('.', ',', sprintf('%.2f €', $ust));
75)         $gross = str_replace('.', ',', sprintf('%.2f €', $gross));
76)         output("<tr><td>".$line['date']."</td><td>".$line['description']."</td><td style=\"text-align: right;\">".$net."</td><td style=\"text-align: right;\">".$ust."</td><td style=\"text-align: right;\">".$gross."</td></tr>\n");
77)     }
78)     if ($id == 0) {
79)         $net_by_type[0][-1] = $umsatzandereproz;
80)         $net_by_type[0][0] = $umsatz0proz;
81)         $net_by_type[0][19] = $umsatz19proz;
82)     } else {
83)         $net_by_type[$id] = $netsum;
84)     }
85)     $netsum = str_replace('.', ',', sprintf('%.2f €', $netsum));
86)     $ustsum = str_replace('.', ',', sprintf('%.2f €', $ustsum));
Bernd Wurst Korrekte Dortierung der Rep...

Bernd Wurst authored 6 years ago

87)     output("<tr><td colspan=\"2\" style=\"font-weight: bold;text-align: right;\">Summe $t:</td><td style=\"font-weight: bold;text-align: right;\">$netsum</td><td style=\"font-weight: bold;text-align: right;\">$ustsum</td><td></td></tr>\n");
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

88)     output('</table>');
89) }
90) 
91) output("<h3>Summen</h3>");
92) 
93) output('<table>');
94) $einnahmensumme = 0.0;
95) output("<tr><td>Einnahmen 19% USt netto</td><td style=\"text-align: right;\">".number_format($net_by_type[0][19], 2, ',', '.')." €</td></tr>");
96) $einnahmensumme += $net_by_type[0][19];
97) output("<tr><td>Einnahmen innergem. Lieferung (steuerfrei §4/1b UStG)</td><td style=\"text-align: right;\">".number_format($net_by_type[0][0], 2, ',', '.')." €</td></tr>");
98) $einnahmensumme += $net_by_type[0][0];
99) output("<tr><td>Einnahmen EU-Ausland (VATMOSS)</td><td style=\"text-align: right;\">".number_format($net_by_type[0][-1], 2, ',', '.')." €</td></tr>");
100) $einnahmensumme += $net_by_type[0][-1];
101) output("<tr><td>Einnahme Umsatzsteuer</td><td style=\"text-align: right;\">".number_format($umsatzsteuer, 2, ',', '.')." €</td></tr>");
102) $einnahmensumme += $umsatzsteuer;
103) 
104) output("<tr><td><b>Summe Einnahmen:</b></td><td style=\"text-align: right;\"><b>".number_format($einnahmensumme, 2, ',', '.')." €</td></tr>");
105) output("<tr><td colspan=\"2\"></td></tr>");
106) $ausgabensumme = 0.0;
107) foreach ($types as $id => $t) {
Bernd Wurst Korrekte Darstellung von Ab...

Bernd Wurst authored 5 years ago

108)     if ($id == 0 || !isset($net_by_type[$id]) || array_key_exists($id, $investment_types)) {
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

109)         continue;
110)     }
111)     $ausgabensumme -= $net_by_type[$id];
112)     output("<tr><td>".$t."</td><td style=\"text-align: right;\">".number_format(-$net_by_type[$id], 2, ',', '.')." €</td></tr>");
113) }
114) 
115) output("<tr><td>Vorsteuer</td><td style=\"text-align: right;\">".number_format(-$vorsteuer, 2, ',', '.')." €</td></tr>");
116) $ausgabensumme -= $vorsteuer;
117) output("<tr><td><b>Summe Ausgaben:</b></td><td style=\"text-align: right;\"><b>".number_format($ausgabensumme, 2, ',', '.')." €</td></tr>");
118) output("<tr><td colspan=\"2\"></td></tr>");
119) 
120) output("<tr><td><b>Überschuss aus laufendem Betrieb:</b></td><td style=\"text-align: right;\"><b>".number_format($einnahmensumme-$ausgabensumme, 2, ',', '.')." €</td></tr>");
121) output('</table>');