Patch level : 10.0 patch ???
Files correlati : lv1 lv1300a.msk Ricompilazione Demo : [ ] Commento : Aggiunta la stampa degli inventari git-svn-id: svn://10.65.10.50/trunk@20400 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83
parent
6a08b145cb
commit
2ea3151c0d
@ -9,6 +9,7 @@ int main(int argc, char** argv)
|
||||
{
|
||||
case 0: lv1100(argc, argv); break; // stampa buoni lv1100
|
||||
case 1: lv1200(argc, argv); break; // stampa a Kg lv1200
|
||||
case 2: lv1300(argc, argv); break; // stampa inventario lv1300
|
||||
default: lv1100(argc, argv); break; // stampa buoni lv1100
|
||||
}
|
||||
return 0;
|
||||
|
||||
1
lv/lv1.h
1
lv/lv1.h
@ -3,5 +3,6 @@
|
||||
|
||||
int lv1100(int argc, char* argv[]);
|
||||
int lv1200(int argc, char* argv[]);
|
||||
int lv1300(int argc, char* argv[]);
|
||||
|
||||
#endif // __LV1_H
|
||||
|
||||
180
lv/lv1300.cpp
Executable file
180
lv/lv1300.cpp
Executable file
@ -0,0 +1,180 @@
|
||||
#include <applicat.h>
|
||||
#include <automask.h>
|
||||
#include <execp.h>
|
||||
#include <relation.h>
|
||||
#include <reprint.h>
|
||||
|
||||
#include "lv1300a.h"
|
||||
#include "../ve/velib.h"
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TStampa_inv_msk
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TStampa_inv_msk: public TAutomask
|
||||
{
|
||||
protected:
|
||||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||
public:
|
||||
TStampa_inv_msk();
|
||||
};
|
||||
|
||||
TStampa_inv_msk::TStampa_inv_msk() : TAutomask("lv1300a")
|
||||
{
|
||||
const TString& codnum = ini_get_string(CONFIG_DITTA, "lv", "NUM_INV");
|
||||
set(F_CODNUM, codnum);
|
||||
set(F_DESNUM, cache().get("%NUM", codnum, "S0"));
|
||||
|
||||
const TString& tipdoc = ini_get_string(CONFIG_DITTA, "lv", "TIPODOC_INV");
|
||||
set(F_TIPODOC, tipdoc);
|
||||
set(F_DESTIPODOC, cache().get("%TIP", tipdoc, "S0"));
|
||||
}
|
||||
|
||||
bool TStampa_inv_msk::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{ return true; }
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TStampa_inv_set
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TStampa_inv_set : public TISAM_recordset
|
||||
{
|
||||
protected:
|
||||
static bool status_filter(const TRelation* rel);
|
||||
virtual void set_custom_filter(TCursor& cursor) const;
|
||||
|
||||
public:
|
||||
TStampa_inv_set(const TMask& mask);
|
||||
};
|
||||
|
||||
// Accetta solo i documenti stampabili in definitivo
|
||||
bool TStampa_inv_set::status_filter(const TRelation* rel)
|
||||
{
|
||||
const TRectype& doc = rel->curr();
|
||||
const char stato_attuale = doc.get_char(DOC_STATO);
|
||||
if (stato_attuale <= ' ')
|
||||
return true;
|
||||
|
||||
const TTipo_documento& tipo = cached_tipodoc(doc.get(DOC_TIPODOC));
|
||||
if (stato_attuale == tipo.stato_finale_stampa())
|
||||
return false;
|
||||
|
||||
const TString& stati_stampa = tipo.stati_iniziali_stampa();
|
||||
return stati_stampa.blank() || stati_stampa.find(stato_attuale) >= 0;
|
||||
}
|
||||
|
||||
void TStampa_inv_set::set_custom_filter(TCursor& cursor) const
|
||||
{
|
||||
cursor.set_filterfunction(status_filter);
|
||||
}
|
||||
|
||||
TStampa_inv_set::TStampa_inv_set(const TMask& mask) : TISAM_recordset("USE DOC")
|
||||
{
|
||||
const TDate data_from = mask.get_date(F_DADATA);
|
||||
|
||||
TString query = "USE DOC \n";
|
||||
|
||||
switch(mask.get_int(F_STAMPAPER))
|
||||
{
|
||||
case 0:
|
||||
query << "JOIN %STD INTO CODTAB==STATO\n"
|
||||
<< "FROM PROVV=\"D\" ANNO=" << data_from.year() << " CODNUM=\"" << mask.get(F_CODNUM) << "\" NDOC=" << mask.get_int(F_DANDOC) << "\n"
|
||||
<< "TO PROVV=\"D\" ANNO=" << data_from.year() << " CODNUM=\"" << mask.get(F_CODNUM) << "\" NDOC=" << mask.get_int(F_ANDOC) << "\n";
|
||||
break;
|
||||
case 1:
|
||||
query << "SELECT (BETWEEN(DATADOC,#DADATA,#ADATA))\n"
|
||||
<< "JOIN %STD INTO CODTAB==STATO\n"
|
||||
<< "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";
|
||||
default: break;
|
||||
}
|
||||
|
||||
set(query);
|
||||
//inserire parametri filtri se è il caso
|
||||
if(mask.get_int(F_STAMPAPER) == 1)
|
||||
{
|
||||
set_var("#DADATA", mask.get_date(F_DADATA));
|
||||
set_var("#ADATA", mask.get_date(F_ADATA));
|
||||
}
|
||||
}
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TStampa_inv_app
|
||||
///////////////////////////////////////////////////////////
|
||||
|
||||
class TStampa_inv_app: public TSkeleton_application
|
||||
{
|
||||
protected:
|
||||
virtual void main_loop();
|
||||
void elabora(const TMask& mask, const char action) const;
|
||||
};
|
||||
|
||||
void TStampa_inv_app::elabora(const TMask& mask, const char action) const
|
||||
{
|
||||
TStampa_inv_set inventari(mask);
|
||||
|
||||
TCursor* c = inventari.cursor();
|
||||
TCursor_sheet sht(c, " |NDOC|DATADOC|4->S0[1,25]", TR("Selezione Documenti"),
|
||||
HR("@1|Numero\nDoc.@7|Data\nDoc.@10|Stato"));
|
||||
sht.check(-1);
|
||||
if (sht.run() && sht.one_checked())
|
||||
{
|
||||
TFilename tmp;
|
||||
tmp.temp("", "ini");
|
||||
|
||||
// Ensure that the ofstream is well closed before ve1 call
|
||||
if (tmp.full()) // dummy test
|
||||
{
|
||||
const TDate data_from = mask.get_date(F_DADATA);
|
||||
const TString& cod_num = mask.get(F_CODNUM);
|
||||
TString16 chiavedoc; // Parte della chiave comune a tutti i documenti
|
||||
chiavedoc << "D|" << data_from.year() << "|" << cod_num << "|";
|
||||
|
||||
ofstream outf(tmp);
|
||||
outf << "[Transaction]" << endl; // Transaction header
|
||||
outf << "Action=" << action << endl; // 'S'tampa o 'A'nteprima
|
||||
outf << "Mode=D" << endl; // Definitive (always?)
|
||||
outf << "NoPrintDlg=X" << endl; // Dont' prompt the user with the print dialog
|
||||
outf << endl;
|
||||
outf << "[33]" << endl; // Transaction body
|
||||
long nx = 0; // Document counter
|
||||
FOR_EACH_CHECKED_ROW(sht, i, row)
|
||||
{
|
||||
outf << "Doc(" << (nx++) << ")=";
|
||||
outf << chiavedoc << row->get(1) << endl;
|
||||
}
|
||||
}
|
||||
|
||||
if (tmp.exist())
|
||||
{
|
||||
TString cmdline; cmdline << "ve1 -2 -i" << tmp;
|
||||
TExternal_app app(cmdline);
|
||||
app.run();
|
||||
tmp.fremove();
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void TStampa_inv_app::main_loop()
|
||||
{
|
||||
TStampa_inv_msk m;
|
||||
bool running = true;
|
||||
while (running)
|
||||
{
|
||||
const KEY k = m.run();
|
||||
switch (k)
|
||||
{
|
||||
case K_ENTER: elabora(m, 'S'); break; // 'S'tampa
|
||||
case 'A' : elabora(m, 'A'); break; // 'A'nteprima
|
||||
case 'P' : elabora(m, 'P'); break; // 'P'df
|
||||
default : running = false; break; // quit
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
int lv1300(int argc, char* argv[])
|
||||
{
|
||||
TStampa_inv_app app;
|
||||
app.run(argc, argv, TR("Stampa Inventario"));
|
||||
return 0;
|
||||
}
|
||||
11
lv/lv1300a.h
Executable file
11
lv/lv1300a.h
Executable file
@ -0,0 +1,11 @@
|
||||
//Definizione campi per maschera lv1300a - Stampa Inventari
|
||||
#define F_CODNUM 201
|
||||
#define F_DESNUM 202
|
||||
#define F_TIPODOC 203
|
||||
#define F_ANNOES 204
|
||||
#define F_DESTIPODOC 205
|
||||
#define F_STAMPAPER 206
|
||||
#define F_DANDOC 207
|
||||
#define F_ANDOC 208
|
||||
#define F_DADATA 209
|
||||
#define F_ADATA 210
|
||||
142
lv/lv1300a.uml
Executable file
142
lv/lv1300a.uml
Executable file
@ -0,0 +1,142 @@
|
||||
#include "lv1300a.h"
|
||||
|
||||
TOOLBAR "" 0 0 0 2
|
||||
BUTTON DLG_PRINT 10 2
|
||||
BEGIN
|
||||
PROMPT 1 1 "~Stampa"
|
||||
MESSAGE EXIT,K_ENTER
|
||||
END
|
||||
|
||||
BUTTON DLG_SETPRINT 10 2
|
||||
BEGIN
|
||||
PROMPT 2 1 "~Imposta"
|
||||
END
|
||||
|
||||
BUTTON DLG_PREVIEW 10 2
|
||||
BEGIN
|
||||
PROMPT 3 1 "~Anteprima"
|
||||
PICTURE TOOL_PREVIEW
|
||||
MESSAGE EXIT,65
|
||||
END
|
||||
#include <helpbar.h>
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Stampa Inventari" -1 -1 80 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 5
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bDocumenti da stampare"
|
||||
END
|
||||
|
||||
STRING F_CODNUM 4
|
||||
BEGIN
|
||||
PROMPT 2 2 "Numerazione "
|
||||
USE %NUM
|
||||
INPUT CODTAB F_CODNUM
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CODNUM CODTAB
|
||||
OUTPUT F_DESNUM S0
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_DESNUM 50
|
||||
BEGIN
|
||||
PROMPT 24 2 ""
|
||||
HELP "Descrizione Numerazione"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_TIPODOC 4
|
||||
BEGIN
|
||||
PROMPT 2 3 "Tipo "
|
||||
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
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
STRING F_DESTIPODOC 50
|
||||
BEGIN
|
||||
PROMPT 24 3 ""
|
||||
HELP "Descrizione tipo documento"
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_ANNOES 4
|
||||
BEGIN
|
||||
PROMPT 2 4 "Anno es. "
|
||||
FLAGS "DA"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_STAMPAPER 1 78
|
||||
BEGIN
|
||||
PROMPT 1 6 "@bSeleziona inventari per..."
|
||||
ITEM "0|Numero Inventario"
|
||||
MESSAGE SHOW,1@|HIDE,2@
|
||||
ITEM "1|Data Inventario"
|
||||
MESSAGE HIDE,1@|SHOW,2@
|
||||
FLAGS "Z"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 9 "@bParametri"
|
||||
END
|
||||
|
||||
NUMBER F_DANDOC 6
|
||||
BEGIN
|
||||
PROMPT 2 10 "Dal numero "
|
||||
GROUP 1
|
||||
USE LF_DOC
|
||||
INPUT PROVV "D"
|
||||
INPUT ANNO F_ANNOES SELECT
|
||||
INPUT CODNUM F_CODNUM SELECT
|
||||
INPUT NDOC F_DANDOC
|
||||
DISPLAY "Ndoc@4" NDOC
|
||||
DISPLAY "Data\ndocumento@10" DATADOC
|
||||
OUTPUT F_DANDOC NDOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_ANDOC 6
|
||||
BEGIN
|
||||
PROMPT 25 10 "Al numero "
|
||||
GROUP 1
|
||||
USE LF_DOC
|
||||
INPUT PROVV "D"
|
||||
INPUT ANNO F_ANNOES SELECT
|
||||
INPUT CODNUM F_CODNUM SELECT
|
||||
INPUT NDOC F_DANDOC
|
||||
DISPLAY "Ndoc@4" NDOC
|
||||
DISPLAY "Data\ndocumento@10" DATADOC
|
||||
OUTPUT F_DANDOC NDOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
DATE F_DADATA
|
||||
BEGIN
|
||||
PROMPT 2 10 "Dalla data "
|
||||
GROUP 2
|
||||
CHECKTYPE NORMAL
|
||||
FLAGS "A"
|
||||
END
|
||||
|
||||
DATE F_ADATA
|
||||
BEGIN
|
||||
PROMPT 25 10 "Alla data "
|
||||
FLAGS "A"
|
||||
GROUP 2
|
||||
CHECKTYPE NORMAL
|
||||
VALITATE DATE_CMP_FUNC >= F_DADATA
|
||||
WARNING "La data finale deve essere successiva a quella iniziale"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user