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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@21170 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2010-11-23 16:38:24 +00:00
parent 9110f73911
commit 7c27eeb97b
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lv/lv3100.cpp
View File

@ -155,12 +155,13 @@ void TGestione_bolle_msk::dettaglio_causale(TSheet_field& ss)
//PROPONI_DATAPRCO: metodo che propone la prima data di prevista consegna
TDate TGestione_bolle_msk::proponi_dataprco() const
{
const TDate dadata = get(F_DATADOC);
TDate dataprco(0,0,0);
TDate dadata = get(F_DATADOC);
TDate dataprco = NULLDATE;
if (dadata.ok())
{
TDate adata = dadata;
++dadata;
adata.addmonth(1);
TString query = "USE LVRCONSPLAN KEY 3\n";
@ -168,11 +169,9 @@ TDate TGestione_bolle_msk::proponi_dataprco() const
query << "TO CODCF=" << get(F_CODCF) << " CODCONT=" << get(F_LVCODCONT) << " DTCONS=" << adata << "\n";
TISAM_recordset consegne(query);
if (consegne.items() >= 2)
{
consegne.move_to(1);
dataprco = consegne.get(LVRCONSPLAN_DTCONS).as_date();
}
if (consegne.move_first())
dataprco = consegne.get(LVRCONSPLAN_DTCONS).as_date();
}
return dataprco;