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

Patch level :2.2 160

Browse Source 
Files correlati     :ca3.exe, ca3700a.msk
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@13292 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2005-07-25 13:29:11 +00:00
parent 6c828212df
commit 0e84bac04b
2 changed files with 53 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

92
ca/ca3700.cpp
View File

@ -284,7 +284,7 @@ TPrint_rendiconto_ca_mask::TPrint_rendiconto_ca_mask()
daconto.set_group(1); daconto.set_group(1);
daconto.set_group(4); daconto.set_group(4);
daconto.set_group(g); daconto.set_group(g);
daconto.check_type(CHECK_NORMAL); daconto.check_type(CHECK_SEARCH);
field(da_des+i).set_group(4); field(da_des+i).set_group(4);
field(da_des+i).set_group(g); field(da_des+i).set_group(g);
@ -293,7 +293,7 @@ TPrint_rendiconto_ca_mask::TPrint_rendiconto_ca_mask()
aconto.set_group(2); aconto.set_group(2);
aconto.set_group(4); aconto.set_group(4);
aconto.set_group(g); aconto.set_group(g);
aconto.check_type(CHECK_NORMAL); aconto.check_type(CHECK_SEARCH);
field(a_des+i).set_group(4); field(a_des+i).set_group(4);
field(a_des+i).set_group(g); field(a_des+i).set_group(g);
@ -420,20 +420,15 @@ real TPrint_rendiconto_ca_recordset::somma_budget(const TString& codconto, const
//selezionato e la datacomp compresa nell'intervallo date //selezionato e la datacomp compresa nell'intervallo date
TRectype da_rmovana(LF_RMOVANA); TRectype da_rmovana(LF_RMOVANA);
TRectype a_rmovana(LF_RMOVANA); TRectype a_rmovana(LF_RMOVANA);
if (!_riclassificato)
{ da_rmovana.put(RMOVANA_CODCONTO, codconto);
da_rmovana.put(RMOVANA_CODCONTO, codconto); a_rmovana.put(RMOVANA_CODCONTO, codconto);
a_rmovana.put(RMOVANA_CODCONTO, codconto);
}
else //se riclassificato
{
}
da_rmovana.put(RMOVANA_DATACOMP, _dadata); da_rmovana.put(RMOVANA_DATACOMP, _dadata);
a_rmovana.put(RMOVANA_DATACOMP, _adata); a_rmovana.put(RMOVANA_DATACOMP, _adata);
TString filtro; TString filtro;
filtro << "(MOVANA_TIPODOC==" << tipomovana << ")"; filtro << "(107->TIPOMOV==\"" << tipomovana << "\")";
TCursor cur_rmovana(&rel_rmovana, filtro, 2, &da_rmovana, &a_rmovana); TCursor cur_rmovana(&rel_rmovana, filtro, 2, &da_rmovana, &a_rmovana);
const long rmovana_items = cur_rmovana.items(); const long rmovana_items = cur_rmovana.items();
@ -479,13 +474,25 @@ const TVariant& TPrint_rendiconto_ca_recordset::get(const char* column_name) con
if (strcmp(column_name, "#PREVENTIVO") == 0) if (strcmp(column_name, "#PREVENTIVO") == 0)
{ {
TVariant& var = get_tmp_var(); TVariant& var = get_tmp_var();
var = rendiconto_recordset()->somma_budget(get("CONTO").as_string(), "P"); TString80 conto;
if (_riclassificato)
conto = TISAM_recordset::get("CONTOCG").as_string();
else
conto = TISAM_recordset::get("CONTO").as_string();
var = rendiconto_recordset()->somma_budget(conto, "P");
return var; return var;
} }
if (strcmp(column_name, "#VARIAZIONE") == 0) if (strcmp(column_name, "#VARIAZIONE") == 0)
{ {
TVariant& var = get_tmp_var(); TVariant& var = get_tmp_var();
var = rendiconto_recordset()->somma_budget(get("CONTO").as_string(), "V"); TString80 conto;
if (_riclassificato)
conto = TISAM_recordset::get("CONTOCG").as_string();
else
conto = TISAM_recordset::get("CONTO").as_string();
var = rendiconto_recordset()->somma_budget(conto, "V");
return var; return var;
} }
} }
@ -567,14 +574,16 @@ void TPrint_rendiconto_ca_recordset::salva_rmovana(const TRectype& rmovana, cons
//ATTENZIONE! Se era stata operata una selezione sui conti riclassificati nella maschera //ATTENZIONE! Se era stata operata una selezione sui conti riclassificati nella maschera
//ed il conto riclassificato attuale non ricade nell'intervallo selezionato il programma //ed il conto riclassificato attuale non ricade nell'intervallo selezionato il programma
//non deve aggiungere il record al file!! //non deve aggiungere il record al file!!
if (conto_riclassificato < _da_conto_riclas || conto_riclassificato > _a_conto_riclas) if ((_da_conto_riclas.not_empty() && conto_riclassificato < _da_conto_riclas) ||
(_a_conto_riclas.not_empty() && conto_riclassificato.compare(_a_conto_riclas, _a_conto_riclas.len()) > 0))
return; return;
} }
else //...sennò si usa il normale piano dei conti analitico (cioè tutti tranne che il CRPA) else //...sennò si usa il normale piano dei conti analitico (cioè tutti tranne che il CRPA)
_tmp->curr().put("CONTO", rmovana.get(RMOVANA_CODCONTO)); //conto _tmp->curr().put("CONTO", rmovana.get(RMOVANA_CODCONTO)); //conto
//in ogni caso riempio il campo conto_cg
_tmp->curr().put("CONTOCG", rmovana.get(RMOVANA_CODCONTO)); //conto_cg
//i movimenti possono essere normali o generati da documento... //i movimenti possono essere normali o generati da documento...
if (dadoc) //movimento generato da documento if (dadoc) //movimento generato da documento
@ -758,15 +767,15 @@ void TPrint_rendiconto_ca_recordset::crea_righe_rmovana()
void TPrint_rendiconto_ca_recordset::crea_righe_rdoc(const TPrint_rendiconto_ca_mask& msk) void TPrint_rendiconto_ca_recordset::crea_righe_rdoc(const TPrint_rendiconto_ca_mask& msk)
{ {
TRelation rel_doc(LF_DOC); TRelation rel_rdoc(LF_RIGHEDOC);
// rel_doc.add(LF_RIGHEDOC, "CODNUM==CODNUM|ANNO==ANNO|PROVV==PROVV|NDOC==NDOC"); //aggiunge le testate rel_rdoc.add(LF_DOC, "CODNUM==CODNUM|ANNO==ANNO|PROVV==PROVV|NDOC==NDOC"); //aggiunge le testate
TRectype dadoc(LF_DOC); TRectype dardoc(LF_RIGHEDOC);
TRectype adoc(LF_DOC); TRectype ardoc(LF_RIGHEDOC);
TString filtro_date; TString filtro_date;
dadoc.put(DOC_PROVV, 'D'); dardoc.put(RDOC_PROVV, 'D');
adoc.put(DOC_PROVV, 'D'); ardoc.put(RDOC_PROVV, 'D');
//se siamo fortunati l'anno si può trovare così.. //se siamo fortunati l'anno si può trovare così..
int anno = msk.get_int(F_ANNO); int anno = msk.get_int(F_ANNO);
@ -775,18 +784,18 @@ void TPrint_rendiconto_ca_recordset::crea_righe_rdoc(const TPrint_rendiconto_ca_
if (anno > 0) if (anno > 0)
{ {
dadoc.put(DOC_ANNO, anno); dardoc.put(RDOC_ANNO, anno);
adoc.put(DOC_ANNO, anno); ardoc.put(RDOC_ANNO, anno);
} }
if (_dadata.ok()) if (_dadata.ok())
filtro_date << "(ANSI(DATADOC)>=" << _dadata.date2ansi() << ")"; filtro_date << "(ANSI(33->DATADOC)>=" << _dadata.date2ansi() << ")";
if (_adata.ok()) if (_adata.ok())
{ {
if (filtro_date.not_empty()) if (filtro_date.not_empty())
filtro_date << "&&"; filtro_date << "&&";
filtro_date << "(ANSI(DATADOC)<=" << _adata.date2ansi() << ")"; filtro_date << "(ANSI(33->DATADOC)<=" << _adata.date2ansi() << ")";
} }
TContabilizzazione_analitica cont_anal; //oggetto necessario per contabilizzare il documento in osservazione TContabilizzazione_analitica cont_anal; //oggetto necessario per contabilizzare il documento in osservazione
@ -799,33 +808,33 @@ void TPrint_rendiconto_ca_recordset::crea_righe_rdoc(const TPrint_rendiconto_ca_
const TString4 codnum(row->get(0)); //prende il codice numerazione sulla riga const TString4 codnum(row->get(0)); //prende il codice numerazione sulla riga
if (anno > 0) if (anno > 0)
{ {
dadoc.put(DOC_CODNUM, codnum); dardoc.put(RDOC_CODNUM, codnum);
adoc.put(DOC_CODNUM, codnum); ardoc.put(RDOC_CODNUM, codnum);
} }
TString filtro = filtro_date; TString filtro = filtro_date;
if (filtro.not_empty()) if (filtro.not_empty())
filtro << "&&"; filtro << "&&";
filtro << "(CODNUM==\"" << codnum << "\")"; filtro << "(CODNUM==\"" << codnum << "\")";
filtro << "&&(PROVV==\"" << "D" << "\")"; filtro << "&&(33->STATO>=\"" << row->get(2) << "\")";
filtro << "&&(33->STATO<=\"" << row->get(3) << "\")";
TCursor cur_rdoc(&rel_rdoc, filtro, 1, &dardoc, &ardoc);
const long rdoc_items = cur_rdoc.items();
cur_rdoc.freeze();
TCursor cur_doc(&rel_doc, filtro, 1, &dadoc, &adoc); if (rdoc_items > 0)
const long doc_items = cur_doc.items();
cur_doc.freeze();
if (doc_items > 0)
{ {
TString commento_progind; TString commento_progind;
commento_progind << "Scansione documenti " << codnum << "..."; commento_progind << "Scansione righe documenti " << codnum << "...";
TProgind pi(doc_items, commento_progind); TProgind pi(rdoc_items, commento_progind);
//scanning del file dei documenti alla ricerca di quelli che hanno la data ed il CODNUM //scanning del file dei documenti alla ricerca di quelli che hanno la data ed il CODNUM
//validi nei filtri impostati dall'utente //validi nei filtri impostati dall'utente
for (cur_doc = 0; cur_doc.pos() < doc_items; ++cur_doc) for (cur_rdoc = 0; cur_rdoc.pos() < rdoc_items; ++cur_rdoc)
{ {
pi.addstatus(1); pi.addstatus(1);
TDocumento doc(cur_doc.curr()); TDocumento doc(cur_rdoc.curr(LF_DOC));
TAnal_mov mov; TAnal_mov mov;
cont_anal.elabora(doc, 0, NULL, false, mov); cont_anal.elabora(doc, 0, NULL, false, mov);
for (int j = 1; j <= mov.rows(); j++) for (int j = 1; j <= mov.rows(); j++)
@ -843,23 +852,24 @@ void TPrint_rendiconto_ca_recordset::crea_trr(const TFilename& trr) const
{ {
ofstream of(trr); ofstream of(trr);
of << 1000 << endl; of << 1000 << endl;
of << 14 << endl; of << 15 << endl;
of << "CONTO|1|20|0|Conto analitico" << endl; of << "CONTO|1|20|0|Conto analitico" << endl;
of << "CODNUM|1|4|0|Numerazione documento" << endl; of << "CODNUM|1|4|0|Numerazione documento" << endl;
of << "ANNO|9|4|0|Anno" << endl;
of << "DATA|5|8|0|Data movimento o documento" << endl; of << "DATA|5|8|0|Data movimento o documento" << endl;
of << "NUMRD|3|7|0|Numero registrazione o documento" << endl; of << "NUMRD|3|7|0|Numero registrazione o documento" << endl;
of << "NRIGA|2|3|0|Riga movimento o documento" << endl;
of << "ANNO|9|4|0|Anno" << endl;
of << "NUMDOCRIF|1|7|0|Numero documento riferimento" << endl; of << "NUMDOCRIF|1|7|0|Numero documento riferimento" << endl;
of << "DATADOCRIF|5|8|0|Data documento riferimento" << endl; of << "DATADOCRIF|5|8|0|Data documento riferimento" << endl;
of << "DESC|1|50|0|Descrizione movimento o documento" << endl; of << "DESC|1|50|0|Descrizione movimento o documento" << endl;
of << "NRIGA|2|3|0|Riga movimento o documento" << endl;
of << "DESCRIGA|1|50|0|Descrizione riga movimento o documento" << endl; of << "DESCRIGA|1|50|0|Descrizione riga movimento o documento" << endl;
of << "DOCORIG|1|20|0|Riferimento ordine/bolla" << endl; of << "DOCORIG|1|20|0|Riferimento ordine/bolla" << endl;
of << "FATTURATO|4|18|5|Fatturato" << endl; of << "FATTURATO|4|18|5|Fatturato" << endl;
of << "MATURATO|4|18|5|Maturato" << endl; of << "MATURATO|4|18|5|Maturato" << endl;
of << "IMPEGNATO|4|18|5|Impegnato" << endl; of << "IMPEGNATO|4|18|5|Impegnato" << endl;
of << "CONTOCG|1|12|0|Conto contabile" << endl;
of << 1 << endl; of << 1 << endl;
of << "CONTO+CODNUM+DATA+NUMRD" << endl; of << "CONTO+CODNUM+DATA+NUMRD+NRIGA" << endl;
} }
void TPrint_rendiconto_ca_recordset::set_filter(const TPrint_rendiconto_ca_mask& msk, int cms_row) void TPrint_rendiconto_ca_recordset::set_filter(const TPrint_rendiconto_ca_mask& msk, int cms_row)

4
ca/ca3700.uml
View File

@ -293,7 +293,7 @@ STRING SN_DASTATO 1
BEGIN BEGIN
PROMPT 1 3 "Da stato " PROMPT 1 3 "Da stato "
USE %STD USE %STD
CHECKTYPE NORMAL CHECKTYPE REQUIRED
INPUT CODTAB SN_DASTATO INPUT CODTAB SN_DASTATO
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -305,7 +305,7 @@ STRING SN_ASTATO 1
BEGIN BEGIN
PROMPT 1 4 "A stato " PROMPT 1 4 "A stato "
USE %STD USE %STD
CHECKTYPE NORMAL CHECKTYPE REQUIRED
INPUT CODTAB SN_ASTATO INPUT CODTAB SN_ASTATO
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0