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