Patch level : 10.0 720

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

Invio a Zucchetti
Aggiunti Parametri DittaReso opzionale l'ìinvio dei clienti/fornitori sospesi


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

tc/tc1.cpp

@@ -9,6 +9,7 @@ int main(int argc, char** argv)
   {
 		case	7: tc1800(argc,argv); break;	// riclassificazione conti zucchetti
 		case	6: tc1700(argc,argv); break;	// riclassificazione tabelle
+		case	2: tc1300(argc,argv); break;	// Configurazione Ditta
 		case	1: tc1200(argc,argv); break;	// Tabelle
 		case	0: tc1100(argc,argv); break;	// trasferimento zucchetti
     default: tc1100(argc,argv); break;

tc/tc1.h

@@ -3,6 +3,7 @@
 
 int tc1100(int argc, char** argv);
 int tc1200(int argc, char** argv);
+int tc1300(int argc, char** argv);
 int tc1700(int argc, char** argv);
 int tc1800(int argc, char** argv);
 

tc/tc1100.cpp

@@ -350,12 +350,7 @@ void TInvio_file::validate(TCursor& cur,TRecord_text &rec, TToken_string &s, TSt
   	valore = app().get_descrdettaglio();
   }
   else if (code == "_OPZIONI")
-  {
+		valore = ini_get_string(CONFIG_DITTA, "tc", s.get());
- 		TString in(s.get()); 	
-		TFilename configname = "tc1100conf.ini";
-		TConfig configfile(configname);
- 		valore = configfile.get(in, "OPZIONI");
-  }
   else if (code == "_OGGI")
   {
     TDate data(TODAY);
@@ -790,7 +785,11 @@ long TInvio::i_zucchetti_clifor(const bool invio)
 {
   TRelation rel(LF_CLIFO);
   TCursor cur(&rel);
-  const long cur_items = cur.items();
+
+	if (!ini_get_bool(CONFIG_DITTA, "tc", "ZUCLISOSP"))
+		cur.setfilter("SOSPESO!=\"X\"");
+
+	const long cur_items = cur.items();
   if (cur_items != 0 && invio) 
   {
 		TProgind pi(cur_items, rel.file().description(), true, true);
@@ -819,22 +818,19 @@ long TInvio::i_zucchetti_clifor(const bool invio)
 //metodone globale che chiama, come un menu, i vari sottometodi in base alle scelte sulla maschera
 void TInvio::invio_zucchetti()
 {
-	//prende i parametri dal file di configurazione dell'applicazione
-	TFilename configname = "tc1100conf.ini";
-	TConfig configfile(configname);
 	//prepara il file su cui scrivere, ovvero il _trasfile
-	TFilename filename = _msk->get(F_DESTINAZIONE);
+	TFilename filename = _msk->get(F_PATH);
-	filename.add(configfile.get("NOMEFILE", "OPZIONI"));
+	
+	filename.add(_msk->get(F_FILE));
 	if (filename.exist())
 		remove(filename);
-	
 	_trasfile = new TInvio_file(filename);
 	_trasfile->open(filename,'w');
   _log = new TLog_report("Trasferimento Zucchetti");
-	_trcau = _msk->get_bool(F_TRCAU);
+	_trcau = ini_get_bool(CONFIG_DITTA, "tc", "ZUTRCAU");
-	_triva = _msk->get_bool(F_TRIVA);
+	_triva = ini_get_bool(CONFIG_DITTA, "tc", "ZUTRIVA");
-	_trcon = _msk->get_bool(F_TRCON);
+	_trcon = ini_get_bool(CONFIG_DITTA, "tc", "ZUTRCON");
-	_trban = _msk->get_bool(F_TRBAN);
+	_trban = ini_get_bool(CONFIG_DITTA, "tc", "ZUTRBAN");
 
 	i_zucchetti_testa();
 
@@ -863,6 +859,42 @@ void TInvio::invio_zucchetti()
 	_trasfile = NULL;
 	delete _log;
 	_log = NULL;
+	if (yesno_box("Confermi il trasferimento"))
+	{
+		const TDate from(_msk->get_date(F_DATAINI));
+		const TDate to(_msk->get_date(F_DATAFIN));
+		TString query = "USE MOV KEY 2 SELECT INVIATO!=\"X\"";           
+
+		query << "\nFROM DATAREG=#DATA_DA";      
+		query << "\nTO DATAREG=#DATA_AL";      
+
+		TISAM_recordset mov(query);
+		
+		mov.set_var("#DATA_DA", TVariant(from));
+		mov.set_var("#DATA_AL", TVariant(to));
+
+    if (mov.items() > 0L)
+		{
+			TProgind pi(mov.items(), TR("Conferma trasferimento"), true, true);
+			TLocalisamfile cgmov(LF_MOV);
+		
+			for (bool ok = mov.move_first(); ok; ok = mov.move_next())
+			{
+				if (!pi.addstatus(1))
+					break;
+				const long numreg = mov.get(MOV_NUMREG).as_int();
+
+				cgmov.put(MOV_NUMREG, numreg);
+				if (cgmov.read(_isequal, _lock) == NOERR)
+				{
+					cgmov.put(MOV_INVIATO, "X");
+					cgmov.rewrite();
+				}
+			}
+		}
+		ini_set_int(CONFIG_DITTA, "tc", "ZUNUMEROINVIO", _msk->get_int(F_NUMEROINVIO));
+		ini_set_string(CONFIG_DITTA, "tc", "ZUULTINV", to);
+	}
 }
 
 bool TInvio::create()
@@ -886,25 +918,20 @@ bool TInvio::destroy()
 
 void TInvio::main_loop()
 {
-	TFilename configname = "tc1100conf.ini";
+	_msk->set(F_NUMEROINVIO, ini_get_int(CONFIG_DITTA, "tc", "ZUNUMEROINVIO") + 1);
-	configname.custom_path();
+	_msk->set(F_DATAINI, ini_get_string(CONFIG_DITTA, "tc", "ZUULTINV"));
-	TConfig configfile(configname);
+	_msk->set(F_PATH, ini_get_string(CONFIG_DITTA, "tc", "ZUPATH"));
-	_msk->set(F_NUMEROINVIO, configfile.get_int("NUMEROINVIO","OPZIONI")+1);
+	_msk->set(F_FILE, ini_get_string(CONFIG_DITTA, "tc", "ZUFILE", "im000000"));
-	_msk->set(F_DATAINI, configfile.get("DATA","OPZIONI"));
-	_msk->set(F_DESTINAZIONE, configfile.get("PERCORSO","OPZIONI"));
 
   while (_msk->run() != K_QUIT)
   {                                  
   	_totale = false;
   	_finemov = false;
-  	configfile.set("NUMEROINVIO", _msk->get(F_NUMEROINVIO),"OPZIONI");
+		ini_set_string(CONFIG_DITTA, "tc", "ZUPATH", _msk->get(F_PATH));
-  	configfile.set("DATA", _msk->get_date(F_DATAFIN),"OPZIONI");
+		ini_set_string(CONFIG_DITTA, "tc", "ZUFILE", _msk->get(F_FILE));
-  	configfile.set("PERCORSO", _msk->get(F_DESTINAZIONE),"OPZIONI");
+		_dataini = _msk->get_date(F_DATAINI);
-  	_dataini = _msk->get_date(F_DATAINI);
+		_datafin = _msk->get_date(F_DATAFIN);
-  	_datafin = _msk->get_date(F_DATAFIN);
+		invio_zucchetti();
-		const char tipoinvio = _msk->get(F_TIPOINVIO)[0];
-		if (tipoinvio == 'Z')
-			invio_zucchetti();
 	}	
 }
 

tc/tc1100a.h

@@ -2,21 +2,15 @@
 
 #define F_CODDITTA      101
 #define F_RAGSOC        102
-#define F_CAUSALI       110
+#define F_CAUSALI       103
-#define F_CONTI         111
+#define F_CONTI         104
-#define F_CLIFOR        112
+#define F_CLIFOR        105
-#define F_MOVCONT       113
+#define F_MOVCONT       106
-#define F_MOVIVA        114
+#define F_MOVIVA        107
-#define F_CORRISP       115
+#define F_CORRISP       108
-#define F_SALDACONTO    116
+#define F_SALDACONTO    109
-#define F_TIPOINVIO     120
+#define F_PATH          110
-#define F_DESTINAZIONE  121
+#define F_FILE          111
-#define F_NUMEROINVIO   122
+#define F_NUMEROINVIO   112
-#define F_DATAINI       123
+#define F_DATAINI       113
-#define F_DATAFIN       124
+#define F_DATAFIN       114
-#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.ini

@@ -64,13 +64,13 @@ NAME(3) = CODICE DITTA
 TYPE(3) = NUMERO
 POSITION(3) = 17
 LENGTH(3) = 6
-MESSAGE(3)=_OPZIONI,CODICEDITTA
+MESSAGE(3)=_OPZIONI,ZUDITTA
 
 NAME(4) = NUMERO SPEDIZIONE
 TYPE(4) = NUMERO
 POSITION(4) = 23
 LENGTH(4) = 2
-MESSAGE(4)=_OPZIONI,NUMEROINVIO
+MESSAGE(4)=_OPZIONI,ZUNUMEROINVIO
 
 NAME(5) = DATA SPEDIZIONE
 TYPE(5) = STRINGA

tc/tc1100a.uml

@@ -54,6 +54,7 @@ END
 BOOLEAN F_CAUSALI
 BEGIN
   PROMPT 3 5 "Causali"
+	FIELD CAUSALI
 END
 
 BOOLEAN F_CONTI
@@ -69,19 +70,17 @@ END
 BOOLEAN F_MOVCONT
 BEGIN
   PROMPT 3 8 "Movimenti contabili"
-  MESSAGE TRUE,ENABLE F_DATAFIN
 END
 
 BOOLEAN F_MOVIVA
 BEGIN
   PROMPT 40 5 "Movimenti IVA"
-  MESSAGE TRUE,ENABLE F_DATAFIN
 END
 
 BOOLEAN F_CORRISP
 BEGIN
   PROMPT 40 6 "Corrispettivi"
-  MESSAGE TRUE,ENABLE F_DATAFIN
+  FLAGS "D"
 END
 
 BOOLEAN F_SALDACONTO
@@ -90,62 +89,31 @@ BEGIN
   FLAGS "D"
 END
 
-LISTBOX F_TIPOINVIO 20
+STRING F_PATH 256 39
 BEGIN
-  PROMPT 2 10 "Invio a      "
+  PROMPT 2 12 "Cartella    "
-  ITEM "Z|Zucchetti"
+  DSELECT
 END
 
-STRING F_DESTINAZIONE 20
+STRING F_FILE 18
 BEGIN
-  PROMPT 2 11 "Destinazione "
+  PROMPT 2 14 "File        "
-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 16 "Numero invio "
+  FLAGS "D"
 END
 
 DATE F_DATAINI
 BEGIN
-  PROMPT 20 16 "Data iniz. "
+  PROMPT 2 18 "Data iniz. "
 END
 
 DATE F_DATAFIN
 BEGIN
-  PROMPT 44 16 "Data fin. "
+  PROMPT 42 18 "Data fin. "
-END
-
-BUTTON F_RIPRISTINA 20
-BEGIN
-  PROMPT 2 18 "Annulla invio"
-  MESSAGE SHOW,F_DATARIPRISTINO|ENABLE,F_DATARIPRISTINO
-END
-
-DATE F_DATARIPRISTINO
-BEGIN
-  PROMPT 25 18 "Annulla invio fino al "
-  FLAGS "HD"
 END
 
 ENDPAGE

tc/tc1300.cpp

@@ -0,0 +1,122 @@
+#include <confapp.h>
+#include <msksheet.h>
+#include <progind.h>
+#include <recset.h>
+#include <recarray.h>
+#include <relation.h>
+
+#include "../include/attiv.h"
+#include "../include/mov.h"
+#include "../cg/cglib01.h"
+#include "tcconf.h"
+
+class TZU_confditta : public TConfig_application
+{
+  char _current;
+
+  static bool check_fields(TMask_field& f, KEY k);
+  // @cmember:(INTERNAL) Salva i parametri dalla maschera
+  virtual const char* get_mask_name() const;
+  virtual void save_mask(bool tosave);
+
+public:
+  // @cmember Disabilita la verifica del modulo in chiave
+  virtual bool check_autorization() const  { return FALSE; }
+
+  virtual bool preprocess_config (TMask& mask, TConfig& config);
+  virtual bool postprocess_config (TMask& mask, TConfig& config);
+  virtual bool user_create( );
+  virtual bool user_destroy( );
+
+  TZU_confditta() : TConfig_application( CONFIG_DITTA ){ }
+  virtual ~TZU_confditta( ){ }
+};
+
+bool TZU_confditta::check_fields(TMask_field& f, KEY k)
+{
+  return true;
+}
+
+const char* TZU_confditta::get_mask_name() const
+{
+  TString& maskname = get_tmp_string();
+  maskname =  ini_get_string(CONFIG_DITTA, "tc", "EdMaskZu"); 
+  return maskname;
+}
+
+void TZU_confditta::save_mask(bool tosave)
+{
+	if (tosave)
+	{
+		const TMask & m = *get_mask();
+
+		if (m.get_bool(F_RIPRISTINO))
+		{
+			const TDate from(m.get(F_ULTINVIO));
+			TEsercizi_contabili esc;
+			const TEsercizio & e = esc.esercizio(esc.date2esc(from));
+			const TDate to(e.fine());
+
+			TString query = "USE MOV KEY 2 SELECT INVIATO==\"X\"";           
+
+			query << "\nFROM DATAREG=#DATA_DA";      
+			query << "\nTO DATAREG=#DATA_AL";      
+	
+			TISAM_recordset mov(query);
+			
+			mov.set_var("#DATA_DA", TVariant(from));
+			mov.set_var("#DATA_AL", TVariant(to));
+
+	    if (mov.items() >0L)
+			{
+				TProgind pi(mov.items(), TR("Ripristino movimenti"), true, true);
+				TLocalisamfile cgmov(LF_MOV);
+			
+				for (bool ok = mov.move_first(); ok; ok = mov.move_next())
+				{
+					if (!pi.addstatus(1))
+						break;
+					const long numreg = mov.get(MOV_NUMREG).as_int();
+
+					cgmov.put(MOV_NUMREG, numreg);
+					if (cgmov.read(_isequal, _lock) == NOERR)
+					{
+						cgmov.zero(MOV_INVIATO);
+						cgmov.rewrite();
+					}
+				}
+			}
+		}
+	}
+	TConfig_application::save_mask(tosave);
+}
+
+bool TZU_confditta::preprocess_config (TMask& mask, TConfig& config)
+{
+  return true;
+}
+
+bool TZU_confditta::postprocess_config (TMask& mask, TConfig& config)
+{
+  return true;
+}
+
+
+bool TZU_confditta::user_create( )
+{
+  ini_set_string(CONFIG_DITTA, "tc", "EdMaskZu", "tc1300a");
+  return true;
+}
+
+bool TZU_confditta::user_destroy( )
+{
+  return true;
+}
+
+int tc1300(int argc, char * * argv)
+{
+  TZU_confditta appc;
+
+	appc.run(argc, argv, TR("Parametri ditta Zucchetti"));
+  return 0;
+}

tc/tc1300a.uml

@@ -0,0 +1,91 @@
+#include "tcconf.h"
+
+TOOLBAR "topbar" 0 0 0 2
+
+#include <stdbar.h>
+
+ENDPAGE
+
+PAGE "Configurazione ditta per invio a Zucchetti"  0 2 0 0
+
+GROUPBOX DLG_NULL 76 3
+BEGIN
+  PROMPT 1 1 "@bDitta corrente"
+END
+
+NUMBER F_CODDITTA 5
+BEGIN
+  PROMPT 2 2 "Codice      "
+  FLAGS "FD"
+  USE LF_NDITTE
+  INPUT CODDITTA F_CODDITTA
+  OUTPUT F_RAGSOC RAGSOC
+  CHECKTYPE REQUIRED
+END
+
+STRING F_RAGSOC 50
+BEGIN
+  PROMPT 22 2 ""
+  FLAGS "D"
+END
+
+NUMBER F_ZUCODDITTA 5
+BEGIN
+  PROMPT 2 4 "Codice Ditta Zucchetti  "
+  FLAGS "Z"
+  FIELD ZUDITTA
+END
+
+BOOLEAN F_ZUTRCAU
+BEGIN
+  PROMPT 2 6 "Trascodifica causali"
+	FIELD ZUTRCAU
+END
+
+BOOLEAN F_ZUTRCON
+BEGIN
+  PROMPT 2 8 "Trascodifica conti"
+	FIELD ZUTRCON
+END
+
+BOOLEAN F_ZUTRIVA
+BEGIN
+  PROMPT 2 10 "Trascodifica codici IVA"
+	FIELD ZUTRIVA
+END
+
+BOOLEAN F_ZUTRBAN
+BEGIN
+  PROMPT 2 12 "Trascodifica banche"
+	FIELD ZUTRBAN
+END
+
+BOOLEAN F_ZUCLISOSP
+BEGIN
+	PROMPT 2 14 "Invia i clienti/Fornitori sospesi"
+	FIELD ZUCLISOSP
+END
+
+NUMBER F_ZUNUMEROINVIO 2
+BEGIN
+	PROMPT 42 14 "Numero Invio"
+	FIELD ZUNUMEROINVIO
+END
+
+BOOLEAN F_RIPRISTINO
+BEGIN
+	PROMPT 2 16 "Ripristina alla data"
+	MESSAGE FALSE DISABLE,F_ULTINVIO
+	MESSAGE TRUE ENABLE,F_ULTINVIO
+END
+
+DATE F_ULTINVIO
+BEGIN
+  PROMPT 42 16 "Data ultimo invio       "
+	FIELD ZUULTINV
+	FLAGS "D"
+END
+
+ENDPAGE
+
+ENDMASK

tc/tcconf.h

@@ -36,3 +36,11 @@
 #define FR_ATTIV			101
 #define FR_DESCR			102
 #define FR_DITTATS		103
+
+#define F_ZUCODDITTA    103
+#define F_ZUCLISOSP     104
+#define F_ZUNUMEROINVIO 105
+#define F_ZUTRCAU	  		106
+#define F_ZUTRCON	  		107
+#define F_ZUTRIVA	   		108
+#define F_ZUTRBAN				109

tc/tcmenu.men

@@ -65,6 +65,7 @@ Flags   = ""
 Item_01 = "Tabelle Zucchetti", [TCMENU_007]
 Item_02 = "Tabelle di Riclassificazione", [TCMENU_008]
 Item_03 = "Trasferimento", "tc1 -0", ""
+Item_04 = "Configurazione modulo", [TCMENU_009]
 
 [TCMENU_007]
 Caption = "Tabelle Zucchetti"
@@ -85,3 +86,11 @@ Item_01 = "Banche", "tc1 -6 BAN", ""
 Item_02 = "Causali", "tc1 -6 CAU", ""
 Item_03 = "Codici IVA", "tc1 -6 IVA", ""
 Item_04 = "Conti", "tc1 -7", ""
+
+[TCMENU_009]
+Caption = "Configurazione modulo"
+Picture = <cg01>
+Module  = 27
+Flags   = ""
+Item_01 = "Parametri ditta", "tc1 -2", ""
+