From 4248e0c9af700d7e8fff64646ff6f842dd819bff Mon Sep 17 00:00:00 2001
From: Alessandro Bonazzi <alexbonazzi5652@gmail.com>
Date: Wed, 30 Apr 2025 21:09:38 +0200
Subject: [PATCH] Patch level         : 12.00 1390 Files correlati     :
 ca3.exe

Commento:
Corretta selezione commesse attive
---
 src/ca/ca3700.cpp  | 5 ++---
 src/ca/calib01.cpp | 8 +++++++-
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/src/ca/ca3700.cpp b/src/ca/ca3700.cpp
index 537a98abe..e5131df02 100755
--- a/src/ca/ca3700.cpp
+++ b/src/ca/ca3700.cpp
@@ -778,7 +778,6 @@ int TPrint_rendiconto_ca_recordset::ricava_tipo_documento (const TDocumento& doc
       }
     }
   }
-
   return tipo_documento;
 }
 
@@ -1568,7 +1567,7 @@ void TPrint_rendiconto_ca_recordset::crea_righe_da_rmovana(TLocalisamfile& tmp,
   	cur_rmovana.freeze();
 		const TRectype& rmovana = cur_rmovana.curr();
 		const TRectype& movana = rel_rmovana.curr(LF_MOVANA);
-		TProgind pi(rmovana_items, "Scansione righe movimenti...", true, true);
+		TProgress_monitor pi((long)rmovana_items, "Scansione righe movimenti...", true);
     //aggiunta adolfica di implosione righe movimenti eventualmente ripartite in precedenza..
     //..modifica che serve solo al CRPA
     //se si e' scelto di compattare le rmovana...
@@ -1755,7 +1754,7 @@ void TPrint_rendiconto_ca_recordset::crea_righe_da_rdoc(TLocalisamfile& tmp, con
 	if (rdoc_items > 0)
 	{
   	cur_rdoc.freeze();
-		TProgind pi(rdoc_items, "Scansione righe documenti...", true, true);
+		TProgress_monitor pi((long) rdoc_items, "Scansione righe documenti...", true);
 
 		//memorizza l'ultimo doc per evitare doppioni in caso di doc con pił righe (rielaborerebbe..
 		//..lo stesso documento tante volte quante sono le sue righe!)
diff --git a/src/ca/calib01.cpp b/src/ca/calib01.cpp
index 28cb701be..213c9680e 100755
--- a/src/ca/calib01.cpp
+++ b/src/ca/calib01.cpp
@@ -179,6 +179,7 @@ const char* TMultilevel_code_info::get_key_fieldname(int k) const
   CHECKD(k > 0 && k <= rd.NKeys, "Invalid key ", k);
   const KeyDes& ky = rd.Ky[k-1];
   int idx = 0;
+
   if (k == 1 && (_logicnum == LF_TAB || _logicnum == LF_TABCOM || _logicnum == LF_FASI))
     idx = 1;
   const int pos = ky.FieldSeq[idx] % MaxFields;
@@ -472,7 +473,8 @@ static const TString& ca_get_user_permissions(const TString& utente, const int l
       
       //che programma sono che chiamo questa funzione?
       const TFilename prog_name = main_app().argv(0);
-      TString16 key = prog_name.name_only();
+      TString key = prog_name.name_only();
+
       key << " " << main_app().argv(1);
 
       TToken_string row(80, SAFE_PIPE_CHR);
@@ -3181,6 +3183,7 @@ const TAnal_ripartizioni_batch& TCache_ripartizioni::righe(const TAnal_bill& bil
     const long so = atol(contone.mid(6,6));
     const TBill zio(gr, co, so);
     const TAnal_ripartizioni_batch& rb = righe(zio, annoes, tipomov);
+
     //ha trovato una ripartizione?
     if (rb.rows() > 0)
       return rb;
@@ -3421,6 +3424,9 @@ long ca_durata_commessa(const TRectype& rec_commesse, TDate& dataini, TDate& dat
 
 bool ca_commessa_attiva(const TRectype& rec_commesse, const TDate & from, const TDate & to)
 {
+	if (rec_commesse.get_bool(COMMESSE_CHIUSA))
+		return false;
+
   bool attiva = true;
   TDate inizio;
   TDate fine;