===================================================================
RCS file: /cvs/pta/pta.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- pta/pta.pl	2020/09/29 20:29:42	1.2
+++ pta/pta.pl	2020/10/18 23:47:35	1.3
@@ -507,7 +507,7 @@ for my $cc (sort keys %cclist) {
 
 	# --- Cost center profits and losses. --------------------------
 
-	if ($opt_p) {
+	if ($opt_p && $profit{$cc}) {
 		printf "\n%s [%s] %s\n", (translate 'Cost center'), $cc,
 		    (translate 'Profits and losses');
 		my $pr = 0;