$sth = $dbh->prepare($query);
if ($sth && (my $rc = $sth->execute) > 0) {
- print " Nr. Datum Bezeichnung Betrag\n";
- print "------------------------------------------------------------------\n";
+ print " Nr. Datum Bezeichnung Betrag\n";
+ print "----------------------------------------------------------------------------\n";
while (@row = $sth->fetchrow_array) {
- $descr = substr($row[2],0,40);
- printf "%4d %8s %-40s %9.2f\n", $row[0], sdate($row[1]), $descr, $row[3];
+ $descr = substr($row[2],0,50);
+ printf "%4d %8s %-50s %9.2f\n", $row[0], sdate($row[1]), $descr, $row[3];
if ($row[3] < 0.0) {
$sum_neg -= $row[3];
} else {
$sum_pos += $row[3];
}
}
- print "-----------------------------------------------------------------\n"
+ print "---------------------------------------------------------------------------\n"
if ($sum_neg > 0 || $sum_pos > 0) ;
- printf " Zahlungseingänge %9.2f\n", $sum_pos
+ printf " Zahlungseingänge %9.2f\n", $sum_pos
if ($sum_pos > 0);
- printf " Zahlungsausgänge %9.2f\n", -$sum_neg
+ printf " Zahlungsausgänge %9.2f\n", -$sum_neg
if ($sum_neg > 0);
- print "==================================================================\n";
- printf " Summe %9.2f\n\n", $sum_pos - $sum_neg;
+ print "============================================================================\n";
+ printf " Summe %9.2f\n\n", $sum_pos - $sum_neg;
}
$data{'done'} = 1;
}