Patch level : 10.0 582

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

Trasferimento a Zucchetti


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

tc/tc1100.cpp

@@ -125,6 +125,7 @@ class TInvio : public TSkeleton_application
   TString16					 _descrdettaglio;
   TDate							 _dataini, _datafin;
   bool							 _totale, _finemov;
+	bool							 _trcau, _trcon, _triva, _trban;
   
 protected:
   virtual bool create(void);
@@ -150,6 +151,10 @@ public:
 	TRecord_cache& conti() {return *_conti;}
 	TRiclassifica_cache & tabelle() {	return * _tabelle;}
 	void log(int sev, const char* msg);
+	bool trcau() const { return _trcau; }
+	bool triva() const { return _triva; }
+	bool trcon() const { return _trcon; }
+	bool trban() const { return _trban; }
 
   TInvio() {} ;
   virtual ~TInvio() {} ;
@@ -203,7 +208,9 @@ const TString& TInvio_file::bill2ricl(const char t, int gr, int co, long so)
 
 	if (gr > 0&& co >0 && so > 0)
 	{
-		if (t <= ' ')
+		if (t > ' ' || !app().trcon())
+			codricl.format("%d",so);
+		else
 		{
 			TToken_string cod("ZUCONTI");
 			cod.add(gr);
@@ -225,8 +232,6 @@ const TString& TInvio_file::bill2ricl(const char t, int gr, int co, long so)
 				app().log(2, msg);
 			}
 		}
-		else
-			codricl.format("%d",so);
 	}
 	return codricl;
 }
