diff --git a/tp/tp0100.cpp b/tp/tp0100.cpp
index 26f1fb4ac..7f57c0bbb 100755
--- a/tp/tp0100.cpp
+++ b/tp/tp0100.cpp
@@ -53,8 +53,8 @@ TPack_iterator& TPack_iterator::operator++()
 TPack_iterator::TPack_iterator(TPack_transfer* pt) : _pt(pt), _pi(NULL)
 {
   const TRecnotype tot = _pt->recordset().items();
-  TString title;
-  title << _pt->title() << ": " << tot << ' ' << TR("righe");
+  
+  TString title; title << _pt->title() << ": " << tot << ' ' << TR("righe");
   if (tot > 1)
     _pi = new TProgind(tot, title, true, true);
   else
@@ -62,7 +62,7 @@ TPack_iterator::TPack_iterator(TPack_transfer* pt) : _pt(pt), _pi(NULL)
 
   if (tot > 0)
     _pt->log(title);
-
+  
   _rec = -1;
 }
 
diff --git a/tp/tp0100a.uml b/tp/tp0100a.uml
index db3644131..7e4183a0f 100755
--- a/tp/tp0100a.uml
+++ b/tp/tp0100a.uml
@@ -70,7 +70,7 @@ BEGIN
   PROMPT 1 1 "@bDatabase"
 END
 
-STRING F_DSN 30
+STRING F_DSN 128 50
 BEGIN
   PROMPT 2 2 "DSN      "
   CHECKTYPE REQUIRED
diff --git a/tp/tp0101.cpp b/tp/tp0101.cpp
index 0d8685a00..4305a0d11 100755
--- a/tp/tp0101.cpp
+++ b/tp/tp0101.cpp
@@ -325,6 +325,8 @@ bool TPack_clifo::trasferisci()
 	else
     query << "(FlagCustSupp='C' OR FlagCustSupp='S')";
   TRecordset& recset = create_recordset(query);
+  if (recset.items() == 0)
+    return false;
 
 	TString str;
 
@@ -470,10 +472,10 @@ bool TPack_clifo::trasferisci()
           field.format("MonthNewEffect%02d", p);
           const int month_new = get_long(field);
 
-          field.format("%d-%d,%d-%d", day_from, month_from, day_to, month_to);
+          field.format("%02d-%02d,%02d-%02d", day_from, month_from, day_to, month_to);
           nonacceff.add(field);
 
-          field.format("%d-%d", day_new, month_new);
+          field.format("%02d-%02d", day_new, month_new);
           nonscadeff.add(field);
         }
         if (nonacceff.full())