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_04 = "Stampa Documenti", "ve1 -2", "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