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

160
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);
/*
* se ign == TRUE non bisogna neppure PROGRESSIVARLI
*/
bool ign = sosp_imp || (fattrit && _month != 13);
/*
* se liq == FALSE gli importi non contano ai fini
* 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 ivp = _pim_r->get_real("R1"); // IVA su imp.
@ -811,14 +817,14 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
}
else
{
fsi += asimp_imp;
fsi += asimp_imp;
fsv += asimp_iva;
bdi += bolld_imp;
bdv += bolld_iva;
}
if (liq && tipomov == vendita && !corrisp)
// i corrispettivi sono gestiti a parte
// i corrispettivi sono gestiti a parte
{
// totale vendite
vendite += imponibile;
@ -830,7 +836,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
acquisti += imponibile;
acquisti_iva += imposta;
}
// corrispettivi
bool true_corrisp = FALSE;
if (corrisp)
@ -860,85 +866,85 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
real tot = imponibile+imposta;
if (liq) add_corrisp(month, reg, tot, perc, tipodet, codiva);
}
}
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")
}
else if (tipodoc == "FS")
{
real rr = imponibile + imposta;
imp += rr;
// 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;
imp += rr;
if (liq)
vendite += rr;
add_vendite(month, reg, tipodet, rr);
}
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)
{
// vendite -= imponibile;
// vendite_iva -= imposta;
else // vendite normali a tutti gli effetti
{
if (liq)
{
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;
lor -= imponibile + imposta;
ifs += imponibile;
vfs += imposta;
}
else // vendite normali a tutti gli effetti
{
if (liq)
{
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);
}
if (autodafe) // autofatture non residenti art, 17
{
/*
* 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 (autodafe) // autofatture non residenti art, 17
{
/*
* 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)
{
fci += imponibile;
fcv += imposta;
}
_pim_r->put("B2",isvolaff);
if (corrisp && !true_corrisp)
{
fci += imponibile;
fcv += imposta;
}
_pim_r->put("B2",isvolaff);
if (!sosp_imp)
{
_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);
if (!ign)
{
_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("R10",bdv);
_pim_r->put("R13",fci);