Aggiunto programma per calcolo ed invio storico consumi a terminalini

git-svn-id: svn://10.65.10.50/branches/R_10_00@22756 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2012-11-06 10:55:40 +00:00
parent 200b962343
commit ce161a46a0
10 changed files with 306 additions and 5 deletions

View File

@ -36,6 +36,8 @@ bool THA_table_mask::on_field_event(TOperable_field &o, TField_event e, long jol
// applicazione per la gestione delle tabelle di lavanderia
class THA_table_app : public TTable_module_application
{
bool _trans_done;
private:
int update_gcg(const TRectype& att);
@ -50,6 +52,9 @@ protected: // TRelation_application
virtual int rewrite(const TMask& m);
virtual bool get_next_key(TToken_string& key);
public:
THA_table_app() : _trans_done(false) {}
};
@ -98,7 +103,8 @@ bool THA_table_app::protected_record(TRectype& record)
const long items = attr_recset.items();
return items > 0;
}
return true;
return false;
}
void THA_table_app::init_insert_mode(TMask& m)
@ -128,12 +134,33 @@ void THA_table_app::init_query_mode(TMask& m)
{
m.hide(F_CODCLI1);
m.show(F_CODCLI);
}
} else
if (name == "ATT") //inizialmente vedo il gruppo 2 di SEARCH e non quello 1 di NEW
{
m.hide(-1);
m.show(-2);
}
if (!_trans_done && argc() > 3)
{
_trans_done = true;
const TFixed_string a = argv(3);
if (a.starts_with("CODTAB="))
{
const TString& codtab = a.after("=");
get_relation()->curr().put("CODTAB", codtab);
FOR_EACH_MASK_FIELD(m, i, f) if (f->active() && f->field() != NULL && f->in_key(1))
{
const TFieldref* fref = f->field();
if (fref->name() == "CODTAB")
{
const TString& val = fref->read(*get_relation());
f->set(val);
}
}
m.send_key(K_AUTO_ENTER, 0);
}
}
}
void THA_table_app::init_query_insert_mode(TMask& m)
@ -198,6 +225,6 @@ int THA_table_app::rewrite(const TMask& m)
int ha0100(int argc, char* argv[])
{
THA_table_app a;
a.run(argc, argv, TR("Tabella Caffé Hardy"));
a.run(argc, argv, TR("Tabella Hardy"));
return 0;
}

View File

@ -9,6 +9,7 @@ int main(int argc,char** argv)
case 0: ha1100(argc, argv); break; // generazione .txt da files .ini del postino (file tipo XXXvar.txt)
case 1: ha1200(argc, argv); break; // generazione .txt da anagrafica campo (file tipo XXX.txt)
case 2: ha1300(argc, argv); break; // importazione file da terminalini (file tipo upload.d)
case 3: ha1400(argc, argv); break; // generazione tabella STC storico consumi
default: break;
}
return 0;

View File

@ -1,3 +1,4 @@
int ha1100(int argc, char* argv[]);
int ha1200(int argc, char* argv[]);
int ha1300(int argc, char* argv[]);
int ha1400(int argc, char* argv[]);

View File

