root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/ps/pd5317100.cpp
guy f7bb34867d Patch level : 10.0 
Files correlati     : pd5317
Ricompilazione Demo : [ ]
Commento            :
Corretta formula


git-svn-id: svn://10.65.10.50/branches/R_10_00@22556 c028cbd2-c16b-5b4b-a496-9718f37d4682
2012-01-20 16:12:58 +00:00

602 lines
19 KiB
C++
Executable File
Raw Blame History

#include <Textset.h>
#include <Applicat.h>
#include <Automask.h>
#include <Reprint.h>
#include <currency.h>
#include "pd5317.h"
#include "pd5317100.h"
//Stampa Listino Carrelli
//lvietri
class TCarrelli_recordset: public TCSV_recordset
{
public:
TCarrelli_recordset(): TCSV_recordset("CSV(\"\t\")") {}
};
//DEFINIZIONE DELLA STRUTTURA
struct TStruttura_carrelli: public TObject
{
const TString _articolo;
TString _user1;
TString _user2;
TString _user3;
TString _user4;
TString _user5;
TString _user6;
TString _user7;
TString _user8;
TString _user9;
TString _user10;
TString _user11;
TString _user12;
TString _user13;
TString _user14;
TDate _data_doc;
TCurrency _importob;
TDate _data_gara;
TCurrency _prezzoAcq;
TString _descr_conto;
TString _modello;
TCurrency _noleggio;
TCurrency _manutenzione;
TString _venduto_a;
TCurrency _prezzo_vend;
TCurrency _prezzo_p1;
TCurrency _prezzo_autom;
TCurrency _prezzo_recup;
TStruttura_carrelli():_articolo(""),_user1 (""),_user2 (""),
_user3 (""),_user4 (""),_user5 (""),
_user6 (""),_user7 (""),_user8 (""),
_user9 (""),_user10(""),_user11(""),
_user12(""),_user13(""),_user14(""),
_data_doc(""),_data_gara(""),_modello(""),
_venduto_a("") {}
TStruttura_carrelli(TString articolo,TString user[],TDate dataDoc,
TCurrency importob, TDate data_gara, TCurrency prezzoAcq,TString descrAcq,
TString modello,TCurrency noleggio,TCurrency manutenzione, TString venduto_a,
TCurrency prezzoVend,TCurrency prezzo_p1, TCurrency prezzo_autom,
TCurrency prezzo_recup):
_articolo(articolo),_user1 (user[0 ]),_user2 (user[1 ]),_user3 (user[2 ]),
_user4 (user[3 ]),_user5 (user[4 ]),_user6 (user[5 ]),_user7 (user[6 ]),
_user8 (user[7 ]),_user9 (user[8 ]),_user10(user[9 ]),_user11(user[10]),
_user12(user[11]),_user13(user[12]),_user14(user[13]),_data_doc(dataDoc),
_importob(importob),_data_gara(data_gara) ,_prezzoAcq(prezzoAcq),
_descr_conto(descrAcq), _modello(modello),_noleggio(noleggio),
_manutenzione(manutenzione),_venduto_a(venduto_a), _prezzo_vend(prezzoVend),
_prezzo_p1(prezzo_p1), _prezzo_autom(prezzo_autom),_prezzo_recup(prezzo_recup)
{}
};
class TCarrelli_mask: public TAutomask
{
protected:
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
public:
TCarrelli_mask():TAutomask("pd5317100"){}
};
bool TCarrelli_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
{
return true;
}
class TCarrelli_report : public TReport
{
protected:
virtual bool use_mask() { return false; }
public:
TCarrelli_report();
};
TCarrelli_report::TCarrelli_report()
{
load("pd5317100");
set_recordset(new TCarrelli_recordset());
}
class TCarrelli_app: public TSkeleton_application
{
protected:
virtual void main_loop();
void elabora(const TMask& mask) const;
const TString& get_query(int tipo, bool venduto = false, const TString& commessa = EMPTY_STRING) const;
const TString& get_query_saldana(const char* codice, const char* operatore = "==") const;
const char* extra_modules() const { return "mg"; }
};
const TString& TCarrelli_app::get_query_saldana(const char* codice, const char* operatore) const
{
//Stringhe x composizione query
TString& query = get_tmp_string();
query << "USE SALDANA KEY 2\n"
<< "SELECT ((CONTO" << operatore<< "'" << codice << "')&&"
<< "(BETWEEN(COMMESSA,#COMM,#COMM)))";
return query;
}
const TString& TCarrelli_app::get_query(int tipo, bool venduto, const TString& commessa) const
{
//Stringhe x composizione query
TString select, between, join, order_by;
if(tipo==0)//query su analitica\articoli\commesse
{
const char* operConto = venduto ? "==" : "!=";
select << "USE SALDANA KEY 2\n";
select << "SELECT ((CONTO" << operConto << "'004076000003')&&";
between << "(ANAMAG.CODART!='')&&";
between << "(BETWEEN(COMMESSA,#FROM,#TO)))\n";
order_by<< "BY COMMESSA\n";
join << "JOIN ANAMAG TO SALDANA INTO CODART==COMMESSA \n";
join << "JOIN COMMESSE TO SALDANA INTO CODCMS==COMMESSA \n";
if(venduto)
{
join << "FROM CONTO='004076000003' \n";
join << "TO CONTO='004076000003' \n";
}
}
else if(tipo==1)//query su articolo\doc.
{
select << "USE DOC KEY 3\n";
select << "SELECT ((TIPODOC='B01')&&";
between << "(BETWEEN(CODCMS,#COMM,#COMM)))\n";
join << "JOIN CLIFO TO DOC INTO TIPOCF==TIPOCF CODCF==CODCF\n";
join << "JOIN INDSPED TO DOC INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP\n";
join << "JOIN COMUNI TO CLIFO INTO COM==COMCF \n";
}
else if(tipo==2)//query su saldana ACQUISTO DA
{
select << "USE SALDANA KEY 2\n";
select << "SELECT (((CONTO ?='003081*')||(CONTO =='003071000002'))&&";
between << "(BETWEEN(COMMESSA,#COMM,#COMM)))";
}
else if(tipo==3)//query su piano dei conti.
{
select << "USE PCON KEY 1\n";
select << "SELECT ((GRUPPO=#GRUPPO1)&&(CONTO=#CONTO1)&&(SOTTOCONTO=#SOTTOCONTO1))";
}
else if(tipo==4)//query su multirel per sapere se cespite
{
select << "USE MULTIREL KEY 2\n";
select << "SELECT ((COD =='CEMAT')&&";
between << "(BETWEEN(SECOND,#COMM,#COMM)))";
}
else if(tipo==5)//query su movimenti x recupero fornitore
{
select << "USE RMOVANA KEY 2\n"
<< "SELECT ((CODCMS == '" << commessa << "')&&(CODCONTO='003071000002')) \n";
join << "JOIN MOVANA TO RMOVANA INTO NUMREG==NUMREG \n"
<< "JOIN MOV TO MOVANA INTO NUMREG=NUMREGCG \n"
<< "JOIN CLIFO TO MOV INTO TIPOCF==TIPO CODCF==CODCF \n"
<< "FROM CODCONTO='003071000002' \n"
<< "TO CODCONTO='003071000002' \n";
}
TString& query = get_tmp_string();
query << select << between << order_by << join;
return query;
}
class TRiepCarrelli: public TArray
{
public:
void add(TString articolo, TString user[], TDate dataDoc,
TCurrency importob, TDate data_gara, TCurrency prezzoAcq,TString descrAcq,
TString modello,TCurrency noleggio,TCurrency manutenzione,
TString venduto_a, TCurrency prezzoVend,
TCurrency prezzo_p1, TCurrency prezzo_autom,
TCurrency prezzo_recup);
TRiepCarrelli():TArray(){}
};
void TRiepCarrelli::add(TString articolo,TString user[],TDate dataDoc,
TCurrency importob, TDate data_gara,
TCurrency prezzoAcq,TString descrAcq,
TString modello,TCurrency noleggio,TCurrency manutenzione,
TString venduto_a, TCurrency prezzoVend,
TCurrency prezzo_p1, TCurrency prezzo_autom,
TCurrency prezzo_recup)
{
TStruttura_carrelli* struttura = new TStruttura_carrelli(
articolo,user,dataDoc,importob,data_gara,
prezzoAcq,descrAcq,modello, noleggio, manutenzione,
venduto_a,prezzoVend,prezzo_p1,prezzo_autom, prezzo_recup);
TArray::add(struttura);
}
//metodo principale di elaborazione
void TCarrelli_app::elabora(const TMask& mask)const
{
bool search = true;
bool venduto = mask.get_bool(F_VENDUTO);
if(!venduto && TVariant(mask.get(F_COD_CMS))==TVariant(mask.get(F_COD_CMS_TO)))
{
TISAM_recordset carico(get_query(0,true));
//inserire parametri filtri
carico.set_var("#FROM",TVariant(mask.get(F_COD_CMS)));//
carico.set_var("#TO",TVariant(mask.get(F_COD_CMS_TO)));//
carico.set_var("#F_VEN",TVariant(mask.get(F_VENDUTO)));//
carico.set_var("#F_CAR",TVariant(mask.get(F_CARICO)));//
for(bool ok = carico.move_first();ok;ok=carico.move_next()){
search = false;
warning_box (TR("Attenzione:Il carrello risulta venduto!"));
break;
}
}
if(search){
TISAM_recordset riep(get_query(0,venduto));
//inserire parametri filtri
riep.set_var("#FROM",TVariant(mask.get(F_COD_CMS)));//
riep.set_var("#TO",TVariant(mask.get(F_COD_CMS_TO)));//
riep.set_var("#F_VEN",TVariant(mask.get(F_VENDUTO)));//
riep.set_var("#F_CAR",TVariant(mask.get(F_CARICO)));//
TRiepCarrelli riepilogo;
//inizializzazione variabili da utilizzare nella
//struttura
TString articolo;
TString user[14];
TString campo;
TString ragsoc;
TString indir;
TDate dataDoc;
TDate data_gara;
TString descr_conto;
TString conto;
TString prov;
TString modello;
TString descr_null;
TCurrency importob;
TCurrency prezzoAcq;
TString venduto_a;
TCurrency prezzoVend;
TCurrency noleggio;
TCurrency manutenzione;
TCurrency prezzo_null;
TString commessa;
TString commessaOld;
for(bool ok = riep.move_first();ok;ok=riep.move_next())
{
commessa = riep.get("SALDANA.COMMESSA").as_string();
articolo = riep.get("ANAMAG.CODART").as_string();//A
search = true;
if(!venduto)
{
TISAM_recordset carico(get_query(0,true));
//inserire parametri filtri
carico.set_var("#FROM",TVariant(mask.get(F_COD_CMS)));//
carico.set_var("#TO",TVariant(mask.get(F_COD_CMS_TO)));//
carico.set_var("#F_VEN",TVariant(mask.get(F_VENDUTO)));//
carico.set_var("#F_CAR",TVariant(mask.get(F_CARICO)));//
for(bool ok = carico.move_first();ok;ok=carico.move_next()){
search = false;
break;
}
}
if(!search){
continue;
}
if(commessa==commessaOld ||
commessa.empty() ||
articolo.empty())
{
continue;
}
commessaOld=commessa;
int numUser = 1;
//if(articolo.not_empty())
{
for(int a = 0; a<14; a++) //da B a N
{
campo = "ANAMAG.USER";
campo << numUser;
user[a] = riep.get(campo).as_string();
numUser++;
}
ragsoc = "";//M
indir = "";//N
dataDoc= "";//O
TISAM_recordset bolle(get_query(1));
bolle.set_var("#COMM",TVariant(articolo));
for(bool ok2 = bolle.move_last();ok2;ok2=bolle.move_next())
{
ragsoc = bolle.get("CLIFO.RAGSOC").as_string();
indir = bolle.get("INDSPED.LOCALITA").as_string();
dataDoc= bolle.get("DATADOC").as_date();
if(indir.empty())
{
indir = bolle.get("COMUNI.DENCOM").as_string();
prov = bolle.get("COMUNI.PROVCOM").as_string();
indir.trim() << "(" << prov.trim() << ")";
}
break;
}
if(ragsoc.not_empty())
{
user[11] = ragsoc;
user[12] = indir ;
}
importob = riep.get("COMMESSE.IMPORTOB").as_real();//P
data_gara = riep.get("COMMESSE.DATAGARA").as_string();//Q
modello = riep.get("COMMESSE.DESCRIZ").as_string();//T
prezzoAcq.set_price(0);//R
conto="";
TISAM_recordset saldana(get_query(2));
saldana.set_var("#COMM",TVariant(articolo));
for(bool ok3 = saldana.move_first();ok3;ok3=saldana.move_next())
{
prezzoAcq = prezzoAcq + saldana.get("SALDANA.SALDO").as_real();
conto = saldana.get("SALDANA.CONTO").as_string();
}
/*if(conto.not_empty())
{
gruppo1 = atoi(conto.sub(0,3));
conto1 = atoi(conto.sub(3,6));
sottoGruppo1 = atoi(conto.sub(6));
TISAM_recordset pconto(get_query(3));
pconto.set_var("#GRUPPO1",TVariant(long (gruppo1)));//
pconto.set_var("#CONTO1",TVariant(long (conto1)));//
pconto.set_var("#SOTTOCONTO1",TVariant(long (sottoGruppo1)));//
for(bool ok3 = pconto.move_first();ok3;ok3=pconto.move_next())
{
descr_conto = pconto.get("PCON.DESCR").as_string();
break;
}
}*/
//RECUPERO FORNITORE
descr_conto=descr_null;//S
TISAM_recordset fornitore(get_query(5,false,commessa));
for(bool ok3 = fornitore.move_last();ok3;ok3=fornitore.move_next())
{
if(fornitore.get("MOVANA.NUMREGCG").as_int() == 0 ||
fornitore.get("MOVANA.NUMREGCG").as_string().empty() ){
}else{
descr_conto = fornitore.get("CLIFO.RAGSOC").as_string();
}
break;
}
/*if(fornitore.move_next()){
descr_conto = fornitore.get("CLIFO.RAGSOC").as_string();
}*/
//NOLEGGIO
noleggio.set_price(0);//U
TISAM_recordset noleg(get_query_saldana("004076000004"));
noleg.set_var("#COMM",TVariant(articolo));
for(bool ok2 = noleg.move_first();ok2;ok2=noleg.move_next())
{
noleggio = noleggio + noleg.get("SALDANA.SALDO").as_real();
}
//MANUTENZIONE
manutenzione.set_price(0);//U
TISAM_recordset manut(get_query_saldana("003071000003"));
manut.set_var("#COMM",TVariant(articolo));
for(bool ok2 = manut.move_first();ok2;ok2=manut.move_next())
{
manutenzione = manutenzione + manut.get("SALDANA.SALDO").as_real();
}
/*
Scaletta per il recupero del venduto:
1) user1 prelevato da anamag
2) se esiste su SALDANA con il conto 004 076 000003(Venduto)
3) controllo su multirel se si tratta di un cespite
4) se esiste su SALDANA con il conto 003 071 000002 (acquistato)
5) se esiste su SALDANA con il conto 003 081 000043
sino al 003 081 999999 (leasing)
*/
venduto_a = user[0];//W
prezzoVend.set_price(0);//X
if(venduto_a.empty())
{
//VENDUTO
TISAM_recordset saldana(get_query_saldana("004076000003"));
saldana.set_var("#COMM",TVariant(articolo));
for(bool ok2 = saldana.move_last();ok2;ok2=saldana.move_next())
{
venduto_a = "VENDUTO";
prezzoVend = prezzoVend + saldana.get("SALDANA.SALDO").as_real();
}
if(venduto_a.empty())
{
//CESPITE
TISAM_recordset cespite(get_query(4));
cespite.set_var("#COMM",TVariant(articolo));
for(bool ok2 = cespite.move_last();ok2;ok2=cespite.move_next())
{
venduto_a = "CESPITE";
break;
}
}
if(venduto_a.empty())
{
//ACQUISTATO
TISAM_recordset acquistato(get_query_saldana("003071000002"));
acquistato.set_var("#COMM",TVariant(articolo));
for(bool ok2 = acquistato.move_last();ok2;ok2=acquistato.move_next())
{
venduto_a = "ACQUISTATO";
break;
}
}
if(venduto_a.empty())
{
//LEASING
TISAM_recordset leasing(get_query_saldana("?=","003081*"));
leasing.set_var("#COMM",TVariant(articolo));
for(bool ok2 = leasing.move_last();ok2;ok2=leasing.move_next())
{
venduto_a = "LEASING";
break;
}
}
}
const TCurrency prezzo_p1 = (prezzoAcq + manutenzione)*1.1;//Y
const TCurrency prezzo_autom = real((prezzo_p1.get_num() * real(1.1 * 1.2)) - (noleggio.get_num()/2.0)); //Z
//const TCurrency prezzo_recup = noleggio - prezzoVend - prezzo_p1; //AB Vecchio modo
const TCurrency prezzo_recup = prezzoVend + noleggio - prezzo_p1; //AB Nuovo modo
riepilogo.add(articolo,user,dataDoc,importob,data_gara,
prezzoAcq,descr_conto,modello,
noleggio,manutenzione,venduto_a,prezzoVend,
prezzo_p1, prezzo_autom,prezzo_recup);
prezzoAcq = prezzo_null;
manutenzione = prezzo_null;
noleggio = prezzo_null;
prezzoVend = prezzo_null;
}
}
//gestione report
TCarrelli_report rep;
TCarrelli_recordset* riep_set = (TCarrelli_recordset*)rep.recordset();
//scandisce clienti e tiene buoni solo quelli valorizzati
FOR_EACH_ARRAY_ITEM(riepilogo,c,obj)
{
TStruttura_carrelli& s = *(TStruttura_carrelli*) obj;
riep_set->new_rec();
int colonna = 0;
riep_set->set(colonna,s._articolo);//A
colonna++;
riep_set->set(colonna,s._user1);//B
colonna++;
riep_set->set(colonna,s._user2);//C
colonna++;
riep_set->set(colonna,s._user3);//D
colonna++;
riep_set->set(colonna,s._user4);//E
colonna++;
riep_set->set(colonna,s._user5);//F
colonna++;
riep_set->set(colonna,s._user6);//G
colonna++;
riep_set->set(colonna,s._user7);//H
colonna++;
riep_set->set(colonna,s._user8);//I
colonna++;
riep_set->set(colonna,s._user9);//J
colonna++;
riep_set->set(colonna,s._user10);//K
colonna++;
riep_set->set(colonna,s._user11);//L
colonna++;
riep_set->set(colonna,s._user12);//M
colonna++;
riep_set->set(colonna,s._user13);//N
colonna++;
riep_set->set(colonna,s._data_doc);//O
colonna++;
riep_set->set(colonna,(s._importob).string());//P
colonna++;
riep_set->set(colonna,s._data_gara);//Q
colonna++;
riep_set->set(colonna,(s._prezzoAcq).string());//R
colonna++;
riep_set->set(colonna,s._descr_conto);//S
colonna++;
riep_set->set(colonna,s._modello);//T
colonna++;
riep_set->set(colonna,(s._noleggio).string());//U
colonna++;
riep_set->set(colonna,(s._manutenzione).string());//V
colonna++;
riep_set->set(colonna,s._venduto_a);//W
colonna++;
riep_set->set(colonna,(s._prezzo_vend).string());//X
colonna++;
riep_set->set(colonna,(s._prezzo_p1).string());//Y
colonna++;
riep_set->set(colonna,(s._prezzo_autom).string());//Z
colonna++;
riep_set->set(colonna,s._user14);//AA
colonna++;
riep_set->set(colonna,(s._prezzo_recup).string());//AB
colonna++;
}
//Crea file che contiene il recordset
//riep_set->save_as("c:\\riepilogoBolla.txt");
//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 TCarrelli_app::main_loop()
{
TCarrelli_mask mask;
//Setto come check iniziale il venduto a Si
mask.set("#F_VEN","X");
while(mask.run()==K_ENTER)
{
elabora(mask);
}
}
int pd5317100(int argc, char* argv[])
{
TCarrelli_app app;
app.run(argc, argv, TR("Stampa Listino Carrelli"));
return 0;
}
Reference in New Issue View Git Blame Copy Permalink