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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
stampa registro sintetico cespiti con filtro analitico funzionante (ma secondo me inutile)


git-svn-id: svn://10.65.10.50/trunk@20556 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-06-09 10:23:22 +00:00
parent 877eeb1880
commit 6bc84c0a2e
3 changed files with 180 additions and 145 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
ce/ce3900.cpp
View File

@ -105,9 +105,11 @@ TStampa_sintetica_mask::TStampa_sintetica_mask() : TAutomask("ce3900"), _preview
/////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////
// RECORDSET // RECORDSET
/////////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////////
class TStampa_sintetica_recordset : public TISAM_recordset class TStampa_sintetica_recordset : public TISAM_recordset
{ {
protected:
virtual void set_custom_filter(TCursor& cursor) const;
public: public:
void set_filter(const TStampa_sintetica_mask& msk); void set_filter(const TStampa_sintetica_mask& msk);
TStampa_sintetica_recordset(const TString& sql) : TISAM_recordset(sql) { } TStampa_sintetica_recordset(const TString& sql) : TISAM_recordset(sql) { }
@ -115,6 +117,43 @@ public:
static const TStampa_sintetica_recordset* myself = NULL; static const TStampa_sintetica_recordset* myself = NULL;
static bool percutil_func(const TRelation* rel)
{
const long dacat = myself->get_var("#DACAT").as_int();
const long acat = myself->get_var("#ACAT").as_int();
if (dacat > 0L || acat > 0L)
{
const long cespi_cat = rel->curr().get_long(CESPI_CODCAT);
if (cespi_cat < dacat || (acat > 0L && cespi_cat > acat))
return false;
}
const TString16 idcespite = rel->curr().get(CESPI_IDCESPITE);
const int codes = myself->get_var("#CODES").as_int();
const TString& codcdc = myself->get_var("#CODCDC").as_string();
const TString& codcms = myself->get_var("#CODCMS").as_string();
const TString& codfase = myself->get_var("#CODFASE").as_string();
const real percutil = ceca_percutil(idcespite, codes, codcdc, codcms, codfase);
return percutil > ZERO;
}
void TStampa_sintetica_recordset::set_custom_filter(TCursor& cursor) const
{
const TString& codcdc = get_var("#CODCDC").as_string();
const TString& codcms = get_var("#CODCMS").as_string();
const TString& codfase = get_var("#CODFASE").as_string();
if (codcdc.full() || codcms.full() || codfase.full())
{
myself = this;
cursor.set_filterfunction(percutil_func);
}
else
{
myself = NULL;
cursor.set_filterfunction(NULL);
}
}
//metodo per caricare i valori nel recordset dalla maschera...fighissimo!! //metodo per caricare i valori nel recordset dalla maschera...fighissimo!!
void TStampa_sintetica_recordset::set_filter(const TStampa_sintetica_mask& msk) void TStampa_sintetica_recordset::set_filter(const TStampa_sintetica_mask& msk)
{ {
@ -133,32 +172,10 @@ void TStampa_sintetica_recordset::set_filter(const TStampa_sintetica_mask& msk)
if (dacat.full() || acat.full()) if (dacat.full() || acat.full())
{ {
if (dacat == acat) if (dacat == acat)
query << "&&(CODCAT==" << dacat << ")"; query << "&&(STR(CODCAT==#DACAT))";
else else
query << "&&(BETWEEN(CODCAT," << dacat << ',' << acat << "))"; query << "&&(STR(BETWEEN(CODCAT,#DACAT,#ACAT)))";
} }
//parte analitica
const TString& codcdc = msk.get(F_CODCDC);
const TString& codcms = msk.get(F_CODCMS);
const TString& codfase = msk.get(F_CODFASE);
if (codcdc.full() || codcms.full() || codfase.full())
{
query << "&&";
if (codcdc.full())
query << "(BETWEEN(SALCECMS.CODCDC,#CODCDC,#CODCDC))&&";
if (codcms.full())
query << "(BETWEEN(SALCECMS.CODCMS,#CODCMS,#CODCMS))&&";
if (codfase.full())
query << "(BETWEEN(SALCECMS.CODFASE,#CODFASE,#CODFASE))&&";
query.rtrim(2);
query << "\nJOIN SALCECMS INTO IDCESPITE=IDCESPITE";
}
//ordinamenti //ordinamenti
query << "\nBY CODCAT|CODIMP|CODLOC|IDCESPITE"; query << "\nBY CODCAT|CODIMP|CODLOC|IDCESPITE";
@ -169,13 +186,20 @@ void TStampa_sintetica_recordset::set_filter(const TStampa_sintetica_mask& msk)
if (exclude_aliens) if (exclude_aliens)
set_var("#DATAINIZIO", msk.get_date(F_DATAINIZIO).date2ansi()); set_var("#DATAINIZIO", msk.get_date(F_DATAINIZIO).date2ansi());
//set var condizionali in analitica //parte analitica
const int codes = msk.get_int(F_ESERCIZIO);
const TString& codcdc = msk.get(F_CODCDC);
const TString& codcms = msk.get(F_CODCMS);
const TString& codfase = msk.get(F_CODFASE);
set_var("#CODES", long(codes), true);
set_var("#DACAT", dacat, true);
set_var("#ACAT", acat, true);
if (codcdc.full()) if (codcdc.full())
set_var("#CODCDC", codcdc); set_var("#CODCDC", codcdc, true);
if (codcms.full()) if (codcms.full())
set_var("#CODCMS", codcms); set_var("#CODCMS", codcms, true);
if (codfase.full()) if (codfase.full())
set_var("#CODFASE", codfase); set_var("#CODFASE", codfase, true);
} }
@ -226,7 +250,9 @@ void TStampa_sintetica_rep::set_filter(const TStampa_sintetica_mask& msk)
_codcms = msk.get(F_CODCMS); _codcms = msk.get(F_CODCMS);
_codfase = msk.get(F_CODFASE); _codfase = msk.get(F_CODFASE);
((TStampa_sintetica_recordset*) recordset())->set_filter(msk); TStampa_sintetica_recordset* rs = new TStampa_sintetica_recordset(EMPTY_STRING);
set_recordset(rs);
rs->set_filter(msk);
} }
real TStampa_sintetica_rep::val_amm(const TRectype& rec_saldi) const real TStampa_sintetica_rep::val_amm(const TRectype& rec_saldi) const

