Patch level : 10.0
Files correlati : Ricompilazione Demo : [ ] Commento : aggiunte stampe buoni di prelievo, consegna, ritiro git-svn-id: svn://10.65.10.50/trunk@19682 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris
parent
fe4d95741d
commit
087cbe40f0
14
lv/lv1.cpp
Executable file
14
lv/lv1.cpp
Executable file
@ -0,0 +1,14 @@
|
|||||||
|
#include <xvt.h>
|
||||||
|
|
||||||
|
#include "lv1.h"
|
||||||
|
|
||||||
|
int main(int argc, char** argv)
|
||||||
|
{
|
||||||
|
const int r = (argc > 1) ? argv[1][1] - '0' : 0;
|
||||||
|
switch (r)
|
||||||
|
{
|
||||||
|
case 0: lv1100(argc, argv); break; // stampa buoni lv1100
|
||||||
|
default: lv1100(argc, argv); break; // stampa buoni lv1100
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
6
lv/lv1.h
Executable file
6
lv/lv1.h
Executable file
@ -0,0 +1,6 @@
|
|||||||
|
#ifndef __LV1_H
|
||||||
|
#define __LV1_H
|
||||||
|
|
||||||
|
int lv1100(int argc, char* argv[]);
|
||||||
|
|
||||||
|
#endif // __LV1_H
|
||||||
110
lv/lv1100.cpp
Executable file
110
lv/lv1100.cpp
Executable file
@ -0,0 +1,110 @@
|
|||||||
|
#include <applicat.h>
|
||||||
|
#include <automask.h>
|
||||||
|
#include <execp.h>
|
||||||
|
#include <relation.h>
|
||||||
|
#include <reprint.h>
|
||||||
|
|
||||||
|
#include "lv1100a.h"
|
||||||
|
|
||||||
|
class TStampaBuoni_mask: public TAutomask
|
||||||
|
{
|
||||||
|
protected:
|
||||||
|
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||||
|
public:
|
||||||
|
TStampaBuoni_mask():TAutomask("lv1100a"){}
|
||||||
|
};
|
||||||
|
|
||||||
|
bool TStampaBuoni_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||||
|
{
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
class TStampaBuoni_app: public TSkeleton_application
|
||||||
|
{
|
||||||
|
protected:
|
||||||
|
virtual void main_loop();
|
||||||
|
void elabora(const TMask& mask) const;
|
||||||
|
};
|
||||||
|
|
||||||
|
void TStampaBuoni_app::elabora(const TMask& mask) const
|
||||||
|
{
|
||||||
|
const TDate data_from = mask.get_date(F_DATA_FROM);
|
||||||
|
TString query = "USE DOC \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";
|
||||||
|
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)));
|
||||||
|
|
||||||
|
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())
|
||||||
|
{
|
||||||
|
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();
|
||||||
|
|
||||||
|
TString80 appname = "ve1.exe -2";
|
||||||
|
appname << tmp;
|
||||||
|
TExternal_app app(appname);
|
||||||
|
app.run();
|
||||||
|
tmp.fremove();
|
||||||
|
}
|
||||||
|
|
||||||
|
void TStampaBuoni_app::main_loop()
|
||||||
|
{
|
||||||
|
TStampaBuoni_mask m;
|
||||||
|
while(m.run()==K_ENTER)
|
||||||
|
elabora(m);
|
||||||
|
}
|
||||||
|
|
||||||
|
int lv1100(int argc, char* argv[])
|
||||||
|
{
|
||||||
|
TStampaBuoni_app app;
|
||||||
|
switch (toupper(*argv[2]))
|
||||||
|
{
|
||||||
|
case 'P':
|
||||||
|
app.run(argc, argv, TR("Stampa buoni di prelievo"));
|
||||||
|
break;
|
||||||
|
case 'R':
|
||||||
|
app.run(argc, argv, TR("Stampa buoni di ritiro"));
|
||||||
|
break;
|
||||||
|
case 'C':
|
||||||
|
app.run(argc, argv, TR("Stampa buoni di consegna"));
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
23
lv/lv1100a.h
Executable file
23
lv/lv1100a.h
Executable file
@ -0,0 +1,23 @@
|
|||||||
|
//Definizione campi per maschera lv1100a
|
||||||
|
//Stampa Buoni
|
||||||
|
|
||||||
|
#define F_CODNUM 201
|
||||||
|
#define F_DESNUM 202
|
||||||
|
#define F_TIPODOC 203
|
||||||
|
#define F_DESTIPODOC 204
|
||||||
|
|
||||||
|
#define F_DATA_FROM 211
|
||||||
|
#define F_DATA_TO 212
|
||||||
|
#define F_CODITI_FROM 213
|
||||||
|
#define F_DESITI_FROM 214
|
||||||
|
#define F_CODITI_TO 215
|
||||||
|
#define F_DESITI_TO 216
|
||||||
|
#define F_CODAUT_FROM 217
|
||||||
|
#define F_DESAUT_FROM 218
|
||||||
|
#define F_CODAUT_TO 219
|
||||||
|
#define F_DESAUT_TO 220
|
||||||
|
#define F_CODCF_FROM 221
|
||||||
|
#define F_RAGSOCCF_FROM 222
|
||||||
|
#define F_CODCF_TO 223
|
||||||
|
#define F_RAGSOCCF_TO 224
|
||||||
|
|
||||||
231
lv/lv1100a.uml
Executable file
231
lv/lv1100a.uml
Executable file
@ -0,0 +1,231 @@
|
|||||||
|
#include "lv1100a.h"
|
||||||
|
|
||||||
|
TOOLBAR "" 0 0 0 2
|
||||||
|
#include <elabar.h>
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
PAGE "Stampa Buoni" -1 -1 40 5
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 78 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 1 "@bDocumenti da stampare"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CODNUM 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 2 "Numerazione "
|
||||||
|
FIELD NUM_GEN
|
||||||
|
HELP "Codice numerazione"
|
||||||
|
USE %NUM
|
||||||
|
INPUT CODTAB F_CODNUM
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT F_CODNUM CODTAB
|
||||||
|
OUTPUT F_DESNUM S0
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
FLAGS "UPA"
|
||||||
|
WARNING "Numerazione assente"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESNUM 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 24 2 ""
|
||||||
|
HELP "Descrizione Numerazione"
|
||||||
|
USE %NUM KEY 2
|
||||||
|
INPUT S0 F_DESNUM
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
COPY OUTPUT F_CODNUM
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_TIPODOC 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 3 "Tipo "
|
||||||
|
FIELD TIPODOC
|
||||||
|
HELP "Codice tipo documento"
|
||||||
|
USE %TIP
|
||||||
|
INPUT CODTAB F_TIPODOC
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT F_TIPODOC CODTAB
|
||||||
|
OUTPUT F_DESTIPODOC S0
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
FLAGS "UP"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESTIPODOC 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 24 3 ""
|
||||||
|
HELP "Descrizione tipo documento"
|
||||||
|
USE %TIP KEY 2
|
||||||
|
INPUT S0 F_DESTIPODOC
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
COPY OUTPUT F_TIPODOC
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 76 3
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 5 "@bData documento"
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_DATA_FROM
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 6 "Dal "
|
||||||
|
FIELD #FROM_DATA
|
||||||
|
GROUP 1
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
FLAGS "A"
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_DATA_TO
|
||||||
|
BEGIN
|
||||||
|
PROMPT 25 6 "Al "
|
||||||
|
FIELD #TO_DATA
|
||||||
|
FLAGS "A"
|
||||||
|
GROUP 2
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
VALITATE DATE_CMP_FUNC >= F_DATA_FROM
|
||||||
|
WARNING "La data finale deve essere successiva a quella iniziale"
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 76 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 8 "@bParametri Cliente"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_CODCF_FROM 6
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 9 "Da Cliente "
|
||||||
|
FLAGS "U"
|
||||||
|
USE LF_CLIFO KEY 1
|
||||||
|
INPUT TIPOCF "C"
|
||||||
|
INPUT CODCF F_CODCF_FROM
|
||||||
|
DISPLAY "Codice " CODCF
|
||||||
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
|
OUTPUT F_CODCF_FROM CODCF
|
||||||
|
OUTPUT F_RAGSOCCF_FROM RAGSOC
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
FIELD #FROM_CODCF
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_RAGSOCCF_FROM 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 25 9 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_CODCF_TO 6
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 10 "A Cliente "
|
||||||
|
FLAGS "U"
|
||||||
|
USE LF_CLIFO KEY 1
|
||||||
|
INPUT TIPOCF "C"
|
||||||
|
INPUT CODCF F_CODCF_TO
|
||||||
|
DISPLAY "Codice " CODCF
|
||||||
|
DISPLAY "Ragione sociale@50" RAGSOC
|
||||||
|
OUTPUT F_CODCF_TO CODCF
|
||||||
|
OUTPUT F_RAGSOCCF_TO RAGSOC
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
FIELD #TO_CODCF
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_RAGSOCCF_TO 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 25 10 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 76 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 12 "@bParametri Itinerario"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CODITI_FROM 3
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 13 "Da Itinerario"
|
||||||
|
FLAGS "UZ"
|
||||||
|
USE &ITI
|
||||||
|
INPUT CODTAB F_CODITI_FROM
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT F_CODITI_FROM CODTAB
|
||||||
|
OUTPUT F_DESITI_FROM S0
|
||||||
|
CHECKTYPE SEARCH
|
||||||
|
FIELD #FROM_CODITI
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESITI_FROM 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 25 13 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CODITI_TO 3
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 14 "A Itinerario "
|
||||||
|
FLAGS "UZ"
|
||||||
|
USE &ITI
|
||||||
|
INPUT CODTAB F_CODITI_TO
|
||||||
|
DISPLAY "Codice" CODTAB
|
||||||
|
DISPLAY "Descrizione@50" S0
|
||||||
|
OUTPUT F_CODITI_TO CODTAB
|
||||||
|
OUTPUT F_DESITI_TO S0
|
||||||
|
CHECKTYPE SEARCH
|
||||||
|
FIELD #TO_CODITI
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESITI_TO 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 25 14 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
//GROUPBOX DLG_NULL 76 4
|
||||||
|
//BEGIN
|
||||||
|
// PROMPT 1 16 "@bParametri Autista"
|
||||||
|
//END
|
||||||
|
|
||||||
|
//STRING F_CODAUT_FROM 6
|
||||||
|
//BEGIN
|
||||||
|
// PROMPT 2 17 "Da Autista "
|
||||||
|
// FLAGS "U"
|
||||||
|
// USE &AUT
|
||||||
|
// INPUT CODTAB F_CODAUT_FROM
|
||||||
|
// DISPLAY "Codice" CODTAB
|
||||||
|
// DISPLAY "Descrizione@50" S0
|
||||||
|
// OUTPUT F_CODAUT_FROM CODTAB
|
||||||
|
// OUTPUT F_DESAUT_FROM S0
|
||||||
|
// CHECKTYPE SEARCH
|
||||||
|
// FIELD #FROM_CODAUT
|
||||||
|
//END
|
||||||
|
//
|
||||||
|
//STRING F_DESAUT_FROM 50
|
||||||
|
//BEGIN
|
||||||
|
// PROMPT 25 17 ""
|
||||||
|
// FLAGS "D"
|
||||||
|
//END
|
||||||
|
|
||||||
|
//STRING F_CODAUT_TO 6
|
||||||
|
//BEGIN
|
||||||
|
// PROMPT 2 18 "Ad Autista "
|
||||||
|
// FLAGS "U"
|
||||||
|
// USE &AUT
|
||||||
|
// INPUT CODTAB F_CODAUT_TO
|
||||||
|
// DISPLAY "Codice" CODTAB
|
||||||
|
// DISPLAY "Descrizione@50" S0
|
||||||
|
// OUTPUT F_CODAUT_TO CODTAB
|
||||||
|
// OUTPUT F_DESAUT_TO S0
|
||||||
|
// CHECKTYPE SEARCH
|
||||||
|
// FIELD #TO_CODAUT
|
||||||
|
//END
|
||||||
|
|
||||||
|
//STRING F_DESAUT_TO 50
|
||||||
|
//BEGIN
|
||||||
|
// PROMPT 25 18 ""
|
||||||
|
// FLAGS "D"
|
||||||
|
//END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
@ -124,3 +124,6 @@ Item_02 = "Venduto Per Cliente nei 12 Mesi", "lv2 -7 lv2800a", "F"
|
|||||||
Item_03 = "Storico Consegne per Cliente", "lv0 -1 lv0600a", "F"
|
Item_03 = "Storico Consegne per Cliente", "lv0 -1 lv0600a", "F"
|
||||||
Item_04 = "Stampa Documenti", "ve1 -2", "F"
|
Item_04 = "Stampa Documenti", "ve1 -2", "F"
|
||||||
Item_05 = "Interrogazione Cliente\Articolo", "lv0 -1 lv0700a", "F"
|
Item_05 = "Interrogazione Cliente\Articolo", "lv0 -1 lv0700a", "F"
|
||||||
|
Item_06 = "Stampa Buoni di Prelievo", "lv1 -0 P", "F"
|
||||||
|
Item_07 = "Stampa Buoni di Ritiro", "lv1 -0 R", "F"
|
||||||
|
Item_07 = "Stampa Buoni di Consegna", "lv1 -0 C", "F"
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user