Patch level : 10.0 880

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

Invio a IPSOA


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

tc/ipconf.h

@@ -8,9 +8,10 @@
 #define F_RICLCAU  		109
 #define F_RICLCONTI		110
 #define F_RICLVALUTE  111
+#define F_RICLCCONS   112
 #define F_RIPRISTINO	121
 #define F_ULTINVIO 		122
-#define F_EMCAU				123
+#define F_ULTSCADID		123
 #define F_LIVPC1			124
 #define F_LIVPC2			125
 #define F_LIVPC3			126

tc/tc2100.cpp

@@ -1,7 +1,7 @@
 #include "tc2.h"
 #include "tctbico.h"
 
-// gestione tabelle Zucchetti
+// gestione tabelle IPSOA
 #include <modaut.h>
 #include <modtbapp.h>
 #include <tabutil.h>

tc/tc2300a.uml

@@ -77,53 +77,66 @@ BEGIN
 	FIELD IPRVAL
 END
 
+BOOLEAN F_RICLCCONS
+BEGIN
+	PROMPT 2 14 "Trascodifica condizioni di consegna"
+	FIELD IPRICC
+END
+
 NUMBER F_LIVPC1 2
 BEGIN
-	PROMPT 2 14 "Lunghezza livelli piano dei conti : 1 "
+	PROMPT 2 16 "Lunghezza livelli piano dei conti : 1 "
 	FIELD IPLIVPC[1]
 END
 
 NUMBER F_LIVPC2 2
 BEGIN
-	PROMPT 46 14 "2 "
+	PROMPT 46 16 "2 "
 	FIELD IPLIVPC[2]
 END
 
 NUMBER F_LIVPC3 2
 BEGIN
-	PROMPT 52 14 "3 "
+	PROMPT 52 16 "3 "
 	FIELD IPLIVPC[3]
 END
 
 NUMBER F_LIVPC4 2
 BEGIN
-	PROMPT 58 14 "4 "
+	PROMPT 58 16 "4 "
 	FIELD IPLIVPC[4]
 END
 
 NUMBER F_LIVPC5 2
 BEGIN
-	PROMPT 64 14 "5 "
+	PROMPT 64 16 "5 "
 	FIELD IPLIVPC[5]
 END
 
 NUMBER F_LIVPC6 2
 BEGIN
-	PROMPT 70 14 "6 "
+	PROMPT 70 16 "6 "
 	FIELD IPLIVPC[6]
 END
 
 BOOLEAN F_RIPRISTINO
 BEGIN
-	PROMPT 2 16 "Ripristina alla data"
+	PROMPT 2 18 "Ripristina alla data"
-	MESSAGE FALSE DISABLE,F_ULTINVIO
+	MESSAGE FALSE DISABLE,F_ULTINVIO|DISABLE,F_ULTSCADID
-	MESSAGE TRUE ENABLE,F_ULTINVIO
+	MESSAGE TRUE ENABLE,F_ULTINVIO|ENABLE,F_ULTSCADID
 END
 
 DATE F_ULTINVIO
 BEGIN
-  PROMPT 42 16 "Data ultimo invio       "
+  PROMPT 42 18 "Data ultimo invio "
-	FIELD TSULTINV
+	FIELD IPULTINV
+	FLAGS "D"
+END
+
+NUMBER F_ULTSCADID 10
+BEGIN
+  PROMPT 62 18 "Ultimo ID scadenze "
+	FIELD IPULTSCADID
 	FLAGS "D"
 END
 

tc/tc2500.cpp

@@ -5,7 +5,6 @@
 
 class TTeamSystem_multirel_app : public TMultirel_application
 {
-  bool _use_tab;
 
 protected:
 	virtual void set_descr(TMask & m, const TString & desc);
@@ -20,7 +19,7 @@ protected:
 
 public:
   
-	TTeamSystem_multirel_app() : _use_tab(true) {}
+	TTeamSystem_multirel_app() {}
   virtual ~TTeamSystem_multirel_app() {}
 };
 
@@ -32,7 +31,7 @@ void TTeamSystem_multirel_app::set_descr(TMask & m, const TString & desc)
 void TTeamSystem_multirel_app::get_mask_name(TString& tabname) const
 {
 	TMultirel_application::get_mask_name(tabname);
-	tabname.overwrite("ts", 2);
+	tabname.overwrite("ip", 2);
 }
 
 void  TTeamSystem_multirel_app::init_query_mode(TMask& m)
