Corretti parametri liquidazione

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

cg/cg0100a.uml

@@ -311,7 +311,7 @@ END
 
 BOOLEAN FLD_CM2_STSOTTBIL
 BEGIN
-  PROMPT 1 14 "Non stampare dettaglio sottoconti su bilanci "
+  PROMPT 1 14 "Non stampare dettaglio sottoconti su bilanci a sezioni"
   HELP "Indicare se stampare il dettaglio dei sottoconti nei bilanci di verifica"
   FIELD LF_PCON->STSOTTBIL
   GROUP 1 3

cg/cg0200a.uml

@@ -55,7 +55,7 @@ END
 
 STRING F_RAGSOC 30
 BEGIN
-  PROMPT 23 1 "Ragione sociale    "
+  PROMPT 23 1 "Cognome / Rag. Soc."
   FIELD LF_CLIFO->RAGSOC[1,30]
   KEY 2
   USE LF_CLIFO KEY 2
@@ -75,7 +75,7 @@ END
 
 STRING F_RAGSOCA 20
 BEGIN
-  PROMPT 23 2 "Nome o seconda parte rag. soc. "
+  PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
   FIELD LF_CLIFO->RAGSOC[31,]
   KEY 2
   HELP "Seconda parte della ragione sociale o nome"
@@ -360,14 +360,14 @@ END
 
 STRING DLG_NULL 30
 BEGIN
-  PROMPT 23 1 "Ragione sociale      "
+  PROMPT 23 1 "Cognome / Rag. Soc.  "
   FLAGS "D"
   GROUP 3
 END
 
 STRING DLG_NULL 20
 BEGIN
-  PROMPT 23 2 "Nome o seconda parte rag. soc. "
+  PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
   FLAGS "D"
   GROUP 6
 END
@@ -583,14 +583,14 @@ END
 
 STRING DLG_NULL 30
 BEGIN
-  PROMPT 23 1 "Ragione sociale      "
+  PROMPT 23 1 "Cognome / Rag. Soc.  "
   FLAGS "D"
   GROUP 3
 END
 
 STRING DLG_NULL 20
 BEGIN
-  PROMPT 23 2 "Nome o seconda parte rag. soc. "
+  PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
   FLAGS "D"
   GROUP 6
 END
@@ -831,14 +831,14 @@ END
 
 STRING DLG_NULL 30
 BEGIN
-  PROMPT 23 1 "Ragione sociale      "
+  PROMPT 23 1 "Cognome / Rag. Soc.  "
   FLAGS "D"
   GROUP 3
 END
 
 STRING DLG_NULL 20
 BEGIN
-  PROMPT 23 2 "Nome o seconda parte rag. soc. "
+  PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
   FLAGS "D"
   GROUP 6
 END
@@ -890,14 +890,14 @@ END
 
 STRING DLG_NULL 30
 BEGIN
-  PROMPT 23 1 "Ragione sociale      "
+  PROMPT 23 1 "Cognome / Rag. Soc.  "
   FLAGS "D"
   GROUP 3
 END
 
 STRING DLG_NULL 20
 BEGIN
-  PROMPT 23 2 "Nome o seconda parte rag. soc. "
+  PROMPT 23 2 "Nome / seconda parte Rag. Soc. "
   FLAGS "D"
   GROUP 6
 END
@@ -1048,14 +1048,14 @@ END
 
 STRING DLG_NULL 30
 BEGIN
-  PROMPT 23 1 "Ragione sociale      "
+  PROMPT 23 1 "Cognome / Rag. Soc.  "
   FLAGS "D"
   GROUP 3
 END
 
 STRING DLG_NULL 20
 BEGIN
-  PROMPT 23 2 "Nome o seconda parte rag. soc. "
+  PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
   FLAGS "D"
   GROUP 6
 END
@@ -1305,14 +1305,14 @@ END
 
 STRING DLG_NULL 30
 BEGIN
-  PROMPT 23 1 "Ragione sociale      "
+  PROMPT 23 1 "Cognome / Rag. Soc.  "
   FLAGS "D"
   GROUP 3
 END
 
 STRING DLG_NULL 20
 BEGIN
-  PROMPT 23 2 "Nome o seconda parte rag. soc. "
+  PROMPT 23 2 "Nome / Seconda Parte Rag. Soc. "
   FLAGS "D"
   GROUP 6
 END
@@ -1480,14 +1480,14 @@ END
 
 STRING DLG_NULL 30
 BEGIN
-  PROMPT 23 1 "Ragione sociale      "
+  PROMPT 23 1 "Cognome / Rag. Soc.  "
   FLAGS "D"
   GROUP 3
 END
 
 STRING DLG_NULL 20
 BEGIN
-  PROMPT 23 2 "Nome o seconda parte rag. soc. "
+  PROMPT 23 2 "Nome / Seconda parte Rag. Soc. "
   FLAGS "D"
   GROUP 6
 END
@@ -1646,7 +1646,7 @@ BEGIN
   HELP "Codice del titolo onorifico"
 END
 
