#include #include #include #include #include #include #include "../ca/calib01.h" #include "../ca/commesse.h" #include "rilore.h" #include "ci1350.h" #include "ci1300a.h" /////////////////////////////////////////////////////////// // Report /////////////////////////////////////////////////////////// class TRil_ore_ris_report : public TReport { protected: virtual bool use_mask() { return false; } public: TRil_ore_ris_report(const char tipostampa); }; TRil_ore_ris_report::TRil_ore_ris_report(const char tipostampa) { if (tipostampa == 'M') load("ci1300a"); else load("ci1300b"); TRil_ore_recordset* recset = new TRil_ore_recordset; set_recordset(recset); } /////////////////////////////////////////////////////////// // Maschera /////////////////////////////////////////////////////////// class TRil_ore_ris_mask : public TAutomask { protected: virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); void elabora_risorsa(const TString& curr_risorsa, const int curr_mese, const bool ignore, TReport& rep) const; public: void elabora() const; TRil_ore_ris_mask(); virtual ~TRil_ore_ris_mask() {} }; TRil_ore_ris_mask::TRil_ore_ris_mask() : TAutomask("ci1300a") { } bool TRil_ore_ris_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) { return true; } void TRil_ore_ris_mask::elabora_risorsa(const TString& curr_risorsa, const int curr_mese, const bool ignore, TReport& rep) const { const int tipo_ordinamento = get_int(F_ORDINAMENTO); const char tipo_stampa = get(F_TIPOSTAMPA)[0]; const int anno = get_int(F_ANNO); const int mese = tipo_stampa == 'M' ? curr_mese : 0; //date del periodo TDate inizio_periodo, fine_periodo; ci_inizio_fine_periodo(tipo_stampa, anno, mese, inizio_periodo, fine_periodo); //creare un assoc_array con chiave TToken_string cms-sede-fase(1) o sede-cms-fase(2) in base ai parametri.. //..indicati sulla maschera //se tipo_stampa = 'M'ensile: il contenuto dell'assoc_array sarà: tot_Prev - 31 valori giornalieri Consuntivi - tot_Consuntivo //se tipo_stampa = 'A'nnuale: il contenuto dell'assoc_array sarà: tot_Prev - 12 valori mensili Consuntivi - tot_Consuntivo TAssoc_array righe; const TVariant tiporisorsa = get(F_RISOATT); //query sul file delle ore in chiave 3: TIPO+TIPORA+CODICE+.....frega niente altro TString query; query << "USE RILORE KEY 3"; query << "\nFROM TIPO=#TIPO TIPORA=#TPRA CODICE=#CODICE"; query << "\nTO TIPO=#TIPO TIPORA=#TPRA CODICE=#CODICE"; TRil_ore_cms_recordset rilore_recset(query); rilore_recset.set_var("#TPRA", tiporisorsa); rilore_recset.set_var("#CODICE", curr_risorsa); //aggiunta Adolfica: lista di commesse da considerare separatamente più commessa borraccione.. //..con tutte le altre TSheet_field& lista = sfield(F_RIGHE); rilore_recset.set_list(lista.rows_array(), ignore); //un giro con le ore a 'P'reventivo, uno con quelle a 'C'onsuntivo for (int i = 0; i < 2; i++) { const TVariant tipo = i == 0 ? "P" : "C"; const char tipo_ora = i == 0 ? 'P' : 'C'; //serve solo per rendere comprensibili gli if( che seguono rilore_recset.set_var("#TIPO", tipo); const long rilore_recset_items = rilore_recset.items(); for (bool ok = rilore_recset.move_first(); ok; ok = rilore_recset.move_next()) { const TString80 codcosto = rilore_recset.get(RILORE_CODCOSTO).as_string(); const TString80 codcms = rilore_recset.get(RILORE_CODCMS).as_string(); const TString16 codfase = rilore_recset.get(RILORE_CODFASE).as_string(); //date limite qta ore sul record del file LF_RILORE TDate ini_rilore = rilore_recset.get(RILORE_DADATA).as_date(); TDate fine_rilore = rilore_recset.get(RILORE_ADATA).as_date(); //adatta le date alla commessa se quest'ultima è contenuta nell'intervallo (può essere più breve.. //..dell'intervallo selezionato, oppure sovrapporsi solo parzialmente) //se sta stampando per cdc -> fine_cms e ini_cms sono vuoti se non c'è la cms e non fa la trimmatura TDate inizio_int, fine_int; long giorni_lavorativi = ci_calcola_giorni_lavorativi_intersezione(ini_rilore, fine_rilore, inizio_periodo, fine_periodo, inizio_int, fine_int); //se i giorni lavorativi non ci sono è inutile procedere if (giorni_lavorativi <= 0) continue; const long giorni_lavorativi_rilore = ci_calcola_giorni_lavorativi(ini_rilore, fine_rilore); if (giorni_lavorativi_rilore > 0) { const real tot_ore = rilore_recset.get(RILORE_QTAORE).as_real(); const real tot_ore_uso_risorsa_nel_periodo = tot_ore * giorni_lavorativi / giorni_lavorativi_rilore; //crea la chiave per l'assoc_array TToken_string key; if (ignore) key = OTHER_ACTIVITIES; else { switch(tipo_ordinamento) { case 1: key.add(codcms); break; case 2: key.add(codcms); key.add(codcosto); break; case 3: key.add(codcms); key.add(codfase); break; case 4: key.add(codcms); key.add(codcosto); key.add(codfase); break; case 5: key.add(codcosto); break; case 6: key.add(codcosto); key.add(codcms); break; case 7: key.add(codcosto); key.add(codfase); break; case 8: key.add(codcosto); key.add(codcms); key.add(codfase); break; default: break; } } //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 (tipo_ora == 'P') //'P'reventivo (aggiorna solo il totale) { real prev = record->get(0); prev += tot_ore_uso_risorsa_nel_periodo; record->add(prev.string(), 0); } else //'C'onsuntivo (aggiorna tutte le caselle dei giorni lavorativi) { const real ore_al_giorno = tot_ore / giorni_lavorativi_rilore; for (TDate data = inizio_int; data <= fine_int; ++data) { if (giorni_lavorativi_rilore == 1 || ci_is_ferial_day(data)) { const int index = tipo_stampa == 'M' ? data.day() : data.month(); real prev = record->get(index); prev += ore_al_giorno; record->add(prev.string(), index); real tot = record->get(32); tot += ore_al_giorno; record->add(tot.string(), 32); } } //for (TDate data = inizio_int.. } //if (tipo_ora == 'P').. } //if (giorni_lavorativi_rilore > 0).. } //for (bool ok = rilore_recset.move_first();.. } //for (int i = 0; i < 2; i++)... //prende il recordset in opera dal report per fargli le set_var TRil_ore_recordset* recset = (TRil_ore_recordset*)rep.recordset(); //tenta la mask2report per far apparire sul report i campi di selezione della maschera rep.mask2report(*this); TString4 code; code.format("%02d", curr_mese); recset->set_var("#MESE", code, true); //finita l'elaborazione che ha riempito l'assoc_array, asegna il medesimo ad un.. //..csv_recordset e poi sbatte quest'ultimo (ordinato) nel report //Il tutto nel magico metodo che segue! ci_fill_recset_from_ass(righe, rep); //campo a mano per fare scattare la mask2report() rep.recordset()->set_var("#CODRIS", curr_risorsa, true); } //metodo di alto livello per filtrare su ris/att e chiamare i metodi di livello inferiore per elaborare la singola ris/att void TRil_ore_ris_mask::elabora() const { //book di stampa TReport_book book; //stampa mensile o annuale? const char tipostampa = get(F_TIPOSTAMPA)[0]; TRil_ore_ris_report rep(tipostampa); int da_mese = 1; int a_mese = 1; if (tipostampa == 'M') { da_mese = get_int(F_DA_MESE); a_mese = get_int(F_A_MESE); } //giro su tutti i mesi; se stampa annuale o mese unico -> un giro solo for (int m = da_mese; m <= a_mese; m++) { if (tipostampa == 'M') format_report_month(get_int(F_ANNO), m, rep); //query sulla tabella interessata (risorse o attrezzature) TString16 da_ris_att, a_ris_att; TString query_ris_att; TString msg; const char tiporisorsa = get(F_RISOATT)[0]; if (tiporisorsa == 'R') { da_ris_att = get(F_DA_CODRIS); a_ris_att = get(F_A_CODRIS); query_ris_att << "USE RSS"; msg << "Scansione risorse..."; } else { da_ris_att = get(F_DA_CODATT); a_ris_att = get(F_A_CODATT); query_ris_att << "USE ATR"; "Scansione attrezzature..."; } query_ris_att << "\nFROM CODTAB=#DACODICE"; query_ris_att << "\nTO CODTAB=#ACODICE"; TISAM_recordset recset_ris_att(query_ris_att); recset_ris_att.set_var("#DACODICE", da_ris_att); recset_ris_att.set_var("#ACODICE", a_ris_att); const long recset_ris_att_items = recset_ris_att.items(); TSheet_field& lista = sfield(F_RIGHE); //se la stampa ha come chiave principale il CDC, lo sheet (che e' nascosto!) va vuotato in quanto potrebbe avere elementi.. //..dovuti al profilo della maschera che produrrebbero una stampa non desiderata (per ora!, verra' il momento in cui il CRPA.. //..cambiera' idea..) const int tipo_ordinamento = get_int(F_ORDINAMENTO); if (tipo_ordinamento >= 5) lista.reset(); //Come gestire la lista delle commesse particolari //a) nel caso la lista sia vuota il giro di stampa è unico, considerando tutte le cms/cdc //b) nel caso la lista abbia elementi(cms/cdc), viene fatto un primo giro sui soli elementi della lista,... //poi un successivo su tutte le cms/cdc che non apparivano nella lista const int ignore_start = 0; const int ignore_end = !lista.empty(); TProgind pi(recset_ris_att_items, msg, 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 TString80 curr_risorsa = recset_ris_att.cursor()->curr().get("CODTAB"); //setta un nuovo recset al report: se non lo facesse il recset sarebbe sempre il medesimo per ogni.. //..risorsa (ovvero assoc_array) e quindi si incrementerebbe all'ignoranza TRil_ore_recordset* recset = new TRil_ore_recordset; rep.set_recordset(recset); for (int ignore = ignore_start; ignore <= ignore_end; ignore++) { elabora_risorsa(curr_risorsa, m, ignore!=0, rep); } //for (int ignore = ignore_start.. //stampa un report per risorsa book.add(rep); } ////for (bool ok = recset_ris_att.move_first()... } //for (int m = da_mese; .. //e alla fine stampa il book book.preview(); } /////////////////////////////////////////////////////////// // Applicazione /////////////////////////////////////////////////////////// class TRil_ore_ris : public TSkeleton_application { protected: public: virtual void main_loop(); }; void TRil_ore_ris::main_loop() { TRil_ore_ris_mask mask; while (mask.run() == K_ENTER) { mask.elabora(); } } int ci1300(int argc, char* argv[]) { TRil_ore_ris sd; sd.run(argc, argv, "Rilevazione ore per Risorsa - Attrezzatura"); return 0; }