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 O01A

git-svn-id: svn://10.65.10.50/branches/R_10_00@23544 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2017-01-20 16:00:17 +00:00
parent a725c75286
commit 60e9538ed6
1 changed files with 34 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
src/mr/mr0600.cpp
View File

@ -424,45 +424,41 @@ bool TCampass_app::o01a(const TString id) const
filtroFiltro.put("NDOC", rowRDoc.get("DANDOC")); filtroFiltro.put("NDOC", rowRDoc.get("DANDOC"));
filtroFiltro.put("IDRIGA", rowRDoc.get("DAIDRIGA")); filtroFiltro.put("IDRIGA", rowRDoc.get("DAIDRIGA"));
TCursor curFiltro(&rdoc, "", 1, &filtroFiltro, &filtroFiltro); TCursor curFiltro(&rdoc, "", 1, &filtroFiltro, &filtroFiltro);
if (curFiltro.items() == 0 || rowRDoc.get_bool("RIGAEVASA")) continue; // Controllo ma la query sopra non mi va come al solito
// Dichiaro la stringa
TString sqlQuery;
for (curFiltro = 0; curFiltro.pos() < curFiltro.items() && !p.is_cancelled(); ++curFiltro) // Inserisco IIKRUNIMP, FAZI, CStr, CPRD, CART
sqlQuery << "INSERT INTO O01A ( IKRUNIMP, FAZI, CStr, CPRD, CART, TIPORD, FLGSTA, CMAG, DPRICHI, DPRICHF, QPORD, XNOTE, CCLI ) \
VALUES('" << id << "','U','DBS','" << zeroFill(rowDoc.get("NDOC")) << "." << rowRDoc.get("IDRIGA") << "','" << rowRDoc.get("CODARTMAG") << "','";
// Inserisco TIPORD
sqlQuery << (rowRDoc.get("DACODNUM") == "ORC" ? "R" : "P");
// Inserisco FLGSTA, CMAG, DPRICHI, DPRICHF, QPORD, XNOTE, CCLI
sqlQuery << "',NULL,'";
// Se non ho un codice magazzino metto lo standard, Roberto ha detto di metterlo a mano tanto non cambierà mai!
TString mag(rowRDoc.get("CODMAG"));
if(mag.full())
sqlQuery << mag;
else
sqlQuery << "001";
sqlQuery << "','" << rowDoc.get_date("DATADOC").date2ansi() << "','" << rowRDoc.get_date("DATACONS").date2ansi() << "','" << zeroFill(rowRDoc.get("QTA")) << "',";
// Controllo che il campo DESCEST sia pieno
TString desc; desc << rowRDoc.get("DESCEST");
if(desc.len() == 0)
sqlQuery << "NULL,";
else
sqlQuery << "'" << desc << "',";
sqlQuery << "'" << zeroFill(rowDoc.get("CODCF")) << "');";
if(sqlset.exec(sqlQuery) != 1)
{ {
if(rowRDoc.get_bool("RIGAEVASA")) continue; // Controllo ma la query sopra non mi va come al solito message_box(sqlQuery);
// Dichiaro la stringa return false;
TString sqlQuery;
// Inserisco IIKRUNIMP, FAZI, CStr, CPRD, CART
sqlQuery << "INSERT INTO O01A ( IKRUNIMP, FAZI, CStr, CPRD, CART, TIPORD, FLGSTA, CMAG, DPRICHI, DPRICHF, QPORD, XNOTE, CCLI ) \
VALUES('" << id << "','U','DBS','" << zeroFill(rowDoc.get("NDOC")) << "." << rowRDoc.get("IDRIGA") << "','" << rowRDoc.get("CODARTMAG") << "','";
// Inserisco TIPORD
sqlQuery << (rowRDoc.get("DACODNUM") == "ORC" ? "R" : "P");
// Inserisco FLGSTA, CMAG, DPRICHI, DPRICHF, QPORD, XNOTE, CCLI
sqlQuery << "',NULL,'";
// Se non ho un codice magazzino metto lo standard, Roberto ha detto di metterlo a mano tanto non cambierà mai!
TString mag(rowRDoc.get("CODMAG"));
if(mag.full())
sqlQuery << mag;
else
sqlQuery << "001";
sqlQuery << "','" << rowDoc.get_date("DATADOC").date2ansi() << "','" << rowRDoc.get_date("DATACONS").date2ansi() << "','" << zeroFill(rowRDoc.get("QTA")) << "',";
// Controllo che il campo DESCEST sia pieno
TString desc; desc << rowRDoc.get("DESCEST");
if(desc.len() == 0)
sqlQuery << "NULL,";
else
sqlQuery << "'" << desc << "',";
sqlQuery << "'" << zeroFill(rowDoc.get("CODCF")) << "');";
if(sqlset.exec(sqlQuery) != 1)
{
message_box(sqlQuery);
return false;
}
} }
} }
} }
@ -627,7 +623,7 @@ bool TCampass_app::o02c(const TString CodNum, const TString id) const
TString sqlQuery; TString sqlQuery;
// Inserisco Tutto (yeeeeeeeeeeeeeee) // Inserisco Tutto (yeeeeeeeeeeeeeee)
sqlQuery << "INSERT INTO O02C ( IKRUNIMP, CStr, CPRD, CCLIH, CCLIR, BVAL, DBS_CART) \ 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") << "');"; VALUES('" << id << "','DBS','" << zeroFill(rowRDoc.get("NDOC")) << "." << rowRDoc.get("NRIGA") << "','" << rowRDoc.get("DAANNO") << "." << CodNum << "." << zeroFill(rowRDoc.get("DANDOC")) << "','" << rowRDoc.get("DAIDRIGA") << "','1','" << rowRDoc.get("CODART") << "');";
if(sqlset.exec(sqlQuery) != 1) if(sqlset.exec(sqlQuery) != 1)
{ {