Patch level : 12.0 370

Files correlati     : tc3.exe tcmenu.men tc3100a.uml tc3800a.uml tctbrca.uml
                      tctbrco.uml tctbriv.uml tctbrpg.uml tctbrre.uml tctbrvl.uml

POrgramma di ricezione da Ericsoft versione 0


git-svn-id: svn://10.65.10.50/branches/R_10_00@23695 c028cbd2-c16b-5b4b-a496-9718f37d4682

src/tc/tc0600.cpp

@@ -5,6 +5,7 @@
 #include <utility.h>
 #include <textset.h>
 #include <reprint.h>
+#include <sheet.h>
 #include <scanner.h>
 
 #include "tc0.h"

src/tc/tc0900.cpp

@@ -17,6 +17,7 @@
 #include <tabutil.h>
 #include <urldefid.h>
 #include <utility.h>
+#include <sheet.h>
 #include <statbar.h>
 
 #include <clifo.h>

src/tc/tc3.cpp

@@ -0,0 +1,20 @@
+#include <xvt.h>
+
+#include "tc3.h"
+
+int main(int argc, char** argv)
+{
+  const int op = argc < 2 ? 0 : argv[1][1]-'0';
+  switch (op)
+  {
+		case	7: tc3800(argc,argv); break;	// riclassificazione conti zucchetti
+		case	1: tc3200(argc,argv); break;	// Tabelle
+    default: tc3100(argc,argv); break;  // trasferimento zucchetti
+  }
+  return 0; 
+}
+
+
+
+
+

src/tc/tc3.h

@@ -0,0 +1,24 @@
+#ifndef __TC3_H
+#define __TC3_H
+
+int tc3100(int argc, char** argv);
+int tc3200(int argc, char** argv);
+int tc3300(int argc, char** argv);
+int tc3700(int argc, char** argv);
+int tc3800(int argc, char** argv);
+
+#endif // __TC3_H
+
+
+
+
+ 
+
+
+
+
+
+
+
+
+

src/tc/tc3100a.h

@@ -0,0 +1,8 @@
+// campi della maschera tc3100a Importazione da Ericsoft
+
+#define F_CODDITTA      101
+#define F_RAGSOC        102
+#define F_PATH					103
+#define F_CLIFOR		  	104
+#define F_MOV		        105
+#define F_VERBOSE       106

src/tc/tc3100a.uml

@@ -0,0 +1,84 @@
+#include "tc3100a.h"
+
+TOOLBAR "topbar" 0 0 0 2
+
+BUTTON DLG_ELABORA 10 2
+BEGIN
+  PROMPT -12 -11 "~Elabora"
+  PICTURE BMP_ELABORA
+  MESSAGE EXIT,K_ENTER
+END
+
+#include <helpbar.h>
+
+ENDPAGE
+
+TOOLBAR "" 0 -2 0 2
+
+STRING DLG_PROFILE 50
+BEGIN
+  PROMPT 9 0 "Profilo "
+  PSELECT
+END
+
+ENDPAGE
+
+PAGE "Importazione da Ericsoft" 0 0 0 -3
+
+GROUPBOX DLG_NULL 76 3
+BEGIN
+  PROMPT 2 1 "@bDitta corrente"
+END
+
+NUMBER F_CODDITTA 5
+BEGIN
+  PROMPT 3 2 "Codice      "
+  FLAGS "FD"
+  USE LF_NDITTE
+  INPUT CODDITTA F_CODDITTA
+  OUTPUT F_RAGSOC RAGSOC
+  CHECKTYPE REQUIRED
+END
+
+STRING F_RAGSOC 50
+BEGIN
+  PROMPT 23 2 ""
+  FLAGS "D"
+  //FIELD RAGSOC
+END
+
+GROUPBOX DLG_NULL 76 6
+BEGIN
+  PROMPT 2 4 "@bSorgente"
+END
+
+STRING F_PATH 256 50
+BEGIN
+  PROMPT 3 5 "Cartella    "
+  DSELECT
+  CHECKTYPE REQUIRED
+  FIELD Path
+END
+
+STRING F_CLIFOR 18
+BEGIN
+  PROMPT 3 6 "Clienti     "
+  FLAGS "B"
+  FIELD ReCFInFile
+END
+
+STRING F_MOV 18
+BEGIN
+  PROMPT 3 7 "Movimenti   "
+  FLAGS "B"
+  FIELD ReMovInFile
+END
+
+BOOLEAN F_VERBOSE
+BEGIN
+  PROMPT 3 11 "Output Dettagliato"
+END
+
+ENDPAGE
+
+ENDMASK

