version 1.2, 2020/09/29 20:29:42 |
version 1.3, 2020/10/18 23:47:35 |
Line 507 for my $cc (sort keys %cclist) { |
|
Line 507 for my $cc (sort keys %cclist) { |
|
|
|
# --- Cost center profits and losses. -------------------------- |
# --- Cost center profits and losses. -------------------------- |
|
|
if ($opt_p) { |
if ($opt_p && $profit{$cc}) { |
printf "\n%s [%s] %s\n", (translate 'Cost center'), $cc, |
printf "\n%s [%s] %s\n", (translate 'Cost center'), $cc, |
(translate 'Profits and losses'); |
(translate 'Profits and losses'); |
my $pr = 0; |
my $pr = 0; |