354c05a4ddd678c49bcbba458bffa7d13482139a
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) 
Hanno Böck codingstyle, spaces between...

Hanno Böck authored 1 year ago

8) $year = date("Y") - 1;
Bernd Wurst Erlaube das Ausgeben des Re...

Bernd Wurst authored 5 years ago

9) if (isset($_GET['year'])) {
10)     $year = (int) $_GET['year'];
11) }
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

12) 
Bernd Wurst Korrekte Darstellung von Ab...

Bernd Wurst authored 5 years ago

13) $typeresult = db_query("SELECT id, description, investment FROM buchhaltung.types");
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

14) $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", [":from" => $year . "-01-01", ":to" => $year . "-12-31"]);
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

15) 
Hanno Böck Codingstyle PSR12 + array s...

Hanno Böck authored 3 years ago

16) $types = [];
17) $data_by_type = [];
18) $sum_by_type = [];
19) $investment_types = [];
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

20) while ($t = $typeresult->fetch()) {
21)     $types[$t['id']] = $t['description'];
Hanno Böck Codingstyle PSR12 + array s...

Hanno Böck authored 3 years ago

22)     $data_by_type[$t['id']] = [];
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

23)     $sum_by_type[$t['id']] = 0.0;
Bernd Wurst Korrekte Darstellung von Ab...

Bernd Wurst authored 5 years ago

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

Bernd Wurst authored 7 years ago

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

Bernd Wurst authored 5 years ago

37) DEBUG($investment_types);
Hanno Böck Codingstyle PSR12 + array s...

Hanno Böck authored 3 years ago

38) $net_by_type = [0 => [-1 => [], 0 => [], 19 => []]];
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

39) $umsatzsteuer = 0.0;
Hanno Böck Codingstyle PSR12 + array s...

Hanno Böck authored 3 years ago

40) $ustbetraege = [];
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

41) $vorsteuer = 0.0;
42) foreach ($types as $id => $t) {
Hanno Böck codingstyle, spaces between...

Hanno Böck authored 1 year ago

43)     if (count($data_by_type[$id]) == 0 || $t == 'Privatentnahme') {
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

44)         continue;
45)     }
46)     output("<h3>$t</h3>");
Bernd Wurst Korrekte Dortierung der Rep...

Bernd Wurst authored 6 years ago

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

Bernd Wurst authored 7 years ago

48)     $umsatz19proz = 0.0;
49)     $umsatz0proz = 0.0;
50)     $umsatzandereproz = 0.0;
51)     $netsum = 0.0;
52)     $ustsum = 0.0;
53)     foreach ($data_by_type[$id] as $line) {
54)         $net = $line['amount'];
55)         if ($line['gross'] == 1 && $line['tax_rate'] > 0) {
Hanno Böck codingstyle, spaces between...

Hanno Böck authored 1 year ago

56)             $net = $net / (1.0 + ($line['tax_rate'] / 100));
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

57)         }
58)         if ($line['direction'] == 'out') {
59)             $net = -$net;
60)         }
Hanno Böck codingstyle, spaces between...

Hanno Böck authored 1 year ago

61)         $ust = $net * ($line['tax_rate'] / 100);
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

62)         if ($line['tax_rate'] == 19.0) {
63)             $umsatz19proz += $net;
64)         } elseif ($line['tax_rate'] == 0.0) {
65)             $umsatz0proz += $net;
66)         } else {
67)             $umsatzandereproz += $net;
68)         }
69)         $netsum += $net;
70)         $ustsum += $ust;
71)         if ($id == 0) {
Bernd Wurst Umsatzsteuer besser aufschl...

Bernd Wurst authored 5 years ago

72)             if (!isset($ustbetraege[$line['tax_rate']])) {
73)                 $ustbetraege[$line['tax_rate']] = 0;
74)             }
75)             $ustbetraege[$line['tax_rate']] += $ust;
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

76)             $umsatzsteuer += $ust;
77)         } else {
78)             $vorsteuer += $ust;
79)         }
80)         $gross = $net + $ust;
81)         $net = str_replace('.', ',', sprintf('%.2f €', $net));
82)         $ust = str_replace('.', ',', sprintf('%.2f €', $ust));
83)         $gross = str_replace('.', ',', sprintf('%.2f €', $gross));
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

84)         output("<tr><td>" . $line['date'] . "</td><td>" . $line['description'] . "</td><td style=\"text-align: right;\">" . $net . "</td><td style=\"text-align: right;\">" . $line['tax_rate'] . "%</td><td style=\"text-align: right;\">" . $ust . "</td><td style=\"text-align: right;\">" . $gross . "</td></tr>\n");
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

