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

Patch level :4.0 418

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :aggiunta la stampa della Proiezione cespiti su gentile richiesta del crpa (da testare!!!)


git-svn-id: svn://10.65.10.50/trunk@14001 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2006-05-22 15:18:49 +00:00
parent 4d9bbac347
commit 680e0926df
3 changed files with 117 additions and 87 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
ce/ce4300.cpp
View File

@ -216,6 +216,8 @@ void TStampa_proiez_ammo_rep::set_filter(const TStampa_proiez_ammo_mask& msk)
{
pi.addstatus(1);
real costo, alien, famm;
//Colonna COSTO
const TString& idcespite = rel_cespi.curr().get(CESPI_IDCESPITE);
const int codcat = rel_cespi.curr().get_int(CESPI_CODCAT);
@ -223,7 +225,10 @@ void TStampa_proiez_ammo_rep::set_filter(const TStampa_proiez_ammo_mask& msk)
salce.put(SALCE_CODES, _anno);
salce.put(SALCE_TPSALDO, 1);
if (salce.read() == NOERR)
add_value(codcat, SALCE_CSTO, salce.get_real(SALCE_CSTO));
{
costo = salce.get_real(SALCE_CSTO);
add_value(codcat, SALCE_CSTO, costo);
}
//Colonna ALIENAZIONI
//cerca tutti i movimenti di vendita relativi al cespite corrente all'interno dell'esercizio..
@ -234,6 +239,7 @@ void TStampa_proiez_ammo_rep::set_filter(const TStampa_proiez_ammo_mask& msk)
{
const real vendita = movce.get(MOVCE_IMPVEN).as_real();
add_value(codcat, MOVCE_IMPVEN, vendita);
alien += vendita;
}
//Colonna FAMM (fondo ammortamento)
@ -243,30 +249,43 @@ void TStampa_proiez_ammo_rep::set_filter(const TStampa_proiez_ammo_mask& msk)
ammce.put(AMMCE_TPAMM, 1); //tipoamm fiscale
if (ammce.read() == NOERR)
{
real famm;
famm += ammce.get_real(AMMCE_QNOR);
famm += ammce.get_real(AMMCE_QACC);
famm += ammce.get_real(AMMCE_QANT);
add_value(codcat, AMMCE_QNOR, famm);
add_value(codcat, "AMMO0", famm);
}
//Colonna PERCAMM (aliquota ammortamento)
//Colonna QAMM
//Per questi ci vuole un tiposaldo diverso
ammce.put(AMMCE_TPSALDO, 2); //tiposaldo finale
if (ammce.read() == NOERR)
{
real percamm;
percamm += ammce.get_real(AMMCE_PNOR);
percamm += ammce.get_real(AMMCE_PACC);
percamm += ammce.get_real(AMMCE_PANT);
add_value(codcat, AMMCE_PNOR, percamm);
real qamm;
qamm += ammce.get_real(AMMCE_QNOR);
qamm += ammce.get_real(AMMCE_QACC);
qamm += ammce.get_real(AMMCE_QANT);
add_value(codcat, AMMCE_QACC, qamm);
add_value(codcat, "AMMO1", qamm);
//Colonne degli ammortamenti
//Si calcolano in questo modo perche' si calcolano cespite
real residuo = costo - alien - famm - qamm; //qamm e' AMMO1
TString8 ammo;
for (int a = 2; a <= 5 && residuo > ZERO; a++)
{
ammo.format("AMMO%d", a);
if (qamm >= residuo)
{
add_value(codcat, ammo, residuo);
residuo = ZERO;
}
else
{
add_value(codcat, ammo, qamm);
residuo -= qamm;
}
}
if (residuo > 0)
add_value(codcat, "AMMOX", residuo);
}
} //for(cur_cespi...
@ -302,19 +321,9 @@ bool TStampa_proiez_ammo_rep::get_usr_val(const TString& name, TVariant& var) co
var = get_value(codcat, MOVCE_IMPVEN);
return true;
}
if (name == "#FAMM") //fondo ammortamento alla fine dell'esercizio precedente
if (name.starts_with("#AMMO")) //fondi ammortamento
{
var = get_value(codcat, AMMCE_QNOR);
return true;
}
if (name == "#PERCAMM") //percentuale ammortamento
{
var = get_value(codcat, AMMCE_PNOR);
return true;
}
if (name == "#QAMM") //fondo ammortamento esercizio corrente
{
var = get_value(codcat, AMMCE_QACC);
var = get_value(codcat, name.mid(1));
return true;
}

