Revision c09536f4
Von Sven Schöling vor fast 15 Jahren hinzugefügt
| SL/RP.pm | ||
|---|---|---|
| 215 | 215 |
} |
| 216 | 216 |
|
| 217 | 217 |
if ($form->{project_id}) {
|
| 218 |
# Diese Bedingung wird derzeit niemals wahr sein, da man in Bericht->Bilanz keine
|
|
| 219 |
# Projekte auswählen kann
|
|
| 218 |
# Diese Bedingung wird derzeit niemals wahr sein, da man in Bericht->Bilanz keine
|
|
| 219 |
# Projekte auswählen kann
|
|
| 220 | 220 |
$project = qq| AND (ac.project_id = | . conv_i($form->{project_id}, 'NULL') . qq|) |;
|
| 221 | 221 |
} |
| 222 | 222 |
|
| ... | ... | |
| 278 | 278 |
GROUP BY c.accno, c.description, c.category |; |
| 279 | 279 |
|
| 280 | 280 |
if ($form->{project_id}) {
|
| 281 |
# s.o. keine Projektauswahl in Bilanz
|
|
| 281 |
# s.o. keine Projektauswahl in Bilanz
|
|
| 282 | 282 |
$query .= |
| 283 | 283 |
qq| |
| 284 | 284 |
UNION ALL |
| ... | ... | |
| 328 | 328 |
} |
| 329 | 329 |
|
| 330 | 330 |
} else { # if ($form->{method} eq 'cash')
|
| 331 |
# ich sehe keinen sinn das nochmal explizit ohne conv_i aufzurufen
|
|
| 332 |
# bitte prüfen und löschen jan 15.11.2009
|
|
| 331 |
# ich sehe keinen sinn das nochmal explizit ohne conv_i aufzurufen
|
|
| 332 |
# bitte prüfen und löschen jan 15.11.2009
|
|
| 333 | 333 |
# if ($department_id) {
|
| 334 | 334 |
# $dpt_join = qq| JOIN dpt_trans t ON (t.trans_id = ac.trans_id) |; |
| 335 | 335 |
# $dpt_where = qq| AND t.department_id = $department_id |; |
| ... | ... | |
| 347 | 347 |
GROUP BY c.accno, c.description, c.category |; |
| 348 | 348 |
|
| 349 | 349 |
if ($form->{project_id}) {
|
| 350 |
# s.o. keine Projektauswahl in Bilanz
|
|
| 350 |
# s.o. keine Projektauswahl in Bilanz
|
|
| 351 | 351 |
$query .= qq| |
| 352 | 352 |
UNION ALL |
| 353 | 353 |
|
| ... | ... | |
| 579 | 579 |
} |
| 580 | 580 |
|
| 581 | 581 |
} else { # if ($form->{method} eq 'cash')
|
| 582 |
# s.o. jan 15.11.2009
|
|
| 583 |
# if ($department_id) {
|
|
| 584 |
# ($dpt_join, $dpt_where) = sql_department($department_id);
|
|
| 585 |
# }
|
|
| 582 |
# s.o. jan 15.11.2009
|
|
| 583 |
# if ($department_id) {
|
|
| 584 |
# ($dpt_join, $dpt_where) = sql_department($department_id);
|
|
| 585 |
# }
|
|
| 586 | 586 |
|
| 587 | 587 |
$query = qq| |
| 588 | 588 |
SELECT sum(ac.amount * chart_category_to_sgn(c.category)) AS amount, c.$category |
| ... | ... | |
| 1812 | 1812 |
&get_accounts_g($dbh, $last_period, $form->{fromdate}, $form->{todate}, $form, "pos_ustva");
|
| 1813 | 1813 |
|
| 1814 | 1814 |
# foreach $item (@categories_cent) {
|
| 1815 |
# if ($form->{$item}{"jetzt"} > 0) {
|
|
| 1816 |
# $form->{$item} = $form->{$item}{"jetzt"};
|
|
| 1817 |
# delete $form->{$item}{"jetzt"};
|
|
| 1818 |
# }
|
|
| 1815 |
# if ($form->{$item}{"jetzt"} > 0) {
|
|
| 1816 |
# $form->{$item} = $form->{$item}{"jetzt"};
|
|
| 1817 |
# delete $form->{$item}{"jetzt"};
|
|
| 1818 |
# }
|
|
| 1819 | 1819 |
# } |
| 1820 | 1820 |
# foreach $item (@categories_euro) {
|
| 1821 |
# if ($form->{$item}{"jetzt"} > 0) {
|
|
| 1822 |
# $form->{$item} = $form->{$item}{"jetzt"};
|
|
| 1823 |
# delete $form->{$item}{"jetzt"};
|
|
| 1824 |
# } foreach $item (@categories_cent) {
|
|
| 1825 |
# if ($form->{$item}{"jetzt"} > 0) {
|
|
| 1826 |
# $form->{$item} = $form->{$item}{"jetzt"};
|
|
| 1827 |
# delete $form->{$item}{"jetzt"};
|
|
| 1828 |
# }
|
|
| 1821 |
# if ($form->{$item}{"jetzt"} > 0) {
|
|
| 1822 |
# $form->{$item} = $form->{$item}{"jetzt"};
|
|
| 1823 |
# delete $form->{$item}{"jetzt"};
|
|
| 1824 |
# } foreach $item (@categories_cent) {
|
|
| 1825 |
# if ($form->{$item}{"jetzt"} > 0) {
|
|
| 1826 |
# $form->{$item} = $form->{$item}{"jetzt"};
|
|
| 1827 |
# delete $form->{$item}{"jetzt"};
|
|
| 1828 |
# }
|
|
| 1829 | 1829 |
# } |
| 1830 | 1830 |
# foreach $item (@categories_euro) {
|
| 1831 |
# if ($form->{$item}{"jetzt"} > 0) {
|
|
| 1832 |
# $form->{$item} = $form->{$item}{"jetzt"};
|
|
| 1833 |
# delete $form->{$item}{"jetzt"};
|
|
| 1834 |
# }
|
|
| 1831 |
# if ($form->{$item}{"jetzt"} > 0) {
|
|
| 1832 |
# $form->{$item} = $form->{$item}{"jetzt"};
|
|
| 1833 |
# delete $form->{$item}{"jetzt"};
|
|
| 1834 |
# }
|
|
| 1835 | 1835 |
# } |
| 1836 | 1836 |
# |
| 1837 | 1837 |
# } |
Auch abrufbar als: Unified diff
Keine Tabs in SL/* Modulen.
Machen das Leben nur schwer für Leute die zufällig nicht die Tabbreite eingestellt haben wie der Autor.