src/tc/tc3200.cpp

@@ -0,0 +1,54 @@
+// gestione tabelle ericsoft
+#include <modaut.h>
+#include <modtbapp.h>
+#include <tabutil.h>
+
+
+// applicazione per la gestione delle tabelle di magazzino
+class Tab_app_eric : public TTable_module_application
+{
+  
+protected:  // TRelation_application
+  virtual bool user_create() ;
+  
+public:
+	Tab_app_eric() {}
+  virtual ~Tab_app_eric() {}
+};
+
+HIDDEN inline Tab_app_eric& app() { return (Tab_app_eric&)main_app(); }
+
+
+bool Tab_app_eric::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_taberic, 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 tc3200(int argc, char** argv)
+{
+ Tab_app_eric a;
+  a.run(argc, argv, TR("Tabella"));
+  return 0;
+}
+

src/tc/tc3800.cpp

@@ -0,0 +1,160 @@
+#include <automask.h>
+#include <execp.h>
+#include <relapp.h>
+#include <pconti.h>
+#include <recarray.h>
+
+#include "tc3800a.h"
+
+////////////////////////////////////////////////////////////////////////
+//MASCHERA
+////////////////////////////////////////////////////////////////////////
+class TRC_ricl_msk : public TAutomask
+{
+  virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
+	
+public:
+  TRC_ricl_msk() : TAutomask("tc3800a") {}
+};
+
+bool TRC_ricl_msk::on_field_event(TOperable_field& o, TField_event e, long jolly) 
+{
+	switch (o.dlg())
+	{
+	case F_CONTO:
+		break;			
+	default:
+		break;
+	}
+	return true;
+}
+
+class TRCRiclass_application : public TRelation_application
+
+// @author:(INTERNAL) Vari
+// @access:(INTERNAL) Private Member
+{
+  // @cmember:(INTERNAL) Maschera corrente dell'applicazione
+  TMask* _msk;
+  // @cmember:(INTERNAL) Relazione corrente dell'applicazione
+  TRelation* _rel;
+  // @cmember:(INTERNAL) valori iniziale dei gruppo conto sottoconto
+	int _gruppo;
+	int _conto;
+	long _sottoconto;
+
+// @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
+  //        dalla corrente.
+  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 inserimento
+  // @cmember Inizializzazione dei dati dell'utente
+	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) ;
+  virtual void  init_insert_mode(TMask& m);
+  // @cmember Inizializza la maschera per il modo modifica
+  virtual void  init_modify_mode(TMask& m);
+   virtual bool user_create() ;
+  // @cmember Distruzione dei dati dell'utente
+  virtual bool user_destroy() ;
+  // @cmember Chiama il programma di stampa
+  virtual void print();
+
+// @access Public Member
+public:
+  // @cmember Costruttore
+  TRCRiclass_application() : _msk(NULL), _rel(NULL) { }
+
+
+  // @cmember Distruttore
+  virtual ~TRCRiclass_application() {}
+};
+
+
+void TRCRiclass_application::print()
+{
+  TFilename rep("tcscricl.rep"); //qui
+	TString cmd;
+  rep.custom_path();
+  cmd << "ba8 -4 "<< rep;
+  TExternal_app stampa(cmd);
+  stampa.run();
+}
+
+void TRCRiclass_application::init_insert_mode(TMask& m) 
+{
+	m.show(-1);
+	m.disable(-1);
+	m.hide(-2);
+	m.disable(-3);
+}
+void TRCRiclass_application::init_query_mode(TMask& m) 
+{
+	m.show(-1);
+	m.hide(-2);
+	m.enable(-3);
+}   
+
+void TRCRiclass_application::init_query_insert_mode(TMask& m) 
+{
+	m.hide(-1);
+	m.show(-2);
+	m.enable(-3);
+}
+
+void TRCRiclass_application::init_modify_mode(TMask& m) 
+{
+	TRelation_application::init_modify_mode(m);
+	_gruppo = m.get_int(F_GRUPPO);
+	_conto = m.get_int(F_CONTO);
+	_sottoconto = m.get_long(F_SOTTOCONTO);
+	m.show(-1);
+	m.disable(-1);
+	m.hide(-2);
+	m.disable(-3);
+}
+
+bool TRCRiclass_application::user_create()
+{
+  _rel = new TRelation(LF_RICLPDC);
+  _msk = new TRC_ricl_msk;
+  
+  set_search_field(F_SOTTOCONTO);
+  
+  TFilename rep("tczcricl.rep");
+
+  if (rep.custom_path()) 
+    enable_menu_item(M_FILE_PRINT);
+  
+  TString title;
+  _msk->get_caption(title);
+  set_title(title);
+
+  return true;
+}
+
+bool TRCRiclass_application::user_destroy() 
+{
+  if (_msk)
+		delete _msk;
+  if (_rel)
+		delete _rel;
+
+  return true;
+}
+
+
+
+int tc3800(int argc, char **argv) 
+{
+  TRCRiclass_application a;
+
+  a.run(argc, argv, TR("Riclassificazione piano dei conti Ericsoft"));
+  return 0;
+}
+

