e195fbf05d
Files correlati : Ricompilazione Demo : [ ] Commento :Stampa Venduto per 12 mesi git-svn-id: svn://10.65.10.50/trunk@18157 c028cbd2-c16b-5b4b-a496-9718f37d4682
433 lines
11 KiB
C++
Executable File
433 lines
11 KiB
C++
Executable File
#include <Textset.h>
|
||
#include <Applicat.h>
|
||
#include <Automask.h>
|
||
#include <Reprint.h>
|
||
#include "lv0.h"
|
||
#include "lv2800a.h"
|
||
#include <config.h>
|
||
|
||
//Stampa Venduto Per Cliente nei 12 Mesi
|
||
//lvietri
|
||
class TVendCli_recordset: public TCSV_recordset
|
||
{
|
||
public:
|
||
TVendCli_recordset(): TCSV_recordset("CSV(\"\t\")") {}
|
||
};
|
||
|
||
struct TStruttura: public TObject
|
||
{
|
||
long _prezzo;
|
||
long _cliente;
|
||
TString _articolo;
|
||
TString _descr;
|
||
TDate _dataDoc;
|
||
int _numeroDoc;
|
||
long _qta;
|
||
TStruttura():_cliente(0),_articolo(""),_descr(""),_dataDoc(""),_numeroDoc(0),_qta(0) {}
|
||
TStruttura(long cliente, TString articolo, TString descr,
|
||
TDate dataDoc, int numeroDoc,
|
||
long qta, long prezzo):_cliente(cliente),_articolo(articolo),
|
||
_descr(descr),_dataDoc(dataDoc),_numeroDoc(numeroDoc),
|
||
_qta(qta),_prezzo(prezzo) {}
|
||
};
|
||
|
||
class TVendCli_mask: public TAutomask
|
||
{
|
||
protected:
|
||
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||
public:
|
||
TVendCli_mask():TAutomask("lv2800a"){}
|
||
};
|
||
|
||
bool TVendCli_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||
{
|
||
return true;
|
||
}
|
||
|
||
class TVendCli_report : public TReport
|
||
{
|
||
protected:
|
||
virtual bool use_mask() { return false; }
|
||
};
|
||
|
||
class TVendCli_app: public TSkeleton_application
|
||
{
|
||
protected:
|
||
virtual void main_loop();
|
||
void elabora(const TMask& mask) const;
|
||
TString getQuery() const;
|
||
bool ctl(TDate dataInizio,
|
||
TDate dataFine,
|
||
int dataNum,
|
||
bool isAnno) const;
|
||
};
|
||
|
||
TString TVendCli_app::getQuery() const
|
||
{
|
||
//Stringhe x composizione query
|
||
TString query, select, between, orderBy, join, from_, to_;
|
||
|
||
//Richiamo parametri della ditta di configurazione
|
||
//file Ditta.ini
|
||
TConfig lvini(CONFIG_DITTA, "lv");
|
||
const TString4 codnum = "B01";//lvini.get("NUM_GEN"); ??
|
||
const TString4 tipodoc = "B01";//lvini.get("TIPODOC_GEN");??
|
||
|
||
select << "USE RDOC KEY 1\n";
|
||
select << "SELECT ((DOC.TIPODOC='" << tipodoc << "')&&";
|
||
between << "(BETWEEN(DOC.ZONA,#F_ZONA_FROM,#F_ZONA_FROM))";
|
||
between << "&&(BETWEEN(CODART,#F_CODART_FROM,#F_CODART_TO))";
|
||
between << "&&(BETWEEN(DOC.DATADOC,#F_DATA_FROM,#F_DATA_TO))";
|
||
between << "&&(BETWEEN(DOC.CODCF,#F_CODCF_FROM,#F_CODCF_TO)))\n";
|
||
orderBy << "BY DOC.CODCF CODART DOC.DATADOC NDOC\n";
|
||
join << "JOIN DOC TO RDOC ALIAS 1000 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC\n";
|
||
from_ << "FROM CODNUM='" << codnum << "'\n";
|
||
to_ << "TO CODNUM='" << codnum << "'";
|
||
|
||
query << select << between << orderBy << join << from_ << to_;
|
||
|
||
return query;
|
||
}
|
||
|
||
class TRiepVendCli: public TArray
|
||
{
|
||
public:
|
||
void add(int count,long cliente, TString articolo, TString descr,
|
||
TDate dataDoc, int numeroDoc, long qta, long prezzo);
|
||
TRiepVendCli():TArray(9){}
|
||
};
|
||
|
||
|
||
void TRiepVendCli::add(int count,long cliente, TString articolo, TString descr,
|
||
TDate dataDoc, int numeroDoc, long qta, long prezzo)
|
||
{
|
||
TStruttura* struttura = new TStruttura(cliente,articolo, descr,dataDoc,numeroDoc,qta, prezzo);
|
||
TArray::add(struttura,count);
|
||
}
|
||
|
||
/*
|
||
Effettuo Controlli. Ritorna false-Errore se:
|
||
- data iniziale vuota
|
||
- data finale vuota
|
||
- date appartenenti ad anno differente
|
||
(msk gestisce controllo se data iniziale <20> maggiore di
|
||
quella finale)
|
||
*/
|
||
bool TVendCli_app:: ctl(TDate dataInizio,
|
||
TDate dataFine,
|
||
int dataNum,
|
||
bool isAnno) const
|
||
{
|
||
bool vRc = true;
|
||
|
||
if(isAnno)
|
||
{
|
||
if(dataNum==0)
|
||
{
|
||
error_box (TR("ERRORE:Valorizzare l'anno"));
|
||
return false;
|
||
}
|
||
}
|
||
else
|
||
{
|
||
if(dataInizio.empty())
|
||
{
|
||
error_box (TR("ERRORE:Valorizzare la data iniziale!"));
|
||
return false;
|
||
}
|
||
if(dataFine.empty())
|
||
{
|
||
error_box (TR("ERRORE:Valorizzare la data finale!"));
|
||
return false;
|
||
}
|
||
|
||
int annoInizio = dataInizio.year();
|
||
int annoFine = dataFine.year();
|
||
if(annoInizio!=annoFine)
|
||
{
|
||
error_box (TR("ERRORE:le date non fanno parte dello stesso anno!"));
|
||
return false;
|
||
}
|
||
}
|
||
return true;
|
||
}
|
||
|
||
|
||
//metodo principale di elaborazione
|
||
void TVendCli_app:: elabora(const TMask& mask)const
|
||
{
|
||
/*
|
||
Se i controlli vanno a buon fine, allora
|
||
va avanti nella gestione
|
||
*/
|
||
if(ctl(mask.get_date(F_DATA_DA),
|
||
mask.get_date(F_DATA_A),
|
||
mask.get_int(F_ANNO),
|
||
mask.get_bool(F_CHECK_ANNO)))
|
||
{
|
||
TISAM_recordset riep(getQuery());
|
||
|
||
TDate dataDa = mask.get_date(F_DATA_DA);
|
||
TDate dataA = mask.get_date(F_DATA_A);
|
||
|
||
if(mask.get_bool(F_CHECK_ANNO))
|
||
{
|
||
dataDa.set_day(1);
|
||
dataDa.set_month(1);
|
||
dataDa.set_year(mask.get_int(F_ANNO));
|
||
|
||
dataA.set_day(31);
|
||
dataA.set_month(12);
|
||
dataA.set_year(mask.get_int(F_ANNO));
|
||
}
|
||
|
||
//inserire parametri filtri
|
||
riep.set_var("#F_DATA_FROM",dataDa);
|
||
riep.set_var("#F_DATA_TO",dataA);
|
||
riep.set_var("#F_CODCF_FROM",TVariant(mask.get(F_CODCF_DA)));
|
||
riep.set_var("#F_CODCF_TO",TVariant(mask.get(F_CODCF_A)));
|
||
riep.set_var("#F_ZONA_FROM",TVariant(mask.get(F_ZONA)));
|
||
riep.set_var("#F_ANNO_TO",TVariant(mask.get(F_ANNO)));
|
||
riep.set_var("#F_CHECK_ANNO_TO",TVariant(mask.get(F_CHECK_ANNO)));
|
||
riep.set_var("#F_CODART_FROM",TVariant(mask.get(F_CODART_FROM)));
|
||
riep.set_var("#F_CODART_TO",TVariant(mask.get(F_CODART_TO)));
|
||
|
||
TRiepVendCli riepilogo;
|
||
int count = 1;
|
||
|
||
for(bool ok = riep.move_first();ok;ok=riep.move_next())
|
||
{
|
||
TDate dataDoc = riep.get("DOC.DATADOC").as_date();
|
||
TString articolo = riep.get("CODART").as_string();
|
||
TString descr = riep.get("DESCR").as_string();
|
||
|
||
int numeroDoc = riep.get("NDOC").as_int();
|
||
long cliente = riep.get("DOC.CODCF").as_int();
|
||
long qta = riep.get("QTA").as_int();
|
||
long prezzo = riep.get("PREZZO").as_int();
|
||
|
||
riepilogo.add(count,cliente,articolo,descr,dataDoc,numeroDoc,qta,prezzo);
|
||
count++;
|
||
}
|
||
|
||
//gestione report
|
||
TVendCli_report rep;
|
||
bool stampa = rep.load("lv2800a");
|
||
TVendCli_recordset* riep_set = new TVendCli_recordset();
|
||
rep.set_recordset(riep_set);
|
||
|
||
//inizializzazione variabili
|
||
TString articoloOld;
|
||
TString descrOld;
|
||
int clienteOld = 0;
|
||
bool START = true;
|
||
int colonna = 0;
|
||
long qt01 = 0;
|
||
long qt02 = 0;
|
||
long qt03 = 0;
|
||
long qt04 = 0;
|
||
long qt05 = 0;
|
||
long qt06 = 0;
|
||
long qt07 = 0;
|
||
long qt08 = 0;
|
||
long qt09 = 0;
|
||
long qt10 = 0;
|
||
long qt11 = 0;
|
||
long qt12 = 0;
|
||
|
||
//scandisce clienti e tiene buoni solo quelli valorizzati
|
||
FOR_EACH_ARRAY_ITEM(riepilogo,c,obj)
|
||
{
|
||
TStruttura& s = *(TStruttura*) obj;
|
||
|
||
//Solo la prima volta setto le variabili altrimenti
|
||
//entrerebbe sempre nel metodo creazione record
|
||
//in report
|
||
if(START)
|
||
{
|
||
clienteOld=s._cliente;
|
||
articoloOld=s._articolo;
|
||
START = false;
|
||
}
|
||
|
||
//metodo creazione record in report
|
||
if((clienteOld!=s._cliente ||
|
||
articoloOld!=s._articolo))
|
||
{
|
||
riep_set->new_rec();
|
||
colonna = 0;
|
||
riep_set->set(colonna,TVariant(long (clienteOld)));//CAMPO DI ROTTURA
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(long (clienteOld)));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(articoloOld));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(descrOld));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt01));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt02));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt03));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt04));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt05));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt06));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt07));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt08));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt09));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt10));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt11));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt12));
|
||
|
||
clienteOld = s._cliente;
|
||
articoloOld= s._articolo;
|
||
descrOld = s._descr;
|
||
|
||
qt01=0;
|
||
qt02=0;
|
||
qt03=0;
|
||
qt04=0;
|
||
qt05=0;
|
||
qt06=0;
|
||
qt07=0;
|
||
qt08=0;
|
||
qt09=0;
|
||
qt10=0;
|
||
qt11=0;
|
||
qt12=0;
|
||
}
|
||
|
||
//Gestione Somma qta in base al mese
|
||
TString data = s._dataDoc;
|
||
TString mese = data.mid(3,2);
|
||
|
||
if(mese=="01"){
|
||
qt01 = qt01 + s._qta;
|
||
}
|
||
if(mese=="02"){
|
||
qt02 = qt02 + s._qta;
|
||
}
|
||
if(mese=="03"){
|
||
qt03 = qt03 + s._qta;
|
||
}
|
||
if(mese=="04"){
|
||
qt04 = qt04 + s._qta;
|
||
}
|
||
if(mese=="05"){
|
||
qt05 = qt05 + s._qta;
|
||
}
|
||
if(mese=="06"){
|
||
qt06 = qt06 + s._qta;
|
||
}
|
||
if(mese=="07"){
|
||
qt07 = qt07 + s._qta;
|
||
}
|
||
if(mese=="08"){
|
||
qt08 = qt08 + s._qta;
|
||
}
|
||
if(mese=="09"){
|
||
qt09 = qt09 + s._qta;
|
||
}
|
||
if(mese=="10"){
|
||
qt10 = qt10 + s._qta;
|
||
}
|
||
if(mese=="11"){
|
||
qt11 = qt11 + s._qta;
|
||
}
|
||
if(mese=="12"){
|
||
qt12 = qt12 + s._qta;
|
||
}
|
||
}
|
||
|
||
//Stampa Ultimo record se ne ha fatto almeno 1
|
||
if(!START)
|
||
{
|
||
riep_set->new_rec();
|
||
colonna = 0;
|
||
riep_set->set(colonna,TVariant(long (clienteOld)));//CAMPO DI ROTTURA
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(long (clienteOld)));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(articoloOld));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(descrOld));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt01));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt02));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt03));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt04));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt05));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt06));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt07));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt08));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt09));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt10));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt11));
|
||
colonna++;
|
||
riep_set->set(colonna,TVariant(qt12));
|
||
}
|
||
|
||
//Crea file che contiene il recordset
|
||
//riep_set->save_as("c:\\riepilogoBolla.txt");
|
||
|
||
//Se il report esiste..
|
||
if(stampa)
|
||
{
|
||
//carica tutte le variabili del report.
|
||
rep.mask2report(mask);
|
||
|
||
TReport_book b;
|
||
bool ok = b.add(rep);// Richiede parametri di stampa in base alla maschera omonima
|
||
if (ok)
|
||
{
|
||
//Se esiste almeno 1 pagina
|
||
if (b.pages() > 0)
|
||
b.print_or_preview(); // Stampa effettivamente
|
||
else
|
||
warning_box (TR("Nessun record estratto per i parametri inseriti"));
|
||
}
|
||
}
|
||
}
|
||
}
|
||
|
||
void TVendCli_app::main_loop()
|
||
{
|
||
TVendCli_mask mask;
|
||
|
||
//Settaggio della data finale come
|
||
//31-12-(anno in corso)
|
||
TString data = "31-12-";
|
||
data << mask.get_int(F_ANNO);
|
||
mask.set("#F_DATA_TO",data);
|
||
|
||
while(mask.run()==K_ENTER)
|
||
{
|
||
elabora(mask);
|
||
}
|
||
}
|
||
|
||
int lv2800(int argc, char* argv[])
|
||
{
|
||
TVendCli_app app;
|
||
app.run(argc, argv, TR("Stampa Venduto Per Cliente nei 12 Mesi"));
|
||
return 0;
|
||
} |