Patch level : 2.0 nopatch

Files correlati     : ab0.ex
Ricompilazione Demo : [ ]
Commento            :
Sviluppo riclassificazione saldi


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

ab/ab0400.cpp

@@ -3,6 +3,7 @@
 #include <automask.h>
 #include <applicat.h>
 #include <config.h>
+#include <clifo.h>
 #include <mask.h>
 #include <pconti.h>   
 #include <progind.h>
@@ -65,6 +66,22 @@ bool TRicl_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
       }
     }
     break;
+  case F_DAL:
+    if (e == fe_close)
+    {
+      TMask & m = o.mask();
+			
+			if (m.get(F_ESER).empty() && (m.get(F_DAL).empty() || m.get(F_AL).empty()))
+				return o.error_box(TR("E' necessario specificare o il codice esercizio oppure\nle date limite"));
+		}
+    break;
+  case F_OUTPUT:
+    if (e == fe_close)
+    {
+			if (o.get().empty())
+				return o.error_box(TR("E' necessario specificare il file di output"));
+		}
+    break;
   default:
     break;
   }
@@ -99,6 +116,7 @@ public:
   real prog_avere() const { return _prog_avere;}
   real saldo() const { return _saldo_iniziale + _prog_dare - _prog_avere;}
   bool sezione_opposta() const;
+	const bool is_zero() const { return _saldo_iniziale == ZERO && _prog_dare == ZERO && _prog_avere == ZERO;}
   TRiga_calcolo& copy(const TRiga_calcolo& c);
 
   TRiga_calcolo(const TRiga_calcolo& c);
@@ -201,12 +219,13 @@ class TRicl_saldi : public TSkeleton_application
   int _codes;
   TDate _dal;
   TDate _al;
+  bool  _all_recs;
   bool  _provv;
   TString _codpdb;
+	TString _codcms;
   TArray _risultati;
   TAssoc_array _output;   
   TString_array _output_keys;
-  bool _clear;
   ofstream * _file;
   TExternisamfile * _dbf;
   
@@ -222,6 +241,7 @@ public:
   virtual bool create();
   virtual bool destroy();
   void mask2parms(const TMask & m);
+	void calculate_clifo(const TString & tipo, const int gruppo, const int conto, const int indbil, const bool saldi_attuali, const TString & codcom);
   void calculate();
   void transform();
   void get_code(const TRectype & rec, bool cee, bool reverse, TString & code);
@@ -229,7 +249,7 @@ public:
   void output();
   virtual void main_loop();
   TFile_type open_output();
-  void output_line(TFile_type t, const char * key, TRiga_output & r);
+  void output_line(TFile_type t, const char * key, TRiga_output & r, const bool is_commessa, TString & codcms);
   void close_output(TFile_type t);
   
   TRicl_saldi() {}