@@ -40,15 +39,15 @@ 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);
+	m.enable(-3);
 }
 
 void  TTeamSystem_multirel_app::init_query_insert_mode(TMask& m)
 {
 	TMultirel_application::init_query_insert_mode(m);
-	m.show(-1, !_use_tab);
+	m.hide(-1);
-	m.show(-2, _use_tab);
+	m.show(-2);
-	m.enable(-3, _use_tab);
+	m.enable(-3);
 }
 
 void  TTeamSystem_multirel_app::init_modify_mode(TMask& m)
@@ -76,11 +75,8 @@ bool TTeamSystem_multirel_app::user_create()
 	if (ok)
 	{
 		TConfig config(CONFIG_DITTA);
-		_use_tab = config.get_bool("TSUSECMTAB");
 		TMask & m = *get_mask();
 
-		m.show(-10, _use_tab);
-		m.show(-20, !_use_tab);
 		set_search_field(F_CODTAB);
 	}
 	return ok;

tc/tc2700.h

@@ -1,5 +1,11 @@
 #include <automask.h>
-#include "tc2701.h"
+#include <applicat.h>
+#include <recarray.h>
+#include <relation.h>
+#include <reprint.h>
+#include <reputils.h>
+#include <textset.h>
+#include "../cg/cg2103.h"
 
 ///////////////////////////////////////////////////////////
 // TIP_mask
@@ -23,41 +29,164 @@ public:
 };
 
 ///////////////////////////////////////////////////////////
-// TIP_campo_sender
+// TCausali_cache
 ///////////////////////////////////////////////////////////
 
