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

Fatture in ritardo

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1150 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-03-22 09:32:19 +00:00
parent ca8c00bfce
commit 5ad08f7a90
1 changed files with 83 additions and 77 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

148
cg/cg4301.cpp
View File

@ -757,11 +757,17 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
look_pim(month, codatt, reg, tipocr_s, codiva, tipodet, TRUE); look_pim(month, codatt, reg, tipocr_s, codiva, tipodet, TRUE);
/*
* se ign == TRUE non bisogna neppure PROGRESSIVARLI
*/
bool ign = sosp_imp || (fattrit && _month != 13);
/* /*
* se liq == FALSE gli importi non contano ai fini * se liq == FALSE gli importi non contano ai fini
* del calcolo liquidazione * del calcolo liquidazione
*/ */
bool liq = !(tipodet == 1 || tipodet == 3 || tipodet == 9 || sosp_imp); bool liq = !(tipodet == 1 || tipodet == 3 || tipodet == 9 || ign);
real imp = _pim_r->get_real("R0"); // imponibile real imp = _pim_r->get_real("R0"); // imponibile
real ivp = _pim_r->get_real("R1"); // IVA su imp. real ivp = _pim_r->get_real("R1"); // IVA su imp.
@ -811,14 +817,14 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
} }
else else
{ {
fsi += asimp_imp; fsi += asimp_imp;
fsv += asimp_iva; fsv += asimp_iva;
bdi += bolld_imp; bdi += bolld_imp;
bdv += bolld_iva; bdv += bolld_iva;
} }
if (liq && tipomov == vendita && !corrisp) if (liq && tipomov == vendita && !corrisp)
// i corrispettivi sono gestiti a parte // i corrispettivi sono gestiti a parte
{ {
// totale vendite // totale vendite
vendite += imponibile; vendite += imponibile;
@ -861,84 +867,84 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
if (liq) add_corrisp(month, reg, tot, perc, tipodet, codiva); if (liq) add_corrisp(month, reg, tot, perc, tipodet, codiva);
} }
} }
else if (tipodoc == "FS") else if (tipodoc == "FS")
{
// queste sono fatture che seguono scontrino, il lordo va detratto
// perche' si e' gia' registrato lo scontrino medesimo
true_corrisp = TRUE; // non e' vero ma non devono essere sommate ai falsi
// corrispettivi
if (tipoiva == "VE")
{ {
real rr = imponibile + imposta; // queste sono fatture che seguono scontrino, il lordo va detratto
imp += rr; // perche' si e' gia' registrato lo scontrino medesimo
true_corrisp = TRUE; // non e' vero ma non devono essere sommate ai falsi
// corrispettivi
if (tipoiva == "VE")
{
real rr = imponibile + imposta;
imp += rr;
if (liq)
vendite += rr;
add_vendite(month, reg, tipodet, rr);
}
if (liq) if (liq)
vendite += rr; {
add_vendite(month, reg, tipodet, rr); // vendite -= imponibile;
// vendite_iva -= imposta;
}
imp -= imponibile;
ivp -= imposta;
lor -= imponibile + imposta;
ifs += imponibile;
vfs += imposta;
} }
if (liq) else // vendite normali a tutti gli effetti
{ {
// vendite -= imponibile; if (liq)
// vendite_iva -= imposta; {
vendite += imponibile;
vendite_iva += imposta;
}
imp += imponibile;
ivp += imposta;
fci += imponibile;
fcv += imposta;
_pim_r->put("I0",NETTO);
}
} // if corrisp
else // non corrisp
{ // imponibile e imposta separata
imp += imponibile;
ivp += imposta;
_pim_r->put("I0",NETTO);
} }
imp -= imponibile;
ivp -= imposta; if (autodafe) // autofatture non residenti art, 17
lor -= imponibile + imposta;
ifs += imponibile;
vfs += imposta;
}
else // vendite normali a tutti gli effetti
{
if (liq)
{ {
vendite += imponibile; /*
vendite_iva += imposta; * Si devono riportare a parte in annuale
* e non comparire nel riepilogo del codice IVA
* corrispondente, solo se la liq. e' annuale
* Li metto in R7/R8 di pim e li sommo anche nelle
* vendite; la describe_pim() dovra' sommarli su tutti i
* pim, scorporarli dalle rispettive vendite
* e assegnarli al codice IVA A35 in caso di liq. annuale
*/
adf += imponibile;
adi += imposta;
} }
imp += imponibile;
ivp += imposta; if (corrisp && !true_corrisp)
fci += imponibile; {
fcv += imposta; fci += imponibile;
_pim_r->put("I0",NETTO); fcv += imposta;
} }
} // if corrisp
else // non corrisp
{ // imponibile e imposta separata
imp += imponibile;
ivp += imposta;
_pim_r->put("I0",NETTO);
}
if (autodafe) // autofatture non residenti art, 17 _pim_r->put("B2",isvolaff);
{
/*
* Si devono riportare a parte in annuale
* e non comparire nel riepilogo del codice IVA
* corrispondente, solo se la liq. e' annuale
* Li metto in R7/R8 di pim e li sommo anche nelle
* vendite; la describe_pim() dovra' sommarli su tutti i
* pim, scorporarli dalle rispettive vendite
* e assegnarli al codice IVA A35 in caso di liq. annuale
*/
adf += imponibile;
adi += imposta;
}
if (corrisp && !true_corrisp) if (!ign)
{ {
fci += imponibile; _pim_r->put("R0",imp);
fcv += imposta; _pim_r->put("R1",ivp);
} _pim_r->put("R2",lor);
_pim_r->put("R5",ifs);
_pim_r->put("B2",isvolaff); _pim_r->put("R6",vfs);
_pim_r->put("R7",adf);
if (!sosp_imp) _pim_r->put("R8",adi);
{
_pim_r->put("R0",imp);
_pim_r->put("R1",ivp);
_pim_r->put("R2",lor);
_pim_r->put("R5",ifs);
_pim_r->put("R6",vfs);
_pim_r->put("R7",adf);
_pim_r->put("R8",adi);
_pim_r->put("R9",bdi); _pim_r->put("R9",bdi);
_pim_r->put("R10",bdv); _pim_r->put("R10",bdv);
_pim_r->put("R13",fci); _pim_r->put("R13",fci);