root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 12.00 1390

Browse Source 
Files correlati     : ca3.exe

Commento:
Corretta selezione commesse attive
This commit is contained in:
Alessandro Bonazzi 2025-04-30 21:09:38 +02:00
parent f2bcdc6bca
commit 4248e0c9af
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/ca/ca3700.cpp
View File

@ -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!)

8
src/ca/calib01.cpp
View File

@ -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;