Revision 901a74db
Von Jan Büren vor mehr als 4 Jahren hinzugefügt
| SL/USTVA.pm | ||
|---|---|---|
| 845 | 845 |
$sth->execute || $form->dberror($query); |
| 846 | 846 |
|
| 847 | 847 |
while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
|
| 848 |
# Bug 365 solved?!
|
|
| 848 |
next unless $ref->{$category};
|
|
| 849 | 849 |
$ref->{amount} *= -1;
|
| 850 | 850 |
$form->{ $ref->{$category} } += $ref->{amount};
|
| 851 | 851 |
} |
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 702 | 702 |
|
| 703 | 703 |
} else # Outputformat for generic output |
| 704 | 704 |
{
|
| 705 |
|
|
| 705 |
die ("not used anymore");
|
|
| 706 | 706 |
$form->{USTVA} = [];
|
| 707 |
|
|
| 708 | 707 |
if ( $form->{format} eq 'generic') { # Formatierungen für HTML Ausgabe
|
| 709 | 708 |
|
| 710 | 709 |
my $rec_ref = {};
|
| ... | ... | |
| 733 | 732 |
$form->{templates} = "doc" if ( $form->{type} eq 'help' );
|
| 734 | 733 |
|
| 735 | 734 |
if ($form->{format} eq 'generic'){
|
| 736 |
|
|
| 735 |
die ("not used anymore");
|
|
| 737 | 736 |
$form->header(); |
| 738 | 737 |
|
| 739 | 738 |
my $template_ref = {
|
| ... | ... | |
| 743 | 742 |
print($form->parse_html_template('ustva/generic_taxreport', $template_ref));
|
| 744 | 743 |
|
| 745 | 744 |
} elsif ( $form->{format} eq 'elstertaxbird' ) {
|
| 745 |
die ("not used anymore");
|
|
| 746 | 746 |
$form->parse_template(\%myconfig); |
| 747 | 747 |
} else |
| 748 | 748 |
{
|
Auch abrufbar als: Unified diff
USTVA Weiteren toten Code identifizieren - Werte mit Key undef ignorieren
Die summen Abfrage erzeugt auch Werte ohne pos_ustva (category)
Diese brauchen nicht weiter verarbeitet zu werden.