Correzioni per XI

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

cg/cg0100.cpp

@@ -162,7 +162,7 @@ bool CG0100_application::protected_record(TRectype &rec)
     _saldi->put(PCN_GRUPPO, gruppo);
     _saldi->put(PCN_CONTO, conto);
     _saldi->put(PCN_SOTTOCONTO, sottoc);
-    _saldi->read();
+    _saldi->read(_isgteq);
     bool ok = FALSE;
     
     if (_saldi->good())
@@ -172,10 +172,9 @@ bool CG0100_application::protected_record(TRectype &rec)
             _saldi->get_real(SLD_SALDOFIN) != ZERO ||
                 _saldi->get_real(SLD_PDAREPRO) != ZERO ||
                   _saldi->get_real(SLD_PAVEREPRO) != ZERO;
-    ok &= (gruppo ==_saldi->get_int(PCN_GRUPPO) &&
+    return ok && gruppo ==_saldi->get_int(PCN_GRUPPO) &&
       conto ==_saldi->get_int(PCN_CONTO) &&
-        sottoc ==_saldi->get_long(PCN_SOTTOCONTO));   
+        sottoc ==_saldi->get_long(PCN_SOTTOCONTO);
-        
     if (!ok)
     {
       // look for scaricato
@@ -223,6 +222,7 @@ void CG0100_application::init_query_mode(TMask& m)
   m.show(-1);
   m.show(-2);
   m.show(-3); 
+  m.hide(FLD_CM2_STSOTTAB); 
 }
 
 HIDDEN bool tmcf_handler(TMask_field& f, KEY key)
@@ -242,6 +242,7 @@ HIDDEN bool tmcf_handler(TMask_field& f, KEY key)
 
 
 void CG0100_application::init_insert_mode(TMask& m)
+
 {
   const int gruppo = atoi(m.get(FLD_CM1_GRUPPO));
   const int conto = atoi(m.get(FLD_CM1_CONTO));
@@ -249,12 +250,12 @@ void CG0100_application::init_insert_mode(TMask& m)
   bool ivd_enable = TRUE;
 
   if (conto == 0 && sottoc == 0)  
-    m.show(-1, FALSE);
+    m.hide(-1);
   else
     if (sottoc == 0)
-      m.show(-2, FALSE);
+      m.hide(-2);
     else           
-      m.show(-3, FALSE);
+      m.hide(-3);
 
   TLocalisamfile& pconti = _rel->lfile();
   TString s(15), s2(1), s3(8), s4(2);
@@ -343,21 +344,6 @@ HIDDEN bool gruppo_handler(TMask_field& f, KEY key)
         return f.warning_box ("Il gruppo non esiste");
     }
   }
-  else
-    if (m.query_mode() && key == K_TAB)
-    {                     
-      const int next = f.dlg(); // m.next_fld();  
-      bool key_ok = TRUE;
-      
-      if (sottoc > 0)
-        key_ok = gruppo > 0 && conto > 0;
-      else  
-        if (conto > 0)
-          key_ok = gruppo > 0;
-      if (key_ok && next != DLG_NULL && next != f.dlg() && 
-          !m.field(next).in_key(1))
-        return m.stop_run(K_AUTO_ENTER);
-    }
   return TRUE;
 }
 
@@ -388,21 +374,6 @@ HIDDEN bool conto_handler(TMask_field& f, KEY key)
       }
     }
   } 
-  else
-    if (m.query_mode() && key == K_TAB)
-    {                     
-      const int next = f.dlg(); // m.next_fld();
-      bool key_ok = TRUE;
-      
-      if (sottoc > 0)
-        key_ok = gruppo > 0 && conto > 0;
-      else  
-        if (conto > 0)
-          key_ok = gruppo > 0;
-      if (key_ok && next != DLG_NULL && next != f.dlg() && 
-          !m.field(next).in_key(1))
-        return m.stop_run(K_AUTO_ENTER);
-    }
   return TRUE;
 }
 
