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

Patch level : 10.0 patch 421

Browse Source 
Files correlati     : lv2
Ricompilazione Demo : [ ]
Commento            :
Ulteriori correzioni sulla query di selezione dei documenti di sporco

Correzione della query di selezione del passaggio del planning da cui estrarre i dati del giro


git-svn-id: svn://10.65.10.50/trunk@19218 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2009-08-21 14:18:23 +00:00
parent 3f3a13e22e
commit 384cf781ad
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lv/lv2400.cpp
View File

@ -801,7 +801,11 @@ bool TGenera_documenti_app::transfer()
if(codcli > 0) if(codcli > 0)
query_bolle << "(TIPOCF=\"C\")&&(CODCF=" << codcli << ")&&"; query_bolle << "(TIPOCF=\"C\")&&(CODCF=" << codcli << ")&&";
query_bolle << "(ANSI(G1:DATAPRCO)<=#ADATA)&&"; if(_msk->get_int(F_TPGEN) == 1)
query_bolle << "(ANSI(G1:DATAPRCO)=#ADATA)&&";
else
query_bolle << "(ANSI(G1:DATAPRCO)<=#ADATA)&&";
query_bolle << "(STATO=\"" << statoi << "\")\n"; query_bolle << "(STATO=\"" << statoi << "\")\n";
query_bolle << "FROM PROVV=\"D\" ANNO=" << daanno << " CODNUM=\"" << codnum << "\"\n"; query_bolle << "FROM PROVV=\"D\" ANNO=" << daanno << " CODNUM=\"" << codnum << "\"\n";
@ -809,6 +813,8 @@ bool TGenera_documenti_app::transfer()
TISAM_recordset docritiri(query_bolle); TISAM_recordset docritiri(query_bolle);
docritiri.set_var("#ADATA", adatacons); docritiri.set_var("#ADATA", adatacons);
int cazzone = docritiri.items();
TProgind pi(docritiri.items(), TR("Generazione documenti in corso..."), true, true); TProgind pi(docritiri.items(), TR("Generazione documenti in corso..."), true, true);
@ -818,6 +824,7 @@ bool TGenera_documenti_app::transfer()
break; break;
codcli = docritiri.get(DOC_CODCF).as_int(); codcli = docritiri.get(DOC_CODCF).as_int();
const TDate data = docritiri.get("G1:DATAPRCO").as_date();
//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";
@ -840,19 +847,15 @@ bool TGenera_documenti_app::transfer()
query << "(CODAUT=" << codaut << ')'; query << "(CODAUT=" << codaut << ')';
} }
} }
query << "\n"; query << "\n";
if(_msk->get_int(F_TPGEN) == 1) query << "FROM DTCONS=#DATA\n";
query << "FROM DTCONS=" << adatacons << "\n"; query << "TO DTCONS=#DATA";
else
query << "FROM DTCONS=" << dadatacons << "\n";
query << "TO DTCONS=" << adatacons << "\n";
TISAM_recordset plan(query); TISAM_recordset plan(query);
plan.set_var("#DATA", data);
int indice = _msk->get_int(F_TPGEN) == 1 ? 0 : 1; if (plan.move_first())
if (plan.move_to(indice))
{ {
_quantita.destroy(); _quantita.destroy();
_quantita_ritirata.destroy(); _quantita_ritirata.destroy();