From a3d9558f8e28cccc8c9bef8b7bc5ee8b73bba4db Mon Sep 17 00:00:00 2001 From: luca Date: Wed, 31 Oct 2007 14:20:06 +0000 Subject: [PATCH] Patch level :4.0 808 Files correlati : Ricompilazione Demo : [ ] Commento :stampa sintetica cespiti: aggiunti raggruppamenti per impianto e localita' git-svn-id: svn://10.65.10.50/trunk@15752 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ce/ce3900.cpp | 37 ++++++++-- ce/ce3900.h | 5 +- ce/ce3900.uml | 17 +++++ ce/ce3900a.rep | 193 +++++++++++++++++++++++++++++++++++++++++-------- 4 files changed, 215 insertions(+), 37 deletions(-) diff --git a/ce/ce3900.cpp b/ce/ce3900.cpp index 7d2c98cb5..124fbd1d9 100755 --- a/ce/ce3900.cpp +++ b/ce/ce3900.cpp @@ -115,7 +115,8 @@ void TStampa_sintetica_recordset::set_filter(const TStampa_sintetica_mask& msk) query << "&&(CODCAT<=" << acat << ")"; } } - query << "\nBY CODCAT|IDCESPITE"; + + query << "\nBY CODCAT|CODIMP|CODLOC|IDCESPITE"; //query standard senza raggruppamenti set(query); //setta la nuova query nel report (che avrebbe solo USE CESPI) } @@ -126,6 +127,7 @@ class TStampa_sintetica_rep : public TReport { int _anno; int _tpamm; + int _group_codimp, _group_codloc; TCespite _cespite; protected: @@ -139,6 +141,10 @@ void TStampa_sintetica_rep::set_filter(const TStampa_sintetica_mask& msk) { _anno = msk.get_int(F_ESERCIZIO); _tpamm = msk.get_int(F_SITUAZIONE); + + _group_codimp = msk.get_bool(F_GROUP_CODIMP); + _group_codloc = msk.get_bool(F_GROUP_CODLOC); + ((TStampa_sintetica_recordset*) recordset())->set_filter(msk); } @@ -171,7 +177,8 @@ bool TStampa_sintetica_rep::get_usr_val(const TString& name, TVariant& var) cons { TCespite& c = (TCespite&)_cespite; c.read(idcespite); - c.load_saldi(_tpamm, _anno); } + c.load_saldi(_tpamm, _anno); + } if (name == "#DESCAT") //categoria (descrizione della categoria corrente) { @@ -182,21 +189,39 @@ bool TStampa_sintetica_rep::get_usr_val(const TString& name, TVariant& var) cons var = rec_cac.get("S0"); return true; } - if (name.starts_with("#COSTO")) //costo storico dell'anno + + if (name.starts_with("#COSTO")) //valore dell'anno (iniziale e finale, comprese rivalutazioni e non ammortizz.) { if (name.ends_with("FIN")) //tiposaldo finale + { var = val_amm(_cespite.sal_pro()); + } else //tiposaldo iniziale + { var = val_amm(_cespite.sal_ini()); + } return true; } + + if (name == "#GROUP_CODIMP") + { + var.set(_group_codimp); + return true; + } + + if (name == "#GROUP_CODLOC") + { + var.set(_group_codloc); + return true; + } + if (name == "#PERCAMM") //percentuale ammortamento { const TRectype& rec_ammce = _cespite.amm_pro(); var = real(rec_ammce.get_real(AMMCE_PNOR) + rec_ammce.get_real(AMMCE_PACC) + rec_ammce.get_real(AMMCE_PANT)); return true; } - if (name == "#QAMM") //fondo ammortamento esercizio corrente + if (name == "#QAMM") //quote ammortamento esercizio corrente { const TRectype& rec_ammce = _cespite.amm_pro(); var = real(rec_ammce.get_real(AMMCE_QNOR) + rec_ammce.get_real(AMMCE_QACC) + rec_ammce.get_real(AMMCE_QANT)); @@ -204,8 +229,9 @@ bool TStampa_sintetica_rep::get_usr_val(const TString& name, TVariant& var) cons } if (name == "#FAMM") //fondo ammortamento alla fine dell'esercizio precedente { + //ragionamento fatto il 31/10/2007;non siamo sicuri che funzioni! const TRectype& rec_ammce = _cespite.amm_pro(); - var = rec_ammce.get_real(AMMCE_PNOR) + rec_ammce.get_real(AMMCE_PACC) + rec_ammce.get_real(AMMCE_PANT); + var = real(rec_ammce.get_real(AMMCE_QNORP) + rec_ammce.get_real(AMMCE_QACCP) + rec_ammce.get_real(AMMCE_QANTP)); return true; } if (name == "#RESAMM") //residuo da ammortizzare @@ -218,6 +244,7 @@ bool TStampa_sintetica_rep::get_usr_val(const TString& name, TVariant& var) cons var.set(_tpamm); return true; } + return TReport::get_usr_val(name, var); } diff --git a/ce/ce3900.h b/ce/ce3900.h index 926eb64be..ebdc8fbdf 100755 --- a/ce/ce3900.h +++ b/ce/ce3900.h @@ -17,4 +17,7 @@ #define F_D_TO_CAT 115 #define F_SITUAZIONE 116 -#define F_REPORT 117 +#define F_GROUP_CODIMP 117 +#define F_GROUP_CODLOC 118 + +#define F_REPORT 119 diff --git a/ce/ce3900.uml b/ce/ce3900.uml index 7fc5d132d..6463a7f41 100755 --- a/ce/ce3900.uml +++ b/ce/ce3900.uml @@ -157,4 +157,21 @@ BEGIN FLAGS "Z" END +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 13 "@bRaggruppamenti" +END + +BOOLEAN F_GROUP_CODIMP +BEGIN + PROMPT 2 14 "Raggruppa per impianto " + MESSAGE FALSE CLEAR,F_GROUP_CODLOC + MESSAGE TRUE ENABLE,F_GROUP_CODLOC +END + +BOOLEAN F_GROUP_CODLOC +BEGIN + PROMPT 2 15 "Raggruppa per localita' " +END + ENDPAGE diff --git a/ce/ce3900a.rep b/ce/ce3900a.rep index e21086062..3a135ccb5 100755 --- a/ce/ce3900a.rep +++ b/ce/ce3900a.rep @@ -7,7 +7,7 @@ - + @@ -16,12 +16,12 @@ - - - - - - + + + + + +
MESSAGE RESET,F1.103 @@ -34,15 +34,26 @@ MESSAGE RESET,F1.107 - + #SYSTEM.RAGSOC - + + #SYSTEM.DATE + + + #SITUAZIONE + +
  • +
  • +
  • + + + #REPORT.PAGE
    • @@ -68,6 +79,66 @@ MESSAGE RESET,F2.107 CODCAT     +
    + CODIMP + #GROUP_CODIMP @ +IF +"H3" SHOW +"F3" SHOW +ELSE +"H3" HIDE +"F3" HIDE +THEN + + MESSAGE RESET,F3.103 +MESSAGE RESET,F3.102 +MESSAGE RESET,F3.101 +MESSAGE RESET,F3.104 +MESSAGE RESET,F3.105 +MESSAGE RESET,F3.106 +MESSAGE RESET,F3.107 + + + + + + CODIMP + + + + MESSAGE TABLEREAD,CIM,CODIMP,S0 + +
    +
    + CODLOC + #GROUP_CODLOC @ +IF +"H4" SHOW +"F4" SHOW +ELSE +"H4" HIDE +"F4" HIDE +THEN + + MESSAGE RESET,F4.103 +MESSAGE RESET,F4.102 +MESSAGE RESET,F4.101 +MESSAGE RESET,F4.104 +MESSAGE RESET,F4.105 +MESSAGE RESET,F4.106 +MESSAGE RESET,F4.107 + + + + + + CODLOC + + + + MESSAGE TABLEREAD,LOC,CODLOC,S0 + +
    @@ -85,54 +156,68 @@ MESSAGE RESET,F2.107 DESC - + #PERCAMM #COSTOINI - MESSAGE ADD,F2.101 + MESSAGE ADD,F2.101 +MESSAGE ADD,F3.101 +MESSAGE ADD,F4.101 #COSTOFIN - MESSAGE ADD,F2.102 + MESSAGE ADD,F2.102 +MESSAGE ADD,F3.102 +MESSAGE ADD,F4.102 #102-#101 - MESSAGE ADD,F2.103 + MESSAGE ADD,F2.103 +MESSAGE ADD,F3.103 +MESSAGE ADD,F4.103 - + #QAMM - MESSAGE ADD,F2.104 + MESSAGE ADD,F2.104 +MESSAGE ADD,F3.104 +MESSAGE ADD,F4.104 - + #FAMM - MESSAGE ADD,F2.105 + MESSAGE ADD,F2.105 +MESSAGE ADD,F3.105 +MESSAGE ADD,F4.105 - + #104+#105 - MESSAGE ADD,F2.106 + MESSAGE ADD,F2.106 +MESSAGE ADD,F3.106 +MESSAGE ADD,F4.106 - + #RESAMM-#QAMM - MESSAGE ADD,F2.107 + MESSAGE ADD,F2.107 +MESSAGE ADD,F3.107 +MESSAGE ADD,F4.107
    - + - - - - + + + +
    - + MESSAGE ADD,F1.101 @@ -143,18 +228,64 @@ MESSAGE RESET,F2.107 MESSAGE ADD,F1.103 - + MESSAGE ADD,F1.104 - + MESSAGE ADD,F1.105 - + MESSAGE ADD,F1.106 - + MESSAGE ADD,F1.107
    +
    + + + + + #COSTOFIN + + + #102-#101 + + + #QAMM + + + #FAMM + + + #104+#105 + + + #RESAMM-#QAMM + +
    +
    + + + + + #COSTOFIN + + + #102-#101 + + + #QAMM + + + #FAMM + + + #104+#105 + + + #RESAMM-#QAMM + +
    USE CESPI KEY 2 \ No newline at end of file