@@ -414,13 +385,7 @@ HIDDEN bool sottoc_handler(TMask_field& f, KEY key)
     const int gruppo  = m.get_int(FLD_CM1_GRUPPO);
     const int conto   = m.get_int(FLD_CM1_CONTO);
     const long sottoc = m.get_long(FLD_CM1_SOTTOCONTO);
-    const int next = f.dlg(); // m.next_fld();
-
     if (gruppo == 0) return TRUE;
-    if (sottoc != 0 && conto == 0) 
-      return m.field(FLD_CM1_CONTO).error_box("Manca il conto");
-    if (next != DLG_NULL && next != f.dlg() && !m.field(next).in_key(1))
-      return m.stop_run(K_AUTO_ENTER);
   }
   return TRUE;
 }
@@ -436,9 +401,7 @@ bool CG0100_application::user_create()
   _rel = new TRelation(LF_PCON);
   _saldi = new TLocalisamfile(LF_SALDI);
   _saldi->setkey(2);
-  set_search_field(FLD_CM1_GRUPPO);
+  set_search_field(FH_SOTTOCONTO);
-
-
   return TRUE;
 
 }

cg/cg0100.h

@@ -43,5 +43,6 @@
 #define FLD_CM2_STSOTTABS               205
 #define FLD_CM1_DESCG                   206
 #define FLD_CM1_DESCC                   207
+#define FH_SOTTOCONTO                   208
 
 #endif  // __CG0100_H

cg/cg0100a.uml

@@ -27,8 +27,7 @@ BEGIN
   DISPLAY "Descrizione@50" DESCR
   OUTPUT FLD_CM1_GRUPPO GRUPPO
   OUTPUT FLD_CM1_DESCG DESCR
-// OUTPUT FLD_CM1_DESC DESCR
+  CHECKTYPE REQUIRED
-  CHECKTYPE NORMAL
 END
 
 STRING FLD_CM1_DESCG 50
@@ -53,8 +52,9 @@ BEGIN
   OUTPUT FLD_CM1_GRUPPO GRUPPO
   OUTPUT FLD_CM1_CONTO CONTO
   OUTPUT FLD_CM1_DESCC DESCR
-//  OUTPUT FLD_CM1_DESC DESCR
   CHECKTYPE NORMAL
+  VALIDATE REQIF_FUNC 1 FLD_CM1_SOTTOCONTO
+  WARNING "Manca il conto"
 END
 
 STRING FLD_CM1_DESCC 50
@@ -82,6 +82,17 @@ BEGIN
   OUTPUT FLD_CM1_GRUPPO GRUPPO
   OUTPUT FLD_CM1_CONTO CONTO
   OUTPUT FLD_CM1_DESC DESCR
+  CHECKTYPE NORMAL
+END
+
+NUMBER FH_SOTTOCONTO 6
+BEGIN
+  PROMPT 60 1 ""
+  FLAGS "HG"
+  USE LF_PCON KEY 1
+  COPY INPUT FLD_CM1_SOTTOCONTO
+  COPY DISPLAY FLD_CM1_SOTTOCONTO
+  COPY OUTPUT FLD_CM1_SOTTOCONTO
 END
 
 STRING FLD_CM1_DESC 50
@@ -360,6 +371,7 @@ BEGIN
   PROMPT 1 15 "Stampa dettaglio sottoconti su analisi"
   HELP "Indicare se stampare il dettaglio dei sottoconti nell'analisi di bilancio"
   FIELD LF_PCON->STSOTTAB
+  FLAGS "H"
   GROUP 1 3
   MESSAGE COPY,FLD_CM2_STSOTTABS
 END

cg/cg0200.cpp

@@ -29,7 +29,6 @@ class TClifo_application : public TRelation_application
   
   bool _lbcn, _gesven;
   bool _savenew;
-  bool _ignoreven;
   
   TToken_string _tmp;
 
@@ -180,49 +179,29 @@ HIDDEN bool no_dup_iva(TMask_field& f, KEY key)
   return TRUE ;
 }
 
