Patch level : 1.7 at 682

Files correlati     : at9.exe
Ricompilazione Demo : [ ]
Commento            : Estrazione archivi per aggiornamento: funzionano gli automatismi data e percorso sulla sezione


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

at/at9200.cpp

@@ -1,4 +1,5 @@
 #include <applicat.h>
+#include <automask.h>
 #include <filetext.h>
 #include <form.h>
 #include <mask.h>
@@ -19,11 +20,24 @@
 #include "benem.h"
 #include "storico.h"
 
+class TCom2prov_mask : public TAutomask
+{
+protected:
+  bool on_field_event(TOperable_field& o, TField_event e, long jolly);
+public:
 
+  TCom2prov_mask();
+  
+  virtual ~TCom2prov_mask(){};
+};
+  
+TCom2prov_mask::TCom2prov_mask() :TAutomask ("at9200a")
+{
+}  
   
 class TCom2prov: public TSkeleton_application
 {
-  TMask*          _msk;
+  TCom2prov_mask* _msk;
 	TRelation*   		_rel;
 	TConfig* 				_configfile;
   
@@ -34,9 +48,9 @@ protected:
   void transfer();
 
 public:
-  const TMask& msk() const { return *_msk; }
   TCom2prov() {}
   virtual ~TCom2prov() {}
+  TConfig& get_config() { return *_configfile;}
 };
 
 // restituisce un riferimento all' applicazione
@@ -45,7 +59,7 @@ inline TCom2prov& app() { return (TCom2prov&) main_app();}
 // creazione dell'applicazione
 bool TCom2prov::create()
 {                    
-  _msk = new TMask("at9200a");
+  _msk = new TCom2prov_mask();
 	_configfile = new TConfig("at9200a.ini");
   return TSkeleton_application::create();
 }
@@ -58,19 +72,37 @@ bool TCom2prov::destroy()
   return TSkeleton_application::destroy();
 }
 
-// carica la maschera 
+bool TCom2prov_mask::on_field_event(TOperable_field& f, TField_event e, long jolly)
+{ 
+  switch (f.dlg())
+  {
+  case F_SEZINI:
+    if (e == fe_modify)
+    {                                      
+    	TString16 sezini = get(F_SEZINI);
+		  TString80 percorso = app().get_config().get("PERCORSO", "ARCHIVIO");
+    	if (percorso.find(sezini) == -1)
+    	{
+    		TConfig configditta(CONFIG_DITTA);
+		  	set(F_DATA, configditta.get(sezini, "AT"));
+		  	percorso << sezini;
+		  	percorso << '\\';
+		  	set(F_PERCORSO, percorso);
+		  }	
+    }
+    break;
+  default:
+    break;
+  }
+  return TRUE;
+}
+
+
+
 void TCom2prov::main_loop()
 {                       
-  _msk->set(F_PERCORSO,_configfile->get("PERCORSO", "ARCHIVIO"));
+  if (_msk->run() == K_ENTER)
-  _msk->set(F_DATA,_configfile->get("DATA", "ARCHIVIO"));
-  KEY key = _msk->run();
-  if (key == K_ENTER)
-  {
     transfer();
-  	_configfile->set("PERCORSO", _msk->get(F_PERCORSO), "ARCHIVIO");
-  	TDate oggi(TODAY);
-  	_configfile->set("DATA", oggi, "ARCHIVIO");
-  }	
 }
 
 // trasferimento dati da file CT su programma avis
@@ -194,6 +226,10 @@ void TCom2prov::transfer()
  			}	
  		}
  	}
+	TDate oggi(TODAY);
+	TConfig configditta(CONFIG_DITTA);
+	configditta.set(_msk->get(F_SEZINI), oggi, "AT");
+ 	
 }
 
 int at9200(int argc, char* argv[])

at/at9200a.h

@@ -6,9 +6,9 @@
 #define F_CONTROLLI   103
 #define F_BENEMERENZE 104
 #define F_STORICO     105
-#define F_DATA        106
+#define F_SEZINI      106
-#define F_PERCORSO    107
+#define F_D_SEZINI    107
-#define F_SEZINI      108
+#define F_SOTINI      108
-#define F_D_SEZINI    109
+#define F_D_SOTINI    109
-#define F_SOTINI      110
+#define F_DATA        110
-#define F_D_SOTINI    111
+#define F_PERCORSO    111

at/at9200a.uml

@@ -44,19 +44,9 @@ BEGIN
    PROMPT 2 6 "Storico"
 END
 
-DATE F_DATA
-BEGIN
-   PROMPT 2 8 "Modifiche a partire dal "
-END
-
-STRING F_PERCORSO 50
-BEGIN
-   PROMPT 2 9 "Percorso "
-END
-
 STRING F_SEZINI  2
 BEGIN
-  PROMPT 2 11 "Sezione "
+  PROMPT 2 8 "Sezione "
   FLAGS "U"
   USE LF_SEZIONI
   INPUT CODSEZ F_SEZINI
@@ -75,7 +65,7 @@ END
 
 STRING F_D_SEZINI 25
 BEGIN
-  PROMPT 16 11 ""
+  PROMPT 16 8 ""
   FLAGS "U"
   USE LF_SEZIONI KEY 2
   INPUT DENSEZ F_D_SEZINI
@@ -90,7 +80,7 @@ END
 
 STRING F_SOTINI 2
 BEGIN
-  PROMPT 2 12 "Sottog. "
+  PROMPT 2 9 "Sottog. "
   COPY ALL F_SEZINI
   CHECKTYPE SEARCH
   HELP "Codice sottogruppo da cui partire"
@@ -98,7 +88,7 @@ END
 
 STRING F_D_SOTINI 25
 BEGIN        	
-  PROMPT 16 12 ""
+  PROMPT 16 9 ""
   FLAGS "U"
   COPY USE F_D_SEZINI
   INPUT DENSEZ F_D_SEZINI
@@ -109,5 +99,18 @@ BEGIN
   HELP "Sottogruppo da cui partire"
 END
 
+DATE F_DATA
+BEGIN
+   PROMPT 2 11 "Modifiche a partire dal "
+END
+
+STRING F_PERCORSO 50
+BEGIN
+   PROMPT 2 12 "Percorso "
+END
+
+
+
+
 ENDPAGE
 ENDMASK