From 541c0236eb216d4a2f67606827f296134284b953 Mon Sep 17 00:00:00 2001 From: guy Date: Mon, 5 Dec 2011 10:11:53 +0000 Subject: [PATCH] Patch level : 10.0 Files correlati : pd5317.exe pd5317100.rep Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/branches/R_10_00@22515 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ps/pd5317100.cpp | 151 +++++++++++++----------------- ps/pd5317100.rep | 235 +++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 301 insertions(+), 85 deletions(-) create mode 100644 ps/pd5317100.rep diff --git a/ps/pd5317100.cpp b/ps/pd5317100.cpp index b56eee2f5..d7bf42a4e 100755 --- a/ps/pd5317100.cpp +++ b/ps/pd5317100.cpp @@ -88,44 +88,44 @@ 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; - TString get_query(int tipo, bool venduto = false, const TString& commessa = EMPTY_STRING) const; - TString get_query_saldana(TString codice) const; - TString get_query_saldana(TString codice, TString operatore) const; - const char * TCarrelli_app::extra_modules() 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 char * TCarrelli_app::extra_modules() const { return "mg"; } - -TString TCarrelli_app::get_query_saldana(TString codice) const -{ - return get_query_saldana(codice,"=="); -} - -TString TCarrelli_app::get_query_saldana(TString codice, TString operatore) const +const TString& TCarrelli_app::get_query_saldana(const char* codice, const char* operatore) const { //Stringhe x composizione query - TString query, select, between; + TString& query = get_tmp_string(); - select << "USE SALDANA KEY 2\n"; - select << "SELECT ((CONTO" << operatore<< "'" << codice << "')&&"; - between << "(BETWEEN(COMMESSA,#COMM,#COMM)))"; + query << "USE SALDANA KEY 2\n" + << "SELECT ((CONTO" << operatore<< "'" << codice << "')&&" + << "(BETWEEN(COMMESSA,#COMM,#COMM)))"; - query << select << between; - return query; } -TString TCarrelli_app::get_query(int tipo, bool venduto, const TString& commessa) const +const TString& TCarrelli_app::get_query(int tipo, bool venduto, const TString& commessa) const { //Stringhe x composizione query - TString query, select, between, join, order_by; + TString select, between, join, order_by; if(tipo==0)//query su analitica\articoli\commesse { @@ -181,10 +181,8 @@ TString TCarrelli_app::get_query(int tipo, bool venduto, const TString& commessa << "TO CODCONTO='003071000002' \n"; } + TString& query = get_tmp_string(); query << select << between << order_by << join; - - cout << query; - return query; } @@ -265,19 +263,14 @@ void TCarrelli_app::elabora(const TMask& mask)const TString prov; TString modello; TString descr_null; - int gruppo1; - int conto1; - int sottoGruppo1; TCurrency importob; TCurrency prezzoAcq; TString venduto_a; TCurrency prezzoVend; - TCurrency prezzo_p1; TCurrency noleggio; TCurrency manutenzione; - TCurrency prezzo_autom; - TCurrency prezzo_recup; + TCurrency prezzo_null; TString commessa; @@ -482,23 +475,19 @@ void TCarrelli_app::elabora(const TMask& mask)const } } - prezzo_p1 = (prezzoAcq + manutenzione)*1.10;//Y - prezzo_autom = (prezzo_p1.get_num() * 1.1 * 1.2) - (noleggio.get_num()/2.0);//Z + 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 - prezzo_recup = noleggio - prezzoVend - prezzo_p1;//AB + //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); - //TString pippo1 = prezzo_p1.string(); - - prezzo_p1 = prezzo_null; prezzoAcq = prezzo_null; manutenzione = prezzo_null; - prezzo_autom = prezzo_null; - prezzo_recup = prezzo_null; noleggio = prezzo_null; prezzoVend = prezzo_null; } @@ -506,9 +495,7 @@ void TCarrelli_app::elabora(const TMask& mask)const //gestione report TCarrelli_report rep; - bool stampa = rep.load("pd5317100"); - TCarrelli_recordset* riep_set = new TCarrelli_recordset(); - rep.set_recordset(riep_set); + TCarrelli_recordset* riep_set = (TCarrelli_recordset*)rep.recordset(); //scandisce clienti e tiene buoni solo quelli valorizzati FOR_EACH_ARRAY_ITEM(riepilogo,c,obj) @@ -517,87 +504,81 @@ void TCarrelli_app::elabora(const TMask& mask)const riep_set->new_rec(); int colonna = 0; - riep_set->set(colonna,TVariant(TVariant(s._articolo)));//A + riep_set->set(colonna,s._articolo);//A colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user1)));//B + riep_set->set(colonna,s._user1);//B colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user2)));//C + riep_set->set(colonna,s._user2);//C colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user3)));//D + riep_set->set(colonna,s._user3);//D colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user4)));//E + riep_set->set(colonna,s._user4);//E colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user5)));//F + riep_set->set(colonna,s._user5);//F colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user6)));//G + riep_set->set(colonna,s._user6);//G colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user7)));//H + riep_set->set(colonna,s._user7);//H colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user8)));//I + riep_set->set(colonna,s._user8);//I colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user9)));//J + riep_set->set(colonna,s._user9);//J colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user10)));//K + riep_set->set(colonna,s._user10);//K colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user11)));//L + riep_set->set(colonna,s._user11);//L colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user12)));//M + riep_set->set(colonna,s._user12);//M colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user13)));//N + riep_set->set(colonna,s._user13);//N colonna++; - riep_set->set(colonna,TVariant(TVariant(s._data_doc)));//O + riep_set->set(colonna,s._data_doc);//O colonna++; - riep_set->set(colonna,TVariant((s._importob).string()));//P + riep_set->set(colonna,(s._importob).string());//P colonna++; - riep_set->set(colonna,TVariant(TVariant(s._data_gara)));//Q + riep_set->set(colonna,s._data_gara);//Q colonna++; - riep_set->set(colonna,TVariant(TVariant((s._prezzoAcq).string())));//R + riep_set->set(colonna,(s._prezzoAcq).string());//R colonna++; - riep_set->set(colonna,TVariant(TVariant(s._descr_conto)));//S + riep_set->set(colonna,s._descr_conto);//S colonna++; - riep_set->set(colonna,TVariant(TVariant(s._modello)));//T + riep_set->set(colonna,s._modello);//T colonna++; - riep_set->set(colonna,TVariant(TVariant((s._noleggio).string())));//U + riep_set->set(colonna,(s._noleggio).string());//U colonna++; - riep_set->set(colonna,TVariant(TVariant((s._manutenzione).string())));//V + riep_set->set(colonna,(s._manutenzione).string());//V colonna++; - riep_set->set(colonna,TVariant(TVariant(s._venduto_a)));//W + riep_set->set(colonna,s._venduto_a);//W colonna++; - riep_set->set(colonna,TVariant(TVariant((s._prezzo_vend).string())));//X + riep_set->set(colonna,(s._prezzo_vend).string());//X colonna++; - riep_set->set(colonna,TVariant(TVariant((s._prezzo_p1).string())));//Y + riep_set->set(colonna,(s._prezzo_p1).string());//Y colonna++; - riep_set->set(colonna,TVariant(TVariant((s._prezzo_autom).string())));//Z + riep_set->set(colonna,(s._prezzo_autom).string());//Z colonna++; - riep_set->set(colonna,TVariant(TVariant(s._user14)));//AA + riep_set->set(colonna,s._user14);//AA colonna++; - riep_set->set(colonna,TVariant(TVariant((s._prezzo_recup).string())));//AB + riep_set->set(colonna,(s._prezzo_recup).string());//AB colonna++; } //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); + //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")); - } + 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() diff --git a/ps/pd5317100.rep b/ps/pd5317100.rep new file mode 100644 index 000000000..8b5a504f3 --- /dev/null +++ b/ps/pd5317100.rep @@ -0,0 +1,235 @@ + + + Stampa Listino Carrelli + +
+ + + + + + MESSAGE _TODAY + + + + MESSAGE _PAGENO + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + "(PA+RIP+TRANS)*1.10" + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+
+
+
+ + + + + T + + + + F + + + + + + J + + + + + O + + + + P + + + + + + S + + + + + + W + + + + + + + + A + + + + D + + + + + C + + + + AA + + + + G + + + + M + + + + Q + + + + U + + + + Y + + + + E + + + + H + + + + I + + + + N + + + + R + + + + V + + + + X + + + + Z + + + + AB + + + + K + + + +
+
+
+ \ No newline at end of file