diff --git a/ca/ca3700.cpp b/ca/ca3700.cpp
index f451dd35a..57cecad4b 100755
--- a/ca/ca3700.cpp
+++ b/ca/ca3700.cpp
@@ -238,7 +238,7 @@ class TPrint_rendiconto_ca_recordset : public TISAM_recordset
protected:
int _anno;
- int _tipoconti;
+ TString4 _piano;
TDate _dadata, _adata;
long _danumreg, _anumreg;
TString _daconto, _aconto, _codcosto, _codcms, _codfas;
@@ -365,6 +365,15 @@ const TVariant& TPrint_rendiconto_ca_recordset::get(const char* column_name) con
var = _codfas;
return var;
}
+ if (strcmp(column_name, "#PIANO") == 0)
+ {
+ TVariant& var = get_tmp_var();
+ if (_piano == "A")
+ var = "Analitico";
+ else
+ var = "Contabile";
+ return var;
+ }
if (strcmp(column_name, "#DACONTO") == 0)
{
TVariant& var = get_tmp_var();
@@ -966,7 +975,7 @@ void TPrint_rendiconto_ca_recordset::set_filter(const TPrint_rendiconto_ca_mask&
_tmp->zap();
//prende un po' di dati dalla maschera...
- _daconto, _aconto, _codcosto = _codcms = _codfas = "";
+ _piano, _daconto, _aconto, _codcosto, _codcms, _codfas = "";
if (cms_row >= 0)
{
TSheet_field& sf = msk.sfield(F_RIGHE);
@@ -985,7 +994,8 @@ void TPrint_rendiconto_ca_recordset::set_filter(const TPrint_rendiconto_ca_mask&
//si utilizza la riclassificazione dei conti?
- if (msk.get(F_PIANO) == "A")
+ _piano = msk.get(F_PIANO);
+ if (_piano == "A")
{
TConfig& cfg = ca_config();
const bool use_pdcc = cfg.get_bool("UsePdcc");
diff --git a/ca/ca3700a.rep b/ca/ca3700a.rep
index c99e05ebf..fa98d44ae 100755
--- a/ca/ca3700a.rep
+++ b/ca/ca3700a.rep
@@ -99,14 +99,19 @@ MESSAGE RESET,F1.102
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,CHIUSA
-
-
+
+
+
+ #PIANO
+
+
+
#DACONTO
CA_FORMAT_CONTO
-
-
+
+
#ACONTO
CA_FORMAT_CONTO