Patch level : 10.0 patch 414

Files correlati     : lv0, lv2
Ricompilazione Demo : [ ]
Commento            :
Utilizzate le nuove funzioni per recuperare i dati dai file ini (evitata quindi l'istanza di un nuovo file tutte le volte - sicuramente più efficiente


git-svn-id: svn://10.65.10.50/trunk@19226 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2009-08-25 14:57:29 +00:00
parent e5f88c409a
commit 4921dd1b12
4 changed files with 13 additions and 23 deletions

View File

@ -18,13 +18,10 @@
long lv_new_contract(long cliente, int indsped) long lv_new_contract(long cliente, int indsped)
{ {
//leggo dalla configurazione se la numerazione dei contratti //leggo dalla configurazione se la numerazione dei contratti
//è sequenziale per ditta o per cliente //è sequenziale per ditta o per cliente
TConfig ini(CONFIG_DITTA, "lv");
const bool unicont=ini.get_bool("UniCont");
long codcont=0; long codcont=0;
if (unicont) //se la numerazione è per ditta, cerco in tutto LVCONDV il codcont più grande if (ini_get_bool(CONFIG_DITTA, "lv", "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())
@ -91,7 +88,7 @@ bool TContratti_msk::on_art_select()
//recupero la maschera di riga //recupero la maschera di riga
TMask& rowmask = ss.sheet_mask(); TMask& rowmask = ss.sheet_mask();
if (ini_get_string(CONFIG_DITTA, "lv", "Qtamodi") != "X") if (!ini_get_bool(CONFIG_DITTA, "lv", "Qtamodi"))
{ {
field(F_DOTTMP).disable(); field(F_DOTTMP).disable();
rowmask.field(S_DOTIN).disable(); rowmask.field(S_DOTIN).disable();
@ -371,9 +368,7 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
//se è settata la categoria merceologica, leggo sia il listino che la cat merc, altrimenti solo il listino //se è settata la categoria merceologica, leggo sia il listino che la cat merc, altrimenti solo il listino
TString8 codlis = cfven.get(CFV_CODLIST); TString8 codlis = cfven.get(CFV_CODLIST);
TString8 catven; TString8 catven;
TConfig* configve = new TConfig(CONFIG_DITTA,"ve"); if (!ini_get_bool(CONFIG_DITTA,"ve", "GESLISCV"))
const char gesliscv = configve->get_char("GESLISCV");
if (gesliscv != 'X')
catven = ""; catven = "";
else else
catven = cfven.get(CFV_CATVEN); catven = cfven.get(CFV_CATVEN);
@ -523,9 +518,7 @@ bool TContratti_msk::on_field_event(TOperable_field& o,TField_event e,long jolly
//Costruttore; nasconde o mostra il campo F_INDSPED a seconda di cosa è scritto in configurazione //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"); if (ini_get_bool(CONFIG_DITTA,"lv", "Useindsp"))
char indir = configlv->get_char("Useindsp");
if (indir != 'X')
field(F_INDSPED).hide(); field(F_INDSPED).hide();
} }
@ -622,7 +615,7 @@ void TContratti_app::save_rows(const TMask& m)
{ {
file.rewrite_write(); file.rewrite_write();
//se il codart è pieno e le quantità sono modificabili (da configurazione) //se il codart è pieno e le quantità sono modificabili (da configurazione)
if (ini_get_string(CONFIG_DITTA, "lv", "Qtamodi") == "X") if (ini_get_bool(CONFIG_DITTA, "lv", "Qtamodi"))
{ {
TArticolo_lavanderie& artrec = cached_article_laundry(codart, 'C', clifo, indsp); TArticolo_lavanderie& artrec = cached_article_laundry(codart, 'C', clifo, indsp);
TRecmag_lavanderie& reclav = (TRecmag_lavanderie&)artrec.find_rec(year); TRecmag_lavanderie& reclav = (TRecmag_lavanderie&)artrec.find_rec(year);

View File

@ -146,9 +146,8 @@ int TPass_plan_contr::read(TMask& m)
void TPass_plan_contr::genera_giri(const long codcli) void TPass_plan_contr::genera_giri(const long codcli)
{ {
//la scrittura automatica dei giri viene fatta solo se è settato l'apposito flag... //la scrittura automatica dei giri viene fatta solo se è settato l'apposito flag...
//...nella configurazione di modulo //...nella configurazione di modulo
TConfig* configlv = new TConfig(CONFIG_DITTA,"lv"); if (ini_get_bool(CONFIG_DITTA, "lv", "Autgiri"))
if (configlv->get("Autgiri") == "X")
{ {
//richiamo il programma lv2100.cpp per generare i giri in autmatico dalla data odierna... //richiamo il programma lv2100.cpp per generare i giri in autmatico dalla data odierna...
//...alla data dell'ultimo giro già generato //...alla data dell'ultimo giro già generato

View File

@ -85,9 +85,8 @@ TString TRiepBolle_app::getQuery(bool isArticolo) const
//Richiamo parametri della ditta di configurazione //Richiamo parametri della ditta di configurazione
//file Ditta.ini //file Ditta.ini
TConfig lvini(CONFIG_DITTA, "lv"); const TString4 codnum = ini_get_string(CONFIG_DITTA, "lv", "NUM_GEN");
const TString4 codnum = lvini.get("NUM_GEN"); const TString4 tipodoc = ini_get_string(CONFIG_DITTA, "lv", "TIPODOC_GEN");
const TString4 tipodoc = lvini.get("TIPODOC_GEN");
select << "USE RDOC KEY 1\n"; select << "USE RDOC KEY 1\n";
select << "SELECT ((2000@.B2!='X')&&(3000@.S2[37,38] ='+1')&&(DOC.TIPODOC='" << tipodoc << "')&&"; select << "SELECT ((2000@.B2!='X')&&(3000@.S2[37,38] ='+1')&&(DOC.TIPODOC='" << tipodoc << "')&&";

View File

@ -66,10 +66,9 @@ TString TVend_cli_app::getQuery() const
TString query, select, between, orderBy, join, from , to; TString query, select, between, orderBy, join, from , to;
//Richiamo parametri della ditta di configurazione //Richiamo parametri della ditta di configurazione
//file Ditta.ini //file Ditta.ini
TConfig lvini(CONFIG_DITTA, "lv"); const TString4 codnum = ini_get_string(CONFIG_DITTA, "lv", "NUM_FAT");
const TString4 codnum = lvini.get("NUM_FAT"); const TString4 tipodoc = ini_get_string(CONFIG_DITTA, "lv", "TIPODOC_FAT");
const TString4 tipodoc = lvini.get("TIPODOC_FAT");
select << "USE RDOC KEY 1\n"; select << "USE RDOC KEY 1\n";
select << "SELECT ((DOC.TIPODOC='" << tipodoc << "')&&"; select << "SELECT ((DOC.TIPODOC='" << tipodoc << "')&&";