diff --git a/ca/ca3.cpp b/ca/ca3.cpp
index 4ec501452..fb657c07f 100755
--- a/ca/ca3.cpp
+++ b/ca/ca3.cpp
@@ -9,6 +9,7 @@ int main(int argc, char** argv)
{
case 1: ca3200(argc, argv); break; // stampa mastrini
case 2: ca3300(argc, argv); break; // stampa bilancio
+ case 8: ca3900(argc, argv); break; // generazione movimenti perfetti ma casuali
default: ca3100(argc, argv); break; // stampa movimenti
}
exit(0);
diff --git a/ca/ca3.h b/ca/ca3.h
index 0e5387e8d..2a7517a6c 100755
--- a/ca/ca3.h
+++ b/ca/ca3.h
@@ -4,5 +4,6 @@
int ca3100(int argc, char* argv[]);
int ca3200(int argc, char* argv[]);
int ca3300(int argc, char* argv[]);
+int ca3900(int argc, char* argv[]);
#endif // __CA3_H
diff --git a/ca/ca3300.cpp b/ca/ca3300.cpp
index 6adc370f3..f3be29cbb 100755
--- a/ca/ca3300.cpp
+++ b/ca/ca3300.cpp
@@ -15,6 +15,7 @@
////////////////////////////////////////////////////////
// MASCHERA
////////////////////////////////////////////////////////
+
class TPrint_bilancio_ca_mask : public TAutomask
{
protected:
@@ -228,73 +229,6 @@ TPrint_bilancio_ca_mask::TPrint_bilancio_ca_mask()
create_sheet();
}
-////////////////////////////////////////////////////////
-// TSaldi_cache
-////////////////////////////////////////////////////////
-
-struct TSaldanal : public TObject
-{
- TImporto _ini, _dare, _avere, _fin;
- bool _movimentato;
-};
-
-class TSaldi_cache : private TCache
-{
- TDate _dal, _al;
-
-protected:
- virtual TObject* key2obj(const char* key);
-
-public:
- void set_range(const TDate& dal, const TDate& al);
- const TSaldanal& saldo(const char* conto, const char* costo,
- const char* commessa, const char* fase, word tipi);
- TSaldi_cache() : TCache(3883) { }
-};
-
-TObject* TSaldi_cache::key2obj(const char* key)
-{
- TSaldanal* s = new TSaldanal;
-
- TToken_string tok(key);
- TString80 conto = tok.get(); conto.trim();
- TString80 costo = tok.get(); costo.trim();
- TString80 commessa = tok.get(); commessa.trim();
- TString80 fase = tok.get(); fase.trim();
- const char tipo = tok.get_char();
-
- TAnal_balance bal;
- s->_movimentato = bal.saldi(conto, costo, commessa, fase, _dal, _al, tipo,
- s->_ini, s->_dare, s->_avere);
- s->_fin = s->_ini; s->_fin += s->_dare; s->_fin += s->_avere;
- s->_fin.normalize();
-
- return s;
-}
-
-const TSaldanal& TSaldi_cache::saldo(const char* conto, const char* costo,
- const char* commessa, const char* fase, word tipi)
-{
- TToken_string key;
- key.add(conto, 0);
- key.add(costo, 1);
- key.add(commessa, 2);
- key.add(fase, 3);
- key.add(tipi, 4);
- return *(const TSaldanal*)objptr(key);
-}
-
-void TSaldi_cache::set_range(const TDate& dal, const TDate& al)
-{
- if (_dal != dal || _al != al)
- {
- _dal = dal;
- _al = al;
- destroy();
- }
-}
-
-TSaldi_cache _saldi;
////////////////////////////////////////////////////////
// Recordset
@@ -326,37 +260,42 @@ const TVariant& TPiano_conti_recordset::get(const char* column_name) const
{
if (strncmp(column_name, "SALDO:", 6) == 0)
{
+ TString16 sub_field = column_name+6;
+ const char last = sub_field.right(1)[0];
+ int tipimov = 0;
+ switch (last)
+ {
+ case 'C': tipimov = 1; sub_field.rtrim(1); break; // Consuntivo
+ case 'P':
+ case 'V': tipimov = 6; sub_field.rtrim(1); break; // Preventivo o variazaione preventivo
+ default : tipimov = _tipimov; break;
+ }
const TString& conto = get(PCONANA_CODCONTO).as_string();
- const char* sub_field = column_name+6;
+ const TSaldanal& s = ca_saldo(conto, _codcosto, _codcms, _codfas, _dal, _al, tipimov);
+
TVariant& var = get_tmp_var();
if (strcmp(sub_field, "INI_DARE") == 0)
{
- const TSaldanal& s = _saldi.saldo(conto, _codcosto, _codcms, _codfas, _tipimov);
var = s._ini.sezione() == 'D' ? s._ini.valore() : ZERO;
} else
if (strcmp(sub_field, "INI_AVERE") == 0)
{
- const TSaldanal& s = _saldi.saldo(conto, _codcosto, _codcms, _codfas, _tipimov);
var = s._ini.sezione() == 'A' ? s._ini.valore() : ZERO;
} else
if (strcmp(sub_field, "MOV_DARE") == 0)
{
- const TSaldanal& s = _saldi.saldo(conto, _codcosto, _codcms, _codfas, _tipimov);
var = s._dare.valore();
} else
if (strcmp(sub_field, "MOV_AVERE") == 0)
{
- const TSaldanal& s = _saldi.saldo(conto, _codcosto, _codcms, _codfas, _tipimov);
var = s._avere.valore();
} else
if (strcmp(sub_field, "FIN_DARE") == 0)
{
- const TSaldanal& s = _saldi.saldo(conto, _codcosto, _codcms, _codfas, _tipimov);
var = s._fin.sezione() == 'D' ? s._fin.valore() : ZERO;
} else
if (strcmp(sub_field, "FIN_AVERE") == 0)
{
- const TSaldanal& s = _saldi.saldo(conto, _codcosto, _codcms, _codfas, _tipimov);
var = s._fin.sezione() == 'A' ? s._fin.valore() : ZERO;
}
return var;
@@ -390,7 +329,7 @@ bool TPiano_conti_recordset::valid_record(const TRelation& rel) const
if (_movimentati || _nonnulli)
{
- const TSaldanal& s = _saldi.saldo(conto, _codcosto, _codcms, _codfas, _tipimov);
+ const TSaldanal& s = ca_saldo(conto, _codcosto, _codcms, _codfas, _dal, _al, _tipimov);
if (_movimentati && !s._movimentato)
return false;
if (_nonnulli && s._ini.is_zero() && s._dare.is_zero() && s._avere.is_zero())
@@ -432,9 +371,14 @@ void TPiano_conti_recordset::set_filter(const TMask& m, int r)
_dal = m.get(F_DATADA);
_al = m.get(F_DATAA);
- _saldi.set_range(_dal, _al);
- _tipimov = m.get(F_TIPOSTAMPA)[0] == 'C' ? 1 : 6;
+ switch (m.get(F_TIPOSTAMPA)[0])
+ {
+ case 'C': _tipimov = 1; break; // Consuntivo
+ case 'P': _tipimov = 6; break; // Preventivo e variazioni
+ default : _tipimov = 7; break; // Raffronto
+ }
+
_movimentati = m.get_int(F_STAMPAV) == 1;
_nonnulli = m.get_int(F_STAMPAV) == 2;
@@ -548,7 +492,7 @@ void randomov()
for (int i = 0; i < rows; i++)
{
TRectype& rmov = mov.new_row();
- rmov.put(RMOVANA_DATAREG, mov.get(MOVANA_DATAREG));
+ rmov.put(RMOVANA_DATACOMP, mov.get(MOVANA_DATACOMP));
rmov.put(RMOVANA_ANNOES, mov.get(MOVANA_ANNOES));
curconti = rand() % conti;
diff --git a/ca/ca3300a.rep b/ca/ca3300a.rep
new file mode 100755
index 000000000..b7fa56a4f
--- /dev/null
+++ b/ca/ca3300a.rep
@@ -0,0 +1,120 @@
+
+
+ Bilancio normale di verifica
+
+
+
+
+ #SYSTEM.RAGSOC
+
+
+ #SYSTEM.DATE
+
+
+ #REPORT.PAGE
+
+
+
+ #COSTO
+
+
+
+ #COMMESSA
+
+
+ MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,DESCR
+
+
+
+ #FASE
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CODCONTO:2!=""
+ CODCONTO:1
+ "CODCONTO:1" @
+"F2.101" !
+
+
+ CODCONTO:3!=""
+ CODCONTO:2
+ "CODCONTO:2" @
+"F3.101" !
+
+
+ CODCONTO:4 != ""
+ CODCONTO:3
+ "CODCONTO:3" @
+"F4.101" !
+
+
+
+
+ SALDO:INI_DARE
+
+
+ SALDO:INI_AVERE
+
+
+ SALDO:MOV_DARE
+
+
+ SALDO:MOV_AVERE
+
+
+ SALDO:FIN_DARE
+
+
+ SALDO:FIN_AVERE
+
+
+ CODCONTO
+ CA_FORMAT_CONTO
+
+
+ DESCR
+
+
+
+
+
+ #101 != ""
+
+
+ CA_FORMAT_CONTO
+
+
+
+ #101 != ""
+
+
+ CA_FORMAT_CONTO
+
+
+
+ #101 != ""
+
+
+ CA_FORMAT_CONTO
+
+
+ USE PCONANA SELECT LEN(CODCONTO)=10
+
diff --git a/ca/ca3300b.rep b/ca/ca3300b.rep
new file mode 100755
index 000000000..e38ed3347
--- /dev/null
+++ b/ca/ca3300b.rep
@@ -0,0 +1,120 @@
+
+
+ Bilancio normale di verifica
+
+
+
+
+ #SYSTEM.RAGSOC
+
+
+ #SYSTEM.DATE
+
+
+ #REPORT.PAGE
+
+
+
+ #COSTO
+
+
+
+ #COMMESSA
+
+
+ MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,DESCR
+
+
+
+ #FASE
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ CODCONTO:2!=""
+ CODCONTO:1
+ "CODCONTO:1" @
+"F2.101" !
+
+
+ CODCONTO:3!=""
+ CODCONTO:2
+ "CODCONTO:2" @
+"F3.101" !
+
+
+ CODCONTO:4 != ""
+ CODCONTO:3
+ "CODCONTO:3" @
+"F4.101" !
+
+
+
+
+ SALDO:INI_DARE
+
+
+ SALDO:INI_AVERE
+
+
+ SALDO:MOV_DARE
+
+
+ SALDO:MOV_AVERE
+
+
+ SALDO:FIN_DARE
+
+
+ SALDO:FIN_AVERE
+
+
+ CODCONTO
+ CA_FORMAT_CONTO
+
+
+ DESCR
+
+
+
+
+
+ #101 != ""
+
+
+ CA_FORMAT_CONTO
+
+
+
+ #101 != ""
+
+
+ CA_FORMAT_CONTO
+
+
+
+ #101 != ""
+
+
+ CA_FORMAT_CONTO
+
+
+ USE PCONANA SELECT LEN(CODCONTO)=10
+
\ No newline at end of file
diff --git a/ca/calib02.cpp b/ca/calib02.cpp
index 27dab9139..d95ab2cf8 100755
--- a/ca/calib02.cpp
+++ b/ca/calib02.cpp
@@ -137,6 +137,22 @@ bool TAnal_report::execute_usr_word(unsigned int opcode, TVariant_stack& stack)
// TAnal_balance
///////////////////////////////////////////////////////////
+class TAnal_balance : public TObject
+{
+public:
+ TImporto saldo_fine_anno(const char* conto, const char* costo,
+ const char* commessa, const char* fase,
+ int annofin, word tipo) const;
+ bool saldo_movimenti(const char* conto, const char* costo,
+ const char* commessa, const char* fase,
+ const TDate& dal, const TDate& al, word tipo,
+ TImporto& ini, TImporto& dare, TImporto& avere) const;
+ bool saldi(const char* conto, const char* costo,
+ const char* commessa, const char* fase,
+ const TDate& dal, const TDate& al, word tipo,
+ TImporto& ini, TImporto& dare, TImporto& avere) const;
+};
+
TImporto TAnal_balance::saldo_fine_anno(const char* conto, const char* costo,
const char* commessa, const char* fase,
int anno, word tipo) const
@@ -284,3 +300,66 @@ bool TAnal_balance::saldi(const char* conto, const char* costo,
ini, dare, avere);
return mov;
}
+
+////////////////////////////////////////////////////////
+// TSaldi_cache
+////////////////////////////////////////////////////////
+
+class TSaldi_cache : private TCache
+{
+protected:
+ virtual TObject* key2obj(const char* key);
+
+public:
+ const TSaldanal& saldo(const char* conto, const char* costo,
+ const char* commessa, const char* fase,
+ const TDate& dal, const TDate& al, word tipi = 0x1);
+ TSaldi_cache() : TCache(3883) { }
+};
+
+TObject* TSaldi_cache::key2obj(const char* key)
+{
+ TSaldanal* s = new TSaldanal;
+
+ TToken_string tok(key);
+ TString80 conto = tok.get(); conto.trim();
+ TString80 costo = tok.get(); costo.trim();
+ TString80 commessa = tok.get(); commessa.trim();
+ TString80 fase = tok.get(); fase.trim();
+ const TDate dal = tok.get();
+ const TDate al = tok.get();
+ const char tipo = tok.get_char();
+
+ TAnal_balance bal;
+ s->_movimentato = bal.saldi(conto, costo, commessa, fase, dal, al, tipo,
+ s->_ini, s->_dare, s->_avere);
+ s->_fin = s->_ini; s->_fin += s->_dare; s->_fin += s->_avere;
+ s->_fin.normalize();
+
+ return s;
+}
+
+const TSaldanal& TSaldi_cache::saldo(const char* conto, const char* costo,
+ const char* commessa, const char* fase,
+ const TDate& dal, const TDate& al, word tipi)
+{
+ TToken_string key;
+ key.add(conto, 0);
+ key.add(costo, 1);
+ key.add(commessa, 2);
+ key.add(fase, 3);
+ key.add(dal, 4);
+ key.add(al, 5);
+ key.add(tipi, 6);
+ return *(const TSaldanal*)objptr(key);
+}
+
+const TSaldanal& ca_saldo(const char* conto, const char* costo,
+ const char* commessa, const char* fase,
+ const TDate& dal, const TDate& al, word tipi)
+{
+ static TSaldi_cache* cache = NULL;
+ if (cache = NULL)
+ cache = new TSaldi_cache;
+ return cache->saldo(conto, costo, commessa, fase, dal, al, tipi);
+}
diff --git a/ca/calib02.h b/ca/calib02.h
index f1ee392d8..6698739c0 100755
--- a/ca/calib02.h
+++ b/ca/calib02.h
@@ -33,23 +33,17 @@ public: // meglio pubic?
// TAnal_balance
///////////////////////////////////////////////////////////
-// Tipi di saldo: 1 = Normale; 2 = Preventivo; 4 = Variazione preventivo
+// Tipi di saldo: 1 = Normale; 2 = Preventivo; 4 = Variazione preventivo; 7 = Tutti
-class TAnal_balance : public TObject
+struct TSaldanal : public TObject
{
-public:
- TImporto saldo_fine_anno(const char* conto, const char* costo,
- const char* commessa, const char* fase,
- int annofin, word tipo) const;
- bool saldo_movimenti(const char* conto, const char* costo,
- const char* commessa, const char* fase,
- const TDate& dal, const TDate& al, word tipo,
- TImporto& ini, TImporto& dare, TImporto& avere) const;
- bool saldi(const char* conto, const char* costo,
- const char* commessa, const char* fase,
- const TDate& dal, const TDate& al, word tipo,
- TImporto& ini, TImporto& dare, TImporto& avere) const;
+ TImporto _ini, _dare, _avere, _fin;
+ bool _movimentato;
};
+const TSaldanal& ca_saldo(const char* conto, const char* costo,
+ const char* commessa, const char* fase,
+ const TDate& dal, const TDate& al, word tipi = 1);
+
#endif
diff --git a/ca/rmovana.h b/ca/rmovana.h
index 370870669..0651ba611 100755
--- a/ca/rmovana.h
+++ b/ca/rmovana.h
@@ -5,7 +5,7 @@
#define RMOVANA_NUMREG "NUMREG"
#define RMOVANA_NUMRIG "NUMRIG"
#define RMOVANA_SEZIONE "SEZIONE"
-#define RMOVANA_DATAREG "DATAREG"
+#define RMOVANA_DATACOMP "DATACOMP"
#define RMOVANA_CODCCOSTO "CODCCOSTO"
#define RMOVANA_CODCMS "CODCMS"
#define RMOVANA_CODFASE "CODFASE"