Patch level : 10.0

Files correlati     :
Ricompilazione Demo : [ ]
Commento            : stampa buoni, correzioni per un miglior funzionamento


git-svn-id: svn://10.65.10.50/trunk@19691 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2009-12-01 10:47:40 +00:00
parent ddf58865d2
commit b02c21c15a
2 changed files with 22 additions and 41 deletions

View File

@ -64,55 +64,46 @@ void TStampaBuoni_app::elabora(const TMask& mask) const
{
const TDate data_from = mask.get_date(F_DATA_FROM);
TString query = "USE DOC \n"
"SELECT (BETWEEN(DATADOC,#DATA_FROM,#DATA_TO))"
"&&(BETWEEN(CODCF,#CODCF_FROM,#CODCF_TO))"
"&&(BETWEEN(G1:CODITI,#CODITI_FROM,#CODITI_TO))\n"
"JOIN CLIFO INTO TIPOCF=='C' CODCF==CODCF\n"
"SELECT (BETWEEN(DATADOC,#FROM_DATA,#TO_DATA))\n"
"(BETWEEN(CODCF,#FROM_CODCF,#TO_CODCF))\n"
//"&&SELECT (BETWEEN(G1:CODITI,#FROM_CODITI,#TO_CODITI))"
//"&&(BETWEEN(G1:CODAUT,#FROM_CODAUT,#TO_CODAUT))\n";
;
query << "FROM PROVV=\"D\" ANNO=" << data_from.year() << " CODNUM=\"" << mask.get(F_CODNUM) << " TIPODOC=\"" << mask.get(F_TIPODOC) << "\"\n"
<< "TO PROVV=\"D\" ANNO=" << data_from.year() << " CODNUM=\"" << mask.get(F_CODNUM) << " TIPODOC=\"" << mask.get(F_TIPODOC) << "\"\n";
query << "FROM PROVV=\"D\" ANNO=" << data_from.year() << " CODNUM=\"" << mask.get(F_CODNUM) << "\"\n"
<< "TO PROVV=\"D\" ANNO=" << data_from.year() << " CODNUM=\"" << mask.get(F_CODNUM) << "\"\n";
TISAM_recordset buoni(query);
//inserire parametri filtri
buoni.set_var("#FROM_DATA",mask.get_date(F_DATA_FROM));
buoni.set_var("#TO_DATA",mask.get_date(F_DATA_TO));
buoni.set_var("#FROM_CODCF",TVariant(mask.get(F_CODCF_FROM)));
buoni.set_var("#TO_CODCF",TVariant(mask.get(F_CODCF_TO)));
/*
if (mask.get(F_CODITI_FROM).empty())
buoni.set_var("#FROM_CODITI", "000");
else
buoni.set_var("#FROM_CODITI", TVariant(mask.get(F_CODITI_FROM)));
if (mask.get(F_CODITI_TO).empty())
buoni.set_var("#TO_CODITI","ZZZ");
else
buoni.set_var("#TO_CODITI",TVariant(mask.get(F_CODITI_TO)));
*/
//buoni.set_var("#FROM_CODAUT",TVariant(mask.get(F_CODAUT_FROM)));
//buoni.set_var("#TO_CODAUT",TVariant(mask.get(F_CODAUT_TO)));
buoni.set_var("#DATA_FROM", mask.get_date(F_DATA_FROM));
buoni.set_var("#DATA_TO", mask.get_date(F_DATA_TO));
buoni.set_var("#CODCF_FROM", TVariant(mask.get(F_CODCF_FROM)));
buoni.set_var("#CODCF_TO", TVariant(mask.get(F_CODCF_TO)));
buoni.set_var("#CODITI_FROM", TVariant(mask.get(F_CODITI_FROM)));
buoni.set_var("#CODITI_TO", TVariant(mask.get(F_CODITI_TO)));
TFilename tmp; tmp.temp();
ofstream outf(tmp);
TString80 chiavedoc = "D|";
chiavedoc << data_from.year() << "|" << mask.get(F_CODNUM) << "|";
TCursor* c = buoni.cursor();
TCursor_sheet sht(c, " |NDOC|DATADOC|CODCF|20->RAGSOC", TR("Selezione Documenti"),
HR("@1|Numero\nDoc.@7|Data\nDoc.@10|Cliente|Ragione Sociale@50"));
if (sht.run() && sht.one_checked())
{
TFilename tmp; tmp.temp();
ofstream outf(tmp);
const long items = sht.items();
for (long i = 0L; i<items; i++)
if (sht.checked(i))
outf << chiavedoc << sht.row(i).get_long(1) << endl;
}
outf.close();
outf.close();
TString80 appname = "ve1.exe -2";
appname << tmp;
TExternal_app app(appname);
app.run();
tmp.fremove();
TString80 appname = "ve1.exe -2";
appname << tmp;
TExternal_app app(appname);
app.run();
tmp.fremove();
}
}
void TStampaBuoni_app::main_loop()

View File

@ -14,7 +14,6 @@ END
STRING F_CODNUM 4
BEGIN
PROMPT 2 2 "Numerazione "
FIELD NUM_GEN
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUM
@ -41,7 +40,6 @@ END
STRING F_TIPODOC 4
BEGIN
PROMPT 2 3 "Tipo "
FIELD TIPODOC
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC
@ -72,7 +70,6 @@ END
DATE F_DATA_FROM
BEGIN
PROMPT 2 6 "Dal "
FIELD #FROM_DATA
GROUP 1
CHECKTYPE REQUIRED
FLAGS "A"
@ -81,7 +78,6 @@ END
DATE F_DATA_TO
BEGIN
PROMPT 25 6 "Al "
FIELD #TO_DATA
FLAGS "A"
GROUP 2
CHECKTYPE REQUIRED
@ -106,7 +102,6 @@ BEGIN
OUTPUT F_CODCF_FROM CODCF
OUTPUT F_RAGSOCCF_FROM RAGSOC
CHECKTYPE NORMAL
FIELD #FROM_CODCF
END
STRING F_RAGSOCCF_FROM 50
@ -127,7 +122,6 @@ BEGIN
OUTPUT F_CODCF_TO CODCF
OUTPUT F_RAGSOCCF_TO RAGSOC
CHECKTYPE NORMAL
FIELD #TO_CODCF
END
STRING F_RAGSOCCF_TO 50
@ -152,7 +146,6 @@ BEGIN
OUTPUT F_CODITI_FROM CODTAB
OUTPUT F_DESITI_FROM S0
CHECKTYPE SEARCH
FIELD #FROM_CODITI
END
STRING F_DESITI_FROM 50
@ -172,7 +165,6 @@ BEGIN
OUTPUT F_CODITI_TO CODTAB
OUTPUT F_DESITI_TO S0
CHECKTYPE SEARCH
FIELD #TO_CODITI
END
STRING F_DESITI_TO 50
@ -197,7 +189,6 @@ END
// OUTPUT F_CODAUT_FROM CODTAB
// OUTPUT F_DESAUT_FROM S0
// CHECKTYPE SEARCH
// FIELD #FROM_CODAUT
//END
//
//STRING F_DESAUT_FROM 50
@ -217,7 +208,6 @@ END
// OUTPUT F_CODAUT_TO CODTAB
// OUTPUT F_DESAUT_TO S0
// CHECKTYPE SEARCH
// FIELD #TO_CODAUT
//END
//STRING F_DESAUT_TO 50