-class TIP_campo_sender : public TIP_sender
+class TCausali_cache : public TCache
+{
+protected:
+  virtual TObject* key2obj(const char* key);
+
+public:
+  const TCausale& causale(const char* codice, int annoiva);
+};
+
+///////////////////////////////////////////////////////////
+// TRiclassifica_cache
+///////////////////////////////////////////////////////////
+
+class TIPRiclassifica_cache : public TCache
+{
+	TLocalisamfile _multirel;
+protected:
+  virtual TObject* key2obj(const char* key);
+public:
+	const char * sdecode(const char* tab, const TString& cod);
+	long decode(const char* tab, const TString& cod);
+	TIPRiclassifica_cache() : _multirel(LF_MULTIREL) { _multirel.setkey(2);}
+};
+
+///////////////////////////////////////////////////////////
+// TIP_sender
+///////////////////////////////////////////////////////////
+const long TSbill2ricl(char & t, int gr, int co, long so);
+
+///////////////////////////////////////////////////////////
+// TIP_sender
+///////////////////////////////////////////////////////////
+class TIP_textset : public TCSV_recordset
+{
+
+	TAssoc_array _colnames;
+
+protected:
+  void add_field(const char* name = "Filler", int len = 0, const char * tipo = "C");
+
+public:
+  virtual bool destroy(TRecnotype r);
+  virtual bool set(const char* field, const TVariant& v);
+  void set(const char* field, const TString & str) { set(field, TVariant(str)); }
+  void set(const char* field, const int n)    { set(field, TVariant((long)n)); }
+  void set(const char* field, const char* s)  { set(field, TVariant(s)); }
+  void set(const char* field, const TDate& d) { set(field, TVariant(d)); }
+  void set(const char* field, const real& v)  { set(field, TVariant(v)); }
+	int find_column(const char * name);
+  
+	TIP_textset(const char* query = "") : TCSV_recordset(TString("CSV(\"\t\")\n") << query) {}
+};
+
+class TIP_clienti_textset : public TIP_textset
+{
+	public:
+		TIP_clienti_textset(const char* query = "");
+};
+
+class TIP_fornitori_textset : public TIP_textset
+{
+	public:
+		TIP_fornitori_textset(const char* query = "");
+};
+
+class TIP_movimenti_textset : public TIP_textset
+{
+	public:
+		TIP_movimenti_textset(const char* query = "");
+};
+
+class TIP_scadenze_textset : public TIP_textset
+{
+	public:
+		TIP_scadenze_textset(const char* query = "");
+};
+
+class TIP_cespiti_textset : public TIP_textset
+{
+	public:
+		TIP_cespiti_textset(const char* query = "");
+};
+
+class TIP_categorie_textset : public TIP_textset
+{
+	public:
+		TIP_categorie_textset(const char* query = "");
+};
+
+class TIP_intra_textset : public TIP_textset
+{
+	public:
+		TIP_intra_textset(const char* query = "");
+};
+
+class TIP_sender : public TSkeleton_application
 {
 	TIP_mask * _mask;
 	TAssoc_array _caus_regolarizzazione;
+	TIPRiclassifica_cache* _tabelle;
+	TCausali_cache * _causali;
+	TAssoc_array	 _riclassifica;
+  bool _errors_logged;
+  bool _errors;
+  TLog_report*	 _log;
+	TReport_book * _book;
+	TRecord_cache * _part;
+	long _ultscadid;
 
-protected:
+	bool test_swap(const TRecordset& mov);
-	virtual TRecordset & movrecset();
+	bool mov_regolarizzazione(const TRecordset& mov);
-	virtual TRecordset & rmovrecset(const TRecordset & mov);
+	bool mov_intra(const TRecordset& mov);
-	virtual TRecordset & rivarecset(const TRecordset & mov);
+	bool mov_reverse_charge(const TRecordset& mov);
-	virtual const TRecordset & clirecset(const char tipocf, const long codcf);
+	const TString & scod2ricl(const char* tab, const TString& cod);
-	virtual TMask & get_mask();
+	const TString & scod2ricl(const char* tab, const TVariant& cod);
-	virtual const char * mask_name() const {return "tc0700a"; }
+	const long cod2ricl(const char* tab, const TString& cod);
+  const long cod2ricl(const char* tab, const TVariant& cod);
+	const long bill2ricl(char t, int gr, int co, long so);
+
+	const TString & pag2tipo(const TVariant & codpag);
+	const TString & row2cauriga(TISAM_recordset& rmov, const TCausale & caus);
+	void get_pref(const TVariant & pref, TVariant & pint, TVariant & pnaz);
+	const real ind2perc(const TVariant & tipodet);
+	void add_cli(TISAM_recordset & cli, TIP_clienti_textset & ipcli);
+	void add_forn(TISAM_recordset & forn, TIP_fornitori_textset & ipforn);
+	void add_mov_cg(TISAM_recordset & mov, TIP_movimenti_textset & ipmov, const TVariant & reg_regol, const TVariant & prot_regol, const char tipo = ' ');
+	void add_mov_iva(TISAM_recordset & mov, TIP_movimenti_textset & ipmov, const TVariant & reg_regol, const TVariant & prot_regol);
+	void add_mov(TISAM_recordset & mov, TIP_movimenti_textset & ipmov);
+	void add_scad(TISAM_recordset & mov, TIP_scadenze_textset & ipscad);
+	void add_intra(TISAM_recordset & mov, TIP_intra_textset & ipintra);
+	void transfer_cli(const char * path);
+	void transfer_forn(const char * path);
+	void transfer_mov(const char * path);
+	void transfer_scad(const char * path);
+	void transfer_cesp(const char * path);
+	void transfer_cat(const char * path);
+	void transfer_intra(const char * path);
 
 protected:
 	virtual bool find_regolarizzazione(TRecordset& mov);
-	virtual const char * decode_causale(const TRecordset& mov);
+	virtual TMask & get_mask();
-	virtual bool test_swap(const TRecordset& mov);
-	virtual bool swap_ritsoc(const TRecordset& mov);
-	virtual bool mov_regolarizzazione(const TRecordset& mov);
-	virtual bool mov_intra(const TRecordset& mov);
-	virtual bool mov_reverse_charge(const TRecordset& mov);
-	virtual long iva11_reverse(const TRecordset & mov);
-	virtual bool regime_agricolo(const TRecordset& mov) const;
-
 
 public:
+	virtual bool multi_activity() const { return true; }
+	TAssoc_array & riclassifica() {return _riclassifica;}
+	
 	virtual void postprocess_movs(TRecordset & mov);
+	virtual void set_parameters();
+
+// qui
+  void log(int sev, const char* msg);
+
 	virtual bool create();
+  virtual void main_loop();
 	virtual bool destroy();
 
-  TIP_campo_sender() : TIP_sender(), _mask(NULL) {}
+  TIP_sender() : _tabelle(NULL) {}
-	~TIP_campo_sender() {}
 };
-
-

tc/tc2700a.h

@@ -2,9 +2,13 @@
 
 #define F_CODDITTA      101
 #define F_RAGSOC        102