src/tc/tc3800a.h

@@ -0,0 +1,12 @@
+//id campi maschera tc3800a (file piano dei conti Ericsoft)
+//campi normali
+#define F_COD						101
+#define F_GRUPPO				102
+#define F_CONTO					103
+#define F_SOTTOCONTO		104
+#define F_SOTTOCONTO1		105
+#define F_DESCG					106
+#define F_DESCC					107
+#define F_DESC					108
+#define F_CONTORE       109
+#define F_DESCRIZ				110

src/tc/tc3800a.uml

@@ -0,0 +1,171 @@
+#include "tc3800a.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Riclassificazione conti" 0 2 0 0
+
+LIST F_COD 7
+BEGIN
+  PROMPT 50 50 ""
+  ITEM "RECONTI|RECONTI"
+  FIELD TIPORIC
+  FLAGS "D"
+  KEY 1
+END
+
+GROUPBOX DLG_NULL 78 5
+BEGIN
+  PROMPT 1 1 "Conto Campo"
+END
+
+NUMBER F_GRUPPO 3
+BEGIN
+  PROMPT 2 2 "Gruppo    "
+  HELP "Codice del gruppo"
+  FIELD GRUPPO
+  KEY 1
+  USE LF_PCON KEY 1 SELECT CONTO=""
+  INPUT GRUPPO F_GRUPPO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_GRUPPO GRUPPO
+  OUTPUT F_DESCG DESCR
+  CHECKTYPE FORCED
+  ADD RUN cg0 -0
+END
+
+STRING F_DESCG 50
+BEGIN
+  PROMPT 25 2 ""
+  FLAGS "D"
+END
+
+NUMBER F_CONTO 3
+BEGIN
+  PROMPT 2 3 "Conto     "
+  HELP "Codice dell'eventuale conto"
+  FIELD CONTO
+  KEY 1
+  USE LF_PCON KEY 1 SELECT ((CONTO!="")&&(SOTTOCONTO=""))
+  COPY INPUT F_GRUPPO
+  INPUT CONTO F_CONTO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_GRUPPO GRUPPO
+  OUTPUT F_CONTO CONTO
+  OUTPUT F_DESCC DESCR
+  CHECKTYPE FORCED
+  WARNING "Manca il conto"
+  ADD RUN cg0 -0
+END
+
+STRING F_DESCC 50
+BEGIN
+  PROMPT 25 3 ""
+  FLAGS "D"
+END
+
+NUMBER F_SOTTOCONTO 6
+BEGIN
+  PROMPT 2 4 "Sottoconto"
+  HELP "Codice dell'eventuale sottoconto"
+  FIELD SOTTOCONTO
+  KEY 1
+  USE LF_RICLPDC
+  JOIN LF_PCON INTO GRUPPO==GRUPPO CONTO==CONTO SOTTOCONTO==SOTTOCONTO
+  INPUT TIPORIC F_COD
+  INPUT GRUPPO F_GRUPPO
+  INPUT CONTO F_CONTO
+  INPUT SOTTOCONTO F_SOTTOCONTO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  DISPLAY "Descrizione@50" LF_PCON->DESCR
+  OUTPUT F_GRUPPO GRUPPO
+  OUTPUT F_CONTO CONTO
+  OUTPUT F_SOTTOCONTO SOTTOCONTO
+  OUTPUT F_DESC LF_PCON->DESCR
+  CHECKTYPE FORCED
+  GROUP 1
+END
+
+NUMBER F_SOTTOCONTO1 6
+BEGIN
+  PROMPT 2 4 "Sottoconto"
+  HELP "Codice dell'eventuale sottoconto"
+  FIELD SOTTOCONTO
+  KEY 1
+  USE LF_PCON KEY 1 SELECT SOTTOCONTO!=""
+  COPY INPUT F_CONTO
+  INPUT SOTTOCONTO F_SOTTOCONTO1
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  DISPLAY "Sosp." SOSPESO
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT F_GRUPPO GRUPPO
+  OUTPUT F_CONTO CONTO
+  OUTPUT F_SOTTOCONTO1 SOTTOCONTO
+  OUTPUT F_DESC DESCR
+  MESSAGE COPY F_SOTTOCONTO
+  CHECKTYPE FORCED
+  GROUP 2
+  FLAGS "HG"
+  ADD RUN cg0 -0
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 25 4 ""
+  USE LF_PCON KEY 2
+  KEY 2
+  INPUT DESCR F_DESC
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Sosp." SOSPESO
+  DISPLAY "Gruppo" GRUPPO
+  DISPLAY "Conto" CONTO
+  DISPLAY "Sottoconto" SOTTOCONTO
+  COPY OUTPUT F_SOTTOCONTO1
+  CHECKTYPE NORMAL
+  HELP "Descrizione del gruppo o del conto o del sottoconto"
+  WARNING "Descrizione mancante"
+  GROUP 3
+END
+
+GROUPBOX DLG_NULL 78 4
+BEGIN
+  PROMPT 1 6 "Conto Ericsoft"
+END
+
+STRING F_CONTORE 7
+BEGIN
+  PROMPT 2 7 "Conto    "
+  USE &RCO
+  INPUT CODTAB F_CONTORE
+  DISPLAY "Conto Ericsoft" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CONTORE CODTAB
+  OUTPUT F_DESCRIZ S0
+  CHECKTYPE REQUIRED
+  VALIDATE FIXLEN_FUNC 7
+  FIELD CODICE
+END
+
+STRING F_DESCRIZ 50
+BEGIN
+  PROMPT 25 7 ""
+  USE &RCO KEY 2
+  INPUT S0 F_DESCRIZ
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Conto Ericsoft" CODTAB
+  COPY OUTPUT F_CONTORE
+  CHECKTYPE NORMAL
+END
+
+
+ENDPAGE
+
+ENDMASK

