Patch level :10.0 286

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
0000563: Movimenti di analitica (ca2)
Descrizione  Permettere di inserire movimenti di preventivo /variazione preventivo su esercizi non ancora aperti
(per il nostro invincibile fuhrer!)


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

ca/ca2100.cpp

@@ -395,11 +395,19 @@ bool TMovanal_msk::on_field_event(TOperable_field& o, TField_event e, long jolly
       TDate datacomp = o.get();
       if (!datacomp.ok())
         datacomp = datareg;
-      if (datacomp > datareg)
+
+      const bool preventivo = get(F_TIPO).full();
+      //i movimenti normali devono avere data competenza nel presente o passato!!
+      if (!preventivo && datacomp > datareg)
         return error_box(TR("La data di competenza non puo' superare la data di registrazione"));
 
       const TEsercizi_contabili ec;
-      const int ae = ec.date2esc(datacomp);
+      int ae = ec.date2esc(datacomp);
+
+      //movimenti preventivi in esercizi futuri
+      if (ae <= 0 && preventivo && datacomp > datareg)
+        ae = ec.date2esc(datareg) + datacomp.year() - datareg.year();
+
       if (ae > 0)
         set(F_ANNOES, ae, 0x1);
       else
@@ -407,9 +415,20 @@ bool TMovanal_msk::on_field_event(TOperable_field& o, TField_event e, long jolly
 
       const int ar = ec.date2esc(datareg);
       const int ap = ec.pred(ar);
+      
+      //preventivi un anno indietro, nel presente o nel futuro
+      if (preventivo)
+      {
+        if (ae < ap)
+          return error_box(FR("La data di competenza non può precedere l'esercizio %d"), ap);
+      }
+      else  //normali solo un anno indietro o nel presente
+      {
         if (ae != ar && ae != ap)
           return error_box(FR("La data di competenza deve appartenere all'esercizio in corso o al precedente"));
       }
+
+    }
     break;
   case F_DATAFCOMP:
     if (e == fe_modify || e == fe_close)

ca/ca2100a.uml

@@ -38,8 +38,11 @@ LIST F_TIPO 1 25
 BEGIN
   PROMPT 2 5 "Tipo movimento        "
   ITEM " |Normale"
+    MESSAGE CLEAR,F_DATAFCOMP
   ITEM "P|Preventivo"
+    MESSAGE ENABLE,F_DATAFCOMP
   ITEM "V|Variazione preventivo"
+    MESSAGE ENABLE,F_DATAFCOMP
   FIELD TIPOMOV
 END