diff --git a/src/cg/cg0200.cpp b/src/cg/cg0200.cpp
index b43f36a71..c75e73420 100755
--- a/src/cg/cg0200.cpp
+++ b/src/cg/cg0200.cpp
@@ -845,6 +845,8 @@ void TClifo_application::add_bank(TSheet_field& ns_sh, const TRectype& rec)
     if (pres)
     {
       progr = rec.get(CFBAN_PROGPR);
+			if (atoi(progr) == 0)
+				progr.cut(0);
 
       TString16 codtab; codtab << abi << cab << progr;