From d459a2e78e1889569142ea4958a9f6f93d954a4e Mon Sep 17 00:00:00 2001 From: luca Date: Mon, 8 May 2006 16:58:52 +0000 Subject: [PATCH] Patch level :2.2 2006 nopatch Files correlati : Ricompilazione Demo : [ ] Commento :stampa proiezione ammortamenti cespiti iniziata (e incasinatissima) git-svn-id: svn://10.65.10.50/trunk@13968 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- ce/ce4.cpp | 6 +- ce/ce4.h | 2 +- ce/ce4300.cpp | 269 +++++++++++++++++++++++++++++++++++++++++++++++++ ce/ce4300.h | 19 ++++ ce/ce4300.uml | 150 +++++++++++++++++++++++++++ ce/ce4300a.rep | 130 ++++++++++++++++++++++++ 6 files changed, 572 insertions(+), 4 deletions(-) create mode 100755 ce/ce4300.cpp create mode 100755 ce/ce4300.h create mode 100755 ce/ce4300.uml create mode 100755 ce/ce4300a.rep diff --git a/ce/ce4.cpp b/ce/ce4.cpp index 0df51d9b4..eeadaa261 100755 --- a/ce/ce4.cpp +++ b/ce/ce4.cpp @@ -9,10 +9,10 @@ int main(int argc,char** argv) { case 1: ce4200(argc,argv); break; //calcolo cespiti per commessa -/* case 2: - ce4300(argc,argv); break;*/ //stampa cespiti per commessa + case 2: + ce4300(argc,argv); break; //stampa proiezione ammortamenti cespiti case 0: - default: ce4100(argc,argv) ; break; // inserimento cespiti per commessa (personalizzazione CRPA) + default: ce4100(argc,argv) ; break; // inserimento cespiti per commessa } return 0; } diff --git a/ce/ce4.h b/ce/ce4.h index 57ae87bb8..c58ba24a4 100755 --- a/ce/ce4.h +++ b/ce/ce4.h @@ -3,7 +3,7 @@ int ce4100(int argc, char* argv[]); int ce4200(int argc, char* argv[]); -//int ce4300(int argc, char* argv[]); +int ce4300(int argc, char* argv[]); #endif // __CE4_H diff --git a/ce/ce4300.cpp b/ce/ce4300.cpp new file mode 100755 index 000000000..402742f96 --- /dev/null +++ b/ce/ce4300.cpp @@ -0,0 +1,269 @@ +#include +#include +#include +#include +#include +#include +#include + +#include "../cg/cglib01.h" + +#include "ammce.h" +#include "movce.h" +#include "salce.h" +#include "celib.h" + +#include "ce4.h" +#include "ce4300.h" + +//////////////////////////////////////////////////////// +// MASCHERA +//////////////////////////////////////////////////////// +class TStampa_proiez_ammo_mask : public TAutomask +{ +protected: + bool on_field_event(TOperable_field& o, TField_event e, long jolly); + +public: + TStampa_proiez_ammo_mask(); + virtual ~TStampa_proiez_ammo_mask() {} +}; + + +bool TStampa_proiez_ammo_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) +{ + bool ok = true; + switch (o.dlg()) + { + case F_FROM_CAT: + case F_D_FROM_CAT: + case F_TO_CAT: + case F_D_TO_CAT: + { + TDitta_cespiti& dc = ditta_cespiti(); + ok = dc.on_category_event(o, e, jolly); + } + break; + + case F_ESERCIZIO: + case F_GRUPPO: + case F_SPECIE: + if (e == fe_init || e == fe_modify) + { + const TString& esercizio = get(F_ESERCIZIO); + const TString& gruppo = get(F_GRUPPO); + const TString& specie = get(F_SPECIE); + TString16 key; key << esercizio << gruppo << specie; + TRelation ccb("CCB"); + ccb.curr().put("CODTAB", key); + if (ccb.read() == NOERR) + autoload(ccb); + } + break; + default: break; + } + return ok; +} + + +TStampa_proiez_ammo_mask::TStampa_proiez_ammo_mask() + :TAutomask("ce4300") +{} + + +/////////////////////////////////////////////////////////////// +// RECORDSET +/////////////////////////////////////////////////////////////// + +class TStampa_proiez_ammo_recordset : public TISAM_recordset +{ +public: + void set_filter(const TStampa_proiez_ammo_mask& msk); + TStampa_proiez_ammo_recordset(const TString& sql) : TISAM_recordset(sql) { } +}; + +static const TStampa_proiez_ammo_recordset* myself = NULL; + +//metodo per caricare i valori nel recordset dalla maschera...fighissimo!! +void TStampa_proiez_ammo_recordset::set_filter(const TStampa_proiez_ammo_mask& msk) +{ + const TString& gruppo = msk.get(F_GRUPPO); + const TString& specie = msk.get(F_SPECIE); + TString8 attivita; + attivita.format("%-2s%-4s", (const char*)gruppo, (const char*)specie); + + const TString& dacat = msk.get(F_FROM_CAT); + const TString& acat = msk.get(F_TO_CAT); + TString query = "USE %CAC"; + + query << " SELECT ((CODTAB[1,6]=' ')||(CODTAB[1,6]='" << attivita << "'))"; + if (dacat.full() || acat.full()) + { + + if (dacat == acat) + query << "&&(CODTAB[7,8]==" << dacat << ")"; + else + { + if (dacat.full()) + query << "&&(CODTAB[7,8]>=" << dacat << ")"; + if (acat.full()) + query << "&&(CODTAB[7,8]<=" << acat << ")"; + } + } + query << "\nBY I0 CODTAB[7,8]"; + set(query); //setta la nuova query nel report (che avrebbe solo USE CESPI) +} + +//////////////////////////////////////////////////////// +// REPORT +//////////////////////////////////////////////////////// +class TStampa_proiez_ammo_rep : public TReport +{ + int _anno; +protected: + virtual bool get_usr_val(const TString& name, TVariant& var) const; +public: + void set_filter(const TStampa_proiez_ammo_mask& msk); +}; + +void TStampa_proiez_ammo_rep::set_filter(const TStampa_proiez_ammo_mask& msk) +{ + _anno = msk.get_int(F_ESERCIZIO); + ((TStampa_proiez_ammo_recordset*) recordset())->set_filter(msk); +} + +//metodo per il calcolo dei campi da calcolare (ma va'!) nel report +bool TStampa_proiez_ammo_rep::get_usr_val(const TString& name, TVariant& var) const +{ + const TRecordset& recset = *recordset(); + const TString& idcespite = recset.get("IDCESPITE").as_string(); + if (name == "#DESCAT") //categoria (descrizione della categoria corrente) + { + const int gruppo = recset.get("CODCGRA").as_int(); + const TString& specie = recset.get("CODSPA").as_string(); + const int categoria = recset.get("CODCAT").as_int(); + const TRectype& rec_cac = ditta_cespiti().categoria(gruppo, specie, categoria); + var = rec_cac.get("S0"); + return true; + } + if (name == "#ANNOES") + { + var.set(_anno); + return true; + } + if (name == "#FINESCPREC") + { + TEsercizi_contabili esc; + TDate dal, al; + esc.code2range(_anno, dal, al); + var.set(dal - 1L); + return true; + } + if (name == "#ALIENAZ") //movimenti di vendita + { + //cerca tutti i movimenti di vendita relativi al cespite corrente all'interno dell'esercizio.. + //..selezionato sulla maschera;somma i loro importi in modo da ricavare l'importo complessivo.. + //..di tutti + TString query; + + TEsercizi_contabili esc; + const TDate& dataini = esc[_anno].inizio(); + const TDate& datafine = esc[_anno].fine(); + + query.format("USE MOVCE KEY 2 SELECT NUM(ANSI(DTMOV)>=%ld)&&NUM(ANSI(DTMOV)<=%ld)\nFROM IDCESPITE=%s\nTO IDCESPITE=%s", + dataini.date2ansi(), datafine.date2ansi(), (const char*)idcespite, (const char*)idcespite); + TISAM_recordset isam(query); + real somma_vendite; + for (TRecnotype i = 0; isam.move_to(i); i++) + { + const real vendita = isam.get(MOVCE_IMPVEN).as_real(); + somma_vendite += vendita; + } + var = somma_vendite; + + return true; + } + if (name == "#COSTO") //costo + { + TToken_string key; + key = idcespite; //cespite + key.add(_anno); //esercizio + key.add(1); //tiposaldo finale + const TRectype& rec_salce = cache().get(LF_SALCE, key); + const real costo = rec_salce.get_real(SALCE_CSTO); + var = costo; + return true; + } + if (name == "#PERCAMM") //percentuale ammortamento + { + TToken_string key; + key = idcespite; + key.add(_anno); + key.add(2); //tiposaldo finale + key.add(1); //tipoamm fiscale + const TRectype& rec_ammce = cache().get(LF_AMMCE, key); + const real percamm = rec_ammce.get_real(AMMCE_PNOR) + rec_ammce.get_real(AMMCE_PACC) + rec_ammce.get_real(AMMCE_PANT); + var = percamm; + return true; + } + if (name == "#QAMM") //fondo ammortamento esercizio corrente + { + TToken_string key; + key = idcespite; + key.add(_anno); + key.add(2); //tiposaldo finale + key.add(1); //tipoamm fiscale + const TRectype& rec_ammce = cache().get(LF_AMMCE, key); + const real quotamm = rec_ammce.get_real(AMMCE_QNOR) + rec_ammce.get_real(AMMCE_QACC) + rec_ammce.get_real(AMMCE_QANT); + var = quotamm; + return true; + } + if (name == "#FAMM") //fondo ammortamento alla fine dell'esercizio precedente + { + TToken_string key; + key = idcespite; + key.add(_anno); + key.add(1); //tiposaldo iniziale + key.add(1); //tipoamm fiscale + const TRectype& rec_ammce = cache().get(LF_AMMCE, key); + const real quotamm = rec_ammce.get_real(AMMCE_QNOR) + rec_ammce.get_real(AMMCE_QACC) + rec_ammce.get_real(AMMCE_QANT); + var = quotamm; + return true; + } + + return TReport::get_usr_val(name, var); +} + +//////////////////////////////////////////////////////// +// APPLICAZIONE +//////////////////////////////////////////////////////// +class TStampa_proiez_ammo : public TSkeleton_application +{ +protected: + virtual void main_loop(); +}; + + +void TStampa_proiez_ammo::main_loop() +{ + TStampa_proiez_ammo_mask mask; + while (mask.run() == K_ENTER) + { + //report e book dei report + TReport_book book; + TStampa_proiez_ammo_rep rep; + rep.load("ce4300a"); + + rep.set_filter(mask); + book.add(rep); + + book.print_or_preview(); //stampa il book dei report + } +} + +int ce4300(int argc, char* argv[]) +{ + TStampa_proiez_ammo a; + a.run(argc, argv, TR("Stampa proiezione ammortamenti cespiti")); + return 0; +} \ No newline at end of file diff --git a/ce/ce4300.h b/ce/ce4300.h new file mode 100755 index 000000000..1512f3c15 --- /dev/null +++ b/ce/ce4300.h @@ -0,0 +1,19 @@ +//campi maschera ce4300.uml +#define F_CODDITTA 101 +#define F_RAGSOC 102 +#define F_ESERCIZIO 103 +#define F_DATAINIZIO 104 +#define F_DATAFINE 105 +#define F_GRUPPO 106 +#define F_SPECIE 107 +#define F_D_GRUPPO 108 +#define F_D_SPECIE 109 +#define F_CODTAB 110 +#define F_D_CODTAB 111 + +#define F_FROM_CAT 112 +#define F_D_FROM_CAT 113 +#define F_TO_CAT 114 +#define F_D_TO_CAT 115 + +#define F_REPORT 116 diff --git a/ce/ce4300.uml b/ce/ce4300.uml new file mode 100755 index 000000000..d73c7255b --- /dev/null +++ b/ce/ce4300.uml @@ -0,0 +1,150 @@ +#include "ce4300.h" + +TOOLBAR "" 0 -3 0 3 + +BUTTON DLG_PRINT 10 2 +BEGIN + PROMPT -12 -11 "~Stampa" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -11 "" +END + +ENDPAGE + +PAGE "Proiezione ammortamenti cespiti" -1 -1 78 6 + +GROUPBOX DLG_NULL 78 6 +BEGIN + PROMPT 1 0 "" + FLAGS "R" +END + +NUMBER F_CODDITTA 5 +BEGIN + PROMPT 2 1 "Ditta " + FLAGS "DF" + USE LF_NDITTE + INPUT CODDITTA F_CODDITTA + OUTPUT F_RAGSOC RAGSOC + CHECKTYPE REQUIRED +END + +STRING F_RAGSOC 55 +BEGIN + PROMPT 20 1 "" + FLAGS "D" +END + +NUMBER F_ESERCIZIO 4 +BEGIN + PROMPT 2 2 "Esercizio " + FLAGS "Z" + USE CCE + JOIN ESC ALIAS 105 INTO CODTAB==CODTAB + INPUT CODTAB F_ESERCIZIO + DISPLAY "Codice esercizio" CODTAB + DISPLAY "Data inizio@15" 105@->D0 + DISPLAY "Data fine@15" 105@->D1 + OUTPUT F_ESERCIZIO CODTAB + OUTPUT F_DATAINIZIO 105@->D0 + OUTPUT F_DATAFINE 105@->D1 + CHECKTYPE REQUIRED +END + +DATE F_DATAINIZIO +BEGIN + PROMPT 20 2 "Data inizio " + FLAGS "D" +END + +DATE F_DATAFINE +BEGIN + PROMPT 45 2 "Data fine " + FLAGS "D" +END + +NUMBER F_GRUPPO 2 +BEGIN + PROMPT 2 3 "Gruppo " + FLAGS "Z" + USE CCB KEY 1 + JOIN %CGR ALIAS 106 INTO CODTAB==CODTAB[5,6] + INPUT CODTAB[1,4] F_ESERCIZIO SELECT + INPUT CODTAB[5,6] F_GRUPPO + INPUT CODTAB[7,10] F_SPECIE + DISPLAY "Codice" CODTAB[5,6] + DISPLAY "Descrizione@60" 106@->S0 + OUTPUT F_GRUPPO CODTAB[5,6] + OUTPUT F_D_GRUPPO 106@->S0 + CHECKTYPE NORMAL + FIELD CODTAB[5,6] +END + +STRING F_SPECIE 4 +BEGIN + PROMPT 2 4 "Specie " + FLAGS "_" + USE CCB KEY 1 + JOIN %CAT ALIAS 107 INTO CODTAB[1,2]==CODTAB[5,6] CODTAB[3,6]==CODTAB[7,10] + INPUT CODTAB[1,4] F_ESERCIZIO SELECT + INPUT CODTAB[5,6] F_GRUPPO SELECT + INPUT CODTAB[7,10] F_SPECIE + DISPLAY "Gruppo" CODTAB[5,6] + DISPLAY "Specie" CODTAB[7,10] + DISPLAY "Descrizione@60" 107@->S0 + OUTPUT F_SPECIE CODTAB[7,10] + OUTPUT F_D_SPECIE 107@->S0 + CHECKTYPE NORMAL + FIELD CODTAB[7,10] +END + +STRING F_D_GRUPPO 60 55 +BEGIN + PROMPT 20 3 "" + FLAGS "D" +END + +STRING F_D_SPECIE 60 55 +BEGIN + PROMPT 20 4 "" + FLAGS "D" +END + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 6 "@bSelezione categoria" + GROUP 1 +END + +NUMBER F_FROM_CAT 2 +BEGIN + PROMPT 2 7 "Dalla " + FLAGS "BZ" + GROUP 1 +END + +STRING F_D_FROM_CAT 60 50 +BEGIN + PROMPT 25 7 "" + FLAGS "B" + GROUP 1 +END + +NUMBER F_TO_CAT 2 +BEGIN + PROMPT 2 8 "Alla " + FLAGS "BZ" + GROUP 1 +END + +STRING F_D_TO_CAT 60 50 +BEGIN + PROMPT 25 8 "" + FLAGS "B" + GROUP 1 +END + +ENDPAGE diff --git a/ce/ce4300a.rep b/ce/ce4300a.rep new file mode 100755 index 000000000..2bf015d34 --- /dev/null +++ b/ce/ce4300a.rep @@ -0,0 +1,130 @@ + + + Proiezione ammortamenti cespiti + +
+ +
+
+ + + + + + + #SYSTEM.RAGSOC + + + #SYSTEM.DATE + + + #REPORT.PAGE + +
+
+ I0 + + + + + + + I0 + +
  • +
  • +
  • + + + + + + + + + + + + + + #FINESCPREC + + + + #FINESCPREC + + + + + #ANNOES + + + #ANNOES+1 + + + #ANNOES+2 + + + #ANNOES+3 + + + #ANNOES+4 + + + +
    • +
    +
    + + CODTAB[7,8] + + + S0 + + + #PERCAMM + + + #QAMM + + + #QAMM + + + #QAMM + + + #QAMM + + + #QAMM + + + #RESAMM + + + #COSTO + + + #ALIENAZ + + + #FAMM + + + #101-#102-#103 + +
    +
    +
    + USE CESPI KEY 2 +
    +
    +
    +
    +
    + +
    + USE %CAC +BY I0 CODTAB[7,8] + \ No newline at end of file