@@ -278,18 +283,37 @@ void TInvio_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TSt
   }
   else if (code == "_CAUSALE")
   {
+		const TRectype & mov = cur.curr(LF_MOV);
+		const bool prima_nota = mov.get(MOV_REG).blank();
+
+		if (prima_nota && valore.blank())
+			valore = "999";
+		else
+		{
+			if (app().trcau())
 				valore = app().tabelle().sdecode("ZUCAU", str);
+			else
+			{
 				if (valore.blank())
+				{
+					if (!prima_nota)
 						valore = str;
+					else
+						valore = "999";
+				}
+			}
+		}
   } 
   else if (code == "_IVA" || code == "_NORMA")
   {
+		if (app().triva())
 			valore = app().tabelle().sdecode("ZUIVA", str);
 		if (code == "_NORMA")
 		{
-			valore = cache().get("&ZIV", str, "S7");
 			if (valore.blank())
 				valore = str.mid(2);
+			else
+				valore = cache().get("&ZIV", str, "S7");
 		}
 		else
 			if (valore.blank())
@@ -297,6 +321,7 @@ void TInvio_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TSt
   } 
   else if (code == "_BANCA")
 	{
+		if (app().trban())
 			valore = app().tabelle().sdecode("ZUBAN", str);
 		if (valore.blank())
 		{
@@ -750,6 +775,10 @@ void TInvio::invio_zucchetti()
 	_trasfile = new TInvio_file(filename);
 	_trasfile->open(filename,'w');
   _log = new TLog_report("Trasferimento Zucchetti");
+	_trcau = _msk->get_bool(F_TRCAU);
+	_triva = _msk->get_bool(F_TRIVA);
+	_trcon = _msk->get_bool(F_TRCON);
+	_trban = _msk->get_bool(F_TRBAN);
 
 	i_zucchetti_testa();
 
@@ -815,7 +844,6 @@ void TInvio::main_loop()
   	configfile.set("NUMEROINVIO", _msk->get(F_NUMEROINVIO),"OPZIONI");
   	configfile.set("DATA", _msk->get_date(F_DATAFIN),"OPZIONI");
   	configfile.set("PERCORSO", _msk->get(F_DESTINAZIONE),"OPZIONI");
-  	configfile.set_paragraph("CAUSALI");
   	_dataini = _msk->get_date(F_DATAINI);
   	_datafin = _msk->get_date(F_DATAFIN);
 		const char tipoinvio = _msk->get(F_TIPOINVIO)[0];

tc/tc1100a.h

@@ -16,3 +16,7 @@
 #define F_DATAFIN       124
 #define F_RIPRISTINA    125
 #define F_DATARIPRISTINO 126
+#define F_TRCAU					127
+#define F_TRCON					128
+#define F_TRIVA					129
+#define F_TRBAN					130

tc/tc1100a.uml

@@ -13,6 +13,16 @@ END
 
 ENDPAGE
 
+TOOLBAR "" 0 -2 0 2
+
+STRING DLG_PROFILE 50
+BEGIN
+  PROMPT 9 0 "Profilo "
+  PSELECT
+END
+
+ENDPAGE
+
 PAGE "Invio dati contabilita' a Zucchetti" 0 2 0 0
 
 GROUPBOX DLG_NULL 76 3
@@ -91,30 +101,50 @@ BEGIN
   PROMPT 2 11 "Destinazione "
 END
 
+BOOLEAN F_TRCAU
+BEGIN
+  PROMPT 2 12 "Trascodifica causali"
+END
+
+BOOLEAN F_TRCON
+BEGIN
+  PROMPT 2 13 "Trascodifica conti"
+END
+
+BOOLEAN F_TRIVA
+BEGIN
+  PROMPT 2 14 "Trascodifica codici IVA"
+END
+
+BOOLEAN F_TRBAN
+BEGIN
+  PROMPT 2 15 "Trascodifica banche"
+END
+
 NUMBER F_NUMEROINVIO 2
 BEGIN
-  PROMPT 2 12 "Numero invio "
+  PROMPT 2 16 "Numero invio "
 END
 
 DATE F_DATAINI
 BEGIN
-  PROMPT 20 12 "Data iniz. "
+  PROMPT 20 16 "Data iniz. "
 END
 
 DATE F_DATAFIN
 BEGIN
-  PROMPT 44 12 "Data fin. "
+  PROMPT 44 16 "Data fin. "
 END
 
 BUTTON F_RIPRISTINA 20
 BEGIN
-  PROMPT 2 14 "Annulla invio"
+  PROMPT 2 18 "Annulla invio"
   MESSAGE SHOW,F_DATARIPRISTINO|ENABLE,F_DATARIPRISTINO
 END
 
 DATE F_DATARIPRISTINO
 BEGIN
-  PROMPT 25 14 "Annulla invio fino al "
+  PROMPT 25 18 "Annulla invio fino al "
   FLAGS "HD"
 END
 

tc/tctabmod.txt

@@ -1407,6 +1407,18 @@ TC||TIV|900
 TC||TIV|904
 TC||TIV|910
 TC||TIV|920
+TC||ZCA|CO|Corrispettivi
+TC||ZCA|CV|Corrispettivi ventilati
+TC||ZCA|ER|Elenco rate PROFESS. Inc./Pag.
+TC||ZCA|FA|Fattura di acquisto
+TC||ZCA|FC|Fattura corrispettivi
+TC||ZCA|FT|Fattura corrispettivi ventilati
+TC||ZCA|FV|Fattura di vendita
+TC||ZCA|GR|Gestione rate
+TC||ZCA|PN|Prima nota
+TC||ZCA|QA|Quadaratura acquisti PROFESS.
+TC||ZCA|QI|Quadaratura e insoluti
+TC||ZCA|SA|Saldaconto
 TC||ZCO|10000|crediti vs soci richiamati
 TC||ZCO|10001|decimi in sofferenza
 TC||ZCO|10100|crediti vs soci da richiamare

tc/tctbzca.uml

@@ -11,7 +11,7 @@ BEGIN
   PROMPT 1 1 "Causale Zucchetti"
 END
 
-NUMBER F_CODTAB 3
+STRING F_CODTAB 3
 BEGIN
   PROMPT 2 2 "Codice      "
   USE &ZCA
@@ -22,7 +22,7 @@ BEGIN
   OUTPUT F_DESC S0
 	CHECKTYPE REQUIRED
   FIELD CODTAB
-  VALIDATE FIXLEN_FUNC 3
+  FLAGS "UZ"
   KEY 1
 END
 

tc/tczucau.uml

@@ -20,7 +20,7 @@ BEGIN
   KEY 1
 END
 
-NUMBER F_CODTAB 3
+STRING F_CODTAB 3
 BEGIN
   PROMPT 2 2 ""
   USE LF_MULTIREL
@@ -65,7 +65,7 @@ END
 
 STRING F_DESC 50
 BEGIN
-  PROMPT 10 2 "Descrizione "
+  PROMPT 15 2 "Descrizione "
   USE LF_CAUSALI KEY 2
   INPUT DESCR F_DESC
   DISPLAY "Descrizione@60" DESCR
@@ -92,19 +92,17 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   OUTPUT F_COD_CORR CODTAB
   OUTPUT F_DESC_CORR S0
-  VALIDATE FIXLEN_FUNC 3
 	CHECKTYPE NORMAL
 END
 
 STRING F_DESC_CORR 50
 BEGIN
-  PROMPT 2 25 ""
+  PROMPT 27 4 ""
   USE &ZCA
   INPUT S0 F_DESC_CORR
   DISPLAY "Descrizione@50" S0
   DISPLAY "Cod." CODTAB
   COPY OUTPUT F_COD_CORR
-	KEY 1
 END
 
 ENDPAGE