-#define F_MOVIMENTI     103
+#define F_CLIENTI       103
-#define F_INTRASTAT     104
+#define F_FORNITORI     104
-#define F_PATH			    105
+#define F_MOVIMENTI     106
-#define F_FILE					106
+#define F_SCADENZE			107
-#define F_DATA_DA       107
+#define F_CESPITI       108
-#define F_DATA_AL       108
+#define F_CATEGORIE			109
+#define F_INTRASTAT     110
+#define F_PATH			    111
+#define F_DATA_DA       112
+#define F_DATA_AL       113

tc/tc2700a.uml

@@ -36,44 +36,64 @@ BEGIN
   FLAGS "D"
 END
 
-GROUPBOX DLG_NULL 76 4
+GROUPBOX DLG_NULL 76 5
 BEGIN
-  PROMPT 2 4 "Dati da inviare"
+  PROMPT 2 5 "Dati da inviare"
+END
+
+BOOLEAN F_CLIENTI
+BEGIN
+  PROMPT 3 6 "Clienti"
+END
+
+BOOLEAN F_FORNITORI
+BEGIN
+  PROMPT 3 7 "Fornitori"
 END
 
 BOOLEAN F_MOVIMENTI
 BEGIN
-  PROMPT 3 5 "Movimenti contabili"
+  PROMPT 3 8 "Movimenti contabili"
+END
+
+BOOLEAN F_SCADENZE
+BEGIN
+  PROMPT 25 6 "Scadenze"
+END
+
+BOOLEAN F_CESPITI
+BEGIN
+  PROMPT 25 7 "Cespiti"
+  FLAGS "D"
+END
+
+BOOLEAN F_CATEGORIE
+BEGIN
+  PROMPT 25 8 "Categorie"
+  FLAGS "D"
 END
 
 BOOLEAN F_INTRASTAT
 BEGIN
-  PROMPT 3 6 "Intrastat"
+  PROMPT 50 6 "Intrastat"
 END
 
 STRING F_PATH 256 39
 BEGIN
-  PROMPT 2 8 "Cartella "
+  PROMPT 2 11 "Cartella "
   DSELECT
   CHECKTYPE REQUIRED
   FIELD TSDestPath
 END
 
-STRING F_FILE 18
-BEGIN
-  PROMPT 54 8 "File "
-  FIELD TSDestFile
-END
-
-
 DATE F_DATA_DA
 BEGIN
-  PROMPT 2 10 "Data iniz. "
+  PROMPT 2 13 "Data iniz. "
 END
 
 DATE F_DATA_AL
 BEGIN
-  PROMPT 30 10 "Data fin. "
+  PROMPT 30 13 "Data fin. "
 END
 
 

tc/tc2701.h

