diff --git a/ps/pd6342100.cpp b/ps/pd6342100.cpp
index 66efa20c1..799497d13 100755
--- a/ps/pd6342100.cpp
+++ b/ps/pd6342100.cpp
@@ -99,13 +99,13 @@ public:
TPrint_cosric_month_recordset::TPrint_cosric_month_recordset()
- : TAS400_recordset("AS400(280)")
+ : TAS400_recordset("AS400(300)")
{
create_field(RMOVANA_CODCMS, -1, 20, _alfafld, true);
create_field(RMOVANA_CODFASE, -1, 10, _alfafld);
create_field(RMOVANA_CODCONTO, -1, 20, _alfafld, true);
TString16 month_string;
- for (int i = 1; i <= 12; i++)
+ for (int i = 1; i <= 13; i++)
{
month_string.format("IMPORTO_%02d", i);
create_field(month_string, -1, 18, _realfld);
@@ -122,7 +122,7 @@ bool TPrint_cosric_month_recordset::crea_nuova_riga(const TString& codcms, const
set(RMOVANA_CODFASE, codfase);
set(RMOVANA_CODCONTO, codconto);
TString16 month_string;
- for (int i = 1; i <= 12; i++)
+ for (int i = 1; i <= 13; i++)
{
const TImporto& importo = (const TImporto&)importi[i - 1];
if (!importo.is_zero())
@@ -193,6 +193,7 @@ TPrint_cosric_month_recordset* TPrint_cosric_month::elabora() const
dacontone << _mask->get(dlg_da + i);
acontone << _mask->get(dlg_al + i);
}
+ acontone << "~"; //magia! infatti la between col cavolo che funzionava se acontone non era completo
recset.set_var("#DACONTO", TVariant(dacontone));
recset.set_var("#ACONTO", TVariant(acontone));
@@ -254,17 +255,22 @@ TPrint_cosric_month_recordset* TPrint_cosric_month::elabora() const
TArray* cms_fas = (TArray*)commesse_fasi.objptr(key);
if (cms_fas == NULL)
{
- cms_fas = new TArray(12);
+ cms_fas = new TArray(13);
const TImporto importo_nullo;
- for (int j = 0; j < 12; j++)
+ for (int j = 0; j < 13; j++)
cms_fas->add(importo_nullo);
commesse_fasi.add(key, cms_fas);
}
TImporto& imp_cms_fas = (TImporto&)(*cms_fas)[m - 1];
imp_cms_fas += importo_mese;
- }
- } //for(int m = first_month...
+
+ TImporto& imp_anno = (TImporto&)(*cms_fas)[12];
+ imp_anno += importo_mese;
+
+ } //for(int m = first_month...
+
+ } //for(bool.recset...
FOR_EACH_ASSOC_OBJECT(commesse_fasi, obj, chiave, arr)
diff --git a/ps/pd6342100a.rep b/ps/pd6342100a.rep
index 2668942ba..9dd63c7fc 100755
--- a/ps/pd6342100a.rep
+++ b/ps/pd6342100a.rep
@@ -3,22 +3,22 @@
Stampa costi-ricavi mensili CA
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
MESSAGE RESET,F1
@@ -30,7 +30,7 @@
- ANNO
+ #ANNO
@@ -42,9 +42,9 @@
CODCMS
-
+
MESSAGE RESET,F2
-
+
CODCMS
MESSAGE COPY,F2.98
@@ -70,130 +70,120 @@
+
-
+
-
CODCONTO
-
MESSAGE ISAMREAD,PCONANA,CODCONTO=#98,DESCR
-
+
IMPORTO_01
- MESSAGE COPY,130
"F3.101" REP_ADD_IMPORTO
-
+
SEZIONE_01
- MESSAGE COPY,131
-
+
IMPORTO_02
- 130 REP_ADD_IMPORTO
"F3.103" REP_ADD_IMPORTO
-
+
SEZIONE_02
-
+
IMPORTO_03
- 130 REP_ADD_IMPORTO
"F3.105" REP_ADD_IMPORTO
-
+
SEZIONE_03
-
+
IMPORTO_04
- 130 REP_ADD_IMPORTO
"F3.107" REP_ADD_IMPORTO
-
+
SEZIONE_04
-
+
IMPORTO_05
- 130 REP_ADD_IMPORTO
"F3.109" REP_ADD_IMPORTO
-
+
SEZIONE_05
-
+
IMPORTO_06
- 130 REP_ADD_IMPORTO
"F3.111" REP_ADD_IMPORTO
-
+
SEZIONE_06
-
+
IMPORTO_07
- 130 REP_ADD_IMPORTO
"F3.113" REP_ADD_IMPORTO
-
+
SEZIONE_07
-
+
IMPORTO_08
- 130 REP_ADD_IMPORTO
"F3.115" REP_ADD_IMPORTO
-
+
SEZIONE_08
-
+
IMPORTO_09
- 130 REP_ADD_IMPORTO
"F3.117" REP_ADD_IMPORTO
-
+
SEZIONE_09
-
+
IMPORTO_10
- 130 REP_ADD_IMPORTO
"F3.119" REP_ADD_IMPORTO
-
+
SEZIONE_10
-
+
IMPORTO_11
- 130 REP_ADD_IMPORTO
"F3.121" REP_ADD_IMPORTO
-
+
SEZIONE_11
-
+
IMPORTO_12
- 130 REP_ADD_IMPORTO
"F3.123" REP_ADD_IMPORTO
-
+
SEZIONE_12
-
-
+
+
+ IMPORTO_13
+ "F3.130" REP_ADD_IMPORTO
+
-
-
+
+
+ SEZIONE_13
-
+
+
- Totali generali
+ Totali generali
-
- 130 REP_ADD_IMPORTO
-
-
-
- 130 REP_ADD_IMPORTO
-
-
-
- 130 REP_ADD_IMPORTO
-
-
-
- 130 REP_ADD_IMPORTO
+
+
+
+
+
+
+
"F1.107" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
-
-
-
- 130 REP_ADD_IMPORTO
-
-
-
- 130 REP_ADD_IMPORTO
-
-
-
- 130 REP_ADD_IMPORTO
-
-
-
- 130 REP_ADD_IMPORTO
-
-
-
- 130 REP_ADD_IMPORTO
-
-
-
- 130 REP_ADD_IMPORTO
-
-
-
- 130 REP_ADD_IMPORTO
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
-
+
+
+
-
-
-
-
- 130 REP_ADD_IMPORTO
+
+
"F1.101" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F1.103" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F1.105" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F1.107" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F1.109" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F1.111" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F1.113" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F1.115" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F1.117" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F1.119" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F1.121" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F1.123" REP_ADD_IMPORTO
-
-
-
+
+
+ "F1.130" REP_ADD_IMPORTO
+
+
+
-
-
+
+
+
-
-
-
-
- 130 REP_ADD_IMPORTO
+
+
"F2.101" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F2.103" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F2.105" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F2.107" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F2.109" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F2.111" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F2.113" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F2.115" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F2.117" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F2.119" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F2.121" REP_ADD_IMPORTO
-
-
- 130 REP_ADD_IMPORTO
+
+
"F2.123" REP_ADD_IMPORTO
-
-
-
-
-
-
+
+
+ "F2.130" REP_ADD_IMPORTO
+
+
\ No newline at end of file
diff --git a/ps/pd6342100a.uml b/ps/pd6342100a.uml
index b32952c01..da3227648 100755
--- a/ps/pd6342100a.uml
+++ b/ps/pd6342100a.uml
@@ -25,7 +25,7 @@ BEGIN
OUTPUT F_ANNO CODTAB
CHECKTYPE REQUIRED
FLAGS "RZ"
- FIELD ANNO
+ FIELD #ANNO
END
GROUPBOX DLG_NULL 77 13