Patch level : 10.0 366

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

Bug 0001334

La stampa deve prevedere l'ordinamento per valuta ed un totale a rottura di valuta.


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

sc/sc2600.cpp

@@ -1,5 +1,6 @@
 #include <printapp.h>
 #include <utility.h>
+#include <tabutil.h>
 
 #include "../cg/cgsaldac.h"
 #include "../cg/cglib02.h"
@@ -50,8 +51,9 @@ public:
   
   virtual TObject* dup() const { return new TLineTotal(*this); }
   virtual TLineTotal & copy(const TLineTotal & l);
+  virtual void zero();
   TLineTotal(const TLineTotal* l) { copy(*l); }  
-  TLineTotal();
+	TLineTotal() { zero();}
 };
 
 TLineTotal & TLineTotal::copy(const TLineTotal & l)
@@ -66,7 +68,7 @@ TLineTotal & TLineTotal::copy(const TLineTotal & l)
   return *this;
 }
 
-TLineTotal::TLineTotal()
+void TLineTotal::zero()
 {
 	for (int i = 0; i < NUMERO_FASCE; i++)
 	{
@@ -84,12 +86,15 @@ class TProspettoScadenze : public TPrintapp
                 _cur3, _cur4;
   TSelection_ext_mask *_m;
   TLocalisamfile *_scad,*_pagsca;
+	TTable *_val;
   tipo_st   _tipost;                                     // Tipo di stampa impostato
   bool      _end_printed,
+            _start,
+            _stvaluta,
             _ordcod,                                     // VERO=ordine per codice, FALSO=ordine per ragione sociale
             _sinfasce,
             _nsinfasce;
-  TString   _anno,_numdoc,_protiva,_datadoc,_codval,
+  TString   _anno,_numdoc,_protiva,_datadoc,_codval, _codvalsel,
             _cod, _cod_pre, _des, _des_pre;
   TDate     _limop, _limscad, _datas, _limbf;            // Data limite operazione, data limite scaduto e data di stampa
   int       _gcr,                                        // Giorni per Calcolo Rischio (valido solo per stampa clienti)
@@ -109,10 +114,11 @@ class TProspettoScadenze : public TPrintapp
 
 public:             
   virtual bool preprocess_page(int file, int counter);          
-  virtual bool preprocess_print(int file, int counter);         
+  virtual bool open_print();         
 	virtual void postclose_print();
   virtual print_action postprocess_print(int file, int counter);
   virtual print_action postprocess_page(int file, int counter); 
+  virtual void close_print();         
   virtual void preprocess_header() {};                          
   virtual void preprocess_footer() ;                          
   virtual bool user_create();                                   
@@ -123,6 +129,7 @@ public:
   void export_totali_rows();
   void print_totali(int nriga);
   void print_header();
+
 	int calc_last_column();
 	void update_totals(bool what, real& esp, real s[NUMERO_FASCE], real ns[NUMERO_FASCE]);
   void compute_unassigned(TPartita& p, const TDate & datalim);
@@ -139,7 +146,9 @@ inline TProspettoScadenze& app() {return (TProspettoScadenze&)main_app();}
 
 void TProspettoScadenze::print_real(TString& dest, const real& num)
 {                                   
-  const TCurrency cur(num, EMPTY_STRING);
+  const bool stampa_in_valuta = _stvaluta && !_codval.blank();
+  const TString& val = stampa_in_valuta ? _codval : EMPTY_STRING;
+  const TCurrency cur(num, val);
   dest = cur.string(true);
   dest.right_just(10);
 }
@@ -187,7 +196,7 @@ void TProspettoScadenze::compute_unassigned(TPartita& p, const TDate & datalim)
   {     
     const TRectype& rec = ra.row(r);
     const TRiga_partite& sum = p.riga(rec.get_int(PAGSCA_NRIGP));
-    const char * field = PAGSCA_IMPORTO;
+    const char * field = (_stvaluta && sum.in_valuta() ? PAGSCA_IMPORTOVAL : PAGSCA_IMPORTO);
 		const TDate & datascad = sum.get_date(PART_DATAPAG);
 
 		if ((datascad <= datalim))
@@ -229,11 +238,11 @@ void TProspettoScadenze::compute_all(TPartita& p, TBill& bill)
     {  
       const TRiga_scadenze& rs = rp.rata(n);
       const TDate d(rs.get_date(SCAD_DATASCAD));
-      const char* field  = PAGSCA_IMPORTO;
+      const char* field  = (_stvaluta && rs.in_valuta()) ? PAGSCA_IMPORTOVAL : PAGSCA_IMPORTO;
-      const char* sfield = SCAD_IMPORTO;
+      const char* sfield = (_stvaluta && rs.in_valuta()) ? SCAD_IMPORTOVAL : SCAD_IMPORTO;
       const char ssez = rp.sezione();
       TImporto scd(ssez,rs.get_real(sfield));					// Importo in scadenza...
-      TImporto pag(rs.importo_pagato(false));     // Quanto e' stato pagato per questa scadenza?
+      TImporto pag(rs.importo_pagato(_stvaluta));     // Quanto e' stato pagato per questa scadenza?
       TImporto bf;
       TImporto work_imp;
 			
@@ -355,7 +364,7 @@ void TProspettoScadenze::compute_all(TPartita& p, TBill& bill)
       }
       residuo += res;
 	    bool sbf;
-		  TImporto esp = rs.esposto(false, _limscad, _limbf, sbf);
+		  TImporto esp = rs.esposto(_stvaluta, _limscad, _limbf, sbf);
 			esposto += esp.valore();
     } 
   }
@@ -456,7 +465,8 @@ bool TProspettoScadenze::preprocess_page(int file, int counter)
 				_numdoc = rp.get(PART_NUMDOC);
 				_protiva = rp.get(PART_PROTIVA);
 				_datadoc = (const char*) rp.get_date(PART_DATADOC);
-				_codval = "   ";
+				_codval  = (_stvaluta ? rp.get(PART_CODVAL): "");
+				if (_codval.empty()) _codval = "   ";
 				// Now performing fulkrum...
 				compute_all(p, bill);
 			}