-HIDDEN bool autoexit_rsoc_handler(TMask_field& f, KEY key)
+HIDDEN bool cofi_handler(TMask_field& f, KEY key)
 
 { 
-  if (f.mask().query_mode() && key == K_TAB)
+  if (f.to_check(key))
   {
-    TString16 tmp;
+    if (key == K_TAB)
-    TArray parms;
-    parms.add(tmp.format("%d", F_RAGSOC));
-    parms.add(tmp.format("%d", F_RAGSOCA));
-    ::validate(AUTOEXIT_FUNC, (TEdit_field&) f, key, parms);
-  } 
-  return TRUE;
-}
-
-HIDDEN bool autoexit_handler(TMask_field& f, KEY key)
-
-{ 
-  if (f.mask().query_mode())
-  {
-    if (key == K_TAB && f.focusdirty())
-    {           
-      TString16 tmp;
-      TArray parms;
-      parms.add(tmp.format("%d", f.dlg()));
-      ::validate(AUTOEXIT_FUNC, (TEdit_field&) f, key, parms);
-    } 
-  }  
-  else
-  {
-    if (f.dlg() == F_COFI && key == K_TAB && f.focusdirty())
     {
       const TString s1(f.get());
   
       if (s1.not_empty())
         f.mask().set(F_TIPOPERS, isdigit(s1[0]) ? "G" : "F");
     }
-    if (f.to_check(key) && f.mask().get(F_ALLEG) != "4")
+    if (f.mask().get(F_ALLEG) != "4")
+      return no_dup_fis(f, key);
+  }
+  return TRUE;  
+}
+
+HIDDEN bool paiv_handler(TMask_field& f, KEY key)
+
 { 
-      if (f.dlg() == F_COFI) return no_dup_fis(f, key);
+  if (f.to_check(key) && f.mask().get(F_ALLEG) != "4")
-      else 
+    return no_dup_iva(f, key);
-        if (f.dlg() == F_PAIV) return no_dup_iva(f, key);
-    }   
-  }
   return TRUE;  
 }
 
@@ -368,7 +347,7 @@ HIDDEN bool codalleg_handler(TMask_field& f, KEY key)
 void TClifo_application::on_config_change()
 {
   TConfig cnf(CONFIG_DITTA);
-  _gesven = _ignoreven ? FALSE : cnf.get_bool("GesVen"); 
+  _gesven = cnf.get_bool("GesVen"); 
   _lbcn = cnf.get_bool("GsLbCn");
   init_pages(*_msk);
 }
@@ -382,7 +361,6 @@ void TClifo_application::init_pages(TMask& m)
 
   // Se non e' abilitata la gestione delle vendite disabilita le
   // maschere dalla 4 in poi
-  if (!_ignoreven)
   m.enable_page(3, _gesven);
 }
 
@@ -572,11 +550,12 @@ bool TClifo_application::indsp_notify(TSheet_field& indsp, int r, KEY key)
     return FALSE;  //Refuse permission
   }
   break;
+  case K_ENTER:
+  case K_DEL:
+    indsp_sheet_rebuilder();
 default:
   break;
 }           
-  if (key == K_ENTER || key == K_DEL)
-    indsp_sheet_rebuilder();
   return TRUE;
 }
 
@@ -590,24 +569,17 @@ bool TClifo_application::user_create() // initvar e arrmask
   _pcon = new TLocalisamfile(LF_PCON);
   _comuni = new TLocalisamfile(LF_COMUNI);
 
-  _ignoreven = argc() > 2;
+  _msk = new TMask("cg0200a") ;
-  const int max = _ignoreven ? 3 : -1;
-  _msk = new TMask("cg0200a", 0, max) ;
 
   _msk->set_handler(F_OCCASIONALE, occas_handler);
