root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 10.0 patch ???

Browse Source 
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 2010-04-29 15:26:01 +00:00
parent 6a08b145cb
commit 2ea3151c0d
5 changed files with 338 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lv/lv1.cpp
View File

@ -7,9 +7,10 @@ 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
case 1: lv1200(argc, argv); break; // stampa a Kg lv1200
default: lv1100(argc, argv); break; // stampa buoni lv1100
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
View File

@ -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
View 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
View 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
View 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