@@ -276,31 +296,46 @@ bool TRicl_saldi::destroy()
 
 void TRicl_saldi::mask2parms(const TMask & m)
 {
+	TEsercizi_contabili es;
+
   _calc_type = (TCalc_type) m.get_int(F_TIPO);
   _codes = m.get_int(F_ESER);
   _dal = m.get(F_DAL);
   _al = m.get(F_AL); 
-  if (_dal.ok() && !_al.ok())
+	if (_codes != 0 && !_dal.ok())
-  {
+		_dal = es.esercizio(_codes).inizio();
-    const TDate oggi(TODAY);
+  if (_codes != 0 && !_al.ok())
-    
+		_al = es.esercizio(_codes).fine();
-    if (oggi > _dal) 
+
-      _al = oggi;
+	if (_codes == 0)
-    else
+	{
-    {
+		_codes = es.date2esc(_dal);
-      _al.set_year(_dal.year());
+		if (_codes == 0)
-      _al.set_month(12);
+			_codes = es.date2esc(_al);
-      _al.set_day(31);
+	}
-    }
+  _all_recs = m.get_bool(F_STRUCT);              
-  }
   _provv = m.get_bool(F_PROVV);              
+  _codcms = m.get(F_COMM);
   _output_file = m.get(F_OUTPUT);
   _codpdb = m.get(F_PDB);
-  _clear = m.get_bool(F_CLEAR);
 #ifdef DBG  
   TString line ;   
   write_log("---------------------------------------------------");
-  line = TR("Tipo di calcolo : "); line << (_calc_type ? TR("IV Direttiva CEE") : TR("Analisi"));
+  line = TR("Tipo di calcolo : ");
+	switch (_calc_type)
+	{
+		case _saldi :
+			line << TR("Saldi Contabili");
+			break;
+		case _ivdircee :
+			line << TR("IV Direttiva CEE");
+			break;
+		case _analisi :
+			line << TR("Analisi");
+			break;
+		default :
+			break;
+	}
   write_log(line);
   line = TR("Esercizio       : "); line << _codes;
   write_log(line);
@@ -312,12 +347,54 @@ void TRicl_saldi::mask2parms(const TMask & m)
   write_log(line);
   line = TR("Movimenti provv.: "); line << (_provv ? "Si" : "No");
   write_log(line);                                            
-  line = TR("Output          : "); line << ((const char *) _output_file) << " da ricreare : " << (_clear ? "Si" : "No");
+  line = TR("Intera struttura: "); line << (_all_recs ? "Si" : "No");
+  write_log(line);                                            
+  line = TR("Commessa        : "); line << _codcms;
+  write_log(line);                                            
+  line = TR("Output          : "); line << ((const char *) _output_file);
   write_log(line);                                            
   write_log("");                                       
 #endif
 }
 
