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