Patch level : 10.0 no patch
Files correlati : lv3 Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/branches/R_10_00@21081 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
3e14d5aa5c
commit
cbb9055e06
@ -997,27 +997,30 @@ bool TGestione_buoni_msk::pre_causale_handler(TMask_field& f, KEY k)
|
||||
|
||||
if (rdoc.get_date("ADATATMP").empty())
|
||||
{
|
||||
if (adata.ok() && adata >= datadoc)
|
||||
if (adata.ok()/* && adata >= datadoc*/)
|
||||
{
|
||||
rdoc.put("ADATATMP", adata);
|
||||
msk.field(FR_JOLLY4).set(adata);
|
||||
}
|
||||
else
|
||||
{
|
||||
//instanzio in TRecordset sui giri
|
||||
TISAM_recordset giri("USE LVRCONSPLAN KEY 3\nSELECT DTCONS>#DATADOC\nFROM CODCF=#CODCF CODCONT=#CODCONT\nTO CODCF=#CODCF CODCONT=#CODCONT");
|
||||
giri.set_var("#DATADOC", datadoc);
|
||||
giri.set_var("#CODCF", codcf);
|
||||
giri.set_var("#CODCONT", cont.get_long(LVCONDV_CODCONT));
|
||||
if (giri.move_first())
|
||||
if(adata < datadoc)
|
||||
{
|
||||
rdoc.put("ADATATMP", giri.get(LVRCONSPLAN_DTCONS).as_date());
|
||||
msk.field(FR_JOLLY4).set(giri.get(LVRCONSPLAN_DTCONS).as_date());
|
||||
|
||||
if (rcondv.read() == NOERR && !cau.is_reso())
|
||||
//instanzio in TRecordset sui giri
|
||||
TISAM_recordset giri("USE LVRCONSPLAN KEY 3\nSELECT DTCONS>#DATADOC\nFROM CODCF=#CODCF CODCONT=#CODCONT\nTO CODCF=#CODCF CODCONT=#CODCONT");
|
||||
giri.set_var("#DATADOC", datadoc);
|
||||
giri.set_var("#CODCF", codcf);
|
||||
giri.set_var("#CODCONT", cont.get_long(LVCONDV_CODCONT));
|
||||
if (giri.move_first())
|
||||
{
|
||||
rcondv.put(LVRCONDV_FIDTTMP, giri.get(LVRCONSPLAN_DTCONS).as_date());
|
||||
rcondv.rewrite();
|
||||
rdoc.put("ADATATMP", giri.get(LVRCONSPLAN_DTCONS).as_date());
|
||||
msk.field(FR_JOLLY4).set(giri.get(LVRCONSPLAN_DTCONS).as_date());
|
||||
|
||||
if (rcondv.read() == NOERR && !cau.is_reso())
|
||||
{
|
||||
rcondv.put(LVRCONDV_FIDTTMP, giri.get(LVRCONSPLAN_DTCONS).as_date());
|
||||
rcondv.rewrite();
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
Loading…
x
Reference in New Issue
Block a user