projects
/
infodrom.org
/
service.infodrom.org
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
226a4f1
)
Ok, let's support both currencies when listing unpaid items
author
Joey Schulze
<joey@infodrom.org>
Thu, 3 Jan 2002 15:01:45 +0000
(15:01 +0000)
committer
Joey Schulze
<joey@infodrom.org>
Thu, 3 Jan 2002 15:01:45 +0000
(15:01 +0000)
src/InfoCon/buch/infocon
patch
|
blob
|
history
diff --git
a/src/InfoCon/buch/infocon
b/src/InfoCon/buch/infocon
index
8410a65
..
8feed84
100755
(executable)
--- a/
src/InfoCon/buch/infocon
+++ b/
src/InfoCon/buch/infocon
@@
-143,7
+143,7
@@
sub sales_list
printf " Zahlungsausgänge %9.2f\n", -$sum_neg
if ($sum_neg > 0);
print "==================================================================\n";
printf " Zahlungsausgänge %9.2f\n", -$sum_neg
if ($sum_neg > 0);
print "==================================================================\n";
- printf " Summe %9.2f\n", $sum_pos - $sum_neg;
+ printf " Summe %9.2f\n
\n
", $sum_pos - $sum_neg;
}
}
}
}
@@
-306,7
+306,12
@@
while ($i <= $#ARGV) {
} elsif ($ARGV[$i] eq "input") {
&buchung_input();
} elsif ($ARGV[$i] eq "unpaid") {
} elsif ($ARGV[$i] eq "input") {
&buchung_input();
} elsif ($ARGV[$i] eq "unpaid") {
- &sales_list("paid = 0");
+ $saved_table = $table;
+ $table = "sales_dm";
+ &sales_list("paid = 0");
+ $table = "sales";
+ &sales_list("paid = 0");
+ $table = $table_saved;
} else {
&usage();
}
} else {
&usage();
}