85)     }
86)     if ($id == 0) {
87)         $net_by_type[0][-1] = $umsatzandereproz;
88)         $net_by_type[0][0] = $umsatz0proz;
89)         $net_by_type[0][19] = $umsatz19proz;
90)     } else {
91)         $net_by_type[$id] = $netsum;
92)     }
93)     $netsum = str_replace('.', ',', sprintf('%.2f €', $netsum));
94)     $ustsum = str_replace('.', ',', sprintf('%.2f €', $ustsum));
Bernd Wurst Umsatzsteuer besser aufschl...

Bernd Wurst authored 5 years ago

95)     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></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

96)     output('</table>');
97) }
98) 
99) output("<h3>Summen</h3>");
100) 
101) output('<table>');
102) $einnahmensumme = 0.0;
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

103) output("<tr><td>Einnahmen 19% USt netto</td><td style=\"text-align: right;\">" . number_format($net_by_type[0][19], 2, ',', '.') . " €</td></tr>");
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

104) $einnahmensumme += $net_by_type[0][19];
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

105) output("<tr><td>Einnahme Umsatzsteuer 19%</td><td style=\"text-align: right;\">" . number_format($ustbetraege[19], 2, ',', '.') . " €</td></tr>");
Bernd Wurst Umsatzsteuer besser aufschl...

Bernd Wurst authored 5 years ago

106) $einnahmensumme += $ustbetraege[19];
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

107) 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>");
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

108) $einnahmensumme += $net_by_type[0][0];
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

109) output("<tr><td>Einnahmen andere Steuersätze</td><td style=\"text-align: right;\">" . number_format($net_by_type[0][-1], 2, ',', '.') . " €</td></tr>");
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

110) $einnahmensumme += $net_by_type[0][-1];
Bernd Wurst Umsatzsteuer besser aufschl...

Bernd Wurst authored 5 years ago

111) $einzelust = '';
112) foreach ($ustbetraege as $satz => $ust) {
113)     if ($satz == 0 || $satz == 19) {
114)         continue;
115)     }
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

116)     output("<tr><td>- Umsatzsteuer $satz%</td><td style=\"text-align: right;\">" . number_format($ust, 2, ',', '.') . " €</td></tr>");
Bernd Wurst Umsatzsteuer besser aufschl...

Bernd Wurst authored 5 years ago

117)     $einnahmensumme += $ust;
118) }
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

119) 
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

120) output("<tr><td><b>Summe Einnahmen:</b></td><td style=\"text-align: right;\"><b>" . number_format($einnahmensumme, 2, ',', '.') . " €</td></tr>");
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

121) output("<tr><td colspan=\"2\"></td></tr>");
122) $ausgabensumme = 0.0;
123) foreach ($types as $id => $t) {
Bernd Wurst report: round values and fi...

Bernd Wurst authored 1 year ago

124)     if ($t == 'Gewerbesteuer') {
125)         continue;
126)     }
Bernd Wurst Korrekte Darstellung von Ab...

Bernd Wurst authored 5 years ago

127)     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

128)         continue;
129)     }
Bernd Wurst report: round values and fi...

Bernd Wurst authored 1 year ago

130)     $ausgabensumme -= round($net_by_type[$id], 2);
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

131)     output("<tr><td>" . $t . "</td><td style=\"text-align: right;\">" . number_format(-$net_by_type[$id], 2, ',', '.') . " €</td></tr>");
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

132) }
133) 
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

134) output("<tr><td>Vorsteuer</td><td style=\"text-align: right;\">" . number_format(-$vorsteuer, 2, ',', '.') . " €</td></tr>");
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

135) $ausgabensumme -= $vorsteuer;
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

136) output("<tr><td><b>Summe Ausgaben:</b></td><td style=\"text-align: right;\"><b>" . number_format($ausgabensumme, 2, ',', '.') . " €</td></tr>");
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

137) output("<tr><td colspan=\"2\"></td></tr>");
138) 
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

139) output("<tr><td><b>Überschuss aus laufendem Betrieb:</b></td><td style=\"text-align: right;\"><b>" . number_format($einnahmensumme - $ausgabensumme, 2, ',', '.') . " €</td></tr>");
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 7 years ago

140) output('</table>');
Bernd Wurst Korrekte Darstellung von Ab...

Bernd Wurst authored 5 years ago

141) 
142) foreach ($investment_types as $id => $type) {
143)     if (isset($net_by_type[$id])) {
Hanno Böck Spaces between string conca...

Hanno Böck authored 1 year ago

144)         output('<p>Neue Anlagegüter <strong>' . $type['description'] . '</strong>: ' . number_format(-$net_by_type[$id], 2, ',', '.') . " €</p>");