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

Corretto MI2378, relativo ai non soggetti nel totale acquisti

Browse Source 
beni per rivendita.


git-svn-id: svn://10.65.10.50/trunk@5641 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-11-19 17:20:26 +00:00
parent 5a93a9b074
commit bff6efa085
1 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
cg/cg0400.cpp
View File

@ -371,6 +371,18 @@ void TProgressivi_iva::look_pim()
_iva1_array.add_riga(tipo,imponibile,imposta,detr); _iva1_array.add_riga(tipo,imponibile,imposta,detr);
} }
break; break;
case acq_beni_riv:
tabiva.put("CODTAB",codiva);
if (tabiva.read() == NOERR)
// I non soggetti non vanno considerati nel totale acq. beni rivendita
if (tabiva.get("S1") != "NS")
{
if (_mese != 13)
_iva_array.add_riga(tipo,imponibile,imposta,ZERO);
if ((_st_inizio_anno && mese == _mese) || _mese == 13)
_iva1_array.add_riga(tipo,imponibile,imposta,ZERO);
}
break;
default: default:
if (_mese != 13) if (_mese != 13)
_iva_array.add_riga(tipo,imponibile,imposta,ZERO); _iva_array.add_riga(tipo,imponibile,imposta,ZERO);
@ -400,6 +412,7 @@ void TProgressivi_iva::look_pim()
void TProgressivi_iva::cerca_i_pim() void TProgressivi_iva::cerca_i_pim()
{ {
TTable pim("PIM"); TTable pim("PIM");
TTable tabiva("%IVA");
TTable reg("REG"); TTable reg("REG");
TString80 codtab; TString80 codtab;
TString16 codatt,codiva,tipoiva,codreg; TString16 codatt,codiva,tipoiva,codreg;
@ -526,11 +539,15 @@ void TProgressivi_iva::cerca_i_pim()
break; break;
case acq_beni_riv: case acq_beni_riv:
if (_tipoprog == 1) break; if (_tipoprog == 1) break;
if (_tipo_attiv == 1) tabiva.put("CODTAB",codiva);
{ if (tabiva.read() == NOERR)
impo += imponibile; // I non soggetti non vanno considerati nel totale acq. beni rivendita
impos += imposta; if (tabiva.get("S1") != "NS")
} if (_tipo_attiv == 1)
{
impo += imponibile;
impos += imposta;
}
break; break;
case acq_beni_ammort: case acq_beni_ammort:
if (_tipoprog == 1) break; if (_tipoprog == 1) break;