Patch level : 10.0

Files correlati     : ce2.exe  cetbcce.msk
Ricompilazione Demo : [ ]
Commento            :
Aggiunti parametri all'esercizio cespiti per calcolare l'ammortamento al 100% o al 50% sui cespiti nuovi del 2008 permettendo anche di includere o escludere gli autoveicoli


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

ce/ce2101.cpp

@@ -1288,9 +1288,8 @@ void TCespite::calc_perc(TRelation& rel, const TRectype& tmv, const TRectype& tm
       }
       else
       {
-        // La finanziaria 2009 permette l'ammortamento civilistico al 100% 
+        const TDate dtmov = tmv.get_date(MOVCE_DTMOV);
-        // dei cespiti acquistati dal 2007
+        if (!cce.primo_ammortamento_100(dtmov, ammmv.get_int(AMMMV_TPAMM), auto_o_moto())) 
-        if (ammmv.get_int(AMMMV_TPAMM) != 2 || tmv.get_date(MOVCE_DTMOV).year() < 2007)
         {
           ammmv.put(AMMMV_PENOR, ammmv.get_real(AMMMV_PNOR)/2.0);
           ammmv.put(AMMMV_PEANT, ammmv.get_real(AMMMV_PANT)/2.0);
@@ -1843,9 +1842,7 @@ void TCespite::calc_amm_residui(bool is_valid)
           }
           else
           {
-            // La finanziaria 2009 permette l'ammortamento civilistico al 100% 
+            if (!cce.primo_ammortamento_100(dtfunz, _ammpro.get_int(AMMCE_TPAMM), auto_o_moto()))
-            // anche dei cespiti acquistati dal 2007
-            if (_ammpro.get_int(AMMCE_TPAMM) != 2 || dtfunz.year() < 2007) 
             {
               ammpro_put_perc(AMMCE_PNOR, ammini_get_real(AMMCE_PNOR)/2.0);
               ammpro_put_perc(AMMCE_PANT, ammini_get_real(AMMCE_PANT)/2.0);

ce/celib.cpp

@@ -211,6 +211,20 @@ bool TDitta_cespiti::esente_art14() const
   return _cce.get_bool("B7");
 }
 
+// La finanziaria 2009 permette l'ammortamento civilistico al 100% dei cespiti acquistati dal 2007
+// Ma visto che ogni commercialista vuol dire la sua: abbiamo reso tutto configurabile nel campo S6
+bool TDitta_cespiti::primo_ammortamento_100(const TDate& data, int tiposit, bool veicolo) const
+{
+  if (data.year() < 2008)
+    return false;
+
+  TString4 s6 = _cce.get("S6"); s6.left_just(4, '0');
+  if (veicolo && s6[3] != '1')
+    return false;
+
+  return tiposit >= 1 && tiposit <= 3 && s6[tiposit-1] == '1';
+}
+
 bool TDitta_cespiti::legge_223_06() const
 {
   const TDate data(4, 7, 2006);

ce/celib.h

@@ -41,6 +41,8 @@ public:
   real coefficiente_durata_esercizio() const;
   int anno_tuir() const { return _anno_tuir; }
   bool legge_223_06() const;
+
+  bool primo_ammortamento_100(const TDate& datamov, int tiposit, bool veicolo) const;
   
   bool bollato_stampato() const;
   bool ammortamento_proporzionale() const { return _amm_prop; }

ce/cetbcce.h

@@ -19,3 +19,8 @@
 
 #define F_DURATA       125
 #define F_COEFF_DURATA 126
+
+#define F_AMMFIS2008  131
+#define F_AMMCIV2008  132
+#define F_AMMGES2008  133
+#define F_AMMAUT2008  134

ce/cetbcce.uml

@@ -4,18 +4,9 @@ TOOLBAR "topbar" 0 0 0 2
 #include <relapbar.h>
 ENDPAGE
 
-TOOLBAR "" 0 -2 0 2
-
-BUTTON DLG_ATTIV 10 2
-BEGIN
-  PROMPT -11 -11 "~Attivitá"
-END
-
-ENDPAGE
-
 PAGE "Esercizi Cespiti" 0 2 0 0 
 
-GROUPBOX DLG_NULL 76 4
+GROUPBOX DLG_NULL 78 4
 BEGIN
   PROMPT 1 0 ""
   FLAGS "R"
@@ -38,7 +29,6 @@ BEGIN
   CHECKTYPE FORCED
 END
 
-
 DATE F_DATAINI
 BEGIN
   PROMPT 2 2 "Data inizio  "
@@ -51,9 +41,14 @@ BEGIN
   FLAGS "D"
 END
 
+BUTTON DLG_ATTIV 10 2
+BEGIN
+  PROMPT 64 1 "~Attivitá"
+END
+
 LISTBOX F_TIPOCONTAB 1 12
 BEGIN
-  PROMPT 2 4 "Tipo Contabilita' "
+  PROMPT 42 4 "Tipo Contabilita' "
   ITEM "1|Ordinaria"
   ITEM "2|Semplificata"
   FIELD I0
@@ -61,37 +56,37 @@ END
 
 BOOLEAN F_DIT_PROF
 BEGIN
-  PROMPT 2 5 "Ditta relativa a professionista"
+  PROMPT 2 4 "Ditta relativa a professionista"
   FIELD B0  
 END
 
 BOOLEAN F_ESERCOST
 BEGIN
-  PROMPT 2 6 "Esercizio di costituzione"
+  PROMPT 2 5 "Esercizio di costituzione"
   FIELD B1  
 END
 
 BOOLEAN F_RINV_AMM
 BEGIN
-  PROMPT 2 7 "Rinvio ammortamento a data conseguimento primi ricavi"
+  PROMPT 2 6 "Rinvio ammortamento a data conseguimento primi ricavi"
   FIELD B2  
 END
 
 BOOLEAN F_ES_ART14
 BEGIN
-  PROMPT 2 8 "Esercizio soggetto all'art. 14 c.2. Legge 449/97"
+  PROMPT 2 7 "Esercizio soggetto all'art. 14 c.2. Legge 449/97"
   FIELD B7
 END
 
-GROUPBOX DLG_NULL 76 7
+GROUPBOX DLG_NULL 78 7
 BEGIN
-  PROMPT 1 10 "@BParametri di calcolo"
+  PROMPT 1 8 "@BParametri di calcolo"
   FLAGS "R"
 END
 
 LISTBOX F_TIPO_ARR 1 12
 BEGIN
-  PROMPT 2 11 "Tipo arrotondamento "
+  PROMPT 2 9 "Tipo arrotondamento "
   ITEM "/|al centesimo"
   ITEM "+|per eccesso"
   ITEM "-|per difetto"
@@ -100,7 +95,7 @@ END
 
 LISTBOX F_TIPO_RIP 1 8
 BEGIN
-  PROMPT 40 11 "Tipo riproporzionamento "
+  PROMPT 40 9 "Tipo riproporzionamento "
   ITEM "2|a giorni"
   ITEM "1|a mesi"
   FIELD I1
@@ -108,36 +103,72 @@ END
 
 BOOLEAN F_AMM_VEND
 BEGIN
-  PROMPT 2 12 "Ammortamento anche parti vendute"
+  PROMPT 2 10 "Ammortamento anche parti vendute"
   FIELD B3
 END
 
 BOOLEAN F_RAGGUAGLIO
 BEGIN
-  PROMPT 2 13 "Ragguaglio al periodo di possesso degli ammortamenti sulle parti vendute"
+  PROMPT 2 11 "Ragguaglio al periodo di possesso degli ammortamenti sulle parti vendute"
   FIELD B4
 END
 
 BOOLEAN F_ESPOSIZIONE
 BEGIN
-  PROMPT 2 14 "Esposizione fondi per ammortamenti diretti su LIBRO CESPITI"
+  PROMPT 2 12 "Esposizione fondi per ammortamenti diretti su LIBRO CESPITI"
   FIELD B5
 END
 
 NUMBER F_DURATA 3
 BEGIN
-  PROMPT 2 15 "Giorni di durata esercizio "
+  PROMPT 2 13 "Giorni di durata esercizio "
   FLAGS "DG"
   FIELD I3
 END
 
 NUMBER F_COEFF_DURATA 11 9
 BEGIN
-  PROMPT 41 15 "Coefficiente di durata "
+  PROMPT 41 13 "Coefficiente di durata "
   FLAGS "DG"        
   FIELD S5
 END
-ENDPAGE
+
+GROUPBOX DLG_NULL 78 6
+BEGIN
+  PROMPT 1 15 "@bAmmortamento cespiti nuovi (dal 2008)"
 END
+
+RADIOBUTTON F_AMMFIS2008 5 10
+BEGIN
+  PROMPT 2 16 "@bFiscale"
+  ITEM "0|50%"
+  ITEM "1|100%"
+  FIELD S6[1,1]
+END
+
+RADIOBUTTON F_AMMCIV2008 5 10
+BEGIN
+  PROMPT 15 16 "@bCivilistico"
+  ITEM "0|50%"
+  ITEM "1|100%"
+  FIELD S6[2,2]
+END
+
+RADIOBUTTON F_AMMGES2008 5 10
+BEGIN
+  PROMPT 28 16 "@bGestionale"
+  ITEM "0|50%"
+  ITEM "1|100%"
+  FIELD S6[3,3]
+END
+
+RADIOBUTTON F_AMMAUT2008 5 15
+BEGIN
+  PROMPT 41 16 "@bAutomezzi"
+  ITEM "0|Esclusi"
+  ITEM "1|Inclusi"
+  FIELD S6[4,4]
+END
+
 ENDPAGE
 ENDMASK