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

Patch level : 10.0

Browse Source 
Files correlati     : lv0.exe
Ricompilazione Demo : [ ]
Commento            :
Implemetata generazione prossimo codice per tutte le tabelle con codice numerico
Semplificarta lettura scrittura tabella passaggi planning


git-svn-id: svn://10.65.10.50/trunk@17228 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2008-09-11 15:47:10 +00:00
parent d2c61a322c
commit 7702fd3969
4 changed files with 84 additions and 274 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lv/lv0100.cpp
View File

@ -30,6 +30,7 @@ class TLV_table_app : public TTable_module_application
{
protected: // TRelation_application
virtual TMask* user_create_mask();
virtual bool get_next_key(TToken_string& key);
public:
};
@ -45,6 +46,24 @@ TMask* TLV_table_app::user_create_mask()
return TTable_module_application::user_create_mask();
}
// Cerca di generare automaticamente la prossima chiave numerica di una tabella
bool TLV_table_app::get_next_key(TToken_string& key)
{
// Controlla se il campo COTDAB e' numerico
TMask& msk = curr_mask();
TMask_field* keyfield = msk.find_by_fieldname("CODTAB");
if (keyfield != NULL && keyfield->is_kind_of(CLASS_REAL_FIELD))
{
long num = 1;
TLocalisamfile& tab = get_relation()->lfile();
if (tab.last() == NOERR) // Cerca l'eventuale ultimo record della tabella
num += tab.get_long("CODTAB");
// Costrusci la chiave formattata alla giusta lunghezza del campo, es: "101|0003"
key.format("%d|%0*ld", keyfield->dlg(), keyfield->size(), num);
}
return key.full(); // Ritorna true se la procedura e' riuscita
}
int lv0100(int argc, char* argv[])
{
TLV_table_app a;

273
lv/lv0500.cpp
View File

@ -1,4 +1,5 @@
#include <automask.h>
#include <recarray.h>
#include <relapp.h>
#include <progind.h>
#include <reputils.h>
@ -18,7 +19,6 @@ class TPass_plan_contr_mask : public TAutomask
{
private:
void proponi_orario();
void nuovo_persosp();
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
@ -35,40 +35,6 @@ void TPass_plan_contr_mask::proponi_orario()
return;
}
//questa funzione viene richiamata ogni volta che si aggiunge una riga allo sheet dei periodi di sospensione...
//...e propone il codice del periodo in automatico
void TPass_plan_contr_mask::nuovo_persosp()
{
//recupero il codcf e il codcont dalla maschera
const long codcli = get_long(F_CODCF);
const long codcont = get_long(F_CODCONT);
int codper; //codice periodo di sospensione
//variabili per lavorare sullo sheet
TSheet_field& sheet = sfield(F_PERSOSP);
TToken_string& rigamodificata = sheet.row(sheet.items()-1);
//se è la prima riga che inserisco, cerco l'ultimo CODPER per la coppia...
//...cliente - contratto sulla tabella, e lo incremento di 1
if (sheet.items()==1)
{
TISAM_recordset psosp("USE LVPERISOSP\n FROM CODCF=#CODCF CODCONT=#CODCONT\nTO CODCF=#CODCF CODCONT=#CODCONT");
psosp.set_var("#CODCF",codcli);
psosp.set_var("#CODCONT",codcont);
psosp.move_last();
codper = psosp.get("LVPERISOSP_CODPER").as_int()+1;
}
else //se esistono già altre righe, prendo il codice dalla riga precedente, e lo incremento di 1
{
TToken_string& rigaprecedente = sheet.row(sheet.items()-2);
codper = rigaprecedente.get_int(sheet.cid2index(F_S_CODPER))+1;
}
rigamodificata.add(codper,sheet.cid2index(F_S_CODPER)); //metto in codper nella posizione giusta sulla TToken_string
return;
}
bool TPass_plan_contr_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
switch (o.dlg())
@ -78,17 +44,10 @@ bool TPass_plan_contr_mask::on_field_event(TOperable_field& o, TField_event e, l
{
case se_notify_add:
proponi_orario();
break;
default: break;
}
case F_PERSOSP:
switch (e)
{
case se_notify_add: //se si aggiunge una riga nuova allo sheet
nuovo_persosp();
break;
default:
break;
}
break;
default:
break;
}
@ -111,16 +70,9 @@ class TPass_plan_contr : public TRelation_application
private:
void fill_pasplan(const long codcli, const long codcont); //riempie i passaggi planning per contratto
void fill_persosp(const long codcli, const long codcont); //riempie i periodi di sospensione
int find_pass(TSheet_field& s,const int ggcons, const int coditi) const; //controlla se esiste una passaggio
int find_sosp(TSheet_field& s,const int codper) const; //controlla se esiste un periodo di sospensione
int write_pasplan(TSheet_field& pasplan, const long codcli, const long codcont); //scrive i passaggi planning per contratto
int write_persosp(TSheet_field& persosp, const long codcli, const long codcont); //scrive i periodi di sospensione
int remove_pasplan(TSheet_field& pasplan, const long codcli, const long codcont); //cancella i passaggi planning per contratto
int remove_persosp(TSheet_field& persosp, const long codcli, const long codcont); //cancella i periodi di sospensionE
int remove_pasplan(const long codcli, const long codcont); //cancella i passaggi planning per contratto
protected:
virtual void init_query_mode(TMask& m);
@ -194,56 +146,21 @@ void TPass_plan_contr::fill_pasplan(const long codcli,const long codcont)
return;
}
//FILL_PERSOSP: questa funzione riempie lo sheet dei periodi di sospensione, recuperando eventualmente i dati già inseriti...
//...nella tabella dei periodi di sospensione (LVPERISOSP) per la coppia cliente - contratto selezionata
void TPass_plan_contr::fill_persosp(const long codcli,const long codcont)
{
//preparo il recordset su LVPERISOSP
TISAM_recordset psosp("USE LVPERISOSP\n FROM CODCF=#CODCF CODCONT=#CODCONT\nTO CODCF=#CODCF CODCONT=#CODCONT");
psosp.set_var("#CODCF",codcli);
psosp.set_var("#CODCONT",codcont);
TProgind pi(psosp.items(), TR("Elaborazione dati periodi di sospensione in corso..."), true, true);
TSheet_field& sheet = _mask->sfield(F_PERSOSP);
TMask& sheetmask = sheet.sheet_mask();
TRelation& rel = *psosp.cursor()->relation(); //accesso al file delle righe
sheet.destroy();
for (bool ok = psosp.move_first(); ok; ok = psosp.move_next())
{
if (!pi.addstatus(1))
break;
TToken_string& row = sheet.row(-1); //crea una nuova riga dello sheet
//scandisco nella maschera tutti i campi che hanno un field
FOR_EACH_MASK_FIELD(sheetmask,i,f)
{
const TFieldref* fr = f->field(); //leggo il valore dalla relation
if (fr != NULL)
row.add(fr->read(rel),sheet.cid2index(f->dlg())); //metto il valore letto nella posizione corretta nella TToken_string
}
sheet.check_row(sheet.items()-1); //fa fare alla maschera la decodifica dei codici e aggiorna la TToken_string
}
sheet.force_update(); //forza l'update dello sheet, in modo da rendere visibili i cambiamneti fatti
return;
}
//READ: ridefinizione metodo read() delle TRelation
int TPass_plan_contr::read(TMask& m)
{
//i due campi di testata DEVONO essere pieni tutte e due
if (_mask->field(F_CODCF).empty() || _mask->field(F_CODCONT).empty())
if (m.field(F_CODCF).empty() || m.field(F_CODCONT).empty())
return !NOERR;
//recupero i dati della testata
const long codcli = _mask->get_long(F_CODCF);
const long codcont = _mask->get_long(F_CODCONT);
const long codcli = m.get_long(F_CODCF);
const long codcont = m.get_long(F_CODCONT);
fill_pasplan(codcli,codcont);
fill_persosp(codcli,codcont);
TSheet_field& ps = m.sfield(F_PERSOSP);
ps.record()->read(*ps.putkey(*_rel));
ps.autoload(*_rel);
return NOERR;
}
@ -272,24 +189,6 @@ int TPass_plan_contr::find_pass(TSheet_field& s,const int ggcons, const int codi
return r;
}
//FIND_SOSP: questa funziona controlla se un periodo di sospensione che esiste sul file,
//esiste ancora sullo sheet (se non esiste è stato cancellato)
int TPass_plan_contr::find_sosp(TSheet_field& s,const int codper) const
{
int r=-1;
//per ogni riga dello sheet, leggi codice del periodo di sospensione,
//e se esiste interrompi restituendo un valore positivo,
//se no arriva fino in fondo e resituisci -1
for (r=s.items()-1;r>=0;r--)
{
const int cp = s.row(r).get_int(s.cid2index(F_S_CODPER));
if (codper == cp)
break;
}
return r;
}
//WRITE_PASPLAN: questa funzione scrive i dati sul file 164 (LVPASPLAN)
int TPass_plan_contr::write_pasplan(TSheet_field& pasplan, const long codcli, const long codcont)
@ -352,123 +251,50 @@ int TPass_plan_contr::write_pasplan(TSheet_field& pasplan, const long codcli, co
return err;
}
//WRITE_PERSOSP: questa funzione scrive i dati sul file 165 (LVPERISOSP)
int TPass_plan_contr::write_persosp(TSheet_field& persosp, const long codcli, const long codcont)
{
if (_mask->field(F_CODCF).empty() || _mask->field(F_CODCONT).empty())
return !NOERR;
//instanzio un TISAM_recordset
TISAM_recordset psosp("USE LVPERISOSP\n FROM CODCF=#CODCF CODCONT=#CODCONT\nTO CODCF=#CODCF CODCONT=#CODCONT");
psosp.set_var("#CODCF",codcli);
psosp.set_var("#CODCONT",codcont);
int err = NOERR;
//instanzio un TLocalisamfile
TLocalisamfile& file = psosp.cursor()->file();
//per ogni riga del recordset
for (bool ok=psosp.move_first(); ok; ok=psosp.move_next())
{
//leggo il codice del periodo di sospensione
const int sosp = psosp.get(LVPERISOSP_CODPER).as_int();
//tutte le righe del TISAM_recordset che NON SONO nel TRecord_array vanno eliminate dal file
if (find_sosp(persosp,sosp) < 0)
file.remove();
}
//creo un TRectype
TRectype& rec = file.curr();
//Maschera di sheet
TMask& msk = persosp.sheet_mask();
//per ogni riga dello sheet
FOR_EACH_SHEET_ROW(persosp,r,row)
{
//azzero il record
rec.zero();
//putto nel record codcli e codcont (sempre gli stessi)
rec.put(LVPERISOSP_CODCF,codcli);
rec.put(LVPERISOSP_CODCONT,codcont);
//per ogni campo della mashera di sheet
FOR_EACH_MASK_FIELD(msk,i,f)
{
//prendo il FIELD a cui si riferiscono
const TFieldref* fr = f->field();
//se efftivamente il campo ha un field di riferimento
if (fr!= NULL)
{
const char* field = fr->name(); //salvo il nome del campo
const int pos = persosp.cid2index(f->dlg()); //salvo la sua posizione all'inetrno dello sheet
rec.put(field,row->get(pos)); //putto il suo valore nel record che sto costruendo
}
}
//setto le informazioni di creazione e/o aggiornamento del record
if (_mask->edit_mode())
lv_set_update_info(rec);
else
lv_set_creation_info(rec);
err = file.rewrite_write(); //o faccio la rewrite, o faccio la write
}
return err;
}
//WRITE: ridefinizione metodo write delle TRelation
int TPass_plan_contr::write(const TMask& m)
{
if (_mask->field(F_CODCF).empty() || _mask->field(F_CODCONT).empty())
return !NOERR;
return _isnocurkey;
const long codcli = _mask->get_long(F_CODCF);
const long codcont = _mask->get_long(F_CODCONT);
int err_1;
int err_2;
int err_1 = NOERR;
//variabili per lavorare sugli sheet
TSheet_field& pasplan = _mask->sfield(F_PASPLAN);
TSheet_field& persosp = _mask->sfield(F_PERSOSP);
if (pasplan.items() > 0)
err_1 = write_pasplan(pasplan,codcli,codcont);
if (persosp.items() > 0)
err_2 = write_persosp(persosp,codcli,codcont);
err_1 = write_pasplan(pasplan,codcli,codcont);
return err_1 && err_2;
TSheet_field& ps = m.sfield(F_PERSOSP);
ps.autosave(*get_relation());
ps.record()->write(false);
return err_1;
}
//ridefinizione metodo rewrite delle TRelation
int TPass_plan_contr::rewrite(const TMask& m)
{
if (_mask->field(F_CODCF).empty() || _mask->field(F_CODCONT).empty())
return !NOERR;
return _isnocurkey;
const long codcli = _mask->get_long(F_CODCF);
const long codcont = _mask->get_long(F_CODCONT);
int err_1;
int err_2;
int err_1 = NOERR;
//variabili per lavorare sugli sheet
TSheet_field& pasplan = _mask->sfield(F_PASPLAN);
TSheet_field& persosp = _mask->sfield(F_PERSOSP);
if (pasplan.items() > 0)
err_1 = write_pasplan(pasplan,codcli,codcont);
if (persosp.items() > 0)
err_2 = write_persosp(persosp,codcli,codcont);
return err_1 && err_2;
TSheet_field& ps = m.sfield(F_PERSOSP);
ps.autosave(*_rel);
ps.record()->write(true);
return err_1;
}
///////////////////////////////////////////
@ -476,7 +302,7 @@ int TPass_plan_contr::rewrite(const TMask& m)
///////////////////////////////////////////
//REMOVE_PASPLAN: elimina tutte le righe dei passaggi per la coppia cliente - contratto selezionata
int TPass_plan_contr::remove_pasplan(TSheet_field& pasplan, const long codcli, const long codcont)
int TPass_plan_contr::remove_pasplan(const long codcli, const long codcont)
{
//instanzio un TISAM_recordset
TISAM_recordset pplan("USE LVPASPLAN\n FROM CODCF=#CODCF CODCONT=#CODCONT\nTO CODCF=#CODCF CODCONT=#CODCONT");
@ -489,54 +315,23 @@ int TPass_plan_contr::remove_pasplan(TSheet_field& pasplan, const long codcli, c
//instanzio un TLocalisamfile
TLocalisamfile& file = pplan.cursor()->file();
//per ogni riga del recordset
for (bool ok=pplan.move_first(); ok; ok=pplan.move_next())
{
for (bool ok=pplan.move_first(); ok && err == NOERR; ok=pplan.move_next())
err = file.remove();
}
return err;
}
//REMOVE_PERSOSP: elimina tutte le righe dei periodi di sospensione per la coppia cliente - contratto selezionata
int TPass_plan_contr::remove_persosp(TSheet_field& persosp, const long codcli, const long codcont)
{
//instanzio un TISAM_recordset
TISAM_recordset psosp("USE LVPERISOSP\n FROM CODCF=#CODCF CODCONT=#CODCONT\nTO CODCF=#CODCF CODCONT=#CODCONT");
psosp.set_var("#CODCF",codcli);
psosp.set_var("#CODCONT",codcont);
int err = NOERR;
//instanzio un TLocalisamfile
TLocalisamfile& file = psosp.cursor()->file();
//per ogni riga del recordset
for (bool ok=psosp.move_first(); ok; ok=psosp.move_next())
{
err = file.remove();
}
return err;
}
//REMOVE: ridefinizione del metodo remove delle TRelation
bool TPass_plan_contr::remove()
{
if (_mask->field(F_CODCF).empty() || _mask->field(F_CODCONT).empty())
return !NOERR;
TSheet_field& ps = _mask->sfield(F_PERSOSP);
ps.autosave(*_rel);
ps.record()->remove();
//valori recuperati dalla testata
const long codcli = _mask->get_long(F_CODCF);
const long codcont = _mask->get_long(F_CODCONT);
//variabili per lavorare sugli sheet
TSheet_field& pasplan = _mask->sfield(F_PASPLAN);
TSheet_field& persosp = _mask->sfield(F_PERSOSP);
int err_1 = remove_pasplan(pasplan,codcli,codcont);
int err_2 = remove_persosp(persosp,codcli,codcont);
return err_1 && err_2;
const long codcli = _rel->curr().get_long(LVPASPLAN_CODCF);
const long codcont = _rel->curr().get_long(LVPASPLAN_CODCONT);
return remove_pasplan(codcli,codcont) == NOERR;
}
///////////////////////////////////////////

17
lv/lv0500a.h
View File

@ -25,18 +25,17 @@
#define F_S_DATAUA 997
#define F_S_ORAUA 998
//campi sheet dei periodi di sospensione
#define F_S_CODPER 101
#define F_S_TPSOSP 102
#define F_S_TPSOSP 101
#define F_S_DTPSOSP 999
#define F_S_DADATA 103
#define F_S_ADATA 104
#define F_S_FLFAT 105
#define F_S_IMPFAT 106
#define F_S_PERFAT 107
#define F_S_NOTEPS 108
#define F_S_DADATA 102
#define F_S_ADATA 103
#define F_S_FLFAT 104
#define F_S_IMPFAT 105
#define F_S_PERFAT 106
#define F_S_NOTEPS 107
#define F_S_UTENTEC 993
#define F_S_DATAC 994
#define F_S_ORAC 995
#define F_S_UTENTEUA 996
#define F_S_DATAUA 997
#define F_S_ORAUA 998
#define F_S_ORAUA 998

49
lv/lv0500a.uml
View File

@ -66,29 +66,33 @@ END
SPREADSHEET F_PASPLAN 0 7
BEGIN
PROMPT 0 5 "Passaggi planning per contratto"
ITEM "Num."
ITEM "Giorno"
ITEM "Itinerario"
ITEM "Ordine\nfermata"
ITEM "Ora\nprevista"
ITEM "Mod. pass."
ITEM "Frequenza\nconsegne"
ITEM "Giro\nstagionale"
ITEM "Note@50"
PROMPT 0 5 "Passaggi planning per contratto"
ITEM "Num."
ITEM "Giorno"
ITEM "Itinerario"
ITEM "Ordine\nfermata"
ITEM "Ora\nprevista"
ITEM "Mod. pass."
ITEM "Frequenza\nconsegne"
ITEM "Giro\nstagionale"
ITEM "Note@50"
END
SPREADSHEET F_PERSOSP 0 7
BEGIN
PROMPT 0 13 "Periodi di sospensione"
ITEM "Codice"
ITEM "Tipo\nsospensione"
ITEM "Data\ninizio"
ITEM "Data\nfine"
ITEM "Fattura"
ITEM "Importo da\nfatturare"
ITEM "Percentuale da\nfatturare"
ITEM "Note@50"
PROMPT 0 13 "Periodi di sospensione"
ITEM "Tipo"
ITEM "Data\ninizio"
ITEM "Data\nfine"
ITEM "Fattura"
ITEM "Importo da\nfatturare"
ITEM "Percentuale da\nfatturare"
ITEM "Note@50"
USE LF_LVPERISOSP KEY CODPER
INPUT CODCF F_CODCF
INPUT CODCONT F_CODCONT
FLAGS "A"
END
ENDPAGE
@ -282,13 +286,6 @@ BEGIN
PROMPT 1 0 "@bDati periodo di sospensione"
END
NUMBER F_S_CODPER 6
BEGIN
PROMPT 2 1 "Codice "
FLAGS "ZDR"
FIELD CODPER
END
STRING F_S_TPSOSP 3
BEGIN
PROMPT 2 2 "Tipo "