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

Patch level :4.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :collegamento CE/CG in corso


git-svn-id: svn://10.65.10.50/trunk@15891 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2007-12-17 10:33:27 +00:00
parent 0d26ca337b
commit 50d9454013
3 changed files with 6 additions and 21 deletions

15
ce/ce4400.cpp

@ -120,9 +120,6 @@ void TTrasf_mov_ce_cg::elabora()
else
datacalc = _mask->get_date(F_DATACALC);
//deve eseguire il calcolo degli ammortamenti?
const bool calcamm = _mask->get_bool(F_CALCAMM);
//programma vero e proprio (calcolo ammortamenti, selezione cespiti validi, trasferimento)
TISAM_recordset cespiti("USE CESPI");
const TRecnotype nrec = cespiti.items();
@ -142,18 +139,12 @@ void TTrasf_mov_ce_cg::elabora()
TCespite cespite(idcespite);
const TString4 codcat = cespiti.get(CESPI_CODCAT).as_string();
//se richiesto calcola gli ammortamenti di tutti i cespiti; SOLO situazione FISCALE (tiposit = 1)
//calcola gli ammortamenti di tutti i cespiti; SOLO situazione FISCALE (tiposit = 1)
//la calc_amm pensa da sola a calcolare gli ammortamenti solo per i cespiti validi
if (calcamm)
cespite.calc_amm(1, datacalc, false); //calc_amm(tiposit,datalim,spesemanu)
cespite.calc_amm(1, datacalc, false, true);
//controlla le quote del cespite in questione su AMMCE
TToken_string key;
key.add(idcespite);
key.add(codes);
key.add(2); //tpsaldo finale!!!
key.add(1); //tpamm fiscale!!!!
const TRectype& rec_ammce = cache().get(LF_AMMCE, key);
const TRectype& rec_ammce = cespite.amm_pro();
TSaldo_cat* sc = (TSaldo_cat*)quote_per_cat.objptr(codcat);
//se non trova il codice categoria lo aggiunge...

3
ce/ce4400a.h

@ -8,5 +8,4 @@
#define F_DATACALC 207
#define F_DATAREG 208
#define F_DATACOMP 209
#define F_CALCAMM 210
#define F_KILLOLD 211
#define F_KILLOLD 210

9
ce/ce4400a.uml

@ -83,13 +83,8 @@ END
BOOLEAN F_PROVDEF
BEGIN
PROMPT 2 6 "Trasferimento definitivo"
MESSAGE FALSE 'X',F_CALCAMM|DISABLE,F_CALCAMM|ENABLE,F_DATACALC
MESSAGE TRUE ENABLE,F_CALCAMM|RESET,F_CALCAMM|CLEAR,F_DATACALC
END
BOOLEAN F_CALCAMM
BEGIN
PROMPT 2 7 "Eseguire il cacolo ammortamenti prima del trasferimento"
MESSAGE FALSE ENABLE,F_DATACALC
MESSAGE TRUE CLEAR,F_DATACALC
END
DATA F_DATACALC