@@ -1,114 +0,0 @@
-#include <applicat.h>
-#include <recarray.h>
-#include <relation.h>
-#include <reputils.h>
-#include <textset.h>
-
-///////////////////////////////////////////////////////////
-// TRiclassifica_cache
-///////////////////////////////////////////////////////////
-
-class TIPRiclassifica_cache : public TCache
-{
-	TLocalisamfile _multirel;
-protected:
-  virtual TObject* key2obj(const char* key);
-public:
-	const char * sdecode(const char* tab, const TString& cod);
-	long decode(const char* tab, const TString& cod);
-	TIPRiclassifica_cache() : _multirel(LF_MULTIREL) { _multirel.setkey(2);}
-};
-
-///////////////////////////////////////////////////////////
-// TIP_sender
-///////////////////////////////////////////////////////////
-const long TSbill2ricl(char & t, int gr, int co, long so);
-
-///////////////////////////////////////////////////////////
-// TIP_sender
-///////////////////////////////////////////////////////////
-class TIP_textset;
-
-class TIP_sender : public TSkeleton_application
-{
-	TIPRiclassifica_cache* _tabelle;
-	TAssoc_array	 _riclassifica;
-  TIP_textset*	 _tsfile;
-  TLog_report*	 _log;
-  bool _errors_logged;
-	TString8 _dittamulti;
-	TAssoc_array _dittemulti;
-	long _empty_caus;
-	TArray _recsets;
-	TAssoc_array _iva;
-	TAssoc_array _contiiva;
-	TAssoc_array _contirit;
-	bool _professionista;
-	bool _ventilazione;
-	real _rit_acc;
-
-protected:
-	TRecordset * get_recset(const int logicnum) const { return (TRecordset *) _recsets.objptr(logicnum);}
-	TRecordset * set_recset(const int logicnum, TRecordset * r) { _recsets.add(r, logicnum); return r;}
-	TArray & recsets() { return _recsets;}
-	const TString & descr2agg(const char* d);
-  bool new_rec(const char* t);
-	void remove_last();
-  void set(const char* field, const TVariant& var);
-  void set(const char* field, const TString & str) { set(field, TVariant(str)); }
-  void set(const char* field, const int n)    { set(field, TVariant((long)n)); }
-  void set(const char* field, const char* s)  { set(field, TVariant(s)); }
-  void set(const char* field, const TDate& d) { set(field, TVariant(d)); }
-  void set(const char* field, const real& v)  { set(field, TVariant(v)); }
-
-  const TVariant& get(const char* field);
-  void add_mov(TRecordset& mov);
-  void add_clifor(char tipocf, long codcf);
-  void add_header(const TRecordset& mov, const bool fullhead = true);
-  void add_datiiva(const TRecordset& mov);
-	void add_tot_fattura(const TRecordset& mov);
-	void add_conti_ricavo_costo(const TRecordset& mov);
-	void add_new_rec(const TRecordset& mov);
-	void add_diversi(const TRecordset& mov, const bool moviva);
-	void add_ratei_risconti(const TRecordset& mov);
-	void add_ulteriori(TRecordset& mov);
-	bool add_regol(TRecordset& mov, bool rec_to_add);
-	bool add_optional_rec(TRecordset& mov, bool rec_to_add);
-	const TString & scod2ricl(const char* tab, const TString& cod);
-	const TString & scod2ricl(const char* tab, const TVariant& cod);
-	const long cod2ricl(const char* tab, const TString& cod);
-  const long cod2ricl(const char* tab, const TVariant& cod);
-	const long bill2ricl(char & t, int gr, int co, long so, const bool header_cli = true);
-
-	virtual void get_citta_provincia(const TRecordset& cli, TString & dencom, TString & provcom, bool nascita = false);
-	virtual const char * decode_causale(const TRecordset& mov) { return EMPTY_STRING; }
-	virtual bool test_swap(const TRecordset& mov) { return false;}
-	virtual bool swap_ritsoc(const TRecordset& mov) { return false;}
-	virtual bool mov_regolarizzazione(const TRecordset& mov) { return false;}
-	virtual bool mov_intra(const TRecordset& mov) { return false;}
-	virtual bool mov_reverse_charge(const TRecordset& mov) { return false;}
-	virtual long iva11_reverse(const TRecordset & mov) { return 0L;}
-	bool add_iva_to_mov(const TRecordset& mov) { return mov_intra(mov) || mov_reverse_charge(mov);}
-
-protected:
-	virtual bool find_regolarizzazione(TRecordset& mov) {return false;}
-	virtual TRecordset & movrecset()	pure;
-	virtual TRecordset & rmovrecset(const TRecordset & mov) pure;
-	virtual TRecordset & rivarecset(const TRecordset & mov) pure;
-	virtual const TRecordset & clirecset(const char tipocf, const long codcf) pure;
-	virtual bool regime_agricolo(const TRecordset& mov) const { return false; }
-	virtual TMask & get_mask() pure ;
-
-public:
-  void log(int sev, const char* msg);
-	virtual bool multi_activity() const { return true; }
-	virtual const TString & dittamulti(const TRecordset& mov) const ;
-	TAssoc_array & riclassifica() {return _riclassifica;}
-	
-	virtual void postprocess_movs(TRecordset & mov) {}
-	virtual void set_parameters();
-	virtual bool create();
-  virtual void main_loop();
-	virtual bool destroy();
-  TIP_sender() : _tabelle(NULL), _tsfile(NULL), _log(NULL) {}
-};

tc/tc2800a.uml

@@ -1,4 +1,4 @@
-#include "tc0800a.h"
+#include "tc2800a.h"
 
 TOOLBAR "topbar" 0 0 0 2
 #include <relapbar.h>
@@ -94,7 +94,7 @@ BEGIN
   WARNING "Manca il conto"
 END
 
-NUMBER F_CONTO 12
+NUMBER F_CONTO 3
 BEGIN
   PROMPT 2 4 "Conto      "
   HELP "Codice dell'eventuale conto"
@@ -200,6 +200,7 @@ BEGIN
   OUTPUT F_IPCONTO CODTAB
   OUTPUT F_IPDESCR S0
   FIELD CODICE
+  ADD RUN "TC2 -0"
 END
 
 STRING F_IPDESCR 50
