my @accno;
my $accno;
my $ref;
-
+ #print $query;
my $sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
my $ml = ($form->{db} eq 'ar') ? 1 : -1;
my $sortorder = join ', ', $form->sort_columns(qw(transdate invnumber name));
- $sortorder = $form->{sort} unless $sortorder;
+ $sortorder = $form->{sort} if $form->{sort};
$query = qq|SELECT a.id, '0' AS invoice, $transdate AS transdate,
a.invnumber, n.name, a.netamount,
my $sortorder = join ', ',
$form->sort_columns(qw(name invnumber ordnumber transdate source));
-
+ $sortorder = $form->{sort} if $form->{sort};
+
# cycle through each id
foreach my $accno (split(/ /, $form->{paymentaccounts})) {
foreach $kosten (@gesamtkosten) {
$form->{$kosten}{$key} *= -1;
}
+
$form->{4}{$key} *= -1;
foreach $category (@categories) {
$form->{"$key$category"} =
$form->format_amount($myconfig,
$form->round_amount($form->{$category}{$key}, 2
- ));
+ ), $form->{decimalplaces}, '0');
}
}
foreach $item (@gesamtleistung) {
($form->{$category}{$key} /
$form->{ "$key" . "gesamtleistung" } * 100
),
- 2
- ));
+ $form->{decimalplaces}
+ ), $form->{decimalplaces}, '0');
}
}
foreach $item (@ergebnisse) {
( $form->{ "$key" . "$item" } /
$form->{ "$key" . "gesamtleistung" } * 100
),
- 2
- ));
+ $form->{decimalplaces}
+ ), $form->{decimalplaces}, '0');
}
}
($form->{$category}{$key} /
$form->{ "$key" . "gesamtkosten" } * 100
),
- 2
- ));
+ $form->{decimalplaces}
+ ), $form->{decimalplaces}, '0');
}
}
foreach $item (@ergebnisse) {
($form->{ "$key" . "$item" } /
$form->{ "$key" . "gesamtkosten" } * 100
),
- 2
- ));
+ $form->{decimalplaces}
+ ), $form->{decimalplaces}, '0');
}
}
$form->format_amount(
$myconfig,
$form->round_amount(
- ($form->{$category}{$key} / $form->{10}{$key} * 100), 2
- ));
+ ($form->{$category}{$key} / $form->{10}{$key} * 100),
+ $form->{decimalplaces}
+ ), $form->{decimalplaces}, '0');
}
}
foreach $item (@ergebnisse) {
($form->{ "$key" . "$item" } /
$form->{10}{$key} * 100
),
- 2
- ));
+ $form->{decimalplaces}
+ ), $form->{decimalplaces}, '0');
}
}
$form->format_amount(
$myconfig,
$form->round_amount(
- ($form->{$category}{$key} / $form->{4}{$key} * 100), 2
- ));
+ ($form->{$category}{$key} / $form->{4}{$key} * 100),
+ $form->{decimalplaces}
+ ), $form->{decimalplaces}, '0');
}
}
foreach $item (@ergebnisse) {
($form->{ "$key" . "$item" } /
$form->{4}{$key} * 100
),
- 2
- ));
+ $form->{decimalplaces}
+ ), $form->{decimalplaces}, '0');
}
}
foreach $item (@ergebnisse) {
$form->{ "$key" . "$item" } =
$form->format_amount($myconfig,
- $form->round_amount($form->{ "$key" . "$item" }, 2
- ));
+ $form->round_amount($form->{ "$key" . "$item" },
+ $form->{decimalplaces}
+ ), $form->{decimalplaces}, '0');
}
}
my $last_period = 0;
my $category = "pos_ustva";
- my @categories_cent = qw(51r 86r 97r 93r 96 66 43 45 53 62 65 67);
+ my @categories_cent = qw(51r 511 86r 861 97r 971 93r 931
+ 96 66 43 45 53 62 65 67);
my @categories_euro = qw(48 51 86 91 97 93 94);
$form->{decimalplaces} *= 1;
# }
#
# }
-
- $form->{"51r"} = $form->{"51"} * 0.16;
- $form->{"86r"} = $form->{"86"} * 0.07;
- $form->{"97r"} = $form->{"97"} * 0.16;
- $form->{"93r"} = $form->{"93"} * 0.07;
- $form->{"96"} = $form->{"94"} * 0.16;
+
+ #
+ # Berechnung der USTVA Formularfelder
+ #
+ $form->{"51r"} = $form->{"511"};
+ $form->{"86r"} = $form->{"861"};
+ $form->{"97r"} = $form->{"971"};
+ $form->{"93r"} = $form->{"931"};
+ #$form->{"96"} = $form->{"94"} * 0.16;
$form->{"43"} =
$form->{"51r"} + $form->{"86r"} + $form->{"97r"} + $form->{"93r"} +
$form->{"96"};