diff --git a/mg/mglib02.cpp b/mg/mglib02.cpp
index d8d14bf54..ed95feace 100755
--- a/mg/mglib02.cpp
+++ b/mg/mglib02.cpp
@@ -1,61 +1,224 @@
 #include "mglib02.h" 
+#include "../cg/cglib.h" 
 
-bool TArticolo::load_um()
-{  
-  if (_um)
-    return TRUE;
+void TMultiple_rectype::load_rows_file(int logicnum)
+{                  
+  const int index = log2ind(logicnum);
+  TRectype & rec = get_body_record(logicnum);
 
-  const char * codice = (const char *) _codice;
-
-  if (!*codice)
-    return FALSE;
-
-  TRectype rec(LF_UMART);
-    
-  _um == new TRecord_array(LF_UMART, UMART_NRIGA);
-  rec.put(UMART_CODART, codice);
-  _um->destroy_rows();
-  _um->read(rec);
-  return TRUE;
+  set_body_key(rec);
+  TRecord_array * r = new TRecord_array(logicnum, (TString &) _numfields[index]);
+  _files.add( r, index);
 }
 
-bool TArticolo::load_codcorr()
+int TMultiple_rectype::find(int logicnum, const char * fieldname, const char * s, int from, bool reverse) const
+{               
+  const TRecord_array & recarray = body(logicnum);
+  const int last = recarray.last_row();
+  const int len = s ? strlen(s) : 0;
+  
+  if (reverse)
+  {
+    if (from > 0)
+    {            
+      if (len == 0)
+        return from - 1;
+      for (int i = recarray.pred_row(from); i > 0; i = recarray.pred_row(i))
+        if (recarray[i].get(fieldname) == s)
+          return i;
+    }
+  }
+  else
+  {
+    if (last > from)
+    {
+      if (len == 0)
+        return from + 1;
+      for (int i = recarray.succ_row(from); i <= last; i = recarray.succ_row(i))
+        if (recarray[i].get(fieldname) == s)
+          return i;
+    }
+  }
+  return -1;
+}
+
+int TMultiple_rectype::write_rewrite(TBaseisamfile & f, bool re) const
+{                 
+  int err = NOERR;
+
+  if (_nuovo && re)           // E' nuovo di zecca! quindi ...
+    re = FALSE;               // ... non fare la rewrite
+
+  if (re)
+  {
+    for (int i = _nfiles - 1; err == NOERR && i >= 0 ; i--)
+    {
+      TRecord_array * r = (TRecord_array *) _files.objptr(i);
+      if (r)
+        err = r->write(re); 
+    }
+    // rewrite:
+    if (err == NOERR)
+    {
+      err = TRectype::rewrite(f);
+      if (err != NOERR)
+        err = TRectype::write(f);
+    }    
+  }
+  else
+  {             
+    // write:
+    if (_nuovo)
+    {         
+      do
+      {
+        err = TRectype::write(f);
+        if (err == _isreinsert) // usa il flag _nuovo per decidere se 
+          ((TMultiple_rectype *)this)->renum();
+      } while (err == _isreinsert);
+      ((TMultiple_rectype *)this)->_nuovo = FALSE;
+    }
+    else 
+    {
+      err = TRectype::write(f);
+      if (err != NOERR)
+        err = TRectype::rewrite(f);
+    }    
+    for (int i = _nfiles - 1; err == NOERR && i >= 0 ; i--)
+    {
+      TRecord_array * r = (TRecord_array *)_files.objptr(i);
+      if (r)
+        err = r->write(re); 
+    }
+  }
+  return err;  
+}
+
+void TMultiple_rectype::remove_body(int logicnum)
+{ 
+  const int index = log2ind(logicnum);
+  
+  if (_files.objptr(index) != NULL)
+    _files.remove(index);
+}
+
+int TMultiple_rectype::log2ind(int logicnum) const
+{                                                 
+  if (logicnum == 0)
+    return 0;    
+  for (int i = _nfiles - 1; i >= 0 ; i--)
+    if (_logicnums[i] == logicnum)
+      return i;
+  NFCHECK("Can't find file %d in multiple record", logicnum);
+  return 0;   
+}
+
+TRecord_array & TMultiple_rectype::body(int logicnum) const
+{ 
+  const int index = log2ind(logicnum);
+  
+  if (_files.objptr(index) == NULL)
+    ((TMultiple_rectype *) this)->load_rows_file(logicnum);
+  return (TRecord_array &) _files[index];
+}
+
+void TMultiple_rectype::renum_key(const char * kfield,const char * val)
 {
-  if (_codcorr)
-    return TRUE;
-    
-  const char * codice = (const char *) _codice;
-
-  if (!*codice)
-    return FALSE;
-  TRectype rec(LF_CODCORR);
-      
-  _codcorr == new TRecord_array(LF_CODCORR, CODCORR_NRIGA);
-  rec.put(CODCORR_CODART, codice);
-  _codcorr->destroy_rows();
-  _codcorr->read(rec);     
-  return TRUE;
+  TRectype::renum_key(kfield, val);       // Aggiorna testata
+  for (int i = _nfiles - 1; i >= 0 ; i--)
+   body(_logicnums[i]).renum_key(kfield, val); // Aggiorna righe  
 }
 
-bool TArticolo::load_deslin()
+
+TRectype & TMultiple_rectype::operator =(const TRectype & r) 
 {
-  if (_deslin)
-    return TRUE;
-
-  const char * codice = (const char *) _codice;
-
-  if (* codice)
-    return FALSE;
-
-  TRectype rec(LF_DESLIN);
-    
-  _deslin == new TRecord_array(LF_DESLIN, DESLIN_NRIGA);
-  rec.put(DESLIN_CODART, codice);
-  _deslin->destroy_rows();
-  _deslin->read(rec);     
-  return TRUE;
+  TRectype::operator=(r); 
+  reset_fields(*this);
+  set_fields(*this);
+  return *this;
+}
+                                   
+TRectype & TMultiple_rectype::operator =(const char * r) 
+{
+  TRectype::operator=(r); 
+  reset_fields(*this);
+  set_fields(*this);
+  return *this;
 }
 
+void TMultiple_rectype::zero(char c)
+{
+  reset_fields(*this);
+  TAuto_variable_rectype::zero(c);
+  for (int i = _nfiles - 1; i >= 0 ; i--)
+    if (_files.objptr(i) != NULL)
+      _files.remove(i);
+}
+                                   
+
+int TMultiple_rectype::read(TRectype & rec, word op, word lockop)
+{
+  TLocalisamfile f(num());
+  
+  *this = rec;
+  
+  int err = TRectype::read(f, op, lockop);
+
+  for (int i = _nfiles - 1; i >= 0 ; i--)
+    if (_files.objptr(i) != NULL)
+      _files.remove(i);
+  _nuovo = err != NOERR;
+  return err;
+}
+
+int TMultiple_rectype::remove(TBaseisamfile & f) const 
+{
+  int err = NOERR;
+
+  for (int i = _nfiles - 1; err == NOERR && i >= 0 ; i--)
+  {
+    TRecord_array & r = body(_logicnums[i]);
+    r.remove();
+  }
+  if (err == NOERR)
+    err = TRectype::remove(f);
+  return err;  
+}
+
+// @doc INTERNAL
+TMultiple_rectype::TMultiple_rectype(int hfn)
+                  : TAuto_variable_rectype(hfn), _nuovo(TRUE), _nfiles(0)
+{
+}           
+ 
+  // @ cmember costruttore dal file 
+void TMultiple_rectype::add_file(int logicnum, const char * numfield) 
+{                               
+  CHECK(_nfiles < maxfiles, "Too many files added");
+  _logicnums[_nfiles] = logicnum;
+  _numfields.add(numfield, _nfiles++);
+}
+
+TMultiple_rectype::TMultiple_rectype(const TBaseisamfile* file)
+                  :TAuto_variable_rectype(file), _nuovo(TRUE), _nfiles(0)
+{
+}
+
+  // @ cmember costruttore dal record 
+TMultiple_rectype::TMultiple_rectype(const TRectype & rec) 
+                  :TAuto_variable_rectype(rec), _nuovo(TRUE), _nfiles(0)
+{
+}
+
+// @mfunc costruttore di copia
+TMultiple_rectype::TMultiple_rectype(const TMultiple_rectype& r)
+                  :TAuto_variable_rectype(r), _files(r._files)
+{
+  // copia..
+  _nuovo=r._nuovo;
+  _nfiles=r._nfiles;    // file delle righe
+  _numfields=r._numfields; 
+}
 
 HIDDEN TString16 _mg_null_str;
 
@@ -76,35 +239,26 @@ const TString & TArticolo::get_str(const char* fieldname) const
   {
     case LF_UMART:
       { 
-        if (((TArticolo *) this)->load_um())
-        {                                  
-          if (index == 0)
-            index = find_um(op1);
-          if (index > 0 && op2)
-            return _um->row(index).get(op2);
-        }
+        if (index == 0)
+          index = find_um(op1);
+        if (index > 0 && op2)
+          return um().row(index).get(op2);
       }
       break;
     case LF_CODCORR:
       {
-        if (((TArticolo *) this)->load_codcorr())
-        {
-          if (index == 0)
-            index = find_codcorr(op1);
-          if (index > 0 && op2)
-            return _codcorr->row(index).get(op2);
-        }
+        if (index == 0)
+          index = find_codcorr(op1);
+        if (index > 0 && op2)
+          return codcorr().row(index).get(op2);
       }
       break;
     case LF_DESLIN:
       {
-        if (((TArticolo *) this)->load_deslin())
-        {
-          if (index == 0)
-            index = find_deslin(op1);
-          if (index > 0 && op2)
-            return _deslin->row(index).get(op2);
-        }
+        if (index == 0)
+          index = find_deslin(op1);
+        if (index > 0 && op2)
+          return deslin().row(index).get(op2);
       }
       break;
     default:
@@ -113,46 +267,35 @@ const TString & TArticolo::get_str(const char* fieldname) const
   return _mg_null_str;
 }
 
-int TArticolo::find(const TRecord_array & array, const char * fieldname, const char * s,
-                    int from) const
+void TArticolo::set_body_key(TRectype & rowrec)
 {
-  const int last = array.last_row();
-  if (from > last)
-  {
-    const int len = s ? strlen(s) : 0;
-    if (len == 0)
-      return from + 1;
-    for (int i = array.succ_row(from); i <= last; i = _um->succ_row(i))
-      if (_um->row(i).get(UMART_UM) == s)
-        return i;
+  const int logicnum = rowrec.num();
+  const char * codice = (const char *) _codice;
+  
+  switch (logicnum)
+  { 
+    case LF_UMART:
+      rowrec.put(UMART_CODART, codice);
+      break;
+    case LF_DESLIN:
+      rowrec.put(DESLIN_CODART, codice);
+      break;
+    case LF_CODCORR:
+      rowrec.put(CODCORR_CODART, codice);
+      break;
+    default:
+      break;
   }
-  return -1;
 }
 
-int TArticolo::read(const char * cod)
+int TArticolo::read(const char * cod, word op, word lockop)
 {                             
-  if (strcmp(cod, (const char *) _codice) == 0)
+  if (op == _isequal && lockop == _nolock &&strcmp(cod, (const char *) _codice) == 0)
     return NOERR;
-  if (_um)
-  {
-    delete _um;
-    _um = NULL;
-  }
-  if (_codcorr)
-  {
-    delete _codcorr;
-    _codcorr = NULL;
-  }
-  if (_deslin)
-  {
-    delete _deslin;
-    _deslin == NULL;
-  }
-  
-  TLocalisamfile anamag(LF_ANAMAG);
-  
-  *_codice = cod;
-  const int err = TRectype::read(anamag);
+  *_codice = cod;                                
+ 
+  const int err = TMultiple_rectype::read(op , lockop);
+
   if (err != NOERR)
     zero();                                   
   return err;  
@@ -171,8 +314,7 @@ const TString & TArticolo::descrizione(const char* lingua) const
 }
 
 TArticolo::TArticolo(const char* codice)
-       : TRectype(LF_ANAMAG), _um(NULL), _codcorr(NULL),
-         _deslin(NULL)
+       : TMultiple_rectype(LF_ANAMAG)
 
 { 
   _codice = new TRecfield(*this, ANAMAG_CODART);
@@ -181,8 +323,7 @@ TArticolo::TArticolo(const char* codice)
 }
 
 TArticolo::TArticolo(const TRectype& rec)
-       : TRectype(rec), _um(NULL), _codcorr(NULL),
-         _deslin(NULL)
+       : TMultiple_rectype(rec)
 { 
   _codice = new TRecfield(*this, ANAMAG_CODART);
 }
@@ -190,73 +331,6 @@ TArticolo::TArticolo(const TRectype& rec)
 TArticolo::~TArticolo() 
 {
   delete _codice;
-  if (_um)
-    delete _um;
-  if (_codcorr)
-    delete _codcorr;
-  if (_deslin)
-    delete _deslin;
-}
-
-int TArticolo_giacenza::read(const char * cod)
-{                             
-  if (strcmp(cod, codice()) == 0)
-    return NOERR;
-  if (_mag)
-  {
-    delete _mag;
-    _mag = NULL;
-  }
-  if (_storico)
-  {
-    delete _storico;
-    _storico = NULL;
-  }
-  return TArticolo::read(cod);
-}
-  
- 
-bool TArticolo_giacenza::load_mag(const char * annoes)
-{ 
-  if (_mag)
-  {
-    if (_mag->key().get(MAG_ANNOES) == annoes)
-      return TRUE;
-    delete _mag;
-  }
-    
-  const char * cod = (const char *) codice();
-
-  if (!*cod)
-    return FALSE;
-
-  TRectype rec(LF_MAG);
-      
-  rec.put(MAG_ANNOES, annoes);
-  rec.put(MAG_CODART, cod);
-  _mag == new TRecord_array(rec, MAG_NRIGA);
-  return TRUE;
-}
-
-bool TArticolo_giacenza::load_storico(const char * annoesrif)
-{ 
-  if (_storico)
-  {
-    if (_storico->key().get(STOMAG_ANNOESRIF) == annoesrif)
-      return TRUE;
-    delete _storico;
-  }
-    
-  const char * cod = (const char *) codice();
-
-  if (!*cod)
-    return FALSE;
-  TRectype rec(LF_STOMAG);
-      
-  rec.put(STOMAG_CODART, cod);
-  rec.put(STOMAG_ANNOESRIF, annoesrif);
-  _mag == new TRecord_array(rec, STOMAG_NRIGA);
-  return TRUE;
 }
 
 const TString & TArticolo_giacenza::get_str(const char* fieldname) const
@@ -279,22 +353,16 @@ const TString & TArticolo_giacenza::get_str(const char* fieldname) const
   switch (logicnum)
   {
     case LF_MAG:
-      if (((TArticolo_giacenza *) this)->load_mag(op1))
-      {
-        if (index == 0)
-          index = find_mag(op1, op2, op3);
-        if (index > 0 && op3)
-          return _mag->row(index).get(op4);
-      }
+      if (index == 0)
+        index = find_mag(op1, op2, op3);
+      if (index > 0 && op3)
+        return mag(op1).row(index).get(op4);
       break;
     case LF_STOMAG:        
-      if (((TArticolo_giacenza *) this)->load_storico(op1))
-      { 
-        if (index = 0)
-          index = find_storico(op1, op2);
-        if (index > 0)
-          return _storico->row(index).get(op4);
-      }
+      if (index = 0)
+        index = find_storico(op1, op2);
+      if (index > 0)
+        return storico(op1).row(index).get(op4);
       break;
     default:
       return TArticolo::get_str(fieldname);
@@ -303,10 +371,52 @@ const TString & TArticolo_giacenza::get_str(const char* fieldname) const
   return _mg_null_str;
 }
 
+void TArticolo_giacenza::set_body_key(TRectype & rowrec)
+{
+  const int logicnum = rowrec.num();
+  const char * cod = (const char *) codice();
+  
+  switch (logicnum)
+  { 
+    case LF_STOMAG:
+      rowrec.put(STOMAG_CODART, cod);
+      rowrec.put(STOMAG_ANNOESRIF, _anno_sto);
+      break;
+    case LF_MAG:
+      rowrec.put(MAG_ANNOES, _anno_mag);
+      rowrec.put(MAG_CODART, cod);
+      break;
+    default:
+      TArticolo::set_body_key(rowrec);
+      break;
+  }
+}
+
+void TArticolo_giacenza::set_anno_mag (const char * anno)
+{
+  if (_anno_mag != anno)
+    remove_body(LF_MAG);
+  _anno_mag = anno;
+}
+
+void TArticolo_giacenza::set_anno_sto (const char * anno)
+{
+  if (_anno_sto != anno)
+    remove_body(LF_STOMAG);
+  _anno_sto = anno;
+}                       
+
+void TArticolo_giacenza::zero(char c)
+{                    
+  reset_anno_sto();
+  reset_anno_mag();
+  TArticolo::zero(c);
+}
+
 int TArticolo_giacenza::find_mag(const char * annoes, const char * codmag, const char * livello, int from) const
-{                      
-  ((TArticolo_giacenza *) this)->load_mag(annoes);
-  const int last = _mag->last_row();
+{
+  TRecord_array & rmag = mag(annoes);
+  const int last = rmag.last_row();
 
   if (from <= last)
   {
@@ -316,9 +426,9 @@ int TArticolo_giacenza::find_mag(const char * annoes, const char * codmag, const
     if (codmag_len == 0 && livello_len == 0)
       return from + 1;
 
-    for (int i = _mag->succ_row(from); i <= last; i = _mag->succ_row(i))
+    for (int i = rmag.succ_row(from); i <= last; i = rmag.succ_row(i))
     {
-      const TRectype & rec = _mag->row(i);
+      const TRectype & rec = rmag.row(i);
     
       if (codmag_len == 0 || rec.get(MAG_CODMAG).compare(codmag, codmag_len) == 0)  
         if (livello_len == 0 || rec.get(MAG_LIVELLO).compare(livello, livello_len) == 0)
@@ -328,79 +438,100 @@ int TArticolo_giacenza::find_mag(const char * annoes, const char * codmag, const
   return -1;
 }
 
+int TArticolo_giacenza::find_storico(const char * annoesrif, const char * annoes, int from) const
+{
+  ((TArticolo_giacenza *) this)->set_anno_sto(annoesrif);
+  return find(LF_STOMAG, STOMAG_ANNOES, annoes, from);
+}
+
+TRecord_array & TArticolo_giacenza::mag(const char * annoes) const
+{
+  ((TArticolo_giacenza *) this)->set_anno_mag(annoes);
+  return body(LF_MAG);
+}
+
+TRecord_array & TArticolo_giacenza::storico(const char * annoesrif) const
+{
+  ((TArticolo_giacenza *) this)->set_anno_sto(annoesrif); 
+  return body(LF_STOMAG);
+}
+
+HIDDEN int last_esercizio = -1;                
+
 real TArticolo_giacenza::ultimo_costo(const char * annoes) const  
 {
-  int index = find_storico(annoes, annoes); 
   
-  if (index < 0)                          
+  if (last_esercizio != atoi(annoes))                          
   {
     const real costo = get_real(ANAMAG_ULTCOS1);
     return costo == ZERO ? costo_standard(annoes) : costo;
   }
-	return ZERO;
-//  else                                                   
-//  {
-//    const real costo = _storico->row(index).get_real(STOMAG_ULTCOS1);
-//    return costo == ZERO ? costo_standard(annoes) : costo;
+  else                                                   
+  {
+    const int index = find_storico(annoes, annoes); 
+    const real costo = storico(annoes).row(index).get_real(STOMAG_ULTCOS1);
+    return costo == ZERO ? costo_standard(annoes) : costo;
+  }
 }
 
 real TArticolo_giacenza::media_costi(const char * annoes) const
 {
-  int index = find_storico(annoes, annoes); 
-  
-  if (index < 0)
+  if (last_esercizio != atoi(annoes))                          
   {
     real costo = get_real(ANAMAG_ULTCOS1);
   
     costo = (costo + get_real(ANAMAG_ULTCOS2)) / 2.0;
     return costo == ZERO ? costo_standard(annoes) : costo;
   }
-	return ZERO;
-//  else
-//  {           
-//    TRectype & rec = _storico->row(index);
-//    real costo = rec.get_real(STOMAG_ULTCOS1);
-//  
-//    costo = (costo + rec.get_real(STOMAG_ULTCOS2)) / 2.0;
-//    return costo == ZERO ? costo_standard(annoes) : costo;
-//  }
+  else
+  {           
+    const int index = find_storico(annoes, annoes); 
+    const TRectype & rec = storico(annoes).row(index);
+    real costo = rec.get_real(STOMAG_ULTCOS1);
+  
+    costo = (costo + rec.get_real(STOMAG_ULTCOS2)) / 2.0;
+    return costo == ZERO ? costo_standard(annoes) : costo;
+  }
 }
 
 real TArticolo_giacenza::prezzo_listino(const char * annoes, const char * catven, const char * codlist) const
 {            
-  int index = find_storico(annoes, annoes); 
-  
-  if (index < 0)
+  if (last_esercizio != atoi(annoes))                          
   {
     static TString16 f;
     if (f.empty())
       f.format("#%d->%s", LF_UMART, UMART_PREZZO);
     return get_real(f); // da terminare
   }
-	return ZERO;
-//  else
-//    return _storico->row(index).get_real(STOMAG_VALVEN);
+  else
+  {
+    const int index = find_storico(annoes, annoes); 
+  
+    return storico(annoes).row(index).get_real(STOMAG_PRZLIST);
+  }
 }
 
 real TArticolo_giacenza::costo_standard(const char * annoes) const
 { 
-  int index = find_storico(annoes, annoes); 
   
-  if (index < 0)
+  if (last_esercizio != atoi(annoes))                          
     return get_real(ANAMAG_COSTSTD);
-	return ZERO;
-//  else
-//    return _storico->row(index).get_real(STOMAG_COSTSTD);
+  else
+  {
+    const int index = find_storico(annoes, annoes); 
+    return storico(annoes).row(index).get_real(STOMAG_COSTSTD);
+  }
 }
 
 
 real TArticolo_giacenza::costo_medio(const char * annoes, const char * codmag, const char * livello) const
 {  
   real acq;
-  real valacq;                         
+  real valacq;                       
+  TRecord_array & rmag = mag(annoes);
   for (int i = find_mag(annoes, codmag, livello); i > 0; i = find_mag(annoes, codmag, livello, i)) 
   {                                    
-    const TRectype & rec = _mag->row(i);
+    const TRectype & rec = rmag.row(i);
 
     acq += rec.get_real(MAG_ACQ);
     valacq += rec.get_real(MAG_VALACQ);
@@ -416,9 +547,10 @@ real TArticolo_giacenza::LIFO_annuale(const char * annoes, const char * codmag,
   real acq;
   real valacq; 
   real giacenza;
+  TRecord_array & rmag = mag(annoes);
   for (int i = find_mag(annoes, codmag, livello); i > 0; i = find_mag(annoes, codmag, livello, i)) 
   {
-    const TRectype & rec = _mag->row(i);
+    const TRectype & rec = rmag.row(i);
 
     rim += rec.get_real(MAG_RIM);
     valrim += rec.get_real(MAG_VALRIM);
@@ -448,9 +580,10 @@ real TArticolo_giacenza::FIFO_annuale(const char * annoes, const char * codmag,
   real acq;
   real valacq; 
   real giacenza;
+  TRecord_array & rmag = mag(annoes);
   for (int i = find_mag(annoes, codmag, livello); i > 0; i = find_mag(annoes, codmag, livello, i)) 
   {
-    const TRectype & rec = _mag->row(i);
+    const TRectype & rec = rmag.row(i);
 
     rim += rec.get_real(MAG_RIM);
     valrim += rec.get_real(MAG_VALRIM);
@@ -481,9 +614,10 @@ real TArticolo_giacenza::LIFO(const char * annoes, const char * codmag, const ch
   real acq;
   real valacq; 
   real giacenza;
+  TRecord_array & rmag = mag(annoes);
   for (int i = find_mag(annoes, codmag, livello); i > 0; i = find_mag(annoes, codmag, livello, i)) 
   {
-    const TRectype & rec = _mag->row(i);
+    const TRectype & rec = rmag.row(i);
 
     rim += rec.get_real(MAG_RIM);
     valrim += rec.get_real(MAG_VALRIM);
@@ -504,13 +638,13 @@ real TArticolo_giacenza::LIFO(const char * annoes, const char * codmag, const ch
   if (giacenza > rim)
     return ((giacenza - rim) * (acq == ZERO ? costo_standard(annoes) : valacq / acq) + valrim) / giacenza;
     
-  ((TArticolo_giacenza *) this)->load_storico(annoes);  
-  const int last = _storico->last_row();
+  TRecord_array & rstorico = storico(annoes);  
+  const int last = rstorico.last_row();
   
   rim = giacenza;
-  for (i = _storico->first_row(); i <= last; i = _storico->succ_row(i))
+  for (i = rstorico.first_row(); i <= last; i = rstorico.succ_row(i))
   {
-    const TRectype & rec = _storico->row(i);
+    const TRectype & rec = rstorico.row(i);
     const real qta = rec.get(STOMAG_QUANT);
     
     if (qta > giacenza)
@@ -535,9 +669,10 @@ real TArticolo_giacenza::FIFO(const char * annoes, const char * codmag, const ch
   real acq;
   real valacq; 
   real giacenza;
+  TRecord_array & rmag = mag(annoes);
   for (int i = find_mag(annoes, codmag, livello); i > 0; i = find_mag(annoes, codmag, livello, i)) 
   {
-    const TRectype & rec = _mag->row(i);
+    const TRectype & rec = rmag.row(i);
 
     rim += rec.get_real(MAG_RIM);
     valrim += rec.get_real(MAG_VALRIM);
@@ -558,16 +693,16 @@ real TArticolo_giacenza::FIFO(const char * annoes, const char * codmag, const ch
   if (giacenza <= acq)
     return valacq / acq;
     
-  ((TArticolo_giacenza *) this)->load_storico(annoes);  
+  TRecord_array & rstorico = storico(annoes);  
 
-  const int last = _storico->last_row();
+  const int last = rstorico.last_row();
                               
   real res = giacenza - acq;
   rim = ZERO;
   valrim = ZERO;                            
   for (i = last; i > 0; i--) 
   {
-    const TRectype & rec = _storico->row(i);
+    const TRectype & rec = rstorico.row(i);
     const real qta = rec.get(STOMAG_QUANT);
     
     if (qta > res)
@@ -585,10 +720,38 @@ real TArticolo_giacenza::FIFO(const char * annoes, const char * codmag, const ch
   return ((giacenza - acq) * (valrim / rim) + valacq) / giacenza;
 }
 
-TArticolo_giacenza::~TArticolo_giacenza() 
+real TArticolo_giacenza::FIFO_ragionieristico(const char * annoes, const char * codmag, const char * livello,
+                                              bool giacenza_effettiva, bool valorizza_componenti) const
 {
-  if (_mag)
-    delete _mag;
+  return ZERO;
+}
+
+real TArticolo_giacenza::LIFO_ragionieristico(const char * annoes, const char * codmag, const char * livello,
+                                              bool giacenza_effettiva, bool valorizza_componenti) const
+{             
+  return ZERO;
+}
+                
+TArticolo_giacenza::TArticolo_giacenza(const char* codice)
+                  : TArticolo(codice)
+{
+  if (last_esercizio < 0 )
+  {
+    TEsercizi_contabili e;
+
+    last_esercizio = e.last();
+  }  
+}
+
+TArticolo_giacenza::TArticolo_giacenza(const TRectype& rec)
+                  : TArticolo(rec)
+{
+  if (last_esercizio < 0 )
+  {
+    TEsercizi_contabili e;
+
+    last_esercizio = e.last();
+  }  
 }
 
 
diff --git a/mg/mglib02.h b/mg/mglib02.h
index 4c366f243..ef063d752 100755
--- a/mg/mglib02.h
+++ b/mg/mglib02.h
@@ -12,6 +12,14 @@
 #include <recarray.h>
 #endif          
 
+#ifndef __VARREC_H
+#include <varrec.h>
+#endif
+
+#ifndef __MSKSHEET_H
+#include <msksheet.h>
+#endif
+
 #ifndef __ANAMAG_H 
 #include "anamag.h" 
 #endif
@@ -35,51 +43,139 @@
 #ifndef __STOMAG_H 
 #include "stomag.h"
 #endif
+class TMultiple_rectype ;
+//**************************************
+// classe per il controllo dei record composti da una testata e N file di righe
+// è implementato come un TRectype che contiene anche un TRecord_array
+//
+class TMultiple_rectype : public TAuto_variable_rectype
+{     
+  enum { maxfiles = 20};
+  // @ cmember Array di TRecord array per le righe 
+  TArray _files;  // 
+  // @ cmember flag indicatore  di record nuovo
+  bool _nuovo;
+  // @ cmember numero di file righe  
+  short _nfiles;    
+  // @ cmember file delle righe
+  int _logicnums[maxfiles];   
+  // @ cmember Array di nomi di campo "numeratore" delle righe
+  TString_array _numfields;   
+
+
+protected:                                           
+  const TArray & files() const { return _files;}
+  // @ cmember funzione per costruire la chiave delle righe
+  virtual void set_body_key(TRectype & rowrec) pure; 
+  // @ cmember renumber la chiave del corpo
+  virtual long renum(long numdoc = -1) { return -1; }
+  virtual TRectype & get_body_record(int logicnum = 0) { return *(new TRectype(logicnum ? logicnum : _logicnums[0])); }
+  virtual void load_rows_file(int logicnum);
+  // @cmember Ritorna l'indice di <p _files> del numero logico passato
+  int log2ind(int logicnum) const;
+  virtual int find(int logicnum, const char * fieldname, const char * s, int from = 0, bool reverse = FALSE) const ;
+  virtual int write_rewrite(TBaseisamfile& f, bool re = FALSE) const;
+  void remove_body(int logicnum);
+  
+public:
+  //***********************
+  // struttura
+  // @ cmember restituisce il record di testata
+  const TAuto_variable_rectype& head() const { return *this; } // Ritorna la testata del documento
+  // @ cmember restituisce il record di testata
+  TAuto_variable_rectype& head() { return *this; } // Ritorna la testata del documento
+  
+  
+  // @ cmember restituisce il record array del corpo
+  TRecord_array & body(int logicnum = 0) const;
+  // @ cmember restituisce il numero di record nel corpo
+  int rows(int logicnum = 0) const { return body(logicnum).rows(); } 
+  
+   // @ cmember restituisce il record n-esimo del del corpo
+  virtual const TRecord_array & operator[](int logicnum) const { return (const TRecord_array &)((TMultiple_rectype *)this)->body(logicnum); }
+  // @ cmember restituisce il record n-esimo del del corpo
+  virtual TRecord_array & operator[](int logicnum) { return (TRecord_array &)body(logicnum); } 
+  
+  bool destroy_row(int n, bool pack = FALSE, int logicnum = 0) { return body(logicnum).destroy_row(n, pack); }
+  void destroy_rows(int logicnum = 0) { body(logicnum).destroy_rows(); }
+  
+  //***********************
+  // record e I/O
+  virtual void dirty_fields() {}
+  virtual void set_fields(TAuto_variable_rectype & rec) {}
+  virtual void reset_fields(TAuto_variable_rectype & rec) { rec.remove_field(); }
+
+  virtual void renum_key(const char * kfield,const char * val);
+  virtual TRectype & operator =(const TRectype & r); 
+  virtual TRectype & operator =(const char * r); 
+  virtual void zero(char c = '\0');
+
+  virtual int read(TRectype & rec, word op = _isequal, word lockop = _nolock);
+  virtual int read(word op = _isequal, word lockop = _nolock) { return read(*this, op, lockop); }
+  int read(TBaseisamfile & f, word op = _isequal, word lockop = _nolock) { return read(f.curr(), op, lockop); }
+  
+  virtual int write(TBaseisamfile& f) const;
+  virtual int rewrite(TBaseisamfile& f) const;
+  virtual int remove(TBaseisamfile& f) const;
+
+  int write() const { TBaseisamfile f(num()); return write(f);}
+  int rewrite() const { TBaseisamfile f(num()); return rewrite(f);}
+  int remove() const { TBaseisamfile f(num()); return remove(f);}
+                                     
+                                     
+  void add_file(int logicnum, const char * numfield);
+  //**************************
+  // @ cmember costruttore dal numero del file 
+  TMultiple_rectype(int hfn);
+  // @ cmember costruttore dal file 
+  TMultiple_rectype(const TBaseisamfile* file);
+  // @ cmember costruttore dal record 
+  TMultiple_rectype(const TRectype & rec);
+  // @ cmember costruttore di copia 
+  TMultiple_rectype(const TMultiple_rectype& r);
+  virtual ~TMultiple_rectype() {}
+};
 
 typedef enum  {
-	valorizz_ultcos , valorizz_mediacos , valorizz_przlist , 
-	valorizz_coststd , valorizz_costmedio ,
-	valorizz_FIFOa	,	valorizz_LIFOa	,	
-	valorizz_FIFO	,	valorizz_LIFO
+  valorizz_ultcos , valorizz_mediacos , valorizz_przlist , 
+  valorizz_coststd , valorizz_costmedio ,
+  valorizz_FIFOa  , valorizz_LIFOa  , 
+  valorizz_FIFO , valorizz_LIFO,
+  valorizz_FIFOr , valorizz_LIFOr
 } TTipo_valorizz;
 
 char * TNome_valorizz[]= {
-	"Ultimo costo", "Media ultimi costi", "Prezzo di listino",
-	"Costo standard", "Costo medio" , 
-	"FIFO annuale","LIFO annuale",
-	"FIFO","LIFO"
+  "Ultimo costo", "Media ultimi costi", "Prezzo di listino",
+  "Costo standard", "Costo medio" , 
+  "FIFO annuale", "LIFO annuale",
+  "FIFO", "LIFO",
+  "FIFO Ragionieristico", "LIFO Ragionieristico"
 } ;
 
-class TArticolo : public TRectype
+class TArticolo : public TMultiple_rectype
 {          
   TRecfield * _codice;                             
-  TRecord_array * _um;
-  TRecord_array * _codcorr;
-  TRecord_array * _deslin;
 
 protected:
-  bool load_um();
-  bool load_codcorr();
-  bool load_deslin();
   virtual const TString & get_str(const char* fieldname) const ;
-  int find(const TRecord_array & array, const char * fieldname, const char * s,
-           int from = 0) const ;
+  virtual void set_body_key(TRectype & rowrec); 
 
 public:
 
-  virtual int read(const char* cod);
+  virtual int read(const char * cod, word op = _isequal, word lockop = _nolock);
+  virtual int read(TRectype & rec, word op = _isequal, word lockop = _nolock) { return read( rec.get(ANAMAG_CODART), op, lockop); }
 
   TObject* dup() const { return new TArticolo(codice()); }
 
   const TString& codice() const { return (const char *) *_codice;}  
   const TString& descrizione(const char * lingua = NULL) const;
 
-  int find_um(const char * um, int from = 0) const { return find(*_um, UMART_UM, um, from); }
-  int find_deslin(const char * deslin, int from = 0) const { ((TArticolo *) this)->load_deslin(); return find(*_deslin, DESLIN_CODLIN, deslin, from); }
-  int find_codcorr(const char * codcorr, int from = 0) const { ((TArticolo *) this)->load_codcorr(); return find(*_codcorr, CODCORR_CODARTALT, codcorr, from); }
-  TRectype & um_row(int i) const { ((TArticolo *) this)->load_um(); return (TRectype &) _um->row(i); }
-  TRectype & deslin_row(int i) const { ((TArticolo *) this)->load_deslin(); return (TRectype &) _deslin->row(i); }
-  TRectype & codcorr_row(int i) const { ((TArticolo *) this)->load_codcorr(); return (TRectype &) _codcorr->row(i); }
+  int find_um(const char * um, int from = 0) const { return find(LF_UMART, UMART_UM, um, from); }
+  int find_deslin(const char * deslin, int from = 0) const { return find(LF_DESLIN, DESLIN_CODLIN, deslin, from); }
+  int find_codcorr(const char * codcorr, int from = 0) const { return find(LF_CODCORR, CODCORR_CODARTALT, codcorr, from); }
+  TRecord_array & um() const { return body(LF_UMART); }
+  TRecord_array & deslin() const { return body(LF_DESLIN); }
+  TRecord_array & codcorr() const { return body(LF_CODCORR); }
   
   TArticolo(const char* codice = NULL);
   TArticolo(const TRectype& rec);
@@ -88,24 +184,26 @@ public:
 
 class TArticolo_giacenza : public TArticolo
 {          
-  TRecord_array * _mag;
-  TRecord_array * _storico;
+  TString16 _anno_mag;
+  TString16 _anno_sto;
   
 protected:
-  bool load_mag(const char * annoes);
-  bool load_storico(const char * annoesrif);
   virtual const TString & get_str(const char* fieldname) const ;
+  virtual void set_body_key(TRectype & rowrec);
+  void set_anno_mag (const char * anno = NULL);
+  void set_anno_sto (const char * anno = NULL);
+  void reset_anno_mag () { set_anno_mag();}
+  void reset_anno_sto () { set_anno_sto();}
 
 public:
 
-  virtual int read(const char* cod);
-
   TObject* dup() const { return new TArticolo_giacenza(codice()); }
+  virtual void zero(char c = '\0');
 
   int find_mag(const char * annoes, const char * codmag = NULL, const char * livello = NULL, int from = 0) const ;
-  int find_storico(const char * annoesrif, const char * annoes = NULL, int from = 0) const { ((TArticolo_giacenza *) this)->load_storico(annoesrif); return find(*_storico, STOMAG_ANNOES, annoes, from); }
-  TRectype & mag_row(const char * annoes, int i) const { ((TArticolo_giacenza *) this)->load_mag(annoes); return (TRectype &) _mag->row(i); }
-  TRectype & storico_row(const char * annoesrif, int i) const { ((TArticolo_giacenza *) this)->load_storico(annoesrif); return (TRectype &) _storico->row(i); }
+  int find_storico(const char * annoesrif, const char * annoes = NULL, int from = 0) const;
+  TRecord_array & mag(const char * annoes) const;
+  TRecord_array & storico(const char * annoesrif) const;
 
   real ultimo_costo(const char * annoes) const;
   real media_costi(const char * annoes) const;
@@ -120,10 +218,14 @@ public:
             bool giacenza_effettiva = TRUE, bool valorizza_componenti = TRUE) const;
   real FIFO(const char * annoes, const char * codmag, const char * livello,
             bool giacenza_effettiva = TRUE, bool valorizza_componenti = TRUE) const;
+  real LIFO_ragionieristico(const char * annoes, const char * codmag, const char * livello,
+                            bool giacenza_effettiva = TRUE, bool valorizza_componenti = TRUE) const;
+  real FIFO_ragionieristico(const char * annoes, const char * codmag, const char * livello,
+                            bool giacenza_effettiva = TRUE, bool valorizza_componenti = TRUE) const;
                               
-  TArticolo_giacenza(const char* codice = NULL) : TArticolo(codice), _mag(NULL), _storico(NULL) {}
-  TArticolo_giacenza(const TRectype& rec) : TArticolo(rec), _mag(NULL), _storico(NULL) {}
-  virtual ~TArticolo_giacenza();
+  TArticolo_giacenza(const char* codice = NULL);
+  TArticolo_giacenza(const TRectype& rec);
+  virtual ~TArticolo_giacenza() {}
 };  
 
 #endif
diff --git a/mg/stomag.h b/mg/stomag.h
index d907c1940..9cfd85574 100755
--- a/mg/stomag.h
+++ b/mg/stomag.h
@@ -1,5 +1,5 @@
-#ifndef __STOMAG_H 
-#define __STOMAG_H 
+#ifndef __STOMAG_H
+#define __STOMAG_H
 
 #define STOMAG_ANNOESRIF "ANNOESRIF"
 #define STOMAG_CODART "CODART"
@@ -9,4 +9,10 @@
 #define STOMAG_VALORE "VALORE"
 #define STOMAG_NRIGA "NRIGA"
 
+#define STOMAG_ULTCOS1 "ULTCOS1"
+#define STOMAG_ULTCOS2 "ULTCOS2"
+#define STOMAG_COSTSTD "COSTSTD"
+#define STOMAG_COSTOMEDIO "COSTOMEDIO"
+#define STOMAG_PRZLIST "PRZLIST"
+#define STOMAG_CODLISTINO "CODLISTINO"
 #endif