214
ce/ce3900a.rep
View File

@ -2,29 +2,29 @@
<report name="ce3900a" orientation="2" lpi="6"> <report name="ce3900a" orientation="2" lpi="6">
<description>Registro cespiti sintetico</description> <description>Registro cespiti sintetico</description>
<font face="Arial Narrow" size="8" /> <font face="Arial Narrow" size="8" />
<section type="Head"> <section type="Head" pattern="1">
<font face="Arial Narrow" bold="1" size="8" /> <font face="Arial Narrow" bold="1" size="8" />
<field x="18.5" y="0.5" type="Testo" align="center" width="10" text="Date" /> <field x="18.5" y="0.5" type="Testo" align="center" width="10" pattern="1" text="Date" />
<field x="83" y="0.5" type="Testo" align="center" width="8" text="Valori" /> <field x="83" y="0.5" type="Testo" align="center" width="8" pattern="1" text="Valori" />
<field x="124" y="0.5" type="Testo" width="20" text="Fondo Ammortamento" /> <field x="124" y="0.5" type="Testo" width="20" pattern="1" text="Fondo Ammortamento" />
<field x="157" y="0.75" type="Testo" align="right" width="12" text="Residuo da" /> <field x="157" y="0.75" type="Testo" align="right" width="12" pattern="1" text="Residuo da" />
<field x="1" y="1.5" type="Testo" width="10" text="Codice" /> <field x="1" y="1.5" type="Testo" width="10" pattern="1" text="Codice" />
<field x="11" y="1.5" type="Testo" width="10" text="Alienazione" /> <field x="11" y="1.5" type="Testo" width="10" pattern="1" text="Alienazione" />
<field x="21" y="1.5" type="Testo" width="10" text="Acquisto" /> <field x="21" y="1.5" type="Testo" width="10" pattern="1" text="Acquisto" />
<field x="31" y="1.5" type="Testo" width="10" text="Entr. Funz." /> <field x="31" y="1.5" type="Testo" width="10" pattern="1" text="Entr. Funz." />
<field x="41" y="1.5" type="Testo" width="28" text="Descrizione" /> <field x="41" y="1.5" type="Testo" width="28" pattern="1" text="Descrizione" />
<field x="66" y="1.5" type="Testo" align="right" width="12" text="Iniziale" /> <field x="66" y="1.5" type="Testo" align="right" width="12" pattern="1" text="Iniziale" />
<field x="78" y="1.5" type="Testo" align="right" width="12" text="Variazione" /> <field x="78" y="1.5" type="Testo" align="right" width="12" pattern="1" text="Variazione" />
<field x="90" y="1.5" type="Testo" align="right" width="12" text="Finale" /> <field x="90" y="1.5" type="Testo" align="right" width="12" pattern="1" text="Finale" />
<field x="102.5" y="1.5" type="Testo" align="right" width="6" text="%Amm" /> <field x="102.5" y="1.5" type="Testo" align="right" width="6" pattern="1" text="%Amm" />
<field x="109" y="1.5" type="Testo" align="right" width="12" text="Es. corr." /> <field x="109" y="1.5" type="Testo" align="right" width="12" pattern="1" text="Es. corr." />
<field x="121" y="1.5" type="Testo" align="right" width="12" text="Fine es.prec" /> <field x="121" y="1.5" type="Testo" align="right" width="12" pattern="1" text="Fine es.prec" />
<field x="133" y="1.5" type="Testo" align="right" width="12" text="Cessioni" /> <field x="133" y="1.5" type="Testo" align="right" width="12" pattern="1" text="Cessioni" />
<field x="145" y="1.5" type="Testo" align="right" width="12" text="Totale" /> <field x="145" y="1.5" type="Testo" align="right" width="12" pattern="1" text="Totale" />
<field x="157" y="1.5" type="Testo" align="right" width="12" text="ammortizzare" /> <field x="157" y="1.5" type="Testo" align="right" width="12" pattern="1" text="ammortizzare" />
<field border="1" x="1" y="2.5" type="Linea" width="168" height="0" /> <field border="1" x="1" y="2.5" type="Linea" width="168" height="0" pattern="1" />
</section> </section>
<section type="Head" level="1"> <section type="Head" level="1" pattern="1">
<font face="Arial" size="8" /> <font face="Arial" size="8" />
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.103 <prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.103
MESSAGE RESET,F1.102 MESSAGE RESET,F1.102
@ -36,26 +36,26 @@ MESSAGE RESET,F1.107</prescript>
<field border="1" radius="100" x="12" y="0.5" type="Testo" valign="center" align="center" shade_offset="25" width="148" height="2.5" pattern="2" text="REGISTRO CESPITI SINTETICO"> <field border="1" radius="100" x="12" y="0.5" type="Testo" valign="center" align="center" shade_offset="25" width="148" height="2.5" pattern="2" text="REGISTRO CESPITI SINTETICO">
<font face="Times New Roman" bold="1" size="16" /> <font face="Times New Roman" bold="1" size="16" />
</field> </field>
<field border="2" x="1" y="4" type="Linea" width="168" height="0" /> <field border="2" x="1" y="4" type="Linea" width="168" height="0" pattern="1" />
<field x="1" y="4.5" type="Stringa" width="50"> <field x="1" y="4.5" type="Stringa" width="50" pattern="1">
<font italic="1" face="Arial" bold="1" size="8" /> <font italic="1" face="Arial" bold="1" size="8" />
<source>#SYSTEM.RAGSOC</source> <source>#SYSTEM.RAGSOC</source>
</field> </field>
<field x="58.5" y="4.5" type="Testo" width="14" text="Data stampa:"> <field x="58.5" y="4.5" type="Testo" width="14" pattern="1" text="Data stampa:">
<font italic="1" face="Arial" size="8" /> <font italic="1" face="Arial" size="8" />
</field> </field>
<field x="72.5" y="4.5" type="Data" width="11"> <field x="72.5" y="4.5" type="Data" width="11" pattern="1">
<font italic="1" face="Arial" bold="1" size="8" /> <font italic="1" face="Arial" bold="1" size="8" />
<source>#SYSTEM.DATE</source> <source>#SYSTEM.DATE</source>
</field> </field>
<field x="93" y="4.5" type="Testo" width="7" text="Anno:"> <field x="93" y="4.5" type="Testo" width="7" pattern="1" text="Anno:">
<font italic="1" face="Arial" size="8" /> <font italic="1" face="Arial" size="8" />
</field> </field>
<field x="100" y="4.5" type="Numero" align="right" width="5"> <field x="100" y="4.5" type="Numero" align="right" width="5" pattern="1">
<font italic="1" face="Arial" bold="1" size="8" /> <font italic="1" face="Arial" bold="1" size="8" />
<source>#ANNO</source> <source>#ANNO</source>
</field> </field>
<field x="117" y="4.5" type="Array" width="25"> <field x="117" y="4.5" type="Array" width="25" pattern="1">
<font italic="1" face="Arial" bold="1" size="8" /> <font italic="1" face="Arial" bold="1" size="8" />
<source>#SITUAZIONE</source> <source>#SITUAZIONE</source>
<list> <list>
@ -64,24 +64,24 @@ MESSAGE RESET,F1.107</prescript>
<li Value="Situazione Gestionale" Code="3" /> <li Value="Situazione Gestionale" Code="3" />
</list> </list>
</field> </field>
<field x="1" y="6.5" type="Testo" width="12" text="Centro di costo"> <field x="1" y="6.5" type="Testo" width="12" pattern="1" text="Centro di costo">
<font italic="1" face="Arial" size="8" /> <font italic="1" face="Arial" size="8" />
</field> </field>
<field x="13" y="6.5" type="Stringa" width="15"> <field x="13" y="6.5" type="Stringa" width="15" pattern="1">
<font face="Arial" bold="1" size="8" /> <font face="Arial" bold="1" size="8" />
<source>#CODCDC</source> <source>#CODCDC</source>
</field> </field>
<field x="35" y="6.5" type="Testo" width="10" text="Commessa"> <field x="35" y="6.5" type="Testo" width="10" pattern="1" text="Commessa">
<font italic="1" face="Arial" size="8" /> <font italic="1" face="Arial" size="8" />
</field> </field>
<field x="45" y="6.5" type="Stringa" width="15"> <field x="45" y="6.5" type="Stringa" width="15" pattern="1">
<font face="Arial" bold="1" size="8" /> <font face="Arial" bold="1" size="8" />
<source>#CODCMS</source> <source>#CODCMS</source>
</field> </field>
<field x="67.5" y="6.5" type="Testo" width="4" text="Fase"> <field x="67.5" y="6.5" type="Testo" width="4" pattern="1" text="Fase">
<font italic="1" face="Arial" size="8" /> <font italic="1" face="Arial" size="8" />
</field> </field>
<field x="72.5" y="6.5" type="Stringa" width="15"> <field x="72.5" y="6.5" type="Stringa" width="15" pattern="1">
<font face="Arial" bold="1" size="8" /> <font face="Arial" bold="1" size="8" />
<source>#CODFASE</source> <source>#CODFASE</source>
</field> </field>
@ -96,12 +96,12 @@ MESSAGE RESET,F2.104
MESSAGE RESET,F2.105 MESSAGE RESET,F2.105
MESSAGE RESET,F2.106 MESSAGE RESET,F2.106
MESSAGE RESET,F2.107</prescript> MESSAGE RESET,F2.107</prescript>
<field x="1" y="0.25" type="Testo" txt_color="#FFFFFF" width="12" text="Categoria:" /> <field x="1" y="0.25" type="Testo" txt_color="#FFFFFF" width="12" pattern="1" text="Categoria:" />
<field x="18" y="0.25" type="Stringa" txt_color="#FFFFFF" width="70" id="98"> <field x="18" y="0.25" type="Stringa" txt_color="#FFFFFF" width="70" id="98" pattern="1">
<source>#DESCAT</source> <source>#DESCAT</source>
<postscript description="H2.98 POSTSCRIPT">MESSAGE COPY,F2.98</postscript> <postscript description="H2.98 POSTSCRIPT">MESSAGE COPY,F2.98</postscript>
</field> </field>
<field x="14" y="0.25" type="Numero" align="right" txt_color="#FFFFFF" width="2" id="101"> <field x="14" y="0.25" type="Numero" align="right" txt_color="#FFFFFF" width="2" id="101" pattern="1">
<source>CODCAT</source> <source>CODCAT</source>
<postscript description="H2.101 POSTSCRIPT">MESSAGE COPY,F2.97</postscript> <postscript description="H2.101 POSTSCRIPT">MESSAGE COPY,F2.97</postscript>
</field> </field>
@ -125,15 +125,15 @@ MESSAGE RESET,F3.104
MESSAGE RESET,F3.105 MESSAGE RESET,F3.105
MESSAGE RESET,F3.106 MESSAGE RESET,F3.106
MESSAGE RESET,F3.107</postscript> MESSAGE RESET,F3.107</postscript>
<field x="4" type="Testo" width="12" text="Impianto:"> <field x="4" type="Testo" width="12" pattern="1" text="Impianto:">
<font face="Arial" bold="1" size="9" /> <font face="Arial" bold="1" size="9" />
</field> </field>
<field x="16.5" type="Stringa" align="right" width="12" id="97"> <field x="16.5" type="Stringa" align="right" width="12" id="97" pattern="1">
<font face="Arial" bold="1" size="9" /> <font face="Arial" bold="1" size="9" />
<source>CODIMP</source> <source>CODIMP</source>
<postscript description="H3.97 POSTSCRIPT">MESSAGE COPY,F3.97</postscript> <postscript description="H3.97 POSTSCRIPT">MESSAGE COPY,F3.97</postscript>
</field> </field>
<field x="30.5" type="Stringa" width="70" id="98"> <field x="30.5" type="Stringa" width="70" id="98" pattern="1">
<font face="Arial" bold="1" size="9" /> <font face="Arial" bold="1" size="9" />
<prescript description="H3.98 PRESCRIPT">MESSAGE TABLEREAD,CIM,CODIMP,S0</prescript> <prescript description="H3.98 PRESCRIPT">MESSAGE TABLEREAD,CIM,CODIMP,S0</prescript>
<postscript description="H3.98 POSTSCRIPT">MESSAGE COPY,F3.98</postscript> <postscript description="H3.98 POSTSCRIPT">MESSAGE COPY,F3.98</postscript>
@ -158,172 +158,172 @@ MESSAGE RESET,F4.104
MESSAGE RESET,F4.105 MESSAGE RESET,F4.105
MESSAGE RESET,F4.106 MESSAGE RESET,F4.106
MESSAGE RESET,F4.107</postscript> MESSAGE RESET,F4.107</postscript>
<field x="7" type="Testo" width="8" text="Localita':" /> <field x="7" type="Testo" width="8" pattern="1" text="Localita':" />
<field x="15" type="Stringa" align="right" width="12" id="97"> <field x="15" type="Stringa" align="right" width="12" id="97" pattern="1">
<source>CODLOC</source> <source>CODLOC</source>
<postscript description="H4.97 POSTSCRIPT">MESSAGE COPY,F4.97</postscript> <postscript description="H4.97 POSTSCRIPT">MESSAGE COPY,F4.97</postscript>
</field> </field>
<field x="29" type="Stringa" width="70" id="98"> <field x="29" type="Stringa" width="70" id="98" pattern="1">
<prescript description="H4.98 PRESCRIPT">MESSAGE TABLEREAD,LOC,CODLOC,S0</prescript> <prescript description="H4.98 PRESCRIPT">MESSAGE TABLEREAD,LOC,CODLOC,S0</prescript>
<postscript description="H4.98 POSTSCRIPT">MESSAGE COPY,F4.98</postscript> <postscript description="H4.98 POSTSCRIPT">MESSAGE COPY,F4.98</postscript>
</field> </field>
</section> </section>
<section type="Body" /> <section type="Body" pattern="1" />
<section type="Body" level="1"> <section type="Body" level="1" pattern="1">
<field x="1" type="Stringa" width="10"> <field x="1" type="Stringa" width="10" pattern="1">
<source>IDCESPITE</source> <source>IDCESPITE</source>
</field> </field>
<field x="11" type="Data" width="10"> <field x="11" type="Data" width="10" pattern="1">
<source>DTALIEN</source> <source>DTALIEN</source>
</field> </field>
<field x="21" type="Data" width="10"> <field x="21" type="Data" width="10" pattern="1">
<source>DTCOMP</source> <source>DTCOMP</source>
</field> </field>
<field x="31" type="Data" width="10"> <field x="31" type="Data" width="10" pattern="1">
<source>DTFUNZ</source> <source>DTFUNZ</source>
</field> </field>
<field x="41" type="Stringa" dynamic_height="1" width="25" height="2"> <field x="41" type="Stringa" dynamic_height="1" width="25" height="2" pattern="1">
<source>DESC</source> <source>DESC</source>
</field> </field>
<field x="102.5" type="Numero" align="right" width="6" text="##@,@@"> <field x="102.5" type="Numero" align="right" width="6" pattern="1" text="##@,@@">
<source>#PERCAMM</source> <source>#PERCAMM</source>
</field> </field>
<field x="66" type="Valuta" align="right" width="12" id="101" text="#########,@@"> <field x="66" type="Valuta" align="right" width="12" id="101" pattern="1" text="#########,@@">
<source>#COSTOINI</source> <source>#COSTOINI</source>
<postscript description="B1.101 POSTSCRIPT">MESSAGE ADD,F2.101 <postscript description="B1.101 POSTSCRIPT">MESSAGE ADD,F2.101
MESSAGE ADD,F3.101 MESSAGE ADD,F3.101
MESSAGE ADD,F4.101</postscript> MESSAGE ADD,F4.101</postscript>
</field> </field>
<field x="90" type="Valuta" align="right" width="12" id="102" text="#########,@@"> <field x="90" type="Valuta" align="right" width="12" id="102" pattern="1" text="#########,@@">
<source>#COSTOFIN</source> <source>#COSTOFIN</source>
<postscript description="B1.102 POSTSCRIPT">MESSAGE ADD,F2.102 <postscript description="B1.102 POSTSCRIPT">MESSAGE ADD,F2.102
MESSAGE ADD,F3.102 MESSAGE ADD,F3.102
MESSAGE ADD,F4.102</postscript> MESSAGE ADD,F4.102</postscript>
</field> </field>
<field x="78" type="Valuta" align="right" width="12" id="103" text="#########,@@"> <field x="78" type="Valuta" align="right" width="12" id="103" pattern="1" text="#########,@@">
<source>#102-#101</source> <source>#102-#101</source>
<postscript description="B1.103 POSTSCRIPT">MESSAGE ADD,F2.103 <postscript description="B1.103 POSTSCRIPT">MESSAGE ADD,F2.103
MESSAGE ADD,F3.103 MESSAGE ADD,F3.103
MESSAGE ADD,F4.103</postscript> MESSAGE ADD,F4.103</postscript>
</field> </field>
<field x="109" type="Valuta" align="right" width="12" id="104" text="#########,@@"> <field x="109" type="Valuta" align="right" width="12" id="104" pattern="1" text="#########,@@">
<source>#QAMM+#QAMMMV</source> <source>#QAMM+#QAMMMV</source>
<postscript description="B1.104 POSTSCRIPT">MESSAGE ADD,F2.104 <postscript description="B1.104 POSTSCRIPT">MESSAGE ADD,F2.104
MESSAGE ADD,F3.104 MESSAGE ADD,F3.104
MESSAGE ADD,F4.104</postscript> MESSAGE ADD,F4.104</postscript>
</field> </field>
<field x="121" type="Valuta" align="right" width="12" id="105" text="#########,@@"> <field x="121" type="Valuta" align="right" width="12" id="105" pattern="1" text="#########,@@">
<source>#FAMM</source> <source>#FAMM</source>
<postscript description="B1.105 POSTSCRIPT">MESSAGE ADD,F2.105 <postscript description="B1.105 POSTSCRIPT">MESSAGE ADD,F2.105
MESSAGE ADD,F3.105 MESSAGE ADD,F3.105
MESSAGE ADD,F4.105</postscript> MESSAGE ADD,F4.105</postscript>
</field> </field>
<field x="133" type="Valuta" align="right" width="12" id="106" text="#########,@@"> <field x="133" type="Valuta" align="right" width="12" id="106" pattern="1" text="#########,@@">
<source>#CESSELIM+#QAMMMV</source> <source>#CESSELIM+#QAMMMV</source>
<postscript description="B1.106 POSTSCRIPT">MESSAGE ADD,F2.106 <postscript description="B1.106 POSTSCRIPT">MESSAGE ADD,F2.106
MESSAGE ADD,F3.106 MESSAGE ADD,F3.106
MESSAGE ADD,F4.106</postscript> MESSAGE ADD,F4.106</postscript>
</field> </field>
<field x="145" type="Valuta" align="right" width="12" id="107" text="#########,@@"> <field x="145" type="Valuta" align="right" width="12" id="107" pattern="1" text="#########,@@">
<source>#104+#105-#106</source> <source>#104+#105-#106</source>
<postscript description="B1.107 POSTSCRIPT">MESSAGE ADD,F2.107 <postscript description="B1.107 POSTSCRIPT">MESSAGE ADD,F2.107
MESSAGE ADD,F3.107 MESSAGE ADD,F3.107
MESSAGE ADD,F4.107</postscript> MESSAGE ADD,F4.107</postscript>
</field> </field>
<field x="157" type="Valuta" align="right" width="12" id="108" text="#########,@@"> <field x="157" type="Valuta" align="right" width="12" id="108" pattern="1" text="#########,@@">
<source>#RESAMM-#QAMM</source> <source>#RESAMM-#QAMM</source>
<postscript description="B1.108 POSTSCRIPT">MESSAGE ADD,F2.108 <postscript description="B1.108 POSTSCRIPT">MESSAGE ADD,F2.108
MESSAGE ADD,F3.108 MESSAGE ADD,F3.108
MESSAGE ADD,F4.108</postscript> MESSAGE ADD,F4.108</postscript>
</field> </field>
</section> </section>
<section type="Foot"> <section type="Foot" pattern="1">
<field border="1" type="Linea" width="182" height="0" /> <field border="1" x="1" type="Linea" width="168" height="0" pattern="1" />
<field x="170" y="0.25" type="Testo" width="5" text="Pag."> <field x="140" y="0.25" type="Testo" width="5" pattern="1" text="Pag.">
<font italic="1" face="Courier New" size="9" /> <font italic="1" face="Courier New" size="9" />
</field> </field>
<field x="176" y="0.25" type="Numero" align="right" width="3"> <field x="146" y="0.25" type="Numero" align="right" width="3" pattern="1">
<font italic="1" face="Courier New" bold="1" size="9" /> <font italic="1" face="Courier New" bold="1" size="9" />
<source>#REPORT.PAGE</source> <source>#REPORT.PAGE</source>
</field> </field>
</section> </section>
<section type="Foot" level="1" bg_color="#000000" height="1.5" pattern="2"> <section type="Foot" level="1" bg_color="#000000" height="1.5" pattern="2">
<font italic="1" face="Arial" bold="1" size="9" /> <font italic="1" face="Arial" bold="1" size="9" />
<field border="2" x="1" y="0.25" type="Linea" fg_color="#FFFFFF" width="168" height="0" /> <field border="2" x="1" y="0.25" type="Linea" fg_color="#FFFFFF" width="168" height="0" pattern="1" />
<field x="1" y="0.5" type="Testo" txt_color="#FFFFFF" width="25" text="Totali generali" /> <field x="1" y="0.5" type="Testo" txt_color="#FFFFFF" width="25" pattern="1" text="Totali generali" />
<field x="66" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="101" text="#########,@@" /> <field x="66" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="101" pattern="1" text="#########,@@" />
<field x="90" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="102" text="#########,@@" /> <field x="90" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="102" pattern="1" text="#########,@@" />
<field x="78" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="103" text="#########,@@" /> <field x="78" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="103" pattern="1" text="#########,@@" />
<field x="109" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="104" text="#########,@@" /> <field x="109" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="104" pattern="1" text="#########,@@" />
<field x="121" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="105" text="#########,@@" /> <field x="121" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="105" pattern="1" text="#########,@@" />
<field x="133" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="106" text="#########,@@" /> <field x="133" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="106" pattern="1" text="#########,@@" />
<field x="145" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="107" text="#########,@@" /> <field x="145" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="107" pattern="1" text="#########,@@" />
<field x="157" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="108" text="#########,@@" /> <field x="157" y="0.5" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="108" pattern="1" text="#########,@@" />
</section> </section>
<section type="Foot" level="2" bg_color="#000000" height="1.5" pattern="10" sh_angle="90"> <section type="Foot" level="2" bg_color="#000000" height="1.5" pattern="10" sh_angle="90">
<font face="Arial" bold="1" size="9" /> <font face="Arial" bold="1" size="9" />
<field x="1" y="0.25" type="Testo" txt_color="#FFFFFF" width="15" text="Totale Categoria" /> <field x="1" y="0.25" type="Testo" txt_color="#FFFFFF" width="15" pattern="1" text="Totale Categoria" />
<field x="17" y="0.25" type="Stringa" txt_color="#FFFFFF" width="2" id="97" /> <field x="17" y="0.25" type="Stringa" txt_color="#FFFFFF" width="2" id="97" pattern="1" />
<field x="20" y="0.25" type="Stringa" txt_color="#FFFFFF" width="30" id="98"> <field x="20" y="0.25" type="Stringa" txt_color="#FFFFFF" width="30" id="98" pattern="1">
<font italic="1" face="Arial Narrow" bold="1" size="9" /> <font italic="1" face="Arial Narrow" bold="1" size="9" />
</field> </field>
<field x="66" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="101" text="#########,@@"> <field x="66" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="101" pattern="1" text="#########,@@">
<postscript description="F2.101 POSTSCRIPT">MESSAGE ADD,F1.101</postscript> <postscript description="F2.101 POSTSCRIPT">MESSAGE ADD,F1.101</postscript>
</field> </field>
<field x="90" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="102" text="#########,@@"> <field x="90" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="102" pattern="1" text="#########,@@">
<postscript description="F2.102 POSTSCRIPT">MESSAGE ADD,F1.102</postscript> <postscript description="F2.102 POSTSCRIPT">MESSAGE ADD,F1.102</postscript>
</field> </field>
<field x="78" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="103" text="#########,@@"> <field x="78" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="103" pattern="1" text="#########,@@">
<postscript description="F2.103 POSTSCRIPT">MESSAGE ADD,F1.103</postscript> <postscript description="F2.103 POSTSCRIPT">MESSAGE ADD,F1.103</postscript>
</field> </field>
<field x="109" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="104" text="#########,@@"> <field x="109" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="104" pattern="1" text="#########,@@">
<postscript description="F2.104 POSTSCRIPT">MESSAGE ADD,F1.104</postscript> <postscript description="F2.104 POSTSCRIPT">MESSAGE ADD,F1.104</postscript>
</field> </field>
<field x="121" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="105" text="#########,@@"> <field x="121" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="105" pattern="1" text="#########,@@">
<postscript description="F2.105 POSTSCRIPT">MESSAGE ADD,F1.105</postscript> <postscript description="F2.105 POSTSCRIPT">MESSAGE ADD,F1.105</postscript>
</field> </field>
<field x="133" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="106" text="#########,@@"> <field x="133" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="106" pattern="1" text="#########,@@">
<postscript description="F2.106 POSTSCRIPT">MESSAGE ADD,F1.106</postscript> <postscript description="F2.106 POSTSCRIPT">MESSAGE ADD,F1.106</postscript>
</field> </field>
<field x="145" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="107" text="#########,@@"> <field x="145" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="107" pattern="1" text="#########,@@">
<postscript description="F2.107 POSTSCRIPT">MESSAGE ADD,F1.107</postscript> <postscript description="F2.107 POSTSCRIPT">MESSAGE ADD,F1.107</postscript>
</field> </field>
<field x="157" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="108" text="#########,@@"> <field x="157" y="0.25" type="Valuta" align="right" txt_color="#FFFFFF" width="12" id="108" pattern="1" text="#########,@@">
<postscript description="F2.108 POSTSCRIPT">MESSAGE ADD,F1.108</postscript> <postscript description="F2.108 POSTSCRIPT">MESSAGE ADD,F1.108</postscript>
</field> </field>
</section> </section>
<section type="Foot" level="3" hidden="1" bg_color="#808080" sh_color="#C0C0C0" height="1.5" pattern="10" sh_angle="90"> <section type="Foot" level="3" hidden="1" bg_color="#808080" sh_color="#C0C0C0" height="1.5" pattern="10" sh_angle="90">
<font italic="1" face="Arial" bold="1" size="9" /> <font italic="1" face="Arial" bold="1" size="9" />
<field x="4" y="0.25" type="Testo" width="15" text="Totale impianto" /> <field x="4" y="0.25" type="Testo" width="15" pattern="1" text="Totale impianto" />
<field border="2" x="1" y="1.25" type="Linea" width="168" height="0" /> <field border="2" x="1" y="1.25" type="Linea" width="168" height="0" pattern="1" />
<field x="20" y="0.25" type="Stringa" width="12" id="97" /> <field x="20" y="0.25" type="Stringa" width="12" id="97" pattern="1" />
<field x="32.5" y="0.25" type="Stringa" width="30" id="98"> <field x="32.5" y="0.25" type="Stringa" width="30" id="98" pattern="1">
<font italic="1" face="Arial Narrow" bold="1" size="9" /> <font italic="1" face="Arial Narrow" bold="1" size="9" />
</field> </field>
<field x="66" y="0.25" type="Valuta" align="right" width="12" id="101" text="#########,@@" /> <field x="66" y="0.25" type="Valuta" align="right" width="12" id="101" pattern="1" text="#########,@@" />
<field x="90" y="0.25" type="Valuta" align="right" width="12" id="102" text="#########,@@" /> <field x="90" y="0.25" type="Valuta" align="right" width="12" id="102" pattern="1" text="#########,@@" />
<field x="78" y="0.25" type="Valuta" align="right" width="12" id="103" text="#########,@@" /> <field x="78" y="0.25" type="Valuta" align="right" width="12" id="103" pattern="1" text="#########,@@" />
<field x="109" y="0.25" type="Valuta" align="right" width="12" id="104" text="#########,@@" /> <field x="109" y="0.25" type="Valuta" align="right" width="12" id="104" pattern="1" text="#########,@@" />
<field x="121" y="0.25" type="Valuta" align="right" width="12" id="105" text="#########,@@" /> <field x="121" y="0.25" type="Valuta" align="right" width="12" id="105" pattern="1" text="#########,@@" />
<field x="133" y="0.25" type="Valuta" align="right" width="12" id="106" text="#########,@@" /> <field x="133" y="0.25" type="Valuta" align="right" width="12" id="106" pattern="1" text="#########,@@" />
<field x="145" y="0.25" type="Valuta" align="right" width="12" id="107" text="#########,@@" /> <field x="145" y="0.25" type="Valuta" align="right" width="12" id="107" pattern="1" text="#########,@@" />
<field x="157" y="0.25" type="Valuta" align="right" width="12" id="108" text="#########,@@" /> <field x="157" y="0.25" type="Valuta" align="right" width="12" id="108" pattern="1" text="#########,@@" />
</section> </section>
<section type="Foot" level="4" hidden="1" bg_color="#C0C0C0" sh_color="#FFFFFF" pattern="10" sh_angle="90"> <section type="Foot" level="4" hidden="1" bg_color="#C0C0C0" sh_color="#FFFFFF" pattern="10" sh_angle="90">
<font italic="1" face="Arial" bold="1" size="8" /> <font italic="1" face="Arial" bold="1" size="8" />
<field x="7" type="Testo" width="15" text="Totale localit&#E0;" /> <field x="7" type="Testo" width="15" pattern="1" text="Totale localit&#E0;" />
<field x="23.5" type="Stringa" width="12" id="97" /> <field x="23.5" type="Stringa" width="12" id="97" pattern="1" />
<field x="36.5" type="Stringa" width="20" id="98"> <field x="36.5" type="Stringa" width="20" id="98" pattern="1">
<font italic="1" face="Arial Narrow" bold="1" size="8" /> <font italic="1" face="Arial Narrow" bold="1" size="8" />
</field> </field>
<field x="66" type="Valuta" align="right" width="12" id="101" text="#########,@@" /> <field x="66" type="Valuta" align="right" width="12" id="101" pattern="1" text="#########,@@" />
<field x="90" type="Valuta" align="right" width="12" id="102" text="#########,@@" /> <field x="90" type="Valuta" align="right" width="12" id="102" pattern="1" text="#########,@@" />
<field x="78" type="Valuta" align="right" width="12" id="103" text="#########,@@" /> <field x="78" type="Valuta" align="right" width="12" id="103" pattern="1" text="#########,@@" />
<field x="109" type="Valuta" align="right" width="12" id="104" text="#########,@@" /> <field x="109" type="Valuta" align="right" width="12" id="104" pattern="1" text="#########,@@" />
<field x="121" type="Valuta" align="right" width="12" id="105" text="#########,@@" /> <field x="121" type="Valuta" align="right" width="12" id="105" pattern="1" text="#########,@@" />
<field x="133" type="Valuta" align="right" width="12" id="106" text="#########,@@" /> <field x="133" type="Valuta" align="right" width="12" id="106" pattern="1" text="#########,@@" />
<field x="145" type="Valuta" align="right" width="12" id="107" text="#########,@@" /> <field x="145" type="Valuta" align="right" width="12" id="107" pattern="1" text="#########,@@" />
<field x="157" type="Valuta" align="right" width="12" id="108" text="#########,@@" /> <field x="157" type="Valuta" align="right" width="12" id="108" pattern="1" text="#########,@@" />
</section> </section>
<sql>USE CESPI KEY 2</sql> <sql>USE CESPI KEY 2</sql>
</report> </report>

