diff --git a/lv/lv2100.cpp b/lv/lv2100.cpp
index ec723f306..3c33c6831 100755
--- a/lv/lv2100.cpp
+++ b/lv/lv2100.cpp
@@ -146,28 +146,31 @@ bool TGenera_planning_app::elimina_planning_cliente(const TDate& dadata, const T
 //KILL_PLANNING: funzione che elimina un recordset generato precedentemente
 bool TGenera_planning_app::kill_planning (TISAM_recordset& selrighe) const
 {
-  TSystemisamfile rplan(LF_LVRCONSPLAN); //instanzio una relazione sul file LF_LVRCONSPLAN
-  if (rplan.open(_excllock) == NOERR)
+  const TRecnotype righe = selrighe.items();
+  if (righe > 0)
   {
+    TSystemisamfile rplan(LF_LVRCONSPLAN); //instanzio il file LF_LVRCONSPLAN
     TRectype& rec = rplan.curr();
+    if (rplan.open(_excllock) == NOERR)
+    {
+      TProgind pi(righe, TR("Eliminazione planning precedenti in corso..."), true, true);
+      for (bool ok = selrighe.move_last(); ok; ok = selrighe.move_prev())
+	    {
+		    if (!pi.addstatus(1))
+			    break;
 
-    TProgind pi(selrighe.items(), TR("Eliminazione planning precedenti in corso..."), true, true);
-
-    for (bool ok = selrighe.move_last(); ok; ok = selrighe.move_prev())
-	  {
-		  if (!pi.addstatus(1))
-			  break;
-
-      rec.zero();
-      rec.put(LVRCONSPLAN_CODPLAN,selrighe.get(LVRCONSPLAN_CODPLAN).as_int());
-      rec.put(LVRCONSPLAN_CODRIGA,selrighe.get(LVRCONSPLAN_CODRIGA).as_int());
-      rplan.remove();
-    }    
-    rplan.close();
-    rplan.pack();
+        rec.zero();
+        rec.put(LVRCONSPLAN_CODPLAN,selrighe.get(LVRCONSPLAN_CODPLAN).as_int());
+        rec.put(LVRCONSPLAN_CODRIGA,selrighe.get(LVRCONSPLAN_CODRIGA).as_int());
+        rec.remove(rplan);
+      }    
+      rplan.close();          // Chiude file principale
+      selrighe.requery();     // Chiude file secondario
+      rplan.pack(false, false);
+    }
+    else
+      return error_box(TR("Impossibile eliminare i planning richiesti"));
   }
-  else
-    return error_box(TR("Impossibile eliminare i planning richiesti"));
   return true;
 }
 
@@ -187,7 +190,7 @@ int TGenera_planning_app::prossimo_codriga(const TDate& data)
     ptriga = new real;
     _codriga.add(strcodplan,ptriga);
     //se esiste almeno una riga, memorizzo il codriga dell'ultima
-    TISAM_recordset rplan("USE LVRCONSPLAN KEY 1\nFROM CODPLAN=#CODPLAN\nTO CODPLAN=#CODPLAN");
+    TISAM_recordset rplan("USE LVRCONSPLAN\nFROM CODPLAN=#CODPLAN\nTO CODPLAN=#CODPLAN");
     rplan.set_var("#CODPLAN",TVariant(strcodplan));
     if (rplan.move_last())
       *ptriga = rplan.get(LVRCONSPLAN_CODRIGA).as_real();      
diff --git a/lv/lv2100a.uml b/lv/lv2100a.uml
index c7eeea61f..077dd3150 100755
--- a/lv/lv2100a.uml
+++ b/lv/lv2100a.uml
@@ -13,7 +13,7 @@ END
 
 DATE F_DADATA
 BEGIN
-  PROMPT 2 2 "Genera il planning dal "
+  PROMPT 2 2 "Generazione planning dal "
   FIELD DADATA
   CHECKTYPE REQUIRED
 END
@@ -31,10 +31,11 @@ BEGIN
   FLAGS "UZ"
   USE &ITI
   INPUT CODTAB F_CODITI
-  DISPLAY "Codice " CODTAB
+  DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODITI CODTAB
   OUTPUT F_DESCRITI S0
+  CHECKTYPE NORMAL
 END
 
 STRING F_DESCRITI 50
@@ -43,21 +44,23 @@ BEGIN
   USE &ITI KEY 2
   INPUT S0 F_DESCRITI
   DISPLAY "Descrizione@50" S0
-  DISPLAY "Codice " CODTAB
+  DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CODITI
+  CHECKTYPE NORMAL
 END
 
 NUMBER F_CODCF 6
 BEGIN
   PROMPT 2 4 "Cliente    "
   FLAGS "U"
-  USE LF_CLIFO KEY 1
+  USE LF_CLIFO
   INPUT TIPOCF "C"
   INPUT CODCF F_CODCF
   DISPLAY "Codice " CODCF
   DISPLAY "Ragione sociale@50" RAGSOC
   OUTPUT F_CODCF CODCF
   OUTPUT F_RAGSOCCLI RAGSOC
+  CHECKTYPE NORMAL
 END
 
 STRING F_RAGSOCCLI 50
@@ -67,8 +70,9 @@ BEGIN
   INPUT TIPOCF "C"
   INPUT RAGSOC F_RAGSOCCLI
   DISPLAY "Ragione sociale@50" RAGSOC
-  DISPLAY "Codice " CODCF  
+  DISPLAY "Codice" CODCF  
   COPY OUTPUT F_CODCF
+  CHECKTYPE NORMAL
 END
 
 ENDPAGE