Patch level : 10.0
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@17242 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
39841a840d
commit
4dff2cf27c
@ -68,8 +68,8 @@ protected:
|
||||
bool elimina_planning_cliente(const TDate& dadata, const TDate& adata, const long& codcf) const;
|
||||
bool kill_planning (TISAM_recordset& selrighe) const;
|
||||
int prossimo_codriga(const TDate& data);
|
||||
TDate cerca_ultima_consegna(long codcf, long coditi, const TDate& data) const;
|
||||
int conta_consegne_mese(long codcf, long coditi, const TDate& adata) const;
|
||||
TDate cerca_ultima_consegna(long codcf, long codcont, const TDate& data) const;
|
||||
int conta_consegne_mese(long codcf, long codcont, const TDate& adata) const;
|
||||
void arrotonda_al_giorno(TDate& data, const int ggcons) const;
|
||||
void elabora_passaggio(const TDate& dadata, const TDate& adata, const TISAM_recordset& pplan);
|
||||
|
||||
@ -189,13 +189,13 @@ int TGenera_planning_app::prossimo_codriga(const TDate& data)
|
||||
}
|
||||
|
||||
//CERCA_ULTIMA_CONSEGNA: questa funzione ricerca la data dell'ultima consegna fatta ad un certo cliente
|
||||
TDate TGenera_planning_app::cerca_ultima_consegna(long codcf, long coditi, const TDate& data) const
|
||||
TDate TGenera_planning_app::cerca_ultima_consegna(long codcf, long codcont, const TDate& data) const
|
||||
{
|
||||
//instanzia un recordset di LVRCONSPLAN prendendo tutte le consegne fatte per un cliente su un certo...
|
||||
//...itinerario prima di una certa data
|
||||
TISAM_recordset rplan("USE LVRCONSPLAN KEY 3\nFROM CODCF=#CODCF CODITI=#CODITI\nTO CODCF=#CODCF CODITI=#CODITI DTCONS=#DATA");
|
||||
TISAM_recordset rplan("USE LVRCONSPLAN KEY 3\nFROM CODCF=#CODCF CODCONT=#CODCONT\nTO CODCF=#CODCF CODCONT=#CODCONT DTCONS=#DATA");
|
||||
rplan.set_var("#CODCF",codcf);
|
||||
rplan.set_var("#CODITI",coditi);
|
||||
rplan.set_var("#CODCONT",codcont);
|
||||
rplan.set_var("#DATA",data);
|
||||
if (rplan.move_last())
|
||||
return rplan.get(LVRCONSPLAN_DTCONS).as_date(); // data dell'ultima consegna fatta
|
||||
@ -204,15 +204,15 @@ TDate TGenera_planning_app::cerca_ultima_consegna(long codcf, long coditi, const
|
||||
|
||||
//CONTA_CONSEGNE_MESE: questa funzione conta quante consegne sono state fatte ad un certo cliente
|
||||
//dal primo del mese fino ad una certa data
|
||||
int TGenera_planning_app::conta_consegne_mese(long codcf, long coditi, const TDate& adata) const
|
||||
int TGenera_planning_app::conta_consegne_mese(long codcf, long codcont, const TDate& adata) const
|
||||
{
|
||||
TDate dadata = adata;
|
||||
dadata.set_day(1);
|
||||
//instanzia un recordset di LVRCONSPLAN prendendo tutte le consegne fatte per un cliente su un certo...
|
||||
//...itinerario prima di una certa data
|
||||
TISAM_recordset rplan("USE LVRCONSPLAN KEY 3\nFROM CODCF=#CODCF CODITI=#CODITI DTCONS=#DADATA\nTO CODCF=#CODCF CODITI=#CODITI DTCONS=#ADATA");
|
||||
TISAM_recordset rplan("USE LVRCONSPLAN KEY 3\nFROM CODCF=#CODCF CODCONT=#CODCONT DTCONS=#DADATA\nTO CODCF=#CODCF CODCONT=#CODCONT DTCONS=#ADATA");
|
||||
rplan.set_var("#CODCF",codcf);
|
||||
rplan.set_var("#CODITI",coditi);
|
||||
rplan.set_var("#CODCONT",codcont);
|
||||
rplan.set_var("#DADATA",dadata);
|
||||
rplan.set_var("#ADATA",adata);
|
||||
|
||||
@ -281,7 +281,7 @@ void TGenera_planning_app::elabora_passaggio(const TDate& dadata, const TDate& a
|
||||
|
||||
TDate primogiorno = dadata; //primogiorno: primo giorno del periodo selezionato
|
||||
if (frq.get_bool("B0")) //se devo usare "USA ULTIMA CONSEGNA", primogiorno diventa la data dell'ultima consegna
|
||||
primogiorno = cerca_ultima_consegna(codcf,coditi,dadata);
|
||||
primogiorno = cerca_ultima_consegna(codcf,codcont,dadata);
|
||||
|
||||
const int ritardo = frq.get_int("I0"); //ritardo di consegna rispetto alla data di inizio calcolo
|
||||
if (ritardo > 0) //evita anticipi senza senso
|
||||
@ -339,7 +339,7 @@ void TGenera_planning_app::elabora_passaggio(const TDate& dadata, const TDate& a
|
||||
|
||||
//se ho già raggiunto il numero massimo di consegne per mese...
|
||||
//...la riga, anche se supera tutti i controlli, non va elaborata
|
||||
if (maxcons > 0 && conta_consegne_mese(codcf,coditi,d) >= maxcons)
|
||||
if (maxcons > 0 && conta_consegne_mese(codcf,codcont,d) >= maxcons)
|
||||
continue;
|
||||
|
||||
//scrivi la chiave
|
||||
|
Loading…
x
Reference in New Issue
Block a user