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

Patch level :10.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :Stampa Venduto 12 mesi


git-svn-id: svn://10.65.10.50/trunk@18175 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
lvietri 2009-02-02 14:27:54 +00:00
parent 48628bb904
commit 7fcbd1557d
3 changed files with 85 additions and 84 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

137
lv/lv2800.cpp
View File

@ -8,49 +8,47 @@
//Stampa Venduto Per Cliente nei 12 Mesi
//lvietri
class TVendCli_recordset: public TCSV_recordset
class TVend_cli_recordset: public TCSV_recordset
{
public:
TVendCli_recordset(): TCSV_recordset("CSV(\"\t\")") {}
TVend_cli_recordset(): TCSV_recordset("CSV(\"\t\")") {}
};
struct TStruttura: public TObject
struct TStruttura_venduto: public TObject
{
long _prezzo;
long _cliente;
TString _articolo;
TString _descr;
const TString _articolo;
const 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) {}
TStruttura_venduto():_cliente(0),_articolo(""),_descr(""),_dataDoc(""),_numeroDoc(0),_qta(0) {}
TStruttura_venduto(long cliente, TString articolo, TString descr,
TDate dataDoc, int numeroDoc,long qta):
_cliente(cliente),_articolo(articolo),
_descr(descr),_dataDoc(dataDoc),_numeroDoc(numeroDoc),_qta(qta) {}
};
class TVendCli_mask: public TAutomask
class TVend_cli_mask: public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TVendCli_mask():TAutomask("lv2800a"){}
TVend_cli_mask():TAutomask("lv2800a"){}
};
bool TVendCli_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
bool TVend_cli_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
return true;
}
class TVendCli_report : public TReport
class TVend_cli_report : public TReport
{
protected:
virtual bool use_mask() { return false; }
};
class TVendCli_app: public TSkeleton_application
class TVend_cli_app: public TSkeleton_application
{
protected:
virtual void main_loop();
@ -58,21 +56,20 @@ protected:
TString getQuery() const;
bool ctl(TDate dataInizio,
TDate dataFine,
int dataNum,
bool isAnno) const;
bool erroreBox(TString aMsg) const;
};
TString TVendCli_app::getQuery() const
TString TVend_cli_app::getQuery() const
{
//Stringhe x composizione query
TString query, select, between, orderBy, join, from_, to_;
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");??
const TString4 codnum = lvini.get("NUM_FAT");
const TString4 tipodoc = lvini.get("TIPODOC_FAT");
select << "USE RDOC KEY 1\n";
select << "SELECT ((DOC.TIPODOC='" << tipodoc << "')&&";
@ -82,10 +79,10 @@ TString TVendCli_app::getQuery() const
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 << "'";
from << "FROM CODNUM='" << codnum << "'\n";
to << "TO CODNUM='" << codnum << "'";
query << select << between << orderBy << join << from_ << to_;
query << select << between << orderBy << join << from << to;
return query;
}
@ -93,24 +90,24 @@ TString TVendCli_app::getQuery() const
class TRiepVendCli: public TArray
{
public:
void add(int count,long cliente, TString articolo, TString descr,
TDate dataDoc, int numeroDoc, long qta, long prezzo);
void add(long cliente, TString articolo, TString descr,
TDate dataDoc, int numeroDoc, long qta);
TRiepVendCli():TArray(){}
};
void TRiepVendCli::add(int count,long cliente, TString articolo, TString descr,
TDate dataDoc, int numeroDoc, long qta, long prezzo)
void TRiepVendCli::add(long cliente, TString articolo, TString descr,
TDate dataDoc, int numeroDoc, long qta)
{
TStruttura* struttura = new TStruttura(cliente,articolo, descr,dataDoc,numeroDoc,qta, prezzo);
TArray::add(struttura,count);
TStruttura_venduto* struttura = new TStruttura_venduto(cliente,articolo, descr,dataDoc,numeroDoc,qta);
TArray::add(struttura);
}
/*
Metodo di visualizzazione pop errore
ritorna sempre false.
*/
bool TVendCli_app::erroreBox(TString aMsg) const
bool TVend_cli_app::erroreBox(TString aMsg) const
{
error_box (aMsg);
return false;
@ -124,36 +121,17 @@ Effettuo Controlli. Ritorna false-Errore se:
(msk gestisce controllo se data iniziale è maggiore di
quella finale)
*/
bool TVendCli_app:: ctl(TDate dataInizio,
bool TVend_cli_app:: ctl(TDate dataInizio,
TDate dataFine,
int dataNum,
bool isAnno) const
{
bool vRc = true;
if(isAnno)
if(!isAnno)
{
if(dataNum==0)
{
return erroreBox(TR("ERRORE:Valorizzare l'anno"));
}
}
else
{
if(dataInizio.empty())
{
return erroreBox(TR("ERRORE:Valorizzare la data iniziale!"));;
}
if(dataFine.empty())
{
return erroreBox(TR("ERRORE:Valorizzare la data finale!"));;
}
int annoInizio = dataInizio.year();
int annoFine = dataFine.year();
if(annoInizio!=annoFine)
{
return erroreBox(TR("ERRORE:le date non fanno parte dello stesso anno!"));;
return erroreBox(TR("le date non fanno parte dello stesso anno!"));;
}
}
return true;
@ -161,7 +139,7 @@ bool TVendCli_app:: ctl(TDate dataInizio,
//metodo principale di elaborazione
void TVendCli_app:: elabora(const TMask& mask)const
void TVend_cli_app:: elabora(const TMask& mask)const
{
/*
Se i controlli vanno a buon fine, allora
@ -169,7 +147,6 @@ void TVendCli_app:: elabora(const TMask& mask)const
*/
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());
@ -199,35 +176,41 @@ void TVendCli_app:: elabora(const TMask& mask)const
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;
TRiepVendCli riepilogo;
//inizializzazione variabili da utilizzare nella
//struttura
TDate dataDoc;
TString articolo;
TString descr;
int numeroDoc;
long cliente;
long qta;
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();
dataDoc = riep.get("DOC.DATADOC").as_date();
articolo = riep.get("CODART").as_string();
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();
numeroDoc = riep.get("NDOC").as_int();
cliente = riep.get("DOC.CODCF").as_int();
qta = riep.get("QTA").as_int();
riepilogo.add(count,cliente,articolo,descr,dataDoc,numeroDoc,qta,prezzo);
count++;
riepilogo.add(cliente,articolo,descr,dataDoc,numeroDoc,qta);
}
//gestione report
TVendCli_report rep;
TVend_cli_report rep;
bool stampa = rep.load("lv2800a");
TVendCli_recordset* riep_set = new TVendCli_recordset();
TVend_cli_recordset* riep_set = new TVend_cli_recordset();
rep.set_recordset(riep_set);
//inizializzazione variabili
TString articoloOld;
TString descrOld;
int clienteOld = 0;
bool START = true;
bool start = true;
int colonna = 0;
//inizializzazione array di quantità
@ -239,16 +222,16 @@ void TVendCli_app:: elabora(const TMask& mask)const
//scandisce clienti e tiene buoni solo quelli valorizzati
FOR_EACH_ARRAY_ITEM(riepilogo,c,obj)
{
TStruttura& s = *(TStruttura*) obj;
TStruttura_venduto& s = *(TStruttura_venduto*) obj;
//Solo la prima volta setto le variabili altrimenti
//entrerebbe sempre nel metodo creazione record
//in report
if(START)
if(start)
{
clienteOld=s._cliente;
articoloOld=s._articolo;
START = false;
start = false;
}
//metodo creazione record in report
@ -283,7 +266,7 @@ void TVendCli_app:: elabora(const TMask& mask)const
}
//Stampa Ultimo record se ne ha fatto almeno 1
if(!START)
if(!start)
{
riep_set->new_rec();
colonna = 0;
@ -326,9 +309,9 @@ void TVendCli_app:: elabora(const TMask& mask)const
}
}
void TVendCli_app::main_loop()
void TVend_cli_app::main_loop()
{
TVendCli_mask mask;
TVend_cli_mask mask;
//Settaggio della data finale come
//31-12-(anno in corso)
@ -344,7 +327,7 @@ void TVendCli_app::main_loop()
int lv2800(int argc, char* argv[])
{
TVendCli_app app;
TVend_cli_app app;
app.run(argc, argv, TR("Stampa Venduto Per Cliente nei 12 Mesi"));
return 0;
}

4
lv/lv2800a.uml
View File

@ -76,6 +76,7 @@ DATE F_DATA_DA
BEGIN
PROMPT 2 6 "Da Data "
FLAGS "A"
CHECKTYPE REQUIRED
FIELD #F_DATA_FROM
GROUP 1
END
@ -84,6 +85,7 @@ DATE F_DATA_A
BEGIN
PROMPT 30 6 "A Data "
FIELD #F_DATA_TO
CHECKTYPE REQUIRED
VALITATE DATE_CMP_FUNC >= F_DATA_DA
WARNING "La data finale deve essere successiva a quella iniziale"
GROUP 1
@ -101,6 +103,8 @@ NUMBER F_ANNO 4
BEGIN
PROMPT 72 6 ""
FLAGS "A"
CHECKTYPE REQUIRED
WARNING "Inserire l'anno"
FIELD #F_ANNO_TO
END

28
lv/lvmenu.men
View File

@ -14,8 +14,7 @@ Picture = <ba00>
Module = 41
Flags = ""
Item_01 = "Tabelle", [LVMENU_011]
Item_02 = "Archivi di Base", [MGAREA_012]
Item_03 = "Stampa Tabelle", [LVMENU_013]
Item_02 = "Stampa Tabelle", [LVMENU_012]
[LVMENU_011]
Caption = "Tabelle"
@ -34,7 +33,7 @@ Item_09 = "Lavatrici", "lv0 -0 &LVT", "F"
Item_10 = "Mangani", "lv0 -0 &MAN", "F"
Item_11 = "Causali Lavanderia", "lv0 -0 &CAU", "F"
[LVMENU_013]
[LVMENU_012]
Caption = "Stampa Tabelle"
Picture = <ba03>
Module = 41
@ -55,12 +54,26 @@ Caption = "Contratti"
Picture = <lv00>
Module = 41
Flags = ""
Item_01 = "Gestione contratti", [LVMENU_021]
Item_02 = "Stampe contratti", [LVMENU_022]
[LVMENU_021]
Caption = "Gestione contratti"
Picture = <lv00>
Module = 41
Flags = ""
Item_01 = "Contratti", "lv0 -3", "F"
Item_02 = "Passaggi per contratto e Periodi di sospensione", "lv0 -4", "F"
Item_03 = "Stampa Contratti per cliente", "lv0 -1 lv0400c", "F"
Item_04 = "Stampa Passaggi per cliente", "lv0 -1 lv0500c", "F"
Item_05 = "Stampa Periodi di sospensione", "lv0 -1 lv0500d", "F"
Item_06 = "Stampa Elenco Clienti per Articolo", "lv0 -1 lv0400d", "F"
[LVMENU_022]
Caption = "Stampe contratti"
Picture = <ba03>
Module = 41
Flags = ""
Item_01 = "Contratti per cliente", "lv0 -1 lv0400c", "F"
Item_02 = "Passaggi per cliente", "lv0 -1 lv0500c", "F"
Item_03 = "Periodi di sospensione", "lv0 -1 lv0500d", "F"
Item_04 = "Elenco Clienti per Articolo", "lv0 -1 lv0400d", "F"
[LVMENU_030]
Caption = "Giri"
@ -104,3 +117,4 @@ Picture = <ba03>
Module = 41
Flags = ""
Item_01 = "Riepilogo Bolle di Lavanderie", "lv2 -6 lv2700a", "F"
Item_02 = "Venduto Per Cliente nei 12 Mesi", "lv2 -7 lv2800a", "F"