diff --git a/ca/ca3700.cpp b/ca/ca3700.cpp index 5cd770ac8..c5cb71ac4 100755 --- a/ca/ca3700.cpp +++ b/ca/ca3700.cpp @@ -73,14 +73,14 @@ bool TPrint_rendiconto_ca_mask::on_field_event(TOperable_field& o, TField_event { switch (o.dlg()) { -/* case F_RIGHE: + case F_RIGHE: if (e == fe_init) //azzera le righe dello sheet con le commesse ad inizio programma { //esplicita e bizzarra richiesta del CRPA TSheet_field& s = (TSheet_field&)o; s.destroy(); s.force_update(); } - break;*/ + break; case F_DATAINI: case F_DATAFIN: if (e == fe_close) @@ -442,11 +442,20 @@ real TPrint_rendiconto_ca_recordset::somma_budget(const TString& codconto, const da_rmovana.put(RMOVANA_CODCONTO, codconto); a_rmovana.put(RMOVANA_CODCONTO, codconto); - da_rmovana.put(RMOVANA_DATACOMP, _dadata); - a_rmovana.put(RMOVANA_DATACOMP, _adata); - TString filtro; - filtro << "(107->TIPOMOV==\"" << tipomovana << "\")"; + if (_dadata.ok()) + filtro << "(ANSI(DATA)>=" << _dadata << ")"; + + if (_adata.ok()) + { + if (filtro.not_empty()) + filtro << "&&"; + filtro << "(ANSI(DATA)<=" << _adata << ")"; + } + + if (filtro.not_empty()) + filtro << "&&"; + filtro << "(107->TIPOMOV==\"" << tipomovana << "\")"; TCursor cur_rmovana(&rel_rmovana, filtro, 2, &da_rmovana, &a_rmovana); const long rmovana_items = cur_rmovana.items(); @@ -694,7 +703,6 @@ F=IMF*/ if (tipo_babbo == TTipo_documento::_ordine) //fattura da ordine FO -> MF { selettore |= MATURATO; - //tmpcurr.put("IMPEGNATO", totale_doc_babbo); } else if (tipo_babbo = TTipo_documento::_altro) //fattura senza padri F -> IMF selettore |= (IMPEGNATO | MATURATO); diff --git a/ca/ca3700a.rep b/ca/ca3700a.rep index ae3dc57cd..c02bb382a 100755 --- a/ca/ca3700a.rep +++ b/ca/ca3700a.rep @@ -236,7 +236,7 @@ MESSAGE RESET,F2.103 - #H1.103-#103 + #H2.103-#103 USE 1000