diff --git a/ha/ha3900.cpp b/ha/ha3900.cpp
index 247422821..4475ee67e 100755
--- a/ha/ha3900.cpp
+++ b/ha/ha3900.cpp
@@ -1,5 +1,6 @@
 #include <applicat.h>
 #include <automask.h>
+#include <colors.h>
 #include <defmask.h>
 #include <execp.h>
 #include <recarray.h>
@@ -258,11 +259,18 @@ void TGestione_attrezzature_mask::fill_sheet_storico(const TString& codattr)
   //record del recordset con i valori da mettere sulla riga sheet
   const TRectype& rec = recset.cursor()->curr();
 
+  const long present_clifo = get_long(F_CODCF);
+
   //new style (seza _pos_campo!)
   for (bool ok = recset.move_first(); ok; ok = recset.move_next())
   {
     TToken_string& row = sf_righe.row(-1);          //riga sheet da riempire
 
+    const long line_clifo = rec.get_long("I0");
+    //se il clifo presente sulla riga e' diverso da quello attuale la riga assumera' un vago colore pervinca
+    if (line_clifo != present_clifo)
+      sf_righe.set_back_and_fore_color(DISABLED_BACK_COLOR, DISABLED_COLOR, sf_righe.items()-1);
+
     //per ogni campo della maschera di sheet setta..
     //..il valore di quei campi che hanno un field
     FOR_EACH_MASK_FIELD(msk, i, f)
diff --git a/ha/ha3900a.uml b/ha/ha3900a.uml
index a281bf706..687a5849b 100755
--- a/ha/ha3900a.uml
+++ b/ha/ha3900a.uml
@@ -211,7 +211,7 @@ END
 DATE S_DATA
 BEGIN
   PROMPT 58 1 "Data "
-  CHECKTYPE REQUIRED
+  VALIDATE NOT_EMPTY_FUNC
   FIELD D0
 END