Patch level : 10.0 patch 422
Files correlati : lv2 Ricompilazione Demo : [ ] Commento : Corretto l metodo scansione_ritiri_anticipi per analizzare solo i documenti di sporco giusti git-svn-id: svn://10.65.10.50/trunk@19219 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
384cf781ad
commit
ce5d26fb59
@ -594,7 +594,7 @@ int TGenera_documenti_app::scansione_ritiri_anticipi(const long codcli, const lo
|
||||
const TDate adatabolla = _msk->get_date(F_DTCONS);
|
||||
const long aanno = adatabolla.year();
|
||||
|
||||
TDate dadatabolla = adatabolla; dadatabolla.set_month(adatabolla.month() - 2);
|
||||
TDate dadatabolla = adatabolla; dadatabolla.addmonth(-2);
|
||||
const long daanno = dadatabolla.year();
|
||||
|
||||
TString4 codnum;
|
||||
@ -618,13 +618,15 @@ int TGenera_documenti_app::scansione_ritiri_anticipi(const long codcli, const lo
|
||||
//instanzio un recordset che contiene tutti i documenti di interesse
|
||||
TString query;
|
||||
query << "USE DOC "
|
||||
<< "SELECT (TIPOCF=\"C\")&&(CODCF=" << codcli
|
||||
<< ")&&(TIPODOC=\"" << tpdoc << "\")&&(STATO=\"" << statoi <<"\")\n"
|
||||
<< "SELECT (TIPOCF=\"C\")&&(CODCF=" << codcli << ")&&"
|
||||
<< "(ANSI(G1:DATAPRCO)=#ADATA)&&"
|
||||
<< "(STATO=\"" << statoi <<"\")\n"
|
||||
<< "FROM PROVV=\"D\" ANNO=" << daanno << " CODNUM=\"" << codnum << "\"\n"
|
||||
<< "TO PROVV=\"D\" ANNO=" << aanno << " CODNUM=\"" << codnum << "\"\n";
|
||||
|
||||
//instanzio un recordset che contiene tutti i documenti di interesse
|
||||
TISAM_recordset docritiri(query);
|
||||
docritiri.set_var("#ADATA", adatabolla);
|
||||
|
||||
//per ogni documento che trovo, aggiorno la quantità, e poi cambio stato al documento
|
||||
for (bool ok = docritiri.move_first(); ok; ok = docritiri.move_next())
|
||||
@ -813,8 +815,6 @@ bool TGenera_documenti_app::transfer()
|
||||
|
||||
TISAM_recordset docritiri(query_bolle);
|
||||
docritiri.set_var("#ADATA", adatacons);
|
||||
|
||||
int cazzone = docritiri.items();
|
||||
|
||||
TProgind pi(docritiri.items(), TR("Generazione documenti in corso..."), true, true);
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user