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

Patch level : 12.0 no-patch

Browse Source 
Files correlati     : mr0.exe
Commento            :  Aggiornamento query Campo/Compass:
- Sistemato caricamento righe triple O02C

git-svn-id: svn://10.65.10.50/branches/R_10_00@23542 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-01-20 14:40:15 +00:00
parent 006403f0ac
commit f6e7701704
1 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
src/mr/mr0600.cpp
View File

@ -199,7 +199,7 @@ TString TCampass_app::esporta(const TString& DSN, const TString& usr, const TStr
TODBC_recordset sqlset("");
if (!sqlset.connect(DSN, usr, psw))
return "Connessione fallita!";
/*
logFile << getTime() << " - Connessione effettuata!\n";
// INIZIO O03
@ -246,7 +246,7 @@ TString TCampass_app::esporta(const TString& DSN, const TString& usr, const TStr
endExport(p01);
logFile << getTime() << " - Fine esportazione P01!\n";
*/
// INIZIO O02
logFile << getTime() << " - Inizio esportazione O02:\n";
@ -273,7 +273,7 @@ TString TCampass_app::esporta(const TString& DSN, const TString& usr, const TStr
logFile << getTime() << " - Fine esportazione O02!\n";
/*
// INIZIO O01
logFile << getTime() << " - Inizio esportazione O01:\n";
@ -306,7 +306,7 @@ TString TCampass_app::esporta(const TString& DSN, const TString& usr, const TStr
endExport(a01);
logFile << getTime() << " - Fine esportazione A01!\n";
*/
logFile.close();
return errors;
@ -594,7 +594,7 @@ bool TCampass_app::o02c(const TString CodNum, const TString id) const
TRelation doc(LF_DOC), rdoc(LF_RIGHEDOC), filtro(LF_RIGHEDOC);
int items;
TString msg("Esportazione tabella "); msg << "O02C - " << CodNum;
// Creo il filtro per la chiave del cursore, da quel che ho capito le chiavi sono più veloci di un filtro (come è possibile?)
// Creo il filtro per la chiave del cursore //OLD: da quel che ho capito le chiavi sono più veloci di un filtro (come è possibile?), (ora lo so lol)
TRectype filtroRDoc(rdoc.curr()); filtroRDoc.put("CODNUM", "ORP1");
TCursor curRDoc(&rdoc, "", 1, &filtroRDoc, &filtroRDoc);
items = curRDoc.items();
@ -610,30 +610,30 @@ bool TCampass_app::o02c(const TString CodNum, const TString id) const
// Prendo la riga del FILTRO
TRectype rowRDoc = curRDoc.curr();
// Vado a prendere la riga di riferimento
TRectype filtroFiltro(filtro.curr());
if(rowRDoc.get("DACODNUM") == CodNum)
{
// Vado a prendere la riga di riferimento
TRectype filtroFiltro(filtro.curr());
filtroFiltro.put("CODNUM", rowRDoc.get("DACODNUM"));
filtroFiltro.put("ANNO", rowRDoc.get("DAANNO"));
filtroFiltro.put("PROVV", rowRDoc.get("DAPROVV"));
filtroFiltro.put("NDOC", rowRDoc.get("DANDOC"));
filtroFiltro.put("ANNO", rowRDoc.get("DAANNO"));
filtroFiltro.put("PROVV", rowRDoc.get("DAPROVV"));
filtroFiltro.put("NDOC", rowRDoc.get("DANDOC"));
filtroFiltro.put("IDRIGA", rowRDoc.get("DAIDRIGA"));
TCursor curFiltro(&rdoc, "RIGAEVASA != \"X\"", 1, &filtroFiltro, &filtroFiltro);
for (curFiltro = 0; curFiltro.pos() < curFiltro.items() && !p.is_cancelled(); ++curFiltro)
if(curFiltro.items() == 0) continue; // Se non ho elementi salto tutto
curFiltro = 0;
// Dichiaro la stringa
TString sqlQuery;
// Inserisco Tutto (yeeeeeeeeeeeeeee)
sqlQuery << "INSERT INTO O02C ( IKRUNIMP, CStr, CPRD, CCLIH, CCLIR, BVAL, DBS_CART) \
VALUES('" << id << "','DBS','" << zeroFill(rowRDoc.get("NDOC")) << "." << rowRDoc.get("IDRIGA") << "','" << rowRDoc.get("DAANNO") << "." << CodNum << "." << zeroFill(rowRDoc.get("DANDOC")) << "','" << rowRDoc.get("DAIDRIGA") << "','1','" << rowRDoc.get("CODART") << "');";
if(sqlset.exec(sqlQuery) != 1)
{
// Dichiaro la stringa
TString sqlQuery;
// Inserisco Tutto (yeeeeeeeeeeeeeee)
sqlQuery << "INSERT INTO O02C ( IKRUNIMP, CStr, CPRD, CCLIH, CCLIR, BVAL, DBS_CART) \
VALUES('" << id << "','DBS','" << zeroFill(rowRDoc.get("NDOC")) << "." << rowRDoc.get("IDRIGA") << "','" << rowRDoc.get("DAANNO") << "." << CodNum << "." << zeroFill(rowRDoc.get("DANDOC")) << "','" << rowRDoc.get("DAIDRIGA") << "','1','" << rowRDoc.get("CODART") << "');";
if(sqlset.exec(sqlQuery) != 1)
{
message_box(sqlQuery);
return false;
}
message_box(sqlQuery);
return false;
}
}
}