Patch level : 10.0 patch 362
Files correlati : lv2 Ricompilazione Demo : [ ] Commento : Corretto il filtro iniziale; si ipotizza di considerare i giri partendo da due mesi prima la data di prevista consegna (eventualmente lo si renderà configurabile) git-svn-id: svn://10.65.10.50/trunk@19128 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
e0d100d24d
commit
85220d735f
@ -661,14 +661,17 @@ void TGenera_documenti_app::aggiorna_conguaglio(const long codcli, const long co
|
|||||||
bool TGenera_documenti_app::transfer()
|
bool TGenera_documenti_app::transfer()
|
||||||
{
|
{
|
||||||
//leggo i campi dalla maschera
|
//leggo i campi dalla maschera
|
||||||
const TDate datacons = _msk->get_date(F_DTCONS);
|
const TDate adatacons = _msk->get_date(F_DTCONS);
|
||||||
|
TDate dadatacons = adatacons;
|
||||||
|
dadatacons.set_month(adatacons.month() - 2);
|
||||||
const long coditi = _msk->get_long(F_CODITI);
|
const long coditi = _msk->get_long(F_CODITI);
|
||||||
long codcli = _msk->get_long(F_CODCF);
|
long codcli = _msk->get_long(F_CODCF);
|
||||||
|
long codaut = _msk->get_long(F_CODAUT);
|
||||||
|
|
||||||
//preparo un recordset che contiene tutti planning per cui voglio creare i documenti relativi
|
//preparo un recordset che contiene tutti planning per cui voglio creare i documenti relativi
|
||||||
TString query = "USE LVRCONSPLAN KEY 2";
|
TString query = "USE LVRCONSPLAN KEY 2";
|
||||||
|
|
||||||
if (coditi || codcli)
|
if (coditi || codcli || codaut)
|
||||||
{
|
{
|
||||||
query << " SELECT ";
|
query << " SELECT ";
|
||||||
if (codcli > 0)
|
if (codcli > 0)
|
||||||
@ -679,10 +682,19 @@ bool TGenera_documenti_app::transfer()
|
|||||||
query << "&&";
|
query << "&&";
|
||||||
query << "(CODITI=" << coditi << ')';
|
query << "(CODITI=" << coditi << ')';
|
||||||
}
|
}
|
||||||
|
if (codaut > 0)
|
||||||
|
{
|
||||||
|
if (codcli > 0 || coditi > 0)
|
||||||
|
query << "&&";
|
||||||
|
query << "(CODAUT=" << codaut << ')';
|
||||||
|
}
|
||||||
}
|
}
|
||||||
query << "\n";
|
query << "\n";
|
||||||
query << "FROM DTCONS=" << datacons << "\n";
|
if(_msk->get_int(F_TPGEN) == 1)
|
||||||
query << "TO DTCONS=" << datacons << "\n";
|
query << "FROM DTCONS=" << adatacons << "\n";
|
||||||
|
else
|
||||||
|
query << "FROM DTCONS=" << dadatacons << "\n";
|
||||||
|
query << "TO DTCONS=" << adatacons << "\n";
|
||||||
|
|
||||||
TISAM_recordset plan(query);
|
TISAM_recordset plan(query);
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user