Patch level : 10.0 424

Files correlati     : tc0.exe
Ricompilazione Demo : [ ]
Commento

Ristrutturate  le tabelle di conversione per Teamsystem


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

tc/tc0.cpp

@@ -8,13 +8,14 @@ int main(int argc, char** argv)
   switch (op)
   {
 //    case  1: tc0200(argc,argv); break;
-   case  2: tc0300(argc,argv); break;  // parametri ditta TeamSystem
+   case  2: tc0300(argc,argv); break;  // parametri ditta
 //		case	3: tc0400(argc,argv); break;
 		case	4: tc0500(argc,argv); break;	//gestore tabelle multirel
 		case	5: tc0600(argc,argv); break;  //importazione PCon, Cuas, CodIVA
 		case	6: tc0700(argc,argv); break;	//esportazione contabilita' a TeamSystem
 		case	7: tc0800(argc,argv); break;	// Riclassificazione conti TeamSystem
-    default: ; // tc0100(argc,argv); break;
+//		case	8: tc0900(argc,argv); break;	// esportazione contabilita' a TeamSystem dat transfer AS400
+    default: ; tc0100(argc,argv); break;
   }
   exit(0);
   return 0;

tc/tc0.h

@@ -1,11 +1,13 @@
 #ifndef __TC0_H
 #define __TC0_H
 
+int tc0100(int argc, char* argv[]);
 int tc0300(int argc, char* argv[]);
 int tc0500(int argc, char* argv[]);
 int tc0600(int argc, char* argv[]);
 int tc0700(int argc, char* argv[]);
 int tc0800(int argc, char* argv[]);
+int tc0900(int argc, char* argv[]);
 
 #endif // __TC0_H
 

tc/tc0100.cpp

@@ -1,6 +1,55 @@
 #include "tc0.h"
 
+// gestione tabelle Zucchetti
+#include <modaut.h>
+#include <modtbapp.h>
+#include <tabutil.h>
+
+
+// applicazione per la gestione delle tabelle di magazzino
+class Tab_app_teamsystem : public TTable_module_application
+{
+  
+protected:  // TRelation_application
+  virtual bool user_create() ;
+  
+public:
+	Tab_app_teamsystem() {}
+  virtual ~Tab_app_teamsystem() {}
+};
+
+HIDDEN inline Tab_app_teamsystem& app() { return (Tab_app_teamsystem&)main_app(); }
+
+
+bool Tab_app_teamsystem::user_create()
+{
+  /*
+    la Tab_application::user_create() apre la maschera TMask in modo automatico
+    basandosi sul parametro passato sulla linea di comando e sulla convenzione
+    nome = "BATB"+parametro;
+    ORA:
+      - questa convenzione cambierà per separare i programmi (e le maschere)
+          dei vari pacchetti
+          In tal caso ridefinire il metodo virtual mask_name()
+      - secondo il nuovo stile, gli handler vanno posti in maschere derivate
+        dalla TMask (TMask_tabzucc, TMask_tabcau, ecc), pertanto occorre che 
+        la maschera aperta sia del tipo corretto 
+        per questo motivo la maschera viene creata dalla user_create()
+  */
+
+  bool ok = TTable_module_application::user_create();
+  
+  if (ok) 
+  {
+    //TMask& mask = *set_mask();
+  }
+  
+  return ok;
+}
+
 int tc0100(int argc, char **argv) 
 {
+	Tab_app_teamsystem a;
+  a.run(argc, argv, TR("Tabella"));
   return 0;
 }

tc/tc0500.cpp

@@ -5,17 +5,22 @@
 
 class TTeamSystem_multirel_app : public TMultirel_application
 {
+  bool _use_tab;
 
 protected:
 	virtual void set_descr(TMask & m, const TString & desc);
 	virtual void get_mask_name(TString& tabname) const;
 	//magico metodo per impedire la navigazione su tabelle diverse da quella corrente del cursore
 	virtual bool has_filtered_cursor() const { return true; }
+  virtual void init_query_mode(TMask& m);
+  virtual void init_query_insert_mode(TMask& m);
+  virtual void init_modify_mode(TMask& m);
+	virtual void init_insert_mode(TMask& m);
   virtual bool user_create();
 
 public:
   
-  TTeamSystem_multirel_app() {}
+	TTeamSystem_multirel_app() : _use_tab(true) {}
   virtual ~TTeamSystem_multirel_app() {}
 };
 
@@ -30,6 +35,40 @@ void TTeamSystem_multirel_app::get_mask_name(TString& tabname) const
 	tabname.overwrite("ts", 2);
 }
 
+void  TTeamSystem_multirel_app::init_query_mode(TMask& m)
+{
+	TMultirel_application::init_query_mode(m);
+	m.show(-1);
+	m.hide(-2);
+	m.enable(-3, _use_tab);
+}
+
+void  TTeamSystem_multirel_app::init_query_insert_mode(TMask& m)
+{
+	TMultirel_application::init_query_insert_mode(m);
+	m.show(-1, !_use_tab);
+	m.show(-2, _use_tab);
+	m.enable(-3, _use_tab);
+}
+
+void  TTeamSystem_multirel_app::init_modify_mode(TMask& m)
+{
+	TMultirel_application::init_modify_mode(m);
+	m.show(-1);
+	m.disable(-1);
+	m.hide(-2);
+	m.disable(-3);
+}
+
+void  TTeamSystem_multirel_app::init_insert_mode(TMask& m)
+{
+	TMultirel_application::init_insert_mode(m);
+	m.show(-1);
+	m.disable(-1);
+	m.hide(-2);
+	m.disable(-3);
+}
+
 bool TTeamSystem_multirel_app::user_create()
 {
 	bool ok = TMultirel_application::user_create();
@@ -37,11 +76,11 @@ bool TTeamSystem_multirel_app::user_create()
 	if (ok)
 	{
 		TConfig config(CONFIG_DITTA);
-		const bool use_pcn = config.get_bool("TSUSECMTAB");
+		_use_tab = config.get_bool("TSUSECMTAB");
 		TMask & m = *get_mask();
 
-		m.show(-10, use_pcn);
+		m.show(-10, _use_tab);
-		m.show(-20, !use_pcn);
+		m.show(-20, !_use_tab);
 		set_search_field(F_CODTAB);
 	}
 	return ok;

tc/tc0701.cpp

@@ -41,11 +41,10 @@ TObject* TRiclassifica_cache::key2obj(const char* key)
 	tok.get(0,tab);
 	tok.get(1, cod);
 	_multirel.put(MULTI_COD, tab);
-	_multirel.put(MULTI_FIRST, "");
+	_multirel.put(MULTI_FIRST, cod);
-	_multirel.put(MULTI_SECOND, cod);
+	_multirel.zero(MULTI_SECOND);
-	int err = _multirel.read(_isgteq);
+	if (_multirel.read() == NOERR)
-	if (err == NOERR && _multirel.get(MULTI_SECOND) == cod)
+		return new TString(_multirel.get(MULTI_DATA));
-		return new TString(_multirel.get(MULTI_FIRST));
 	return NULL;
 }
 

tc/tc0800.cpp

