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

Patch level : 10.0 PATCH ???

Browse Source 
Files correlati     : lv3
Ricompilazione Demo : [ ]
Commento            :
Sistemato il metodo di proposta dell'agente


git-svn-id: svn://10.65.10.50/branches/R_10_00@21134 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2010-11-12 10:38:42 +00:00
parent a1ad68fb61
commit 957dc92731
2 changed files with 49 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lv/lv3100.cpp
View File

@ -181,9 +181,29 @@ TDate TGestione_bolle_msk::proponi_dataprco() const
//PROPONI_AUTISTA: metodo che propone l'autista previsto per la data di prevista consegna
TString8 TGestione_bolle_msk::proponi_autista() const
{
const TDate dataprco = get(F_LVDATAPRCO);
const TDate datadoc = get(F_DATADOC);
const int indsped = get_int(F_CODINDSP);
const long codcf = get_long(F_CODCF);
const long codcont = get_long(F_LVCODCONT);
const long codcont = lv_find_contract(codcf, indsped, datadoc);
TDate dataprco;
if (datadoc.ok())
{
TDate adata = datadoc;
adata.addmonth(1);
TString query = "USE LVRCONSPLAN KEY 3\n";
query << "FROM CODCF=" << codcf << " CODCONT=" << codcont << " DTCONS=" << datadoc << "\n";
query << "TO CODCF=" << codcf << " CODCONT=" << codcont << " DTCONS=" << adata << "\n";
TISAM_recordset consegne(query);
if (consegne.items() >= 2)
{
consegne.move_to(1);
dataprco = consegne.get(LVRCONSPLAN_DTCONS).as_date();
}
}
TString query = "USE LVRCONSPLAN KEY 3\n";
query << "FROM CODCF=" << codcf << " CODCONT=" << codcont << " DTCONS=#DADATA\n";
@ -395,6 +415,8 @@ bool TGestione_bolle_msk::lv_bolla_handler(TMask_field& f, KEY k)
default: break;
}
TGestione_bolle_msk& dmsk = (TGestione_bolle_msk&)f.mask();
if(dmsk.mode() == MODE_INS)
dmsk.set(F_CODAG, dmsk.proponi_autista());
if (ok && k == K_TAB && ((dmsk.insert_mode() && f.to_check(k, true)) || f.focusdirty()) && dmsk.mode() != MODE_MOD )
{
@ -431,10 +453,6 @@ bool TGestione_bolle_msk::lv_bolla_handler(TMask_field& f, KEY k)
const TDate dataprco = dmsk.proponi_dataprco();
if (dataprco.ok() && dmsk.field(F_LVDATAPRCO).empty())
doc.put("DATAPRCO", dataprco);
const TString8 autista = dmsk.proponi_autista();
if (dmsk.field(F_CODAG).empty())
doc.put(DOC_CODAG, autista);
}
if (dmsk._stcodcf == codcf && dmsk._stcodcont == codcont && nrighe > 0)

27
lv/lv3300.cpp
View File

@ -177,9 +177,29 @@ TDate TGestione_buoni_msk::proponi_dataprco() const
//PROPONI_AUTISTA: metodo che propone l'autista previsto per la data di prevista consegna
TString8 TGestione_buoni_msk::proponi_autista() const
{
const TDate dataprco = get(F_LVDATAPRCO);
const TDate datadoc = get(F_DATADOC);
const int indsped = get_int(F_CODINDSP);
const long codcf = get_long(F_CODCF);
const long codcont = get_long(F_LVCODCONT);
const long codcont = lv_find_contract(codcf, indsped, datadoc);
TDate dataprco;
if (datadoc.ok())
{
TDate adata = datadoc;
adata.addmonth(1);
TString query = "USE LVRCONSPLAN KEY 3\n";
query << "FROM CODCF=" << codcf << " CODCONT=" << codcont << " DTCONS=" << datadoc << "\n";
query << "TO CODCF=" << codcf << " CODCONT=" << codcont << " DTCONS=" << adata << "\n";
TISAM_recordset consegne(query);
if (consegne.items() >= 2)
{
consegne.move_to(1);
dataprco = consegne.get(LVRCONSPLAN_DTCONS).as_date();
}
}
TString query = "USE LVRCONSPLAN KEY 3\n";
query << "FROM CODCF=" << codcf << " CODCONT=" << codcont << " DTCONS=#DADATA\n";
@ -201,6 +221,7 @@ TString8 TGestione_buoni_msk::proponi_autista() const
codaut = cfven.get(CFV_CODAG);
}
return codaut;
}
////////////////////////////
@ -393,6 +414,8 @@ bool TGestione_buoni_msk::set_righe_buono_handler(TMask_field& f, KEY k)
}
TGestione_buoni_msk& dmsk = (TGestione_buoni_msk&)f.mask();
if(dmsk.mode() == MODE_INS)
dmsk.set(F_CODAG, dmsk.proponi_autista());
if (ok && k == K_TAB && ((dmsk.insert_mode() && f.to_check(k, true)) || f.focusdirty()) && dmsk.mode() != MODE_MOD)
{