-  _msk->set_handler(F_RAGSOCA, autoexit_rsoc_handler);
+  _msk->set_handler(F_COFI, cofi_handler);
-  _msk->set_handler(F_COFI, autoexit_handler);
+  _msk->set_handler(F_PAIV, paiv_handler);
-  _msk->set_handler(F_PAIV, autoexit_handler);
-  _msk->set_handler(F_RICALT, autoexit_handler);
   _msk->set_handler(F_CODANAGPER, percip_handler);
   _msk->set_handler(F_TIPOPERS, tipo_handler);
   _msk->set_handler(F_ALLEG, alleg_handler);
   _msk->set_handler(F_CODALLEG, codalleg_handler);
-  if (!_ignoreven)
-  {
   TSheet_field& ind = (TSheet_field&) _msk->field(F_SHEET_G_VEN);
   ind.set_notify(indsp_notify);
-  }  
   
   _mov->setkey(3);
 

cg/cg0200a.uml

@@ -70,7 +70,6 @@ BEGIN
   HELP "Prima parte della ragione sociale o cognome"
   MESSAGE COPY,3@
   WARNING "Manca la ragione sociale"
-//  VALIDATE NOT_EMPTY_FUNC
   CHECKTYPE REQUIRED           // Guy: perche' non cosi'?
 END
 
@@ -1513,6 +1512,7 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   OUTPUT F_CATVEN CODTAB
   HELP "Codice della categoria di vendita"
   CHECKTYPE NORMAL
+  FLAGS "U"
   END
 
   ENDPAGE
@@ -1616,6 +1616,11 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
   BEGIN
   PROMPT 48 5 "Codice magazzino        "
   FIELD LF_CFVEN->CODMAG
+  USE MAG SELECT CODTAB ? "???"
+  INPUT  CODTAB[1,3] F_CODMAG
+  DISPLAY "Codice" CODTAB[1,3]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODMAG CODTAB[1,3]
   HELP "Codice del magazzino movimentato"
   END
 
@@ -1623,13 +1628,25 @@ USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
 BEGIN
   PROMPT 48 6 "Codice listino        "
   FIELD LF_CFVEN->CODLIST
-  USE %LIS
+  USE LIS
   INPUT CODTAB F_CODLIST
-  DISPLAY "Codice listino " CODTAB
+  DISPLAY "Codice" COD
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODLIST CODTAB
+//  USE LF_CONDV
+//  JOIN %CVE TO LF_CONDV INTO CODTAB=CATVEN
+//  INPUT TIPO "L"
+//  INPUT CATVEN F_CATVEN SELECT
+//  INPUT COD F_CODLIST
+//  DISPLAY "Cat.Ven." CATVEN
+//  DISPLAY "Codice" COD
+//  DISPLAY "Descrizione@50" DESCR
+//  OUTPUT F_CODLIST COD
+//  OUTPUT F_CATVEN CATVEN
+//  ADD RUN ve2 -1 l
   HELP "Codice listino utilizzato"
   CHECKTYPE NORMAL
+  WARNING "Listino assente"
 END
 
   STRING F_CODSCC 2

cg/cg0300.cpp

@@ -18,6 +18,8 @@ class CG0300_application : public TRelation_application
   virtual TRelation* get_relation() const {return _rel;}
   virtual void init_query_mode(TMask& m);
   virtual void init_query_insert_mode(TMask& m);
+  virtual void init_modify_mode(TMask& m);
+  virtual void init_insert_mode(TMask& m) { init_modify_mode(m); }
 
 public:
   CG0300_application() {}
@@ -27,37 +29,29 @@ void CG0300_application::init_query_mode(TMask& m)
 
 { 
   disable_menu_item(M_FILE_NEW);
-  m.send_key(K_SHIFT + K_CTRL + 's', -1);
+  m.show(-1);
-  m.send_key(K_SHIFT + K_CTRL + 'h', -2);
+  m.hide(-2);
 }
 
 void CG0300_application::init_query_insert_mode(TMask& m)
 
 {
   disable_menu_item(M_FILE_NEW);
-  m.send_key(K_SHIFT + K_CTRL + 'h', -1);
+  m.hide(-1);
-  m.send_key(K_SHIFT + K_CTRL + 's', -2);
+  m.show(-2); 
+  m.enable(-3);
 }
 
