Prolongue lines
authorJoey Schulze <joey@infodrom.org>
Sun, 24 Aug 2014 21:39:55 +0000 (21:39 +0000)
committerJoey Schulze <joey@infodrom.org>
Sun, 24 Aug 2014 21:39:55 +0000 (21:39 +0000)
src/InfoCon/buch/infocon

index cfd08f3..90c5806 100755 (executable)
@@ -161,25 +161,25 @@ sub sales_list
 
     $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;
 }