@@ -211,6 +212,7 @@ BEGIN
   DISPLAY "Conto IPSOA" CODTAB
   COPY OUTPUT F_IPCONTO
   CHECKTYPE SEARCH
+	ADD RUN "TC2 -0"
 END
 
 ENDPAGE

tc/tcipcau.uml

@@ -20,7 +20,7 @@ BEGIN
   KEY 1
 END
 
-NUMBER F_CODTAB 3
+STRING F_CODTAB 3
 BEGIN
   PROMPT 2 2 ""
   USE LF_MULTIREL
@@ -34,7 +34,6 @@ BEGIN
   DISPLAY "Descrizione@50" &ICA->S0
   OUTPUT F_CODTAB FIRST
   OUTPUT F_CODTAB1 FIRST
-  OUTPUT F_COD_CAMPO DATA
   FIELD FIRST
   FLAGS "UZG"  
 	KEY 1
@@ -42,12 +41,12 @@ BEGIN
 	CHECKTYPE REQUIRED
 END
 
-NUMBER F_CODTAB1 3
+STRING F_CODTAB1 3
 BEGIN
   PROMPT 2 2 ""
   USE LF_CAUSALI
   JOIN LF_MULTIREL INTO COD=="IPCAU" FIRST==CODCAUS
-  JOIN &TCA TO LF_MULTIREL INTO CODTAB==DATA
+  JOIN &ICA TO LF_MULTIREL INTO CODTAB==DATA
   INPUT CODCAUS F_CODTAB1
   DISPLAY "Cod." CODCAUS
   DISPLAY "Descrizione@50" DESCR
@@ -74,7 +73,7 @@ BEGIN
   PROMPT 10 2 "Descrizione "
   USE LF_CAUSALI KEY 2
   JOIN LF_MULTIREL INTO COD=="TSCAU" FIRST==CODCAUS
-  JOIN &TCA TO LF_MULTIREL INTO CODTAB==DATA
+  JOIN &ICA TO LF_MULTIREL INTO CODTAB==DATA
   INPUT DESCR F_DESC
   DISPLAY "Descrizione@60" DESCR
   DISPLAY "Codice" CODCAUS
@@ -86,7 +85,7 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
-NUMBER F_COD_CAMPO 4
+STRING F_COD_CAMPO 4
 BEGIN
   PROMPT 2 4 "Causale IPSOA     "
   FIELD DATA
@@ -97,7 +96,7 @@ BEGIN
   OUTPUT F_COD_CAMPO CODTAB
   OUTPUT F_DESC1 S0
   CHECKTYPE REQUIRED
-  FLAGS "Z"
+  FLAGS "ZU"
 END
 
 STRING F_DESC1 50 45

tc/tcipcdp.uml

@@ -81,7 +81,7 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
-NUMBER F_COD_CAMPO 4
+NUMBER F_COD_CAMPO 3
 BEGIN
   PROMPT 2 4 "Pagamento IPSOA "
   FIELD DATA

tc/tcipicc.uml

