Patch level :10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :aggiunto campo datafcomp ai movimenti anali. richiesta del nostro illustre fuhrer adolf magnavakken (dalla 5.0)


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

ca/ca2100.cpp

@@ -412,6 +412,21 @@ bool TMovanal_msk::on_field_event(TOperable_field& o, TField_event e, long jolly
       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)
+    {
+      const TDate datacomp = get(F_DATACOMP);
+      const TDate datafcomp = o.get();
+      if (datafcomp.ok())
+      {
+        if (datafcomp < datacomp)
+          return error_box(((TEdit_field&)o).get_warning());
+      }
+      else
+        o.set(datacomp.string()); //se la data fine competenza viene lasciata vuota -> e' uguale alla datacomp
+    }
+    
     break;
   case F_RIGHE:
     if (e == se_enter)

ca/ca2100a.h

@@ -21,6 +21,7 @@
 #define F_TIPOCF		221
 #define F_CODCF			222
 #define F_RAGSOCCF	223
+#define F_DATAFCOMP 224
 
 #define F_NUMREG2   301
 #define F_ANNOES2   302

ca/ca2100a.uml

@@ -1,12 +1,12 @@
 #include "ca2100a.h"
 
-TOOLBAR "topbar" 0 0 0 2
+TOOLBAR "" 0 -3 0 3
 
-#include <relapbar.h>
+#include <toolbar.h>
 
-ENDPAGEE
+ENDPAGE
 
-PAGE "Testata" 0 0 0 2
+PAGE "Testata" -1 -1 80 20
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
@@ -37,9 +37,9 @@ END
 LIST F_TIPO 1 25
 BEGIN
   PROMPT 2 5 "Tipo movimento        "
-  ITEM " |Normale"
+  ITEM " |Normale" MESSAGE RESET,F_DATAFCOMP|HIDE,F_DATAFCOMP
-  ITEM "P|Preventivo"
+  ITEM "P|Preventivo" MESSAGE SHOW,F_DATAFCOMP
-  ITEM "V|Variazione preventivo"
+  ITEM "V|Variazione preventivo" MESSAGE SHOW,F_DATAFCOMP
   FIELD TIPOMOV
 END
 
@@ -56,7 +56,7 @@ END
 
 NUMBER F_NUMREG 7
 BEGIN
-  PROMPT 52 6 "Movimento n. "
+  PROMPT 54 5 "Movimento n. "
   USE LF_MOVANA SELECT TIPOMOV==#F_TIPO
   INPUT NUMREG F_NUMREG
   DISPLAY "Numero@7" NUMREG
@@ -82,9 +82,16 @@ BEGIN
   WARNING "La data di competenza non appartiene ad un esercizio valido"
 END
 
+DATE F_DATAFCOMP
+BEGIN
+  PROMPT 43 7 "Data di fine competenza "
+  FIELD DATAFCOMP
+  WARNING "La data di fine competenza non puo' essere anteriore alla data di competenza"
+END
+
 NUMBER F_ANNOES 4
 BEGIN
-  PROMPT 52 7 "Esercizio    "
+  PROMPT 54 6 "Esercizio    "
   FIELD ANNOES
   MESSAGE COPY,F_ANNOES2
   FLAGS "DG"

ca/f107.dir

@@ -1,3 +1,3 @@
 107
 0
-$movana|0|0|168|0|Movimenti di Analitica|||
+$movana|0|0|176|0|Movimenti di Analitica|||

ca/f107.trr

@@ -1,5 +1,5 @@
 107
-21
+22
 ANNOES|9|4|0|Codice esercizio
 NUMREG|3|7|0|Numero di operazione
 DATAREG|5|8|0|Data operazione
@@ -21,6 +21,7 @@ DPROVV|1|1|0|Documento originale PROVV
 DANNO|2|4|0|Documento originale ANNO
 DCODNUM|1|4|0|Documento originale CODNUM
 DNDOC|3|7|0|Documento originale NDOC
+DATAFCOMP|5|8|0|Data finale competenza (solo Preventivi e Variazioni)
 3
 NUMREG| 
 DATACOMP+NUMREG|X

ca/movana.h

@@ -19,5 +19,6 @@
 #define MOVANA_DANNO    "DANNO"
 #define MOVANA_DCODNUM  "DCODNUM"
 #define MOVANA_DNDOC    "DNDOC"
+#define MOVANA_DATAFCOMP "DATAFCOMP"
 
 #endif