Correzioni calcolo acconti

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

cg/cg4300.cpp

@@ -253,6 +253,7 @@ bool TLiquidazione_app::user_destroy()
 bool TLiquidazione_app::set_print(int n)
 {
   _descr_arr.destroy();
+  _errors.destroy();
   
   switch(n)
   {

cg/cg4300.h

@@ -176,6 +176,7 @@ class TLiquidazione_app : public TPrint_application
   bool       _isservizio;      // servizi, professionisti, artisti
   bool       _isrimborso;      // vuole il rimborso infraannuale
   bool       _isricacq;        // ricalcolo imposte acq. riv (par. ditta)
+  bool       _isdifferita;     // liquidazione differita
   bool       _calcall;         // tutte le ditte nessuna esclusa
   bool       _isbase;          // stampa base di calcolo acconto
   tbc        _basecalc;        // tipo base di calcolo acconto

cg/cg4301.cpp

@@ -106,19 +106,13 @@ bool TLiquidazione_app::update_firm(int month, bool recalc)
   
   look_lim(month, TRUE);
 
-  // gia' ricalcolata definitivamente? 
+  TConfig cnf(CONFIG_DITTA, "cg");
-  bool ok   = _lim->get_bool("B1");
+  _isdifferita = cnf.get_bool("GeLiDi");
-  if (ok && !_comp_acconto) return TRUE;
+  TConfig cnf1(CONFIG_STUDIO, "cg");
-  
+  _isricacq =    cnf1.get_bool("RicAcq");
-  // azzera ulteriori detrazioni
-  _lim->put("R6","");
-  _lim->rewrite(); 
-
-  TConfig cnf(CONFIG_STUDIO, "cg");
-  _isricacq = cnf.get_bool("RicAcq");
 
   // ricalcolo normale
-  ok   = _lim->get_bool("B0");
+  bool ok   = _lim->get_bool("B0");
   if (ok && !recalc) return TRUE; 
   bool calc = (_recalc == ever || (_recalc == one && month == _month));
   if (!calc && _recalc != never) calc = !ok;
@@ -171,6 +165,7 @@ bool TLiquidazione_app::update_firm(int month, bool recalc)
         }
         else
           _isservizio  = _nditte->curr(LF_ATTIV).get("TIPOATT") == "S";
+
         _isviaggio   = _nditte->curr(LF_ATTIV).get_bool("REG74TER");
         _isagricolo  = _nditte->curr(LF_ATTIV).get_bool("REGAGR");
         _isbenzinaro = _nditte->curr(LF_ATTIV).get_bool("ART74/4");
@@ -384,8 +379,8 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
     /*
      * check date se si calcola l'acconto
      */
-    if (_month == 12 && _comp_acconto)
+    if (_comp_acconto)
-      if (date.month() != 12 && date.day() > 20)
+      if(date.month() != 12 && date.day() > 20)
         continue;
     
     bool    corrisp  = _reg_r->get_bool("B0");  

cg/cg4304.cpp

@@ -82,7 +82,7 @@ void TLiquidazione_app::describe_att(int month, const char* codatt, bool isresul
       describe_agricolo(month, codatt);
     if (atts.items() == 1 && _isviaggio) 
       describe_viaggio(month, codatt);
-    if (isresult)
+    if (isresult || _isannual)
       describe_pims(month,codatt);
     if (atts.items() == 1)
       describe_consistence(codatt);
@@ -353,7 +353,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
         continue;                                 
       
       if (strcmp((const char*)*_pim_codatt, att) == 0        &&
-          is_month_ok(atoi(*_pim_mese),month) &&
+          (is_month_ok(atoi(*_pim_mese),month) || _isannual) &&
           _year == (const char*)*_pim_anno)
       {
         // vedi se c'e' gia' un item corrispondente

cg/cg4305.cpp

@@ -5,6 +5,7 @@
 #include <progind.h>
 #include <prefix.h>
 #include <sheet.h>
+#include <utility.h>
 
 #include "cg4300.h"
 #include "cg4300b.h"
@@ -113,30 +114,13 @@ bool TLiquidazione_app::extract_deleghe()
 
 bool TLiquidazione_app::extract_delega(int month)
 {
-  if (_isriepilogo && !_isannual) 
-    return FALSE;
   if (look_lim(month))
   {
-    real topay = _lim->get_real("R0");
+    real topay = result_liq(month);
     real intr  = _lim->get_real("R7");
     
-    if (topay.sign() <= 0) return TRUE;
+    if (topay.sign() <= 0) 
-
+      return TRUE;
-    if (_isannual)
-    {
-      if (look_del(12,7))
-      {
-        topay -= _del->get_real("R0");
-        intr -= _del->get_real("R1");
-      }
-    }
-    else 
-    {
-      // importo rettifiche solo se non e' annuale
-      topay += _lim->get_real("R5");
-      intr  += _del->get_real("R1");
-    }
-    
     if (topay.sign() > 0)
     {
       look_del(month, _isannual ? 2 : 1, TRUE);
@@ -255,57 +239,54 @@ bool TLiquidazione_app::recalc_acconto()
     _comp_acconto = TRUE;
     // force recalc of current month
     _recalc       = one;               
+    // insozza il water
     update_firm(12);
     
-    // TBI calcola l'acconto!!!
+    // calcola l'acconto
     if (look_lim(12))
     {
-      basecalcolo = _lim->get_real("R0");
+      basecalcolo = result_liq(12);
       if (basecalcolo.sign() > 0)
         acconto = basecalcolo * ACCONTO_DICEMBRE;
     }
-    else
+    else acconto = real(-1.0);
-    {
+    // pulisci il water
-      acconto = real(-1);
-    }
-    // riaggiustati le palle
     _comp_acconto = FALSE;
     update_firm(12);
   }
-else if (_basecalc == precedente)
+  else if (_basecalc == precedente)
-{
-  int yr = atoi(_year) - 1;
-  _lim->zero();
-  *_lim_anno = yr;
-  *_lim_mese = 12;
-  if (_lim->read() == NOERR)
   {
-    basecalcolo = _lim->get_real("R0");
+    int yr = atoi(_year);  
+    _year = format("%d",yr-1);
+    if (look_lim(12))
+    {
+      basecalcolo = result_liq(12);
       if (basecalcolo.sign() > 0)
       acconto = basecalcolo * ACCONTO_DICEMBRE;
     }
     else error = TRUE;     
-}
+    _year = format("%d", yr);
+  }
 
-// sbatti l'acconto in LIA
+  // sbatti l'acconto in LIA
-if (look_lia())
+  if (look_lia())
-{
+  {
     _lia->put("R4",acconto);
     isdifferita = _lia->get_bool("B1");
     _lia->rewrite();
-}
+  }
 
-if (acconto.sign() > 0)
+  if (acconto.sign() > 0)
-{
+  {
     // crea o aggiorna delega
     look_del(12,7,TRUE);
     _del->put("R0", acconto);
     _del->rewrite();
-}
+  }
 
-// per questa volta lasciamo perdere la describe_acconto
+  // per questa volta lasciamo perdere la describe_acconto
-if (_isprint)
+  if (_isprint)
-{
+  {
     _DescrItem* d = new _DescrItem(ACCONTO);
     d->_r0 = basecalcolo;
     d->_r1 = acconto;
@@ -316,7 +297,7 @@ if (_isprint)
     d->_s0 = _nditte->curr().get("CODDITTA");
     d->_s1 = _nditte->curr().get("RAGSOC");
     _descr_arr.add(d);
-}  
+  }  
-return TRUE;
+  return TRUE;
 }
 

cg/prassis.doc

@@ -1,10 +1,6 @@
 # File configurazione contabilita'
 # Versione commentata da NON usare direttamente
 # Guy 16-9-94
-# Paragrafo Main
-[Main]
-# Text editor per viswin etc. 
-Editor  = notepad
 # Paragrafo Contabilita'
 [cg]
 # Maschera edit