Aggiunto programma per aggiornamento codice esercizio sui movimenti

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

cg/cg1300.cpp

@@ -17,6 +17,7 @@
 #include "cg1302.h" 
 #include "cg1303.h" 
 #include "cg1304.h"
+#include "cg1305.h"
 #include "cg1.h"  
 
 class TAgg_attiv : public TApplication
@@ -126,32 +127,38 @@ int cg1300(int argc, char* argv[])
     a.run(argc, argv, "Aggiornamento tipo attivita' su movimenti iva");
   }
   break;
- case 'I':
+	case 'I':
-{
+	{
-  TAgg_opintra a;
+  	TAgg_opintra a;
-  a.run(argc, argv, "Aggiornamento flag op. intracomunitarie");       
+  	a.run(argc, argv, "Aggiornamento flag op. intracomunitarie");       
-}
+	}
-break;
+	break;
- case 'T':
+ 	case 'T':
-{
+	{
-  TAgg_tconto a;                      
+  	TAgg_tconto a;                      
-  a.run(argc, argv, "Aggiornamento tipo conto");       
+  	a.run(argc, argv, "Aggiornamento tipo conto");       
-}
+	}
-break;
+	break;
- case 'P':
+ 	case 'P':
-{   
+	{   
-  TAgg_nprot a;       
+  	TAgg_nprot a;       
-  a.run(argc, argv,"Rinumerazione numero di protocollo");
+  	a.run(argc, argv,"Rinumerazione numero di protocollo");
-} 
+	} 
-break;
+	break;
- case 'C':
+ 	case 'C':
-{   
+	{   
-  TAgg_codatt a;       
+  	TAgg_codatt a;       
-  a.run(argc, argv,"Aggiornamento codice attivita'");
+  	a.run(argc, argv,"Aggiornamento codice attivita'");
-} 
+	} 
-break;
+	break;
-default:
+ 	case 'E':
-break;
+	{   
+  	TAgg_codes a;       
+  	a.run(argc, argv,"Aggiornamento codice esercizio");
+	} 
+	break;
+	default:
+	break;
 }
 return TRUE;
 }

cg/cg1300d.uml

@@ -0,0 +1,42 @@
+PAGE "Aggiornamento codice esercizio" -1 -1 72 12
+
+TEXT DLG_NULL
+BEGIN
+   PROMPT -11 1 "ATTENZIONE!"
+END
+
+TEXT DLG_NULL
+BEGIN
+   PROMPT -11 2 "Questa procedura ricalcola il codice esercizio"
+END
+
+TEXT DLG_NULL
+BEGIN
+   PROMPT -11 3 "di tutti i movimenti di prima nota."
+END
+
+TEXT DLG_NULL
+BEGIN
+   PROMPT -11 4 "Si desidera continuare?"
+END
+
+BUTTON DLG_OK 9 2
+BEGIN
+ PROMPT -12 -1 ""  
+END
+
+BUTTON DLG_CANCEL 9 2
+BEGIN
+ PROMPT -22 -1 ""  
+END
+
+ENDPAGE
+
+ENDMASK
+
+
+
+
+
+
+

cg/cg1305.cpp

@@ -0,0 +1,57 @@
+// sistema il codice esercizio di tutti i movimenti
+
+#include <mov.h>
+#include "cglib.h"
+#include "cg1300.h"
+#include "cg1305.h"
+
+inline TAgg_codes& app() { return (TAgg_codes&) main_app(); }
+
+bool TAgg_codes::create()
+{
+	TApplication::create();
+	_mov = new TLocalisamfile(LF_MOV);
+  dispatch_e_menu (BAR_ITEM(1));
+  return TRUE;
+}
+
+bool TAgg_codes::destroy()
+{ 
+  delete _mov;
+  
+  return TApplication::destroy();
+}                                
+
+bool TAgg_codes::menu(MENU_TAG m)
+{
+  TMask msk("cg1300d");
+	if (msk.run() == K_ENTER)
+  	return calcola_codes();
+	else 
+		return FALSE;
+}  
+
+bool TAgg_codes::calcola_codes()
+{
+	TLocalisamfile& mov = get_mov();
+	TEsercizi_contabili esercizi;
+	TRecfield datacomp(mov.curr(), "DATACOMP");
+	TRecfield annoes(mov.curr(), "ANNOES");
+
+	long nrecs = (long) mov.eod();
+  TProgind p(nrecs, "Aggiornamento in corso...", TRUE, TRUE, 50);
+
+	for (mov.first(); !mov.eof(); mov.next())
+	{ 
+		p.addstatus(1);
+		TDate data = (TDate) datacomp;
+		int codes = atoi(annoes);
+		int newcodes = esercizi.date2esc(data);
+		if (codes != newcodes)
+		{
+			annoes = newcodes;
+			mov.rewrite();
+		}
+	}
+	return message_box("Aggiornamento codice esercizio completata");
+}

cg/cg1305.h

@@ -0,0 +1,25 @@
+#include <applicat.h> 
+#include <mask.h>
+//#include <relation.h>
+//#include <tabutil.h>
+#include <utility.h>
+#include <progind.h>
+#include <urldefid.h> 
+//#include <config.h> 
+
+class TAgg_codes : public TApplication
+{
+  TLocalisamfile*   _mov;
+
+public:        
+  virtual bool create();
+  virtual bool destroy();
+  virtual bool menu(MENU_TAG m);         
+	
+	TLocalisamfile& get_mov() { return *_mov; }
+  
+  bool calcola_codes();
+
+  TAgg_codes() {};
+  virtual ~TAgg_codes() {};
+};