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

Patch level :2.2 172

Browse Source 
Files correlati     :stampa rendiconto
Ricompilazione Demo : [ ]
Commento            :
Aggiornate le maschere di tutti i programmi sfruttando i metodi in calib02.
Sistemato report rendiconto secondo nuove adolfiche richieste.
sistemata stampa mastrini: adesso stampa più di una commessa ed i casi particolari (ancora da aggiornare il caso dei soli movimentati).


git-svn-id: svn://10.65.10.50/trunk@13334 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2005-09-06 17:58:13 +00:00
parent 78395f3bca
commit 0ffb4993aa
11 changed files with 184 additions and 393 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

111
ca/ca3100.cpp
View File

@ -9,11 +9,12 @@
#include "ca3100.h" #include "ca3100.h"
#include "calib01.h" #include "calib01.h"
#include "calib02.h" #include "calib02.h"
#include "camask.h"
//////////////////////////////////////////////////////// ////////////////////////////////////////////////////////
// MASCHERA // MASCHERA
//////////////////////////////////////////////////////// ////////////////////////////////////////////////////////
class TPrint_movimenti_ca_mask : public TAutomask class TPrint_movimenti_ca_mask : public TAnal_report_mask
{ {
protected: protected:
bool on_field_event(TOperable_field& o, TField_event e, long jolly); bool on_field_event(TOperable_field& o, TField_event e, long jolly);
@ -117,113 +118,9 @@ bool TPrint_movimenti_ca_mask::on_field_event(TOperable_field& o, TField_event e
return true; return true;
} }
int TPrint_movimenti_ca_mask::create_page2_sheet(int lf, int& y, short& dlg, bool required)
{
TSheet_field& sf = sfield(F_RIGHE);
TMask& sm = sf.sheet_mask();
const int h = ca_create_fields(sm, 0, lf, 1, y, dlg, dlg+50);
for (int i = 0; i < h; i++)
{
TEdit_field& fld = sm.efield(dlg+i);
int logic = lf;
if (logic == LF_FASI)
{
const TMultilevel_code_info& fasinfo = ca_multilevel_code_info(LF_FASI);
if (fasinfo.parent() != 0)
{
const TMultilevel_code_info& parinfo = ca_multilevel_code_info(fasinfo.parent());
if (i < parinfo.levels())
logic = fasinfo.parent();
}
}
const char* fieldname = NULL;
switch(logic)
{
case LF_CDC : fieldname = RMOVANA_CODCCOSTO; break;
case LF_COMMESSE: fieldname = RMOVANA_CODCMS; break;
case LF_FASI : fieldname = RMOVANA_CODFASE; break;
default : fieldname = RMOVANA_CODCONTO; break;
}
TFieldref* f = (TFieldref*)fld.field();
f->set_name(fieldname);
fld.check_type(required ? CHECK_REQUIRED : CHECK_NORMAL);
TEdit_field& dfld = sm.efield(dlg+50+i);
dfld.set_field(EMPTY_STRING); // Toglie campi che fan saltare gli output!
}
y += h+1;
dlg += h;
return h;
}
void TPrint_movimenti_ca_mask::create_page2()
{
TSheet_field& sf = sfield(F_RIGHE);
TMask& sm = sf.sheet_mask();
sm.hide(-1);
const TMultilevel_code_info& fasinfo = ca_multilevel_code_info(LF_FASI);
TConfig_anal ini;
const bool fsc_req = ini.get_bool("FscRequired");
int y = 1;
short dlg = S_CDC1 + 100; // id del primo campo da generare
for (int i = 0; i < 2; i++)
{
const TString& level = ini.get("Level", NULL, i+1); // Legge il livello 1 o 2
if (level == "CDC") // Crea centro di costo
{
if (fasinfo.parent() == LF_CDC)
create_page2_sheet(LF_FASI, y, dlg, fsc_req);
else
{
const bool cdc_req = ini.get_bool("CdcRequired");
create_page2_sheet(LF_CDC, y, dlg, cdc_req);
}
} else
if (level == "CMS") // Crea commessa
{
if (fasinfo.parent() == LF_COMMESSE)
create_page2_sheet(LF_FASI, y, dlg, fsc_req);
else
{
const bool cms_req = ini.get_bool("CmsRequired");
create_page2_sheet(LF_COMMESSE, y, dlg, cms_req);
}
}
}
if (fasinfo.levels() > 0 && fasinfo.parent() <= 0)
create_page2_sheet(LF_FASI, y, dlg, fsc_req);
for (short id = S_CDC12+100; id >= S_CDC1+100; id--)
{
const int pos = sm.id2pos(id);
if (pos >= 0)
{
TMask_field& f = sm.fld(pos);
const int size = f.size();
const TString& prompt = f.prompt();
sf.set_column_header(id, prompt);
sf.set_column_justify(id, f.is_kind_of(CLASS_REAL_FIELD));
sf.set_column_width(id, (max(3+size, prompt.len()+1)) * CHARX);
}
else
sf.delete_column(id);
}
}
TPrint_movimenti_ca_mask::TPrint_movimenti_ca_mask() TPrint_movimenti_ca_mask::TPrint_movimenti_ca_mask()
:TAutomask("ca3100") :TAnal_report_mask("ca3100")
{ {
TConfig_anal cfg; TConfig_anal cfg;
const bool use_pdcc = cfg.get_bool("UsePdcc"); const bool use_pdcc = cfg.get_bool("UsePdcc");
@ -231,7 +128,7 @@ TPrint_movimenti_ca_mask::TPrint_movimenti_ca_mask()
const int logicnum = use_pdcc ? LF_PCON : LF_PCONANA; const int logicnum = use_pdcc ? LF_PCON : LF_PCONANA;
// creazione dei campi della seconda pagina della maschera // creazione dei campi della seconda pagina della maschera
create_page2(); create_sheet(F_RIGHE);
} }

1
ca/ca3100.uml
View File

@ -1,4 +1,5 @@
#include "ca3100.h" #include "ca3100.h"
#include "camask.h"
TOOLBAR "" 0 -3 0 3 TOOLBAR "" 0 -3 0 3

286
ca/ca3200.cpp
View File

@ -13,18 +13,18 @@
#include "ca3200.h" #include "ca3200.h"
#include "calib01.h" #include "calib01.h"
#include "calib02.h" #include "calib02.h"
#include "camask.h"
//////////////////////////////////////////////////////// ////////////////////////////////////////////////////////
// MASCHERA // MASCHERA
//////////////////////////////////////////////////////// ////////////////////////////////////////////////////////
class TPrint_mastrini_ca_mask : public TAutomask class TPrint_mastrini_ca_mask : public TAnal_report_mask
{ {
protected: protected:
bool on_field_event(TOperable_field& o, TField_event e, long jolly); bool on_field_event(TOperable_field& o, TField_event e, long jolly);
const TString& get_report_class() const; const TString& get_report_class() const;
bool test_compatible_report(); bool test_compatible_report();
void create_page2();
int create_page2_sheet(int lf, int& y, short& dlg, bool required);
public: public:
TPrint_mastrini_ca_mask(); TPrint_mastrini_ca_mask();
virtual ~TPrint_mastrini_ca_mask() {} virtual ~TPrint_mastrini_ca_mask() {}
@ -115,120 +115,16 @@ bool TPrint_mastrini_ca_mask::on_field_event(TOperable_field& o, TField_event e,
return true; return true;
} }
int TPrint_mastrini_ca_mask::create_page2_sheet(int lf, int& y, short& dlg, bool required)
{
TSheet_field& sf = sfield(F_RIGHE);
TMask& sm = sf.sheet_mask();
const int h = ca_create_fields(sm, 0, lf, 1, y, dlg, dlg+50);
for (int i = 0; i < h; i++)
{
TEdit_field& fld = sm.efield(dlg+i);
int logic = lf;
if (logic == LF_FASI)
{
const TMultilevel_code_info& fasinfo = ca_multilevel_code_info(LF_FASI);
if (fasinfo.parent() != 0)
{
const TMultilevel_code_info& parinfo = ca_multilevel_code_info(fasinfo.parent());
if (i < parinfo.levels())
logic = fasinfo.parent();
}
}
const char* fieldname = NULL;
switch(logic)
{
case LF_CDC : fieldname = RMOVANA_CODCCOSTO; break;
case LF_COMMESSE: fieldname = RMOVANA_CODCMS; break;
case LF_FASI : fieldname = RMOVANA_CODFASE; break;
default : fieldname = RMOVANA_CODCONTO; break;
}
TFieldref* f = (TFieldref*)fld.field();
f->set_name(fieldname);
fld.check_type(required ? CHECK_REQUIRED : CHECK_NORMAL);
TEdit_field& dfld = sm.efield(dlg+50+i);
dfld.set_field(EMPTY_STRING); // Toglie campi che fan saltare gli output!
}
y += h+1;
dlg += h;
return h;
}
void TPrint_mastrini_ca_mask::create_page2()
{
TSheet_field& sf = sfield(F_RIGHE);
TMask& sm = sf.sheet_mask();
sm.hide(-1);
const TMultilevel_code_info& fasinfo = ca_multilevel_code_info(LF_FASI);
TConfig_anal ini;
const bool fsc_req = ini.get_bool("FscRequired");
int y = 1;
short dlg = S_CDC1 + 100; // id del primo campo da generare
for (int i = 0; i < 2; i++)
{
const TString& level = ini.get("Level", NULL, i+1); // Legge il livello 1 o 2
if (level == "CDC") // Crea centro di costo
{
if (fasinfo.parent() == LF_CDC)
create_page2_sheet(LF_FASI, y, dlg, fsc_req);
else
{
const bool cdc_req = ini.get_bool("CdcRequired");
create_page2_sheet(LF_CDC, y, dlg, cdc_req);
}
} else
if (level == "CMS") // Crea commessa
{
if (fasinfo.parent() == LF_COMMESSE)
create_page2_sheet(LF_FASI, y, dlg, fsc_req);
else
{
const bool cms_req = ini.get_bool("CmsRequired");
create_page2_sheet(LF_COMMESSE, y, dlg, cms_req);
}
}
}
if (fasinfo.levels() > 0 && fasinfo.parent() <= 0)
create_page2_sheet(LF_FASI, y, dlg, fsc_req);
for (short id = S_CDC12+100; id >= S_CDC1+100; id--)
{
const int pos = sm.id2pos(id);
if (pos >= 0)
{
TMask_field& f = sm.fld(pos);
const int size = f.size();
const TString& prompt = f.prompt();
sf.set_column_header(id, prompt);
sf.set_column_justify(id, f.is_kind_of(CLASS_REAL_FIELD));
sf.set_column_width(id, (max(3+size, prompt.len()+1)) * CHARX);
}
else
sf.delete_column(id);
}
}
TPrint_mastrini_ca_mask::TPrint_mastrini_ca_mask() TPrint_mastrini_ca_mask::TPrint_mastrini_ca_mask()
:TAutomask("ca3200") :TAnal_report_mask("ca3200")
{ {
TConfig_anal cfg; TConfig_anal cfg;
const bool use_pdcc = cfg.get_bool("UsePdcc"); const bool use_pdcc = cfg.get_bool("UsePdcc");
const int logicnum = use_pdcc ? LF_PCON : LF_PCONANA; const int logicnum = use_pdcc ? LF_PCON : LF_PCONANA;
const int nfields = ca_create_fields(*this, 0, logicnum, 2, 4, F_CDC1_INI, F_DES1_INI, 0x0, "#DACONTO"); const int nfields = ca_create_fields(*this, 1, logicnum, 2, 4, F_CDC1_INI, F_DES1_INI, 0x0, "#DACONTO");
ca_create_fields(*this, 0, logicnum, 2, 10, F_CDC1_FIN, F_DES1_FIN, 0x0, "#ACONTO"); ca_create_fields(*this, 1, logicnum, 2, 10, F_CDC1_FIN, F_DES1_FIN, 0x0, "#ACONTO");
for (int i = 0; i < nfields; i++) for (int i = 0; i < nfields; i++)
{ {
@ -240,7 +136,7 @@ TPrint_mastrini_ca_mask::TPrint_mastrini_ca_mask()
aconto.check_type(CHECK_NORMAL); aconto.check_type(CHECK_NORMAL);
} }
// creazione dei campi della seconda pagina della maschera // creazione dei campi della seconda pagina della maschera
create_page2(); create_sheet(F_RIGHE);
} }
@ -325,10 +221,17 @@ void TPrint_mastrini_ca_recordset::set_custom_filter(TCursor& cur) const
{ {
//filtro sui conti selezionati sulla maschera //filtro sui conti selezionati sulla maschera
TRectype darec(cur.curr()), arec(cur.curr()); //record corrente (rmovana (solo movimentati)) TRectype darec(cur.curr()), arec(cur.curr()); //record corrente (rmovana (solo movimentati))
darec.put(RMOVANA_CODCONTO, _daconto);
darec.put(RMOVANA_DATACOMP, _dadata); if (_daconto.not_empty())
arec.put(RMOVANA_CODCONTO, _aconto); darec.put(RMOVANA_CODCONTO, _daconto);
arec.put(RMOVANA_DATACOMP, _adata); if (_dadata.ok())
darec.put(RMOVANA_DATACOMP, _dadata);
if (_aconto.not_empty())
arec.put(RMOVANA_CODCONTO, _aconto);
if (_adata.ok())
arec.put(RMOVANA_DATACOMP, _adata);
cur.setregion(darec, arec); cur.setregion(darec, arec);
myself = this; myself = this;
@ -496,106 +399,83 @@ void TPrint_mastrini_ca_alternative_recordset::set_filter(const TPrint_mastrini_
_tipoconti = msk.get_int(F_TIPOCONTI); _tipoconti = msk.get_int(F_TIPOCONTI);
//scandisce il piano dei conti analitico creando un cursore con i conti nell'intervallo scelto sulla maschera //scandisce il piano dei conti analitico creando un cursore con i conti nell'intervallo scelto sulla maschera
TRelation rel_pconana(LF_PCONANA); TPconana_recordset pconana;
pconana.set_filter(' ', _daconto, _aconto, _codcosto, _codcms, _codfas,
_dadata, _adata, _tipimov, _tipoconti==1, _tipoconti==2);
TRectype daconto(LF_PCONANA); const long pconana_items = pconana.items();
daconto.put(PCONANA_CODCONTO, _daconto);
TRectype aconto(LF_PCONANA);
aconto.put(PCONANA_CODCONTO, _aconto);
//solo i gr/co/sottoc completi interessano!!!
int contolen = 0;
const TMultilevel_code_info& info = ca_multilevel_code_info(LF_PCONANA);
for (int l = info.levels()-1; l >= 0; l--)
contolen += info.len(l);
TString filtro;
filtro << "LEN(CODCONTO)==" << contolen;
TCursor cur_pconana(&rel_pconana, filtro, 1, &daconto, &aconto);
const long pconana_items = cur_pconana.items();
cur_pconana.freeze();
TProgind pi(pconana_items, "Scansione conti..."); TProgind pi(pconana_items, "Scansione conti...");
TRelation rel_rmovana(LF_RMOVANA);
rel_rmovana.add(LF_MOVANA, "NUMREG==NUMREG"); //aggiunge le testate x avere i tipi mov.
TRectype da_rmovana(LF_RMOVANA);
da_rmovana.put(RMOVANA_DATACOMP, _dadata);
TRectype a_rmovana(LF_RMOVANA);
a_rmovana.put(RMOVANA_DATACOMP, _adata);
TString filtro;
if (_codcosto.not_empty())
filtro << "(" << RMOVANA_CODCCOSTO << "==\"" << _codcosto << "\")";
if (_codcms.not_empty())
{
if (filtro.not_empty())
filtro << "&&";
filtro << "(" << RMOVANA_CODCMS << "==\"" << _codcms << "\")";
}
if (_codfas.not_empty())
{
if (filtro.not_empty())
filtro << "&&";
filtro << "(" << RMOVANA_CODFASE << "==\"" << _codfas << "\")";
}
//scandisce il piano dei conti.. //scandisce il piano dei conti..
for (cur_pconana = 0; cur_pconana.pos() < pconana_items; ++cur_pconana) for (TRecnotype j = 0; pconana.move_to(j); j++)
{ {
pi.addstatus(1); pi.addstatus(1);
TRectype& current_pconana_rec = cur_pconana.curr(); const TString& conto = pconana.get(PCONANA_CODCONTO).as_string();
const TString conto = current_pconana_rec.get(PCONANA_CODCONTO);
bool aggiungi = true; //..crea un cursore su rmovana per vedere se i conti selezionati hanno veri movimenti che soddisfano
if (_tipoconti == 2) //se si è scelto di stampare solo quelli con saldo != 0... //i parametri del filtro sulla maschera
da_rmovana.put(RMOVANA_CODCONTO, conto);
a_rmovana.put(RMOVANA_CODCONTO, conto);
TCursor cur_rmovana(&rel_rmovana, filtro, 2, &da_rmovana, &a_rmovana);
const long rmovana_items = cur_rmovana.items();
cur_rmovana.freeze();
bool almeno_uno_aggiunto = false;
if (rmovana_items > 0)
{ {
const TImporto& saldo_fin = saldo_finale(conto); for (cur_rmovana = 0; cur_rmovana.pos() < rmovana_items; ++cur_rmovana)
aggiungi = !saldo_fin.is_zero();
}
if (aggiungi) //se il conto va aggiunto (casi: conti con saldo !=0 trovato, tutti i conti comunque)..
{
TRelation rel_rmovana(LF_RMOVANA);
rel_rmovana.add(LF_MOVANA, "NUMREG==NUMREG"); //aggiunge le testate x avere i tipi mov.
//..crea un cursore su rmovana per vedere se i conti selezionati hanno veri movimenti che soddisfano
//i parametri del filtro sulla maschera
TRectype da_rmovana(LF_RMOVANA);
da_rmovana.put(RMOVANA_CODCONTO, conto);
da_rmovana.put(RMOVANA_DATACOMP, _dadata);
TRectype a_rmovana(LF_RMOVANA);
a_rmovana.put(RMOVANA_CODCONTO, conto);
a_rmovana.put(RMOVANA_DATACOMP, _adata);
TString filtro;
if (_codcosto.not_empty())
filtro << "(" << RMOVANA_CODCCOSTO << "==\"" << _codcosto << "\")";
if (_codcms.not_empty())
{ {
if (filtro.not_empty()) //deve coincidere anche il tipomov! sarebbe stato troppo semplice...
filtro << "&&"; const char tipomov = rel_rmovana.curr(LF_MOVANA).get_char(MOVANA_TIPOMOV);
filtro << "(" << RMOVANA_CODCMS << "==\"" << _codcms << "\")"; int tipomov_int = 0;
} switch (tipomov)
if (_codfas.not_empty())
{
if (filtro.not_empty())
filtro << "&&";
filtro << "(" << RMOVANA_CODFASE << "==\"" << _codfas << "\")";
}
TCursor cur_rmovana(&rel_rmovana, filtro, 2, &da_rmovana, &a_rmovana);
const long rmovana_items = cur_rmovana.items();
cur_rmovana.freeze();
bool almeno_uno_aggiunto = false;
if (rmovana_items > 0)
{
for (cur_rmovana = 0; cur_rmovana.pos() < rmovana_items; ++cur_rmovana)
{ {
//deve coincidere anche il tipomov! sarebbe stato troppo semplice... case 'P': tipomov_int = 2; break;
const char tipomov = rel_rmovana.curr(LF_MOVANA).get_char(MOVANA_TIPOMOV); case 'V': tipomov_int = 4; break;
int tipomov_int = 0; default: tipomov_int = 1; break;
switch (tipomov) }
{ if ((_tipimov & tipomov_int) != 0)
case 'P': tipomov_int = 2; break; {
case 'V': tipomov_int = 4; break; _tmp_rmovana->write(cur_rmovana.curr()); // aggiunge i record al file temporaneo
default: tipomov_int = 1; break; almeno_uno_aggiunto = true;
}
if ((_tipimov & tipomov_int) != 0)
{
_tmp_rmovana->write(cur_rmovana.curr()); // aggiunge i record al file temporaneo
almeno_uno_aggiunto = true;
}
} }
} }
//se non ha aggiunto nemmeno un record valido.. }
//crea un record di rmovana con il solo conto,datacomp e lo aggiunge al file temporaneo //se non ha aggiunto nemmeno un record valido..
if (!almeno_uno_aggiunto) //crea un record di rmovana con il solo conto,datacomp e lo aggiunge al file temporaneo
{ if (!almeno_uno_aggiunto)
TRectype fake_rmovana_rec(LF_RMOVANA); {
fake_rmovana_rec.put(RMOVANA_CODCONTO, conto); TRectype fake_rmovana_rec(LF_RMOVANA);
fake_rmovana_rec.put(RMOVANA_DATACOMP, _dadata); fake_rmovana_rec.put(RMOVANA_CODCONTO, conto);
_tmp_rmovana->write(fake_rmovana_rec); fake_rmovana_rec.put(RMOVANA_DATACOMP, _dadata);
} _tmp_rmovana->write(fake_rmovana_rec);
}
} //end if aggiungi
} //end for su pconana_items } //end for su pconana_items
} }
@ -621,6 +501,8 @@ bool TPrint_mastrini_ca_rep::set_recordset(const TString& sql)
void TPrint_mastrini_ca_rep::set_filter(const TPrint_mastrini_ca_mask& msk, int cms_row) void TPrint_mastrini_ca_rep::set_filter(const TPrint_mastrini_ca_mask& msk, int cms_row)
{ {
TReport::set_recordset(NULL); //forza azzeramento file anal.dbf prima di ricostruirlo
const int tipoconti = msk.get_int(F_TIPOCONTI); const int tipoconti = msk.get_int(F_TIPOCONTI);
TPrint_mastrini_ca_recordset* recset = NULL; TPrint_mastrini_ca_recordset* recset = NULL;

43
ca/ca3200.uml
View File

@ -1,4 +1,5 @@
#include "ca3200.h" #include "ca3200.h"
#include "camask.h"
TOOLBAR "" 0 -3 0 3 TOOLBAR "" 0 -3 0 3
@ -21,6 +22,27 @@ END
ENDPAGE ENDPAGE
PAGE "Selezioni" -1 -1 78 20
SPREADSHEET F_RIGHE -1 -2
BEGIN
PROMPT 0 2 ""
ITEM "Cdc1"
ITEM "Cdc2"
ITEM "Cdc3"
ITEM "Cdc4"
ITEM "Cdc5"
ITEM "Cdc6"
ITEM "Cdc7"
ITEM "Cdc8"
ITEM "Cdc9"
ITEM "Cdc10"
ITEM "Cdc11"
ITEM "Cdc12"
END
ENDPAGE
PAGE "Parametri stampa" -1 -1 78 20 PAGE "Parametri stampa" -1 -1 78 20
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
@ -123,27 +145,6 @@ END
ENDPAGE ENDPAGE
PAGE "Selezioni" -1 -1 78 20
SPREADSHEET F_RIGHE -1 -2
BEGIN
PROMPT 0 2 ""
ITEM "Cdc1"
ITEM "Cdc2"
ITEM "Cdc3"
ITEM "Cdc4"
ITEM "Cdc5"
ITEM "Cdc6"
ITEM "Cdc7"
ITEM "Cdc8"
ITEM "Cdc9"
ITEM "Cdc10"
ITEM "Cdc11"
ITEM "Cdc12"
END
ENDPAGE
ENDMASK ENDMASK
PAGE "Riga" -1 -1 78 19 PAGE "Riga" -1 -1 78 19

21
ca/ca3700.cpp
View File

@ -318,7 +318,6 @@ void TPrint_rendiconto_ca_recordset::set_custom_filter(TCursor& cur) const
cur.setfilter(filtro); cur.setfilter(filtro);
myself = (TPrint_rendiconto_ca_recordset*)this; myself = (TPrint_rendiconto_ca_recordset*)this;
//cur.set_filterfunction(mov_filter, true);
} }
//metodo per il calcolo del budget PREVENTIVO o VARIAZIONE (sezione di raggruppamento sul report) //metodo per il calcolo del budget PREVENTIVO o VARIAZIONE (sezione di raggruppamento sul report)
@ -537,14 +536,14 @@ void TPrint_rendiconto_ca_recordset::scrive_riga(const TRectype& rmovana, const
codnum_desc = movana.get(MOVANA_DCODNUM); //serve anche in fondo al metodo codnum_desc = movana.get(MOVANA_DCODNUM); //serve anche in fondo al metodo
tmpcurr.put("CODNUM", codnum_desc); //codnum del documento che origina il movana tmpcurr.put("CODNUM", codnum_desc); //codnum del documento che origina il movana
tmpcurr.put("ANNO", movana.get(MOVANA_DANNO)); //anno del doc di origine tmpcurr.put("ANNO", movana.get(MOVANA_DANNO)); //anno del doc di origine
tmpcurr.put("NUMRD", movana.get(MOVANA_DNDOC)); // tmpcurr.put("NUMRD", movana.get(MOVANA_DNDOC)); //numero del doc che origina movana
tmpcurr.put("DATA", newdoc->get(DOC_DATADOC)); //data del documento che genera movana.. tmpcurr.put("DATA", newdoc->get(DOC_DATADOC)); //data del documento che genera movana..
} //..non esiste il campo in movana } //..non esiste il campo in movana
else //movimento normale (senza documento) else //movimento normale (senza documento)
{ {
tmpcurr.put("CODNUM", movana.get(MOVANA_CODCAUS)); //mette la causale del movimento tmpcurr.put("CODNUM", movana.get(MOVANA_CODCAUS)); //mette la causale del movimento
tmpcurr.put("ANNO", movana.get(MOVANA_ANNOES)); //anno del movimento tmpcurr.put("ANNO", movana.get(MOVANA_ANNOES)); //anno del movimento
tmpcurr.put("NUMRD", movana.get(MOVANA_NUMREG)); //numreg del movana tmpcurr.put("NUMRD", movana.get(MOVANA_NUMREGCG)); //numregcg del movana
tmpcurr.put("DATA", movana.get(MOVANA_DATACOMP)); //data del movana tmpcurr.put("DATA", movana.get(MOVANA_DATACOMP)); //data del movana
} }
@ -619,7 +618,7 @@ F=IMF*/
selettore = FATTURATO; selettore = FATTURATO;
selettore |= MATURATO; selettore |= MATURATO;
selettore |= IMPEGNATO; selettore |= IMPEGNATO;
} } //if(newdoc != NULL)
//****modificare il metodo per accelerare //****modificare il metodo per accelerare
const char sezione = rmovana.get_char(RMOVANA_SEZIONE); const char sezione = rmovana.get_char(RMOVANA_SEZIONE);
@ -636,7 +635,12 @@ F=IMF*/
if (tipoiva == iva_acquisti) if (tipoiva == iva_acquisti)
sezione_normale = 'D'; sezione_normale = 'D';
else else
sezione_normale = 'D'; //questo in preparazione di casi futuri {
if (caus.sezione_clifo() == 'D')
sezione_normale = 'A';
else
sezione_normale = 'D';
}
imp.normalize(sezione_normale); imp.normalize(sezione_normale);
@ -656,6 +660,8 @@ F=IMF*/
descr.ltrim(pos+1); descr.ltrim(pos+1);
descr.trim(); descr.trim();
} }
tmpcurr.put("NUMREG", rmovana.get(RMOVANA_NUMREG));
tmpcurr.put("DESC", descr); //descrizione movana tmpcurr.put("DESC", descr); //descrizione movana
tmpcurr.put("NRIGA", rmovana.get(RMOVANA_NUMRIG)); //numero riga tmpcurr.put("NRIGA", rmovana.get(RMOVANA_NUMRIG)); //numero riga
tmpcurr.put("DESCRIGA", rmovana.get(RMOVANA_DESCR)); //descrizione rmovana tmpcurr.put("DESCRIGA", rmovana.get(RMOVANA_DESCR)); //descrizione rmovana
@ -892,12 +898,13 @@ void TPrint_rendiconto_ca_recordset::crea_trr(const TFilename& trr) const
{ {
ofstream of(trr); ofstream of(trr);
of << 1000 << endl; of << 1000 << endl;
of << 15 << endl; of << 16 << 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 << "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 contabile o numero documento di origine" << endl;
of << "NRIGA|2|3|0|Riga movimento o documento" << endl; of << "NRIGA|2|3|0|Riga movimento o documento" << endl;
of << "NUMREG|3|7|0|Numero registrazione del movimento analitico" << endl;
of << "ANNO|9|4|0|Anno" << 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;

16
ca/ca3700.h
View File

@ -2,13 +2,13 @@
#define __CA3700_H #define __CA3700_H
//pagina 1 //pagina 1
#define F_CODDITTA 251 #define F_CODDITTA 251
#define F_RAGSOC 252 #define F_RAGSOC 252
#define F_DATASTAMPA 253 #define F_DATASTAMPA 253
#define F_ANNO 254 #define F_ANNO 254
#define F_REPORT 255 #define F_REPORT 255
#define F_DATAINI 256 #define F_DATAINI 256
#define F_DATAFIN 257 #define F_DATAFIN 257
//campi generati dai piani dei conti //campi generati dai piani dei conti
#define F_PIANO 319 #define F_PIANO 319
@ -45,7 +45,7 @@
#define F_PANDES4_FIN 368 #define F_PANDES4_FIN 368
//sheet di pagina 2 //sheet di pagina 2
#define F_RIGHE 260 #define F_RIGHE 260
#endif // __CA3700_H #endif // __CA3700_H

1
ca/ca3700.uml
View File

@ -1,4 +1,5 @@
#include "ca3700.h" #include "ca3700.h"
#include "camask.h"
TOOLBAR "" 0 -3 0 3 TOOLBAR "" 0 -3 0 3

69
ca/ca3700a.rep
View File

@ -15,21 +15,22 @@
<source>#REPORT.PAGE</source> <source>#REPORT.PAGE</source>
</field> </field>
<field border="2" x="1" y="2" type="Linea" width="169" height="0" pattern="1" /> <field border="2" x="1" y="2" type="Linea" width="169" height="0" pattern="1" />
<field x="31" y="2.5" type="Testo" width="23" pattern="1" text="Doc. cliente&#2F;fornitore" /> <field x="39" y="2.5" type="Testo" width="23" pattern="1" text="Doc. cliente&#2F;fornitore" />
<field x="109" y="2.5" type="Testo" align="center" width="12" pattern="1" text="Riferimento" /> <field x="117" y="2.5" type="Testo" align="center" width="12" pattern="1" text="Riferimento" />
<field x="141" y="2.5" type="Testo" width="25" pattern="1" text="Avanzamento costi&#2F;ricavi" /> <field x="141" y="2.5" type="Testo" width="25" pattern="1" text="Avanzamento costi&#2F;ricavi" />
<field x="20" y="3.5" type="Testo" align="center" width="11" pattern="1" text="Data" /> <field x="18.5" y="3.5" type="Testo" width="7" pattern="1" text="N. Reg." />
<field x="31" y="3.5" type="Testo" align="center" width="6" pattern="1" text="Numero" /> <field x="27" y="3.5" type="Testo" align="center" width="11" pattern="1" text="Data" />
<field x="41" y="3.5" type="Testo" align="center" width="10" pattern="1" text="Data" /> <field x="38" y="3.5" type="Testo" align="center" width="6" pattern="1" text="Numero" />
<field x="51" y="3.5" type="Testo" width="25" pattern="1" text="Descrizione testata" /> <field x="47" y="3.5" type="Testo" align="center" width="10" pattern="1" text="Data" />
<field x="77" y="3.5" type="Testo" width="4" pattern="1" text="Riga" /> <field x="59" y="3.5" type="Testo" width="25" pattern="1" text="Descrizione testata" />
<field x="82" y="3.5" type="Testo" width="15" pattern="1" text="Descrizione riga" /> <field x="85" y="3.5" type="Testo" width="4" pattern="1" text="Riga" />
<field x="109" y="3.5" type="Testo" align="center" width="12" pattern="1" text="Ordine&#2F;Bolla" /> <field x="90" y="3.5" type="Testo" width="15" pattern="1" text="Descrizione riga" />
<field x="123" y="3.5" type="Testo" align="right" width="15" pattern="1" text="Fatturato" /> <field x="117" y="3.5" type="Testo" align="center" width="12" pattern="1" text="Ordine&#2F;Bolla" />
<field x="139" y="3.5" type="Testo" align="right" width="15" pattern="1" text="Maturato" /> <field x="132" y="3.5" type="Testo" align="right" width="12" pattern="1" text="Fatturato" />
<field x="155" y="3.5" type="Testo" align="right" width="15" pattern="1" text="Impegnato" /> <field x="145" y="3.5" type="Testo" align="right" width="12" pattern="1" text="Maturato" />
<field x="158" y="3.5" type="Testo" align="right" width="12" pattern="1" text="Impegnato" />
<field border="1" x="1" y="4.5" type="Linea" width="169" height="0" pattern="1" /> <field border="1" x="1" y="4.5" type="Linea" width="169" height="0" pattern="1" />
<field x="1" y="3.5" type="Testo" width="20" id="121" pattern="1" text="Riferimento Contabile" /> <field x="1" y="3.5" type="Testo" width="15" id="121" pattern="1" text="Rif. Contabile" />
</section> </section>
<section type="Head" level="1" height="11"> <section type="Head" level="1" height="11">
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.101 <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.101
@ -174,36 +175,39 @@ MESSAGE RESET,F2.103</prescript>
</section> </section>
<section type="Body" /> <section type="Body" />
<section type="Body" level="1"> <section type="Body" level="1">
<field x="20" type="Data" width="10" pattern="1"> <field x="19" type="Stringa" width="7" pattern="1">
<source>NUMREG</source>
</field>
<field x="28" type="Data" width="10" pattern="1">
<source>DATA</source> <source>DATA</source>
</field> </field>
<field x="31" type="Stringa" width="7" pattern="1"> <field x="39" type="Stringa" width="7" pattern="1">
<source>NUMDOCRIF</source> <source>NUMDOCRIF</source>
</field> </field>
<field x="40" type="Data" width="10" pattern="1"> <field x="48" type="Data" width="10" pattern="1">
<source>DATADOCRIF</source> <source>DATADOCRIF</source>
</field> </field>
<field x="51" type="Stringa" dynamic_height="1" width="25" height="2" pattern="1"> <field x="59" type="Stringa" dynamic_height="1" width="25" height="2" pattern="1">
<source>DESC</source> <source>DESC</source>
</field> </field>
<field x="78" type="Numero" align="right" width="3" pattern="1"> <field x="86" type="Numero" align="right" width="3" pattern="1">
<source>NRIGA</source> <source>NRIGA</source>
</field> </field>
<field x="82" type="Stringa" dynamic_height="1" width="25" height="2" pattern="1"> <field x="90" type="Stringa" dynamic_height="1" width="25" height="2" pattern="1">
<source>DESCRIGA</source> <source>DESCRIGA</source>
</field> </field>
<field x="108" type="Stringa" align="right" dynamic_height="1" width="14" height="2" pattern="1"> <field x="116" type="Stringa" align="right" dynamic_height="1" width="14" height="2" pattern="1">
<source>DOCORIG</source> <source>DOCORIG</source>
</field> </field>
<field x="123" type="Valuta" align="right" width="15" pattern="1" text="###.###.###,@@"> <field x="132" type="Valuta" align="right" width="12" pattern="1" text="###.###.###,@@">
<source>FATTURATO</source> <source>FATTURATO</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F2.101</postscript> <postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F2.101</postscript>
</field> </field>
<field x="139" type="Valuta" align="right" width="15" pattern="1" text="###.###.###,@@"> <field x="145" type="Valuta" align="right" width="12" pattern="1" text="###.###.###,@@">
<source>MATURATO</source> <source>MATURATO</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F2.102</postscript> <postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F2.102</postscript>
</field> </field>
<field x="155" type="Valuta" align="right" width="15" pattern="1" text="###.###.###,@@"> <field x="158" type="Valuta" align="right" width="12" pattern="1" text="###.###.###,@@">
<source>IMPEGNATO</source> <source>IMPEGNATO</source>
<postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F2.103</postscript> <postscript description="B1.0 POSTSCRIPT">MESSAGE ADD,F2.103</postscript>
</field> </field>
@ -243,37 +247,36 @@ MESSAGE RESET,F2.103</prescript>
<section type="Foot" level="1" /> <section type="Foot" level="1" />
<section type="Foot" level="2" height="4"> <section type="Foot" level="2" height="4">
<field border="1" x="1" y="0.5" type="Linea" width="169" height="0" pattern="1" /> <field border="1" x="1" y="0.5" type="Linea" width="169" height="0" pattern="1" />
<field x="81" y="1" type="Testo" width="42" pattern="1" text="Totale fatturato, maturato, impegnato &#3E;&#3E;&#3E;"> <field x="90" y="1" type="Testo" width="42" pattern="1" text="Totale fatturato, maturato, impegnato &#3E;&#3E;&#3E;">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
</field> </field>
<field x="81" y="2.5" type="Testo" width="42" pattern="1" text="Da fatturare, maturare, impegnare &#3E;&#3E;&#3E;"> <field x="90" y="2.5" type="Testo" width="42" pattern="1" text="Da fatturare, maturare, impegnare &#3E;&#3E;&#3E;">
<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="15" id="101" pattern="1" text="###.###.###,@@"> <field x="132" y="1" type="Valuta" align="right" width="12" 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="139" y="1" type="Valuta" align="right" width="15" id="102" pattern="1" text="###.###.###,@@"> <field x="145" y="1" type="Valuta" align="right" width="12" 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="155" y="1" type="Valuta" align="right" width="15" id="103" pattern="1" text="###.###.###,@@"> <field x="158" y="1" type="Valuta" align="right" width="12" id="103" 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="2.5" type="Valuta" align="right" width="15" id="201" pattern="1" text="###.###.###,@@"> <field x="132" y="2.5" type="Valuta" align="right" width="12" id="201" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
<source>#103-#101</source> <source>#103-#101</source>
</field> </field>
<field x="139" y="2.5" type="Valuta" align="right" width="15" id="202" pattern="1" text="###.###.###,@@"> <field x="145" y="2.5" type="Valuta" align="right" width="12" id="202" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
<source>#103-#102</source> <source>#103-#102</source>
</field> </field>
<field x="155" y="2.5" type="Valuta" align="right" width="15" id="203" pattern="1" text="###.###.###,@@"> <field x="158" y="2.5" type="Valuta" align="right" width="12" id="203" pattern="1" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" /> <font face="Courier New" bold="1" size="8" />
<source>#H2.103-#103</source> <source>#H2.103-#103</source>
</field> </field>
</section> </section>
<section type="Foot" level="3"> <section type="Foot" level="3">
<prescript description="F3 PRESCRIPT">0 <prescript description="F3 PRESCRIPT">0 #B1.100 !</prescript>
#B1.100 !</prescript>
</section> </section>
<sql>USE 1000</sql> <sql>USE 1000</sql>
</report> </report>

1
ca/calib02.cpp
View File

@ -2,6 +2,7 @@
#include "calib01.h" #include "calib01.h"
#include "calib02.h" #include "calib02.h"
#include "camask.h"
#include "../cg/cglib01.h" #include "../cg/cglib01.h"

15
ca/calib02.h
View File

@ -132,21 +132,6 @@ public: // meglio pubic?
// TAnal_rapport_mask // TAnal_rapport_mask
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
//elementi dello sheet di selezione CdC/Cms/Fas
#define S_CDC1 101
#define S_CDC2 102
#define S_CDC3 103
#define S_CDC4 104
#define S_CDC5 105
#define S_CDC6 106
#define S_CDC7 107
#define S_CDC8 108
#define S_CDC9 109
#define S_CDC10 110
#define S_CDC11 111
#define S_CDC12 112
class TAnal_report_mask : public TAutomask class TAnal_report_mask : public TAutomask
{ {
protected: protected:

13
ca/camask.h Executable file
View File

@ -0,0 +1,13 @@
//elementi dello sheet di selezione CdC/Cms/Fas
#define S_CDC1 101
#define S_CDC2 102
#define S_CDC3 103
#define S_CDC4 104
#define S_CDC5 105
#define S_CDC6 106
#define S_CDC7 107
#define S_CDC8 108
#define S_CDC9 109
#define S_CDC10 110
#define S_CDC11 111
#define S_CDC12 112