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     : 
Commento            : Sistemata query O03A, sistemati controlli grafica ed eliminato profilo (momentaneamente)

git-svn-id: svn://10.65.10.50/branches/R_10_00@23387 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
mtollari 2016-10-25 08:50:36 +00:00
parent c926060169
commit 47c63259e6
2 changed files with 2 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/ca/ca2600.cpp
View File

@ -13,47 +13,10 @@ class TCampass_msk : public TAutomask
protected:
virtual long handler(WINDOW task, EVENT* ep);
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
//void update_sheet();
public:
TCampass_msk();
};
/*
void TCampass_msk::update_sheet()
{
TSheet_field& s = sfield(F_FILES);
if (s.empty())
{
const TPrefix& prf = prefix();
const TIsam_handle ff[] = {
LF_ANAMAG, LF_CLIFO, LF_DIST, LF_DOC, LF_RDIST,
LF_RIGHEDOC, LF_RILPROD, LF_TAB, LF_UMART, 0
};
for (int i = 0; ff[i]; i++)
{
const TIsam_handle lf = ff[i];
const TFilename fn = prf.get_filename(lf);
TToken_string& row = s.row(-1);
row.format(" |%d", lf);
row.add(fn.name_only());
}
}
TString query;
FOR_EACH_SHEET_ROW(s, r, row)
{
if (row->get_int(1) != 5)
{
query.format("USE %d", row->get_int(1));
TISAM_recordset c(query);
row->add(c.items(), 3);
}
}
s.force_update();
}
*/
long TCampass_msk::handler(WINDOW task, EVENT* ep)
{
if (ep->type == E_TIMER)
@ -71,7 +34,6 @@ bool TCampass_msk::on_field_event(TOperable_field& o, TField_event e, long jolly
case F_DATA_INI:
case F_DATA_FIN:
if (e == fe_modify)
//update_sheet();
break;
/*
case F_FILES:
@ -90,7 +52,6 @@ TCampass_msk::TCampass_msk() : TAutomask("ca2600a")
set(F_DATA_FIN, d);
d.set_day(1);
set(F_DATA_INI, d, true);
//7 update_sheet();
}
class TCampass_app : public TSkeleton_application
@ -534,7 +495,7 @@ bool TCampass_app::o03a(const TString& DSN, const TString id) const
TRectype rowClifo = curClifo.curr();
// Inserisco tutto in un colpo (yeeeeeeeee)
sqlQuery << "INSERT INTO O03A ( IKRUNIMP, FAZI, CStr, CCLI, RCLI ) \
VALUES('1','U','DBS','" << rowClifo.get("CODCF") << "','" << toEscape(rowClifo.get("RAGSOC")) << "');";
VALUES('" << id << "','U','DBS','" << rowClifo.get("CODCF") << "','" << toEscape(rowClifo.get("RAGSOC")) << "');";
if(sqlset.exec(sqlQuery) != 1)
return false;

7
src/ca/ca2600a.uml
View File

@ -11,12 +11,7 @@ PAGE "Invio a Compass" 0 2 0 0
STRING F_DSN 260 50
BEGIN
PROMPT 1 0 "ODBC DSN "
END
STRING DLG_PROFILE 260 50
BEGID
PROMPT 1 2 "Profilo "
PSELECT
CHECKTYPE REQUIRED
END
DATE F_DATA_INI