361168d5e4
git-svn-id: svn://10.65.10.50/branches/R_10_00@22723 c028cbd2-c16b-5b4b-a496-9718f37d4682
263 lines
7.7 KiB
C++
Executable File
263 lines
7.7 KiB
C++
Executable File
#include <applicat.h>
|
||
#include <automask.h>
|
||
#include <execp.h>
|
||
|
||
#include "lvlib.h"
|
||
|
||
#include "lv1300a.h"
|
||
#include "../ve/pacchi.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 <20> 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 sistema_magazzino_pacchi(TAssoc_array& documenti);
|
||
void elabora(const TMask& mask, const char action);
|
||
};
|
||
|
||
//SISTEMA_MAGAZZINO_PACCHI: metodo che sistema l'elenco dei pacchi,
|
||
//eliminando quelli che effettivamente non ci sono
|
||
void TStampa_inv_app::sistema_magazzino_pacchi(TAssoc_array& documenti)
|
||
{
|
||
TSystemisamfile pacchi(LF_PACCHI);
|
||
pacchi.open(_excllock);
|
||
|
||
TAssoc_array arpacchi;
|
||
|
||
//Scorro tutti i documenti che sto stampando; per ognuno recupero l'elenco dei pacchi
|
||
//pistolati raggruppandoli per codart
|
||
FOR_EACH_ASSOC_OBJECT(documenti, obj, key, itm)
|
||
{
|
||
TDoc_key kdoc(key);
|
||
|
||
TDoc_inventario inv(kdoc);
|
||
for (int i = 1; i <= inv.rows(); i++)
|
||
{
|
||
TDoc_inventario_row rinv(inv[i]);
|
||
const TString& codart = rinv.codart();
|
||
const TToken_string& codpacchi = rinv.cod_pacchi();
|
||
|
||
if(arpacchi.is_key(codart))
|
||
{
|
||
TToken_string& tmp = *(TToken_string*)arpacchi.objptr(codart);
|
||
tmp.add(codpacchi);
|
||
}
|
||
else
|
||
arpacchi.add(codart, codpacchi);
|
||
}
|
||
}
|
||
|
||
//scorro l'elenco dei pacchi che mi sono appena costruito, separando i vari codici dei pacchi
|
||
bool trovato = false;
|
||
FOR_EACH_ASSOC_OBJECT(arpacchi, obj1, key1, itm1)
|
||
{
|
||
TAssoc_array pa;
|
||
TString16 codart(key1);
|
||
TToken_string& codpacchi = *(TToken_string*)arpacchi.objptr(codart);
|
||
codpacchi.replace('-', '|');
|
||
|
||
//separo i vari codici dei pacchi
|
||
for(int i = 0; i < codpacchi.items(); i++)
|
||
{
|
||
TString80 str = codpacchi.get(i);
|
||
pa.add(str, str);
|
||
}
|
||
|
||
//cerco tutti i pacchi a magazzino di un codart
|
||
TString query;
|
||
query << "USE PACCHI KEY 3\n"
|
||
<< "SELECT (NDOC=0)&&(CODCF=0)\n"
|
||
<< "FROM CODART=\"" << codart << "\"\n"
|
||
<< "TO CODART=\"" << codart << "\"\n";
|
||
TISAM_recordset paxcodart(query);
|
||
|
||
//Nei pacchi che non sono stati pistolati setto NDOC = -1
|
||
//(tutti i filtri controllano o ndoc = 0 o ndoc > 0)
|
||
for(bool ok = paxcodart.move_first(); ok; ok = paxcodart.move_next())
|
||
{
|
||
TRiga_pacco rp(paxcodart.cursor()->curr());
|
||
if(!pa.is_key(rp.codpacco()))
|
||
{
|
||
rp.set_rigabolla(0, "", -1L, 0);
|
||
if (rp.get_long(PACCHI_MGNUMREG) == 0L)
|
||
rp.set_movmag(-1);
|
||
rp.rewrite(pacchi);
|
||
trovato = true;
|
||
}
|
||
}
|
||
}
|
||
pacchi.close();
|
||
}
|
||
|
||
void TStampa_inv_app::elabora(const TMask& mask, const char action)
|
||
{
|
||
const char defono = mask.get_bool(F_STAMPADEF) ? 'D' : 'P';
|
||
TAssoc_array documenti;
|
||
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);
|
||
TString80 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=" << defono << endl; // 'D'efinitivo o 'P'rovvisorio
|
||
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;
|
||
TDoc_key kdoc(data_from.year(), cod_num, row->get_int(1));
|
||
documenti.add(kdoc, kdoc);
|
||
}
|
||
}
|
||
|
||
if (tmp.exist())
|
||
{
|
||
TString cmdline; cmdline << "ve1 -2 -i" << tmp;
|
||
TExternal_app app(cmdline);
|
||
app.run();
|
||
tmp.fremove();
|
||
}
|
||
|
||
if(!documenti.empty() && mask.get_bool(F_STAMPADEF))
|
||
sistema_magazzino_pacchi(documenti);
|
||
}
|
||
}
|
||
|
||
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;
|
||
}
|