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

Corretti MI2224 e MI2225.

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3956 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1996-12-04 09:10:39 +00:00
parent 6af9bc3cfd
commit eaae8b57a8
1 changed files with 44 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
cg/cg0400.cpp
View File

@ -252,17 +252,22 @@ void TProgressivi_iva::azzera_mesi()
void TProgressivi_iva::look_pim()
{
TTable pim("PIM");
TTable reg("REG");
TString80 codtab;
TString16 codatt,codiva,tipoiva,codreg;
for (pim.first(); !pim.eof(); pim.next())
{
real imponibile, imposta;
tiporec tipo;
TString80 codtab = pim.get("CODTAB");
codtab = pim.get("CODTAB");
int anno = atoi(codtab.mid(0,4));
int mese = atoi(codtab.mid(13,2));
TString16 codatt = codtab.mid(4,5);
TString16 codiva = codtab.mid(16,4);
TString16 tipoiva = pim.get("S5");
codreg.format("%d%-3s",anno, (const char*)codtab.mid(10,3));
codatt = codtab.mid(4,5);
codiva = codtab.mid(16,4);
tipoiva = pim.get("S5");
codiva = codiva.trim();
codatt = codatt.trim();
@ -282,6 +287,10 @@ void TProgressivi_iva::look_pim()
if (tipoiva == "VE") continue; //i codici iva di tipo "VE"
//Fine //non devono essere stampati
reg.put("CODTAB",codreg);
if (reg.read() != NOERR) reg.zero();
const bool corrisp = reg.get_bool("B0");
while (classify_pim(pim.curr(), imponibile, imposta, tipo, TRUE))
{
switch(tipo)
@ -293,6 +302,15 @@ void TProgressivi_iva::look_pim()
_gen1_array.add_riga(codiva,ZERO,ZERO,imponibile,imposta,ZERO,ZERO);
break;
case vend_norm:
if (corrisp)
{ // Questo perche' i documenti FS sono registrati col segno
// negativo in R0/R1 e col segno positivo in R5/R6,
// quindi per avere l'importo vero e' necessario aggiungerli 2 volte
const real ifs = pim.get_real("R5") * 2.0;
const real vfs = pim.get_real("R6") * 2.0;
imponibile += ifs;
imposta += vfs;
}
if (_mese != 13)
_gen_array.add_riga(codiva,imponibile,imposta,ZERO,ZERO,ZERO,ZERO);
if ((_st_inizio_anno && mese == _mese) || _mese == 13) //lo metto in un array a parte
@ -329,17 +347,22 @@ void TProgressivi_iva::look_pim()
void TProgressivi_iva::cerca_i_pim()
{
TTable pim("PIM");
TTable reg("REG");
TString80 codtab;
TString16 codatt,codiva,tipoiva,codreg;
for (pim.first(); !pim.eof(); pim.next())
{
real imponibile, imposta, impo, impos;
tiporec tipo;
TString80 codtab = pim.get("CODTAB");
codtab = pim.get("CODTAB");
int anno = atoi(codtab.mid(0,4));
TString16 codatt = codtab.mid(4,5);
codatt = codtab.mid(4,5);
int mese = atoi(codtab.mid(13,2));
TString16 codiva = codtab.mid(16,4);
TString16 tipoiva = pim.get("S5");
codreg.format("%d%-3s",anno, (const char*)codtab.mid(10,3));
codiva = codtab.mid(16,4);
tipoiva = pim.get("S5");
if (anno != _annoiva) continue;
@ -361,6 +384,10 @@ void TProgressivi_iva::cerca_i_pim()
impo = impos = ZERO;
reg.put("CODTAB",codreg);
if (reg.read() != NOERR) reg.zero();
const bool corrisp = reg.get_bool("B0");
while (classify_pim(pim.curr(), imponibile, imposta, tipo, FALSE))
{
switch(tipo)
@ -377,6 +404,15 @@ void TProgressivi_iva::cerca_i_pim()
if (_tipoprog == 2) break; //acquisti
if (_sospmsk == 1) //nella maschera e' stato richiesto
{ //vendite in genere
if (corrisp)
{ // Questo perche' i documenti FS sono registrati col segno
// negativo in R0/R1 e col segno positivo in R5/R6,
// quindi per avere l'importo vero e' necessario aggiungerli 2 volte
const real ifs = pim.get_real("R5") * 2.0;
const real vfs = pim.get_real("R6") * 2.0;
imponibile += ifs;
imposta += vfs;
}
impo += imponibile;
impos += imposta;
}