diff --git a/src/ca/ca0600.cpp b/src/ca/ca0600.cpp
index ecb72ca6a..23df35f17 100755
--- a/src/ca/ca0600.cpp
+++ b/src/ca/ca0600.cpp
@@ -46,6 +46,7 @@ bool TCms_anal_msk::on_field_event(TOperable_field& o, TField_event e, long joll
TRectype & curr = c.curr();
const long items = c.items();
const int fino_all_anno = select.get_int(101);
+ TDate al(31, 12, fino_all_anno);
long chiuse = 0L;
for (c = 0L; c.pos() < items; ++c)
@@ -55,7 +56,7 @@ bool TCms_anal_msk::on_field_event(TOperable_field& o, TField_event e, long joll
if (!data_chiusura.ok())
data_chiusura = curr.get_date(COMMESSE_DATAFINE);
- if (data_chiusura.ok() && anno <= fino_all_anno && data_chiusura <= today)
+ if (data_chiusura.ok() && anno <= fino_all_anno && data_chiusura <= al)
{
curr.put(COMMESSE_CHIUSA, true);
curr.rewrite();
diff --git a/src/ca/ca0600a.uml b/src/ca/ca0600a.uml
index 9430f1dd6..5bde05d21 100755
--- a/src/ca/ca0600a.uml
+++ b/src/ca/ca0600a.uml
@@ -361,6 +361,18 @@ STRING F_CMS_RIFER 15
BEGIN
PROMPT 2 14 "N. di riferimento "
FIELD RIFER
+ USE LF_MOVANA SELECT TIPOMOV="P"
+ INPUT NUMREG F_CMS_RIFER
+ DISPLAY "Numero registrazione" NUMREG
+ DISPLAY "Descrizione@50" DESCR
+ DISPLAY "Data@10" DATAREG
+ OUTPUT F_CMS_RIFER NUMREG
+ OUTPUT F_CMS_DATAPREV DATAREG
+ OUTPUT F_CMS_PROVVP DPROVV
+ OUTPUT F_CMS_ANNOP DANNO
+ OUTPUT F_CMS_CODNUMP DCODNUM
+ OUTPUT F_CMS_NDOCP DNDOC
+ CHECKTYPE SEARCH
END
DATE F_CMS_DATAPREV
@@ -396,7 +408,24 @@ END
NUMBER F_CMS_NDOCP 7
BEGIN
PROMPT 54 16 "N. doc. "
+ USE DOC
+ INPUT PROVV F_CMS_PROVVP
+ INPUT ANNO F_CMS_ANNOP
+ INPUT CODNUM F_CMS_CODNUMP
+ INPUT NDOC F_CMS_NDOCP
+ DISPLAY " " PROVV
+ DISPLAY "Anno" ANNO
+ DISPLAY "Numerazione" CODNUM
+ DISPLAY "Numero" NDOC
+ DISPLAY "Data@10" DATADOC
+ OUTPUT F_CMS_RIFER NUMREGCA
+ OUTPUT F_CMS_DATAPREV DATADOC
+ OUTPUT F_CMS_PROVVP PROVV
+ OUTPUT F_CMS_ANNOP ANNO
+ OUTPUT F_CMS_CODNUMP CODNUM
+ OUTPUT F_CMS_NDOCP NDOC
FIELD NDOCP
+ CHECKTYPE NORMAL
END
GROUPBOX DLG_NULL 78 4
@@ -1002,4 +1031,4 @@ END
ENDPAGE
-ENDMASK
\ No newline at end of file
+ENDMASK
diff --git a/src/ca/ca3700.cpp b/src/ca/ca3700.cpp
index 4825e6576..761aac31c 100755
--- a/src/ca/ca3700.cpp
+++ b/src/ca/ca3700.cpp
@@ -1032,6 +1032,8 @@ void TPrint_rendiconto_ca_recordset::scrive_riga(TLocalisamfile& tmp, const TRec
TString80 rif; //stringa di lavoro su cui viene scritto un doc originale
const int rows = original_doc->physical_rows(); //righe del doc attuale
+ riferimento.add(format("%s %ld", original_doc->get(DOC_TIPOCF) == "C" ? "Cli." : "For.", original_doc->get_long(DOC_CODCF)));
+
for (int i = 1; i <= rows; i++) //scandisce tutte le righe del doc..
{
const TRiga_documento& riga = (*original_doc)[i];
diff --git a/src/ca/ca3700a.rep b/src/ca/ca3700a.rep
index 2163a4206..d4469dfcc 100755
--- a/src/ca/ca3700a.rep
+++ b/src/ca/ca3700a.rep
@@ -125,7 +125,8 @@
CA_FORMAT_CONTO
-
+
+
MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,CODCF
@@ -154,6 +155,14 @@
NP
#CONTSEP
+
+
+ MESSAGE ISAMREAD,COMMESSE,CODCMS=#COMMESSA,RIFER
+
+
+
+ MESSAGE ISAMREAD,MOVANA,NUMREG=#107,DESCR
+
ORDCONT+CONTO
@@ -530,4 +539,4 @@
-
\ No newline at end of file
+