-
+void CG0300_application::init_modify_mode(TMask& m)
-HIDDEN bool key_handler (TMask_field& f, KEY k)
 
 {
-  if (k == K_TAB)
+  m.disable(-3);
-  {
+}
-    TMask& m = f.mask();
 
-    if (m.get(F_ANNO).not_empty() && m.get(F_CODATT).not_empty() &&
-        m.get(F_CODCF).not_empty())
-      m.stop_run(K_AUTO_ENTER);
-  }
-  return TRUE;
-}
 
 bool CG0300_application::user_create() 
 {
   _msk = new TMask("cg0300a") ;
-  _msk->set_handler (F_IMMESSO, key_handler);
   _rel = new TRelation(LF_ALLEG);
   _ditte = new TLocalisamfile(LF_NDITTE);
   _attiv = new TLocalisamfile(LF_ATTIV);

cg/cg0300.h

@@ -40,5 +40,12 @@
 #define F_DENATT                130
 #define F_CODATTH               131
 #define F_CODCFH                132
+#define F_T1                    133
+#define F_T2                    134
+#define F_T3                    135
+#define F_T4                    136
+#define F_T5                    137
+#define F_T6                    138
+#define F_T7                    139
 
 #endif  // __CG0300_H

cg/cg0300a.uml

@@ -41,6 +41,7 @@ BEGIN
   OUTPUT F_CODCF CODCF
   OUTPUT F_IMMESSO IMMESSO
   WARNING "Registrazione assente"
+  CHECKTYPE REQUIRED
 END
 
 NUMBER F_CODDITTA 5
@@ -48,6 +49,8 @@ BEGIN
   PROMPT 2 2 "Ditta         "
   HELP "Ditta di cui si vogliono visualizzare i saldi"
   FLAGS "RPDG"
+  KEY 1
+  CHECKTYPE REQUIRED
   USE LF_NDITTE
   INPUT CODDITTA F_CODDITTA
   DISPLAY "Codice" CODDITTA
@@ -113,17 +116,11 @@ BEGIN
   KEY 1
   HELP "Indicare se cliente, fornitore oppure bolletta doganale"
   ITEM "C|Clienti"
-  MESSAGE "Op. non imp. ed esenti ",99
+  MESSAGE SHOW,F_T1|HIDE,F_T2|HIDE,F_T3|SHOW,F_T5|HIDE,F_T6
-  MESSAGE "Operazioni non imponibili (mod 101)   ",F_PROMPT
-  MESSAGE ENABLE,F_CODCF|HIDE,6@
   ITEM "F|Fornitori"
-  MESSAGE "Op. senza appl. d'imp. ",99
+  MESSAGE HIDE,F_T1|SHOW,F_T2|HIDE,F_T3|HIDE,F_T5|SHOW,F_T6|ENABLE,F_CODCF|SHOW,6@
-  MESSAGE "Operazioni non imponibili (mod 102)   ",F_PROMPT
-  MESSAGE ENABLE,F_CODCF|SHOW,6@
   ITEM "B|Boll.doganali"
-  MESSAGE "Operazioni senza appl. d'imposta ",99
+  MESSAGE HIDE,F_T1|HIDE,F_T2|SHOW,F_T3|HIDE,F_T5|SHOW,F_T6|DISABLE,F_CODCF|SHOW,6@
-  MESSAGE "Operazioni non imponibili (mod 102)   ",F_PROMPT
-  MESSAGE DISABLE,F_CODCF|SHOW,6@
 END
 
 NUMBER F_CODCF 6
@@ -137,6 +134,7 @@ BEGIN
   ADD RUN cg0 -1
   WARNING "Registrazione assente"
   GROUP 1
+  CHECKTYPE REQUIRED
   MESSAGE COPY,F_CODCFH
 END
 
@@ -162,6 +160,7 @@ BEGIN
   WARNING "Cliente assente"
   GROUP 2
   MESSAGE COPY,F_CODCF 
+  CHECKTYPE NORMAL
 END
 
 BOOLEAN F_IMMESSO
@@ -176,7 +175,7 @@ STRING F_RAGSOC 50
 BEGIN
   PROMPT 2 5 "Rag.sociale   "
   FLAGS "U"
-  KEY 1
+  KEY 2
   USE LF_CLIFO KEY 2
   INPUT TIPOCF F_TIPOCF SELECT
   INPUT RAGSOC F_RAGSOC
@@ -186,12 +185,13 @@ BEGIN
   COPY OUTPUT F_CODCFH
   HELP "Ragione sociale del cliente o fornitore"
   WARNING "Ragione sociale assente"
+  GROUP 3
 END
 
 STRING F_COFI 16
 BEGIN
   PROMPT 2 6 "Cod.fiscale   "
-  KEY 1
+  KEY 3
   USE LF_CLIFO KEY 4
   INPUT TIPOCF F_TIPOCF SELECT
   INPUT COFI F_COFI
@@ -203,12 +203,13 @@ BEGIN
   HELP "Codice fiscale del cliente o fornitore"
   CHECKTYPE NORMAL
   WARNING "Codice fiscale assente"
+  GROUP 3
 END
 
 STRING F_PAIV 12
 BEGIN
   PROMPT 36 6 "Partita IVA       "
-  KEY 1
+  KEY 4
   USE LF_CLIFO KEY 5
   INPUT TIPOCF F_TIPOCF SELECT
   INPUT PAIV F_PAIV
@@ -221,6 +222,7 @@ BEGIN
   HELP "Partita IVA del cliente o fornitore"
   CHECKTYPE NORMAL
   WARNING "Partita IVA assente"
+  GROUP 3
 END
 
 TEXT DLG_NULL
@@ -304,9 +306,22 @@ BEGIN
   NUM_CALC {#F_IVAESP+#F_IVAESC}
 END
 
-TEXT 99
+TEXT F_T1
 BEGIN
   PROMPT 2 11 "Op. non imp. ed esenti "         
+  FLAGS "H"
+END
+
+TEXT F_T2
+BEGIN
+  PROMPT 2 11 "Op. senza appl. d'imp. "
+  FLAGS "H"
+END
+
+TEXT F_T3
+BEGIN
+  PROMPT 2 11 "Operazioni senza appl. d'imposta "
+  FLAGS "H"
 END
 
 NUMBER F_NIESC 15
@@ -337,7 +352,7 @@ BEGIN
   NUM_CALC {#F_NIESP+#F_NIESC}
 END
 
-TEXT 98
+TEXT F_T4
 BEGIN
   PROMPT 2 12 "Op. non imp.(Art.8 2^c)"
   GROUP 6
@@ -395,7 +410,7 @@ BEGIN
   NUM_CALC {#F_IMPESP+#F_IVAESP+#F_NIESP+#F_E8ESP}
 END
 
-TEXT 97
+TEXT F_T7
 BEGIN
   PROMPT 2 15 "Numero fatture "
   GROUP 6
@@ -429,9 +444,16 @@ BEGIN
   NUM_CALC {#F_NDOCESP+#F_NDOCESC}
 END
 
-TEXT F_PROMPT
+TEXT F_T5
+BEGIN
+  PROMPT 2 17 "Operazioni non imponibili (mod 101)   "
+  FLAGS "H"
+END
+
+TEXT F_T6
 BEGIN
   PROMPT 2 17 "Operazioni non imponibili (mod 102)   "
+  FLAGS "H"
 END
 
 NUMBER F_PROG101102 15

cg/cg0400a.uml

@@ -1,6 +1,6 @@
 #include "cg0400.h"
 
-PAGE "Riepilogo progressivi IVA" -1 -1 78 19
+PAGE "Riepilogo progressivi IVA" -1 -1 80 19
 
 GROUPBOX DLG_NULL 78 3
 BEGIN

cg/cg0400b.uml

@@ -1,6 +1,6 @@
 #include "cg0400.h"
 
-PAGE "Stampa riepilogo progressivi IVA" -1 -1 78 16
+PAGE "Stampa riepilogo progressivi IVA" -1 -1 80 16
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
@@ -46,7 +46,7 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
-LISTBOX F_MESE 9
+LISTBOX F_MESE 11
 BEGIN
   PROMPT 2 7 "Mese riepilogo "
   FLAGS "AM"

cg/cg0500.cpp

@@ -79,8 +79,8 @@ protected:
   void init_mask(TMask&);
   virtual void on_config_change();
   virtual void init_query_mode(TMask&);
-  virtual void init_insert_mode(TMask&);
+  virtual void init_insert_mode(TMask& m) { init_query_mode(m); }
-  virtual void init_modify_mode(TMask&);
+  virtual void init_modify_mode(TMask& m) { init_query_mode(m); }
   virtual int rewrite(const TMask& m);
   virtual int write(const TMask& m);
   virtual int read(TMask& m);
@@ -163,6 +163,7 @@ void TCaus_app::carica_righe_libere(int from)
     set_descr(i, "");
   if (_last_descr != _tipo_des)
   { 
+    if (curr_mask().is_running())
       ss().force_update();  
     _last_descr = _tipo_des;
   }
@@ -378,30 +379,6 @@ bool TCaus_app::tipomov_hndl (TMask_field& f, KEY k)
   return TRUE;
 }
 
-/*
-// Il codice causale per incasso immediato, se specificato, deve
-// essere puramente contabile (= codreg vuoto e tpm = Nessuno
-bool TCaus_app::codcausim_hndl (TMask_field& f, KEY k)
-{
-  if (f.to_check(k)) 
-  {                           
-    TEdit_field& e = (TEdit_field&)f;
-    const TString& causim = e.get();
-    
-    TLocalisamfile& caus = e.browse()->cursor()->file();
-    caus.zero();
-    caus.put(CAU_CODCAUS, causim);
-    if (caus.read() == NOERR)
-    {
-      const TString& codreg = caus.get(CAU_REG);
-      if (codreg.not_empty())
-        return f.warning_box("La causale per l'incasso/pagamento immediato deve essere puramente contabile"); 
-    }
-  }
-  return TRUE;
-}
-*/
-
 bool TCaus_app::mostra_campi()
 {
   TMask& m = curr_mask();
@@ -812,21 +789,9 @@ void TCaus_app::init_mask(TMask& m)
 
 void TCaus_app::init_query_mode(TMask& m)
 {
-  ss().reset();
   init_mask(m);
 }
 
-void TCaus_app::init_insert_mode(TMask& m)
-{
-  init_mask(m);
-}
-
-void TCaus_app::init_modify_mode(TMask& m)
-{
-  init_mask(m);
-}
-
-
 void TCaus_app::on_config_change()
 {                                
   TConfig conf(CONFIG_DITTA);
@@ -857,7 +822,6 @@ void TCaus_app::on_config_change()
 bool TCaus_app::user_create()
 {
   _rel = new TRelation (LF_CAUSALI);
-  //  _rel->add(LF_RCAUSALI, "CODCAUS=CODCAUS");
   _rcaus = new TLocalisamfile(LF_RCAUSALI);
 
   _rcaus_rec = new TRecord_array(LF_RCAUSALI, RCA_NRIGA);
@@ -868,7 +832,6 @@ bool TCaus_app::user_create()
   _msk->set_handler(F_TIPO_DOC, tipodoc_hndl);
   _msk->set_handler(F_COD_REG, cod_reg_hndl);
   _msk->set_handler(F_M_770, m770_hndl);
-//  _msk->set_handler(F_COD_CAUS_IM, codcausim_hndl);
 
   TSheet_field& cs = ss();
   cs.set_notify(ss_notify);