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

Patch level :2.2 nopatch

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :prosegue la stampa del pagato; adesso da' un tignoso problema mettendo un breakpoint nella find_commesse_cg


git-svn-id: svn://10.65.10.50/trunk@13838 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2006-03-08 16:58:36 +00:00
parent bf12e004e5
commit 624fa873f0
3 changed files with 425 additions and 375 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

725
ca/ca3600.cpp
View File

@ -161,7 +161,7 @@ void TPag_per_cms_mask::config_loader(TSheet_field& sf, const char* paragrafo)
TString_array conti; TString_array conti;
int n = configfile.list_variables(conti, false, paragrafo, true); configfile.list_variables(conti, false, paragrafo, true);
FOR_EACH_ARRAY_ROW(conti, i, row) FOR_EACH_ARRAY_ROW(conti, i, row)
{ {
sf.row(-1) = configfile.get(*row); //carica la riga del .ini senza il contatore sf.row(-1) = configfile.get(*row); //carica la riga del .ini senza il contatore
@ -199,7 +199,7 @@ class TPag_per_cms_recordset : public TISAM_recordset
protected: protected:
TDate _dadata, _adata; TDate _dadata, _adata;
long _codfor; long _codfor;
TString8 _campodata; TString16 _campodata;
TString _codcosto, _codcms, _codfas; TString _codcosto, _codcms, _codfas;
TAssoc_array _costi,_pagamenti,_fiscali,_sociali; //array che contengono i conti letti dal .ini TAssoc_array _costi,_pagamenti,_fiscali,_sociali; //array che contengono i conti letti dal .ini
@ -213,9 +213,9 @@ protected:
static bool mov_callback(const TRelation& rel, void* pJolly); static bool mov_callback(const TRelation& rel, void* pJolly);
long find_movimento(const TRectype& riga_pag) const; long find_movimento(const TRectype& riga_pag) const;
void find_commesse(const long nreg, const TRectype& riga_pag); void find_commesse(const long nreg, const TRectype& riga_pag);
void find_commesse_cg(const long nreg); void find_commesse_cg(const TRectype& mov);
bool check_cms_cdc_fsc(const TRectype& rec_analriga); bool check_cms_cdc_fsc(const TRectype& rec_analriga);
TString create_isam_query(const long nreg); const TString& query_movama_by_numregcg(const long nreg);
void lettura_conti(TAssoc_array& assoc, const char tipoconto); void lettura_conti(TAssoc_array& assoc, const char tipoconto);
int cerca_riga_fattura_origine(const TPartita& match, const TRectype& riga_pag); int cerca_riga_fattura_origine(const TPartita& match, const TRectype& riga_pag);
real totale_documento(const TRectype& mov) const; real totale_documento(const TRectype& mov) const;
@ -228,10 +228,10 @@ protected:
bool cerca_sociali(const TBill& bill) const; bool cerca_sociali(const TBill& bill) const;
public: public:
virtual void set_filter(const TPag_per_cms_mask& msk, const int cms_row, const long codfor); virtual void set_filter(const TPag_per_cms_mask& msk, const int cms_row, const long codfor, const TString& campodata);
virtual void set_custom_filter(TCursor& cur) const; virtual void set_custom_filter(TCursor& cur) const;
void scan_pags(const TPag_per_cms_mask& msk); void scan_pags();
void scan_movs(const TPag_per_cms_mask& msk); void scan_movs();
TPag_per_cms_recordset(const TString& sql) : TISAM_recordset(sql) { _tmp = NULL;} TPag_per_cms_recordset(const TString& sql) : TISAM_recordset(sql) { _tmp = NULL;}
~TPag_per_cms_recordset(); ~TPag_per_cms_recordset();
@ -255,14 +255,18 @@ void TPag_per_cms_recordset::set_custom_filter(TCursor& cur) const
//filtro sulla data(non avendo anche codnum non ho la chiave completa per mettere la data nella setregion) //filtro sulla data(non avendo anche codnum non ho la chiave completa per mettere la data nella setregion)
TString filtro; TString filtro;
TString80 f;
if (_dadata.ok()) if (_dadata.ok())
filtro << "(ANSI(DATA)>=" << _dadata << ")"; {
f.format("(ANSI(%s)>=\"%s\")", (const char*)_campodata, _dadata.string(ANSI));
filtro << f;
}
if (_adata.ok()) if (_adata.ok())
{ {
if (filtro.not_empty()) if (filtro.not_empty())
filtro << "&&"; filtro << "&&";
filtro << "(ANSI(DATA)<=" << _adata << ")"; f.format("(ANSI(%s)<=\"%s\")", (const char*)_campodata, _adata.string(ANSI));
filtro << f;
} }
cur.setregion(darec, arec); cur.setregion(darec, arec);
@ -301,12 +305,14 @@ const TVariant& TPag_per_cms_recordset::get(const char* column_name) const
void TPag_per_cms_recordset::crea_trr(const TFilename& trr) const void TPag_per_cms_recordset::crea_trr(const TFilename& trr) const
{ {
TString chiave;
ofstream of(trr); ofstream of(trr);
of << 1000 << endl; of << 1000 << endl;
of << 15 << endl; of << 16 << endl;
of << "CODFORN|3|6|0|Codice fornitore" << endl; of << "CODFORN|3|6|0|Codice fornitore" << endl;
of << "DESFORN|1|50|0|Descrizione fornitore" << endl; of << "DESFORN|1|50|0|Descrizione fornitore" << endl;
of << "NREG|3|7|0|Numero registrazione" << endl; of << "NREG|3|7|0|Numero registrazione" << endl;
of << "DATAREG|5|8|0|Data registrazione" << endl;
of << "DATAPAG|5|8|0|Data pagamento" << endl; of << "DATAPAG|5|8|0|Data pagamento" << endl;
of << "DESCRPAG|1|50|0|Descrizione pagamento" << endl; of << "DESCRPAG|1|50|0|Descrizione pagamento" << endl;
of << "NDOC|1|6|0|Numero documento" << endl; of << "NDOC|1|6|0|Numero documento" << endl;
@ -320,7 +326,10 @@ void TPag_per_cms_recordset::crea_trr(const TFilename& trr) const
of << "FSC|1|10|0|Fase" << endl; of << "FSC|1|10|0|Fase" << endl;
of << "HIDDEN|8|1|0|Record nascosto" << endl; of << "HIDDEN|8|1|0|Record nascosto" << endl;
of << 1 << endl; of << 1 << endl;
of << "CODFORN+FSC+NREG+DATAPAG" << endl; //l'ordinamento dipende dal tipo di data selezionato sulla maschera
chiave << "CODFORN+FSC+NREG+";
chiave << _campodata;
of << chiave << endl;
} }
void TPag_per_cms_recordset::lettura_conti(TAssoc_array& assoc, const char tipoconto) void TPag_per_cms_recordset::lettura_conti(TAssoc_array& assoc, const char tipoconto)
@ -507,64 +516,98 @@ long TPag_per_cms_recordset::find_movimento(const TRectype& riga_pag) const
//prepara gli oggetti (_righecosti,_righepagamenti) contenenti le righe dei pagamenti.. //prepara gli oggetti (_righecosti,_righepagamenti) contenenti le righe dei pagamenti..
//..senza saldaconto //..senza saldaconto
void TPag_per_cms_recordset::find_commesse_cg(const long nreg) void TPag_per_cms_recordset::find_commesse_cg(const TRectype& mov)
{ {
const long numregcg = mov.get_long(MOV_NUMREG);
// if (numregcg == 1039)
// warning_box("movimento rompico...");
//cerca un record di MOVANA che abbia numregcg = nreg;usa il nuovo metodo fighissimo.. //cerca un record di MOVANA che abbia numregcg = nreg;usa il nuovo metodo fighissimo..
//..con la isam query implementato nella create_isam_query() //..con la isam query implementato nella query_movama_by_numregcg()
TISAM_recordset movana(create_isam_query(nreg)); TISAM_recordset movana(query_movama_by_numregcg(numregcg));
const TRecnotype items = movana.items();
for (TRecnotype i = 0; movana.move_to(i); i++) if (items > 0)
{ {
const long numregcg = movana.get(MOVANA_NUMREGCG).as_int(); if (items > 1)
//se trova il record cercato in MOVANA... error_box(TR("Esiste piu' di un movimento analitico collegato al movimento contabile %ld"),numregcg);
if (numregcg == nreg)
{
//prepara il record tmpcurr sul file temporaneo _tmp su cui registrare i dati da stampare
TRectype& tmpcurr = _tmp->curr();
tmpcurr.zero();
//trova le RMOVANA del MOVANA corrente che hanno il conto = a quello della i-esima rigaiva movana.move_last(); //si posiziona sul record corretto
TAnal_mov anal_mov(nreg); //prepara il record tmpcurr sul file temporaneo _tmp su cui registrare i dati da stampare
TRecord_array& anal_rows = anal_mov.body(); TRectype& tmpcurr = _tmp->curr();
tmpcurr.zero();
if (anal_rows.rows() > 0) //se il movana ha righe... //crea il movana legato al mov
const TAnal_mov anal_mov(mov);
const TRecord_array& anal_rows = anal_mov.body();
for (int j = 1; j <= anal_rows.rows(); j++) //scansiona righe analitiche..
{
const TRectype& anal_row = anal_rows[j];
if (check_cms_cdc_fsc(anal_row))
{ {
for (int j = 1; j <= anal_rows.rows(); j++) //scansiona righe analitiche.. //prende il conto sulla riga analitica e lo confronta con quelli della configurazione
const TString& conto_riga_analitica = anal_row.get(RMOVANA_CODCONTO);
const int gruppo_anal = atoi(conto_riga_analitica.left(3));
const int conto_anal = atoi(conto_riga_analitica.mid(3,3));
const long sottoconto_anal = atol(conto_riga_analitica.mid(6,6));
const TBill conto(gruppo_anal, conto_anal, sottoconto_anal);
if (cerca_costo(conto) || cerca_pagamento(conto))
{ {
const char sezione = anal_row.get_char(RMOVANA_SEZIONE);
const real valore = anal_row.get_real(RMOVANA_IMPORTO);
const TImporto imp(sezione, valore);
if (check_cms_cdc_fsc(anal_rows[j])) //deve aggiungere ora al file temporaneo il record
{ // campi del pagamento che vanno spediti nel file temporaneo
//prende il conto sulla riga analitica e lo confronta con quello della riga iva //codice fornitore e descrizione
const int gruppo_anal = atoi(anal_rows[j].get(RMOVANA_CODCONTO).left(3)); const TString8 codforn = mov.get(MOV_CODCF);
const int conto_anal = atoi(anal_rows[j].get(RMOVANA_CODCONTO).mid(3,3)); tmpcurr.put("CODFORN", codforn);
const long sottoconto_anal = atol(anal_rows[j].get(RMOVANA_CODCONTO).mid(6,6)); TString16 keyclifo;
keyclifo.format("%s|%d", "F", codforn);
const TRectype& rec_clifo = cache().get(LF_CLIFO, keyclifo);
TString80 desforn = rec_clifo.get(CLI_RAGSOC);
tmpcurr.put("DESFORN", desforn);
const TBill conto(gruppo_anal, conto_anal, sottoconto_anal); //nreg,data pagamento,descrizione pagamento
if (cerca_costo(conto) || cerca_pagamento(conto)) tmpcurr.put("NREG", numregcg);
{ tmpcurr.put("DATAREG", mov.get_date(MOV_DATAREG));
const char sezione = anal_rows[j].get_char(RMOVANA_SEZIONE);
const real valore = anal_rows[j].get_real(RMOVANA_IMPORTO); //documento origine
const TImporto imp(sezione, valore); tmpcurr.put("NDOC", mov.get_long(MOV_NUMDOC));
} tmpcurr.put("DATADOC", mov.get_date(MOV_DATADOC));
} tmpcurr.put("PROT", mov.get_long(MOV_PROTIVA));
} //for(j<anal_rows... tmpcurr.put("TOTDOC", mov.get_real(MOV_TOTDOC));
} //if(anal_rows>0... //tmpcurr.put("TOTPAG", distributore.get()); //pagamento nella partita
} //if(numregcg==nreg... // tmpcurr.put("TOTRES", ); //pagamenti precedenti al
} //for(TRecnotype...
//campi relativi a cdc,commessa,fase
tmpcurr.put("CMS",anal_row.get(RMOVANA_CODCMS));
tmpcurr.put("CDC",anal_row.get(RMOVANA_CODCCOSTO));
tmpcurr.put("FSC",anal_row.get(RMOVANA_CODFASE));
// tmpcurr.put("IMPCMS",impcms);
//e finalmente aggiunge il record al file temporaneo
_tmp->write();
}
}
} //for(j<anal_rows...
} //if(items>0...
} }
bool TPag_per_cms_recordset::mov_callback(const TRelation& rel, void* pJolly) bool TPag_per_cms_recordset::mov_callback(const TRelation& rel, void* pJolly)
{ {
TPag_per_cms_recordset* recordset = (TPag_per_cms_recordset*)pJolly; TPag_per_cms_recordset* recordset = (TPag_per_cms_recordset*)pJolly;
const long nreg = rel.curr().get_long(MOV_NUMREG); recordset->find_commesse_cg(rel.curr());
recordset->find_commesse_cg(nreg);
return true; return true;
} }
void TPag_per_cms_recordset::scan_movs(const TPag_per_cms_mask& msk) void TPag_per_cms_recordset::scan_movs()
{ {
if (_campodata == PART_DATAPAG) // I movimenti non hanno DATAPAG if (_campodata == PART_DATAPAG) // I movimenti non hanno DATAPAG
_campodata = PART_DATAREG; _campodata = MOV_DATAREG;
TString filtro = "(REG==\"\")&&(TIPOMOV==\"\")"; TString filtro = "(REG==\"\")&&(TIPOMOV==\"\")";
@ -595,10 +638,6 @@ void TPag_per_cms_recordset::scan_movs(const TPag_per_cms_mask& msk)
TCursor cur(&rel, filtro, 2, &darec, &arec); TCursor cur(&rel, filtro, 2, &darec, &arec);
cur.scan(mov_callback, this, "Movimenti senza saldaconto..."); cur.scan(mov_callback, this, "Movimenti senza saldaconto...");
/* crea_righe_stampa(_righecosti, 1);
crea_righe_stampa(_righepagamenti, 2);
crea_righe_stampa(_righefiscali, 3);
crea_righe_stampa(_righesociali, 4);*/
} }
bool TPag_per_cms_recordset::check_cms_cdc_fsc(const TRectype& rec_analriga) bool TPag_per_cms_recordset::check_cms_cdc_fsc(const TRectype& rec_analriga)
@ -613,15 +652,12 @@ bool TPag_per_cms_recordset::check_cms_cdc_fsc(const TRectype& rec_analriga)
return true; return true;
} }
TString TPag_per_cms_recordset::create_isam_query(const long nreg) const TString& TPag_per_cms_recordset::query_movama_by_numregcg(const long nreg)
{ {
TString query, strnreg; TString& query = get_tmp_string();
strnreg.format("%07ld", nreg);
query << "USE MOVANA KEY 3\n"; query << "USE MOVANA KEY 3\n";
query << "WHERE NUMREGCG="; query << "FROM NUMREGCG=" << nreg << "\n";
query << strnreg; query << "TO NUMREGCG=" << nreg;
query << "\n";
return query; return query;
} }
@ -630,291 +666,294 @@ TString TPag_per_cms_recordset::create_isam_query(const long nreg)
void TPag_per_cms_recordset::find_commesse(const long nreg, const TRectype& riga_pag) void TPag_per_cms_recordset::find_commesse(const long nreg, const TRectype& riga_pag)
{ {
//cerca un record di MOVANA che abbia numregcg = nreg;usa il nuovo metodo fighissimo.. //cerca un record di MOVANA che abbia numregcg = nreg;usa il nuovo metodo fighissimo..
//..con la isam query implementato nella create_isam_query() //..con la isam query implementato nella query_movama_by_numregcg()
TISAM_recordset movana(create_isam_query(nreg)); TISAM_recordset movana(query_movama_by_numregcg(nreg));
const TRecnotype items = movana.items();
for (TRecnotype i = 0; movana.move_to(i); i++) if (items > 0)
{ {
const long numregcg = movana.get(MOVANA_NUMREGCG).as_int(); if (items > 1)
//se trova il record cercato in MOVANA... error_box(TR("Esiste piu' di un movimento analitico collegato al movimento contabile %ld"),nreg);
if (numregcg == nreg)
{
//prepara il record tmpcurr sul file temporaneo _tmp su cui registrare i dati da stampare
TRectype& tmpcurr = _tmp->curr();
tmpcurr.zero();
//crea un movimento p.n. con il numero reg che viene passato al metodo (nreg relativo.. movana.move_last(); //si posiziona sul record corretto
//..ad un movimento della fattura originaria) //prepara il record tmpcurr sul file temporaneo _tmp su cui registrare i dati da stampare
TMovimentoPN pn; TRectype& tmpcurr = _tmp->curr();
pn.curr().put(MOV_NUMREG, nreg); tmpcurr.zero();
if (pn.read() == NOERR)
//crea un movimento p.n. con il numero reg che viene passato al metodo (nreg relativo..
//..ad un movimento della fattura originaria)
TMovimentoPN pn;
pn.curr().put(MOV_NUMREG, nreg);
if (pn.read() == NOERR)
{
const TRectype& movfat = pn.curr();
real totdoc_cms;
real totdoc, totdoc_netto;
TAssoc_array commesse;
//Movimenti CON SALDACONTO
//se movimento IVA..
if (pn.iva_items() > 0)
{ {
const TRectype& movfat = pn.curr(); for (int j = 0; j < pn.iva_items(); j++)
real totdoc_cms;
real totdoc, totdoc_netto;
TAssoc_array commesse;
//Movimenti CON SALDACONTO
//se movimento IVA..
if (pn.iva_items() > 0)
{ {
for (int j = 0; j < pn.iva_items(); j++) const TRectype& rmoviva = pn.iva(j);
const TBill zio(rmoviva);
//il tutto si fa solo se l'indicatore di bilancio del conto nella riga iva e' != 5
if (zio.indicatore_bilancio() != 5)
{ {
const TRectype& rmoviva = pn.iva(j); //e vediamo 'sto conto della riga iva..
const TBill zio(rmoviva); const int gruppo_iva = zio.gruppo();
//il tutto si fa solo se l'indicatore di bilancio del conto nella riga iva e' != 5 const int conto_iva = zio.conto();
if (zio.indicatore_bilancio() != 5) const long sottoconto_iva = zio.sottoconto();
//crea il movana legato al moviva
const TAnal_mov anal_mov(rmoviva);
//trova le RMOVANA del MOVANA corrente che hanno il conto = a quello della i-esima rigaiva
TRecord_array& anal_rows = anal_mov.body();
if (anal_rows.rows() > 0) //se il movana ha righe...
{ {
//e vediamo 'sto conto della riga iva.. real imponibile_iva = rmoviva.get_real(RMI_IMPONIBILE);
const int gruppo_iva = zio.gruppo(); real imposta_iva = rmoviva.get_real(RMI_IMPOSTA);
const int conto_iva = zio.conto(); const real lordo_iva = imponibile_iva + imposta_iva;
const long sottoconto_iva = zio.sottoconto(); //distributore per il lordo iva (che sara' distribuito successivamente in base..
//..agli importi delle righe analitiche corretti per le % iva
TGeneric_distrib agip (lordo_iva, TCurrency::get_firm_dec());
//trova le RMOVANA del MOVANA corrente che hanno il conto = a quello della i-esima rigaiva for (int k = 1; k <= anal_rows.rows(); k++) //scansiona righe analitiche..
TAnal_mov anal_mov(rmoviva);
TRecord_array& anal_rows = anal_mov.body();
if (anal_rows.rows() > 0) //se il movana ha righe...
{ {
real imponibile_iva = rmoviva.get_real(RMI_IMPONIBILE); real perc_ded_iva = UNO; //%iva deducibile (di default 100, a meno del prorata)
real imposta_iva = rmoviva.get_real(RMI_IMPOSTA); if (imposta_iva != ZERO)
const real lordo_iva = imponibile_iva + imposta_iva;
//distributore per il lordo iva (che sara' distribuito successivamente in base..
//..agli importi delle righe analitiche corretti per le % iva
TGeneric_distrib agip (lordo_iva, TCurrency::get_firm_dec());
for (int k = 1; k <= anal_rows.rows(); k++) //scansiona righe analitiche..
{ {
real perc_ded_iva = UNO; //%iva deducibile (di default 100, a meno del prorata) //controllo prorata
if (imposta_iva != ZERO) const TString80 commessa_riga_anal = anal_rows[k].get(RMOVANA_CODCMS);
const TRectype& pla = cache().get(LF_COMMESSE, commessa_riga_anal);
const bool prorata = pla.get_bool("PRORATA");
if (prorata)
{ {
//controllo prorata const TDate datareg = pn.curr().get_date(MOV_DATAREG);
const TString80 commessa_riga_anal = anal_rows[k].get(RMOVANA_CODCMS); const int anno = datareg.year();
const TRectype& pla = cache().get(LF_COMMESSE, commessa_riga_anal); TRegistro registro(pn.curr().get(MOV_REG), anno);
const bool prorata = pla.get_bool("PRORATA"); //%deducibilità iva rivista con il prorata
if (prorata) perc_ded_iva = (CENTO - registro.prorata(anno))/CENTO;
imposta_iva.round(TCurrency::get_firm_dec()); //ci vanno i decimali della ditta
}
} //if imposta_iva...
//prende il conto sulla riga analitica e lo confronta con quello della riga iva
const int gruppo_anal = atoi(anal_rows[k].get(RMOVANA_CODCONTO).left(3));
const int conto_anal = atoi(anal_rows[k].get(RMOVANA_CODCONTO).mid(3,3));
const long sottoconto_anal = atol(anal_rows[k].get(RMOVANA_CODCONTO).mid(6,6));
//il codconto anale e iva coincidono?..
if (gruppo_iva == gruppo_anal && conto_iva == conto_anal && sottoconto_iva == sottoconto_anal)
{
//..in tal caso aggiunge l'importo della riga analitica al distributore, dopo..
//..averlo corretto in base alle % precedentemente calcolate
real importo_anal = anal_rows[k].get_real(RMOVANA_IMPORTO);
const real perc_iva = imposta_iva / imponibile_iva;
const real perc_corretta_iva = perc_iva * (UNO - perc_ded_iva);
importo_anal = importo_anal * (UNO - perc_corretta_iva);
agip.add(importo_anal);
} //if(gruppo_iva==...
} //for (anal_rows...
for (int l = 1; l <= anal_rows.rows(); l++) //..allora le scansiona..
{
//prende il conto sulla riga analitica e lo confronta con quello della riga iva
const int gruppo_anal = atoi(anal_rows[l].get(RMOVANA_CODCONTO).left(3));
const int conto_anal = atoi(anal_rows[l].get(RMOVANA_CODCONTO).mid(3,3));
const long sottoconto_anal = atol(anal_rows[l].get(RMOVANA_CODCONTO).mid(6,6));
//il codconto anale e iva coincidono?
if (gruppo_iva == gruppo_anal && conto_iva == conto_anal && sottoconto_iva == sottoconto_anal)
{
//impoerto
real importo = agip.get();
//commessa,cdc,fase della riga analitica devono essere coincidenti con quelle dello sheet
if (check_cms_cdc_fsc(anal_rows[l]))
{
//costruzione dell'assoc_array 'commesse' con cms/cdc/fsc ed importi
TToken_string cms_cdc_fsc;
cms_cdc_fsc.add(anal_rows[l].get(RMOVANA_CODCMS));
cms_cdc_fsc.add(anal_rows[l].get(RMOVANA_CODCCOSTO));
cms_cdc_fsc.add(anal_rows[l].get(RMOVANA_CODFASE));
real* imp = (real*)commesse.objptr(cms_cdc_fsc);
//aggiunge un elemento all'assoc_array...
if (imp == NULL)
{ {
const TDate datareg = pn.curr().get_date(MOV_DATAREG); imp = new real;
const int anno = datareg.year(); commesse.add(cms_cdc_fsc, imp);
TRegistro registro(pn.curr().get(MOV_REG), anno);
//%deducibilità iva rivista con il prorata
perc_ded_iva = (CENTO - registro.prorata(anno))/CENTO;
imposta_iva.round(TCurrency::get_firm_dec()); //ci vanno i decimali della ditta
} }
} //if imposta_iva... *imp += importo;
totdoc_cms += importo;
//prende il conto sulla riga analitica e lo confronta con quello della riga iva } //if check_cms_cdc_fsc...
const int gruppo_anal = atoi(anal_rows[k].get(RMOVANA_CODCONTO).left(3));
const int conto_anal = atoi(anal_rows[k].get(RMOVANA_CODCONTO).mid(3,3));
const long sottoconto_anal = atol(anal_rows[k].get(RMOVANA_CODCONTO).mid(6,6));
//il codconto anale e iva coincidono?.. } //if(gruppo_iva==...
if (gruppo_iva == gruppo_anal && conto_iva == conto_anal && sottoconto_iva == sottoconto_anal)
{
//..in tal caso aggiunge l'importo della riga analitica al distributore, dopo..
//..averlo corretto in base alle % precedentemente calcolate
real importo_anal = anal_rows[k].get_real(RMOVANA_IMPORTO);
const real perc_iva = imposta_iva / imponibile_iva;
const real perc_corretta_iva = perc_iva * (UNO - perc_ded_iva);
importo_anal = importo_anal * (UNO - perc_corretta_iva);
agip.add(importo_anal); } //for (anal_rows...
} //if(gruppo_iva==...
} //for (anal_rows...
for (int l = 1; l <= anal_rows.rows(); l++) //..allora le scansiona.. } //if anal_rows() > 0...
{ } //if indicatore_bilancio!=5...
//prende il conto sulla riga analitica e lo confronta con quello della riga iva
const int gruppo_anal = atoi(anal_rows[l].get(RMOVANA_CODCONTO).left(3));
const int conto_anal = atoi(anal_rows[l].get(RMOVANA_CODCONTO).mid(3,3));
const long sottoconto_anal = atol(anal_rows[l].get(RMOVANA_CODCONTO).mid(6,6));
//il codconto anale e iva coincidono? } //for (pn.iva_items(...
if (gruppo_iva == gruppo_anal && conto_iva == conto_anal && sottoconto_iva == sottoconto_anal)
{
//impoerto
real importo = agip.get();
//commessa,cdc,fase della riga analitica devono essere coincidenti con quelle dello sheet
if (check_cms_cdc_fsc(anal_rows[l]))
{
//costruzione dell'assoc_array 'commesse' con cms/cdc/fsc ed importi
TToken_string cms_cdc_fsc;
cms_cdc_fsc.add(anal_rows[l].get(RMOVANA_CODCMS));
cms_cdc_fsc.add(anal_rows[l].get(RMOVANA_CODCCOSTO));
cms_cdc_fsc.add(anal_rows[l].get(RMOVANA_CODFASE));
real* imp = (real*)commesse.objptr(cms_cdc_fsc); totdoc = totale_documento(pn.curr()); //tot doc con ritenute fiscali + ritenute sociali (da stampare)
//aggiunge un elemento all'assoc_array... totdoc_netto = pn.curr().get_real(MOV_TOTDOC); //questo si usa solo per il calcolo del residuo
if (imp == NULL) } //if(pn.iva_items(...
{ else //..movimento NON iva (sempre con saldaconto)
imp = new real; {
commesse.add(cms_cdc_fsc, imp); for (int j = 0; j < pn.cg_items(); j++)
}
*imp += importo;
totdoc_cms += importo;
} //if check_cms_cdc_fsc...
} //if(gruppo_iva==...
} //for (anal_rows...
} //if anal_rows() > 0...
} //if indicatore_bilancio!=5...
} //for (pn.iva_items(...
totdoc = totale_documento(pn.curr()); //tot doc con ritenute fiscali + ritenute sociali (da stampare)
totdoc_netto = pn.curr().get_real(MOV_TOTDOC); //questo si usa solo per il calcolo del residuo
} //if(pn.iva_items(...
else //..movimento NON iva (sempre con saldaconto)
{ {
for (int j = 0; j < pn.cg_items(); j++) const TRectype& rmov = pn.cg(j);
const TBill zio_cg(rmov);
TImporto importo(rmov.get_char(RMV_SEZIONE), rmov.get_real(RMV_IMPORTO));
importo.normalize('D');
if (zio_cg.tipo() > ' ')
{ {
const TRectype& rmov = pn.cg(j); totdoc -= importo.valore();
const TBill zio_cg(rmov); totdoc_netto -= importo.valore(); //valore per il calcolo del residuo
TImporto importo(rmov.get_char(RMV_SEZIONE), rmov.get_real(RMV_IMPORTO));
importo.normalize('D');
if (zio_cg.tipo() > ' ')
{
totdoc -= importo.valore();
totdoc_netto -= importo.valore(); //valore per il calcolo del residuo
}
else
if (cerca_fiscali(zio_cg) || cerca_sociali(zio_cg))
totdoc -= importo.valore(); //valore da stampare nella colonna Tot.fattura con ritenute
} //for j < pn.cg_items...
TAnal_mov anal_mov(nreg);
TRecord_array& anal_rows = anal_mov.body();
if (anal_rows.rows() > 0) //se il movana ha righe...
{
for (int k = 1; k <= anal_rows.rows(); k++) //..allora le scansiona..
{
//prende gr/co/sott sulla riga analitica...
const int gruppo_anal = atoi(anal_rows[k].get(RMOVANA_CODCONTO).left(3));
const int conto_anal = atoi(anal_rows[k].get(RMOVANA_CODCONTO).mid(3,3));
const long sottoconto_anal = atol(anal_rows[k].get(RMOVANA_CODCONTO).mid(6,6));
//..e crea il conto contabile corrispondente
TBill conto_cg(gruppo_anal, conto_anal, sottoconto_anal);
//l'indicatore di bilancio del conto contabile appena creato e' valido?
if (conto_cg.indicatore_bilancio() != 5)
{
const real importo_anal = anal_rows[k].get_real(RMOVANA_IMPORTO);
//costruzione dell'assoc_array 'commesse' con cms/cdc/fsc ed importi
TToken_string cms_cdc_fsc;
cms_cdc_fsc.add(anal_rows[k].get(RMOVANA_CODCMS));
cms_cdc_fsc.add(anal_rows[k].get(RMOVANA_CODCCOSTO));
cms_cdc_fsc.add(anal_rows[k].get(RMOVANA_CODFASE));
real* imp = (real*)commesse.objptr(cms_cdc_fsc);
if (imp == NULL)
{
imp = new real;
commesse.add(cms_cdc_fsc, imp);
}
TImporto importo(anal_rows[k].get_char(RMOVANA_SEZIONE), anal_rows[k].get_real(RMOVANA_IMPORTO));
importo.normalize('D');
*imp += importo.valore();
totdoc_cms += importo.valore();
} //if(conto_cg.indicatore...
} //for(k<anal_rows...
} //if(anal_rows>0...
} //else (pn.iva_items(...
//parte comune a movimenti IVA e non (vengono anche qui considerate le ritenute fiscali
//e sociali perche' possono essere state inserite direttamente nella partita e non nel movimento
//(quindi non si puo' in questo caso applicare la totale_documento()
//Le ritenute fiscali vanno sempre sommate..
real totpagato = riga_pag.get_real(PART_IMPORTO) + riga_pag.get_real(PART_RITENUTE);
//Le ritenute sociali invece vanno testate con la test_swap..
const real ritsoc = riga_pag.get_real(PART_RITSOC);
if (!ritsoc.is_zero())
{
const TRectype& mov = pn.curr();
TCausale caus(mov.get(MOV_CODCAUS));
const bool swapt = test_swap(caus, false); // Totale invertito ?
const bool swaps = test_swap(caus, true); // Ritenute sociali invertite ?
if (swapt ^ swaps) // Somma ritenute sociali con segno
totpagato -= ritsoc;
else
totpagato += ritsoc;
}
const real percentuale = totpagato / totdoc_netto;
//calcolo del residuo (solo movimenti saldacontati)
//mi servono,dalla riga partita che viene passata,i valori dei campi per la chiave del
//file delle scadenze
const TPartita match(riga_pag);
//ci serve la riga di fattura che origina la nostra riga pagamento
const int riga_fatt = cerca_riga_fattura_origine(match, riga_pag);
//quanto era stato pagato del documento prima della attuale riga_pag
const real totpagato_prec = calcola_pagato_prec(match, riga_fatt, riga_pag);
const real perc_prec = totpagato_prec / totdoc_netto;
TGeneric_distrib distributore(totdoc_cms * percentuale, TCurrency::get_firm_dec());
TGeneric_distrib distributore_prec(totdoc_cms * perc_prec, TCurrency::get_firm_dec());
{
FOR_EACH_ASSOC_OBJECT(commesse, h, k, imp)
{
const real& impcms = *(real*)imp;
distributore.add(impcms);
distributore_prec.add(impcms); //distributore di importo pagato sulle commesse
} }
} else
if (cerca_fiscali(zio_cg) || cerca_sociali(zio_cg))
totdoc -= importo.valore(); //valore da stampare nella colonna Tot.fattura con ritenute
} //for j < pn.cg_items...
TAnal_mov anal_mov(nreg);
TRecord_array& anal_rows = anal_mov.body();
if (anal_rows.rows() > 0) //se il movana ha righe...
{
for (int k = 1; k <= anal_rows.rows(); k++) //..allora le scansiona..
{
//prende gr/co/sott sulla riga analitica...
const int gruppo_anal = atoi(anal_rows[k].get(RMOVANA_CODCONTO).left(3));
const int conto_anal = atoi(anal_rows[k].get(RMOVANA_CODCONTO).mid(3,3));
const long sottoconto_anal = atol(anal_rows[k].get(RMOVANA_CODCONTO).mid(6,6));
//..e crea il conto contabile corrispondente
TBill conto_cg(gruppo_anal, conto_anal, sottoconto_anal);
//l'indicatore di bilancio del conto contabile appena creato e' valido?
if (conto_cg.indicatore_bilancio() != 5)
{
const real importo_anal = anal_rows[k].get_real(RMOVANA_IMPORTO);
//costruzione dell'assoc_array 'commesse' con cms/cdc/fsc ed importi
TToken_string cms_cdc_fsc;
cms_cdc_fsc.add(anal_rows[k].get(RMOVANA_CODCMS));
cms_cdc_fsc.add(anal_rows[k].get(RMOVANA_CODCCOSTO));
cms_cdc_fsc.add(anal_rows[k].get(RMOVANA_CODFASE));
real* imp = (real*)commesse.objptr(cms_cdc_fsc);
if (imp == NULL)
{
imp = new real;
commesse.add(cms_cdc_fsc, imp);
}
TImporto importo(anal_rows[k].get_char(RMOVANA_SEZIONE), anal_rows[k].get_real(RMOVANA_IMPORTO));
importo.normalize('D');
*imp += importo.valore();
totdoc_cms += importo.valore();
} //if(conto_cg.indicatore...
} //for(k<anal_rows...
} //if(anal_rows>0...
} //else (pn.iva_items(...
//parte comune a movimenti IVA e non (vengono anche qui considerate le ritenute fiscali
//e sociali perche' possono essere state inserite direttamente nella partita e non nel movimento
//(quindi non si puo' in questo caso applicare la totale_documento()
//Le ritenute fiscali vanno sempre sommate..
real totpagato = riga_pag.get_real(PART_IMPORTO) + riga_pag.get_real(PART_RITENUTE);
//Le ritenute sociali invece vanno testate con la test_swap..
const real ritsoc = riga_pag.get_real(PART_RITSOC);
if (!ritsoc.is_zero())
{
const TRectype& mov = pn.curr();
TCausale caus(mov.get(MOV_CODCAUS));
const bool swapt = test_swap(caus, false); // Totale invertito ?
const bool swaps = test_swap(caus, true); // Ritenute sociali invertite ?
if (swapt ^ swaps) // Somma ritenute sociali con segno
totpagato -= ritsoc;
else
totpagato += ritsoc;
}
const real percentuale = totpagato / totdoc_netto;
//calcolo del residuo (solo movimenti saldacontati)
//mi servono,dalla riga partita che viene passata,i valori dei campi per la chiave del
//file delle scadenze
const TPartita match(riga_pag);
//ci serve la riga di fattura che origina la nostra riga pagamento
const int riga_fatt = cerca_riga_fattura_origine(match, riga_pag);
//quanto era stato pagato del documento prima della attuale riga_pag
const real totpagato_prec = calcola_pagato_prec(match, riga_fatt, riga_pag);
const real perc_prec = totpagato_prec / totdoc_netto;
TGeneric_distrib distributore(totdoc_cms * percentuale, TCurrency::get_firm_dec());
TGeneric_distrib distributore_prec(totdoc_cms * perc_prec, TCurrency::get_firm_dec());
{
FOR_EACH_ASSOC_OBJECT(commesse, h, k, imp) FOR_EACH_ASSOC_OBJECT(commesse, h, k, imp)
{ {
const real& impcms = *(real*)imp; const real& impcms = *(real*)imp;
distributore.add(impcms);
distributore_prec.add(impcms); //distributore di importo pagato sulle commesse
}
}
FOR_EACH_ASSOC_OBJECT(commesse, h, k, imp)
{
const real& impcms = *(real*)imp;
// campi del pagamento che vanno spediti nel file temporaneo // campi del pagamento che vanno spediti nel file temporaneo
//codice fornitore e descrizione //codice fornitore e descrizione
const long codforn = riga_pag.get_long(PART_SOTTOCONTO); const long codforn = riga_pag.get_long(PART_SOTTOCONTO);
tmpcurr.put("CODFORN", codforn); tmpcurr.put("CODFORN", codforn);
TString16 keyclifo; TString16 keyclifo;
keyclifo.format("%s|%d", "F", codforn); keyclifo.format("%s|%d", "F", codforn);
const TRectype& rec_clifo = cache().get(LF_CLIFO, keyclifo); const TRectype& rec_clifo = cache().get(LF_CLIFO, keyclifo);
TString80 desforn = rec_clifo.get(CLI_RAGSOC); TString80 desforn = rec_clifo.get(CLI_RAGSOC);
tmpcurr.put("DESFORN", desforn); tmpcurr.put("DESFORN", desforn);
//nreg,data pagamento,descrizione pagamento //nreg,data pagamento,descrizione pagamento
tmpcurr.put("NREG", nreg); tmpcurr.put("NREG", nreg);
tmpcurr.put("DATAPAG", riga_pag.get_date(_campodata)); tmpcurr.put("DATAPAG", riga_pag.get_date(PART_DATAPAG));
tmpcurr.put("DESCRPAG", riga_pag.get(PART_DESCR)); tmpcurr.put("DATAREG", riga_pag.get_date(PART_DATAREG));
tmpcurr.put("DESCRPAG", riga_pag.get(PART_DESCR));
//documento origine //documento origine
tmpcurr.put("NDOC", movfat.get_long(MOV_NUMDOC)); tmpcurr.put("NDOC", movfat.get_long(MOV_NUMDOC));
tmpcurr.put("DATADOC", movfat.get_date(MOV_DATADOC)); tmpcurr.put("DATADOC", movfat.get_date(MOV_DATADOC));
tmpcurr.put("PROT", movfat.get_long(MOV_PROTIVA)); tmpcurr.put("PROT", movfat.get_long(MOV_PROTIVA));
tmpcurr.put("TOTDOC", totdoc); tmpcurr.put("TOTDOC", totdoc);
tmpcurr.put("TOTPAG", distributore.get()); //pagamento nella partita tmpcurr.put("TOTPAG", distributore.get()); //pagamento nella partita
// tmpcurr.put("TOTRES", ); //pagamenti precedenti al //totres = importo da pagare (sulla fattura) - pagamenti precedenti al
tmpcurr.put("TOTRES", impcms - distributore_prec.get());
//campi relativi a cdc,commessa,fase
TToken_string cdc_cms_fsc = k; //campi relativi a cdc,commessa,fase
tmpcurr.put("CMS",cdc_cms_fsc.get(0)); TToken_string cdc_cms_fsc = k;
tmpcurr.put("CDC",cdc_cms_fsc.get(1)); tmpcurr.put("CMS",cdc_cms_fsc.get(0));
tmpcurr.put("FSC",cdc_cms_fsc.get(2)); tmpcurr.put("CDC",cdc_cms_fsc.get(1));
// tmpcurr.put("IMPCMS",impcms); tmpcurr.put("FSC",cdc_cms_fsc.get(2));
//e finalmente aggiunge il record al file temporaneo //e finalmente aggiunge il record al file temporaneo
_tmp->write(); _tmp->write();
} //FOR_EACH_... } //FOR_EACH_...
} //pn.read()... } //pn.read()...
} //if (numregcg==nreg)...
} //for TRecnotype... } //if (items>0...
} }
bool TPag_per_cms_recordset::part_callback(const TRelation& rel, void* pJolly) bool TPag_per_cms_recordset::part_callback(const TRelation& rel, void* pJolly)
@ -928,7 +967,7 @@ bool TPag_per_cms_recordset::part_callback(const TRelation& rel, void* pJolly)
return true; return true;
} }
void TPag_per_cms_recordset::scan_pags(const TPag_per_cms_mask& msk) void TPag_per_cms_recordset::scan_pags()
{ {
//costruzione filtro //costruzione filtro
TRectype filtrec(LF_PARTITE); TRectype filtrec(LF_PARTITE);
@ -958,7 +997,7 @@ void TPag_per_cms_recordset::scan_pags(const TPag_per_cms_mask& msk)
cur.scan(part_callback, this, "Movimenti con saldaconto..."); cur.scan(part_callback, this, "Movimenti con saldaconto...");
} }
void TPag_per_cms_recordset::set_filter(const TPag_per_cms_mask& msk, const int cms_row, const long codfor) void TPag_per_cms_recordset::set_filter(const TPag_per_cms_mask& msk, const int cms_row, const long codfor, const TString& campodata)
{ {
//se esiste il file temporano con tracciato persomalizzato lo cancella e lo ricrea vuoto //se esiste il file temporano con tracciato persomalizzato lo cancella e lo ricrea vuoto
TFilename trr; //file tracciato record TFilename trr; //file tracciato record
@ -968,7 +1007,13 @@ void TPag_per_cms_recordset::set_filter(const TPag_per_cms_mask& msk, const int
trr.ext("trr"); trr.ext("trr");
dbf.ext("dbf"); dbf.ext("dbf");
//scelta tipo data di estrazione (registrazione, documento, pagamento)
//deve stare qui per poter generare la chiave del file temporaneo in base al tipo di data di estrazione
_campodata = campodata;
//stessa cosa per il simpatico codice fornitore
_codfor = codfor;
//crea il file .trr in base ai parametri del metodo //crea il file .trr in base ai parametri del metodo
crea_trr(trr); crea_trr(trr);
//svuota la memoria dal vecchio file temporaneo //svuota la memoria dal vecchio file temporaneo
@ -993,15 +1038,6 @@ void TPag_per_cms_recordset::set_filter(const TPag_per_cms_mask& msk, const int
_codfas = rel.curr().get(RMOVANA_CODFASE); _codfas = rel.curr().get(RMOVANA_CODFASE);
} }
//scelta tipo data di estrazione (registrazione, documento, pagamento)
_campodata = PART_DATAREG;
switch(msk.get_int(F_TIPODATA))
{
case 1:_campodata = PART_DATADOC;break;
case 2:_campodata = PART_DATAPAG;break;
default:break;
}
//lettura eventuali date limite (il controllo sul loro valore sara' nei metodi di costruzione //lettura eventuali date limite (il controllo sul loro valore sara' nei metodi di costruzione
//dei filtri //dei filtri
_dadata = msk.get_date(F_DATAINI); _dadata = msk.get_date(F_DATAINI);
@ -1015,11 +1051,11 @@ void TPag_per_cms_recordset::set_filter(const TPag_per_cms_mask& msk, const int
lettura_conti(_sociali, 'S'); lettura_conti(_sociali, 'S');
//scansione movimenti con saldaconto //scansione movimenti con saldaconto
scan_pags(msk); scan_pags();
//se c'e' un filtro sui fornitori, non si fa lo scan dei movimenti senza saldaconto //se c'e' un filtro sui fornitori, non si fa lo scan dei movimenti senza saldaconto
if (codfor <= 0) if (codfor <= 0)
scan_movs(msk); scan_movs();
} }
//////////////////////////////////////////////////////// ////////////////////////////////////////////////////////
@ -1033,7 +1069,7 @@ protected:
virtual bool get_usr_val(const TString& name, TVariant& var) const; virtual bool get_usr_val(const TString& name, TVariant& var) const;
public: public:
void set_filter(const TPag_per_cms_mask& msk, const int cms_row, const long codfor); void set_filter(const TPag_per_cms_mask& msk, const int cms_row, const long codfor, const TString& campodata);
}; };
@ -1050,7 +1086,7 @@ bool TPag_per_cms_rep::set_recordset(const TString& sql)
} }
void TPag_per_cms_rep::set_filter(const TPag_per_cms_mask& msk, const int cms_row, const long codfor) void TPag_per_cms_rep::set_filter(const TPag_per_cms_mask& msk, const int cms_row, const long codfor, const TString& campodata)
{ {
TAnal_report::set_recordset(NULL); TAnal_report::set_recordset(NULL);
@ -1058,7 +1094,7 @@ void TPag_per_cms_rep::set_filter(const TPag_per_cms_mask& msk, const int cms_ro
TPag_per_cms_recordset* recset = new TPag_per_cms_recordset(query); TPag_per_cms_recordset* recset = new TPag_per_cms_recordset(query);
recset->set_filter(msk, cms_row, codfor); recset->set_filter(msk, cms_row, codfor, campodata);
TAnal_report::set_recordset(recset); TAnal_report::set_recordset(recset);
} }
@ -1071,7 +1107,7 @@ void TPag_per_cms_rep::set_filter(const TPag_per_cms_mask& msk, const int cms_ro
class TPag_per_cms : public TSkeleton_application class TPag_per_cms : public TSkeleton_application
{ {
public: public:
void stampa_per_commessa(const TPag_per_cms_mask& mask, TReport_book& book, TPag_per_cms_rep& rep, const long codfor); void stampa_per_commessa(const TPag_per_cms_mask& mask, TReport_book& book, TPag_per_cms_rep& rep, const long codfor, const TString& campodata);
const TMultilevel_code_info& get_level_one() const; const TMultilevel_code_info& get_level_one() const;
virtual void main_loop(); virtual void main_loop();
}; };
@ -1085,7 +1121,7 @@ const TMultilevel_code_info& TPag_per_cms::get_level_one() const
return ca_multilevel_code_info(logic); return ca_multilevel_code_info(logic);
} }
void TPag_per_cms::stampa_per_commessa(const TPag_per_cms_mask& mask, TReport_book& book, TPag_per_cms_rep& rep, const long codfor) void TPag_per_cms::stampa_per_commessa(const TPag_per_cms_mask& mask, TReport_book& book, TPag_per_cms_rep& rep, const long codfor, const TString& campodata)
{ {
TSheet_field& sheet = mask.sfield(F_RIGHE); TSheet_field& sheet = mask.sfield(F_RIGHE);
TString video_string; //stringa che compare nella progind TString video_string; //stringa che compare nella progind
@ -1111,7 +1147,7 @@ void TPag_per_cms::stampa_per_commessa(const TPag_per_cms_mask& mask, TReport_bo
for (int l = liv1.levels()-2; l >= 0; l--) //se la struttura è a più livelli costruisce la tokenstring for (int l = liv1.levels()-2; l >= 0; l--) //se la struttura è a più livelli costruisce la tokenstring
row.insert("|", liv1.total_len(l)); row.insert("|", liv1.total_len(l));
rep.set_filter(mask, 0, codfor); //fa la set filter sulla prima riga (che è quella usata) rep.set_filter(mask, 0, codfor, campodata); //fa la set filter sulla prima riga (che è quella usata)
book.add(rep); book.add(rep);
} }
sheet.destroy(); //cancella le commesse aggiunte in automatico sullo sheet sheet.destroy(); //cancella le commesse aggiunte in automatico sullo sheet
@ -1120,7 +1156,7 @@ void TPag_per_cms::stampa_per_commessa(const TPag_per_cms_mask& mask, TReport_bo
{ {
FOR_EACH_SHEET_ROW(sheet, r, row) //per ogni cdc/cms che appare nello sheet di pag.1 della msk.. FOR_EACH_SHEET_ROW(sheet, r, row) //per ogni cdc/cms che appare nello sheet di pag.1 della msk..
{ {
rep.set_filter(mask, r, codfor); //..chiama il metodone globale che crea e compila il file.. rep.set_filter(mask, r, codfor, campodata); //..chiama il metodone globale che crea e compila il file..
//..temporaneo i cui dati riempiranno il report //..temporaneo i cui dati riempiranno il report
book.add(rep); //aggiunge il report relativo alla cdc/cms corrente al book book.add(rep); //aggiunge il report relativo alla cdc/cms corrente al book
} }
@ -1149,6 +1185,17 @@ void TPag_per_cms::main_loop()
TPag_per_cms_rep rep; TPag_per_cms_rep rep;
rep.load(path); rep.load(path);
//scelta tipo data di estrazione (registrazione, documento, pagamento)
//viene presa qui perche' serve subito alla set_filter del report prima che venga..
//..utilizzata nel recordset
TString16 campodata = PART_DATAREG;
switch(mask.get_int(F_TIPODATA))
{
case 1:campodata = PART_DATADOC;break;
case 2:campodata = PART_DATAPAG;break;
default:break;
}
const long dacodfor = mask.get_long(F_DACODFOR); const long dacodfor = mask.get_long(F_DACODFOR);
const long acodfor = mask.get_long(F_ACODFOR); const long acodfor = mask.get_long(F_ACODFOR);
@ -1163,11 +1210,11 @@ void TPag_per_cms::main_loop()
for (bool ok = clifo.move_first(); ok; ok = clifo.move_next()) for (bool ok = clifo.move_first(); ok; ok = clifo.move_next())
{ {
const long codforn = clifo.get("CODCF").as_int(); const long codforn = clifo.get("CODCF").as_int();
stampa_per_commessa(mask, book, rep, codforn); stampa_per_commessa(mask, book, rep, codforn, campodata);
} }
} }
else else
stampa_per_commessa(mask, book, rep, 0); //se non si specifica alcun clifo... stampa_per_commessa(mask, book, rep, 0, campodata); //se non si specifica alcun clifo...
book.print_or_preview(); //stampa il book dei report book.print_or_preview(); //stampa il book dei report
} }

65
ca/ca3600a.rep
View File

@ -14,17 +14,18 @@
<field x="155" type="Numero" align="right" width="3" pattern="1"> <field x="155" type="Numero" align="right" width="3" pattern="1">
<source>#REPORT.PAGE</source> <source>#REPORT.PAGE</source>
</field> </field>
<field border="2" x="1" y="2" type="Linea" width="159" height="0" pattern="1" /> <field border="2" x="1" y="2" type="Linea" width="160" height="0" pattern="1" />
<field x="1" y="3.5" type="Testo" align="right" width="7" pattern="1" text="N. Reg." /> <field x="1" y="3.5" type="Testo" align="right" width="7" pattern="1" text="N. Reg." />
<field x="10" y="3.5" type="Testo" align="center" width="11" pattern="1" text="Data pag." /> <field x="10" y="3.5" type="Testo" align="center" width="11" pattern="1" text="Data reg." />
<field x="23" y="3.5" type="Testo" width="25" pattern="1" text="Descrizione pagamento" /> <field x="21" y="3.5" type="Testo" align="center" width="11" pattern="1" text="Data pag." />
<field x="69" y="3.5" type="Testo" align="center" width="7" pattern="1" text="N. doc." /> <field x="33" y="3.5" type="Testo" width="25" pattern="1" text="Descrizione pagamento" />
<field x="84" y="3.5" type="Testo" align="center" width="10" pattern="1" text="Data doc." /> <field x="79" y="3.5" type="Testo" align="center" width="7" pattern="1" text="N. doc." />
<field x="97.5" y="3.5" type="Testo" width="5" pattern="1" text="Prot." /> <field x="94" y="3.5" type="Testo" align="center" width="10" pattern="1" text="Data doc." />
<field x="104" y="3.5" type="Testo" align="right" width="18" pattern="1" text="Totale documento" /> <field x="107.5" y="3.5" type="Testo" width="5" pattern="1" text="Prot." />
<field x="123" y="3.5" type="Testo" align="right" width="18" pattern="1" text="Totale pagamento" /> <field x="114" y="3.5" type="Testo" align="right" width="15" pattern="1" text="Tot. documento" />
<field x="142" y="3.5" type="Testo" align="right" width="18" pattern="1" text="Totale residuo" /> <field x="130" y="3.5" type="Testo" align="right" width="15" pattern="1" text="Tot. pagamento" />
<field border="1" x="1" y="4.5" type="Linea" width="159" height="0" pattern="1" /> <field x="146" y="3.5" type="Testo" align="right" width="15" pattern="1" text="Tot. residuo" />
<field border="1" x="1" y="4.5" type="Linea" width="160" height="0" pattern="1" />
</section> </section>
<section type="Head" level="1" height="9"> <section type="Head" level="1" height="9">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.101 <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.101
@ -144,32 +145,35 @@ MESSAGE RESET,F3.103</prescript>
<section type="Body" /> <section type="Body" />
<section type="Body" level="1"> <section type="Body" level="1">
<condition>HIDDEN!='X'</condition> <condition>HIDDEN!='X'</condition>
<field x="10" type="Data" width="10" pattern="1"> <field x="9" type="Data" width="10" pattern="1">
<source>DATAREG</source>
</field>
<field x="21" type="Data" width="10" pattern="1">
<source>DATAPAG</source> <source>DATAPAG</source>
</field> </field>
<field x="22" type="Stringa" width="50" pattern="1"> <field x="33" type="Stringa" width="50" pattern="1">
<source>DESCRPAG</source> <source>DESCRPAG</source>
</field> </field>
<field x="74" type="Stringa" width="7" pattern="1"> <field x="84" type="Stringa" width="7" pattern="1">
<source>NDOC</source> <source>NDOC</source>
</field> </field>
<field x="84" type="Data" width="10" pattern="1"> <field x="94" type="Data" width="10" pattern="1">
<source>DATADOC</source> <source>DATADOC</source>
</field> </field>
<field x="97" type="Numero" align="right" width="5" pattern="1"> <field x="107" type="Numero" align="right" width="5" pattern="1">
<source>PROT</source> <source>PROT</source>
</field> </field>
<field x="104" type="Valuta" align="right" width="18" pattern="1" text="###.###.###,@@"> <field x="114" type="Valuta" align="right" width="15" pattern="1" text="###.###.###,@@">
<source>TOTDOC</source> <source>TOTDOC</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F2.101 <postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F2.101
MESSAGE ADD,F3.101</postscript> MESSAGE ADD,F3.101</postscript>
</field> </field>
<field x="123" type="Valuta" align="right" width="18" pattern="1" text="###.###.###,@@"> <field x="130" type="Valuta" align="right" width="15" pattern="1" text="###.###.###,@@">
<source>TOTPAG</source> <source>TOTPAG</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F2.102 <postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F2.102
MESSAGE ADD,F3.102</postscript> MESSAGE ADD,F3.102</postscript>
</field> </field>
<field x="142" type="Valuta" align="right" width="18" pattern="1" text="###.###.###,@@"> <field x="146" type="Valuta" align="right" width="15" pattern="1" text="###.###.###,@@">
<source>TOTRES</source> <source>TOTRES</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F2.103 <postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F2.103
MESSAGE ADD,F3.103</postscript> MESSAGE ADD,F3.103</postscript>
@ -200,51 +204,50 @@ MESSAGE ADD,F3.103</postscript>
</section> </section>
<section type="Foot" /> <section type="Foot" />
<section type="Foot" level="1"> <section type="Foot" level="1">
<field border="2" x="1" y="0.5" type="Linea" width="159" height="0" pattern="1" /> <field border="2" x="1" y="0.5" type="Linea" width="160" height="0" pattern="1" />
<field x="73" y="1" type="Testo" width="30" pattern="1" text="TOTALE PER COMMESSA:"> <field x="73" y="1" type="Testo" width="30" pattern="1" text="TOTALE PER COMMESSA:">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
</field> </field>
<field x="104" y="1" type="Valuta" align="right" width="18" id="101" pattern="1" text="###.###.###,@@"> <field x="114" y="1" type="Valuta" align="right" width="15" id="101" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
</field> </field>
<field x="123" y="1" type="Valuta" align="right" width="18" id="102" pattern="1" text="###.###.###,@@"> <field x="130" y="1" type="Valuta" align="right" width="15" id="102" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
</field> </field>
<field x="142" y="1" type="Valuta" align="right" width="18" id="103" pattern="1" text="###.###.###,@@"> <field x="146" y="1" type="Valuta" align="right" width="15" id="103" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
</field> </field>
</section> </section>
<section type="Foot" level="2" height="2.5"> <section type="Foot" level="2" height="2.5">
<field border="1" x="1" y="0.5" type="Linea" width="159" height="0" pattern="1" /> <field border="1" x="1" y="0.5" type="Linea" width="160" height="0" pattern="1" />
<field x="80" y="1" type="Testo" width="25" pattern="1" text="Totale per fornitore:"> <field x="80" y="1" type="Testo" width="25" pattern="1" text="Totale per fornitore:">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
</field> </field>
<field x="104" y="1" type="Valuta" align="right" width="18" id="101" pattern="1" text="###.###.###,@@"> <field x="114" y="1" type="Valuta" align="right" width="15" id="101" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
<postscript description="F2.101 POSTSCRIPT">MESSAGE ADD,F1.101</postscript> <postscript description="F2.101 POSTSCRIPT">MESSAGE ADD,F1.101</postscript>
</field> </field>
<field x="123" y="1" type="Valuta" align="right" width="18" id="102" pattern="1" text="###.###.###,@@"> <field x="130" y="1" type="Valuta" align="right" width="15" id="102" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
<postscript description="F2.102 POSTSCRIPT">MESSAGE ADD,F1.102</postscript> <postscript description="F2.102 POSTSCRIPT">MESSAGE ADD,F1.102</postscript>
</field> </field>
<field x="142" y="1" type="Valuta" align="right" width="18" id="103" pattern="1" text="###.###.###,@@"> <field x="146" y="1" type="Valuta" align="right" width="15" id="103" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
<postscript description="F2.103 POSTSCRIPT">MESSAGE ADD,F1.103</postscript> <postscript description="F2.103 POSTSCRIPT">MESSAGE ADD,F1.103</postscript>
</field> </field>
</section> </section>
<section type="Foot" level="3"> <section type="Foot" level="3">
<prescript description="F3 PRESCRIPT">0 #B1.100 !</prescript> <prescript description="F3 PRESCRIPT">0 #B1.100 !</prescript>
<field border="1" x="1" y="0.5" type="Linea" width="159" height="0" pattern="1" /> <field x="80" y="0.5" type="Testo" width="20" pattern="1" text="Totale per fase:">
<field x="80" y="1" type="Testo" width="20" pattern="1" text="Totale per fase:">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
</field> </field>
<field x="104" y="1" type="Valuta" align="right" width="18" id="101" pattern="1" text="###.###.###,@@"> <field x="114" y="0.5" type="Valuta" align="right" width="15" id="101" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
</field> </field>
<field x="123" y="1" type="Valuta" align="right" width="18" id="102" pattern="1" text="###.###.###,@@"> <field x="130" y="0.5" type="Valuta" align="right" width="15" id="102" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
</field> </field>
<field x="142" y="1" type="Valuta" align="right" width="18" id="103" pattern="1" text="###.###.###,@@"> <field x="146" y="0.5" type="Valuta" align="right" width="15" id="103" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
</field> </field>
</section> </section>

10
ca/calib02.cpp
View File

@ -940,7 +940,7 @@ const TSaldanal& ca_saldo(const TAnal_bill& bill, const TDate& dal, const TDate&
// TAnal_report_mask // TAnal_report_mask
//////////////////////////////////////////////////////// ////////////////////////////////////////////////////////
bool TAnal_report_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) bool TAnal_report_mask::on_field_event(TOperable_field& , TField_event , long )
{ {
return true; return true;
} }
@ -950,11 +950,11 @@ int TAnal_report_mask::create_sheet_fields(short sheet_id, int lf, int& y, short
TSheet_field& sf = sfield(sheet_id); TSheet_field& sf = sfield(sheet_id);
TMask& sm = sf.sheet_mask(); TMask& sm = sf.sheet_mask();
const int h = ca_create_fields(sm, 0, lf, 1, y, dlg, dlg+50); const int h = ca_create_fields(sm, 0, lf, 1, y, dlg, short(dlg+50));
for (int i = 0; i < h; i++) for (int i = 0; i < h; i++)
{ {
TEdit_field& fld = sm.efield(dlg+i); TEdit_field& fld = sm.efield(short(dlg+i));
int logic = lf; int logic = lf;
if (logic == LF_FASI) if (logic == LF_FASI)
{ {
@ -981,12 +981,12 @@ int TAnal_report_mask::create_sheet_fields(short sheet_id, int lf, int& y, short
fld.check_type(CHECK_SEARCH); //search e non normal perchè nelle.. fld.check_type(CHECK_SEARCH); //search e non normal perchè nelle..
//..stampe non si vuole la fase legata alla commessa/cdc //..stampe non si vuole la fase legata alla commessa/cdc
TEdit_field& dfld = sm.efield(dlg+50+i); TEdit_field& dfld = sm.efield(short(dlg+50+i));
dfld.set_field(EMPTY_STRING); // Toglie campi che fan saltare gli output! dfld.set_field(EMPTY_STRING); // Toglie campi che fan saltare gli output!
} }
y += h+1; y += h+1;
dlg += h; dlg = short(dlg+h);
return h; return h;
} }