From 8b632bef8582fd4916f6dd4f3759cb73eddb3678 Mon Sep 17 00:00:00 2001 From: luca Date: Mon, 14 Feb 2011 16:58:57 +0000 Subject: [PATCH] Patch level :10.0 Files correlati : Ricompilazione Demo : [ ] Commento : iniziato programma per stampa rilevazione ore mensili git-svn-id: svn://10.65.10.50/branches/R_10_00@21644 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ci/ci1300.cpp | 176 +++++++++++++++++++++++++++++++++++++++++++------ ci/ci1300a.h | 4 +- ci/ci1300a.uml | 18 +++++ 3 files changed, 177 insertions(+), 21 deletions(-) diff --git a/ci/ci1300.cpp b/ci/ci1300.cpp index 3101ef5c4..9df6e0715 100755 --- a/ci/ci1300.cpp +++ b/ci/ci1300.cpp @@ -2,11 +2,15 @@ #include #include #include +#include #include #include #include +#include "../ca/calib01.h" +#include "../ca/commesse.h" +#include "rilore.h" #include "ci1300a.h" @@ -17,11 +21,15 @@ class TRil_ore_mask : public TAutomask { protected: - virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); + virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); + long calcola_giorni_lavorativi(const TDate& dataini, const TDate& datafine) const; + long calcola_giorni_lavorativi_cms(const TDate& ini_cms, const TDate& fine_cms, + const TDate& dataini, const TDate& datafine, + TDate& inizio_lav, TDate& fine_lav) const; + void elabora_risorsa(const TString& curr_risorsa, TReport& rep) const; public: void elabora() const; - void elabora_risorsa(const TString& curr_risorsa) const; TRil_ore_mask(); virtual ~TRil_ore_mask() {} @@ -36,49 +44,171 @@ bool TRil_ore_mask::on_field_event(TOperable_field& o, TField_event e, long joll return true; } -void TRil_ore_mask::elabora_risorsa(const TString& curr_risorsa) const +long TRil_ore_mask::calcola_giorni_lavorativi(const TDate& dataini, const TDate& datafine) const { - const char tiporisorsa = get(F_RISOATT)[0]; + long num_giorni_lav = datafine - dataini + 1; + //e qui si parrà l'ultima stilla di nobilitate! deve eliminare i giorni festivi dal mucchio! + if (num_giorni_lav > 1) + { + for (TDate data = dataini; data <= datafine; ++data) + { + if (data.is_holiday()) + num_giorni_lav--; + } + } + return num_giorni_lav; +} + +long TRil_ore_mask::calcola_giorni_lavorativi_cms(const TDate& ini_cms, const TDate& fine_cms, + const TDate& dataini, const TDate& datafine, + TDate& inizio_lav, TDate& fine_lav) const +{ + //date del mese const int anno = get_int(F_ANNO); const int mese = get_int(F_MESE); + TDate ini_mese(1, mese, anno); + TDate fine_mese = ini_mese; + fine_mese.set_end_month(); + + //se la commessa non "interseca" il mese selezionato -> finisce qui + if (fine_cms < ini_mese || ini_cms > fine_mese) + return 0; + //se le date limite lavorative non "intersecano" il mese selezionato -> finisce qui + if (datafine < ini_mese || dataini > fine_mese) + return 0; + + //se è arrivato fin qui -> c'è qualcosa da considerare + //vanno prese la massima data inizio e la minima data fine + inizio_lav = fnc_max(ini_mese, ini_cms); + fine_lav = fnc_min(fine_mese, fine_cms); + + //e qui si parrà l'ultima stilla di nobilitate! deve eliminare i giorni festivi dal mucchio! + return calcola_giorni_lavorativi(inizio_lav, fine_lav); +} + +void TRil_ore_mask::elabora_risorsa(const TString& curr_risorsa, TReport& rep) const +{ + //creare un assoc_array con chiave TToken_string cms-sede-fase(1) o sede-cms-fase(2) in base ai parametri.. + //..indicati sulla maschera + const int tipo_ordinamento = get_int(F_ORDINAMENTO); + const bool show_fasi = get_bool(F_SHOW_FASI); + //il contenuto dell'assoc_array sarà: tot_Prev - 31 valori giornalieri Consuntivi - tot_Consuntivo + TAssoc_array righe; + + const TVariant tiporisorsa = get(F_RISOATT); //query sul file delle ore in chiave 3: TIPO+TIPORA+CODICE+ANNO+MESE+... TString query; - query << "USE RILORE KEY 3"; - query << "\nFROM TIPO=#TIPO TIPORA=#TIPORA CODICE=#CODICE ANNO=#ANNO MESE=#MESE"; - query << "\nTO TIPO=#TIPO TIPORA=#TIPORA CODICE=#CODICE ANNO=#ANNO MESE=#MESE"; + query << "USE RILORE KEY 5"; + query << "\nFROM TIPO=#TIPO TIPORA=#TPRA CODICE=#CODICE"; + query << "\nTO TIPO=#TIPO TIPORA=#TPRA CODICE=#CODICE"; TISAM_recordset rilore_recset(query); - rilore_recset.set_var("#TIPORA", (TVariant&)tiporisorsa); - rilore_recset.set_var("#CODICE", (TVariant&)curr_risorsa); - rilore_recset.set_var("#ANNO", (TVariant&)anno); - rilore_recset.set_var("#MESE", (TVariant&)mese); + rilore_recset.set_var("#TPRA", tiporisorsa); + rilore_recset.set_var("#CODICE", curr_risorsa); + //un giro con le ore a 'P'reventivo, uno con quelle a 'C'onsuntivo for (int i = 0; i < 2; i++) { - char tipo = 'C'; - if (i == 0) - tipo = 'P'; - rilore_recset.set_var("#TIPO", (TVariant&)tipo); + const TVariant tipo = i == 0 ? "P" : "C"; + rilore_recset.set_var("#TIPO", tipo); const long rilore_recset_items = rilore_recset.items(); TString msg; msg << "Scansione " << curr_risorsa << ".."; - TProgind pi(rilore_recset_items, msg, true, true); for (bool ok = rilore_recset.move_first(); ok; ok = rilore_recset.move_next()) { - if (!pi.addstatus(1)) - break; + const TString& codcosto = rilore_recset.get(RILORE_CODCOSTO).as_string(); + const TString& codcms = rilore_recset.get(RILORE_CODCMS).as_string(); + const TString& codfase = rilore_recset.get(RILORE_CODFASE).as_string(); + //date limite commessa + const TRectype& rec_cms = cache().get(LF_COMMESSE, codcms); + TDate ini_cms, fine_cms; + const int durata_cms = ca_durata_commessa(rec_cms, ini_cms, fine_cms); - } + TDate dataini = rilore_recset.get(RILORE_DADATA).as_date(); + TDate datafine = rilore_recset.get(RILORE_ADATA).as_date(); + + //adatta le date alla commessa se quest'ultima è contenuta nell'intervallo + if (fine_cms < datafine) + datafine = fine_cms; + if (ini_cms > dataini) + dataini = ini_cms; + //se la commessa fosse tutta nel futuro o nel passato -> lascia perdere + const long giorni_lavorativi = calcola_giorni_lavorativi(dataini, datafine); + if (giorni_lavorativi <= 0) + continue; + + //metodo semidivino per calcolare, dati l'anno ed il il mese selezionati, la commessa corrente, le date inizio e fine,.. + //..quanti sono i giorni di lavoro lavorativi per suddividere la quantità di ore + TDate ini_lav, fine_lav; + const long giorni_lavorativi_cms = calcola_giorni_lavorativi_cms(ini_cms, fine_cms, dataini, datafine, ini_lav, fine_lav); + + //adesso deve riproporzionare il monte ore sul record sul mese selezionato + if (giorni_lavorativi_cms > 0) + { + const real tot_ore = rilore_recset.get(RILORE_QTAORE).as_real(); + const real tot_ore_uso_risorsa_nel_mese_per_cms = tot_ore * giorni_lavorativi_cms / giorni_lavorativi; + + //crea la chiave per l'assoc_array + TToken_string key; + switch(tipo_ordinamento) + { + case 1: + key.add(codcms); + key.add(codcosto); + break; + case 2: + key.add(codcosto); + key.add(codcms); + break; + } + if (show_fasi) + key.add(codfase); + + //se la chiave non esiste già nell'assoc_array allora crea l'elemento + TToken_string* record = (TToken_string*)righe.objptr(key); + if (record == NULL) + { + record = new TToken_string; + righe.add(key, record); + } + + if (i == 0) //'P'reventivo (aggiorna solo il totale) + { + real prev = record->get(0); + prev += tot_ore_uso_risorsa_nel_mese_per_cms; + record->add(prev, 0); + } + else //'C'onsuntivo (aggiorna tutte le caselle dei giorni lavorativi) + { + const real ore_al_giorno = tot_ore / giorni_lavorativi; + for (TData data = ini_lav; data <= fine_lav; ++data) + { + if (!data.is_holday()) + { + real prev = record->get(data.day()); + prev += ore_al_giorno; + record->add(prev, data.day()); + } + } + } + + } //if (giorni_lavorativi_cms > 0).. + } //for (bool ok = rilore_recset.move_first();.. } + + //finita l'elaborazione che ha riempito l'assoc_array, asegna il medesimo ad un.. + //..csv_recordset e poi sbatte quest'ultimo (ordinato) nel report } void TRil_ore_mask::elabora() const { + TReport_book book; + //query sulla tabella interessata (risorse o attrezzature) TString16 da_ris_att, a_ris_att; TString query_ris_att; @@ -107,15 +237,21 @@ void TRil_ore_mask::elabora() const TProgind pi(recset_ris_att_items, TR("Scansione risorse/attrezzature.."), true, true); + //per ogni risorsa/attrezzatura dell'elenco genera un report singolo che viene riempito nella elabora_risorsa e.. + //..aggiunto al book per la stampa finale for (bool ok = recset_ris_att.move_first(); ok; ok = recset_ris_att.move_next()) { if (!pi.addstatus(1)) break; const TString& curr_risorsa = recset_ris_att.cursor()->curr().get("CODTAB"); - elabora_risorsa(curr_risorsa); + TReport rep; + rep.load("ca1300a"); + elabora_risorsa(curr_risorsa, rep); + + book.add(rep); } } diff --git a/ci/ci1300a.h b/ci/ci1300a.h index 20b6207bd..2998ba2fd 100755 --- a/ci/ci1300a.h +++ b/ci/ci1300a.h @@ -10,4 +10,6 @@ #define F_A_DESATT 209 #define F_ANNO 211 -#define F_MESE 212 \ No newline at end of file +#define F_MESE 212 +#define F_ORDINAMENTO 213 +#define F_SHOW_FASI 214 \ No newline at end of file diff --git a/ci/ci1300a.uml b/ci/ci1300a.uml index 67d48ca1c..f8398c5c2 100755 --- a/ci/ci1300a.uml +++ b/ci/ci1300a.uml @@ -139,6 +139,24 @@ BEGIN FLAGS "M" END +GROUPBOX -1 78 5 +BEGIN + PROMPT 1 9 "@bTipo ordinamento dati" +END + +RADIOBUTTON F_ORDINAMENTO 40 +BEGIN + PROMPT 2 10 "Principale" + ITEM "1|Commessa - CdC" + ITEM "2|CdC - commessa" + FLAGS "Z" +END + +BOOLEAN F_SHOW_FASI +BEGIN + PROMPT 55 11 "Dettaglio per fase" +END + ENDPAGE ENDMASK \ No newline at end of file