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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
analisi bilancio di commessa alla data: aggiunta elaborazione documenti


git-svn-id: svn://10.65.10.50/trunk@18883 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-05-18 15:39:54 +00:00
parent b3838414ff
commit 259e758798
3 changed files with 211 additions and 127 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ca/ca3700.cpp
View File

@ -1414,8 +1414,7 @@ void TPrint_rendiconto_ca_recordset::crea_righe_da_rdoc(TLocalisamfile& tmp, con
//validi nei filtri impostati dall'utente
for (cur_rdoc = 0; cur_rdoc.pos() < rdoc_items; ++cur_rdoc)
{
pi.addstatus(1);
if (pi.iscancelled())
if (!pi.addstatus(1))
break;
//La riga esaminata deve avere una testata valida!!!!Se la testata non esiste va saltata..

215
ca/ca3883.cpp
View File

@ -1,6 +1,7 @@
#include <progind.h>
#include "../ve/velib.h"
#include "../ve/velib04.h"
#include "calib01.h"
#include "calib02.h"
@ -1037,8 +1038,7 @@ void TPrint_saldana_recordset::parse_saldana(TAssoc_array* cms, const TDate& dat
for (bool ok = saldana_set.move_first(); ok; ok = saldana_set.move_next())
{
//progind tanto per gradire
pi.addstatus(1);
if (pi.iscancelled())
if (!pi.addstatus(1))
break;
const TString& codconto = saldana.get(SALDANA_CONTO);
@ -1140,66 +1140,11 @@ void TPrint_saldana_recordset::parse_saldana(TAssoc_array* cms, const TDate& dat
}
//aggiorna l'arrayone cms con le rmovana
void TPrint_saldana_recordset::parse_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc)
//elabora realmente la riga analitica che gli viene passata (serve sia per le rmovana pure (chiamata dalla parse_rmovava())..
//..che per quelle create contabilizzando un documento (chiamata dalla parse_rdoc())
void TPrint_saldana_recordset::elabora_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc,
const TRectype& movana, const TRectype& rmovana)
{
const TDate min_datacomp = calcola_min_datacomp(datainiesc, datafinesc);
//cerca tutte le rmovana che soddisfano gli innumerevoli parametri
TString query;
query << "USE RMOVANA KEY 3\n";
switch (_tipostampa)
{
case 1:
case 4:
if (_fase.full())
query << "SELECT CODFASE=\"" << _fase << "\"\n";
break;
case 2:
case 8:
if (_cdc.full())
query << "SELECT CODCCOSTO=\"" << _cdc << "\"\n";
break;
case 3:
if (_fase.full() || _cdc.full())
{
if (_fase.full() && _cdc.full())
query << "SELECT (CODFASE=\"" << _fase << "\")&&(CODCCOSTO=\"" << _cdc << "\")\n";
else
{
if (_fase.full())
query << "SELECT CODFASE=\"" << _fase << "\"\n";
else
query << "SELECT CODCCOSTO=\"" << _cdc << "\"\n";
}
}
break;
}
query << "JOIN MOVANA INTO NUMREG==NUMREG\nFROM DATACOMP=#MINDATACOMP\nTO DATACOMP=#DATACALCOLO";
TISAM_recordset recset(query);
recset.set_var("#DATACALCOLO", _datacalcolo);
recset.set_var("#MINDATACOMP", min_datacomp);
const TRecnotype recset_items = recset.items();
//se ci sono movana che non expirano prima dell'inizio esercizio e la cui datacomp è anteriore a datacalcolo...
if (recset_items > 0)
{
//record correntemente in esame di rmovana e movana
const TRectype& rmovana = recset.cursor()->curr();
const TRectype& movana = recset.cursor()->curr(LF_MOVANA);
//simpatica progind per intrattenere l'utonto
TProgind pi(recset_items, "Scansione movimenti...", true, true);
for (bool ok = recset.move_first(); ok; ok = recset.move_next()) //giro sui vari rmovana...
{
//aggiornamento progind intrattenitiva
pi.addstatus(1);
if (pi.iscancelled())
break;
const char tipomov = movana.get_char(MOVANA_TIPOMOV);
//la data iniziale è la datacomp sulla testata per tutte le righe
const TDate datacomp = movana.get_date(MOVANA_DATACOMP);
@ -1314,6 +1259,72 @@ void TPrint_saldana_recordset::parse_rmovana(TAssoc_array* cms, const TDate& dat
}
}
} //if(indice>=0)...
}
//aggiorna l'arrayone cms con le rmovana
void TPrint_saldana_recordset::parse_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc)
{
const TDate min_datacomp = calcola_min_datacomp(datainiesc, datafinesc);
//cerca tutte le rmovana che soddisfano gli innumerevoli parametri
TString query;
query << "USE RMOVANA KEY 3\n";
switch (_tipostampa)
{
case 1:
case 4:
if (_fase.full())
query << "SELECT CODFASE=\"" << _fase << "\"\n";
break;
case 2:
case 8:
if (_cdc.full())
query << "SELECT CODCCOSTO=\"" << _cdc << "\"\n";
break;
case 3:
if (_fase.full() || _cdc.full())
{
if (_fase.full() && _cdc.full())
query << "SELECT (CODFASE=\"" << _fase << "\")&&(CODCCOSTO=\"" << _cdc << "\")\n";
else
{
if (_fase.full())
query << "SELECT CODFASE=\"" << _fase << "\"\n";
else
query << "SELECT CODCCOSTO=\"" << _cdc << "\"\n";
}
}
break;
}
query << "JOIN MOVANA INTO NUMREG==NUMREG\nFROM DATACOMP=#MINDATACOMP\nTO DATACOMP=#DATACALCOLO";
TISAM_recordset recset(query);
recset.set_var("#DATACALCOLO", _datacalcolo);
recset.set_var("#MINDATACOMP", min_datacomp);
const TRecnotype recset_items = recset.items();
//se ci sono movana che non expirano prima dell'inizio esercizio e la cui datacomp è anteriore a datacalcolo...
if (recset_items > 0)
{
//record correntemente in esame di rmovana e movana
const TRectype& rmovana = recset.cursor()->curr();
const TRectype& movana = recset.cursor()->curr(LF_MOVANA);
//simpatica progind per intrattenere l'utonto
TProgind pi(recset_items, "Scansione movimenti...", true, true);
for (bool ok = recset.move_first(); ok; ok = recset.move_next()) //giro sui vari rmovana...
{
//aggiornamento progind intrattenitiva
if (!pi.addstatus(1))
break;
//metodo per generare i saldi alla data della riga analitica in base alla vita della riga
elabora_rmovana(cms, datainiesc, datafinesc, movana, rmovana);
} //for(bool ok=recset.move_first()...
} //if(recset_items>0...
}
@ -1357,7 +1368,7 @@ int TPrint_saldana_recordset::numerazioni_ordini(TString_array& num_ordini, TStr
//aggiorna l'arrayone cms con le righedoc non ancora contabilizzate
void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datainiesc)
void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc)
{
//solo le numerazioni con almeno un tipo documento ordine interessano
TString_array num_ordini, tip_ordini;
@ -1372,7 +1383,7 @@ void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datain
TString query;
query << "USE RDOC KEY 3\n";
query << "SELECT (BETWEEN(DOC.DATADOC, #DATAINIES, #DATACALCOLO))";
query << "SELECT (BETWEEN(DOC.DATADOC, #DATAINIES, #DATACALCOLO))&&(RIGAEVASA!=\"X\")";
//filtro su cdc/cms/fasi (fatto come per saldi e rmovana; purtroppo non si può metodizzare perchè in tutti i files..
//..i nomi dei campi sono diversi!
@ -1416,13 +1427,85 @@ void TPrint_saldana_recordset::parse_rdoc(TAssoc_array* cms, const TDate& datain
//simpatica progind per intrattenere l'utonto
TProgind pi(recset_items, "Scansione documenti...", true, 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!)
TString old_key;
//misterioso oggetto necessario per contabilizzare il documento in osservazione
TContabilizzazione_analitica cont_anal;
for (bool ok = recset.move_first(); ok; ok = recset.move_next()) //giro sulle varie rdoc...
{
//aggiornamento progind intrattenitiva
pi.addstatus(1);
if (pi.iscancelled())
if (!pi.addstatus(1))
break;
const TRectype& curr_doc = recset.cursor()->curr(LF_DOC);
//controlla se il documento contenente la riga è davvero un ordine ricontrollando il suo tipo nell'array..
//..con i tipi validi; se non lo fosse...ciao ciao rigadocumento!
const TString& tipodoc = curr_doc.get(DOC_TIPODOC);
if (tip_ordini.find(tipodoc))
continue;
//ovviamente non è finita qui...
//la riga documento non deve risultare contabilizzata! infatti, se lo fosse, i suoi valori apparirebbero..
//..nella sezione delle rmovana
const long numregca = curr_doc.get_long(DOC_NUMREGCA);
//se la rigadoc non è stata contabilizzata..
if (numregca == 0)
{
//magico trucco per non dover ricontabilizzare lo stesso documento tante volte quante sono le righe consecutive
const TString curr_key = curr_doc.build_key();
if (curr_key == old_key)
continue;
else
old_key = curr_key;
//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;
//il documento virtuale è adesso un ordine non evaso
//tarocchiamo il documento prendendo solo le righe non evase (almeno una ci sarà, perchè la query del recordset..
//..richiedeva che la rigadoc fosse non evasa, quindi quella riga nel doc esiste, magari in compagnia di altre)
for (int r = doc.body().last_row(); r > 0; r = doc.body().pred_row(r))
{
TRiga_documento& rigadoc = doc[r];
if (!rigadoc.is_evasa())
{
//trasforma tutte le righe a valore, assegnando al prezzo il valore del residuo
const real residuo = rigadoc.valore(false);
rigadoc.put(rigadoc.tipo().quant(), UNO);
rigadoc.put(RDOC_PREZZO, residuo);
}
else
doc.body().destroy_row(r, true); //se la riga fosse evasa la salta e compatta il documento
}
//movana nevessario per la contabilizzazione analitica del documento
TAnal_mov movana;
//finalmente contabilizza il documento in memoria
cont_anal.elabora(doc, 0, NULL, false, movana, false);
//controlla che la riga in esame abbia realmente la cms/cdc/fas indicata nel filtro;
//procedimento necessario per evitare di prendere righe appartenenti a docs elaborati
//perchè contenenti 1 riga con cms corretta ed altre righe con cms sbagliate
for (int j = 1; j <= movana.rows(); j++)
{
const TRectype& rmovana = movana.body()[j];
if (_cdc.not_empty() && rmovana.get(RMOVANA_CODCCOSTO) != _cdc)
continue;
if (_fase.not_empty() && rmovana.get(RMOVANA_CODFASE) != _fase)
continue;
//metodo per il calcolo importo riga riproporzionato
//metodo per generare i saldi alla data della riga analitica in base alla vita della riga
elabora_rmovana(cms, datainiesc, datafinesc, movana, rmovana);
} //for int j...
}
} //for (bool ok = recset....
} //for (int n = 0; n < numerazioni...
@ -1454,7 +1537,7 @@ void TPrint_saldana_recordset::create_lines_to_print(const TString& query)
parse_rmovana(cms, datainiesc, datafinesc);
// 2_b) calcolo dei saldi da documenti non ancora contabilizzati e quindi senza movana e saldana
parse_rdoc(cms, datainiesc);
parse_rdoc(cms, datainiesc, datafinesc);
} //if((_datacalcolo<datafinesc...
} //if(_tipo==8)...

4
ca/ca3883.h
View File

@ -93,9 +93,11 @@ protected:
int estrai_saldi(const TRectype& saldana, const int indbil,
TImporto& saldo, TImporto& saldop, const bool cms_detraz) const;
void elabora_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc,
const TRectype& movana, const TRectype& rmovana);
void parse_rmovana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc);
void parse_saldana(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc, const TString& query);
void parse_rdoc(TAssoc_array* cms, const TDate& datainiesc);
void parse_rdoc(TAssoc_array* cms, const TDate& datainiesc, const TDate& datafinesc);
//per il solo ca3800
void aggiorna_importo(TAssoc_array& riga_array, const TString& livello, const int indbil,