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

Aggiunto di nuovo parametro ditta "ricalcolo acquisti per rivendita"

Browse Source 
e sua gestione in liquidazione


git-svn-id: svn://10.65.10.50/trunk@827 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-01-05 12:01:12 +00:00
parent 23fa9fcff0
commit 90058a54bc
7 changed files with 38 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
cg/cg4300.cpp
View File

@ -88,6 +88,7 @@ bool TLiquidazione_app::user_create()
_rel = new TRelation(LF_MOV);
_rel->add(LF_RMOVIVA,"NUMREG=NUMREG");
_rel->add(LF_CAUSALI,"CODCAUS=CODCAUS");
_cur = new TCursor(_rel, "", 2);

1
cg/cg4300.h
View File

@ -174,6 +174,7 @@ class TLiquidazione_app : public TPrint_application
bool _isriepilogo; // 13a liq
bool _isservizio; // servizi, professionisti, artisti
bool _isrimborso; // vuole il rimborso infraannuale
bool _isricacq; // ricalcolo imposte acq. riv (par. ditta)
bool _calcall; // tutte le ditte nessuna esclusa
bool _isbase; // stampa base di calcolo acconto
tbc _basecalc; // tipo base di calcolo acconto

16
cg/cg4301.cpp
View File

@ -6,6 +6,7 @@
#include <progind.h>
#include <sheet.h>
#include <config.h>
#include "cg4300.h"
// -------------------- QUI comincia l'avventura --------------------------
@ -102,6 +103,9 @@ bool TLiquidazione_app::update_firm(int month, bool recalc)
_lim->put("R6","");
_lim->rewrite();
TConfig cnf(CONFIG_DITTA, "cg");
_isricacq = cnf.get_bool("RicAcq");
// ricalcolo normale
ok = _lim->get_bool("B0");
if (ok && !recalc) return TRUE;
@ -349,6 +353,13 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
if (_reg->get_bool("B1"))
continue;
/*
* Fatture in ritardo vengono considerate solo in dichiarazione
* annuale
*/
if (!_isannual && _cur->curr(LF_CAUSALI).get_bool("RITFATT"))
continue;
/*
* check date se si calcola l'acconto
*/
@ -392,8 +403,9 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
totintra += imposta;
// Altre cose di cui tener conto
if (tipomov == acquisto && (tipocr == 1 || tipocr == 5))
// Acquisto beni per rivendita
if (tipomov == acquisto && (tipocr == 1 || tipocr == 5) && _isricacq)
// Acquisto beni per rivendita (solo se l'apposito parametro ditta
// e' settato)
{
acq_riv += imponibile;
acq_riv_iva += imposta;

8
cg/cg4303.cpp
View File

@ -134,6 +134,14 @@ void TLiquidazione_app::recalc_ventilation(int month, const char* codatt)
// se e' acquisto beni per rivendita
int tipocr = atoi(*_pim_tipocr);
int mese = atoi(*_pim_mese);
int tipodet = atoi(*_pim_tipodet);
// se non si e' settato il ricalcolo nei parametri ditta
// considera soltanto quelli con detraibilita' == 3
// (passaggi interni)
if (!_isricacq && tipodet != 3)
continue;
TString att(codatt);
if (tipocr == 1 && mese == m &&
att == (const char*)(*_pim_codatt))

1
cg/cg5100a.h
View File

@ -53,3 +53,4 @@
#define FLD_DCSUECE 152
#define FLD_DCSPECE 153
#define FLD_DESLIN 154
#define CHK_RICACQ 155

11
cg/cg5100a.uml
View File

@ -59,9 +59,16 @@ BEGIN
FIELD RifPar
END
GROUPBOX DLG_NULL 76 11
GROUPBOX DLG_NULL 76 12
BEGIN
PROMPT 2 7 ""
PROMPT 2 6 ""
END
BOOLEAN CHK_RICACQ
BEGIN
PROMPT 4 7 "Ricalcolo imposte acquisti per rivendita "
HELP "Indicare se attivare il calcolo IVA acquisti per rivendita nel calcolo ventilazione"
FIELD RicAcq
END
BOOLEAN CHK_GSLBCN

2
cg/prassid.doc
View File

@ -20,6 +20,8 @@ StTfFr =
StLgiU =
# Gestione saldaconto
GesSal =
# Ricalcolo imposte degli acquisti destinati a rivendita
RicAcq =
# N. rif. allineato a destra per clienti e fornitori
NrCliDx =
NrForDx =