25
ce/celib.cpp
View File

@ -441,6 +441,13 @@ bool null_fields(const TRectype& rec, const char* fld0, const char* fld1, const
real ceca_percutil(const TString& idcespite, int anno, real ceca_percutil(const TString& idcespite, int anno,
const TString& cdc, const TString& cms, const TString& fase) const TString& cdc, const TString& cms, const TString& fase)
{ {
TLocalisamfile salcecms(LF_SALCECMS);
salcecms.put(SALCECMS_IDCESPITE, idcespite);
salcecms.put(SALCECMS_CODES, anno);
salcecms.put(SALCECMS_NRIGA, 1);
if (salcecms.read() != NOERR)
return ZERO;
TString query; TString query;
query << "USE SALCECMS"; query << "USE SALCECMS";
//se c'è almeno un filtro su cdc/cms/fase scatta la select analitica! //se c'è almeno un filtro su cdc/cms/fase scatta la select analitica!
@ -456,7 +463,7 @@ real ceca_percutil(const TString& idcespite, int anno,
query.rtrim(2); query.rtrim(2);
} }
else //se non si è scelto alcun parametro analitico -> la percentuale è 100% comunque! else //se non si è scelto alcun parametro analitico -> la percentuale è 100% comunque!
return 1; return UNO;
query << "\nFROM IDCESPITE=#IDCESPITE CODES=#CODES"; query << "\nFROM IDCESPITE=#IDCESPITE CODES=#CODES";
query << "\nTO IDCESPITE=#IDCESPITE CODES=#CODES"; query << "\nTO IDCESPITE=#IDCESPITE CODES=#CODES";
@ -473,15 +480,17 @@ real ceca_percutil(const TString& idcespite, int anno,
if (fase.full()) if (fase.full())
recset.set_var("#CODFASE", fase); recset.set_var("#CODFASE", fase);
const long items = recset.items();
real percutil = ZERO; real percutil = ZERO;
for (bool ok = recset.move_first(); ok; ok = recset.move_next()) const long items = recset.items();
if (items > 0)
{ {
real perc = recset.get(SALCECMS_PERCUTIL).as_real(); for (bool ok = recset.move_first(); ok; ok = recset.move_next())
percutil += perc; {
real perc = recset.get(SALCECMS_PERCUTIL).as_real();
percutil += perc;
}
percutil /= CENTO;
} }
percutil /= CENTO;
return percutil; return percutil;
} }