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

COrrezioni liquidazione e visualizzazione

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1545 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-07-03 10:39:38 +00:00
parent 0f26593d44
commit bca2780adb
8 changed files with 230 additions and 186 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
cg/cg4301.cpp
View File

@ -1460,6 +1460,9 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
risultato -= cred_prec;
res_cred += cred_prec;
}
} else if (_isdifferita)
{
// TBI gestione struonza
}
if (month == 13)
@ -1550,7 +1553,7 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
* versamenti effettuati: si conteggiano in R0,
* sono > 0 solo se andavano calcolati (vedi sopra)
*/
risultato -= (versamenti + vers_int);
risultato -= versamenti + vers_int;
/*
* acconto dicembre se previsto
*/

31
cg/cg4302.cpp
View File

@ -478,9 +478,33 @@ bool TLiquidazione_app::look_del(int month, int type, bool create)
}
if (create)
{
// vedi se titolare conto fiscale
bool titcf = FALSE;
bool isdel = FALSE;
TLocalisamfile anag(LF_ANAG);
anag.zero();
anag.put("TIPOA", _nditte->lfile().get("TIPOA"));
anag.put("CODANAGR", _nditte->lfile().get("CODANAGR"));
if (anag.read() == NOERR)
{
titcf = anag.get_bool("TITCF");
isdel = anag.get_long("TIPOSTDEL") == 0l;
}
if (!titcf || isdel)
{
// non titolare conto fiscale oppure paga con delega:
// cerca banca
// codici ABI e CAB da anagrafica ditte
TString abi = _nditte->lfile().get("ABIBAN");
TString cab = _nditte->lfile().get("CABBAN");
if (abi.empty())
{
abi = anag.get("CODABI");
abi = anag.get("CODCAB");
}
_del->put("S7", abi);
_del->put("S8", cab);
@ -495,7 +519,11 @@ bool TLiquidazione_app::look_del(int month, int type, bool create)
TString desban(ban.get("S0"));
_del->put("S1", desban);
}
}
else
{
// non usa delega bensi' bollettino o distinta:
// cerca concessione comune
// infila ufficio concessione in S9
// e descrizione comune in S2
TString16 con; TString uva;
@ -504,6 +532,7 @@ bool TLiquidazione_app::look_del(int month, int type, bool create)
_del->put("S9", con);
_del->put("S2", uva);
}
}
// scrive codice tributo
int ctri = 6000;

11
cg/cg4304.cpp
View File

