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

Patch level : 10.0

Browse Source 
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:
luca83 2008-09-15 09:55:49 +00:00
parent 39841a840d
commit 4dff2cf27c
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lv/lv2100.cpp
View File

@ -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