-LIST F_RAGGOR 1 14
+LIST F_RAGGOR 1 16
 BEGIN
   PROMPT 2 15 "Raggruppamento ordine   "
   FIELD LF_CFVEN->RAGGOR 

cg/cg2100a.uml

@@ -89,7 +89,7 @@ BEGIN
 	OUTPUT F_CODCAUS CODCAUS
 	OUTPUT F_DESCRCAUS DESCR
 	ADD RUN cg0 -4
-	CHECKTYPE REQUIRED
+	CHECKTYPE NORMAL
 	WARNING "Causale assente"
 END
 

cg/cg2102.cpp

@@ -1184,7 +1184,8 @@ bool TPrimanota_application::caus_query_handler(TMask_field& f, KEY key)
       if (ok)
         f.mask().stop_run(K_INS);                 // Entra in modo inserimento
     } 
-    else return FALSE;
+    else 
+      return FALSE;
   } 
 
   return TRUE;

cg/cg2103.cpp

@@ -146,7 +146,7 @@ bool TRegistro::read_att()
     _att.zero();
     
   TString16 chiave;             // Ditta - Anno - Attivita' - Tipo Attivita' (fissata a 1)
-  chiave.format("%5ld", main_app().get_firm());
+  chiave.format("%05ld", main_app().get_firm());
   chiave << year();             // non fare << year() << attivita()
   chiave << attivita() << "1";
     

cg/cg5000a.uml

@@ -29,6 +29,7 @@ BEGIN
   WARNIG "Codice ABI errato"
 	USE %BAN
 	INPUT CODTAB[1,5] FLD_CODABI
+	INPUT CODTAB[6,10] FLD_CODCAB
 	DISPLAY "ABI@5" CODTAB[1,5]
 	DISPLAY "CAB@5" CODTAB[6,10]
 	DISPLAY "Denominazione@50" S0
@@ -46,10 +47,10 @@ BEGIN
   HELP "Codice CAB banca di appoggio per deleghe IVA"
   WARNIG "Codice CAB errato"
 	COPY ALL FLD_CODABI
-	INPUT CODTAB[6,10] FLD_CODCAB
 	CHECKTYPE NORMAL
 	FIELD CodCAB
 	FLAGS "Z"
+	VALIDATE REQUIF_FUNC 1 FLD_CODABI
 END
 
 STRING FLD_RAGSOCB 50

cg/cg5300.cpp

@@ -28,16 +28,16 @@ class TParaliq_app : public TRelation_application
   TString_array     _atts;  // array di stringhe con i codici attivita'
   TString_array     _tips;  // array di stringhe con i tipi attivita'
   long              _lastditta;
-  TString16         _freqiva;
 
   void              check_registers(int year);
 
-protected:
+protected: // Applicat
+  virtual void on_config_change();
 
+protected: // Relapp
   virtual bool         user_create();
   virtual bool         user_destroy();
   
-  // minchia di cristo
   virtual TRelation*   get_relation() const    { return _rel;  }
   virtual TMask*       get_mask(int mode)      { return _msk;  }
   virtual bool         changing_mask(int mode) { return FALSE; }
@@ -53,9 +53,8 @@ protected:
   virtual int          write(const TMask& m) { return rewrite(m);}
   virtual int          read(TMask& m);  
 
+protected:
   void                 init_array(TMask& m);
-                     
-  // notifier
   static bool          sheet_action(int r, KEY k);
   
 public:
@@ -142,19 +141,24 @@ void TParaliq_app::init_array(TMask& m)
       _atts.add(_attiv->get(ATT_CODATT));
       _tips.add(_attiv->get(ATT_TIPOATT));
     }
-    _ditte->put(NDT_CODDITTA, _lastditta);
+    
+    TString16 freq;
+    _ditte->put(NDT_CODDITTA, newditta);
     if (_ditte->read() == NOERR)
-      _freqiva = _ditte->get(NDT_FREQVIVA);
+      freq = _ditte->get(NDT_FREQVIVA);
-    else
+    m.set(F_FREQ_VERS, freq);
-      _freqiva = "";
   }                                
 }
 
+
+void TParaliq_app::on_config_change()
+{
+  TConfig d(CONFIG_DITTA);
+  _yearliq = (int)d.get_long("AnLiIv");
+}
+
 bool TParaliq_app::user_create()
 {
-  TConfig d(CONFIG_DITTA);
-  
-  _yearliq = (int)d.get_long("AnLiIv");
   _rel     = new TRelation(TAB_LIA);
   _pla     = new TTable(TAB_PLA);
   _attiv   = new TLocalisamfile(LF_ATTIV);
@@ -193,27 +197,25 @@ void  TParaliq_app::init_insert_mode(TMask& m)
   TSheet_field& sf = (TSheet_field&)m.field(F_SHEET_PLA);
   TToken_string tt(60);
 
+  // Inizializza array delle attivita'                            
   init_array(m);
   
-  m.set(F_FREQ_VERS, _freqiva);
+  // Inizializza array delle attivita'                            
-
   for (int i = 0; i < _atts.items(); i++)
   {
-    TString& att  = _atts.row(i);
+    const TString& tips = _tips.row(i);
-    TString& tips = _tips.row(i);
+    tt = _atts.row(i);
-
-    // cerca l'attivita' in pla   
-    tt = "";    
-    tt.add(att);
     tt.add(tips);
     tt.add("");
     tt.add("");
     tt.add("");
     tt.add("");
-    sf.row(-1) = tt;
+    sf.row(i) = tt;
   }
+  sf.force_update();
 }
 