src/tc/tc8100.cpp

@@ -6,6 +6,7 @@
 #include <utility.h>
 #include <textset.h>
 #include <reprint.h>
+#include <sheet.h>
 
 #include "tc8.h"
 #include "tc8100a.h"

src/tc/tcmenu.men

@@ -7,7 +7,8 @@ Item_01 = "TeamSystem", [TCMENU_002]
 Item_02 = "Zucchetti", [TCMENU_006]
 Item_03 = "IPSOA", [TCMENU_010]
 Item_04 = "Sispac", [TCMENU_014]
-Item_05 = "Altri", [TCMENU_015]
+Item_04 = "Ericsoft", [TCMENU_015]
+Item_05 = "Altri", [TCMENU_018]
 
 [TCMENU_002]
 Caption = "TeamSystem"
@@ -150,6 +151,34 @@ Item_02 = "Tabella IVA Sispac", "tc9 -3 IVA", ""
 Item_03 = "Tabella causali Sispac", "tc9 -3 CAU", ""
 
 [TCMENU_015]
+Caption = "Ericsoft"
+Picture = <cg01>
+Module  = 27
+Flags   = ""
+Item_01 = "Trasferimento", "tc3 -0", ""
+Item_02 = "Tabelle", [TCMENU_016]
+Item_03 = "Tabelle di riclassificazione", [TCMENU_017]
+
+[TCMENU_016]
+Caption = "Tabelle Ericsoft"
+Picture = <cg01>
+Module  = 27
+Flags   = ""
+Item_01 = "Registri", "tc3 -1 &RRE", ""
+Item_02 = "Causali", "tc3 -1 &RCA", ""
+Item_03 = "Codici IVA", "tc3 -1 &RIV", ""
+Item_04 = "Condizioni di pagamento", "tc3 -1 &RPG", "" 
+Item_05 = "Valute", "tc3 -1 &RVL", ""
+Item_06 = "Conti", "tc3 -1 &RCO", ""
+
+[TCMENU_017]
+Caption = "Tabelle di riclassificazione Ericsoft"
+Picture = <cg01>
+Module  = 27
+Flags   = ""
+Item_01 = "Piano dei conti", "tc3 -7", ""
+
+[TCMENU_018]
 Caption = "Altri"
 Picture = <cg01>
 Module  = 27