+void TRicl_saldi::calculate_clifo(const TString & tipo, const int gruppo, const int conto, const int indbil, const bool saldi_attuali, const TString & codcom)
+{                         
+  TRelation relcf(LF_CLIFO);
+  TRectype & clifo = relcf.curr();
+	clifo.put(CLI_TIPOCF, tipo);
+	TCursor cur(&relcf, "", 1, &clifo, &clifo);
+  long sottoconto;
+  TSaldo sal;              
+  TRiga_calcolo r;
+	const TRecnotype items = cur.items();
+  
+  cur.freeze();
+
+	TProgind p(items, tipo == "C" ? TR("Ricalcolo saldi Clienti") : TR("Ricalcolo saldi Fornitori"), FALSE);
+	for (cur = 0L; !p.iscancelled() &&  cur.pos() < items; ++cur)
+  { 
+    sottoconto = clifo.get_long(CLI_CODCF);
+    if (saldi_attuali)
+      sal.ultima_immissione_bilancio(_codes, gruppo, conto, sottoconto, indbil, _provv ? 2 :1, FALSE); 
+    else
+      sal.saldo_periodo(gruppo, conto, sottoconto, _dal, _al, indbil, _provv, codcom);
+    r.set_conto(gruppo, conto, sottoconto, indbil);
+    r.set_saldi(sal.saldoini(), sal.prgdare(), sal.prgavere());                                          
+#ifdef DBG  
+    TString line ;   
+    line.format(FR("Conto %03d.%03d.%06ld - "), gruppo, conto, sottoconto);
+    line << TR("Saldo iniziale ") << sal.saldoini().stringa(18, 3);
+    line << TR(" Prog.Dare ") << sal.prgdare().stringa(18, 3);
+    line << TR(" Prog.Avere ") << sal.prgavere().stringa(18, 3);
+    line << TR(" Saldo ") << sal.saldo().stringa(18, 3);
+    write_log(line);
+#endif
+		if (_all_recs || !r.is_zero())
+			_risultati.add(r);
+		p.addstatus(1L);
+  }
+}
+
 void TRicl_saldi::calculate()
 {                         
   TRelation relpcon(LF_PCON);
@@ -329,11 +406,16 @@ void TRicl_saldi::calculate()
   int indbil;
   TSaldo sal;              
   TRiga_calcolo r;
-  const bool saldi_attuali = !_dal.ok() && !_al.ok();         
+	TEsercizi_contabili es;
+	const TEsercizio & e = es.esercizio(_codes);
+	const bool is_commessa = _codcms.not_empty();
+  const bool saldi_attuali = (!is_commessa) && ((!_dal.ok() && !_al.ok()) || (_dal == e.inizio() && _al == e.fine()));         
 	const TRecnotype items = cur.items();
   
   cur.freeze();
 
+	_risultati.destroy();
+	
 	TProgind p(items, TR("Ricalcolo saldi"), FALSE);
 	for (cur = 0L; !p.iscancelled() &&  cur.pos() < items; ++cur)
   { 
@@ -341,13 +423,18 @@ void TRicl_saldi::calculate()
     conto = pcon.get_int(PCN_CONTO);
     sottoconto = pcon.get_long(PCN_SOTTOCONTO);
     if (sottoconto == 0L)
+		{
       indbil = pcon.get_int(PCN_INDBIL);
+      const TString & tmcf = pcon.get(PCN_TMCF);
+			if (tmcf != ' ')
+				calculate_clifo(tmcf, gruppo, conto, indbil, saldi_attuali, _codcms);
+		}
     else
     {                                            
       if (saldi_attuali)
         sal.ultima_immissione_bilancio(_codes, gruppo, conto, sottoconto, indbil, _provv ? 2 :1, FALSE); 
       else
-        sal.valore_al(gruppo, conto, sottoconto, _dal, _al, indbil, _provv);
+        sal.saldo_periodo(gruppo, conto, sottoconto, _dal, _al, indbil, _provv, _codcms);
       r.set_conto(gruppo, conto, sottoconto, indbil);
       r.set_saldi(sal.saldoini(), sal.prgdare(), sal.prgavere());                                          
 #ifdef DBG  
@@ -359,7 +446,9 @@ void TRicl_saldi::calculate()
       line << TR(" Saldo ") << sal.saldo().stringa(18, 3);
       write_log(line);
 #endif
-      _risultati.add(r);
+			if (_all_recs || !r.is_zero())
+				_risultati.add(r);
+			p.addstatus(1L);
     }
   }
 }
