0fe41395715e3315decbec7d74b8dadb85e7d7e4
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 6 years ago

1) <?php
2) 
3) require_role(ROLE_SYSADMIN);
4) 
5) $title = 'Report';
6) 
7) 
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 6 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");
Bernd Wurst Korrekte Dortierung der Rep...

Bernd Wurst authored 6 years 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", array(":from" => $year."-01-01", ":to" => $year."-12-31"));
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 6 years ago

15) 
16) $types = array();
17) $data_by_type = array();
18) $sum_by_type = array();
Bernd Wurst Korrekte Darstellung von Ab...

Bernd Wurst authored 5 years ago

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

Bernd Wurst authored 6 years ago

20) while ($t = $typeresult->fetch()) {
21)     $types[$t['id']] = $t['description'];
22)     $data_by_type[$t['id']] = array();
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 6 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);
Bernd Wurst Neues Modul für unsere Buch...

Bernd Wurst authored 6 years ago

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

Bernd Wurst authored 6 years ago

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

Bernd Wurst authored 6 years ago

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

Bernd Wurst authored 6 years ago

90)     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 6 years ago

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

Bernd Wurst authored 5 years ago

111)     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 6 years ago

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