+
 int TParaliq_app::rewrite(const TMask& m)
 {                  
   // scrive %LIA
@@ -230,7 +232,7 @@ int TParaliq_app::rewrite(const TMask& m)
   for (int i = 0; err == NOERR && i < _atts.items(); i++)
   {                      
     TToken_string&  tt = sf.row(i);
-    const TString&  att = (TString&) _atts[i];
+    const TString&  att = _atts.row(i);
     const TString16 tips(tt.get(1));
     const TString16 codtab(format("%05ld%4d%s1", firm, year, (const char *)att));
     
@@ -287,7 +289,7 @@ int TParaliq_app::rewrite(const TMask& m)
   if (err == NOERR) err = (was ? lia.rewrite() : lia.write());
   if (err == NOERR && year == _yearliq) 
   {
-    _ditte->put(NDT_CODDITTA, _lastditta);
+    _ditte->put(NDT_CODDITTA, firm);
     if (_ditte->read() == NOERR)
     {
       _ditte->put(NDT_FREQVIVA, m.get(F_FREQ_VERS));
@@ -310,31 +312,33 @@ int   TParaliq_app::read(TMask& m)
   // prende le attivita' una per una da _atts e 
   // crea le righe sheet
   m.autoload(get_relation()); 
-  TSheet_field& sf = (TSheet_field&)m.field(F_SHEET_PLA);
+
-  TToken_string tt(60);
   const long firm = m.get_long(F_CODDITTA);
   const int year  = m.get_int(F_YEAR);
   
+  TSheet_field& sf = (TSheet_field&)m.field(F_SHEET_PLA);
   sf.reset();
-  const TString16 ctab = format("%05ld%d", firm, year);
-  _pla->zero();
-  _pla->put("CODTAB", ctab);
 
-  for (int err = _pla->read(_isgteq); err == NOERR; _pla->next())
+  const TString16 ctab = format("%05ld%d", firm, year);
+  _pla->put("CODTAB", ctab);
+  TToken_string tt(60);
+  
+  for (_pla->read(_isgteq); _pla->good(); _pla->next())
   {
-    if (ctab == _pla->get("CODTAB").left(9))
+    if (strncmp(ctab, _pla->get("CODTAB"), 9) == 0)
     { 
       tt = "";
-      tt.add(ctab.mid(9,5));
+      tt.add(_pla->get("CODTAB").mid(9,5)); // codice attivita'   
       tt.add(_pla->get("S7"));              // tipo attivita'
       tt.add(_pla->get("R8"));              // prorata
       tt.add(_pla->get("R5"));              // plafond art. 8
       tt.add(_pla->get("R6"));              // plafond art. 8bis
       tt.add(_pla->get("R7"));              // plafond art. 9
-    }
-    else break;
       sf.row(-1) = tt;
     }
+    else break;
+  }
+  sf.force_update();
   
   return NOERR;
 }

cg/cg5300a.uml

@@ -38,7 +38,7 @@ BEGIN
   DISPLAY "Codice" CODDITTA
   COPY OUTPUT F_CODDITTA
   CHECKTYPE REQUIRED  
-  KEY 2
+  KEY 1
 END 
 
 NUMBER F_YEAR 4
@@ -49,7 +49,7 @@ BEGIN
   INPUT CODTAB[1,5] F_CODDITTA
   INPUT CODTAB[6,9] F_YEAR
   DISPLAY "Codice Ditta" CODTAB[1,5]
-  DISPLAY "Anno IVA" CODTAB[6,9]
+  DISPLAY "Anno Liquidazione IVA" CODTAB[6,9]
   OUTPUT F_YEAR CODTAB[6,9]
   KEY 1 
   CHECKTYPE REQUIRED

cg/cg5400.cpp

@@ -137,11 +137,14 @@ bool TRipristina_stampa::do_restore(long firm, const char * regist,
     {
       reg.put("D3", d);           // Data ultima stampa
       reg.put("I4", d.month()-1); // Ultimo mese di stampa liquidazione
+      if (reg.get_int("I8") >= d.month()) 
+        reg.zero("I8");           // Mese di ultima stampa credito precedente
     }  
     else
     {
       reg.zero("D3");
       reg.zero("I4");
+      reg.zero("I8");
     }  
     
     ok = (reg.rewrite() == NOERR);
@@ -150,7 +153,8 @@ bool TRipristina_stampa::do_restore(long firm, const char * regist,
                 (const char*)regist, mov.status());
   }
   else
-    ok = error_box("Impossibile leggere il registro %s anno %s", (const char *) regist, (const char *) year);
+    ok = error_box("Impossibile leggere il registro %s anno %s", 
+                   (const char*)regist, (const char*)year);
 
   return ok;
 }