@@ -23,25 +23,6 @@ bool TTS_ricl_msk::on_field_event(TOperable_field& o, TField_event e, long jolly
 	switch (o.dlg())
 	{
 	case F_CONTO:
-		{
-			TString16 key;
-			key.format("%d|%d", o.mask().get_int(F_GRUPPO), o.mask().get_int(F_CONTO));
-			const TRectype & rec = cache().get(LF_PCON, key);
-			const char tsottoc = rec.get_char(PCN_TMCF);
-
-			if (tsottoc <= ' ')
-			{
-				enable(F_SOTTOCONTO);
-				enable(F_DESC);
-			}
-			else
-			{
-				disable(F_SOTTOCONTO);
-				disable(F_DESC);
-				reset(F_SOTTOCONTO);
-			}
-
-		}
 		break;			
 	default:
 		break;
@@ -58,12 +39,9 @@ class TTSRiclass_application : public TRelation_application
   TMask* _msk;
   // @cmember:(INTERNAL) Relazione corrente dell'applicazione
   TRelation* _rel;
-  // @cmember:(INTERNAL) valori iniziale dei gruppo conto sottoconto
+	bool _use_pcn;
-	int _gruppo;
-	int _conto;
-	long _sottoconto;
 
-// @access Protected Member
+	// @access Protected Member
 protected:
   virtual TMask* get_mask(int mode = MODE_QUERY) { CHECK(_msk, "Null mask"); return _msk; }
   // @cmember Indica se la futura <mf Tab_application::get_mask> ritornera' una maschera diversa
@@ -71,6 +49,10 @@ protected:
   virtual bool changing_mask(int mode) { return false; }
   // @cmember Ritorna la relazione da modificare
   virtual TRelation* get_relation() const {  CHECK(_rel, "Null relation"); return _rel; }
+  // @cmember Inizializza la maschera per il modo ricerca
+  virtual void init_query_mode(TMask& m);
+  // @cmember Inizializza la maschera per il modo ricerca ed inserimento (chiama <mf TRelation_application::init_query_mode>)
+  virtual void init_query_insert_mode(TMask& m) ;
   // @cmember Inizializza la maschera per il modo inserimento
   virtual void  init_insert_mode(TMask& m);
   // @cmember Inizializza la maschera per il modo modifica
@@ -81,8 +63,6 @@ protected:
   virtual bool user_destroy() ;
   // @cmember Chiama il programma di stampa
   virtual void print();
-  // @cmember Riscrive sulla relazione i valori dalla maschera <p m>
-  virtual int rewrite(const TMask& m);
 
 // @access Public Member
 public:
@@ -106,74 +86,46 @@ void TTSRiclass_application::print()
   stampa.run();
 }
 
-void TTSRiclass_application::init_insert_mode(TMask& m) 
+void TTSRiclass_application::init_query_mode(TMask& m) 
 {
-	TLocalisamfile ricl(LF_RICLPDC);
+	TRelation_application::init_query_mode(m);
+	m.show(-1);
+	m.hide(-2);
+	m.disable(-3);
+	m.show(-10, _use_pcn);
+	m.show(-20, !_use_pcn);
+}
 
-	ricl.put("TIPORIC", m.get(F_COD));
+void TTSRiclass_application::init_query_insert_mode(TMask& m) 
-	TString codice(m.get(F_TSGRUPPO));
+{
-
+	TRelation_application::init_query_insert_mode(m);
-	codice << m.get(F_TSCONTO);
+	m.hide(-1);
-	codice << m.get(F_TSSOTTOCONTO);
+	m.show(-2);
-	ricl.put("CODICE", codice);
+	m.enable(-3);
-	if (ricl.read(_isgteq) == NOERR && codice == ricl.get("CODICE"))
+	m.show(-10, _use_pcn);
-		m.set(F_DESCRIZ, ricl.get("DESCRIZ"));
+	m.show(-20, !_use_pcn);
-  for (int i = m.fields() - 1; i >= 0; i--)
-  {
-    TMask_field& c = m.fld(i);
-    if (c.in_group(1) && c.is_edit())
-    {
-      TEdit_field& e = (TEdit_field&)c;
-
-      e.enable();
-			if (e.browse() != NULL)
-        e.enable_check();
-    }
-  }
 }
 
 void TTSRiclass_application::init_modify_mode(TMask& m)
 {
-  for (int i = m.fields() - 1; i >= 0; i--)
+	TRelation_application::init_modify_mode(m);
-  {
+	m.show(-1);
-    TMask_field& c = m.fld(i);
+	m.disable(-1);
-    if (c.in_group(1) && c.is_edit())
+	m.hide(-2);
-    {
+	m.disable(-3);
-      TEdit_field& e = (TEdit_field&)c;
+	m.show(-10, _use_pcn);
-
+	m.show(-20, !_use_pcn);
-      e.enable();
-			if (e.browse() != NULL)
-        e.enable_check();
-    }
-  }
-	_gruppo = m.get_int(F_GRUPPO);
-	_conto = m.get_int(F_CONTO);
-	_sottoconto = m.get_long(F_SOTTOCONTO);
 }
 
-int TTSRiclass_application::rewrite(const TMask& m)
+void TTSRiclass_application::init_insert_mode(TMask& m)
 {
-	int err = TRelation_application::rewrite(m);
+	TRelation_application::init_insert_mode(m);
-
+	m.show(-1);
-	if (err != NOERR)
+	m.disable(-1);
-		err = TRelation_application::write(m);
+	m.hide(-2);
-
+	m.disable(-3);
-	TRelation & rel = *get_relation();
+	m.show(-10, _use_pcn);
-
+	m.show(-20, !_use_pcn);
-	int gruppo = rel.lfile().get_int("GRUPPO");
-	int conto = rel.lfile().get_int("CONTO");
-	long sottoconto = rel.lfile().get_long("SOTTOCONTO");
-
-	if (err == NOERR && (gruppo != _gruppo || conto != _conto || sottoconto != _sottoconto))
-	{
-		rel.save_status();
-		rel.lfile().put("GRUPPO", _gruppo);
-		rel.lfile().put("CONTO", _conto);
-		rel.lfile().put("SOTTOCONTO", _sottoconto);
-		rel.remove();
-		rel.restore_status();
-	}
-	return err;
 }
 
 bool TTSRiclass_application::user_create()
@@ -181,13 +133,13 @@ bool TTSRiclass_application::user_create()
   _rel = new TRelation(LF_RICLPDC);
   _msk = new TTS_ricl_msk;
   
-  set_search_field(F_TSSOTTOCONTO);
-
 	TConfig config(CONFIG_DITTA);
-	const bool use_pcn = config.get_bool("TSUSECMPCN");
+	_use_pcn = config.get_bool("TSUSECMPCN");
+
+	_msk->show(-10, _use_pcn);
+	_msk->show(-20, !_use_pcn);
+	set_search_field(_use_pcn ? F_SOTTOCONTO : F_SOTTOCONTO1);
 
-	_msk->show(-10, use_pcn);
-	_msk->show(-20, !use_pcn);
   
   TFilename rep("tctsricl.rep");
 
@@ -217,7 +169,7 @@ int tc0800(int argc, char* argv[])
 {
   TTSRiclass_application a;
 
-  a.run(argc, argv, TR("Riclassificazione piano dei conto Team System"));
+  a.run(argc, argv, TR("Riclassificazione piano dei conti Team System"));
   return 0;
 }
 

tc/tc0800a.h

@@ -10,7 +10,10 @@
 #define F_SOTTOCONTO		108
 #define F_DESCG					109
 #define F_DESCC					110
-#define F_DESC					111
+#define F_TSDESCR				111
 #define F_GRUPPO1				112
 #define F_CONTO1				113
 #define F_SOTTOCONTO1		114
+#define F_GRUPPO2				115
+#define F_CONTO2				116
+#define F_SOTTOCONTO2		117

tc/tc0800a.uml

@@ -15,84 +15,41 @@ BEGIN
   KEY 1
 END
 
-GROUPBOX DLG_NULL 78 4
+GROUPBOX DLG_NULL 78 8
 BEGIN
-  PROMPT 1 1 "Conto Teamsystem"
+  PROMPT 1 1 "Conto Campo"
 END
 
-STRING F_TSGRUPPO 2
+NUMBER F_GRUPPO2 3
 BEGIN
   PROMPT 2 2 "Gruppo     "
+  HELP "Codice del gruppo"
+  FIELD GRUPPO
   USE LF_RICLPDC
+  JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
   INPUT TIPORIC F_COD SELECT
-  INPUT CODICE[1,2] F_TSGRUPPO
+  INPUT GRUPPO F_GRUPPO
-  INPUT CODICE[3,4] F_TSCONTO
+  INPUT CONTO F_CONTO
-  INPUT CODICE[5,9] F_TSSOTTOCONTO
+  INPUT SOTTOCONTO F_SOTTOCONTO
-  DISPLAY "Gruppo TS" CODICE[1,2]
-  DISPLAY "Conto TS" CODICE[3,4]
-  DISPLAY "Sotoconto TS" CODICE[5,7]
-  DISPLAY "Descrizione@50" DESCRIZ
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
-  OUTPUT F_TSGRUPPO CODICE[1,2]
+  DISPLAY "Descrizione@50" DESCRIZ
-  OUTPUT F_TSCONTO CODICE[3,4]
+  DISPLAY "Gruppo TS" CODICE[1,2]
-  OUTPUT F_TSSOTTOCONTO CODICE[5,7]
+  DISPLAY "Conto TS" CODICE[3,4]
+  DISPLAY "Sottoconto TS" CODICE[5,7]
   OUTPUT F_DESCRIZ DESCRIZ
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_CONTO CONTO
   OUTPUT F_SOTTOCONTO SOTTOCONTO
-  OUTPUT F_GRUPPO1 GRUPPO
-  OUTPUT F_CONTO1 CONTO
-  OUTPUT F_SOTTOCONTO1 SOTTOCONTO
-	CHECKTYPE REQUIRED
-  VALIDATE FIXLEN_FUNC 2
-  FIELD CODICE[1,2]
   KEY 1
-END
+	GROUP 2
-
-STRING F_TSCONTO 2
-BEGIN
-  PROMPT 19 2 "Conto "
-	COPY ALL F_TSGRUPPO
-	CHECKTYPE REQUIRED
-  FIELD CODICE[3,4]
-  VALIDATE FIXLEN_FUNC 2
-  KEY 1
-END
-
-STRING F_TSSOTTOCONTO 3
-BEGIN
-  PROMPT 30 2 "Sottoconto "
-	COPY ALL F_TSGRUPPO
-	CHECKTYPE REQUIRED
-  FIELD CODICE[5,7]
-  VALIDATE FIXLEN_FUNC 3
-  KEY 1
-END
-
-STRING F_DESCRIZ 50
-BEGIN
-  PROMPT 2 3 "Descrizione "
-  USE LF_RICLPDC KEY 2
-  INPUT TIPORIC F_COD SELECT
-  INPUT DESCRIZ F_DESCRIZ
-  DISPLAY "Descrizione@50" DESCRIZ
-  DISPLAY "Gruppo TS" CODICE[1,2]
-  DISPLAY "Conto TS" CODICE[3,4]
-  DISPLAY "Sotoconto TS" CODICE[5,7]
-  DISPLAY "Gruppo" GRUPPO
-  DISPLAY "Conto" CONTO
-  DISPLAY "Sottoconto" SOTTOCONTO
-	COPY OUTPUT F_TSGRUPPO
-  FIELD DESCRIZ
-  KEY 2
   CHECKTYPE REQUIRED
 END
 	
 NUMBER F_GRUPPO 3
 BEGIN
-  PROMPT 2 6 "Gruppo     "
+  PROMPT 2 2 "Gruppo     "
   HELP "Codice del gruppo"
   FIELD GRUPPO
   KEY 1
@@ -103,12 +60,12 @@ BEGIN
   DISPLAY "Descrizione@50" DESCR
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_DESCG DESCR
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
 END
 
 NUMBER F_GRUPPO1 3
 BEGIN
-  PROMPT 2 6 "Gruppo     "
+  PROMPT 2 2 "Gruppo     "
   FIELD GRUPPO
   KEY 1
 	GROUP 1 20
@@ -117,14 +74,26 @@ END
 
 STRING F_DESCG 50
 BEGIN
-  PROMPT 24 6 ""
+  PROMPT 24 2 ""
   FLAGS "D"
 	GROUP 10
 END
 
+NUMBER F_CONTO2 3
+BEGIN
+  PROMPT 2 4 "Conto      "
+  HELP "Codice dell'eventuale conto"
+  FIELD CONTO
+  COPY ALL F_GRUPPO
+  KEY 1
+	GROUP 2
+  CHECKTYPE REQUIRED
+  WARNING "Manca il conto"
+END
+
 NUMBER F_CONTO 3
 BEGIN
-  PROMPT 2 8 "Conto      "
+  PROMPT 2 4 "Conto      "
   HELP "Codice dell'eventuale conto"
   FIELD CONTO
   KEY 1
@@ -138,14 +107,13 @@ BEGIN
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_CONTO CONTO
   OUTPUT F_DESCC DESCR
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
-  VALIDATE REQIF_FUNC 1 F_SOTTOCONTO
   WARNING "Manca il conto"
 END
 
 NUMBER F_CONTO1 3
 BEGIN
-  PROMPT 2 8 "Conto      "
+  PROMPT 2 4 "Conto      "
   HELP "Codice dell'eventuale conto"
   FIELD CONTO
   FLAGS "H"
@@ -155,14 +123,25 @@ END
 
 STRING F_DESCC 50
 BEGIN
-  PROMPT 24 8 ""
+  PROMPT 24 4 ""
   FLAGS "D"
 	GROUP 10
 END
 
+NUMBER F_SOTTOCONTO2 6
+BEGIN
+  PROMPT 2 6 "Sottoconto "
+  HELP "Codice dell'eventuale sottoconto"
+  FIELD SOTTOCONTO
+  COPY ALL F_GRUPPO
+  KEY 1
+	GROUP 2
+  CHECKTYPE REQUIRED
+END
+
 NUMBER F_SOTTOCONTO 6
 BEGIN
-  PROMPT 2 10 "Sottoconto "
+  PROMPT 2 6 "Sottoconto "
   HELP "Codice dell'eventuale sottoconto"
   FIELD SOTTOCONTO
   KEY 1
@@ -179,12 +158,12 @@ BEGIN
   OUTPUT F_GRUPPO GRUPPO
   OUTPUT F_CONTO CONTO
   OUTPUT F_DESC DESCR
-  CHECKTYPE NORMAL
+  CHECKTYPE REQUIRED
 END
 
 NUMBER F_SOTTOCONTO1 6
 BEGIN
-  PROMPT 2 10 "Sottoconto "
+  PROMPT 2 6 "Sottoconto "
   HELP "Codice dell'eventuale sottoconto"
   FIELD SOTTOCONTO
   KEY 1
@@ -192,21 +171,72 @@ BEGIN
 	FLAGS "H"
 END
 
-STRING F_DESC 50
+STRING F_DESCRIZ 50
 BEGIN
-  PROMPT 24 10 ""
+  PROMPT 2 8 "Descrizione "
   USE LF_PCON KEY 2
-  INPUT DESCR F_DESC
+  INPUT DESCR F_DESCRIZ
   DISPLAY "Descrizione@50" DESCR
-  DISPLAY "Sosp." SOSPESO
   DISPLAY "Gruppo" GRUPPO
   DISPLAY "Conto" CONTO
   DISPLAY "Sottoconto" SOTTOCONTO
 	COPY OUTPUT F_SOTTOCONTO
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+STRING F_TSGRUPPO 2
+BEGIN
+  PROMPT 2 10 "Gruppo      "
+	CHECKTYPE REQUIRED
+	USE &TCO
+  INPUT CODTAB[1,2] F_TSGRUPPO
+  INPUT CODTAB[3,4] F_TSCONTO
+  INPUT CODTAB[5,7] F_TSSOTTOCONTO
+  DISPLAY "Gruppo" CODTAB[1,2]
+  DISPLAY "Conto" CODTAB[3,4]
+  DISPLAY "Sottoconto" CODTAB[5,7]
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_TSGRUPPO CODTAB[1,2]
+  OUTPUT F_TSCONTO CODTAB[3,4]
+  OUTPUT F_TSSOTTOCONTO CODTAB[5,7]
+  OUTPUT F_TSDESCR S0
+  VALIDATE FIXLEN_FUNC 2
+  FIELD CODICE[1,2]
+  KEY 1
+END
+
+STRING F_TSCONTO 2
+BEGIN
+  PROMPT 19 10 "Conto "
+	COPY ALL F_TSGRUPPO
+	CHECKTYPE REQUIRED
+  FIELD CODICE[3,4]
+  VALIDATE FIXLEN_FUNC 2
+  KEY 1
+END
+
+STRING F_TSSOTTOCONTO 3
+BEGIN
+  PROMPT 30 10 "Sottoconto "
+	COPY ALL F_TSGRUPPO
+	CHECKTYPE REQUIRED
+  FIELD CODICE[5,7]
+  VALIDATE FIXLEN_FUNC 3
+  KEY 1
+END
+
+STRING F_TSDESCR 50
+BEGIN
+  PROMPT 2 12 "Descrizione "
+	USE &TCO
+  INPUT S0 F_TSGRUPPO
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Gruppo" CODTAB[1,2]
+  DISPLAY "Conto" CODTAB[3,4]
+  DISPLAY "Sottoconto" CODTAB[5,7]
+  COPY OUTPUT F_TSGRUPPO
   CHECKTYPE NORMAL
-  HELP "Descrizione del gruppo o del conto o del sottoconto"
-  WARNING "Descrizione mancante"
-	GROUP 10
 END
 
 ENDPAGE

tc/tc1200.cpp

@@ -1,5 +1,4 @@
-// gestione tabelle di magazzino
+// gestione tabelle Zucchetti
-
 #include <modaut.h>
 #include <modtbapp.h>
 #include <tabutil.h>

tc/tcmenu.men

@@ -4,7 +4,7 @@ Picture = <cg01>
 Module  = 27
 Flags   = ""
 Item_01 = "TeamSystem", [TCMENU_002]
-Item_02 = "Zucchetti", [TCMENU_005]
+Item_02 = "Zucchetti", [TCMENU_006]
 Item_03 = "Proforma", "tc9 -0", ""
 Item_04 = "Sispac", "tc9 -2", ""
 Item_05 = "Tabella IVA Sispac", "tc9 -3 IVA", ""
@@ -20,7 +20,8 @@ Item_01 = "Trasferimento", "tc0 -6", ""
 Item_02 = "Importazione documenti", "tc0 -8", ""
 Item_03 = "Importazione causali,p.d.c.,cod.iva", "tc0 -5", ""
 Item_04 = "Tabelle di riclassificazione", [TCMENU_003]
-Item_05 = "Configurazione modulo", [TCMENU_004]
+Item_04 = "Tabelle TeamSystem", [TCMENU_004]
+Item_05 = "Configurazione modulo", [TCMENU_005]
 
 [TCMENU_003]
 Caption = "Tabelle di riclassificazione"
@@ -37,22 +38,36 @@ Item_07 = "Valute", "tc0 -4 VAL", ""
 Item_08 = "Piano dei conti", "tc0 -7", ""
 
 [TCMENU_004]
+Caption = "Tabelle TeamSystem"
+Picture = <cg01>
+Module  = 27
+Flags   = ""
+Item_01 = "Causali", "tc0 -0 &TCA", ""
+Item_02 = "Condizioni di pagamento", "tc0 -0 &TPG", "" 
+Item_03 = "Stati esteri", "tc0 -0 &TNA", ""
+Item_04 = "Registri", "tc0 -0 &TRE", ""
+Item_05 = "Codici IVA", "tc0 -0 &TIV", ""
+Item_06 = "Codici IVA 11", "tc0 -0 &T11", ""
+Item_07 = "Valute", "tc0 -0 &TVA", ""
+Item_08 = "Piano dei conti", "tc0 -0 &TCO", ""
+
+[TCMENU_005]
 Caption = "Configurazione modulo"
 Picture = <cg01>
 Module  = 27
 Flags   = ""
 Item_01 = "Parametri ditta", "tc0 -2", ""
 
-[TCMENU_005]
+[TCMENU_006]
 Caption = "Zucchetti"
 Picture = <cg01>
 Module  = 27
 Flags   = ""
-Item_01 = "Tabelle Zucchetti", [TCMENU_006]
+Item_01 = "Tabelle Zucchetti", [TCMENU_007]
-Item_02 = "Tabelle di Riclassificazione", [TCMENU_007]
+Item_02 = "Tabelle di Riclassificazione", [TCMENU_008]
 Item_03 = "Trasferimento", "tc1 -0", ""
 
-[TCMENU_006]
+[TCMENU_007]
 Caption = "Tabelle Zucchetti"
 Picture = <cg01>
 Module  = 27
@@ -61,7 +76,7 @@ Item_01 = "Banche", "tc1 -1 &ZBA", ""
 Item_02 = "Causali", "tc1 -1 &ZCA", ""
 Item_03 = "Codici IVA", "tc1 -1 &ZIV", ""
 
-[TCMENU_007]
+[TCMENU_008]
 Caption = "Tabelle di Riclassificazione"
 Picture = <cg01>
 Module  = 27

tc/tctbt11.h

@@ -0,0 +1,2 @@
+#define F_CODTAB     102
+#define F_DESC       103

tc/tctbt11.uml

@@ -0,0 +1,44 @@
+#include "tctbt11.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "IVA 11" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 1 "Codice IVA 11 TeamSystem"
+END
+
+NUMBER F_CODTAB 2
+BEGIN
+  PROMPT 2 2 "Codice      "
+  USE &T11
+  INPUT CODTAB F_CODTAB
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_DESC S0
+	CHECKTYPE REQUIRED
+  FIELD CODTAB
+	FLAGS "Z"
+  KEY 1
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 5 "Descrizione "
+  USE &T11 KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+ENDPAGE
+
+ENDMASK

tc/tctbtca.h

@@ -0,0 +1,2 @@
+#define F_CODTAB     102
+#define F_DESC       103

tc/tctbtca.uml

@@ -0,0 +1,45 @@
+#include "tctbtca.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Causali" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 1 "Codice Causale TeamSystem"
+END
+
+NUMBER F_CODTAB 3
+BEGIN
+  PROMPT 2 2 "Codice      "
+  USE &TCA
+  INPUT CODTAB F_CODTAB
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_DESC S0
+	CHECKTYPE REQUIRED
+  FIELD CODTAB
+  FLAGS "Z"
+  VALIDATE FIXLEN_FUNC 3
+  KEY 1
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 5 "Descrizione "
+  USE &TCA KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+ENDPAGE
+
+ENDMASK

tc/tctbtco.h

@@ -0,0 +1,4 @@
+#define F_CODTAB     102
+#define F_CODTAB1    103
+#define F_CODTAB2    104
+#define F_DESC       105

tc/tctbtco.uml

@@ -0,0 +1,70 @@
+#include "tctbtco.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Conti" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 1 "Codice Conto TeamSystem"
+END
+
+STRING F_CODTAB 2
+BEGIN
+  PROMPT 2 2 "Gruppo      "
+  USE &TCO
+  INPUT CODTAB[1,2] F_CODTAB
+  INPUT CODTAB[3,4] F_CODTAB1
+  INPUT CODTAB[5,7] F_CODTAB2
+  DISPLAY "Gruppo" CODTAB[1,2]
+  DISPLAY "Conto" CODTAB[3,4]
+  DISPLAY "Sottoconto" CODTAB[5,7]
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_CODTAB CODTAB[1,2]
+  OUTPUT F_CODTAB1 CODTAB[3,4]
+  OUTPUT F_CODTAB2 CODTAB[5,7]
+  OUTPUT F_DESC S0
+	CHECKTYPE REQUIRED
+  FIELD CODTAB[1,2]
+  VALIDATE FIXLEN_FUNC 2
+  KEY 1
+END
+
+STRING F_CODTAB1 2
+BEGIN
+  PROMPT 20 2 "Conto "
+  COPY ALL F_CODTAB
+	CHECKTYPE SEARCH
+  FIELD CODTAB[3,4]
+  VALIDATE FIXLEN_FUNC 2
+  KEY 1
+END
+
+STRING F_CODTAB2 3
+BEGIN
+  PROMPT 30 2 "Sottoconto "
+  COPY ALL F_CODTAB
+	CHECKTYPE SEARCH
+  FIELD CODTAB[5,7]
+  VALIDATE FIXLEN_FUNC 3
+  KEY 1
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 5 "Descrizione "
+  USE &TcCO KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+ENDPAGE
+
+ENDMASK

tc/tctbtiv.h

@@ -0,0 +1,2 @@
+#define F_CODTAB     102
+#define F_DESC       103

tc/tctbtiv.uml

@@ -0,0 +1,44 @@
+#include "tctbtiv.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Codici IVA" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 1 "Codice IVA TeamSystem"
+END
+
+NUMBER F_CODTAB 3
+BEGIN
+  PROMPT 2 2 "Codice      "
+  USE &TIV
+  INPUT CODTAB F_CODTAB
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_DESC S0
+	CHECKTYPE REQUIRED
+  FIELD CODTAB
+  FLAGS "Z"
+  KEY 1
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 5 "Descrizione "
+  USE &TIV KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+ENDPAGE
+
+ENDMASK

tc/tctbtna.h

@@ -0,0 +1,2 @@
+#define F_CODTAB     102
+#define F_DESC       103

tc/tctbtna.uml

@@ -0,0 +1,44 @@
+#include "tctbtpg.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Nazioni" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 1 "Codice Nazione TeamSystem"
+END
+
+NUMBER F_CODTAB 4
+BEGIN
+  PROMPT 2 2 "Codice      "
+  USE &TNA
+  INPUT CODTAB F_CODTAB
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_DESC S0
+	CHECKTYPE REQUIRED
+  FIELD CODTAB
+  FLAGS "Z"
+  KEY 1
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 5 "Descrizione "
+  USE &TNA KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+ENDPAGE
+
+ENDMASK

tc/tctbtoc.h

@@ -0,0 +1,2 @@
+#define F_CODTAB     102
+#define F_DESC       103

tc/tctbtpg.h

@@ -0,0 +1,2 @@
+#define F_CODTAB     102
+#define F_DESC       103

tc/tctbtpg.uml

@@ -0,0 +1,44 @@
+#include "tctbtpg.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Condizioni di pagamento" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 1 "Codice Pagamento TeamSystem"
+END
+
+NUMBER F_CODTAB 4
+BEGIN
+  PROMPT 2 2 "Codice      "
+  USE &TPG
+  INPUT CODTAB F_CODTAB
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_DESC S0
+	CHECKTYPE REQUIRED
+  FIELD CODTAB
+  FLAGS "Z"
+  KEY 1
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 5 "Descrizione "
+  USE &TPG KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+ENDPAGE
+
+ENDMASK

tc/tctbtre.h

@@ -0,0 +1,4 @@
+#define F_TIPO			 101
+#define F_CODTAB     102
+#define F_DESC       103
+

tc/tctbtre.uml

@@ -0,0 +1,56 @@
+#include "tctbtre.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Registri" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 1 "Codice Registro TeamSystem"
+END
+
+LIST F_TIPO 1 13
+BEGIN
+  PROMPT 2 2 "Tipo "
+	ITEM "A|Acquisti"
+	ITEM "C|Corrispettivi"
+	ITEM "V|Vendite"
+  FIELD CODTAB[1,1]
+END
+
+STRING F_CODTAB 2
+BEGIN
+  PROMPT 25 2 "Codice      "
+  USE &TRE
+  INPUT CODTAB[1,1] F_TIPO
+  INPUT CODTAB[2,3] F_CODTAB
+  DISPLAY "Tipo" CODTAB[1,1]
+  DISPLAY "Codice" CODTAB[2,3]
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_TIPO CODTAB[1,1]
+  OUTPUT F_CODTAB CODTAB[2,3]
+  OUTPUT F_DESC S0
+	CHECKTYPE REQUIRED
+  FIELD CODTAB[2,3]
+  FLAGS "Z"
+  KEY 1
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 5 "Descrizione "
+  USE &TRE KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+ENDPAGE
+
+ENDMASK

tc/tctbtva.h

@@ -0,0 +1,2 @@
+#define F_CODTAB     102
+#define F_DESC       103

tc/tctbtva.uml

@@ -0,0 +1,44 @@
+#include "tctbt11.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Valute" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 1 "Codice Valuta TeamSystem"
+END
+
+STRING F_CODTAB 3
+BEGIN
+  PROMPT 2 2 "Codice      "
+  USE &TVA
+  INPUT CODTAB F_CODTAB
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_DESC S0
+	CHECKTYPE REQUIRED
+  FIELD CODTAB
+  VALIDATE FIXLEN_FUNC 3
+  KEY 1
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 5 "Descrizione "
+  USE &TVA KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+ENDPAGE
+
+ENDMASK

tc/tcts.h

@@ -1,9 +1,10 @@
 #define F_COD        101
 #define F_CODTAB     102
-#define F_DESC       103
+#define F_CODTAB1    103
-#define F_COD_CAMPO  104
+#define F_DESC       105
-#define F_ANNO			 105
+#define F_COD_CAMPO  106
-#define F_TIPO       106
+#define F_ANNO			 107
-#define F_TIPOREG    107
+#define F_TIPO       108
-#define F_CORRISP    108
+#define F_TIPOREG    109
-#define F_COD_CAMPO1 109
+#define F_CORRISP    110
+#define F_DESC1			 111

tc/tctscau.uml

@@ -8,7 +8,7 @@ PAGE "Causali" 0 2 0 0
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
-  PROMPT 1 1 "Causale Teamsystem"
+  PROMPT 1 1 "Causale Campo"
 END
 
 LIST F_COD 5
@@ -24,43 +24,27 @@ NUMBER F_CODTAB 3
 BEGIN
   PROMPT 2 2 ""
   USE LF_MULTIREL
+  JOIN LF_CAUSALI INTO CODCAUS==FIRST
   INPUT COD F_COD SELECT
   INPUT FIRST F_CODTAB
   DISPLAY "Codice" FIRST
-  DISPLAY "Descrizione@60" DATA
+  DISPLAY "Descrizione@60" LF_CAUSALI->DESCR
-  DISPLAY "Causale Collegata" SECOND
+  DISPLAY "Causale Teamsystem" DATA
   OUTPUT F_CODTAB FIRST
-  OUTPUT F_DESC DATA
+  OUTPUT F_DESC LF_CAUSALI->DESCR
-  OUTPUT F_COD_CAMPO SECOND
+  OUTPUT F_COD_CAMPO DATA
-  OUTPUT F_COD_CAMPO1 SECOND
-	CHECKTYPE REQUIRED
   FIELD FIRST
-  FLAGS "Z"
+  FLAGS "UZG"  
 	KEY 1
-END
+	GROUP 1
-
-STRING F_DESC 50
-BEGIN
-  PROMPT 10 2 "Descrizione "
-  USE LF_MULTIREL KEY 2
-  INPUT COD F_COD SELECT
-  INPUT DATA F_DESC
-  DISPLAY "Descrizione@60" DATA
-  DISPLAY "Codice" FIRST
-  DISPLAY "Causale Collegata" SECOND
-  COPY OUTPUT F_CODTAB
-  FIELD DATA
-  KEY 3
 	CHECKTYPE REQUIRED
 END
 
-STRING F_COD_CAMPO 3
+NUMBER F_CODTAB1 3
 BEGIN
-  PROMPT 2 4 "Causale collegata "
+  PROMPT 2 2 ""
-  FIELD SECOND
-  FLAGS "UZ"
   USE LF_CAUSALI
-  INPUT CODCAUS F_COD_CAMPO
+  INPUT CODCAUS F_CODTAB1
   DISPLAY "Cod." CODCAUS
   DISPLAY "Descrizione@50" DESCR
   DISPLAY "Documento" TIPODOC
@@ -69,19 +53,51 @@ BEGIN
   DISPLAY "Inc./Pag." CODCAUSIM
   DISPLAY "770" M770
   DISPLAY "Cespiti" COLLCESP
-  OUTPUT F_COD_CAMPO CODCAUS
+  OUTPUT F_CODTAB CODCAUS
+  OUTPUT F_CODTAB1 CODCAUS
+  OUTPUT F_DESC LF_CAUSALI->DESCR
 	KEY 1
-	CHECKTYPE NORMAL
+  FIELD FIRST
-	GROUP 1 10
+  FLAGS "UZ"
+	CHECKTYPE REQUIRED
+	GROUP 2
 END
 
-STRING F_COD_CAMPO1 3
+STRING F_DESC 50
 BEGIN
-  PROMPT 2 4 "Causale collegata "
+  PROMPT 10 2 "Descrizione "
-  FIELD SECOND
+  USE LF_CAUSALI
-  FLAGS "UH"
+  INPUT DESCR F_DESC
-	KEY 1
+  DISPLAY "Descrizione@60" DESCR
-	GROUP 1 20
+  DISPLAY "Codice" CODCAUS
+  COPY OUTPUT F_CODTAB1
+  KEY 2
+  GROUP 3
+  CHECKTYPE REQUIRED
+END
+
+NUMBER F_COD_CAMPO 3
+BEGIN
+  PROMPT 2 4 "Causale Teamsystem"
+  FIELD DATA
+  USE &TCA
+  INPUT CODTAB F_COD_CAMPO
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_COD_CAMPO CODTAB
+  OUTPUT F_DESC1 S0
+  CHECKTYPE REQUIRED
+  FLAGS "Z"
+END
+
+STRING F_DESC1 50 45
+BEGIN
+  PROMPT 27 4 ""
+  USE &TCA KEY 2
+  INPUT S0 F_DESC1
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_COD_CAMPO
 END
 
 ENDPAGE

tc/tctscdp.uml

@@ -7,7 +7,7 @@ ENDPAGE
 PAGE "Condizioni di pagamento" 0 2 0 0
 GROUPBOX DLG_NULL 78 3
 BEGIN
-  PROMPT 1 1 "Condizione di pagamento TeamSystem"
+  PROMPT 1 1 "Condizione di pagamento Campo"
 END
 
 LIST F_COD 5
@@ -23,58 +23,76 @@ NUMBER F_CODTAB 4
 BEGIN
   PROMPT 2 2 ""
   USE LF_MULTIREL
+  JOIN %CPG INTO CODTAB==FIRST
   INPUT COD F_COD SELECT
   INPUT FIRST F_CODTAB
   DISPLAY "Codice" FIRST
-  DISPLAY "Descrizione@60" DATA
+  DISPLAY "Descrizione@60" %CPG->S0
-  DISPLAY "Condizione collegata" SECOND
+  DISPLAY "Condizione TeamSystem" DATA
   OUTPUT F_CODTAB FIRST
-  OUTPUT F_DESC DATA
+  OUTPUT F_CODTAB1 FIRST
-  OUTPUT F_COD_CAMPO SECOND
+  OUTPUT F_DESC %CPG->S0
-  OUTPUT F_COD_CAMPO1 SECOND
+  OUTPUT F_COD_CAMPO DATA
 	CHECKTYPE REQUIRED
   FIELD FIRST
-  FLAGS "Z"
+  FLAGS "U#G"
+  GROUP 1
   KEY 1
 END
 
+STRING F_CODTAB1 4
+BEGIN
+  PROMPT 2 2 ""
+	CHECKTYPE REQUIRED
+  USE %CPG
+  INPUT CODTAB F_CODTAB1
+  DISPLAY "Cod." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_CODTAB1 CODTAB
+  OUTPUT F_DESC S0
+  FIELD FIRST
+  FLAGS "U#"
+  GROUP 2
+  KEY 1
+  ADD RUN ba3 -6
+END
+
 STRING F_DESC 50
 BEGIN
   PROMPT 10 2 "Descrizione "
-  USE LF_MULTIREL KEY 2
+  USE %CPG KEY 2
-  INPUT COD F_COD SELECT
+  INPUT S0 F_DESC
-  INPUT DATA F_DESC
+  DISPLAY "Descrizione@60" S0
-  DISPLAY "Descrizione@60" DATA
+  DISPLAY "Codice" CODTAB
-  DISPLAY "Codice" FIRST
+  COPY OUTPUT F_CODTAB1
-  DISPLAY "Condizione collegata" SECOND
+	GROUP 3
-  COPY OUTPUT F_CODTAB
+  KEY 2
-  FIELD DATA
-  KEY 3
   CHECKTYPE REQUIRED
 END
 
-STRING F_COD_CAMPO 4
+NUMBER F_COD_CAMPO 4
 BEGIN
-  PROMPT 2 4 "Condizione di pagamento collegata "
+  PROMPT 2 4 "Pagamento TeamSystem "
-  FIELD SECOND
+  FIELD DATA
-  FLAGS "U#"
+  USE &TPG
-  USE %CPG
   INPUT CODTAB F_COD_CAMPO
   DISPLAY "Cod." CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_COD_CAMPO CODTAB
-	KEY 1
+  OUTPUT F_DESC1 S0
-	CHECKTYPE NORMAL
+	CHECKTYPE REQUIRED
-	GROUP 1 10
+  FLAGS "Z"
 END
 
-STRING F_COD_CAMPO1 4
+STRING F_DESC1 50 40
 BEGIN
-  PROMPT 2 4 "Condizione di pagamento collegata "
+  PROMPT 32 4 ""
-  FIELD SECOND
+  USE &TPG KEY 2
-  FLAGS "UH"
+  INPUT S0 F_DESC1
-	KEY 1
+  DISPLAY "Descrizione@60" S0
-	GROUP 1 20
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_COD_CAMPO
 END
 
 ENDPAGE

tc/tctsi11.uml

@@ -8,7 +8,7 @@ PAGE "Codici IVA 11" 0 2 0 0
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
-  PROMPT 1 1 "Codice IVA 11 TeamSystem"
+  PROMPT 1 1 "Tipo spesa ricavo"
 END
 
 LIST F_COD 5
@@ -26,37 +26,25 @@ BEGIN
   USE LF_MULTIREL
   INPUT COD F_COD SELECT
   INPUT FIRST F_CODTAB
-  DISPLAY "Codice" FIRST
+  DISPLAY "Tipo spesa/ricavo@30" FIRST
-  DISPLAY "Descrizione@60" DATA
+  DISPLAY "Codice Teamsystem@25" DATA
-  DISPLAY "Tipo spesa/ricavo" SECOND
   OUTPUT F_CODTAB FIRST
-  OUTPUT F_DESC DATA
+  OUTPUT F_CODTAB1 FIRST
-	OUTPUT F_COD_CAMPO SECOND
   CHECKTYPE REQUIRED
   FIELD FIRST
-  FLAGS "Z"
+	GROUP 1
   KEY 1
 END
 
-STRING F_DESC 50
+NUMBER F_CODTAB1 2
 BEGIN
-  PROMPT 10 2 "Descrizione "
+  PROMPT 2 2 ""
-  USE LF_MULTIREL KEY 2
+  INPUT FIRST F_CODTAB1
-  INPUT COD F_COD SELECT
+  SHEET "Tipo spesa/ricavo|Situazione@60"
-  INPUT DATA F_DESC
+  OUTPUT F_CODTAB1
-  DISPLAY "Descrizione@60" DATA
+  OUTPUT F_DESC
-  DISPLAY "Codice" FIRST
-  DISPLAY "Tipo spesa/ricavo" SECOND
-  COPY OUTPUT F_CODTAB
-  FIELD DATA
-  KEY 3
   CHECKTYPE REQUIRED
-END
+  FIELD FIRST
-
-LIST F_COD_CAMPO 2 50
-BEGIN
-  PROMPT 2 4 "Codice "
-  FIELD SECOND
   ITEM "0|0. Acquisti o vendite in genere"
   ITEM "1|1. Acquisti beni per rivendita"
   ITEM "2|2. Acquisti beni ammortizzabili"
@@ -68,9 +56,40 @@ BEGIN
 	ITEM "13|13. Subappalti in edilizia (Reverse charge)"
 	ITEM "50|50. Importazione di oro o argento (Reverse charge)"
 	ITEM "51|51. Rottami (Reverse charge)"
-
+	GROUP 2
   KEY 1
-	GROUP 1
+  MESSAGE COPY,F_CODTAB
+  FLAGS "G"
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 10 2 "Descrizione "
+  FLAGS "D"
+END
+
+NUMBER F_COD_CAMPO 2
+BEGIN
+  PROMPT 2 4 "Codice IVA 11 TeamSystem"
+  USE &T11
+  INPUT CODTAB F_COD_CAMPO
+  DISPLAY "Cod." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_COD_CAMPO CODTAB
+  OUTPUT F_DESC1 S0
+	CHECKTYPE REQUIRED
+	FIELD DATA
+  FLAGS "ZG"
+END
+
+STRING F_DESC1 50 40
+BEGIN
+  PROMPT 32 4 ""
+  USE &T11 KEY 2
+  INPUT S0 F_DESC1
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_COD_CAMPO
 END
 
 ENDPAGE

tc/tctsiva.uml

@@ -8,7 +8,7 @@ PAGE "Codici IVA" 0 2 0 0
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
-  PROMPT 1 1 "Codice IVA TeamSystem"
+  PROMPT 1 1 "Codice IVA Campo"
 END
 
 LIST F_COD 5
@@ -20,62 +20,80 @@ BEGIN
   KEY 1
 END
 
-NUMBER F_CODTAB 3
+STRING F_CODTAB 4
 BEGIN
   PROMPT 2 2 ""
   USE LF_MULTIREL
+	JOIN %IVA INTO CODTAB==FIRST
 	INPUT COD F_COD SELECT
   INPUT FIRST F_CODTAB
-  DISPLAY "Codice" FIRST
+  DISPLAY "Codice IVA" FIRST
-  DISPLAY "Descrizione@60" DATA
+  DISPLAY "Descrizione@60" %IVA->S0
-  DISPLAY "Codice IVA Collegato" SECOND
+  DISPLAY "Codice IVA Teamsystem" DATA
   OUTPUT F_CODTAB FIRST
-  OUTPUT F_DESC DATA
+  OUTPUT F_DESC %IVA->S0
-  OUTPUT F_COD_CAMPO SECOND
+  OUTPUT F_COD_CAMPO DATA
-  OUTPUT F_COD_CAMPO1 SECOND
   CHECKTYPE REQUIRED
   FIELD FIRST
-  FLAGS "Z"
+  FLAGS "UG"
   KEY 1
+  VALIDATE ZEROFILL_FUNC 2
+  GROUP 1
+END
+
+STRING F_CODTAB1 4
+BEGIN
+  PROMPT 2 2 ""
+  CHECKTYPE REQUIRED
+  FIELD FIRST
+  USE %IVA
+  INPUT CODTAB F_CODTAB1
+  DISPLAY "Cod." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_CODTAB1 CODTAB
+  OUTPUT F_DESC S0
+  FLAGS "U"
+  KEY 1
+  VALIDATE ZEROFILL_FUNC 2
+  GROUP 2
 END
 
 STRING F_DESC 50
 BEGIN
   PROMPT 10 2 "Descrizione "
-  USE LF_MULTIREL KEY 2
+  USE %IVA KEY 2
-  INPUT COD F_COD SELECT
+  INPUT S0 F_DESC
-  INPUT DATA F_DESC
+  DISPLAY "Descrizione@50" S0
-  DISPLAY "Descrizione@60" DATA
+  DISPLAY "Cod." CODTAB
-  DISPLAY "Codice" FIRST
+  COPY OUTPUT F_CODTAB1
-  DISPLAY "Codice IVA Collegato" SECOND
+  KEY 2
-  COPY OUTPUT F_CODTAB
+  GROUP 3
-  FIELD DATA
-  KEY 3
   CHECKTYPE REQUIRED
 END
 
-STRING F_COD_CAMPO 4
+NUMBER F_COD_CAMPO 3
 BEGIN
-  PROMPT 2 4 "Codice IVA collegato "
+  PROMPT 2 4 "Codice IVA Teamsystem "
-  FIELD SECOND
+  FIELD DATA
-  FLAGS "U"
+  FLAGS "Z"
-  USE %IVA
+  USE &TIV
   INPUT CODTAB F_COD_CAMPO
   DISPLAY "Cod." CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_COD_CAMPO CODTAB
-	KEY 1
+  OUTPUT F_DESC1 S0
-	CHECKTYPE NORMAL
+	CHECKTYPE REQUIRED
-	GROUP 1 10
 END
 
-STRING F_COD_CAMPO1 5
+STRING F_DESC1 50 40
 BEGIN
-  PROMPT 2 4 "Codice IVA collegato "
+  PROMPT 32 4 ""
-  FIELD SECOND
+  USE &TIV KEY 2
-  FLAGS "UH"
+  INPUT S0 F_DESC1
-	KEY 1
+  DISPLAY "Descrizione@60" S0
-	GROUP 1 20
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_COD_CAMPO
 END
 
 ENDPAGE

tc/tctsnaz.uml

@@ -8,7 +8,7 @@ PAGE "Nazioni" 0 2 0 0
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
-  PROMPT 1 1 "Nazione TeamSystem"
+  PROMPT 1 1 "Stato Campo"
 END
 
 LIST F_COD 5
@@ -20,63 +20,77 @@ BEGIN
   KEY 1
 END
 
-NUMBER F_CODTAB 4
+NUMBER F_CODTAB 3
 BEGIN
   PROMPT 2 2 ""
   USE LF_MULTIREL
+  JOIN %STA INTO CODTAB==FIRST
   INPUT COD F_COD SELECT
   INPUT FIRST F_CODTAB
-  DISPLAY "Codice" FIRST
+  DISPLAY "Codice stato" FIRST
-  DISPLAY "Descrizione@60" DATA
+  DISPLAY "Descrizione@60" %STA->S0
-  DISPLAY "Stato collegato" SECOND
+  DISPLAY "Nazione Teamsystem" DATA
   OUTPUT F_CODTAB FIRST
-  OUTPUT F_DESC DATA
+  OUTPUT F_DESC %STA->S0
-  OUTPUT F_COD_CAMPO SECOND
-  OUTPUT F_COD_CAMPO1 SECOND
 	CHECKTYPE REQUIRED
   FIELD FIRST
   FLAGS "Z"
   KEY 1
+  GROUP 1
+END
+
+NUMBER F_CODTAB1 3
+BEGIN
+  PROMPT 2 2 ""
+  USE %STA
+  INPUT CODTAB F_CODTAB1
+  DISPLAY "Cod." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_CODTAB1 CODTAB
+  OUTPUT F_DESC S0
+	CHECKTYPE REQUIRED
+  FIELD FIRST
+  FLAGS "ZG"
+  KEY 1
+  GROUP 2
 END
 
 STRING F_DESC 50
 BEGIN
   PROMPT 10 2 "Descrizione "
-  USE LF_MULTIREL KEY 2
+  USE %STA KEY 2
-  INPUT COD F_COD SELECT
+  INPUT S0 F_DESC
-  INPUT DATA F_DESC
+  DISPLAY "Descrizione@50" S0
-  DISPLAY "Descrizione@60" DATA
+  DISPLAY "Cod." CODTAB
-  DISPLAY "Codice" FIRST
+  COPY OUTPUT F_CODTAB1
-  DISPLAY "Stato collegato" SECOND
+  KEY 2
-  COPY OUTPUT F_CODTAB
+  GROUP 3
-  FIELD DATA
-  KEY 3
   CHECKTYPE REQUIRED
 END
 
-NUMBER F_COD_CAMPO 3
+NUMBER F_COD_CAMPO 4
 BEGIN
-  PROMPT 2 4 "Stato collegato   "
+  PROMPT 2 4 "Nazione Teamsystem "
-  FIELD SECOND
+  FIELD DATA
   FLAGS "Z"
-  USE %STA
+  USE &TNA
   INPUT CODTAB F_COD_CAMPO
   DISPLAY "Cod." CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_COD_CAMPO CODTAB
+  OUTPUT F_DESC1 S0
   CHECKTYPE REQUIRED
-	KEY 1
-	CHECKTYPE NORMAL
-	GROUP 1 10
 END
 
-NUMBER F_COD_CAMPO1 3
+STRING F_DESC1 50 40
 BEGIN
-  PROMPT 2 4 "Stato collegato   "
+  PROMPT 32 4 ""
-  FIELD SECOND
+  USE &TNA KEY 2
-  FLAGS "Z"
+  INPUT S0 F_DESC1
-	KEY 1
+  DISPLAY "Descrizione@60" S0
-	GROUP 1 20
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_COD_CAMPO
 END
 
 ENDPAGE

tc/tctsreg.uml

@@ -7,7 +7,7 @@ ENDPAGE
 PAGE "Registri" 0 2 0 0
 GROUPBOX DLG_NULL 78 3
 BEGIN
-  PROMPT 1 1 "Registro TeamSystem"
+  PROMPT 1 1 "Registro Campo"
 END
 
 LIST F_COD 5
@@ -19,95 +19,97 @@ BEGIN
   KEY 1
 END
 
-LIST F_TIPO 1 13
-BEGIN
-  PROMPT 2 2 ""
-	ITEM "A|Acquisti" MESSAGE "2",F_TIPOREG|"",F_CORRISP
-	ITEM "C|Corrispettivi" MESSAGE "1",F_TIPOREG|"X",F_CORRISP
-	ITEM "V|Vendite" MESSAGE "1",F_TIPOREG|"",F_CORRISP
-  FIELD FIRST[1,1]
-  FLAGS "Z"
-  KEY 1
-END
-
-STRING F_CODTAB 2
-BEGIN
-  PROMPT 18 2 ""
-  USE LF_MULTIREL
-  INPUT COD F_COD SELECT
-  INPUT FIRST[1,1] F_TIPO SELECT
-  INPUT FIRST[2,3] F_CODTAB
-  DISPLAY "Tipo" FIRST[1,1]
-  DISPLAY "Codice" FIRST[2,3]
-  DISPLAY "Descrizione@60" DATA
-  DISPLAY "Codice registro" SECOND
-  OUTPUT F_CODTAB FIRST[2,3]
-  OUTPUT F_DESC DATA
-	OUTPUT F_COD_CAMPO SECOND
-  OUTPUT F_COD_CAMPO1 SECOND
-  CHECKTYPE REQUIRED
-  FIELD FIRST[2,3]
-  KEY 1
-END
-
-STRING F_DESC 50 40
-BEGIN
-  PROMPT 25 2 "Descrizione "
-  USE LF_MULTIREL KEY 2
-  INPUT COD F_COD SELECT
-  INPUT DATA F_DESC
-  DISPLAY "Descrizione@60" DATA
-  DISPLAY "Tipo" FIRST[1,1]
-  DISPLAY "Codice" FIRST[2,3]
-  DISPLAY "Codice registro" SECOND
-  COPY OUTPUT F_CODTAB
-  FIELD DATA
-  KEY 3
-  CHECKTYPE REQUIRED
-END
-
 NUMBER F_ANNO 4
 BEGIN
   PROMPT 2 5 ""
   FLAGS "AH"
 END
 
-NUMBER F_TIPOREG 1
+STRING F_CODTAB 3
 BEGIN
-  PROMPT 2 5 ""
+  PROMPT 2 2 ""
-  FLAGS "H"
+  USE LF_MULTIREL
+  JOIN REG INTO CODTAB==FIRST
+  INPUT COD F_COD SELECT
+  INPUT FIRST F_CODTAB
+  DISPLAY "Codice registro" FIRST
+  DISPLAY "Descrizione@60" REG->S0
+  DISPLAY "Tipo" DATA[1,1]
+  DISPLAY "Codice registro" DATA[2,3]
+  OUTPUT F_CODTAB FIRST
+  OUTPUT F_DESC REG->S0
+  FLAGS "UZ"
+  CHECKTYPE REQUIRED
+  FIELD FIRST
+  KEY 1
+  GROUP 1
 END
 
-STRING F_CORRISP 1
+STRING F_CODTAB1 3
 BEGIN
-  PROMPT 2 5 ""
+  PROMPT 2 2 ""
-  FLAGS "H"
+  USE REG
-END
-
-STRING F_COD_CAMPO 3
-BEGIN
-  PROMPT 2 4 "Registro collegato "
-  FIELD SECOND
-  FLAGS "GUZ"
-  USE REG SELECT (I0==#F_TIPOREG)
   INPUT CODTAB[1,4] F_ANNO SELECT
   INPUT CODTAB[5,7] F_COD_CAMPO
   DISPLAY "Codice" CODTAB[5,7]
   DISPLAY "Descrizione@50" S0
-  OUTPUT F_COD_CAMPO CODTAB[5,7]
+  OUTPUT F_CODTAB CODTAB[5,7]
+  OUTPUT F_CODTAB1 CODTAB[5,7]
+  OUTPUT F_DESC S0
   CHECKTYPE REQUIRED
+  FLAGS "UZG"
+  FIELD FIRST
   KEY 1
-	CHECKTYPE NORMAL
+  GROUP 2
-	GROUP 1 10
 END
 
-STRING F_COD_CAMPO1 3
+STRING F_DESC 50
 BEGIN
-  PROMPT 2 4 "Registro collegato "
+  PROMPT 10 2 ""
-  FIELD SECOND
+  USE REG KEY 2 
-  FLAGS "UH"
+  INPUT S0 F_DESC
-	KEY 1
+  DISPLAY "Descrizione@50" S0
-	GROUP 1 20
+  DISPLAY "Anno" CODTAB[1,4]
+  DISPLAY "Codice" CODTAB[5,7]
+  COPY OUTPUT F_CODTAB1
+  KEY 2
+  GROUP 3
+  CHECKTYPE REQUIRED
+END
+
+LIST F_TIPO 1 13
+BEGIN
+  PROMPT 2 4 "Tipo               "
+	ITEM "A|Acquisti"
+	ITEM "C|Corrispettivi"
+	ITEM "V|Vendite"
+  FIELD DATA[1,1]
+END
+
+STRING F_COD_CAMPO 2
+BEGIN
+  PROMPT 2 6 "Registro TeamSystem"
+  FIELD DATA[2,3]
+  USE &TRE
+  INPUT CODTAB[1,1] F_TIPO
+  INPUT CODTAB[2,3] F_COD_CAMPO
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_TIPO CODTAB[1,1]
+  OUTPUT F_COD_CAMPO CODTAB[2,3]
+  OUTPUT F_DESC1 S0
+  CHECKTYPE REQUIRED
+  FLAGS "Z"
+END
+
+STRING F_DESC1 50 40
+BEGIN
+  PROMPT 32 6 ""
+  USE &TRE KEY 2
+  INPUT S0 F_DESC1
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_COD_CAMPO
 END
 
 ENDPAGE

tc/tctsval.uml

@@ -8,7 +8,7 @@ PAGE "Valute" 0 2 0 0
 
 GROUPBOX DLG_NULL 78 3
 BEGIN
-  PROMPT 1 1 "Sigla Valuta TeamSystem"
+  PROMPT 1 1 "Codice Valuta Campo "
 END
 
 LIST F_COD 5
@@ -24,59 +24,74 @@ STRING F_CODTAB 3
 BEGIN
   PROMPT 2 2 ""
   USE LF_MULTIREL
+  JOIN %VAL INTO CODTAB==FIRST
   INPUT COD F_COD SELECT
   INPUT FIRST F_CODTAB
-  DISPLAY "Codice" FIRST
+  DISPLAY "Codice valuta" FIRST
-  DISPLAY "Descrizione@60" DATA
+  DISPLAY "Descrizione@60" %VAL->S0
-  DISPLAY "Valta collegata" SECOND
+  DISPLAY "Sigla valuta Teamsystem" DATA
   OUTPUT F_CODTAB FIRST
-  OUTPUT F_DESC DATA
+  OUTPUT F_DESC %VAL->S0
-  OUTPUT F_COD_CAMPO SECOND
+  OUTPUT F_COD_CAMPO DATA
-  OUTPUT F_COD_CAMPO1 SECOND
+	CHECKTYPE REQUIRED
+  FIELD FIRST
+  FLAGS "UZG"
+  KEY 1
+  GROUP 1
+END
+
+STRING F_CODTAB1 3
+BEGIN
+  PROMPT 2 2 ""
+  USE %VAL
+  INPUT CODTAB F_CODTAB1
+  DISPLAY "Cod." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_CODTAB1 CODTAB
+  OUTPUT F_DESC S0
 	CHECKTYPE REQUIRED
   FIELD FIRST
   FLAGS "UZ"
   KEY 1
+  GROUP 2
 END
 
 STRING F_DESC 50
 BEGIN
   PROMPT 10 2 "Descrizione "
-  USE LF_MULTIREL KEY 2
+  USE %VAL KEY 2
-  INPUT COD F_COD SELECT
+  INPUT S0 F_DESC
-  INPUT DATA F_DESC
+  DISPLAY "Descrizione@50" S0
-  DISPLAY "Descrizione@60" DATA
+  DISPLAY "Cod." CODTAB
-  DISPLAY "Codice" FIRST
+  COPY OUTPUT F_CODTAB1
-  DISPLAY "Valuta collegata" SECOND
+  KEY 2
-  COPY OUTPUT F_CODTAB
+  GROUP 3
-  FIELD DATA
-  KEY 3
   CHECKTYPE REQUIRED
 END
 
 STRING F_COD_CAMPO 3
 BEGIN
-  PROMPT 2 4 "Valuta collegata  "
+  PROMPT 2 4 "Sigla Valuta TeamSystem "
-  FIELD SECOND
+  FIELD DATA
   FLAGS "UZ"
-  USE %VAL
+  USE &TVA
   INPUT CODTAB F_COD_CAMPO
   DISPLAY "Cod." CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_COD_CAMPO CODTAB
+  OUTPUT F_DESC1 S0
   CHECKTYPE REQUIRED
-	KEY 1
-	CHECKTYPE NORMAL
-	GROUP 1 10
 END
 
-STRING F_COD_CAMPO1 3
+STRING F_DESC1 50 35
 BEGIN
-  PROMPT 2 4 "Valuta collegata  "
+  PROMPT 37 4 ""
-  FIELD SECOND
+  USE &TVA KEY 2
-  FLAGS "UZ"
+  INPUT S0 F_DESC1
-	KEY 1
+  DISPLAY "Descrizione@60" S0
-	GROUP 1 20
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_COD_CAMPO
 END
 
 ENDPAGE

tc/tstab.txt

@@ -1,6 +1,6 @@
 [Header]
 Version=199519
-File=155
+File=156
 Fields=COD,5|FIRST,20|SECOND,20|DATA,50
 
 [Data]