src/tc/tctbrca.h

@@ -0,0 +1,5 @@
+#define F_TIPO       101
+#define F_CODTAB     102
+#define F_DESC       103
+#define F_CODICE	   104
+#define F_DESCR			 105

src/tc/tctbrca.uml

@@ -0,0 +1,101 @@
+#include "tctbrca.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Conti" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 4
+BEGIN
+  PROMPT 1 1 "Causale Ericsoft"
+END
+
+LIST F_TIPO 1 30
+BEGIN
+  PROMPT 2 2 "Tipo        "
+  ITEM "0|Non IVA"
+  ITEM "1|Fattura"
+  ITEM "2|Nota di accredito"
+  ITEM "3|Corrispettivo/Costo"
+  ITEM "4|Storno Corrispettivo/Costo"
+  ITEM "5|Incasso fattura sospesa"
+  ITEM "1|Fattura"
+  ITEM "2|Nota di accredito"
+  FIELD CODTAB[1,1]
+  KEY 1
+END
+
+STRING F_CODTAB 3
+BEGIN
+  PROMPT 54 2 "Codice "
+  USE &RCA
+  INPUT CODTAB[2,4] F_TIPO
+  INPUT CODTAB[2,4] F_CODTAB
+  DISPLAY "Tipo" CODTAB[1,1]
+  DISPLAY "Codice" CODTAB[2,4]
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_TIPO CODTAB[1,1]
+  OUTPUT F_CODTAB CODTAB[2,4]
+  OUTPUT F_DESC S0
+  CHECKTYPE REQUIRED
+  FIELD CODTAB[2,4]
+  FLAGS "UZ"
+  KEY 1
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 3 "Descrizione "
+  USE &RCA KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Tipo" CODTAB[1,1]
+  DISPLAY "Codice" CODTAB[2,4]
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+STRING F_CODICE 3
+BEGIN
+  PROMPT 2 6 "Cod.Causale "
+  FIELD S1
+  FLAGS "UZ"
+  USE LF_CAUSALI
+  INPUT CODCAUS F_CODICE
+  DISPLAY "Cod." CODCAUS
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Documento" TIPODOC
+  DISPLAY "Registro" REG
+  DISPLAY "Tipo movimento" TIPOMOV
+  DISPLAY "Colleg." CODCAUSIM
+  DISPLAY "770" M770
+  DISPLAY "Cespiti" COLLCESP
+  OUTPUT F_CODICE CODCAUS
+  OUTPUT F_DESCR DESCR
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DESCR 50
+BEGIN
+  PROMPT 20 6 ""
+  USE LF_CAUSALI KEY 2
+  INPUT DESCR F_DESCR
+  DISPLAY "Descrizione @50" DESCR
+  DISPLAY "Cod." CODCAUS
+  DISPLAY "Documento" TIPODOC
+  DISPLAY "Registro" REG
+  DISPLAY "Movimento" TIPOMOV
+  DISPLAY "Colleg." CODCAUSIM
+  DISPLAY "770" M770
+  DISPLAY "Cespiti" COLLCESP
+  COPY OUTPUT F_CODICE
+  CHECKTYPE SEARCH
+END
+
+
+ENDPAGE
+
+ENDMASK