@@ -466,11 +476,123 @@ bool TProspettoScadenze::preprocess_page(int file, int counter)
   return true;
 }
 
-bool TProspettoScadenze::preprocess_print(int file, int counter)
+bool TProspettoScadenze::open_print()
-{ 
+{
-  return true;
+	if (_stvaluta)
+	{
+		const int err = _start ? _val->first() : _val->next();
+		if (err != NOERR)
+			return false;
+	}
+	_codvalsel = _val->get("CODTAB");
+	reset_files();
+	reset_print();
+	printer().footerlen(5);
+	if (_m->get_who() == 'C') 
+		_tipost = clienti;
+	else 
+		_tipost = fornitori;
+	riempi_conti_mastro(_m->get_who());
+	if (_m->get_key() == 1) 
+		_ordcod = true;
+	else 
+		_ordcod = false;
+	_end_printed = false;
+	_gcr      = _m->get_int(F_GIORNI);
+	_datas    = (const char *)(_m->get(F_DATASTAMPA));
+	_limop    = (const char *)(_m->get(F_DATAOPERAZIONE));
+	_limscad  = (const char *)(_m->get(F_DATASCADUTO));
+	_limbf = _limscad - (long)_gcr; // Limite inferiore per le scadenze a Buon Fine.
+	_sinfasce = _m->get_bool(F_SCADINFASCE);
+	_sfasce = _m->get_int(F_SCADFASCE);
+	_nsinfasce = _m->get_bool(F_ASCADINFASCE);
+	_nsfasce = _m->get_int(F_ASCADFASCE);
+	_s_date.destroy();
+	_ns_date.destroy();
+	for (int i = 0; i <= NUMERO_FASCE; i++)
+	{
+		_s_date.add(new TDate);
+		_ns_date.add(new TDate);
+	}  
+	int limiti[NUMERO_FASCE + 1] = LIMITI;                 
+	for (int j = 0; j <= _sfasce; j++)
+ 		(TDate &)_s_date[j] = _limscad - (const long) limiti[j];
+	for (int k = 0; k <= _nsfasce; k++)
+ 		(TDate &)_ns_date[k] = _limscad + (const long) limiti[k];
+	_anno.cut(0);_numdoc.cut(0);_protiva.cut(0);_datadoc.cut(0);
+	_codval.cut(0);_cod.cut(0); _des.cut(0); _cod_pre.cut(0);
+	for (int it=0; it < _t.items(); it++)
+	{
+		TAssoc_array& aa = (TAssoc_array&) _t[it];
+		aa.destroy();  // Totali lineari (singolo e generale)
+	}
+
+	get_cursor(_cur1)->set_filterfunction(fil_function,true);
+	get_cursor(_cur2)->set_filterfunction(fil_function,true); 
+	get_cursor(_cur3)->set_filterfunction(fil_function,true); 
+	get_cursor(_cur4)->set_filterfunction(fil_function,true); 
+	_last_game.cut(0);
+  
+	TRectype filter_from(LF_PARTITE), filter_to(LF_PARTITE);
+
+	switch (_tipost)
+	{       
+	 case clienti:
+	 case fornitori:
+		 {
+			 TString filter;
+
+			 filter_from.put("TIPOC", _tipost == clienti ? "C" : "F");
+			 filter_to = filter_from;
+			 if (_stvaluta)
+			 {
+				 if (is_firm_value(_codvalsel))
+					 filter << "(CODVAL==\"\")||";
+				 filter << "(CODVAL==\"" << _codvalsel << "\")";
+			 }
+			 if (_ordcod) // Per codice...
+			 {
+				 select_cursor(_cur1);
+				 get_cursor(_cur1)->setregion(filter_from, filter_to);
+				 get_cursor(_cur1)->setfilter(filter);
+			 }
+			 else     // ... e ragione sociale
+			 {
+				 select_cursor(_cur2);
+				 get_cursor(_cur2)->setregion(filter_from, filter_to);
+				 get_cursor(_cur2)->setfilter(filter);
+			 }
+			 add_file(LF_PARTITE);
+			 add_file(LF_CLIFO,LF_PARTITE);
+		 }
+		 break;
+	 default: break;
+	} // End of inner switch
+	if (_excel)
+	{	
+		_colnames.destroy();
+		if (_sinfasce)
+		{
+			_colnames.add(format("Scaduto > %3d gg", limiti[_sfasce]));
+			for (int i = _sfasce; i > 0; i--)
+ 				_colnames.add(format("Scaduto <= %3d gg", limiti[i]));
+		}
+		else
+ 				_colnames.add("Scaduto");
+		if (_nsinfasce)	
+		{
+			for (int i = 1; i <= _nsfasce; i++)
+				_colnames.add(format("A Scadere <= %3d gg", limiti[i]));
+			_colnames.add(format("A Scadere > %3d gg", limiti[_nsfasce]));
+		}
+		else
+ 				_colnames.add("A Scadere");
+		_recset = new TPRSC_recordset(_colnames);
+	}
+	_start = false ;
+	return true;
 }
-              
+
 print_action TProspettoScadenze::postprocess_print(int file, int counter)
 {  
   print_action rt = NEXT_PAGE;            
@@ -510,6 +632,12 @@ void TProspettoScadenze::postclose_print()
 	}
 }
 
