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

Patch level : 12.00 1278

Browse Source 
Files correlati     : ca3.exe ca3*.msk
Commento            :

La stampa del bilancio di commessa non considerava bene le fatturre da ricevere evase.
This commit is contained in:
Alessandro Bonazzi 2023-08-24 01:05:09 +02:00
parent 5c0af15c44
commit c76d0ba018
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
src/ca/ca3883.cpp
View File

@ -1165,6 +1165,7 @@ void TPrint_saldana_recordset::parse_rdoc_ordini(TAssoc_array* cms, const TDate&
//crea il documento virtuale in memoria; se non è ordine oppure lo è ma è già evaso, lo saltiamo!!! ole'!
TDocumento doc(curr_doc);
if (!doc.is_ordine() || doc.is_evaso())
continue;
@ -1324,17 +1325,31 @@ void TPrint_saldana_recordset::parse_rdoc_fatture(TAssoc_array* cms, const TDate
//..e quindi non devono essere ricontabilizzate come fatture vere e proprie (es. FAQ)
const int num_rows = doc.physical_rows();
bool is_fdr = false;
for (int k = 1; k <= num_rows && !is_fdr; k++)
{
const TRiga_documento& riga = doc[k];
const TRectype* riga_babbo = riga.find_original_rdoc();
if (riga_babbo != NULL && riga_babbo->get(RDOC_PROVV).not_empty())
if (riga_babbo != nullptr && riga_babbo->get(RDOC_PROVV).not_empty())
{
const TString& key(riga_babbo->get(RDOC_CODNUM));
const TCodice_numerazione& num = TDocumento::codice_numerazione(key);
const TString& codnum(riga_babbo->get(RDOC_CODNUM));
const TCodice_numerazione& num = TDocumento::codice_numerazione(codnum);
if (num.fattura_emettere_ricevere())
is_fdr = true;
}
const TRectype * riga_figlia = riga.find_son_rdoc();
if (riga_figlia != nullptr)
{
const TString& codnum(riga.get(RDOC_CODNUM));
const TCodice_numerazione& num = TDocumento::codice_numerazione(codnum);
int anno = riga.get_int(RDOC_ANNO);
if (num.fattura_emettere_ricevere() && anno == riga_figlia->get_int(RDOC_ANNO))
is_fdr = true;
}
}
if (is_fdr)
continue;