@@ -0,0 +1,110 @@
+#include "tcts.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Condizioni di consegna" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 1 "Condizioni di consegna Campo"
+END
+
+LIST F_COD 5
+BEGIN
+  PROMPT 50 50 ""
+  ITEM "IPICC|IPICC"
+  FIELD COD
+  FLAGS "D"
+  KEY 1
+END
+
+STRING F_CODTAB 3
+BEGIN
+  PROMPT 2 2 ""
+  USE LF_MULTIREL
+  JOIN %ICC INTO CODTAB==FIRST
+  JOIN &IIC ALIAS 100 INTO CODTAB==DATA
+  INPUT COD F_COD SELECT
+  INPUT FIRST F_CODTAB
+  DISPLAY "Codice" FIRST
+  DISPLAY "Descrizione@60" %ICC->S0
+  DISPLAY "Condizione di consegna IPSOA" DATA
+  DISPLAY "Descrizione@50" 100@->S0
+  OUTPUT F_CODTAB FIRST
+  OUTPUT F_CODTAB1 FIRST
+  OUTPUT F_COD_CAMPO DATA
+  FIELD FIRST
+  FLAGS "UZG"  
+	KEY 1
+	GROUP 1
+	CHECKTYPE REQUIRED
+END
+
+STRING F_CODTAB1 3
+BEGIN
+  PROMPT 2 2 ""
+  USE %ICC
+  JOIN LF_MULTIREL INTO COD=="IPICC" FIRST==CODTAB
+  JOIN &IIC TO LF_MULTIREL INTO CODTAB==DATA
+  INPUT CODTAB F_CODTAB1
+  DISPLAY "Cod." CODTAB
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Causale IPSOA" LF_MULTIREL->DATA
+  DISPLAY "Descrizione@50" &IIC->S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_CODTAB1 CODTAB
+  OUTPUT F_DESC %ICC->S0
+	KEY 1
+  FIELD FIRST
+  FLAGS "UZ"
+	CHECKTYPE REQUIRED
+	GROUP 2
+END
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 10 2 "Descrizione "
+  USE %ICC KEY 2
+  JOIN LF_MULTIREL INTO COD=="TSICC" FIRST==CODTAB
+  JOIN &IIC TO LF_MULTIREL INTO CODTAB==DATA
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Causale IPSOA" LF_MULTIREL->DATA
+  DISPLAY "Descrizione@50" &IIC->S0
+  COPY OUTPUT F_CODTAB1
+  KEY 2
+  GROUP 3
+  CHECKTYPE REQUIRED
+END
+
+STRING F_COD_CAMPO 1
+BEGIN
+  PROMPT 2 4 "C.consegna IPSOA  "
+  USE &IIC
+  FLAGS "U"
+  FIELD DATA
+  INPUT CODTAB F_COD_CAMPO
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_COD_CAMPO CODTAB
+  OUTPUT F_DESC1 S0
+  CHECKTYPE REQUIRED
+  FLAGS "U"
+END
+
+STRING F_DESC1 50 45
+BEGIN
+  PROMPT 27 4 ""
+  USE &IIC KEY 2
+  INPUT S0 F_DESC1
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_COD_CAMPO
+END
+
+ENDPAGE
+
+ENDMASK

tc/tcipnaz.uml

@@ -79,12 +79,12 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
-NUMBER F_COD_CAMPO 4
+STRING F_COD_CAMPO 4
 BEGIN
   PROMPT 2 4 "Nazione IPSOA "
   FIELD DATA
-  FLAGS "Z"
+  FLAGS "U"
-  USE &TNA
+  USE &INA
   INPUT CODTAB F_COD_CAMPO
   DISPLAY "Cod." CODTAB
   DISPLAY "Descrizione@50" S0

tc/tcipreg.uml

@@ -92,7 +92,9 @@ BEGIN
   INPUT CODTAB F_COD_CAMPO
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
+  OUTPUT F_COD_CAMPO CODTAB
   OUTPUT F_DESC1 S0
+  FLAGS "Z"
   CHECKTYPE REQUIRED
 END
 

tc/tcmenu.men

@@ -5,11 +5,12 @@ Module  = 27
 Flags   = ""
 Item_01 = "TeamSystem", [TCMENU_002]
 Item_02 = "Zucchetti", [TCMENU_006]
-Item_03 = "Proforma", "tc9 -0", ""
+Item_03 = "IPSOA", [TCMENU_010]
-Item_04 = "Sispac", "tc9 -2", ""
+Item_04 = "Proforma", "tc9 -0", ""
-Item_05 = "Tabella IVA Sispac", "tc9 -3 IVA", ""
+Item_05 = "Sispac", "tc9 -2", ""
-Item_06 = "Tabella causali Sispac", "tc9 -3 CAU", ""
+Item_06 = "Tabella IVA Sispac", "tc9 -3 IVA", ""
-Item_07 = "Semetra", "tc8 -0", ""
+Item_07 = "Tabella causali Sispac", "tc9 -3 CAU", ""
+Item_08 = "Semetra", "tc8 -0", ""
 
 [TCMENU_002]
 Caption = "TeamSystem"
@@ -101,7 +102,7 @@ Module  = 27
 Flags   = ""
 Item_01 = "Trasferimento", "tc2 -6", ""
 Item_02 = "Tabelle di riclassificazione", [TCMENU_011]
-Item_03 = "Tabelle TeamSystem", [TCMENU_012]
+Item_03 = "Tabelle IPSOA", [TCMENU_012]
 Item_04 = "Configurazione modulo", [TCMENU_013]
 
 [TCMENU_011]
@@ -116,7 +117,8 @@ Item_04 = "Registri", "tc2 -4 REG", ""
 Item_05 = "Codici IVA", "tc2 -4 IVA", ""
 Item_06 = "Valute", "tc2 -4 VAL", ""
 Item_07 = "Attività", "tc2 -4 ATT", ""
