Cancellazione chiavi da DNINST

git-svn-id: svn://10.65.10.50/branches/R_10_00@22844 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba2800.cpp

@@ -901,7 +901,13 @@ bool Tdninst_mask::on_sheet_event(TSheet_field& s, TField_event e, long jolly)
       }
     }
     break;
-  case se_query_del: return false;
+  case se_query_del: 
+    {
+      TToken_string& r = s.row(jolly);
+      const int serno = r.get_int(0);    
+      return delete_box("Si desidera eliminare la chiave %d", serno);
+    }
+    break;
   default: break;
   }
   return true;

ba/ba2800a.uml

@@ -270,9 +270,36 @@ BEGIN
   PROMPT 1 1 ""
 END
 
-BUTTON DLG_CANCEL 2 2 
+BUTTON DLG_DELREC 2 2 
 BEGIN
-  PROMPT 2 1 ""
+  PROMPT 1 1 ""
+END
+
+BUTTON DLG_NULL 2 2
+BEGIN
+  PROMPT -1 1 ""
+  PICTURE 0
+END
+
+BUTTON DLG_INFO 2 2
+BEGIN
+  PROMPT 1 1 "Info"
+  MESSAGE EXIT,K_F2
+  PICTURE TOOL_INFO
+END
+
+BUTTON DLG_HELP 2 2
+BEGIN
+  PROMPT 2 1 "Help"
+  MESSAGE EXIT,K_F1
+  PICTURE TOOL_HELP
+END
+
+BUTTON DLG_CANCEL 2 2
+BEGIN
+  PROMPT 3 1 "Annulla"
+  MESSAGE EXIT,K_ESC
+  PICTURE TOOL_CANCEL
 END
 
 ENDPAGE