@@ -421,6 +510,8 @@ void TRicl_saldi::transform()
 {
   const int items = _risultati.items();
   TString80 key;
+
+	_output.destroy();
   for (int i = 0; i < items; i++)
   {
     const TRiga_calcolo & c = (const TRiga_calcolo &) _risultati[i];
@@ -458,14 +549,18 @@ TFile_type TRicl_saldi::open_output()
     else
       t = _textfile;
   if (t == _dbffile)
-    _dbf = _clear ? new TExternisamfile(_output_file, "ab0400.trr") : new TExternisamfile(_output_file);
+    _dbf = new TExternisamfile(_output_file, "ab0400.trr");
   else
-    _file = new ofstream(_output_file, _clear ? ios::trunc : ios::app);
+	{
+		if (_output_file.exist())
+			remove(_output_file);
+    _file = new ofstream(_output_file);
+	}
   
   return t;
 }
 
-void TRicl_saldi::output_line(TFile_type t, const char * key, TRiga_output & r)
+void TRicl_saldi::output_line(TFile_type t, const char * key, TRiga_output & r, const bool is_commessa, TString & codcms)
 {                               
   TString descr;
 	const bool analisi = _calc_type == _ivdircee;
@@ -480,22 +575,12 @@ void TRicl_saldi::output_line(TFile_type t, const char * key, TRiga_output & r)
 			descr = cache().get("%IVD", key, "S0");
   
   real si = r.saldo_iniziale();
-  char fsi = 'D';
+  char fsi = si >= ZERO ? 'D' : 'A';
   real s = r.saldo();
-  char fs = 'D';
+  char fs = s >= ZERO ? 'D' : 'A';
   real pd = r.prog_dare();
   real pa = r.prog_avere();
 
-  if (si < ZERO)
-  {
-    si = -si;
-    fsi = 'A';
-  }
-  if (s < ZERO)
-  {
-    s = -s;
-    fs = 'A';
-  }
 #ifdef DBG
   TString line ;   
   line.format(FR("Chiave %s"), key);
@@ -506,37 +591,44 @@ void TRicl_saldi::output_line(TFile_type t, const char * key, TRiga_output & r)
   write_log(line);
 #endif            
   
+  TFixed_string k(key, 40);
   if (t == _dbffile)
   {             
-    TRectype & r = _dbf->curr();
+		TRectype & rec = _dbf->curr();
     
-    r.put("ANNOES", _codes);
+    rec.put("ANNOES", _codes);
-    r.put("KEY", key);
+		k.strip("|");
-    r.put("DESCR", descr);
+    rec.put("KEY", k);
-    r.put("SALDOI", si);
+    rec.put("DESCR", descr);
-    r.put("FLAGSI", fsi);
+		if (is_commessa)
-    r.put("PDARE", pd);
+			rec.put("CODCMS", codcms);
-    r.put("PAVERE", pa);
+    rec.put("SALDOI", abs(si));
-    r.put("SALDO", s);
+    rec.put("FLAGSI", fsi);
-    r.put("FLAGS", fs);  
+    rec.put("PDARE", pd);
-    r.put("DATAI", _dal);
+    rec.put("PAVERE", pa);
-    r.put("DATAF", _al);
+    rec.put("SALDO", abs(s));
-    r.put("CODPDB", _codpdb);
+    rec.put("FLAGS", fs);  
+    rec.put("DATAI", _dal);
+    rec.put("DATAF", _al);
+    rec.put("CODPDB", _codpdb);
     
-    if (_dbf->write(r) != NOERR)
+    if (_dbf->write(rec) != NOERR)
-      _dbf->rewrite(r);
+      _dbf->rewrite(rec);
   }
   else
     if (t == _csvfile)
     {
       *_file << _codes << ";";
-      *_file << "\""<< key << "\";";
+			k.replace('|', ';');
+      *_file << k << ";";
+			if (is_commessa)
+		    *_file << codcms << ";";
       *_file << "\"" << descr << "\";";
-      *_file << si.string()  << ";";
+      *_file << abs(si).stringa()  << ";";
       *_file << fsi << ";";
-      *_file << pd.string()  << ";";
+      *_file << pd.stringa()  << ";";
-      *_file << pa.string()  << ";";
+      *_file << pa.stringa()  << ";";
-      *_file << s.string()  << ";";
+      *_file << abs(s).stringa()  << ";";
       *_file << fs << ";";
       *_file << _dal << ";";
       *_file << _al << ";";
@@ -545,13 +637,16 @@ void TRicl_saldi::output_line(TFile_type t, const char * key, TRiga_output & r)
     else
     {
       *_file << _codes << "\t";
-      *_file << key << "\t";
+			k.replace('|', '\t');
+      *_file << k << "\t";
+			if (is_commessa)
+		    *_file << codcms << "\t";
       *_file << descr << "\t";
-      *_file << si.string()  << "\t";
+      *_file << abs(si).stringa()  << "\t";
       *_file << fsi << "\t";
-      *_file << pd.string() << "\t";
+      *_file << pd.stringa() << "\t";
-      *_file << pa.string()  << "\t";
+      *_file << pa.stringa()  << "\t";
-      *_file << s.string()  << "\t";
+      *_file << abs(s).stringa()  << "\t";
       *_file << fs << "\t";
       *_file << _dal << "\t";
       *_file << _al << "\t";
@@ -581,7 +676,9 @@ void TRicl_saldi::output()
   const int items = _output_keys.items();     
   TFile_type t = open_output();
 	const bool analisi = _calc_type == _analisi;
-	if (analisi)
+	const bool is_commessa = _codcms.not_empty();
+
+	if (analisi && !is_commessa)
 	{
 		TRelation relana(LF_ABSALDI);
 	  TRectype & saldo = relana.curr();
@@ -595,39 +692,40 @@ void TRicl_saldi::output()
 		cur.freeze();
 		for (cur = 0L; cur.pos() < items; ++cur)
 			relana.remove();
-		if (analisi)
+		TProgind p(items, "Aggiornamenti Saldi analisi", FALSE);
-		{
+		int err = NOERR;
-			int err = NOERR;
+		for (int i = 0; err == NOERR && i < items && !p.iscancelled(); i++)
-			for (int i = 0; err == NOERR && i < items; i++)
+		{                                             
-			{                                             
+			TString & key = _output_keys.row(i);
-			  TString & key = _output_keys.row(i);
+			TRiga_output & r = (TRiga_output &) _output[key];
-				TRiga_output & r = (TRiga_output &) _output[key];
 
-				saldo.zero();
+			saldo.zero();
-				saldo.put(ABS_CODDITTA, get_firm());
+			saldo.put(ABS_CODDITTA, get_firm());
-				saldo.put(ABS_ANNO, _codes);
+			saldo.put(ABS_ANNO, _codes);
-				saldo.put(ABS_CODPDB, _codpdb);
+			saldo.put(ABS_CODPDB, _codpdb);
 
-				const real si = r.saldo_iniziale();
+			const real si = r.saldo_iniziale();
-				const char fsi = si >= ZERO ? 'D' : 'A';
+			const char fsi = si >= ZERO ? 'D' : 'A';
 
-				saldo.put(ABS_FLDA, fsi);
+			saldo.put(ABS_FLDA, fsi);
-				saldo.put(ABS_SALDO, abs(si));
+			saldo.put(ABS_SALDO, abs(si));
-				saldo.put(ABS_PDARE, r.prog_dare());
+			saldo.put(ABS_PDARE, r.prog_dare());
-				saldo.put(ABS_PAVERE, r.prog_avere());
+			saldo.put(ABS_PAVERE, r.prog_avere());
+			err = relana.write();
+			if (err == _isreinsert)
 				err = relana.write();
-				if (err == _isreinsert)
+		}                        
-					err = relana.write();
+		if (err != NOERR)
-			}                        
+			error_box("Impossibile 	aggiornare l'archivio saldi analisi errore n. %d", err);
-			if (err != NOERR)
+		p.addstatus(1L);
-				error_box("Impossibile 	aggiornare l'archivio saldi analisi errore n. %d", err);
-		}
 	}
-  for (int i = 0; i < items; i++)
+	TProgind p1(items, "Generazione output", FALSE);
+  for (int i = 0; i < items && !p1.iscancelled() ; i++)
   {                                             
     TString & key = _output_keys.row(i);
     TRiga_output & r = (TRiga_output &) _output[key];
-    output_line(t, key, r);
+    output_line(t, key, r, is_commessa, _codcms);
+		p1.addstatus(1L);
   }                        
   close_output(t);
 }
@@ -652,13 +750,6 @@ void TRicl_saldi::main_loop()
 int ab0400 (int argc, char* argv[])
 {
   TRicl_saldi main_app;
-  main_app.run(argc, argv, "Riclassifica saldi");
+  main_app.run(argc, argv, TR("Riclassificazione saldi"));
   return TRUE;
 }
-
-
-
-
-
-
-

ab/ab0400.h

@@ -5,6 +5,9 @@
 #define F_PDB         103
 #define F_DAL         104
 #define F_AL          105
-#define F_PROVV       106
+#define F_STRUCT      106
-#define F_OUTPUT      107
+#define F_PROVV       107
-#define F_CLEAR       108
+#define F_OUTPUT      108
+#define F_COMM				109
+#define F_DCOMM				110
+

ab/ab0400.trr

@@ -1,8 +1,10 @@
 -1
-12
+14
 ANNOES|9|4|0|Codice esercizio
 KEY|1|20|0|Chiave
 DESCR|1|70|0|Descrizione
+CODCMS|1|20|0|Codice Commessa
+FASCMS|1|10|0|Fase Commessa
 FLAGSI|1|1|0|Saldo iniziale in <D>are, <A>vere
 SALDOI|4|18|2|Saldo iniziale
 PDARE|4|18|2|Progressivo dare

ab/ab0400a.uml

@@ -1,13 +1,13 @@
 #include "ab0400.h"
 
-PAGE "Riclassificazione" -1 -1 76 17
+PAGE "Riclassificazione" -1 -1 76 21
 
 LIST F_TIPO 20
 BEGIN
   PROMPT 2 1 "Tipo di calcolo  "
-  ITEM "0|Saldi Contabili"
+  ITEM "0|Saldi Contabili" MESSAGE ENABLE,1@
-  ITEM "1|IV Direttiva CEE"
+  ITEM "1|IV Direttiva CEE" MESSAGE CLEAR,1@
-  ITEM "2|Analisi"
+  ITEM "2|Analisi"  MESSAGE CLEAR,1@
 END
 
 NUMBER F_ESER 4
@@ -55,20 +55,47 @@ BEGIN
   WARNING "La data finale deve essere maggiore alla data iniziale"
 END
 
+BOOLEAN F_STRUCT
+BEGIN
+  PROMPT 2 11 "Intera struttura"
+END
+
 BOOLEAN F_PROVV
 BEGIN
-  PROMPT 2 11 "Anche i movimenti provvisori"
+  PROMPT 2 13 "Anche i movimenti provvisori"
 END
 
 STRING F_OUTPUT 50 30
 BEGIN  
-  PROMPT 2 13 "File di output   "
+  PROMPT 2 15 "File di output   "
   FSELECT ""
 END
 
-BOOLEAN F_CLEAR
+STRING F_COMM 20
 BEGIN
-  PROMPT 55 13 "Azzera"
+  PROMPT 2 17 "Codice commessa "
+	USE CMS
+	FIELD CODTAB
+  FLAGS "UZ"
+  INPUT CODTAB F_COMM
+  DISPLAY "Codice@20" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT F_COMM CODTAB
+  OUTPUT F_DCOMM S0
+  CHECKTYPE NORMAL
+	GROUP 1
+END
+
+STRING F_DCOMM 70 50
+BEGIN
+  PROMPT 2 18 "Descrizione     "
+	USE CMS KEY 2
+  INPUT S0 F_DCOMM
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Codice@20" CODTAB
+  COPY OUTPUT F_COMM
+	CHECKTYPE NORMAL
+	GROUP 1
 END
 
 BUTTON DLG_OK 10 2

projects/ab0.dsp

@@ -137,7 +137,7 @@ SOURCE=..\ab\batbarb.rpt
 !IF  "$(CFG)" == "ab0 - Win32 Release"
 
 # Begin Custom Build - Compiling rpt $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exe
+TargetDir=\P.32\P_02_00\exe
 InputPath=..\ab\batbarb.rpt
 InputName=batbarb
 
@@ -149,7 +149,7 @@ InputName=batbarb
 !ELSEIF  "$(CFG)" == "ab0 - Win32 Debug"
 
 # Begin Custom Build - Compiling rpt $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exed
+TargetDir=\P.32\P_02_00\exed
 InputPath=..\ab\batbarb.rpt
 InputName=batbarb
 
@@ -168,7 +168,7 @@ SOURCE=..\ab\batbntb.rpt
 !IF  "$(CFG)" == "ab0 - Win32 Release"
 
 # Begin Custom Build - Compiling rpt $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exe
+TargetDir=\P.32\P_02_00\exe
 InputPath=..\ab\batbntb.rpt
 InputName=batbntb
 
@@ -180,7 +180,7 @@ InputName=batbntb
 !ELSEIF  "$(CFG)" == "ab0 - Win32 Debug"
 
 # Begin Custom Build - Compiling rpt $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exed
+TargetDir=\P.32\P_02_00\exed
 InputPath=..\ab\batbntb.rpt
 InputName=batbntb
 
@@ -199,7 +199,7 @@ SOURCE=..\ab\batbpdb.rpt
 !IF  "$(CFG)" == "ab0 - Win32 Release"
 
 # Begin Custom Build - Compiling rpt $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exe
+TargetDir=\P.32\P_02_00\exe
 InputPath=..\ab\batbpdb.rpt
 InputName=batbpdb
 
@@ -211,7 +211,7 @@ InputName=batbpdb
 !ELSEIF  "$(CFG)" == "ab0 - Win32 Debug"
 
 # Begin Custom Build - Compiling rpt $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exed
+TargetDir=\P.32\P_02_00\exed
 InputPath=..\ab\batbpdb.rpt
 InputName=batbpdb
 
@@ -234,7 +234,7 @@ SOURCE=..\ab\ab0200a.uml
 !IF  "$(CFG)" == "ab0 - Win32 Release"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exe
+TargetDir=\P.32\P_02_00\exe
 InputPath=..\ab\ab0200a.uml
 InputName=ab0200a
 
@@ -246,7 +246,7 @@ InputName=ab0200a
 !ELSEIF  "$(CFG)" == "ab0 - Win32 Debug"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exed
+TargetDir=\P.32\P_02_00\exed
 InputPath=..\ab\ab0200a.uml
 InputName=ab0200a
 
@@ -260,12 +260,43 @@ InputName=ab0200a
 # End Source File
 # Begin Source File
 
+SOURCE=..\ab\ab0400a.uml
+
+!IF  "$(CFG)" == "ab0 - Win32 Release"
+
+# Begin Custom Build - Compiling mask $(InputPath)...
+TargetDir=\P.32\P_02_00\exe
+InputPath=..\ab\ab0400a.uml
+InputName=ab0400a
+
+"$(TargetDir)\$(InputName).msk" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
+	msk32 $(InputPath) $(TargetDir)\$(InputName).msk
+
+# End Custom Build
+
+!ELSEIF  "$(CFG)" == "ab0 - Win32 Debug"
+
+# Begin Custom Build - Compiling mask $(InputPath)...
+TargetDir=\P.32\P_02_00\exed
+InputPath=..\ab\ab0400a.uml
+InputName=ab0400a
+
+"$(TargetDir)\$(InputName).msk" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
+	msk32 $(InputPath) $(TargetDir)\$(InputName).msk
+
+# End Custom Build
+
+!ENDIF 
+
+# End Source File
+# Begin Source File
+
 SOURCE=..\ab\bastarb.uml
 
 !IF  "$(CFG)" == "ab0 - Win32 Release"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exe
+TargetDir=\P.32\P_02_00\exe
 InputPath=..\ab\bastarb.uml
 InputName=bastarb
 
@@ -277,7 +308,7 @@ InputName=bastarb
 !ELSEIF  "$(CFG)" == "ab0 - Win32 Debug"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exed
+TargetDir=\P.32\P_02_00\exed
 InputPath=..\ab\bastarb.uml
 InputName=bastarb
 
@@ -296,7 +327,7 @@ SOURCE=..\ab\bastntb.uml
 !IF  "$(CFG)" == "ab0 - Win32 Release"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exe
+TargetDir=\P.32\P_02_00\exe
 InputPath=..\ab\bastntb.uml
 InputName=bastntb
 
@@ -308,7 +339,7 @@ InputName=bastntb
 !ELSEIF  "$(CFG)" == "ab0 - Win32 Debug"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exed
+TargetDir=\P.32\P_02_00\exed
 InputPath=..\ab\bastntb.uml
 InputName=bastntb
 
@@ -327,7 +358,7 @@ SOURCE=..\ab\bastpdb.uml
 !IF  "$(CFG)" == "ab0 - Win32 Release"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exe
+TargetDir=\P.32\P_02_00\exe
 InputPath=..\ab\bastpdb.uml
 InputName=bastpdb
 
@@ -339,7 +370,7 @@ InputName=bastpdb
 !ELSEIF  "$(CFG)" == "ab0 - Win32 Debug"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exed
+TargetDir=\P.32\P_02_00\exed
 InputPath=..\ab\bastpdb.uml
 InputName=bastpdb
 
@@ -358,7 +389,7 @@ SOURCE=..\ab\batbarb.uml
 !IF  "$(CFG)" == "ab0 - Win32 Release"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exe
+TargetDir=\P.32\P_02_00\exe
 InputPath=..\ab\batbarb.uml
 InputName=batbarb
 
@@ -370,7 +401,7 @@ InputName=batbarb
 !ELSEIF  "$(CFG)" == "ab0 - Win32 Debug"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exed
+TargetDir=\P.32\P_02_00\exed
 InputPath=..\ab\batbarb.uml
 InputName=batbarb
 
@@ -389,7 +420,7 @@ SOURCE=..\ab\batbntb.uml
 !IF  "$(CFG)" == "ab0 - Win32 Release"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exe
+TargetDir=\P.32\P_02_00\exe
 InputPath=..\ab\batbntb.uml
 InputName=batbntb
 
@@ -401,7 +432,7 @@ InputName=batbntb
 !ELSEIF  "$(CFG)" == "ab0 - Win32 Debug"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exed
+TargetDir=\P.32\P_02_00\exed
 InputPath=..\ab\batbntb.uml
 InputName=batbntb
 
@@ -420,7 +451,7 @@ SOURCE=..\ab\batbpdb.uml
 !IF  "$(CFG)" == "ab0 - Win32 Release"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exe
+TargetDir=\P.32\P_02_00\exe
 InputPath=..\ab\batbpdb.uml
 InputName=batbpdb
 
@@ -432,7 +463,7 @@ InputName=batbpdb
 !ELSEIF  "$(CFG)" == "ab0 - Win32 Debug"
 
 # Begin Custom Build - Compiling mask $(InputPath)...
-TargetDir=\U\Luca\r020200.aga\exed
+TargetDir=\P.32\P_02_00\exed
 InputPath=..\ab\batbpdb.uml
 InputName=batbpdb
 
@@ -443,6 +474,41 @@ InputName=batbpdb
 
 !ENDIF 
 
+# End Source File
+# End Group
+# Begin Group "Tracciati"
+
+# PROP Default_Filter "trr"
+# Begin Source File
+
+SOURCE=..\ab\ab0400.trr
+
+!IF  "$(CFG)" == "ab0 - Win32 Release"
+
+# Begin Custom Build - Copying record descripton $(InputPath)...
+TargetDir=\P.32\P_02_00\exe
+InputPath=..\ab\ab0400.trr
+InputName=ab0400
+
+"$(TargetDir)\$(InputName).trr" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
+	copy $(InputPath) $(TargetDir)\$(InputName).trr
+
+# End Custom Build
+
+!ELSEIF  "$(CFG)" == "ab0 - Win32 Debug"
+
+# Begin Custom Build - Copying record descripton $(InputPath)...
+TargetDir=\P.32\P_02_00\exed
+InputPath=..\ab\ab0400.trr
+InputName=ab0400
+
+"$(TargetDir)\$(InputName).trr" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
+	copy $(InputPath) $(TargetDir)\$(InputName).trr
+
+# End Custom Build
+
+!ENDIF 
+
 # End Source File
 # End Group
 # Begin Source File