src/tc/tctbrco.h

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

src/tc/tctbrco.uml

@@ -0,0 +1,45 @@
+#include "tctbrco.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 "Conto Ericsoft"
+END
+
+STRING F_CODTAB 7
+BEGIN
+  PROMPT 2 2 "Codice      "
+  USE &RCO
+  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 7
+  FLAGS "Z"
+  KEY 1
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 5 "Descrizione "
+  USE &RCO 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

src/tc/tctbriv.h

@@ -0,0 +1,4 @@
+#define F_CODTAB     102
+#define F_DESC       103
+#define F_CODICE	   104
+#define F_DESCR			 105

src/tc/tctbriv.uml

@@ -0,0 +1,78 @@
+#include "tctbriv.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Codici IVA" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 4
+BEGIN
+  PROMPT 1 1 "Codice IVA Ericsoft"
+END
+
+NUMBER F_CODTAB 3
+BEGIN
+  PROMPT 2 2 "Codice      "
+  USE &RIV
+  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 3 "Descrizione "
+  USE &RIV KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+STRING F_CODICE 4
+BEGIN
+  PROMPT 2 6 "Codice IVA "
+  FIELD S1
+  USE %IVA
+  FLAGS "U"
+  INPUT CODTAB F_CODICE
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Tipo" S1
+  DISPLAY "%@5" R0
+  DISPLAY "Vent." S6
+  DISPLAY "Sospeso" B2
+  OUTPUT F_CODICE CODTAB
+  OUTPUT F_DESCR S0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DESCR 50
+BEGIN
+  PROMPT 20 6 ""
+  USE %IVA KEY 2
+  INPUT S0 F_DESCR
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Tipo" S1
+  DISPLAY "%@5" R0
+  DISPLAY "Vent." S6
+  DISPLAY "Sospeso" B2
+  COPY OUTPUT F_CODICE
+  CHECKTYPE SEARCH
+END
+
+
+ENDPAGE
+
+ENDMASK

src/tc/tctbrpg.h

@@ -0,0 +1,4 @@
+#define F_CODTAB     102
+#define F_DESC       103
+#define F_CODICE	   104
+#define F_DESCR			 105

src/tc/tctbrpg.uml

@@ -0,0 +1,69 @@
+#include "tctbrpg.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Condizioni di pagamento" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 4
+BEGIN
+  PROMPT 1 1 "Codice Pagamento Ericsoft"
+END
+
+NUMBER F_CODTAB 4
+BEGIN
+  PROMPT 2 2 "Codice        "
+  USE &RPG
+  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 3 "Descrizione   "
+  USE &RPG KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+STRING F_CODICE 4
+BEGIN
+  PROMPT 2 6 "Cod.Pagamento "
+  FLAGS "U#"
+  FIELD S1
+  USE %CPG KEY 1
+  INPUT CODTAB F_CODICE
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_CODICE CODTAB
+  OUTPUT F_DESCR S0
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DESCR 50
+BEGIN
+  PROMPT 23 6 ""
+  USE %CPG KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice@10" CODTAB
+  COPY OUTPUT F_CODICE
+  CHECKTYPE SEARCH
+END
+
+ENDPAGE
+
+ENDMASK

src/tc/tctbrre.h

@@ -0,0 +1,6 @@
+#define F_TIPO			 101
+#define F_CODTAB     102
+#define F_DESC       103
+#define F_ANNO       104
+#define F_CODICE	   105
+#define F_DESCR			 106