+void TProspettoScadenze::close_print()
+{
+	if (_stvaluta)
+		repeat_print();
+}
+
 print_action TProspettoScadenze::postprocess_page(int file, int counter)
 {   
   return NEXT_PAGE;
@@ -529,10 +657,14 @@ bool TProspettoScadenze::user_create()
   
   _scad = new TLocalisamfile(LF_SCADENZE);
   _pagsca = new TLocalisamfile(LF_PAGSCA);
+	_val = new TTable("%VAL");
   _t.add(new TAssoc_array);_t.add(new TAssoc_array);
 
   TConfig conf (CONFIG_DITTA,"cg");
   _m = new TSelection_ext_mask("sc2600a");
+  _m->enable(F_VALUTA,conf.get_bool("GesVal")); 
+	_stvaluta = false; 
+	_start = true;
 
   enable_print_menu();               
   return true;
@@ -544,6 +676,7 @@ bool TProspettoScadenze::user_destroy()
   if (_rel2)  delete _rel2;
   if (_scad)     delete _scad;
   if (_pagsca)   delete _pagsca;
+  if (_val)  delete _val;
   if (_m) delete _m;
   _t.destroy();
   return true;
@@ -569,105 +702,18 @@ void TProspettoScadenze::riempi_conti_mastro(const char cf)
 
 bool TProspettoScadenze::set_print(int)
 { 
-	KEY k  = _m->run();
+	const bool repeat = _stvaluta && need_to_repeat_print();
-	_excel = k != K_ENTER;
+	bool print = repeat;
-  if (k != K_QUIT)  
-  {
-    reset_files();
-    reset_print();
-		printer().footerlen(5);
-    if (_m->get_who() == 'C') 
-      _tipost = clienti;
-    else 
-      _tipost = fornitori;
-    riempi_conti_mastro(_m->get_who());
-    if (_m->get_key() == 1) 
-    	_ordcod = true;
-    else 
-    	_ordcod = false;
-    _end_printed = false;
-    _gcr      = _m->get_int(F_GIORNI);
-    _datas    = (const char *)(_m->get(F_DATASTAMPA));
-    _limop    = (const char *)(_m->get(F_DATAOPERAZIONE));
-    _limscad  = (const char *)(_m->get(F_DATASCADUTO));
-    _limbf = _limscad - (long)_gcr; // Limite inferiore per le scadenze a Buon Fine.
-    _sinfasce = _m->get_bool(F_SCADINFASCE);
-    _sfasce = _m->get_int(F_SCADFASCE);
-    _nsinfasce = _m->get_bool(F_ASCADINFASCE);
-    _nsfasce = _m->get_int(F_ASCADFASCE);
-	  _s_date.destroy();
-		_ns_date.destroy();
-		for (int i = 0; i <= NUMERO_FASCE; i++)
-		{
-	    _s_date.add(new TDate);
-		  _ns_date.add(new TDate);
-		}  
-		int limiti[NUMERO_FASCE + 1] = LIMITI;                 
-    for (int j = 0; j <= _sfasce; j++)
-     	(TDate &)_s_date[j] = _limscad - (const long) limiti[j];
-    for (int k = 0; k <= _nsfasce; k++)
-     	(TDate &)_ns_date[k] = _limscad + (const long) limiti[k];
-    _anno.cut(0);_numdoc.cut(0);_protiva.cut(0);_datadoc.cut(0);
-    _codval.cut(0);_cod.cut(0); _des.cut(0); _cod_pre.cut(0);
-    for (int it=0; it < _t.items(); it++)
-    {
-      TAssoc_array& aa = (TAssoc_array&) _t[it];
-      aa.destroy();  // Totali lineari (singolo e generale)
-    }
 
-    get_cursor(_cur1)->set_filterfunction(fil_function,true);
+	if (!repeat)
-    get_cursor(_cur2)->set_filterfunction(fil_function,true); 
+	{
-    get_cursor(_cur3)->set_filterfunction(fil_function,true); 
+		KEY k  = _m->run();
-    get_cursor(_cur4)->set_filterfunction(fil_function,true); 
+		_excel = k != K_ENTER;
-    _last_game.cut(0);
+		print = k != K_QUIT;
-    
+		_start = true;
-    TRectype filter_from(LF_PARTITE), filter_to(LF_PARTITE);
+	}
-
+  _stvaluta = _m->get_bool(F_VALUTA);
-    switch (_tipost)
+  return print;
-    {       
-     case clienti:
-     case fornitori:
-       filter_from.put("TIPOC", _tipost == clienti ? "C" : "F");
-       filter_to = filter_from;
-       if (_ordcod) // Per codice...
-       {
-         select_cursor(_cur1);
-         get_cursor(_cur1)->setregion(filter_from, filter_to);
-       }
-       else     // ... e ragione sociale
-       {
-         select_cursor(_cur2);
-         get_cursor(_cur2)->setregion(filter_from, filter_to);
-       }
-       add_file(LF_PARTITE);
-       add_file(LF_CLIFO,LF_PARTITE);
-       break;
-     default: break;
-    } // End of inner switch
-		if (_excel)
-		{	
-			_colnames.destroy();
-			if (_sinfasce)
-			{
-    		_colnames.add(format("Scaduto > %3d gg", limiti[_sfasce]));
-				for (int i = _sfasce; i > 0; i--)
-		 			_colnames.add(format("Scaduto <= %3d gg", limiti[i]));
-			}
-			else
-		 			_colnames.add("Scaduto");
-			if (_nsinfasce)	
-			{
-    		for (int i = 1; i <= _nsfasce; i++)
-    			_colnames.add(format("A Scadere <= %3d gg", limiti[i]));
-    		_colnames.add(format("A Scadere > %3d gg", limiti[_nsfasce]));
-			}
-			else
-		 			_colnames.add("A Scadere");
-			_recset = new TPRSC_recordset(_colnames);
-		}
- 		return true;
-  }  // End if
-  return false;
 }
 
 void TProspettoScadenze::print_totali_rows(int nriga, bool what)
@@ -897,9 +943,13 @@ void TProspettoScadenze::print_header()
   TString datas   = _datas.string();
   TString limop   = _limop.string();
   TString limscad = _limscad.string();
+	TString s1;
 
-  set_header (soh++, "Ditta : %ld %s@%ldgData %s @%ldgPag. @#",
+	if (_stvaluta)
-             firm, (const char *)s, last_column - 30, (const char *)datas, last_column - 10);
+		s1 << "Valuta : " << _codvalsel << " " << _val->get("S0");
+
+  set_header (soh++, "Ditta : %ld %s@%ldg%s@%ldgData %s @%ldgPag. @#",
+             firm, (const char *)s, (last_column - s1.len()) / 2, (const char *)s1,last_column - 30, (const char *)datas, last_column - 10);
              
   switch (_tipost)
   {

sc/sc2600.h

@@ -6,6 +6,7 @@
 #define F_DATAOPERAZIONE 104
 #define F_DATASCADUTO    105
 #define F_GIORNI         106
+#define F_VALUTA         107
 #define F_SCADINFASCE		 201
 #define F_SCADFASCE			 202
 #define F_ASCADINFASCE	 203

sc/sc2600a.uml

@@ -67,6 +67,12 @@ BEGIN
   HELP "Inserire il numero di giorni per il calcolo del rischio"
 END
 
+BOOLEAN F_VALUTA
+BEGIN
+  PROMPT 2 7 "Stampa in valuta"
+  HELP "Selezionare se si vuole la stampa in valuta"
+END
+
 RADIOBUTTON SC_CLIFO 20
 BEGIN
   PROMPT 1 9 "Selezione"