@ -87,6 +87,7 @@ protected:
bool genera_tabpag_txt();
bool genera_carico_txt(const TMask& mask);
bool genera_ripristino_txt(const TMask& mask);
bool genera_consumi_txt(const TMask& mask);
void fill_anagrafica_cliente(const TISAM_recordset& archivio_clienti,
TEsporta_clienti_recordset& clienti, const bool is_fatt = false);
@ -786,6 +787,45 @@ bool TFile2Txt::genera_attrezzature_txt()
return salva_recordset(storico, "storico");
}
bool TFile2Txt::genera_consumi_txt(const TMask& mask)
{
// esporta i consumi per cliente
TEsporta_consumi_recordset consumi;
TISAM_recordset archivio_stc("USE &STC SELECT CODTAB[7,9]=='001'");
const TRecnotype archivio_stc_items = archivio_stc.items();
TProgind progind_att(archivio_stc_items, TR("Consumi..."), false, true);
for (bool ok = archivio_stc.move_first(); ok; ok = archivio_stc.move_next())
{
if (!progind_att.addstatus(1))
break;
const TString& codtab = archivio_stc.get("CODTAB").as_string();
const TString4 grmerc = codtab.mid(6, 3);
if (grmerc != "001")
continue; // You never know!
consumi.new_rec("");
//in base al codice cliente stabilisce quale è il codice agente
const long codcf = atol(codtab.left(6));
consumi.set("CodiceTerminale", hd_find_codag(codcf));
consumi.set("CodiceCliente", codcf);
consumi.set("Anno", codtab.right(4));
consumi.set("GruppoMerc", grmerc);
for (int i = 1; i <= 12; i++)
{
TString8 inpfld; inpfld.format("I%d", i);
TString8 outfld; outfld.format("Qta%d", i);
consumi.set(outfld, archivio_stc.get(inpfld));
}
consumi.set("QtaOmaggi", archivio_stc.get("I0"));
}
return salva_recordset(consumi, "consumi");
}
bool TFile2Txt::genera_tabpag_txt()
{
TEsporta_pagamenti_recordset tabpag;
@ -993,6 +1033,9 @@ void TFile2Txt::elabora(const TMask& mask, TLog_report& log)
if (mask.get_bool(F_INIMAG) && go_on)
go_on = genera_ripristino_txt(mask);
if (mask.get_bool(F_CONSUMI) && go_on)
go_on = genera_consumi_txt(mask);
/* Per il momento preferiscono agire manualmente
//c) lancia il concentratore in modalità di carico
carica_concentratore();

View File

@ -15,6 +15,7 @@
#define F_TABPAG 223
#define F_CARICO 224
#define F_INIMAG 225
#define F_CONSUMI 226
#define F_DA_CODCLI 230
#define F_DA_SOSP_CODCLI 231

View File

@ -111,6 +111,12 @@ BEGIN
FIELD Barcode
END
BOOLEAN F_CONSUMI
BEGIN
PROMPT 32 7 "Storico Consumi"
FIELD Consumi
END
BOOLEAN F_ATTREZZA
BEGIN
PROMPT 53 4 "Attrezzature"
@ -224,6 +230,14 @@ BEGIN
FIELD Annomag
END
STRING 30 70 50
BEGIN
PROMPT 10 -3 "Profilo "
PSELECT
FLAGS "G"
END
ENDPAGE
TOOLBAR "topbar" 0 0 0 2

View File

@ -565,10 +565,35 @@ TEsporta_storico_attrezzature_recordset::TEsporta_storico_attrezzature_recordset
//Pagamenti
//---------------
TEsporta_pagamenti_recordset::TEsporta_pagamenti_recordset()
: THardy_recordset(27)
: THardy_recordset(27)
{
add_field("CodicePagamento", T_X, 1, 2); //x
add_field("DescrPagamento", T_X, 3, 20); //x
add_field("GiorniScadenza", T_N, 23, 3); //x
add_eol_field();
}
//Consumi
//---------------
TEsporta_consumi_recordset::TEsporta_consumi_recordset()
: THardy_recordset(137)
{
add_field("CodiceTerminale", T_N, 1, 3);
add_field("CodiceCliente", T_X, 4, 6);
add_field("Anno", T_N, 10, 4);
add_field("GruppoMerc", T_X, 14, 5);
add_field("Qta1", T_N, 19, 9);
add_field("Qta2", T_N, 28, 9);
add_field("Qta3", T_N, 37, 9);
add_field("Qta4", T_N, 46, 9);
add_field("Qta5", T_N, 55, 9);
add_field("Qta6", T_N, 64, 9);
add_field("Qta7", T_N, 73, 9);
add_field("Qta8", T_N, 82, 9);
add_field("Qta9", T_N, 91, 9);
add_field("Qta10", T_N,100, 9);
add_field("Qta11", T_N,109, 9);
add_field("Qta12", T_N,118, 9);
add_field("QtaOmaggi", T_N,127, 9);
add_eol_field();
}

View File

@ -212,6 +212,13 @@ public:
TEsporta_pagamenti_recordset();
};
// Storico Consumi ()
//-----------------
class TEsporta_consumi_recordset : public THardy_recordset
{
public:
TEsporta_consumi_recordset();
};
#endif

182
ha/ha1400.cpp Normal file
View File

@ -0,0 +1,182 @@
#include <applicat.h>
#include <mask.h>
#include <progind.h>
#include <recarray.h>
#include <recset.h>
#include <../mg/anamag.h>
#include <doc.h>
#include <rdoc.h>
class TStorico_consumi : public TSkeleton_application
{
protected:
TRecnotype kill_records(int anno, TAssoc_array& clifo_grmerc) const;
TRecnotype build_records(int anno, TAssoc_array& clifo_grmerc) const;
void elabora(int anno) const;
public:
virtual void main_loop();
};
TRecnotype TStorico_consumi::kill_records(int anno, TAssoc_array& clifo_grmerc) const
{
TISAM_recordset stc("&STC");
TProgind pi(stc.items(), TR("Analisi storico consumi"));
for (bool ok = stc.move_first(); ok; ok = stc.move_next())
{
if (!pi.addstatus(1))
break;
const TString& key = stc.get("CODTAB").as_string();
if (atoi(key.right(4)) == anno || key.find('@') > 0)
clifo_grmerc.add(key);
}
return clifo_grmerc.items();
}
TRecnotype TStorico_consumi::build_records(int anno, TAssoc_array& clifo_grmerc) const
{
TString query, limit;
limit << "PROVV=D ANNO=" << anno;
query << "USE RDOC KEY 3"
<< "\nFROM " << limit
<< "\nTO " << limit;
TISAM_recordset rdoc(query);
TProgind pi(rdoc.items(), TR("Scansione documenti"));
TToken_string key;
for (bool ok = rdoc.move_first(); ok; ok = rdoc.move_next())
{
if (!pi.addstatus(1))
break;
const TString4 tiporiga = rdoc.get(RDOC_TIPORIGA).as_string();
if (tiporiga != "01" && tiporiga != "09")
continue;
key = rdoc.get(RDOC_PROVV).as_string();
key.add(rdoc.get(RDOC_ANNO).as_string());
key.add(rdoc.get(RDOC_CODNUM).as_string());
key.add(rdoc.get(RDOC_NDOC).as_string());
const TRectype& doc = cache().get(LF_DOC, key);
const long codcf = doc.get_long(DOC_CODCF);
const TDate datadoc = doc.get(DOC_DATADOC);
const TString4 tipo = doc.get(DOC_TIPODOC);
const TString& b2 = cache().get("%TIP", tipo, "B2");
if (b2.blank())
continue;
const TRectype& anamag = cache().get(LF_ANAMAG, rdoc.get(RDOC_CODARTMAG).as_string());
TString4 grmerc = anamag.get(ANAMAG_GRMERC).left(3);
grmerc.left_just(3);
key.format("%06ld%s%4d", codcf, (const char*)grmerc, anno);
TRectype* rec = (TRectype*)clifo_grmerc.objptr(key);
if (rec == NULL)
{
rec = new TRectype(LF_TABMOD);
rec->put("MOD", "HA");
rec->put("COD", "STC");
rec->put("CODTAB", key);
TString16 s0;
s0.format("%s%06ld%4d", (const char*)grmerc, codcf, anno);
rec->put("S0", s0);
clifo_grmerc.add(key, rec);
}
real qta = rdoc.get(RDOC_QTA).as_real();
qta *= CENTO; qta.round(); // Salvo la quantità moltiplicata per 100 ed arrotondata
const real valore = rdoc.get("RG1:IMPNS").as_real();
TString8 qta_field, val_field;
if (tiporiga == "01")
{
qta_field.format("I%d", datadoc.month());
val_field.format("R%d", datadoc.month());
}
else
{
qta_field = "I0";
val_field = "R0";
}
rec->add(qta_field, qta);
rec->add(val_field, valore);
}
return clifo_grmerc.items();
}
void TStorico_consumi::elabora(int anno) const
{
TAssoc_array old_recs, new_recs;
TRecnotype old_tot = kill_records(anno, old_recs);
const TRecnotype new_tot = build_records(anno, new_recs);
TFast_isamfile stc(LF_TABMOD);
if (new_tot)
{
TProgind pi(new_tot, TR("Salvataggio storico"));
FOR_EACH_ASSOC_OBJECT(new_recs, obj, key, rec)
{
if (!pi.addstatus(1))
break;
const TRectype& r = *(TRectype*)rec;
int err = r.rewrite_write(stc);
if (err == NOERR)
{
const TString& key = r.get("CODTAB");
old_recs.remove(key); // Tolgo il record dalla lista di quelli da cancellare
}
else
{
error_box(FR("Errore %d di scrittura sulla tabella STC"), err);
break;
}
}
}
old_tot = old_recs.items();
if (old_tot) // Cancello i record dell'anno che non esistono più
{
TProgind pi(old_tot, TR("Allineamento storico"));
TRectype& rec = stc.curr();
FOR_EACH_ASSOC_OBJECT(old_recs, obj, key, itm)
{
if (!pi.addstatus(1))
break;
rec.put("MOD", "HA");
rec.put("COD", "STC");
rec.put("CODTAB", key);
const int err = rec.remove(stc);
if (err != NOERR)
{
error_box(FR("Errore %d di cancellazione sulla tabella STC"), err);
break;
}
}
}
}
void TStorico_consumi::main_loop()
{
TMask m(main_app().title(), 1, 24, 5);
m.add_number(101, 0, "Anno ", 1, 1, 4, "U").check_type(CHECK_REQUIRED);
m.add_button(DLG_OK, 0, "", -12, -1, 8, 2);
m.add_button(DLG_CANCEL, 0, "", -22, -1, 8, 2);
while (m.run() == K_ENTER)
elabora(m.get_int(101));
}
int ha1400(int argc, char* argv[])
{
TStorico_consumi a;
a.run(argc, argv, TR("Storico Consumi"));
return 0;
}

View File

@ -379,4 +379,4 @@ int ha3100 (int argc, char* argv[])
TGestione_giri_app elabapp;
elabapp.run(argc, argv, APPNAME);
return 0;
}
}