src/tc/tctbrre.uml

@@ -0,0 +1,97 @@
+#include "tctbrre.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Registri" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 5
+BEGIN
+  PROMPT 1 1 "Codice Registro Ericsoft"
+END
+
+LIST F_TIPO 1 30
+BEGIN
+  PROMPT 2 2 "Tipo         "
+  ITEM "1|Vendite"
+  ITEM "2|Acquisti"
+  ITEM "3|Corrispettivi in scorporo"
+  ITEM "4|Corrispettivi in ventilazione"
+  FIELD CODTAB[1,1]
+END
+
+NUMBER F_CODTAB 2
+BEGIN
+  PROMPT 56 2 "Codice "
+  USE &RRE
+  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]
+  VALIDATE FIXLEN_FUNC 2
+  FLAGS "Z"
+  KEY 1
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 3 "Descrizione  "
+  USE &RRE KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+STRING F_CODICE 3
+BEGIN
+  PROMPT 2 6 "Registro     "
+  Help "Codice del registro"
+  USE REG
+  INPUT CODTAB[1,4] F_ANNO SELECT
+  INPUT CODTAB[5,7] F_CODICE
+  DISPLAY "Codice" CODTAB[5,7]
+  DISPLAY "Descrizione @50" S0
+  DISPLAY "Tipo" I0
+  OUTPUT F_CODICE CODTAB[5,7]
+  OUTPUT F_DESCR S0
+  FLAGS "GUZ"
+  FIELD S1
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DESCR 50 43
+BEGIN
+  PROMPT 22 6 ""
+  USE REG KEY 2  SELECT (CODTAB[1,4]==#F_ANNO)
+  INPUT S0 F_DESCR
+  DISPLAY "Descrizione @50" S0
+  DISPLAY "Anno" CODTAB[1,4]
+  DISPLAY "Codice" CODTAB[5,7]
+  DISPLAY "Tipo" I0
+  COPY OUTPUT F_CODICE
+  CHECKTYPE SEARCH
+  MESSAGE COPY,22@
+  HELP "Descrizione del registro"
+  WARNING "La descrizione e' obbligatoria"
+END
+
+NUMBER F_ANNO 4
+BEGIN
+  PROMPT 68 6 "Anno "
+  FLAGS "DAZ"
+END
+
+ENDPAGE
+
+ENDMASK

src/tc/tctbrvl.h

@@ -0,0 +1,4 @@
+#define F_CODTAB     102
+#define F_DESC       103
+#define F_CODVAL     104
+#define F_DESVAL     105

src/tc/tctbrvl.uml

@@ -0,0 +1,72 @@
+#include "tctbrvl.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Valute" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 4
+BEGIN
+  PROMPT 1 1 "Codice Valuta Ericsoft"
+END
+
+STRING F_CODTAB 3
+BEGIN
+  PROMPT 2 2 "Codice      "
+  USE &RVL
+  INPUT CODTAB F_CODTAB
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_DESC S0
+  CHECKTYPE REQUIRED
+  FIELD CODTAB
+  FLAGS "U"
+  VALIDATE FIXLEN_FUNC 3
+  KEY 1
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 3 "Descrizione "
+  USE &RVL KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE REQUIRED
+END
+
+STRING F_CODVAL 3
+BEGIN
+  PROMPT 2 6 "Codice      "
+  FIELD S1
+  FLAGS "UZ"
+  USE %VAL
+  INPUT CODTAB F_CODVAL 
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Valuta@50" S0
+  OUTPUT F_CODVAL CODTAB
+  OUTPUT F_DESVAL S0
+  HELP "Codice della valuta"
+  CHECKTYPE REQUIRED
+END
+
+STRING F_DESVAL 50
+BEGIN
+  PROMPT 21 6 ""
+  USE %VAL KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Valuta@60" S0
+  DISPLAY "Codice@10" CODTAB
+  COPY OUTPUT F_CODVAL 
+  HELP "Descrizione della valuta"
+  CHECKTYPE SEARCH
+END
+
+ENDPAGE
+
+ENDMASK