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

Patch level : 12.0 738

Browse Source 
Files correlati     : batbiva.msk vetbtip.msk ve0.exe ve1.exe ve5.exe ve6.exe
Commento            :

Aggiunto flag sulla tabella iva per escludere il codice dal calcolo bolli esenti
Sistemata maschera tipi documento
This commit is contained in:
AlexBonazzi 2019-03-21 09:14:00 +01:00
parent 1ae4e8bcc2
commit a4c07bc4f8
2 changed files with 24 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
src/ve/velib03.cpp
View File

@ -504,10 +504,7 @@ real TDocumento::bolli(real & imp, int ndec, TTipo_importo t) const
TCurrency_documento spese_val(spese()); TCurrency_documento spese_val(spese());
spese_val.change_to_firm_val(); spese_val.change_to_firm_val();
const real sp_orig = spese_val.get_num(); const real sp_orig = spese_val.get_num();
bool estero = FALSE; // Assumiamo per ora non estero bool estero = false; // Assumiamo per ora non estero
TString4 codiva_es;
iva_esente(codiva_es);
for (int j = 0; j < 5 && tot_bolli+iva_bolli != old_bolli; j++) for (int j = 0; j < 5 && tot_bolli+iva_bolli != old_bolli; j++)
{ {
@ -516,20 +513,18 @@ real TDocumento::bolli(real & imp, int ndec, TTipo_importo t) const
const real imp_spese = sp_orig + tot_bolli - iva_bolli; const real imp_spese = sp_orig + tot_bolli - iva_bolli;
const real imponibile = importo - imposte - imp_spese; const real imponibile = importo - imposte - imp_spese;
tot_bolli = ZERO; tot_bolli = ZERO;
if (!tipo().nota_credito()) real imponibile_esente;
for (int r = physical_rows(); r > 0; r--)
{ {
real imponibile_esente; const TRiga_documento& riga = ((TDocumento*)this)->row(r);
for (int r = physical_rows(); r > 0; r--) const TCodiceIVA codiva(riga.get(RDOC_CODIVA));
{
const TRiga_documento& riga = ((TDocumento*)this)->row(r);
const TCodiceIVA codiva(riga.get(RDOC_CODIVA));
if (codiva.tipo().not_empty()) if (codiva.tipo().not_empty() && !codiva.escluso_esenti())
imponibile_esente += riga.imponibile(); imponibile_esente += abs(riga.imponibile());
} }
if (imponibile_esente >= impmin_bolli) if (imponibile_esente >= impmin_bolli)
tot_bolli = bolli_es; tot_bolli = bolli_es;
}
pag.set_total(imponibile, imposte, imp_spese); pag.set_total(imponibile, imposte, imp_spese);
pag.set_rate_auto(); pag.set_rate_auto();
@ -540,16 +535,16 @@ real TDocumento::bolli(real & imp, int ndec, TTipo_importo t) const
switch (p) switch (p)
{ {
case _ric_ban: case _ric_ban:
{ {
int i; int j;
for (i = 0; i < nscagl - 1; i++) for (j = 0; j < nscagl - 1; j++)
if ((real &) sca_bolli[i] >= imp) if ((real &)sca_bolli[j] >= imp)
break; break;
if (imp_bolli.items() > 0) if (imp_bolli.items() > 0)
tot_bolli += (real &) imp_bolli[i]; tot_bolli += (real &)imp_bolli[j];
} }
break; break;
case _tratta: case _tratta:
case _tratta_acc: case _tratta_acc:

6
src/ve/vetbtip.uml
View File

@ -234,19 +234,19 @@ END
BOOLEAN F_SPESEAUT BOOLEAN F_SPESEAUT
BEGIN BEGIN
PROMPT 2 14 "Addebito auto spese cliente" PROMPT 2 14 "Add.auto spese cliente"
FIELD B0 FIELD B0
END END
BOOLEAN F_FATCOM BOOLEAN F_FATCOM
BEGIN BEGIN
PROMPT 30 14 "Calcolo fattura commerciale" PROMPT 30 14 "Calc.fatt.commerciale"
FIELD B9 FIELD B9
END END
BOOLEAN F_LORDO BOOLEAN F_LORDO
BEGIN BEGIN
PROMPT 55 14 "Calcolo importi al lordo" PROMPT 55 14 "Calc.importi al lordo"
FIELD B8 FIELD B8
MESSAGE TRUE CLEAR,F_FATCOM MESSAGE TRUE CLEAR,F_FATCOM
MESSAGE FALSE ENABLE,F_FATCOM MESSAGE FALSE ENABLE,F_FATCOM