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

Patch level : 10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
0001165: Non vengono memorizzati i dati di dotazione in gestione contratti
Descrizione  Non vengono registrati i campi:
Dotazione iniziale
Dotazione odierna
Dotazione temporanea

0001195: Non viene mantenuto il campo consegnato nel corpo "contratti"
Descrizione  Cambiare la tipologia di consegnato e premere pulsante registra.
Il nuovo valore non viene regitrato.

0001196: Sostituire dicitura pezzi per pacco con "pezzi per confezione"
Descrizione  Corpo contratti


git-svn-id: svn://10.65.10.50/trunk@18468 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2009-03-09 16:45:57 +00:00
parent 9b7006d6da
commit 484b54d6d4
3 changed files with 383 additions and 271 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

646
lv/lv0400.cpp
View File

@ -12,13 +12,18 @@
#include "../mg/mglib.h" #include "../mg/mglib.h"
#include "../mg/clifogiac.h" #include "../mg/clifogiac.h"
//LV_NEW_CONTRACT: metodo generale utilizzato sia nella maschera che nell'applicazione
//che restituisce il primo codcont libero
long lv_new_contract(long cliente, int indsped) long lv_new_contract(long cliente, int indsped)
{ {
//leggo dalla configurazione se la numerazione dei contratti
//è sequenziale per ditta o per cliente
TConfig ini(CONFIG_DITTA, "lv"); TConfig ini(CONFIG_DITTA, "lv");
const bool unicont=ini.get_bool("UniCont"); const bool unicont=ini.get_bool("UniCont");
long codcont=0; long codcont=0;
if (unicont)
if (unicont) //se la numerazione è per ditta, cerco in tutto LVCONDV il codcont più grande
{ {
TISAM_recordset recset ("USE LVCONDV"); TISAM_recordset recset ("USE LVCONDV");
for (bool ok=recset.move_first(); ok; ok=recset.move_next()) for (bool ok=recset.move_first(); ok; ok=recset.move_next())
@ -28,23 +33,26 @@ long lv_new_contract(long cliente, int indsped)
codcont=codice; codcont=codice;
} }
} }
else else //altrimenti cerco il codcont più grande di un determinato cliente
{ {
TString query; TString query;
query<<"USE LVCONDV \n" query<<"USE LVCONDV\n"
<<"FROM CODCF=#CLIENTE\n" <<"FROM CODCF=#CLIENTE\n"
<<"TO CODCF=#CLIENTE\n"; <<"TO CODCF=#CLIENTE\n";
TISAM_recordset recset (query); TISAM_recordset recset (query);
recset.set_var("#CLIENTE",cliente); recset.set_var("#CLIENTE",cliente);
if (recset.move_last()) if (recset.move_last())
codcont=recset.get("CODCONT").as_int(); codcont=recset.get("CODCONT").as_int();
} }
codcont++; codcont++;
return codcont; return codcont;
} }
//////////////////////////////
//// TCONTRATTI_MSK ////
//////////////////////////////
//classe TContratti_msk
class TContratti_msk: public TAutomask class TContratti_msk: public TAutomask
{ {
long _post_contr; long _post_contr;
@ -52,64 +60,94 @@ class TContratti_msk: public TAutomask
protected: protected:
bool on_art_select(); bool on_art_select();
virtual bool on_field_event(TOperable_field& o,TField_event e,long jolly);
virtual void on_idle(); virtual void on_idle();
virtual bool on_field_event(TOperable_field& o,TField_event e,long jolly);
public: public:
TContratti_msk(); TContratti_msk();
}; };
//ON_ART_SELECT: metodo che riempie i campi delle dotazioni e del consegnato sullo sheet e sulla maschera
//e riporta i dati dello sheet nel dettaglio sulla maschera (sotto lo sheet)
bool TContratti_msk::on_art_select() bool TContratti_msk::on_art_select()
{ {
TSheet_field& ss = sfield(F_RIGHE); //dallo sheet identifico la riga selezionata e estraggo i dati di interesse
TMask& rowmask = ss.sheet_mask(); TSheet_field& ss = sfield(F_RIGHE);
TToken_string & row = ss.row(ss.selected()); TToken_string& row = ss.row(ss.selected());
const TString80 codart(row.get(ss.cid2index(S_CODART))); const TString80 codart(row.get(ss.cid2index(S_CODART)));
const long codcf = get_long(F_CODCF); const long codcf = get_long(F_CODCF);
const int indsped = get_int(F_INDSPED); const int indsped = get_int(F_INDSPED);
TArticolo_lavanderie & artrec = cached_article_laundry(codart, 'C', codcf, indsped);
TDate datasc(TODAY); //instanzio un TArticolo_lavanderie per poter recuperare i dati di interesse
TArticolo_lavanderie& artrec = cached_article_laundry(codart, 'C', codcf, indsped);
//setto datasc a oggi e fisso l'anno esercizio
TDate datasc(TODAY);
const int annoes = esercizi().date2esc(datasc); const int annoes = esercizi().date2esc(datasc);
//estraggo l'indice dal record corrispondente su LF_CLIFOGIAC
int index = artrec.find_clifomag(annoes); int index = artrec.find_clifomag(annoes);
if (index > 0) //recupero la maschera di riga
TMask& rowmask = ss.sheet_mask();
//se esiste il record su LF_CLIFOGIAC, recupero l'unità di misura dalla riga dello sheet selezionata
//e setto i campi delle dotazioni e dei consegnati ai valori corretti riportati alla giusta unità di misura
if (index > 0)
{ {
const TString4 umcont(row.get(ss.cid2index(S_UM))); const TString4 umcont(row.get(ss.cid2index(S_UM))); //unità di misura
const real dotin = artrec.convert_to_um(artrec.clifomag(annoes)[index].get_real("DOTIN"),umcont);
//calcolo dotazione iniziale, scritta sia sulla maschera che sullo sheet
const real dotin = artrec.convert_to_um(artrec.clifomag(annoes)[index].get_real(CLIFOGIAC_DOTIN),umcont);
rowmask.set(S_DOTIN, dotin); rowmask.set(S_DOTIN, dotin);
row.add(dotin.stringa(), ss.cid2index(S_DOTIN)); row.add(dotin.stringa(), ss.cid2index(S_DOTIN));
const real dotod = artrec.convert_to_um(artrec.clifomag(annoes)[index].get_real("DOTOD"),umcont); //calcolo dotazione odierna, scritta sia sulla maschera che sullo sheet
const real dotod = artrec.convert_to_um(artrec.clifomag(annoes)[index].get_real(CLIFOGIAC_DOTOD),umcont);
rowmask.set(S_DOTOD, dotod); rowmask.set(S_DOTOD, dotod);
row.add(dotod.stringa(), ss.cid2index(S_DOTOD)); row.add(dotod.stringa(), ss.cid2index(S_DOTOD));
const real dottmp = artrec.convert_to_um(artrec.clifomag(annoes)[index].get_real("DOTTM"),umcont); //calcolo dotazione temporanea, scritta sia sulla maschera che sullo sheet
const real dottmp = artrec.convert_to_um(artrec.clifomag(annoes)[index].get_real(CLIFOGIAC_DOTTM),umcont);
rowmask.set(S_DOTTMP, dottmp); rowmask.set(S_DOTTMP, dottmp);
row.add(dottmp.stringa(), ss.cid2index(S_DOTTMP)); row.add(dottmp.stringa(), ss.cid2index(S_DOTTMP));
//calcolo consegnato anno, scritto sia sulla maschera che sullo sheet
const real consyear = artrec.convert_to_um(artrec.clifomag(annoes)[index].get_real("CONSANNO"),umcont); const real consyear = artrec.convert_to_um(artrec.clifomag(annoes)[index].get_real("CONSANNO"),umcont);
rowmask.set(S_CONSANNO, consyear); rowmask.set(S_CONSANNO, consyear);
row.add(consyear.stringa(), ss.cid2index(S_CONSANNO)); row.add(consyear.stringa(), ss.cid2index(S_CONSANNO));
//calcolo consegnato mese, scritto sia sulla maschera che sullo sheet
const real consmonth = artrec.convert_to_um(artrec.clifomag(annoes)[index].get_real("CONSMESE"),umcont); const real consmonth = artrec.convert_to_um(artrec.clifomag(annoes)[index].get_real("CONSMESE"),umcont);
rowmask.set(S_CONSMESE, consmonth); rowmask.set(S_CONSMESE, consmonth);
row.add(consmonth.stringa(), ss.cid2index(S_CONSMESE)); row.add(consmonth.stringa(), ss.cid2index(S_CONSMESE));
} }
const bool varclcons = artrec.get_int(ANAMAG_PPCONF)>0; //const bool varclcons = artrec.get_int(ANAMAG_PPCONF) > 0; //MAI UTILIZZATO; PRESUMO VARIABILE DI DEBUG
rowmask.set(S_PPCONF, artrec.get_int(ANAMAG_PPCONF));
ss.enable_cell(ss.selected(),ss.cid2index(S_CALCCONS)); row.add(artrec.get(ANAMAG_PPCONF), ss.cid2index(S_PPCONF));
rowmask.set(S_CALCCONS,"0"); //se PPCONF = 0 allora disabilito S_CALCONS e lo setto al valore di default
row.add("0",ss.cid2index(S_CALCCONS)); //altrimenti abilito la cella e permetto le modifiche
if (artrec.get_int(ANAMAG_PPCONF) == 0)
for (short id=F_CODART; id<=F_CODART+35; id++) {
{ rowmask.set(S_CALCCONS,"0");
const int pos=id2pos(id); row.add("0",ss.cid2index(S_CALCCONS));
if (pos>0) ss.disable_cell(ss.selected(),ss.cid2index(S_CALCCONS));
fld(pos).set(row.get(ss.cid2index(id-400)));
} }
else
ss.enable_cell(ss.selected(),ss.cid2index(S_CALCCONS));
//ciclo i dati di interesse della riga selezionata nel dettaglio
//sulla maschera principale
for (short id = F_CODART; id <= F_CODART+35; id++)
{
const int pos = id2pos(id);
if (pos>0)
fld(pos).set(row.get(ss.cid2index(id - 400)));
}
return true; return true;
} }
//ON_IDLE: ridefinizione del metodo on_idle() delle TAutomask per settare il focus
//nel posto desiderato
void TContratti_msk::on_idle() void TContratti_msk::on_idle()
{ {
if (_post_contr > 0) if (_post_contr > 0)
@ -121,12 +159,16 @@ void TContratti_msk::on_idle()
TAutomask::on_idle(); TAutomask::on_idle();
} }
//ON_FIELD_EVENT: definizione del metodo che setta i comportamenti dei vari campi della mashera
bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly) bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly)
{ {
switch(o.dlg()) switch(o.dlg())
{ {
case F_CODCF: case F_CODCF:
if (query_mode()) //se sono in query_mode e se il campo risulta pieno e modificato,
//e il codcont vuoto, allora riempio in automatico l'indirizzo di spedizione
//e propongo il contratto valido nella giornata di oggi
if (query_mode())
{ {
if (e == fe_modify && !o.empty() && efield(F_CODCONT).empty()) if (e == fe_modify && !o.empty() && efield(F_CODCONT).empty())
{ {
@ -138,9 +180,10 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
} }
break; break;
case DLG_PLANNING: case DLG_PLANNING:
if (e==fe_button && edit_mode()) //se viene premuto il bottone "Giri", lancia lv0500 (generatore automatico dei giri)
if (e == fe_button && edit_mode())
{ {
TRelation_application& app=(TRelation_application&) main_app(); TRelation_application& app = (TRelation_application&) main_app();
app.get_relation()->read(_isequal,_unlock); app.get_relation()->read(_isequal,_unlock);
TString str; TString str;
str << "lv0 -4 " << get(F_CODCF) << " " << get(F_CODCONT); str << "lv0 -4 " << get(F_CODCF) << " " << get(F_CODCONT);
@ -150,15 +193,19 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
} }
break; break;
case S_CODART: case S_CODART:
if (!o.empty()) if (!o.empty()) //se il campo risulta pieno
{ {
if (e==fe_modify) if (e == fe_modify) //e se risulta modificato
{ {
const TString& codart=o.get(); const TString& codart = o.get();
TSheet_field& ss=sfield(F_RIGHE); TSheet_field& ss = sfield(F_RIGHE);
TMask& m = o.mask(); // maschera di riga! TMask& m = o.mask(); // maschera di riga!
if (_artrig.full() && codart!=_artrig) //se ho scritto un articolo diverso da quello che esisteva prima
//e se si desidera veramente modificarlo, allora permetto la modifica
//e forzo l'updatre della riga, altrimenti riscrivo l'articolo che c'era prima
//e lascio tutto invariato
if (_artrig.full() && codart != _artrig)
{ {
if (!yesno_box("Si desidera veramente modificare l'articolo %s",(const char*) _artrig)) if (!yesno_box("Si desidera veramente modificare l'articolo %s",(const char*) _artrig))
{ {
@ -170,28 +217,34 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
else else
_artrig = codart; _artrig = codart;
} }
//se all'articolo è associata un'unità di misura, la propongo
//in automatico e richiamo il metodo ON_ART_SELECT(); altrimenti lo richiamo
//solo se è arrivato un fe_init al campo
TArticolo art(codart); TArticolo art(codart);
if (art.um().rows() > 0) if (art.um().rows() > 0)
{ {
const TString& um = art.um()[1].get(UMART_UM); const TString& um = art.um()[1].get(UMART_UM);
m.set(S_UM,um); m.set(S_UM,um);
TToken_string& row=ss.row(ss.selected()); TToken_string& row = ss.row(ss.selected());
row.add(o.get(),ss.cid2index(S_CODART)); row.add(o.get(),ss.cid2index(S_CODART));
row.add(um,S_UM); row.add(um,S_UM);
on_art_select(); on_art_select();
} }
} }
else else
if (e==fe_init) if (e == fe_init)
on_art_select(); on_art_select();
} }
break; break;
case F_RIGHE: case F_RIGHE:
if (e==se_enter) //se lo sheet ha ricevuto un se_enter, allora aggiorno i campi del dettaglio sulla mashera principale
if (e == se_enter)
{ {
TSheet_field& ss=(TSheet_field&)o; TSheet_field& ss = (TSheet_field&)o;
TToken_string& row=ss.row(ss.selected()); TToken_string& row = ss.row(ss.selected());
for (short id=F_CODART; id<=F_CODART+35; id++)
for (short id = F_CODART; id <= F_CODART+35; id++)
{ {
const int pos=id2pos(id); const int pos=id2pos(id);
if (pos>0) if (pos>0)
@ -200,13 +253,14 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
fld(pos).set_dirty(false); fld(pos).set_dirty(false);
} }
} }
_artrig=row.get(0); _artrig=row.get(0); //salvo nella variabile globale il codart della riga selezionata
} }
if (e==se_query_del) //se ho cancellato una riga dello sheet, chiedo conferma che sia effettivamente quello che si vuole fare
if (e == se_query_del)
{ {
TSheet_field& ss=(TSheet_field&)o; TSheet_field& ss = (TSheet_field&)o;
TToken_string& row=ss.row(ss.selected()); TToken_string& row = ss.row(ss.selected());
const TString codart=row.get(ss.cid2index(S_CODART)); const TString codart = row.get(ss.cid2index(S_CODART));
if (!yesno_box("Si desidera veramente cancellare l'articolo %s",(const char*) codart)) if (!yesno_box("Si desidera veramente cancellare l'articolo %s",(const char*) codart))
return false; return false;
} }
@ -214,11 +268,15 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
case DLG_NEWREC: case DLG_NEWREC:
if (e == fe_button) if (e == fe_button)
{ {
//se sono in edit_mode, forzo l'uscita dal contratto attuale
if (edit_mode()) if (edit_mode())
{ {
send_key(K_ESC, 0); send_key(K_ESC, 0);
return false; return false;
} }
//se sono in query_mode e esiste già un cliente selzionato, allora richiamo il metodo LV_NEW_CONTRACT()
//e calcolo il primo codcont libero proponendolo in automatico
if (query_mode()) if (query_mode())
{ {
const long codcf = get_long(F_CODCF); const long codcf = get_long(F_CODCF);
@ -233,14 +291,16 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
} }
break; break;
default: default:
if (e==fe_modify && is_running() && o.dlg()>500 && o.dlg() != F_CAUSLAVDESCRIG) //se sto modificando un campo con indice > 500 e diverso da F_CAUSLAVDESCRIG
//allora forzo l'update dello sheet sulla riga selezionata
if (e == fe_modify && is_running() && o.dlg() > 500/*&& o.dlg() != F_CAUSLAVDESCRIG*/)
{ {
TSheet_field& ss = sfield(F_RIGHE); TSheet_field& ss = sfield(F_RIGHE);
const int sel=ss.selected(); const int sel = ss.selected();
if (sel >= 0) if (sel >= 0)
{ {
const short rowid = o.dlg()-400; const short rowid = o.dlg() - 400;
const int index= ss.cid2index(rowid); const int index = ss.cid2index(rowid);
ss.sheet_mask().set(rowid,o.get()); ss.sheet_mask().set(rowid,o.get());
ss.row(sel).add(o.get(),index); ss.row(sel).add(o.get(),index);
ss.force_update(sel); ss.force_update(sel);
@ -248,26 +308,31 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
} }
break; break;
} }
return true; return true;
} }
//Costruttore; nasconde o mostra il campo F_INDSPED a seconda di cosa è scritto in configurazione
TContratti_msk::TContratti_msk():TAutomask("lv0400a"), _post_contr(0) TContratti_msk::TContratti_msk():TAutomask("lv0400a"), _post_contr(0)
{ {
TConfig* configlv = new TConfig(CONFIG_DITTA,"lv"); TConfig* configlv = new TConfig(CONFIG_DITTA,"lv");
char indir = configlv->get_char("Useindsp"); char indir = configlv->get_char("Useindsp");
if (indir!='X') if (indir != 'X')
field(F_INDSPED).hide(); field(F_INDSPED).hide();
} }
//////////////////////////////
//// TCONTRATTI_APP ////
//////////////////////////////
//classe TContratti_app
class TContratti_app: public TRelation_application class TContratti_app: public TRelation_application
{ {
TContratti_msk * _msk; TContratti_msk* _msk;
TRelation* _rel; TRelation* _rel;
private: private:
void save_rows(const TMask& m); void save_rows(const TMask& m);
void build_query(const TMask& m,TString& query) const; TString build_query(const TMask& m) const;
int find_art(TSheet_field& s,const TString& art) const; int find_art(TSheet_field& s,const TString& art) const;
protected: protected:
@ -276,12 +341,12 @@ protected:
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
virtual void on_config_change(); virtual void on_config_change(); //METODO VUOTO
virtual bool get_next_key(TToken_string& key); virtual bool get_next_key(TToken_string& key); //METODO MAI UTILIZZATO?
virtual int read(TMask& m); virtual int read(TMask& m);
virtual int write(const TMask& m); virtual int write(const TMask& m);
virtual int rewrite(const TMask& m); virtual int rewrite(const TMask& m);
virtual bool protected_record(TRectype & rec); virtual bool protected_record(TRectype & rec); //METODO MAI UTILIZZATO?
virtual bool remove(); virtual bool remove();
virtual void init_query_mode(TMask& m); virtual void init_query_mode(TMask& m);
virtual void init_insert_mode(TMask& m); virtual void init_insert_mode(TMask& m);
@ -290,6 +355,139 @@ protected:
bool kill_planning (TISAM_recordset& selrighe) const; bool kill_planning (TISAM_recordset& selrighe) const;
}; };
//SAVE_ROWS: questo metodo salva effettivamente le righe vislualizzate sullo sheet sul file
//LF_LVRCONDV e aggiorna e/o aggiunge record su LF_CLIFOGIAC
void TContratti_app::save_rows(const TMask& m)
{
//instanzio un TISAM_recordset sulle righe contratto
TISAM_recordset righeset(build_query(m));
//instazio un TLocalisamfile partendo dal recordset che ho appena creato
//(cioè su LF_LVRCONDV)
TLocalisamfile& file = righeset.cursor()->file();
//recupero lo sheet
TSheet_field& righe = m.sfield(F_RIGHE);
//scorro tutte le righe contratto e elimino tutte quelle che non ci sono più sullo sheet
for (bool ok = righeset.move_first(); ok; ok = righeset.move_next())
{
const TString& art = righeset.get("CODART").as_string();
if (find_art(righe, art) < 0)
file.remove();
}
//instanzio un TLocalisamfile su LF_CLIFOGIAC
TLocalisamfile magcli(LF_CLIFOGIAC);
//setto alcune variabili di interesse
const TDate oggi(TODAY);
const int year = oggi.year();
const long clifo = m.get_long(F_CODCF);
const int indsp = m.get_int(F_INDSPED);
//recupero la maschera di riga
TMask& msk = righe.sheet_mask();
//per ogni riga dello sheet
FOR_EACH_SHEET_ROW(righe, r, row)
{
file.zero();
file.put("CODCF",clifo);
file.put("CODCONT",m.get(F_CODCONT));
//per ogni campo della maschera scrivi setta all'interno del record corrente di file
//il valore di quei campi che hanno un field
FOR_EACH_MASK_FIELD(msk,i,f)
{
const TFieldref* fr = f->field();
if (fr != NULL)
{
const int pos = righe.cid2index(f->dlg());
fr->write(row->get(pos), file.curr());
}
}
//leggo il codart
const TString80 codart=row->get(0);
//se il codart è pieno
if (codart.full())
{
//scrivo o aggiorno il record sul file
file.rewrite_write();
//gestione LF_CLIFOGIAC
bool found = false;
magcli.zero();
//se sono in dicembre, allora leggo i dati dell'anno successivo
if (oggi.month() == 12)
{
magcli.put(CLIFOGIAC_ANNOES, year+1);
magcli.put(CLIFOGIAC_TIPOCF, 'C');
magcli.put(CLIFOGIAC_CODCF, clifo);
magcli.put(CLIFOGIAC_INDSPED, indsp);
magcli.put(CLIFOGIAC_CODART, codart);
found = magcli.read() == NOERR;
}
//se fallisce la read o non sono in dicembre, allora cerco nell'anno attuale (record svuotato dalla read)
if (!found)
{
magcli.zero();
magcli.put(CLIFOGIAC_ANNOES, year);
magcli.put(CLIFOGIAC_TIPOCF, 'C');
magcli.put(CLIFOGIAC_CODCF, clifo);
magcli.put(CLIFOGIAC_INDSPED, indsp);
magcli.put(CLIFOGIAC_CODART, codart);
found = magcli.read()==NOERR;
//se la read fallisce ancora, allora devo inserire tutto da capo (record svuotato dalla read)
if (!found) // FORZO LA SCRITTURA DELLA CHIAVE
{
magcli.zero();
magcli.put(CLIFOGIAC_ANNOES, year);
magcli.put(CLIFOGIAC_TIPOCF, 'C');
magcli.put(CLIFOGIAC_CODCF, clifo);
magcli.put(CLIFOGIAC_INDSPED, indsp);
magcli.put(CLIFOGIAC_CODART, codart);
}
}
//setto i valori delle dotazioni
magcli.put(CLIFOGIAC_DOTIN,row->get(righe.cid2index(S_DOTIN)));
magcli.put(CLIFOGIAC_DOTOD,row->get(righe.cid2index(S_DOTOD)));
magcli.put(CLIFOGIAC_DOTTM,row->get(righe.cid2index(S_DOTTMP)));
//scrivo o aggiorno il record corrispondente su LF_CLIFOGIAC
magcli.rewrite_write();
}
}
}
//BUILD_QUERY: metodo che crea la query sulle righe contratti
//recuperando i dati di interesse dalla maschera
TString TContratti_app:: build_query(const TMask& m) const
{
TString query="";
query << "USE LVRCONDV\n"
<< "FROM CODCF=" << m.get(F_CODCF) << " CODCONT=" << m.get(F_CODCONT) << "\n"
<< "TO CODCF=" << m.get(F_CODCF) << " CODCONT=" << m.get(F_CODCONT);
return query;
}
//FIND_ART: metodo che restituisce l'indice della riga dello sheet che contiene
//l'articolo desiderato (-1 se non lo trova)
int TContratti_app::find_art(TSheet_field& s, const TString& art) const
{
int r = -1;
//scorro le righe dello sheet partendo dall'ultima
for (r = s.items()-1 ; r>=0 ; r--)
{
const char* codart = s.row(r).get(0);
if (art == codart)
break;
}
return r;
}
//USER_CREATE: metodo che crea TRelation e TContratti_msk solo se si è in un esercizio valido
//e che setta i comportamenti sulle righe aggiunte agli sheet
bool TContratti_app:: user_create() bool TContratti_app:: user_create()
{ {
TDate datasc(TODAY); TDate datasc(TODAY);
@ -306,6 +504,7 @@ bool TContratti_app:: user_create()
return true; return true;
} }
//USER_DESTROY: metodo che distrugge le variabili globali alla fine dell'esecuzione
bool TContratti_app:: user_destroy() bool TContratti_app:: user_destroy()
{ {
delete _msk; delete _msk;
@ -313,14 +512,20 @@ bool TContratti_app:: user_destroy()
return true; return true;
} }
//ON_CONFIG_CHANGE: per adesso un semplice segnaposto
void TContratti_app:: on_config_change() void TContratti_app:: on_config_change()
{ {
int cazzone = 1;
} }
//GET_NEXT_KEY: metodo che restituisce la chiave di ricerca sui contratti prendendo il prossimo codcont libero
bool TContratti_app:: get_next_key(TToken_string& key) bool TContratti_app:: get_next_key(TToken_string& key)
{ {
const long cliente=_msk->get_long(F_CODCF); const long cliente=_msk->get_long(F_CODCF);
if (cliente<=0) return false; if (cliente <= 0)
return false;
key.add(F_CODCF); key.add(F_CODCF);
key.add(cliente); key.add(cliente);
key.add(F_CODCONT); key.add(F_CODCONT);
@ -331,58 +536,49 @@ bool TContratti_app:: get_next_key(TToken_string& key)
return true; return true;
} }
//READ: ridefinizione del metodo read() delle TRealtion_application
void TContratti_app:: build_query(const TMask& m,TString& query) const
{
query="";
query << "USE LVRCONDV\n"
<< "FROM CODCF="<<m.get(F_CODCF)<<" CODCONT="<<m.get(F_CODCONT)<<"\n"
<< "TO CODCF="<<m.get(F_CODCF)<<" CODCONT="<<m.get(F_CODCONT);
}
int TContratti_app:: read(TMask& m) int TContratti_app:: read(TMask& m)
{ {
int err=TRelation_application::read(m); //eseguo la read() standard
if(err==NOERR) int err = TRelation_application::read(m);
//se la read va a buon fine
if(err == NOERR)
{ {
TString query; //instanzio un TISAM_recordset sulle righe contratto
build_query(m,query); TISAM_recordset righeset(build_query(m));
TISAM_recordset righeset(query); const TRectype& rec = righeset.cursor()->curr();
const TRectype& rec=righeset.cursor()->curr();
//instanzio un TLcalisamfile su LF:CLIFOGIAC
TLocalisamfile magcli(LF_CLIFOGIAC); TLocalisamfile magcli(LF_CLIFOGIAC);
//setto alcune variabili di interesse
const TDate oggi(TODAY); const TDate oggi(TODAY);
const int year=oggi.year(); const int year = oggi.year();
const long clifo=m.get_long(F_CODCF); const long clifo = m.get_long(F_CODCF);
const int indsp=m.get_int(F_INDSPED); const int indsp = m.get_int(F_INDSPED);
//recupero sheet e realtiva mashera di riga
TSheet_field& righe=m.sfield(F_RIGHE); TSheet_field& righe = m.sfield(F_RIGHE);
TMask& msk=righe.sheet_mask(); TMask& msk = righe.sheet_mask();
const int coldotin=righe.cid2index(S_DOTIN);
const int coldotod=righe.cid2index(S_DOTOD);
const int coldottmp=righe.cid2index(S_DOTTMP);
righe.destroy(); righe.destroy();
for (bool ok=righeset.move_first(); ok; ok=righeset.move_next()) //per ogni riga dello sheet
for (bool ok = righeset.move_first(); ok; ok = righeset.move_next())
{ {
TToken_string& row=righe.row(-1); TToken_string& row = righe.row(-1);
//per ogni campo della maschera scrivi setta all'interno del record corrente di file
//il valore di quei campi che hanno un field
FOR_EACH_MASK_FIELD(msk,i,f) FOR_EACH_MASK_FIELD(msk,i,f)
{ {
const TFieldref*fr=f->field(); const TFieldref*fr=f->field();
if (fr!= NULL) if (fr!= NULL)
row.add(fr->read(rec),righe.cid2index(f->dlg())); row.add(fr->read(rec),righe.cid2index(f->dlg()));
} }
//lettura dei dati da LF_CLIFOGIAC
bool found = false; bool found = false;
magcli.zero(); magcli.zero();
const TString codart=row.get(0); const TString codart=row.get(0);
//se sono in dicembre, allora leggo i dati dell'anno successivo
if (oggi.month() == 12) if (oggi.month() == 12)
{ {
magcli.put(CLIFOGIAC_ANNOES, year+1); magcli.put(CLIFOGIAC_ANNOES, year+1);
@ -390,8 +586,9 @@ int TContratti_app:: read(TMask& m)
magcli.put(CLIFOGIAC_CODCF, clifo); magcli.put(CLIFOGIAC_CODCF, clifo);
magcli.put(CLIFOGIAC_INDSPED, indsp); magcli.put(CLIFOGIAC_INDSPED, indsp);
magcli.put(CLIFOGIAC_CODART, codart); magcli.put(CLIFOGIAC_CODART, codart);
found = magcli.read()==NOERR; found = magcli.read() == NOERR;
} }
//se fallisce la read o non sono in dicembre, allora cerco nell'anno attuale (record svuotato dalla read)
if (!found) if (!found)
{ {
magcli.zero(); magcli.zero();
@ -400,155 +597,112 @@ int TContratti_app:: read(TMask& m)
magcli.put(CLIFOGIAC_CODCF, clifo); magcli.put(CLIFOGIAC_CODCF, clifo);
magcli.put(CLIFOGIAC_INDSPED, indsp); magcli.put(CLIFOGIAC_INDSPED, indsp);
magcli.put(CLIFOGIAC_CODART, codart); magcli.put(CLIFOGIAC_CODART, codart);
found = magcli.read()==NOERR; found = magcli.read() == NOERR;
} }
//se la read riesce, leggo tutti i dati di interesse e li metto nella riga attuale dell sheet
if (found) if (found)
{ {
const int dotin=magcli.get_int("DOTIN"); const int dotin = magcli.get_int(CLIFOGIAC_DOTIN);
const int dotod=magcli.get_int("DOTOD"); const int dotod = magcli.get_int(CLIFOGIAC_DOTOD);
const int dottmp=magcli.get_int("DOTTM"); const int dottmp = magcli.get_int(CLIFOGIAC_DOTTM);
row.add(dotin,coldotin); row.add(dotin, righe.cid2index(S_DOTIN));
row.add(dotod,coldotod); row.add(dotod, righe.cid2index(S_DOTOD));
row.add(dottmp,coldottmp); row.add(dottmp, righe.cid2index(S_DOTTMP));
} }
righe.check_row(righe.items()-1,3); //forzo una check_row
righe.check_row(righe.items()-1, 3);
} }
//forzo l'update dello sheet
righe.force_update(); righe.force_update();
} }
return err; return err;
} }
int TContratti_app::find_art(TSheet_field& s,const TString& art) const //WRITE: ridefinizione del metodo write() delle TRelation_application
int TContratti_app::write(const TMask& m)
{ {
int r=-1; //esegui la write standard
for (r=s.items()-1;r>=0;r--) int err = TRelation_application::write(m);
//se va a buon fine esegui la save_rows() e ricorda all'utente i passaggi per planning
if(err == NOERR)
{ {
const char* codart= s.row(r).get(0); save_rows(m);
if (art==codart) warning_box(TR("Ricordarsi di inserire i passaggi per planning"));
break;
} }
return r; return err;
}
void TContratti_app::save_rows(const TMask& m)
{
TString query;
TSheet_field& righe=m.sfield(F_RIGHE);
build_query(m,query);
TISAM_recordset righeset(query);
TLocalisamfile& file=righeset.cursor()->file();
for (bool ok=righeset.move_first(); ok; ok=righeset.move_next())
{
const TString& art=righeset.get("CODART").as_string();
if (find_art(righe,art)<0)
file.remove();
}
TMask& msk=righe.sheet_mask();
const int colart=righe.cid2index(S_CODART);
const int coldotin=righe.cid2index(S_DOTIN);
const int coldotod=righe.cid2index(S_DOTOD);
const int coldottmp=righe.cid2index(S_DOTTMP);
TLocalisamfile magcli(LF_CLIFOGIAC);
const TDate oggi(TODAY);
const int year=oggi.year();
const long clifo=m.get_long(F_CODCF);
const int indsp=m.get_int(F_INDSPED);
FOR_EACH_SHEET_ROW(righe,r,row)
{
file.zero();
file.put("CODCF",clifo);
file.put("CODCONT",m.get(F_CODCONT));
FOR_EACH_MASK_FIELD(msk,i,f)
{
const TFieldref*fr=f->field();
if (fr!= NULL)
{
const int pos=righe.cid2index(f->dlg());
fr->write(row->get(pos),file.curr());
}
}
const TString80 codart=row->get(0);
if (codart.full())
{
file.rewrite_write();
bool found = false;
magcli.zero();
if (oggi.month() == 12)
{
magcli.put(CLIFOGIAC_ANNOES, year+1);
magcli.put(CLIFOGIAC_TIPOCF, 'C');
magcli.put(CLIFOGIAC_CODCF, clifo);
magcli.put(CLIFOGIAC_INDSPED, indsp);
magcli.put(CLIFOGIAC_CODART, codart);
found = magcli.read()==NOERR;
}
if (!found)
{
magcli.zero();
magcli.put(CLIFOGIAC_ANNOES, year);
magcli.put(CLIFOGIAC_TIPOCF, 'C');
magcli.put(CLIFOGIAC_CODCF, clifo);
magcli.put(CLIFOGIAC_INDSPED, indsp);
magcli.put(CLIFOGIAC_CODART, codart);
found = magcli.read()==NOERR;
if (!found) // FORZO LA SCRITTURA DELLA CHIAVE
{
magcli.zero();
magcli.put(CLIFOGIAC_ANNOES, year);
magcli.put(CLIFOGIAC_TIPOCF, 'C');
magcli.put(CLIFOGIAC_CODCF, clifo);
magcli.put(CLIFOGIAC_INDSPED, indsp);
magcli.put(CLIFOGIAC_CODART, codart);
}
}
magcli.put(CLIFOGIAC_DOTIN,row->get(coldotin));
magcli.put(CLIFOGIAC_DOTOD,row->get(coldotod));
magcli.put(CLIFOGIAC_DOTTM,row->get(coldottmp));
magcli.rewrite_write();
}
}
} }
//REWRITE: ridefinizione del metodo rewrite() delle TRelation_application
int TContratti_app::rewrite(const TMask& m)
{
//esegui la write standard
int err=TRelation_application::rewrite(m);
//se va a buon fine esegui la save_rows()
if(err == NOERR)
save_rows(m);
return err;
}
//PROTECTED_RECORD: metodo che rendo un record non cancellabile
bool TContratti_app::protected_record(TRectype & rec)
{
TLaundry_contract cont(rec);
return !cont.can_be_deleted();
}
//REMOVE: ridefinizione del metodo remove() delle TRelartion_application
bool TContratti_app::remove()
{
//eseguo la remove standard
bool ok = TRelation_application::remove();
//se va a buon fine, elimino anche le righe contratto dal file specifico
if(ok)
{
TISAM_recordset righeset(build_query(*_msk));
TLocalisamfile& file=righeset.cursor()->file();
for (bool ok = righeset.move_first(); ok; ok = righeset.move_next())
{
file.remove();
}
//elimino i planning esistenti per quel cliente - contratto
elimina_planning(_msk->get_long(F_CODCONT),_msk->get_long(F_CODCF));
}
return ok;
}
//INIT_QUERY_MODE: ridefinizione del metodo init_query_mode() standard
void TContratti_app::init_query_mode(TMask& m) void TContratti_app::init_query_mode(TMask& m)
{ {
//abilita il campo F_RAGSOC se il campo F_CODCF è abilitato
m.field(F_RAGSOC).enable(m.field(F_CODCF).enabled()); m.field(F_RAGSOC).enable(m.field(F_CODCF).enabled());
m.reset(); m.reset();
} }
//INIT_MODIFY_MODE: ridefinizione del metodo init_modify_mode() standard
void TContratti_app::init_modify_mode(TMask& m) void TContratti_app::init_modify_mode(TMask& m)
{ {
TSheet_field& righe=m.sfield(F_RIGHE); //setto alcune variabili di interesse
const int colart=righe.cid2index(S_CODART);
const int coldes=righe.cid2index(S_DESCR);
const int colum=righe.cid2index(S_UM);
const int coldotin=righe.cid2index(S_DOTIN);
const int coldotod=righe.cid2index(S_DOTOD);
const int coldottmp=righe.cid2index(S_DOTTMP);
TLocalisamfile magcli(LF_CLIFOGIAC);
const TDate oggi(TODAY); const TDate oggi(TODAY);
const int year=oggi.year(); const int year=oggi.year();
const long clifo=m.get_long(F_CODCF); const long clifo=m.get_long(F_CODCF);
const int indsp=m.get_int(F_INDSPED); const int indsp=m.get_int(F_INDSPED);
//instanzio un TLocaisamfile su LF_CLIFOGIAC
TLocalisamfile magcli(LF_CLIFOGIAC);
//recupero lo sheet
TSheet_field& righe = m.sfield(F_RIGHE);
//per ogni riga dello sheet aggiorno le dotazioni su LF_CLIFOGIAC
//per tutti ????, se il record esiste già
FOR_EACH_SHEET_ROW(righe,r,row) FOR_EACH_SHEET_ROW(righe,r,row)
{ {
const TString80 codart=row->get(colart); const TString80 codart=row->get(righe.cid2index(S_CODART));
// righe.disable_cell(r,colart); // righe.disable_cell(r, righe.cid2index(S_CODART));
// righe.disable_cell(r,coldes); // righe.disable_cell(r, righe.cid2index(S_DESCR));
// righe.disable_cell(r,colum); // righe.disable_cell(r, righe.cid2index(S_UM));
for (int y = year + oggi.month() == 12; y >= year; y--) for (int y = year + oggi.month() == 12; y >= year; y--)
{ {
@ -557,23 +711,23 @@ void TContratti_app::init_modify_mode(TMask& m)
magcli.put(CLIFOGIAC_CODCF, clifo); magcli.put(CLIFOGIAC_CODCF, clifo);
magcli.put(CLIFOGIAC_INDSPED, indsp); magcli.put(CLIFOGIAC_INDSPED, indsp);
magcli.put(CLIFOGIAC_CODART, codart); magcli.put(CLIFOGIAC_CODART, codart);
if (magcli.read()==NOERR)
if (magcli.read() == NOERR)
{ {
row->add(magcli.get("DOTIN"),coldotin); row->add(magcli.get(CLIFOGIAC_DOTIN), righe.cid2index(S_DOTIN));
row->add(magcli.get("DOTOD"),coldotod); row->add(magcli.get(CLIFOGIAC_DOTOD), righe.cid2index(S_DOTOD));
row->add(magcli.get("DOTTM"),coldottmp); row->add(magcli.get(CLIFOGIAC_DOTTM), righe.cid2index(S_DOTTMP));
break; break;
} }
} }
} }
} }
//INIT_INSERT_MODE: ridefinizione del metodo init_insert_mode() standard
void TContratti_app::init_insert_mode(TMask& m) void TContratti_app::init_insert_mode(TMask& m)
{ {
//se esiste già un contratto in essere alla data odierna per questo cliente,
//contrassegna quello attuale come "PROPOSTA"
const long codcf = m.get_long(F_CODCF); const long codcf = m.get_long(F_CODCF);
const long indsp = m.get_int(F_INDSPED); const long indsp = m.get_int(F_INDSPED);
const TDate oggi(TODAY); const TDate oggi(TODAY);
@ -583,35 +737,11 @@ void TContratti_app::init_insert_mode(TMask& m)
m.set(F_PROPOSTA, "X"); m.set(F_PROPOSTA, "X");
} }
int TContratti_app::write(const TMask& m) //ELIMINA PLANNING: metodo che prepara il recordset sui planning con le righe da eliminare
{
int err=TRelation_application::write(m);
if(err==NOERR)
{
save_rows(m);
warning_box(TR("Ricordarsi di inserire i passaggi per planning"));
}
return err;
}
int TContratti_app::rewrite(const TMask& m)
{
int err=TRelation_application::rewrite(m);
if(err==NOERR) save_rows(m);
return err;
}
bool TContratti_app::protected_record(TRectype & rec)
{
TLaundry_contract cont(rec);
return !cont.can_be_deleted();
}
bool TContratti_app::elimina_planning(const long& codcont, const long& codcf) const bool TContratti_app::elimina_planning(const long& codcont, const long& codcf) const
{ {
//creo il recordset //creo il recordset
TISAM_recordset selrighe("USE LVRCONSPLAN KEY 3\nFROM CODCF=#CODCF CODCONT=#CODCONT \nTO CODCF=#CODCF CODCONT=#CODCONT"); TISAM_recordset selrighe("USE LVRCONSPLAN KEY 3\nFROM CODCF=#CODCF CODCONT=#CODCONT \nTO CODCF=#CODCF CODCONT=#CODCONT");
//setto le variabili //setto le variabili
selrighe.set_var("#CODCF",codcf); selrighe.set_var("#CODCF",codcf);
selrighe.set_var("#CODCONT",codcont); selrighe.set_var("#CODCONT",codcont);
@ -622,9 +752,11 @@ bool TContratti_app::elimina_planning(const long& codcont, const long& codcf) co
return true; return true;
} }
//KILL_PLANNING: metodo che effettivamente fa la cancellazione dei planning interessati
bool TContratti_app::kill_planning (TISAM_recordset& selrighe) const bool TContratti_app::kill_planning (TISAM_recordset& selrighe) const
{ {
const TRecnotype righe = selrighe.items(); //se effettivamente ci sono delle righe da cancellare, allora le cancello
const int righe = selrighe.items();
if (righe > 0) if (righe > 0)
{ {
TProgind pi(righe, TR("Eliminazione planning in corso..."), true, true); TProgind pi(righe, TR("Eliminazione planning in corso..."), true, true);
@ -639,29 +771,9 @@ bool TContratti_app::kill_planning (TISAM_recordset& selrighe) const
return true; return true;
} }
bool TContratti_app::remove()
{
bool ok=TRelation_application::remove();
if(ok)
{
TString query;
build_query(*_msk,query);
TISAM_recordset righeset(query);
TLocalisamfile& file=righeset.cursor()->file();
for (bool ok=righeset.move_first(); ok; ok=righeset.move_next())
{
file.remove();
}
elimina_planning(_msk->get_long(F_CODCONT),_msk->get_long(F_CODCF));
}
return ok;
}
int lv0400(int argc, char* argv[]) int lv0400(int argc, char* argv[])
{ {
TContratti_app app; TContratti_app app;
app.run (argc,argv,TR("Gestione contratti")); app.run (argc,argv,TR("Gestione contratti"));
return 0; return 0;
} }

1
lv/lv0400.h
View File

@ -49,7 +49,6 @@
#define F_CODART 501 #define F_CODART 501
#define F_DESART 502 #define F_DESART 502
#define F_TIPOFORF 509 #define F_TIPOFORF 509
#define F_CAUSLAVDESCRIG 511
#define F_DOTTMP 512 #define F_DOTTMP 512
#define F_PRZDTTMP 513 #define F_PRZDTTMP 513
#define F_INDTTEMP 514 #define F_INDTTEMP 514

7
lv/lv0400a.uml
View File

@ -140,6 +140,7 @@ BEGIN
ITEM "Fatturazione\na kg" ITEM "Fatturazione\na kg"
ITEM "Arrotond." ITEM "Arrotond."
ITEM "UM@3" ITEM "UM@3"
ITEM "Pezzi per\nConf."
END END
STRING F_CODART 20 STRING F_CODART 20
@ -267,7 +268,7 @@ END
NUMBER F_PPCONF 15 5 NUMBER F_PPCONF 15 5
BEGIN BEGIN
PROMPT 1 18 "Pezzi per Pacco" PROMPT 1 18 "Pezzi per Confezione "
FLAGS "DG" FLAGS "DG"
MESSAGE EMPTY CLEAR,F_ARROT|CLEAR,F_CALCCONS MESSAGE EMPTY CLEAR,F_ARROT|CLEAR,F_CALCCONS
MESSAGE ENABLE,F_ARROT|ENABLE,F_CALCCONS MESSAGE ENABLE,F_ARROT|ENABLE,F_CALCCONS
@ -281,7 +282,7 @@ END
STRING F_TIPOLOGIA 20 STRING F_TIPOLOGIA 20
BEGIN BEGIN
PROMPT 1 19 "Tipologia " PROMPT 1 19 "Tipologia "
FLAGS "D" FLAGS "D"
END END
@ -888,7 +889,7 @@ END
NUMBER S_PPCONF 15 5 NUMBER S_PPCONF 15 5
BEGIN BEGIN
PROMPT 2 1 "Pezzi per Pacco" PROMPT 2 1 "Pezzi per Confezione "
FLAGS "DG" FLAGS "DG"
MESSAGE EMPTY CLEAR,S_ARROT|CLEAR,S_CALCCONS MESSAGE EMPTY CLEAR,S_ARROT|CLEAR,S_CALCCONS
MESSAGE ENABLE,S_ARROT|ENABLE,S_CALCCONS MESSAGE ENABLE,S_ARROT|ENABLE,S_CALCCONS