Aggiunto pack delle tabelle comuni

git-svn-id: svn://10.65.10.50/trunk@2701 c028cbd2-c16b-5b4b-a496-9718f37d4682
1996-03-27 11:29:24 +00:00 · 1996-03-27 11:29:24 +00:00 · d66747e754
commit d66747e754
parent f28253517a
1 changed files with 6 additions and 0 deletions
--- a/ba/bacnv.cpp
+++ b/ba/bacnv.cpp
@ -929,6 +929,12 @@ void TConversione_archivi::convert_codreg() const
  }                              

 // (fase 2) 
+// compatta la tabella            
+  {
+     TSystemisamfile tabcom(LF_TABCOM);
+   
+     tabcom.pack();
+  }         
 // vuota la tabella concessioni
  {
    TTable uffconc("%UCC");