148
ce/ce4300a.rep
View File

@ -57,41 +57,41 @@ MESSAGE RESET,F2.110</prescript>
<li Value="Pluriennali" Code="2" />
</list>
</field>
<field x="50" y="1.25" type="Testo" align="right" width="12" height="0.75" pattern="1" text="Valore al" />
<field x="77" y="1.25" type="Testo" align="right" width="13" height="0.75" pattern="1" text="Fondo amm. al" />
<field x="91" y="1.25" type="Testo" align="right" width="13" height="0.75" pattern="1" text="Val. residuo" />
<field x="111.5" y="1.25" type="Testo" align="right" width="12" height="0.75" pattern="1" text="Ammortamento" />
<field x="125" y="1.25" type="Testo" align="right" width="12" height="0.75" pattern="1" text="Ammortamento" />
<field x="138" y="1.25" type="Testo" align="right" width="12" height="0.75" pattern="1" text="Ammortamento" />
<field x="151.1" y="1.25" type="Testo" align="right" width="12" height="0.75" pattern="1" text="Ammortamento" />
<field x="164" y="1.25" type="Testo" align="right" width="12" height="0.75" pattern="1" text="Ammortamento" />
<field x="177" y="1.25" type="Testo" align="right" width="12" height="0.75" pattern="1" text="Residuo da" />
<field x="35" y="1.25" type="Testo" align="right" width="12" height="0.75" pattern="1" text="Valore al" />
<field x="60" y="1.25" type="Testo" align="right" width="13" height="0.75" pattern="1" text="Fondo amm. al" />
<field x="73" y="1.25" type="Testo" align="right" width="13" height="0.75" pattern="1" text="Val. residuo" />
<field x="96" y="1.25" type="Testo" align="right" width="10" height="0.75" pattern="1" text="Ammortam." />
<field x="109" y="1.25" type="Testo" align="right" width="10" height="0.75" pattern="1" text="Ammortam." />
<field x="122" y="1.25" type="Testo" align="right" width="10" height="0.75" pattern="1" text="Ammortam." />
<field x="135.1" y="1.25" type="Testo" align="right" width="10" height="0.75" pattern="1" text="Ammortam." />
<field x="148" y="1.25" type="Testo" align="right" width="10" height="0.75" pattern="1" text="Ammortam." />
<field x="158" y="1.25" type="Testo" align="right" width="12" height="0.75" pattern="1" text="Residuo da" />
<field x="1" y="2" type="Testo" width="10" pattern="1" text="Categoria" />
<field x="50" y="2" type="Stringa" align="right" width="12" height="0.75" pattern="1">
<field x="35" y="2" type="Stringa" align="right" width="12" height="0.75" pattern="1">
<source>#FINESCPREC</source>
</field>
<field x="64" y="2" type="Testo" align="right" width="12" pattern="1" text="Alienazioni" />
<field x="78" y="2" type="Data" align="right" width="12" height="0.75" pattern="1">
<field x="48" y="2" type="Testo" align="right" width="12" pattern="1" text="Alienazioni" />
<field x="61" y="2" type="Data" align="right" width="12" height="0.75" pattern="1">
<source>#FINESCPREC</source>
</field>
<field x="92" y="2" type="Testo" align="right" width="12" height="0.75" pattern="1" text="da ammortizz" />
<field x="106" y="2" type="Testo" align="right" width="5" pattern="1" text="Aliq." />
<field x="115" y="2" type="Numero" align="right" width="6" height="0.75" pattern="1">
<field x="74" y="2" type="Testo" align="right" width="12" height="0.75" pattern="1" text="da ammortizz" />
<field x="88" y="2" type="Testo" align="right" width="5" pattern="1" text="Aliq." />
<field x="97" y="2" type="Numero" align="right" width="6" height="0.75" pattern="1">
<source>#ANNOES</source>
</field>
<field x="128" y="2" type="Numero" align="right" width="6" height="0.75" pattern="1">
<field x="110.5" y="2" type="Numero" align="right" width="6" height="0.75" pattern="1">
<source>#ANNOES+1</source>
</field>
<field x="141" y="2" type="Numero" align="right" width="6" height="0.75" pattern="1">
<field x="123.5" y="2" type="Numero" align="right" width="6" height="0.75" pattern="1">
<source>#ANNOES+2</source>
</field>
<field x="154" y="2" type="Numero" align="right" width="6" height="0.75" pattern="1">
<field x="136.5" y="2" type="Numero" align="right" width="6" height="0.75" pattern="1">
<source>#ANNOES+3</source>
</field>
<field x="167" y="2" type="Numero" align="right" width="6" height="0.75" pattern="1">
<field x="149.5" y="2" type="Numero" align="right" width="6" height="0.75" pattern="1">
<source>#ANNOES+4</source>
</field>
<field x="177" y="2" type="Testo" align="right" width="12" height="0.75" pattern="1" text="ammortizzare" />
<field x="158" y="2" type="Testo" align="right" width="12" height="0.75" pattern="1" text="ammortizzare" />
<field border="1" x="1" y="3" type="Linea" width="192" height="0" pattern="1" />
</section>
<section type="Body" />
@ -99,94 +99,114 @@ MESSAGE RESET,F2.110</prescript>
<field x="1" type="Stringa" width="2" pattern="1">
<source>CODTAB[7,8]</source>
</field>
<field x="4" type="Stringa" dynamic_height="1" width="45" height="2" pattern="1">
<field x="4" type="Stringa" dynamic_height="1" width="30" height="2" pattern="1">
<source>S0</source>
</field>
<field x="107" type="Numero" align="right" width="4" pattern="1">
<source>#PERCAMM</source>
<field x="87" type="Numero" align="right" width="6" pattern="1">
<prescript description="B1.0 PRESCRIPT">#101 @
#102 @
-
DUP
0 &#3E; IF
#105 @
100 *
SWAP
&#2F;
0
ROUND
ELSE
DROP
0
THEN
#THIS !</prescript>
</field>
<field x="50" type="Valuta" align="right" width="12" id="101" pattern="1" text="###.###.###,@@">
<field x="35" type="Valuta" align="right" width="12" id="101" pattern="1" text="###.###.###,@@">
<source>#COSTO</source>
<postscript description="B1.101 POSTSCRIPT">MESSAGE ADD,F2.101</postscript>
</field>
<field x="64" type="Valuta" align="right" width="12" id="102" pattern="1" text="###.###.###,@@">
<field x="48" type="Valuta" align="right" width="12" id="102" pattern="1" text="###.###.###,@@">
<source>#ALIENAZ</source>
<postscript description="B1.102 POSTSCRIPT">MESSAGE ADD,F2.102</postscript>
</field>
<field x="78" type="Valuta" align="right" width="12" id="103" pattern="1" text="###.###.###,@@">
<source>#FAMM</source>
<field x="61" type="Valuta" align="right" width="12" id="103" pattern="1" text="###.###.###,@@">
<source>#AMMO0</source>
<postscript description="B1.103 POSTSCRIPT">MESSAGE ADD,F2.103</postscript>
</field>
<field x="92" type="Valuta" align="right" width="12" id="104" pattern="1" text="###.###.###,@@">
<field x="74" type="Valuta" align="right" width="12" id="104" pattern="1" text="###.###.###,@@">
<source>#101-#102-#103</source>
</field>
<field x="112" type="Numero" align="right" width="12" id="105" pattern="1">
<source>#QAMM</source>
<field x="94" type="Numero" align="right" width="12" id="105" pattern="1">
<source>#AMMO1</source>
<postscript description="B1.105 POSTSCRIPT">MESSAGE ADD,F2.105</postscript>
</field>
<field x="125" type="Numero" align="right" width="12" id="106" pattern="1">
<field x="107" type="Numero" align="right" width="12" id="106" pattern="1">
<source>#AMMO2</source>
<postscript description="B1.106 POSTSCRIPT">MESSAGE ADD,F2.106</postscript>
</field>
<field x="138" type="Numero" align="right" width="12" id="107" pattern="1">
<field x="120" type="Numero" align="right" width="12" id="107" pattern="1">
<source>#AMMO3</source>
<postscript description="B1.107 POSTSCRIPT">MESSAGE ADD,F2.107</postscript>
</field>
<field x="151" type="Numero" align="right" width="12" id="108" pattern="1">
<field x="133" type="Numero" align="right" width="12" id="108" pattern="1">
<source>#AMMO4</source>
<postscript description="B1.108 POSTSCRIPT">MESSAGE ADD,F2.108</postscript>
</field>
<field x="164" type="Numero" align="right" width="12" id="109" pattern="1">
<field x="146" type="Numero" align="right" width="12" id="109" pattern="1">
<source>#AMMO5</source>
<postscript description="B1.109 POSTSCRIPT">MESSAGE ADD,F2.109</postscript>
</field>
<field x="177" type="Numero" align="right" width="12" id="110" pattern="1">
<field x="158" type="Numero" align="right" width="12" id="110" pattern="1">
<source>#AMMOX</source>
<postscript description="B1.110 POSTSCRIPT">MESSAGE ADD,F2.110</postscript>
</field>
</section>
<section type="Foot" />
<section type="Foot" level="1">
<font face="Arial" bold="1" size="8" />
<font italic="1" face="Arial" bold="1" size="8" />
<field border="2" x="1" y="1" type="Linea" width="196" height="0" pattern="1" />
<field x="1" y="1.5" type="Testo" align="center" bg_color="#C0C0C0" width="47" text="TOTALE GENERALE">
<font face="Courier New" bold="1" size="10" />
<field x="1" y="1.5" type="Testo" align="center" bg_color="#C0C0C0" width="33" text="TOTALE GENERALE">
<font italic="1" face="Courier New" bold="1" size="10" />
</field>
<field x="104" y="1.5" type="Testo" bg_color="#C0C0C0" width="7" />
<field x="48" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="14" id="101" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" />
<field x="86" y="1.5" type="Testo" bg_color="#C0C0C0" width="7" />
<field x="34" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="101" text="###.###.###,@@">
<font italic="1" face="Courier New" bold="1" size="8" />
</field>
<field x="62" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="14" id="102" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" />
<field x="47" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="102" text="###.###.###,@@">
<font italic="1" face="Courier New" bold="1" size="8" />
</field>
<field x="76" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="14" id="103" text="###.###.###,@@">
<font face="Courier New" bold="1" size="8" />
<field x="60" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="103" text="###.###.###,@@">
<font italic="1" face="Courier New" bold="1" size="8" />
</field>
<field x="90" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="14" id="104" text="###.###.###,@@">
<field x="73" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="104" text="###.###.###,@@">
<source>#101-#102-#103</source>
</field>
<field x="111" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="105" text="###.###.###,@@">
<field x="93" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="105" text="###.###.###,@@">
<postscript description="F1.105 POSTSCRIPT">MESSAGE ADD,F1.105</postscript>
</field>
<field x="124" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="106" text="###.###.###,@@">
<field x="106" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="106" text="###.###.###,@@">
<postscript description="F1.106 POSTSCRIPT">MESSAGE ADD,F1.106</postscript>
</field>
<field x="137" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="107" text="###.###.###,@@">
<field x="119" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="107" text="###.###.###,@@">
<postscript description="F1.107 POSTSCRIPT">MESSAGE ADD,F1.107</postscript>
</field>
<field x="150" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="108" text="###.###.###,@@">
<field x="132" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="108" text="###.###.###,@@">
<postscript description="F1.108 POSTSCRIPT">MESSAGE ADD,F1.108</postscript>
</field>
<field x="163" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="109" text="###.###.###,@@">
<field x="145" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="109" text="###.###.###,@@">
<postscript description="F1.109 POSTSCRIPT">MESSAGE ADD,F1.109</postscript>
</field>
<field x="176" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="110" text="###.###.###,@@">
<field x="158" y="1.5" type="Valuta" align="right" bg_color="#C0C0C0" width="13" id="110" text="###.###.###,@@">
<postscript description="F1.110 POSTSCRIPT">MESSAGE ADD,F1.110</postscript>
</field>
</section>
<section type="Foot" level="2" height="4">
<font italic="1" face="Arial" bold="1" size="8" />
<field border="1" x="1" y="0.5" type="Linea" width="196" height="0" pattern="1" />
<field x="10" y="1" type="Testo" width="12" pattern="1" text="TOTALE AMM">
<field x="2" y="1" type="Testo" width="12" pattern="1" text="TOTALE AMM">
<font italic="1" face="Courier New" bold="1" size="9" />
</field>
<field border="2" x="1" y="2.5" type="Linea" width="196" height="0" pattern="1" />
<field x="22" y="1" type="Array" width="15" id="100" pattern="1">
<field x="14" y="1" type="Array" width="15" id="100" pattern="1">
<font face="Courier New" bold="1" size="9" />
<list>
<li Value="Materiali" Code="0" />
@ -194,34 +214,34 @@ MESSAGE RESET,F2.110</prescript>
<li Value="Pluriennali" Code="2" />
</list>
</field>
<field x="50" y="1" type="Valuta" align="right" width="12" id="101" pattern="1" text="###.###.###,@@">
<field x="35" y="1" type="Valuta" align="right" width="12" id="101" pattern="1" text="###.###.###,@@">
<postscript description="F2.101 POSTSCRIPT">MESSAGE ADD,F1.101</postscript>
</field>
<field x="64" y="1" type="Valuta" align="right" width="12" id="102" pattern="1" text="###.###.###,@@">
<field x="48" y="1" type="Valuta" align="right" width="12" id="102" pattern="1" text="###.###.###,@@">
<postscript description="F2.102 POSTSCRIPT">MESSAGE ADD,F1.102</postscript>
</field>
<field x="78" y="1" type="Valuta" align="right" width="12" id="103" pattern="1" text="###.###.###,@@">
<field x="61" y="1" type="Valuta" align="right" width="12" id="103" pattern="1" text="###.###.###,@@">
<postscript description="F2.103 POSTSCRIPT">MESSAGE ADD,F1.103</postscript>
</field>
<field x="92" y="1" type="Valuta" align="right" width="12" id="104" pattern="1" text="###.###.###,@@">
<field x="74" y="1" type="Valuta" align="right" width="12" id="104" pattern="1" text="###.###.###,@@">
<source>#101-#102-#103</source>
</field>
<field x="112" y="1" type="Numero" align="right" width="12" id="105" pattern="1">
<field x="94" y="1" type="Numero" align="right" width="12" id="105" pattern="1">
<postscript description="F2.105 POSTSCRIPT">MESSAGE ADD,F1.105</postscript>
</field>
<field x="125" y="1" type="Numero" align="right" width="12" id="106" pattern="1">
<field x="107" y="1" type="Numero" align="right" width="12" id="106" pattern="1">
<postscript description="F2.106 POSTSCRIPT">MESSAGE ADD,F1.106</postscript>
</field>
<field x="138" y="1" type="Numero" align="right" width="12" id="107" pattern="1">
<field x="120" y="1" type="Numero" align="right" width="12" id="107" pattern="1">
<postscript description="F2.107 POSTSCRIPT">MESSAGE ADD,F1.107</postscript>
</field>
<field x="151" y="1" type="Numero" align="right" width="12" id="108" pattern="1">
<field x="133" y="1" type="Numero" align="right" width="12" id="108" pattern="1">
<postscript description="F2.108 POSTSCRIPT">MESSAGE ADD,F1.108</postscript>
</field>
<field x="164" y="1" type="Numero" align="right" width="12" id="109" pattern="1">
<field x="146" y="1" type="Numero" align="right" width="12" id="109" pattern="1">
<postscript description="F2.109 POSTSCRIPT">MESSAGE ADD,F1.109</postscript>
</field>
<field x="177" y="1" type="Numero" align="right" width="12" id="110" pattern="1">
<field x="159" y="1" type="Numero" align="right" width="12" id="110" pattern="1">
<postscript description="F2.110 POSTSCRIPT">MESSAGE ADD,F1.110</postscript>
</field>
</section>

1
ce/cemenu.men
View File

@ -120,6 +120,7 @@ Item_02 = "Prospetto cespiti", "ce3 -2", "F"
Item_03 = "Prospetto rivalutazioni", "ce3 -3", "F"
Item_04 = "Registro cespiti", "ce3 -0", "F"
Item_05 = "Registro cespiti sintetico", "ce3 -8", "F"
Item_06 = "Proiezione degli ammortamenti", "ce4 -2", "F"
[CEMENU_012]
Caption = "Servizi"