@ -857,9 +857,12 @@ void TLiquidazione_app::set_firm(_DescrItem& d)
reset_header();
if (!_isregis)
{
set_header(1,"Ditta %s %s@109gData @<@125gPag. @#",
(const char*)(d._s0), (const char*)(d._s1));
set_header(2,"");
}
set_header(3,sep);
set_header(4,"%s@102gFrequenza %s",
(const char*)tim_title,
@ -934,9 +937,12 @@ void TLiquidazione_app::set_att(_DescrItem& d)
(const char*)tipatt);
reset_header();
if (!_isregis)
{
set_header(1,"Ditta %s %s@109gData @<@125gPag. @#",
(const char*)(d._s0), (const char*)(d._s1));
set_header(2,"");
}
set_header(3,sep);
set_header(4,"%s@55g%s", (const char*)tim_title, (const char*)att_title);
set_header(5,sep);
@ -956,6 +962,8 @@ void TLiquidazione_app::set_att(_DescrItem& d)
void TLiquidazione_app::set_plafond(_DescrItem& d)
{
if (_isregis) return;
set_bookmark("Quadro plafond", _att_bookmark);
real r1 = d._r2 - d._r1 - d._r0;
@ -1012,13 +1020,14 @@ void TLiquidazione_app::set_pim(_DescrItem& d)
{
look_iva(d._s1);
d._s2 = _iva->get("S0");
if (d._s2.len() > 19) d._s2.cut(19);
}
if (d._f0) // e' il primo: non fa piu' nulla perche' l'intestazione
// viene fatta comunque da set_pim_head
{}
set_row(rw++,"%4s %-20s@25g%r@41g%r@58g%r@74g%r@91g%r@107g%r",
set_row(rw++,"%4s %s@25g%r@41g%r@58g%r@74g%r@91g%r@107g%r",
(const char*)d._s1,
(const char*)d._s2,
&(d._r0),

13
cg/cg4305.cpp
View File

@ -157,8 +157,10 @@ bool TLiquidazione_app::extract_delega(int month, TArray& desc)
if (look_lim(month))
{
real topay = result_liq(month);
topay += _lim->get_real("R14");
real topay = result_liq(month); // TBC non si puo' fa' accussi'!!!!! pena il casino!
real intr = _lim->get_real("R14");
topay += intr; // lo vogliono registrato con interessi
real nrnd = topay;
topay.round(-3);
if (!topay.is_zero())
@ -176,7 +178,8 @@ bool TLiquidazione_app::extract_delega(int month, TArray& desc)
{
look_del(month, _isannual ? 2 : 1, TRUE);
_del->put("R0",topay);
// _del->put("R1",intr);
_del->put("R1",intr);
_del->put("R2",nrnd); // non arrotondato, per calcolo risultato a debito/cr
_del->rewrite();
tt->add(_del->get("S7"));
@ -199,7 +202,6 @@ bool TLiquidazione_app::set_acconto(real& inf, real& ina)
TMask m("cg4300c.msk");
m.set(CHK_CGC_PRINT,"X");
m.field(FLD_CGC_YEAR).set_handler(ch_year_handler);
int k = 0; long j;
_calcall = FALSE;
@ -398,8 +400,7 @@ bool TLiquidazione_app::recalc_acconto(real& inf, real& ina)
bc = result_liq(12);
// somma i non fatturati/non annotati
bc += inf + ina;
if (bc.sign() > 0)
acc = bc * ACCONTO_DICEMBRE;
if (bc.sign() > 0) acc = bc;
}
else error = 1;

8
cg/cg5500.cpp
View File

@ -602,7 +602,7 @@ bool Visliq_app::vis_one(int m)
if (is_delega = look_del(m,1))
{
vers = _del->get_real("R0") /* + _del->get_real("R1") */;
vers = _del->get_real("R0");
date = _del->get_date("D0");
abi = _del->get("S7");
cab = _del->get("S8");
@ -941,6 +941,7 @@ void Visliq_app::recalc_next_liq(int start_month, TSheet_field* sl, TSheet_field
_lim->put("R0", risl);
_lim->put("R12", risc);
_lim->put("R13", risd);
// interessi
if (intt.sign() > 0)
{
@ -972,13 +973,14 @@ void Visliq_app::recalc_next_liq(int start_month, TSheet_field* sl, TSheet_field
}
// se non si fa questa non scrive una delega,
// bensi' una bovazza
// bensi' una bovazza (escremento bovino)
look_lim(start_month);
}
void Visliq_app::write_liq()
{
// piccola, ma simpatica
// naturalmente era much bigger
_lim->rewrite();
}
@ -1080,7 +1082,7 @@ void Visliq_app::read_general(TMask& m)
if (m >= 12)
m = tipod == 7 ? 12 : 13;
versamenti[m-1] += _del->get_real("R0") + _del->get_real("R1");
versamenti[m-1] += _del->get_real("R0");
date[m-1] = _del->get_date("D0");
banche[m-1].add(_del->get("S7"),0);
banche[m-1].add(_del->get("S8"),1);

2
cg/cg5500.h
View File

@ -104,7 +104,7 @@ public:
bool vis_all();
bool vis_one(int);
Visliq_app() : TApplication() {}
Visliq_app() : TApplication(), _vers_sheet(NULL), _liq_sheet(NULL) {}
virtual ~Visliq_app() {}
};

16
cg/cg5500b.uml
View File

@ -173,18 +173,18 @@ PAGE "Prospetto versamenti" -1 -1 50 12
STRING 101 20
BEGIN
PROMPT 1 2 "Mese "
PROMPT 1 1 "Mese "
FLAGS "D"
END
DATE 102
BEGIN
PROMPT 1 5 "Data "
PROMPT 1 2 "Data "
END
NUMBER 103 5
BEGIN
PROMPT 4 8 "Codice ABI "
PROMPT 1 3 "Codice ABI "
HELP "Codice ABI banca di appoggio"
FIELD S7
FLAGS "RZ"
@ -202,7 +202,7 @@ END
NUMBER 104 5
BEGIN
PROMPT 40 8 "Codice CAB "
PROMPT 1 4 "Codice CAB "
HELP "Codice CAB banca di appoggio"
FIELD S8
FLAGS "RZ"
@ -214,7 +214,7 @@ END
NUMBER 105 3
BEGIN
PROMPT 4 9 "Concessione "
PROMPT 1 5 "Concessione "
HELP "Codice Concessione del Comune di residenza fiscale"
// FIELD S9
FLAGS "RZ"
@ -223,15 +223,15 @@ END
NUMBER 106 15 0
BEGIN
PROMPT 1 4 "Versamenti "
PROMPT 1 6 "Versamenti "
FLAGS "R"
PICTURE "."
END
/*
LIST 107 1 8
LIST 107 1 10
BEGIN
PROMPT 1 9 "Importo a "
PROMPT 1 7 "Importo a "
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"

28
cg/cg5500c.uml
View File

@ -81,21 +81,21 @@ PAGE "Prospetto mensile" -1 -1 50 10
STRING 101 20
BEGIN
PROMPT 1 2 "Mese "
PROMPT 1 1 "Mese "
FLAGS "D"
END
NUMBER 102 15 0
BEGIN
PROMPT 1 3 "Risultato "
PROMPT 1 2 "Risultato "
FLAGS "DR"
PICTURE "."
END
LIST 103 1 8
LIST 103 1 10
BEGIN
PROMPT 1 4 "Importo a "
PROMPT 1 3 "Importo a "
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
@ -106,21 +106,21 @@ END
NUMBER 104 15
BEGIN
PROMPT 22 5 "IVA a rimborso "
PROMPT 1 4 "IVA a rimborso "
FLAGS "R"
PICTURE "."
END
NUMBER 105 15
BEGIN
PROMPT 22 6 "Debito/Credito "
PROMPT 1 5 "Debito/Credito "
FLAGS "R"
PICTURE "."
END
LIST 106 1 8
BEGIN
PROMPT 1 7 "Importo a "
PROMPT 1 6 "Importo a "
ITEM " | "
ITEM "D|Debito"
ITEM "C|Credito"
@ -151,18 +151,18 @@ PAGE "Prospetto versamenti" -1 -1 50 12
STRING 101 20
BEGIN
PROMPT 1 2 "Mese "
PROMPT 1 1 "Mese "
FLAGS "D"
END
DATE 102
BEGIN
PROMPT 1 5 "Data "
PROMPT 1 2 "Data "
END
NUMBER 103 5
BEGIN
PROMPT 4 8 "Codice ABI "
PROMPT 1 3 "Codice ABI "
HELP "Codice ABI banca di appoggio"
FIELD S7
FLAGS "RZ"
@ -180,7 +180,7 @@ END
NUMBER 104 5
BEGIN
PROMPT 40 8 "Codice CAB "
PROMPT 1 4 "Codice CAB "
HELP "Codice CAB banca di appoggio"
FIELD S8
FLAGS "RZ"
@ -192,7 +192,7 @@ END
NUMBER 105 3
BEGIN
PROMPT 4 9 "Concessione "
PROMPT 1 5 "Concessione "
HELP "Codice Concessione del Comune di residenza fiscale"
// FIELD S9
FLAGS "RZ"
@ -201,7 +201,7 @@ END
NUMBER 106 15 0
BEGIN
PROMPT 1 4 "Versamenti "
PROMPT 1 6 "Versamenti "
FLAGS "R"
PICTURE "."
END
@ -209,7 +209,7 @@ END
/*
LIST 107 1 8
BEGIN
PROMPT 1 9 "Importo a "
PROMPT 1 7 "Importo a "
ITEM "D|Debito"
ITEM "C|Credito"
INPUT 104