Modifica alla find della rel_app (95/13)

git-svn-id: svn://10.65.10.50/trunk@1743 c028cbd2-c16b-5b4b-a496-9718f37d4682

include/assoc.cpp

@@ -69,6 +69,8 @@ bool TAssoc_array::add(
   //       <nl><nl>Nel caso l'oggetto da aggiungere venga passato per indirizzo
   //       la funzione aggiunge una copia dell'oggetto e quindi deve essere
   //       definita <mf TObject::dup>
+  //
+  // @rdesc Ritorna TRUE se esisteva gia' un elemento con la stessa chiave
 {
   bool isnew = FALSE;
 

include/mask.cpp

@@ -1275,7 +1275,7 @@ bool TMask::key_valid(int key) const
   for (short f = 0; f < fields(); f++)
   {
     TMask_field& c = fld(f);
-    if (c.in_key(key) && c.required())
+    if (c.required() && c.shown() && c.in_key(key))
     {
       const TString & value = c.get();
       if (c.class_id() == CLASS_REAL_FIELD)

include/relapp.cpp

@@ -1,4 +1,4 @@
-//      $Id: relapp.cpp,v 1.64 1995-08-09 09:54:27 guy Exp $        
+//      $Id: relapp.cpp,v 1.65 1995-08-29 09:17:39 gianluca Exp $        
 #include <mailbox.h>
 #include <sheet.h>
 #include <urldefid.h>
@@ -535,7 +535,8 @@ bool TRelation_application::find(byte k)
   for (int i = 0; i < chiave.items(); i++)
   {
     const TMask_field& c = _mask->fld(chiave.pos(i));
-    c.autosave(get_relation());
+    if (c.shown())                        // Ignora campi invisibili
+      c.autosave(get_relation());
   }
 
   const int err = file().read(_isequal);