Prolongue lines

diff --git a/src/InfoCon/buch/infocon b/src/InfoCon/buch/infocon
index cfd08f3..90c5806 100755 (executable)
--- a/src/InfoCon/buch/infocon
+++ b/src/InfoCon/buch/infocon
@@ -161,25 +161,25 @@ sub sales_list
 
     $sth = $dbh->prepare($query);
     if ($sth && (my $rc = $sth->execute) > 0) {
 
     $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) {
        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];
            }
        }
            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) ;
            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);
            if ($sum_pos > 0);

-       printf " Zahlungsausgänge                                       %9.2f\n", -$sum_neg
+       printf " Zahlungsausgänge                                                 %9.2f\n", -$sum_neg

            if ($sum_neg > 0);
            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;
 }
     }
     $data{'done'} = 1;
 }