-Item_08 = "Piano dei conti", "tc2 -7", ""
+Item_08 = "Condizioni di consegna", "tc2 -4 ICC", ""
+Item_09 = "Piano dei conti", "tc2 -7", ""
 
 [TCMENU_012]
 Caption = "Tabelle IPSOA"
@@ -131,6 +133,7 @@ Item_05 = "Codici IVA", "tc2 -0 &IIV", ""
 Item_06 = "Valute", "tc2 -0 &IVL", ""
 Item_07 = "Attività", "tc2 -0 &IAT", ""
 Item_08 = "Piano dei conti", "tc2 -0 &ICO", ""
+Item_09 = "Condizioni di consegna", "tc2 -0 &IIC", ""
 
 [TCMENU_013]
 Caption = "Configurazione modulo"

tc/tctbica.uml

@@ -11,7 +11,7 @@ BEGIN
   PROMPT 1 1 "Codice Causale IPSOA"
 END
 
-NUMBER F_CODTAB 4
+STRING F_CODTAB 4
 BEGIN
   PROMPT 2 2 "Codice      "
   USE &ICA
@@ -22,8 +22,7 @@ BEGIN
   OUTPUT F_DESC S0
 	CHECKTYPE REQUIRED
   FIELD CODTAB
-  FLAGS "Z"
+  FLAGS "ZU"
-  VALIDATE FIXLEN_FUNC 4
   KEY 1
 END
 

tc/tctbiic.h

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

tc/tctbiic.uml

@@ -0,0 +1,45 @@
+#include "tctbiic.h"
+
+TOOLBAR "topbar" 0 0 0 2
+#include <relapbar.h>
+ENDPAGE
+
+PAGE "Condizioni di consegna" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 1 1 "Condizione di consegna IPSOA"
+END
+
+STRING F_CODTAB 1
+BEGIN
+  PROMPT 2 2 "Codice "
+  USE &IIC
+  INPUT CODTAB F_CODTAB
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@60" S0
+  OUTPUT F_CODTAB CODTAB
+  OUTPUT F_DESC S0
+	CHECKTYPE REQUIRED
+  FLAGS "U"
+  FIELD CODTAB
+  KEY 1
+END
+
+
+STRING F_DESC 50
+BEGIN
+  PROMPT 2 5 "Descrizione           "
+  USE &IIC KEY 2
+  INPUT S0 F_DESC
+  DISPLAY "Descrizione@60" S0
+  DISPLAY "Codice" CODTAB
+  COPY OUTPUT F_CODTAB
+  FIELD S0
+  KEY 2
+  CHECKTYPE NORMMAL
+END
+
+ENDPAGE
+
+ENDMASK

tc/tctbina.uml

@@ -11,7 +11,7 @@ BEGIN
   PROMPT 1 1 "Codice Nazione IPSOA"
 END
 
-NUMBER F_CODTAB 4
+STRING F_CODTAB 4
 BEGIN
   PROMPT 2 2 "Codice      "
   USE &INA
@@ -22,7 +22,7 @@ BEGIN
   OUTPUT F_DESC S0
 	CHECKTYPE REQUIRED
   FIELD CODTAB
-  FLAGS "Z"
+  FLAGS "ZU"
   KEY 1
 END
 

tc/tctbire.uml

@@ -23,6 +23,7 @@ BEGIN
 	CHECKTYPE REQUIRED
   FIELD CODTAB
   VALIDATE FIXLEN_FUNC 2
+  FLAGS "Z"
   KEY 1
 END
 

tc/tctbivl.uml

@@ -22,6 +22,7 @@ BEGIN
   OUTPUT F_DESC S0
   CHECKTYPE REQUIRED
   FIELD CODTAB
+  FLAGS "U"
   VALIDATE FIXLEN_FUNC 3
   KEY 1
 END

tc/tctscau.uml

@@ -20,7 +20,7 @@ BEGIN
   KEY 1
 END
 
-NUMBER F_CODTAB 3
+STRING F_CODTAB 3
 BEGIN
   PROMPT 2 2 ""
   USE LF_MULTIREL
@@ -42,7 +42,7 @@ BEGIN
 	CHECKTYPE REQUIRED
 END
 
-NUMBER F_CODTAB1 3
+STRING F_CODTAB1 3
 BEGIN
   PROMPT 2 2 ""
   USE LF_CAUSALI