Patch level :10.0 770
Files correlati : Ricompilazione Demo : [ ] Commento : Rivisto programma ripartizione cespiti (no obbligatorietà date utilizzo e percentuali) Aggiunto il programma di stampa dei cespiti in analitica (prima stesura) git-svn-id: svn://10.65.10.50/trunk@20570 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
5cb2709c00
commit
9b5f9351b3
@ -12,9 +12,11 @@ int main(int argc,char** argv)
|
|||||||
case 2:
|
case 2:
|
||||||
ce4300(argc,argv); break; //stampa proiezione ammortamenti cespiti
|
ce4300(argc,argv); break; //stampa proiezione ammortamenti cespiti
|
||||||
case 3:
|
case 3:
|
||||||
ce4400(argc,argv); break; //trasferimento movimenti cespiti in contabilita'
|
ce4400(argc,argv); break; //trasferimento movimenti cespiti in contabilita' generale
|
||||||
|
case 4:
|
||||||
|
ce4500(argc,argv); break; //stampa cespiti in contabilità analitica
|
||||||
case 0:
|
case 0:
|
||||||
default: ce4100(argc,argv) ; break; // inserimento cespiti per analitica
|
default: ce4100(argc,argv) ; break; // ripartizione analitica cespiti
|
||||||
}
|
}
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|||||||
1
ce/ce4.h
1
ce/ce4.h
@ -5,6 +5,7 @@ int ce4100(int argc, char* argv[]);
|
|||||||
int ce4200(int argc, char* argv[]);
|
int ce4200(int argc, char* argv[]);
|
||||||
int ce4300(int argc, char* argv[]);
|
int ce4300(int argc, char* argv[]);
|
||||||
int ce4400(int argc, char* argv[]);
|
int ce4400(int argc, char* argv[]);
|
||||||
|
int ce4500(int argc, char* argv[]);
|
||||||
|
|
||||||
#endif // __CE4_H
|
#endif // __CE4_H
|
||||||
|
|
||||||
|
|||||||
@ -1,4 +1,5 @@
|
|||||||
#include <automask.h>
|
#include <automask.h>
|
||||||
|
#include <defmask.h>
|
||||||
#include <recarray.h>
|
#include <recarray.h>
|
||||||
#include <relapp.h>
|
#include <relapp.h>
|
||||||
|
|
||||||
@ -24,6 +25,7 @@ class TCesp_anal_mask: public TAutomask
|
|||||||
_pos_dtinicms, _pos_dtfincms, _pos_dtprorcms;
|
_pos_dtinicms, _pos_dtfincms, _pos_dtprorcms;
|
||||||
|
|
||||||
protected:
|
protected:
|
||||||
|
real check_perc_tot();
|
||||||
int calc_date_cespite(TDate& dtini, TDate& dtfine);
|
int calc_date_cespite(TDate& dtini, TDate& dtfine);
|
||||||
void calc_date_limite(const TString& codcms, TDate& dtini, TDate& dtfine);
|
void calc_date_limite(const TString& codcms, TDate& dtini, TDate& dtfine);
|
||||||
void calc_percutil();
|
void calc_percutil();
|
||||||
@ -73,6 +75,15 @@ TCesp_anal_mask::TCesp_anal_mask() : TAutomask ("ce4100a")
|
|||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
|
real TCesp_anal_mask::check_perc_tot()
|
||||||
|
{
|
||||||
|
TSheet_field& ss = sfield(F_RIGHE);
|
||||||
|
real tot_perc;
|
||||||
|
FOR_EACH_SHEET_ROW(ss,i,r)
|
||||||
|
tot_perc += real(r->get(_pos_util));
|
||||||
|
return tot_perc;
|
||||||
|
}
|
||||||
|
|
||||||
int TCesp_anal_mask::calc_date_cespite(TDate& dtini, TDate& dtfine)
|
int TCesp_anal_mask::calc_date_cespite(TDate& dtini, TDate& dtfine)
|
||||||
{
|
{
|
||||||
//si informa sulla vita del cespite
|
//si informa sulla vita del cespite
|
||||||
@ -299,8 +310,6 @@ bool TCesp_anal_mask::on_field_event(TOperable_field& o, TField_event e, long jo
|
|||||||
|
|
||||||
keys_list.add(row_key);
|
keys_list.add(row_key);
|
||||||
}
|
}
|
||||||
//ricalcola le percentuali !!!
|
|
||||||
calc_percutil();
|
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
|
|
||||||
@ -350,7 +359,7 @@ bool TCesp_anal_mask::on_field_event(TOperable_field& o, TField_event e, long jo
|
|||||||
const TString& codcms = o.mask().get(S_CODCMS);
|
const TString& codcms = o.mask().get(S_CODCMS);
|
||||||
calc_date_limite(codcms, dtini, dtfine);
|
calc_date_limite(codcms, dtini, dtfine);
|
||||||
const TDate dtiniuse = o.get();
|
const TDate dtiniuse = o.get();
|
||||||
if (dtiniuse < dtini)
|
if (dtiniuse.ok() && dtiniuse < dtini)
|
||||||
return error_box("La data inizio uso non può essere antecedente alla data inizio commessa!");
|
return error_box("La data inizio uso non può essere antecedente alla data inizio commessa!");
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@ -362,7 +371,7 @@ bool TCesp_anal_mask::on_field_event(TOperable_field& o, TField_event e, long jo
|
|||||||
const TString& codcms = o.mask().get(S_CODCMS);
|
const TString& codcms = o.mask().get(S_CODCMS);
|
||||||
calc_date_limite(codcms, dtini, dtfine);
|
calc_date_limite(codcms, dtini, dtfine);
|
||||||
const TDate dtfinuse = o.get();
|
const TDate dtfinuse = o.get();
|
||||||
if (dtfinuse > dtfine)
|
if (dtfinuse.ok() && dtfinuse > dtfine)
|
||||||
return error_box("La data fine uso non può essere successiva alla data fine commessa!");
|
return error_box("La data fine uso non può essere successiva alla data fine commessa!");
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
@ -379,7 +388,18 @@ bool TCesp_anal_mask::on_field_event(TOperable_field& o, TField_event e, long jo
|
|||||||
calc_percutil();
|
calc_percutil();
|
||||||
}
|
}
|
||||||
break;
|
break;
|
||||||
|
case DLG_SAVEREC:
|
||||||
|
if (e == fe_button)
|
||||||
|
{
|
||||||
|
const real perc_tot = check_perc_tot();
|
||||||
|
if (perc_tot != CENTO)
|
||||||
|
{
|
||||||
|
const bool proseguo = yesno_box("Percentuale complessiva diversa da 100%.\nRegistrare ugualmente?");
|
||||||
|
if (!proseguo)
|
||||||
|
return false;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
break;
|
||||||
default:
|
default:
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
@ -403,6 +423,7 @@ protected:
|
|||||||
virtual void init_query_insert_mode(TMask& m);
|
virtual void init_query_insert_mode(TMask& m);
|
||||||
virtual void init_insert_mode(TMask& m);
|
virtual void init_insert_mode(TMask& m);
|
||||||
virtual void init_modify_mode(TMask& m);
|
virtual void init_modify_mode(TMask& m);
|
||||||
|
virtual bool remove();
|
||||||
|
|
||||||
virtual TRelation* get_relation() const { return _rel; }
|
virtual TRelation* get_relation() const { return _rel; }
|
||||||
|
|
||||||
@ -437,6 +458,14 @@ void TCesp_anal::init_modify_mode(TMask& m)
|
|||||||
m.hide(-2);
|
m.hide(-2);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
bool TCesp_anal::remove()
|
||||||
|
{
|
||||||
|
_rel->read(_isequal, _unlock);
|
||||||
|
TSheet_field& sf = _msk->sfield(F_RIGHE);
|
||||||
|
int err = sf.record()->remove();
|
||||||
|
return err == NOERR;
|
||||||
|
}
|
||||||
|
|
||||||
bool TCesp_anal::user_create()
|
bool TCesp_anal::user_create()
|
||||||
{
|
{
|
||||||
_rel = new TRelation(LF_SALCECMS);
|
_rel = new TRelation(LF_SALCECMS);
|
||||||
|
|||||||
@ -326,14 +326,14 @@ DATE S_DTINIUSE
|
|||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 6 "Inizio "
|
PROMPT 2 6 "Inizio "
|
||||||
FIELD DTINIUSE
|
FIELD DTINIUSE
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE S_DTFINUSE
|
DATE S_DTFINUSE
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 24 6 "Fine "
|
PROMPT 24 6 "Fine "
|
||||||
FIELD DTFINUSE
|
FIELD DTFINUSE
|
||||||
CHECKTYPE REQUIRED
|
VALIDATE DATE_CMP_FUNC >= S_DTINIUSE
|
||||||
|
WARNING "La data fine uso non può essere precedente alla data inizio uso!"
|
||||||
END
|
END
|
||||||
|
|
||||||
NUMBER S_PERCUTIL 6 2
|
NUMBER S_PERCUTIL 6 2
|
||||||
@ -341,8 +341,6 @@ BEGIN
|
|||||||
PROMPT 2 7 "% uso "
|
PROMPT 2 7 "% uso "
|
||||||
FLAGS "U"
|
FLAGS "U"
|
||||||
FIELD PERCUTIL
|
FIELD PERCUTIL
|
||||||
CHECKTYPE REQUIRED
|
|
||||||
FLAGS "D"
|
|
||||||
END
|
END
|
||||||
|
|
||||||
DATE S_DTINICMS
|
DATE S_DTINICMS
|
||||||
|
|||||||
352
ce/ce4500.cpp
Executable file
352
ce/ce4500.cpp
Executable file
@ -0,0 +1,352 @@
|
|||||||
|
#include <applicat.h>
|
||||||
|
#include <automask.h>
|
||||||
|
#include <defmask.h>
|
||||||
|
#include <dongle.h>
|
||||||
|
#include <modaut.h>
|
||||||
|
#include <progind.h>
|
||||||
|
#include <recarray.h>
|
||||||
|
#include <reprint.h>
|
||||||
|
|
||||||
|
#include "celib.h"
|
||||||
|
#include "ce2101.h"
|
||||||
|
|
||||||
|
#include "ammce.h"
|
||||||
|
#include "ammmv.h"
|
||||||
|
#include "cespi.h"
|
||||||
|
#include "movam.h"
|
||||||
|
#include "salce.h"
|
||||||
|
#include "salcecms.h"
|
||||||
|
|
||||||
|
#include "ce4.h"
|
||||||
|
#include "ce4500a.h"
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////
|
||||||
|
// MASCHERA
|
||||||
|
////////////////////////////////////////////////////////
|
||||||
|
class TPrint_anal_cespi_mask : public TAutomask
|
||||||
|
{
|
||||||
|
bool _preview;
|
||||||
|
|
||||||
|
protected:
|
||||||
|
bool on_field_event(TOperable_field& o, TField_event e, long jolly);
|
||||||
|
public:
|
||||||
|
bool preview() const { return _preview; }
|
||||||
|
TPrint_anal_cespi_mask();
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
bool TPrint_anal_cespi_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||||
|
{
|
||||||
|
switch (o.dlg())
|
||||||
|
{
|
||||||
|
case DLG_PRINT:
|
||||||
|
if (e == fe_button)
|
||||||
|
_preview = false;
|
||||||
|
break;
|
||||||
|
case DLG_PREVIEW:
|
||||||
|
if (e == fe_button)
|
||||||
|
{
|
||||||
|
_preview = true;
|
||||||
|
stop_run(K_ENTER);
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
TPrint_anal_cespi_mask::TPrint_anal_cespi_mask() : TAutomask("ce4500a"), _preview(false)
|
||||||
|
{
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
///////////////////////////////////////////////////////////////
|
||||||
|
// RECORDSET
|
||||||
|
///////////////////////////////////////////////////////////////
|
||||||
|
class TPrint_anal_cespi_recordset : public TISAM_recordset
|
||||||
|
{
|
||||||
|
public:
|
||||||
|
void set_filter(const TPrint_anal_cespi_mask& msk);
|
||||||
|
TPrint_anal_cespi_recordset(const TString& sql) : TISAM_recordset(sql) { }
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
//metodo per caricare i valori nel recordset dalla maschera...fighissimo!!
|
||||||
|
void TPrint_anal_cespi_recordset::set_filter(const TPrint_anal_cespi_mask& msk)
|
||||||
|
{
|
||||||
|
//magggica query
|
||||||
|
TString query = "USE SALCECMS KEY 2";
|
||||||
|
|
||||||
|
query << "\nSELECT (BETWEEN(CODCDC,#CODCDC,#CODCDC))&&(BETWEEN(CODCMS,#CODCMS,#CODCMS))&&(BETWEEN(CODFASE,#CODFASE,#CODFASE))";
|
||||||
|
|
||||||
|
//from-to sulla key 2 di salcecms
|
||||||
|
query << "\nFROM CODES=#CODES IDCESPITE=#IDCESPITE";
|
||||||
|
query << "\nTO CODES=#CODES IDCESPITE=#IDCESPITE";
|
||||||
|
|
||||||
|
//setta la nuova query nel report (che avrebbe solo USE SALCECMS KEY 2)
|
||||||
|
set(query);
|
||||||
|
|
||||||
|
//parte analitica
|
||||||
|
const int codes = msk.get_int(F_ESERCIZIO);
|
||||||
|
const TString& idcespite = msk.get(F_IDCESPITE);
|
||||||
|
const TString& codcdc = msk.get(F_CODCDC);
|
||||||
|
const TString& codcms = msk.get(F_CODCMS);
|
||||||
|
const TString& codfase = msk.get(F_CODFASE);
|
||||||
|
|
||||||
|
set_var("#CODES", long(codes));
|
||||||
|
set_var("#IDCESPITE", idcespite);
|
||||||
|
set_var("#CODCDC", codcdc);
|
||||||
|
set_var("#CODCMS", codcms);
|
||||||
|
set_var("#CODFASE", codfase);
|
||||||
|
|
||||||
|
const TRecnotype cazzo = items();
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////
|
||||||
|
// REPORT
|
||||||
|
////////////////////////////////////////////////////////
|
||||||
|
class TPrint_anal_cespi_rep : public TReport
|
||||||
|
{
|
||||||
|
int _tpamm, _codes;
|
||||||
|
TString _codcdc, _codcms, _codfase;
|
||||||
|
TCespite _cespite;
|
||||||
|
|
||||||
|
protected:
|
||||||
|
real val_amm(const TRectype& rec_saldi) const;
|
||||||
|
virtual bool get_usr_val(const TString& name, TVariant& var) const;
|
||||||
|
virtual bool use_mask() { return false; }
|
||||||
|
|
||||||
|
public:
|
||||||
|
void set_filter(const TPrint_anal_cespi_mask& msk);
|
||||||
|
};
|
||||||
|
|
||||||
|
|
||||||
|
void TPrint_anal_cespi_rep::set_filter(const TPrint_anal_cespi_mask& msk)
|
||||||
|
{
|
||||||
|
//parametri presi dalla maschera; servono solo per essere riportati sul report in quanto è..
|
||||||
|
//..use_mask()=false; l'unico che serve per i conti è _tpamm (saldi cespite in base a _tpamm)
|
||||||
|
_tpamm = msk.get_int(F_SITUAZIONE);
|
||||||
|
_codcdc = msk.get(F_CODCDC);
|
||||||
|
_codcms = msk.get(F_CODCMS);
|
||||||
|
_codfase = msk.get(F_CODFASE);
|
||||||
|
|
||||||
|
TPrint_anal_cespi_recordset* rs = new TPrint_anal_cespi_recordset(EMPTY_STRING);
|
||||||
|
set_recordset(rs);
|
||||||
|
rs->set_filter(msk);
|
||||||
|
}
|
||||||
|
|
||||||
|
real TPrint_anal_cespi_rep::val_amm(const TRectype& rec_saldi) const
|
||||||
|
{
|
||||||
|
real valore = rec_saldi.get_real(SALCE_CSTO);
|
||||||
|
|
||||||
|
if (_tpamm == 1) //solo fiscale
|
||||||
|
valore -= rec_saldi.get_real(SALCE_VNONAMM06);
|
||||||
|
|
||||||
|
if (_tpamm == 2) //solo civilistico
|
||||||
|
{
|
||||||
|
valore -= rec_saldi.get_real(SALCE_VNONAMMC);
|
||||||
|
valore += rec_saldi.get_real(SALCE_RIVGC);
|
||||||
|
}
|
||||||
|
else //fiscale e/o gestionale
|
||||||
|
{
|
||||||
|
valore -= rec_saldi.get_real(SALCE_VNONAMM);
|
||||||
|
valore += rec_saldi.get_real(SALCE_RIVGF);
|
||||||
|
}
|
||||||
|
|
||||||
|
valore += rec_saldi.get_real(SALCE_RIV75);
|
||||||
|
valore += rec_saldi.get_real(SALCE_RIV83);
|
||||||
|
valore += rec_saldi.get_real(SALCE_RIV90);
|
||||||
|
valore += rec_saldi.get_real(SALCE_RIV91);
|
||||||
|
|
||||||
|
if (valore < ZERO)
|
||||||
|
valore = ZERO;
|
||||||
|
|
||||||
|
return valore;
|
||||||
|
}
|
||||||
|
|
||||||
|
//metodo per il calcolo dei campi da calcolare (ma va'!) nel report
|
||||||
|
bool TPrint_anal_cespi_rep::get_usr_val(const TString& name, TVariant& var) const
|
||||||
|
{
|
||||||
|
const TRecordset& recset = *recordset();
|
||||||
|
const TString& idcespite = recset.get(SALCECMS_IDCESPITE).as_string();
|
||||||
|
const TString& desc = cache().get(LF_CESPI, idcespite, CESPI_DESC);
|
||||||
|
const int codes = recset.get(SALCECMS_CODES).as_int();
|
||||||
|
const TString& codcdc = recset.get(SALCECMS_CODCDC).as_string();
|
||||||
|
const TString& codcms = recset.get(SALCECMS_CODCMS).as_string();
|
||||||
|
const TString& codfase = recset.get(SALCECMS_CODFASE).as_string();
|
||||||
|
const real percutil = recset.get(SALCECMS_PERCUTIL).as_real() / CENTO;
|
||||||
|
|
||||||
|
if (idcespite != _cespite.get(CESPI_IDCESPITE))
|
||||||
|
{
|
||||||
|
TCespite& c = (TCespite&)_cespite;
|
||||||
|
c.read(idcespite);
|
||||||
|
c.load_saldi(_tpamm, codes);
|
||||||
|
}
|
||||||
|
|
||||||
|
//CAMPI CESPITE
|
||||||
|
//-------------
|
||||||
|
if (name.starts_with("#DESC"))
|
||||||
|
{
|
||||||
|
var = desc;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (name.starts_with("#VARIAZIONE")) //variazione del valore annuale (saldo finale - saldo iniziale)
|
||||||
|
{
|
||||||
|
const real val_fin = val_amm(_cespite.sal_pro());
|
||||||
|
const real val_ini = val_amm(_cespite.sal_ini());
|
||||||
|
var = (val_fin - val_ini) * percutil;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (name == "#QAMMMV") //quote ammortamento su movimento esercizio corrente
|
||||||
|
{
|
||||||
|
real quote_ammmv;
|
||||||
|
const TArray& array_ammmv = _cespite.ammmv();
|
||||||
|
for (int i = 0; i < array_ammmv.items(); i++)
|
||||||
|
{
|
||||||
|
const TRectype& rec_ammmv = (const TRectype&)array_ammmv[i];
|
||||||
|
quote_ammmv += rec_ammmv.get_real(AMMMV_QNOR) + rec_ammmv.get_real(AMMMV_QACC) +
|
||||||
|
rec_ammmv.get_real(AMMMV_QANT) + rec_ammmv.get_real(AMMMV_QPERSE) +
|
||||||
|
rec_ammmv.get_real(AMMMV_QPPRIVATE) + rec_ammmv.get_real(AMMMV_FPRIVATO);
|
||||||
|
}
|
||||||
|
quote_ammmv *= percutil;
|
||||||
|
var = quote_ammmv;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (name == "#QAMM") //quote ammortamento esercizio corrente
|
||||||
|
{
|
||||||
|
const TRectype& rec_ammce = _cespite.amm_pro();
|
||||||
|
real quote_amm = real(rec_ammce.get_real(AMMCE_QNOR) + rec_ammce.get_real(AMMCE_QACC) +
|
||||||
|
rec_ammce.get_real(AMMCE_QANT) + rec_ammce.get_real(AMMCE_QPERSE) +
|
||||||
|
rec_ammce.get_real(AMMCE_QPPRIVATE) + rec_ammce.get_real(AMMCE_FPRIVATO));
|
||||||
|
quote_amm *= percutil;
|
||||||
|
var = quote_amm;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (name == "#QAMM_FPRIVATO") //fondo ammortamento privato corrente
|
||||||
|
{
|
||||||
|
const TRectype& rec_ammce = _cespite.amm_pro();
|
||||||
|
real famm = rec_ammce.get_real(AMMCE_FPRIVATO);
|
||||||
|
famm *= percutil;
|
||||||
|
var = famm;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (name == "#PERCAMM") // percentuale ammortamento
|
||||||
|
{
|
||||||
|
real percamm;
|
||||||
|
real valamm = val_amm(_cespite.sal_ini());
|
||||||
|
if (valamm.is_zero()) // Non riesce a calcolare il valore ammortizzabile dei cespiti nuovi
|
||||||
|
{
|
||||||
|
const int anno_acq = _cespite.get_date(CESPI_DTCOMP).year();
|
||||||
|
if (anno_acq == codes)
|
||||||
|
{
|
||||||
|
valamm = val_amm(_cespite.sal_pro());
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (!valamm.is_zero())
|
||||||
|
{
|
||||||
|
TVariant qamm, qammmv;
|
||||||
|
get_usr_val("#QAMM", qamm);
|
||||||
|
get_usr_val("#QAMMMV", qammmv);
|
||||||
|
percamm = CENTO * (qamm.as_real() + qammmv.as_real()) / valamm;
|
||||||
|
percamm.round(1);
|
||||||
|
}
|
||||||
|
var = percamm;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (name == "#CESSELIM") //cessioni elminiazioni
|
||||||
|
{
|
||||||
|
real cesselim;
|
||||||
|
const TArray& array_movam = _cespite.movam();
|
||||||
|
for (int i = 0; i < array_movam.items(); i++)
|
||||||
|
{
|
||||||
|
const TRectype& rec_movam = (const TRectype&)array_movam[i];
|
||||||
|
cesselim += rec_movam.get_real(MOVAM_QNOR) + rec_movam.get_real(MOVAM_QACC) +
|
||||||
|
rec_movam.get_real(MOVAM_QANT) + rec_movam.get_real(MOVAM_QPERSE) +
|
||||||
|
rec_movam.get_real(MOVAM_QPPRIVATE) + rec_movam.get_real(MOVAM_FPRIVATO);
|
||||||
|
}
|
||||||
|
cesselim *= percutil;
|
||||||
|
var = cesselim;
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
//CAMPI TESTATA (FILTRI)
|
||||||
|
//----------------------
|
||||||
|
if (name == "#CODCDC")
|
||||||
|
{
|
||||||
|
var.set(_codcdc);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
if (name == "#CODCMS")
|
||||||
|
{
|
||||||
|
var.set(_codcms);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
if (name == "#CODFASE")
|
||||||
|
{
|
||||||
|
var.set(_codfase);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
if (name == "#SITUAZIONE") //tipo situazione da stampare in testata
|
||||||
|
{
|
||||||
|
var.set(_tpamm);
|
||||||
|
return true;
|
||||||
|
}
|
||||||
|
|
||||||
|
return TReport::get_usr_val(name, var);
|
||||||
|
}
|
||||||
|
|
||||||
|
////////////////////////////////////////////////////////
|
||||||
|
// APPLICAZIONE
|
||||||
|
////////////////////////////////////////////////////////
|
||||||
|
class TPrint_anal_cespi : public TSkeleton_application
|
||||||
|
{
|
||||||
|
protected:
|
||||||
|
virtual bool create(void);
|
||||||
|
virtual void main_loop();
|
||||||
|
};
|
||||||
|
|
||||||
|
void TPrint_anal_cespi::main_loop()
|
||||||
|
{
|
||||||
|
TPrint_anal_cespi_mask mask;
|
||||||
|
while (mask.run() == K_ENTER)
|
||||||
|
{
|
||||||
|
//report e book dei report
|
||||||
|
TReport_book book;
|
||||||
|
TPrint_anal_cespi_rep rep;
|
||||||
|
rep.load("ce4500a");
|
||||||
|
|
||||||
|
rep.set_filter(mask);
|
||||||
|
book.add(rep);
|
||||||
|
|
||||||
|
//stampa il book dei report
|
||||||
|
if (mask.preview())
|
||||||
|
book.preview();
|
||||||
|
else
|
||||||
|
book.print();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
bool TPrint_anal_cespi::create()
|
||||||
|
{
|
||||||
|
const bool has_ca = dongle().active(CAAUT);
|
||||||
|
//se la chiave non ha CA non si può proseguire!
|
||||||
|
if (!has_ca)
|
||||||
|
return error_box("Per utilizzare questo programma è necessaria l'attivazione del modulo Contabiltà Analitica");
|
||||||
|
|
||||||
|
return TSkeleton_application::create();
|
||||||
|
}
|
||||||
|
|
||||||
|
int ce4500(int argc, char* argv[])
|
||||||
|
{
|
||||||
|
TPrint_anal_cespi a;
|
||||||
|
a.run(argc, argv, TR("Stampa cespiti per analitica"));
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
18
ce/ce4500a.h
Executable file
18
ce/ce4500a.h
Executable file
@ -0,0 +1,18 @@
|
|||||||
|
//campi maschera ce4500a.uml
|
||||||
|
#define F_CODDITTA 101
|
||||||
|
#define F_RAGSOC 102
|
||||||
|
#define F_ESERCIZIO 103
|
||||||
|
#define F_DATAINIZIO 104
|
||||||
|
#define F_DATAFINE 105
|
||||||
|
#define F_IDCESPITE 106
|
||||||
|
#define F_DESC 107
|
||||||
|
#define F_SITUAZIONE 108
|
||||||
|
|
||||||
|
#define F_CODCMS 120
|
||||||
|
#define F_DESCMS 121
|
||||||
|
#define F_CODFASE 122
|
||||||
|
#define F_DESFASE 123
|
||||||
|
#define F_CODCDC 124
|
||||||
|
#define F_DESCDC 125
|
||||||
|
|
||||||
|
#define F_REPORT 126
|
||||||
143
ce/ce4500a.rep
Executable file
143
ce/ce4500a.rep
Executable file
@ -0,0 +1,143 @@
|
|||||||
|
<?xml version="1.0" encoding="UTF-8" ?>
|
||||||
|
<report name="ce4500a" orientation="1" lpi="6">
|
||||||
|
<description>Cespiti in analitica</description>
|
||||||
|
<font face="Arial Narrow" size="8" />
|
||||||
|
<section type="Head" pattern="1">
|
||||||
|
<font face="Arial Narrow" bold="1" size="8" />
|
||||||
|
<field border="1" x="1" type="Linea" width="117" height="0" pattern="1" />
|
||||||
|
<field x="97" y="0.5" type="Testo" align="center" width="20" pattern="1" text="Fondo Ammortamento" />
|
||||||
|
<field x="1" y="1.5" type="Testo" width="10" pattern="1" text="Cespite" />
|
||||||
|
<field x="34" y="1.5" type="Testo" width="15" pattern="1" text="Centro di costo" />
|
||||||
|
<field x="49" y="1.5" type="Testo" width="15" pattern="1" text="Commessa" />
|
||||||
|
<field x="64" y="1.5" type="Testo" width="5" pattern="1" text="Fase" />
|
||||||
|
<field x="72" y="1.5" type="Testo" align="right" width="12" pattern="1" text="Variazione" />
|
||||||
|
<field x="84.5" y="1.5" type="Testo" align="right" width="6" pattern="1" text="%Amm" />
|
||||||
|
<field x="91.5" y="1.5" type="Testo" align="right" width="12" pattern="1" text="Es. corr." />
|
||||||
|
<field x="104" y="1.5" type="Testo" align="right" width="12" pattern="1" text="Cessioni" />
|
||||||
|
<field border="1" x="1" y="2.5" type="Linea" width="117" height="0" pattern="1" />
|
||||||
|
</section>
|
||||||
|
<section type="Head" level="1" pattern="1">
|
||||||
|
<font italic="1" face="Arial" size="8" />
|
||||||
|
<prescript description="H1 PRESCRIPT">MESSAGE RESET,F1.103
|
||||||
|
MESSAGE RESET,F1.102
|
||||||
|
MESSAGE RESET,F1.101
|
||||||
|
MESSAGE RESET,F1.104
|
||||||
|
MESSAGE RESET,F1.105
|
||||||
|
MESSAGE RESET,F1.106
|
||||||
|
MESSAGE RESET,F1.107</prescript>
|
||||||
|
<field border="1" radius="100" x="12" y="0.5" type="Testo" valign="center" align="center" shade_offset="25" width="96" height="2.5" pattern="2" text="CESPITI IN ANALITICA">
|
||||||
|
<font face="Times New Roman" bold="1" size="16" />
|
||||||
|
</field>
|
||||||
|
<field border="2" x="1" y="4" type="Linea" width="117" height="0" pattern="1" />
|
||||||
|
<field x="1" y="4.5" type="Testo" width="10" pattern="1" text="Ditta:" />
|
||||||
|
<field x="11" y="4.5" type="Stringa" width="50" pattern="1">
|
||||||
|
<font italic="1" face="Arial" bold="1" size="8" />
|
||||||
|
<source>#SYSTEM.RAGSOC</source>
|
||||||
|
</field>
|
||||||
|
<field x="93" y="4.5" type="Testo" width="14" pattern="1" text="Data stampa:" />
|
||||||
|
<field x="107" y="4.5" type="Data" width="11" pattern="1">
|
||||||
|
<font italic="1" face="Arial" bold="1" size="8" />
|
||||||
|
<source>#SYSTEM.DATE</source>
|
||||||
|
</field>
|
||||||
|
<field x="3" y="6.25" type="Testo" bg_color="#000000" txt_color="#FFFFFF" width="18" pattern="2" text="Parametri di stampa">
|
||||||
|
<font italic="1" face="Arial" bold="1" size="8" />
|
||||||
|
</field>
|
||||||
|
<field x="1" y="7.5" type="Testo" width="7" pattern="1" text="Anno:" />
|
||||||
|
<field x="8" y="7.5" type="Numero" align="right" width="5" pattern="1">
|
||||||
|
<font italic="1" face="Arial" bold="1" size="8" />
|
||||||
|
<source>CODES</source>
|
||||||
|
</field>
|
||||||
|
<field x="38" y="7.5" type="Testo" width="12" pattern="1" text="Centro di costo:" />
|
||||||
|
<field x="52" y="7.5" type="Stringa" width="15" pattern="1">
|
||||||
|
<font face="Arial" bold="1" size="8" />
|
||||||
|
<source>#CODCDC</source>
|
||||||
|
</field>
|
||||||
|
<field x="68" y="7.5" type="Stringa" width="50" pattern="1">
|
||||||
|
<font italic="1" face="Arial Narrow" size="8" />
|
||||||
|
<prescript description="H1.0 PRESCRIPT">MESSAGE ISAMREAD,CDC,CODCOSTO=#CODCDC,DESCRIZ</prescript>
|
||||||
|
</field>
|
||||||
|
<field x="1" y="8.5" type="Array" width="25" pattern="1">
|
||||||
|
<font italic="1" face="Arial" bold="1" size="8" />
|
||||||
|
<source>#SITUAZIONE</source>
|
||||||
|
<list>
|
||||||
|
<li Value="Situazione Fiscale" Code="1" />
|
||||||
|
<li Value="Situazione Civilistica" Code="2" />
|
||||||
|
<li Value="Situazione Gestionale" Code="3" />
|
||||||
|
</list>
|
||||||
|
</field>
|
||||||
|
<field x="38" y="8.5" type="Testo" width="10" pattern="1" text="Commessa:" />
|
||||||
|
<field x="52" y="8.5" type="Stringa" width="15" pattern="1">
|
||||||
|
<font face="Arial" bold="1" size="8" />
|
||||||
|
<source>#CODCMS</source>
|
||||||
|
</field>
|
||||||
|
<field x="68" y="8.5" type="Stringa" width="50" pattern="1">
|
||||||
|
<font italic="1" face="Arial Narrow" size="8" />
|
||||||
|
<prescript description="H1.0 PRESCRIPT">MESSAGE ISAMREAD,COMMESSE,CODCMS=#CODCMS,DESCRIZ</prescript>
|
||||||
|
</field>
|
||||||
|
<field x="38" y="9.5" type="Testo" width="10" pattern="1" text="Fase:" />
|
||||||
|
<field x="52" y="9.5" type="Stringa" width="15" pattern="1">
|
||||||
|
<font face="Arial" bold="1" size="8" />
|
||||||
|
<source>#CODFASE</source>
|
||||||
|
</field>
|
||||||
|
<field x="68" y="9.5" type="Stringa" width="50" pattern="1">
|
||||||
|
<font italic="1" face="Arial Narrow" size="8" />
|
||||||
|
<prescript description="H1.0 PRESCRIPT">MESSAGE ISAMREAD,FASI,CODCMSFAS=#CODCMS!CODFASE=#CODFASE,DESCRIZ</prescript>
|
||||||
|
</field>
|
||||||
|
</section>
|
||||||
|
<section type="Body" pattern="1" />
|
||||||
|
<section type="Body" level="1" pattern="1">
|
||||||
|
<field x="1" type="Stringa" width="8" pattern="1">
|
||||||
|
<source>IDCESPITE</source>
|
||||||
|
</field>
|
||||||
|
<field x="9" type="Stringa" dynamic_height="1" width="25" height="2" pattern="1">
|
||||||
|
<font face="Arial Narrow" size="7" />
|
||||||
|
<source>#DESC</source>
|
||||||
|
</field>
|
||||||
|
<field x="34" type="Stringa" width="15" pattern="1">
|
||||||
|
<source>CODCDC</source>
|
||||||
|
</field>
|
||||||
|
<field x="49" type="Stringa" width="15" pattern="1">
|
||||||
|
<source>CODCMS</source>
|
||||||
|
</field>
|
||||||
|
<field x="64" type="Stringa" width="8" pattern="1">
|
||||||
|
<source>CODFASE</source>
|
||||||
|
</field>
|
||||||
|
<field x="72" type="Valuta" align="right" width="12" id="103" pattern="1" text="#########,@@">
|
||||||
|
<source>#VARIAZIONE</source>
|
||||||
|
<postscript description="B1.103 POSTSCRIPT">MESSAGE ADD,F1.103
|
||||||
|
</postscript>
|
||||||
|
</field>
|
||||||
|
<field x="84.5" type="Numero" align="right" width="6" id="104" pattern="1" text="##@,@@">
|
||||||
|
<source>#PERCAMM</source>
|
||||||
|
</field>
|
||||||
|
<field x="91.5" type="Valuta" align="right" width="12" id="105" pattern="1" text="#########,@@">
|
||||||
|
<source>#QAMM+#QAMMMV</source>
|
||||||
|
<postscript description="B1.105 POSTSCRIPT">MESSAGE ADD,F1.105
|
||||||
|
</postscript>
|
||||||
|
</field>
|
||||||
|
<field x="104" type="Valuta" align="right" width="12" id="106" pattern="1" text="#########,@@">
|
||||||
|
<source>#CESSELIM+#QAMMMV</source>
|
||||||
|
<postscript description="B1.106 POSTSCRIPT">MESSAGE ADD,F1.106
|
||||||
|
</postscript>
|
||||||
|
</field>
|
||||||
|
</section>
|
||||||
|
<section type="Foot" pattern="1">
|
||||||
|
<font face="Arial" size="8" />
|
||||||
|
<field border="1" x="1" type="Linea" width="117" height="0" pattern="1" />
|
||||||
|
<field x="101" y="0.25" type="Testo" width="5" pattern="1" text="Pag." />
|
||||||
|
<field x="107" y="0.25" type="Numero" align="right" width="3" pattern="1">
|
||||||
|
<source>#REPORT.PAGE</source>
|
||||||
|
</field>
|
||||||
|
</section>
|
||||||
|
<section type="Foot" level="1" bg_color="#000000" height="1.5" pattern="1">
|
||||||
|
<font face="Arial Narrow" bold="1" size="8" />
|
||||||
|
<field border="2" x="1" y="0.25" type="Linea" txt_color="#FFFFFF" width="117" height="0" pattern="1" />
|
||||||
|
<field x="58" y="0.5" type="Testo" width="10" pattern="1" text="Totali" />
|
||||||
|
<field x="72" y="0.5" type="Valuta" align="right" width="12" id="103" pattern="1" text="#########,@@" />
|
||||||
|
<field x="91.5" y="0.5" type="Valuta" align="right" width="12" id="105" pattern="1" text="#########,@@" />
|
||||||
|
<field x="104" y="0.5" type="Valuta" align="right" width="12" id="106" pattern="1" text="#########,@@" />
|
||||||
|
</section>
|
||||||
|
<sql>USE SALCECMS KEY 2
|
||||||
|
FROM CODES=#CODES IDCESPITE=#IDCESPITE
|
||||||
|
TO CODES=#CODES IDCESPITE=#IDCESPITE</sql>
|
||||||
|
</report>
|
||||||
165
ce/ce4500a.uml
Executable file
165
ce/ce4500a.uml
Executable file
@ -0,0 +1,165 @@
|
|||||||
|
#include "ce4500a.h"
|
||||||
|
|
||||||
|
TOOLBAR "topbar" 0 0 0 2
|
||||||
|
#include <aprintbar.h>
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
PAGE "Cespiti in analitica" 0 2 0 0
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 78 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 1 ""
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_CODDITTA 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 2 "Ditta "
|
||||||
|
FLAGS "DF"
|
||||||
|
USE LF_NDITTE
|
||||||
|
INPUT CODDITTA F_CODDITTA
|
||||||
|
OUTPUT F_RAGSOC RAGSOC
|
||||||
|
CHECKTYPE REQUIRED
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_RAGSOC 55
|
||||||
|
BEGIN
|
||||||
|
PROMPT 20 2 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
NUMBER F_ESERCIZIO 4
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 3 "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 3 "Data inizio "
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
DATE F_DATAFINE
|
||||||
|
BEGIN
|
||||||
|
PROMPT 45 3 "Data fine "
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_IDCESPITE 10
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 5 "Cespite "
|
||||||
|
FLAGS "UZ"
|
||||||
|
USE LF_SALCECMS KEY 2 SELECT NRIGA==1
|
||||||
|
JOIN LF_CESPI INTO IDCESPITE==IDCESPITE
|
||||||
|
INPUT CODES F_ESERCIZIO SELECT
|
||||||
|
INPUT IDCESPITE F_IDCESPITE
|
||||||
|
DISPLAY "Esercizio" CODES
|
||||||
|
DISPLAY "Codice@10" IDCESPITE
|
||||||
|
DISPLAY "Descrizione@50" LF_CESPI->DESC
|
||||||
|
DISPLAY "Cat." LF_CESPI->CODCAT
|
||||||
|
DISPLAY "Data Acq.@10" LF_CESPI->DTCOMP
|
||||||
|
DISPLAY "Data Ali.@10" LF_CESPI->DTALIEN
|
||||||
|
OUTPUT F_ESERCIZIO CODES
|
||||||
|
OUTPUT F_IDCESPITE IDCESPITE
|
||||||
|
OUTPUT F_DESC LF_CESPI->DESC
|
||||||
|
CHECKTYPE SEARCH
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESC 60 50
|
||||||
|
BEGIN
|
||||||
|
PROMPT 25 5 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
RADIOBUTTON F_SITUAZIONE 78
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 6 "@bSituazione"
|
||||||
|
ITEM "1|Fiscale"
|
||||||
|
ITEM "2|Civilistica"
|
||||||
|
ITEM "3|Gestionale"
|
||||||
|
FLAGS "Z"
|
||||||
|
END
|
||||||
|
|
||||||
|
GROUPBOX DLG_NULL 78 5
|
||||||
|
BEGIN
|
||||||
|
PROMPT 1 9 "@bAnalitica"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CODCMS 20
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 10 "Commessa "
|
||||||
|
USE LF_COMMESSE
|
||||||
|
INPUT CODCMS F_CODCMS
|
||||||
|
DISPLAY "Codice@20" CODCMS
|
||||||
|
DISPLAY "Descrizione@50" DESCRIZ
|
||||||
|
OUTPUT F_CODCMS CODCMS
|
||||||
|
OUTPUT F_DESCMS DESCRIZ
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESCMS 50 39
|
||||||
|
BEGIN
|
||||||
|
PROMPT 36 10 ""
|
||||||
|
USE LF_COMMESSE KEY 2
|
||||||
|
INPUT DESCRIZ F_DESCMS
|
||||||
|
DISPLAY "Descrizione@50" DESCRIZ
|
||||||
|
DISPLAY "Codice@20" CODCMS
|
||||||
|
COPY OUTPUT F_CODCMS
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CODFASE 10
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 11 "Fase "
|
||||||
|
USE LF_FASI
|
||||||
|
INPUT CODCMSFAS F_CODCMS SELECT
|
||||||
|
INPUT CODFASE F_CODFASE
|
||||||
|
DISPLAY "Fase@10" CODFASE
|
||||||
|
DISPLAY "Descrizione@50" DESCRIZ
|
||||||
|
OUTPUT F_CODFASE CODFASE
|
||||||
|
OUTPUT F_DESFASE DESCRIZ
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESFASE 50 39
|
||||||
|
BEGIN
|
||||||
|
PROMPT 36 11 ""
|
||||||
|
FLAGS "D"
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_CODCDC 20
|
||||||
|
BEGIN
|
||||||
|
PROMPT 2 12 "C. costo "
|
||||||
|
USE LF_CDC
|
||||||
|
INPUT CODCOSTO F_CODCDC
|
||||||
|
DISPLAY "Codice@20" CODCOSTO
|
||||||
|
DISPLAY "Descrizione@50" DESCRIZ
|
||||||
|
OUTPUT F_CODCDC CODCOSTO
|
||||||
|
OUTPUT F_DESCDC DESCRIZ
|
||||||
|
CHECKTYPE NORMAL
|
||||||
|
END
|
||||||
|
|
||||||
|
STRING F_DESCDC 50 39
|
||||||
|
BEGIN
|
||||||
|
PROMPT 36 12 ""
|
||||||
|
USE LF_CDC KEY 2
|
||||||
|
INPUT DESCRIZ F_DESCDC
|
||||||
|
DISPLAY "Descrizione@50" DESCRIZ
|
||||||
|
DISPLAY "Codice@20" CODCOSTO
|
||||||
|
COPY OUTPUT F_CODCDC
|
||||||
|
END
|
||||||
|
|
||||||
|
ENDPAGE
|
||||||
|
|
||||||
|
ENDMASK
|
||||||
Loading…
x
Reference in New Issue
Block a user