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

Correzioni su reverse charge e note di credito IVA per cassa

Browse Source 
Gestione fatture a zero

git-svn-id: svn://10.65.10.50/branches/R_10_00@23136 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2015-11-30 16:14:27 +00:00
parent 512c28b8a1
commit 88467f8086
12 changed files with 151 additions and 127 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cg/cg0200.cpp
View File

@ -167,7 +167,7 @@ HIDDEN bool no_dup_fis(TMask_field& f, KEY key)
if (clifo.good() && (t1 != t || s1 != s)) if (clifo.good() && (t1 != t || s1 != s))
{ {
f.message_box(FR("Codice fiscale gia' utilizzato per il codice %c/%ld"), f.message_box(FR("Codice fiscale già utilizzato per il codice %c/%ld"),
t, s); t, s);
} }
} }

13
cg/cg2100.cpp
View File

@ -44,7 +44,7 @@ public:
TPrimanota_application::TPrimanota_application() TPrimanota_application::TPrimanota_application()
: _rel(NULL), _mode(0), _iva(nessuna_iva), _causale(NULL), _giornale(NULL), : _rel(NULL), _mode(0), _iva(nessuna_iva), _causale(NULL), _giornale(NULL),
_lastreg(0), _last_dreg(TODAY), _last_dcom(TODAY), _automatico(NULL), _swap_mask(false) _lastreg(0), _automatico(NULL), _swap_mask(false)
{ {
memset(_msk, 0, sizeof(_msk)); memset(_msk, 0, sizeof(_msk));
} }
@ -665,6 +665,17 @@ void TPrimanota_application::init_query_mode(TMask& m)
} }
else else
{ {
if (!_last_dreg.ok())
{
_last_dreg = TDate(TODAY);
TLocalisamfile mov(LF_MOV); mov.setkey(2);
if (mov.last() == NOERR)
{
const TDate dr = mov.get(MOV_DATAREG);
if (dr.year() < _last_dreg.year())
_last_dreg = dr;
}
}
m.set(F_DATAREG, _last_dreg); m.set(F_DATAREG, _last_dreg);
} }

117
cg/cg2102.cpp
View File

@ -87,23 +87,26 @@ real TPrimanota_application::totale_documento()
const TMask& m = curr_mask(); const TMask& m = curr_mask();
real tot = m.get(F_TOTALE); // Legge totale real tot = m.get(F_TOTALE); // Legge totale
const real ritfis = m.get(F_RITFIS); const real ritfis = m.get(F_RITFIS);
tot += ritfis; // Somma ritenute fiscali tot += ritfis; // Somma ritenute fiscali
const real ritsoc = m.get(F_RITSOC); TEdit_field& rc = m.efield(F_REVCHARGE);
const real revcha = m.efield(F_REVCHARGE).active() ? m.get_real(F_REVCHARGE) : ZERO; if (rc.active())
const bool swapt = test_swap(false); // Totale invertito ?
const bool swaps = test_swap(true); // Ritenute sociali invertite ?
if (swapt ^ swaps) // Somma ritenute sociali con segno
{ {
tot -= ritsoc; const real revcha = rc.get();
tot -= revcha; tot += revcha; // Somma eventuale reverse charge
} }
else
const real ritsoc = m.get(F_RITSOC);
if (!ritsoc.is_zero())
{ {
tot += ritsoc; const bool swapt = test_swap(false); // Totale invertito ?
tot += revcha; const bool swaps = test_swap(true); // Ritenute sociali invertite ?
if (swapt ^ swaps) // Somma ritenute sociali con segno
tot -= ritsoc;
else
tot += ritsoc;
} }
return tot; return tot;
@ -226,21 +229,23 @@ void TPrimanota_application::set_cgs_imp(int n, const TImporto& imp)
// Certified 100% // Certified 100%
TImporto TPrimanota_application::get_cgs_imp(int n) const TImporto TPrimanota_application::get_cgs_imp(int n) const
{ {
TSheet_field& s = cgs();
TImporto importo; TImporto importo;
const TMask& m = s.sheet_mask(); TSheet_field& s = cgs();
if (m.is_running() && s.selected() == n) if (n >= 0 && n < s.items())
{ {
const TString& imp = m.get(CG_DARE); const TMask& m = s.sheet_mask();
if (imp.not_empty()) if (m.is_running() && s.selected() == n)
importo.set('D', real(imp)); {
else const TString& imp = m.get(CG_DARE);
importo.set('A', real(m.get(CG_AVERE))); if (imp.not_empty())
importo.set('D', real(imp));
else
importo.set('A', real(m.get(CG_AVERE)));
}
else
importo = s.row(n);
} }
else
importo = s.row(n);
return importo; return importo;
} }
@ -452,21 +457,30 @@ void TPrimanota_application::cgs_pack()
rowtypes_present |= (rt > ' '); rowtypes_present |= (rt > ' ');
if (can_remove(r)) bool kill = can_remove(r);
if (kill)
{ {
bool ok = true; if (pagamento)
if (pagamento && rt == 'K')
{ {
ok = !partite().utilizzata(numreg, i+1); if (rt == 'K')
if (ok) {
cg_notify(s, i, K_DEL); kill = !partite().utilizzata(numreg, i+1);
} if (kill)
if (ok) cg_notify(s, i, K_DEL);
}
}
else
{
// Non eliminare lre righe cliente delle fatture a zero
if (rt == 'T' && r.get_char(2)>='C' && curr_mask().get_real(F_TOTALE).is_zero())
kill = false;
}
if (kill)
rows.destroy(i, true); rows.destroy(i, true);
} }
} }
if (!pagamento && rowtypes_present) // Il pagamento e' gia' ordinato if (!pagamento && rowtypes_present) // Il pagamento e' gia' ordinato
rows.TArray::sort(compare_rows, &app()); // Pack and sort array rows.TArray::sort(compare_rows, this); // Pack and sort array
} }
@ -611,19 +625,20 @@ bool TPrimanota_application::cg_handler(TMask_field& f, KEY k)
for (int i = 0; i < cg.items(); i++) for (int i = 0; i < cg.items(); i++)
{ {
TToken_string& r = cg.row(i); TToken_string& r = cg.row(i);
const char tipo = row_type(r);
TImporto importo; importo = r; TImporto importo; importo = r;
if (!importo.is_zero()) if (!importo.is_zero())
{ {
TBill c(r, 2, 0x1); TBill c(r, 2, 0x1);
if (!c.ok()) if (!c.ok())
return f.error_box(FR("Il conto della riga %d non e' completo"), i+1); return f.error_box(FR("Il conto della riga %d non è completo"), i+1);
if (m.insert_mode() && c.sospeso()) if (m.insert_mode() && c.sospeso())
return f.error_box(FR("Il conto della riga %d e' sospeso"), i+1); return f.error_box(FR("Il conto della riga %d è sospeso"), i+1);
TBill co(r, 10, 0x0); TBill co(r, 10, 0x0);
if (!co.empty() && !co.ok()) if (!co.empty() && !co.ok())
{ {
const bool ok = f.yesno_box(FR("La contropartita della riga %d non e' completa:\n" const bool ok = f.yesno_box(FR("La contropartita della riga %d non è completa:\n"
"Si desidera continuare ugualmente?"), i+1); "Si desidera continuare ugualmente?"), i+1);
if (!ok) return false; if (!ok) return false;
} }
@ -640,7 +655,6 @@ bool TPrimanota_application::cg_handler(TMask_field& f, KEY k)
empty = false; empty = false;
if (paga || nota) if (paga || nota)
{ {
const char tipo = row_type(r);
if (tipo == 'K' || tipo == 'T' || a._as400) if (tipo == 'K' || tipo == 'T' || a._as400)
{ {
const int currig = i+1; const int currig = i+1;
@ -700,12 +714,20 @@ bool TPrimanota_application::cg_handler(TMask_field& f, KEY k)
} }
} }
} }
}
else
{
if (tipo == 'T' && a.is_fattura())
{
const TBill c(r, 2, 0x1);
if (c.tipo() >= 'C') // Riga cliente/fornitore
empty = false; // Permetto movimenti a ZERO con IVA assente
}
} }
} }
if (empty) if (empty)
return f.error_box(TR("Il movimento non ha nessuna riga contabile con un importo")); return f.error_box(TR("Il movimento non ha righe contabili con un importo"));
if ((paga || nota) && !a._as400) if ((paga || nota) && !a._as400)
{ {
@ -2245,11 +2267,12 @@ bool TPrimanota_application::caus_modify_handler(TMask_field& f, KEY key)
return false; return false;
bool init_provv_rev = false; bool init_provv_rev = false;
bool mask_ok = true;
TPrimanota_application& a = app(); TPrimanota_application& a = app();
const TCausale& k = a.causale(); const TCausale& k = a.causale();
const TString& msg = c.compatible(k); const TString& msg = c.compatible(k);
if (msg.not_empty()) // La causale non e' compatibile if (msg.not_empty()) // La causale non è compatibile
{ {
if (m.insert_mode() && !a._sal_dirty) if (m.insert_mode() && !a._sal_dirty)
{ {
@ -2259,19 +2282,21 @@ bool TPrimanota_application::caus_modify_handler(TMask_field& f, KEY key)
} }
if (!init_provv_rev) if (!init_provv_rev)
return error_box(msg); return error_box(msg);
mask_ok = a._msk[c.iva() == nessuna_iva ? 1 : 2] != NULL;
} }
if (key == K_TAB) if (key == K_TAB)
{ {
a.read_caus(cau, ann); a.read_caus(cau, ann);
a.cgs().force_update(); if (mask_ok) // Non tentare di aggiornare sheet al momento inesistente essendo la causale incompatibile
a.cgs().force_update();
} }
if (init_provv_rev) if (init_provv_rev)
{ {
TString4 provv; provv << c.provvisorio(); TString4 provv; provv << c.provvisorio();
m.set(F_PROVVISORIO, provv); m.set(F_PROVVISORIO, provv);
if (c.iva() != nessuna_iva) if (c.iva() != nessuna_iva && mask_ok)
{ {
m.set(F_SOLAIVA, c.soloiva() ? "X" : " "); m.set(F_SOLAIVA, c.soloiva() ? "X" : " ");
m.efield(F_REVCHARGE).show(c.iva() == iva_acquisti && c.reverse_charge()); m.efield(F_REVCHARGE).show(c.iva() == iva_acquisti && c.reverse_charge());
@ -3025,7 +3050,7 @@ static void force_iva_det_bill()
TToken_string conto(contoiva.string(0x3)); TToken_string conto(contoiva.string(0x3));
const TString80 descragg(cau.desc_agg(ri)); const TString80 descragg(cau.desc_agg(ri));
const int rowtype = cgs.cid2index(CG_ROWTYPE); const int rt = cgs.cid2index(CG_ROWTYPE);
const int tp = cgs.cid2index(CG_TIPO); const int tp = cgs.cid2index(CG_TIPO);
const int gr = cgs.cid2index(CG_GRUPPO); const int gr = cgs.cid2index(CG_GRUPPO);
const int co = cgs.cid2index(CG_CONTO); const int co = cgs.cid2index(CG_CONTO);
@ -3034,8 +3059,8 @@ static void force_iva_det_bill()
FOR_EACH_SHEET_ROW(cgs, r, row) FOR_EACH_SHEET_ROW(cgs, r, row)
{ {
const TString4 type(row->get(rowtype)); const char rtype = row->get_char(rt);
if (type == "D") if (rtype == 'D')
{ {
row->add(conto.get(0), tp); row->add(conto.get(0), tp);
row->add(conto.get(), gr); row->add(conto.get(), gr);

6
cg/cg2102.h
View File

@ -211,9 +211,9 @@ protected:
bool npart_is_prot() const { return _npart_is_prot; } bool npart_is_prot() const { return _npart_is_prot; }
bool is_saldaconto() const { return _is_saldaconto; } bool is_saldaconto() const { return _is_saldaconto; }
bool is_fattura() const { return is_saldaconto() && causale().tipomov() == 1; } bool is_fattura() const { return is_saldaconto() && causale().tipomov() == tm_fattura; }
bool is_nota_credito() const { return is_saldaconto() && causale().tipomov() == 2; } bool is_nota_credito() const { return is_saldaconto() && causale().tipomov() == tm_nota_credito; }
bool is_pagamento() const { return is_saldaconto() && causale().tipomov() >= 3; } bool is_pagamento() const { return is_saldaconto() && causale().tipomov() >= tm_pagamento; }
bool activate_split_payment(TMask& m); bool activate_split_payment(TMask& m);
bool is_split_payment() const; bool is_split_payment() const;
bool is_fattura_split() const; bool is_fattura_split() const;

2
cg/cg2103.cpp
View File

@ -283,7 +283,7 @@ const TString& TCausale::compatible(const TCausale& c) const
if (err != NULL) if (err != NULL)
{ {
TString& msg = get_tmp_string(); TString& msg = get_tmp_string();
msg.format(FR("La causale e' incompatibile per %s"), err); msg.format(FR("Causale incompatibile per %s"), err);
return msg; return msg;
} }

4
cg/cg4300.h
View File

@ -9,10 +9,6 @@
#include <printapp.h> #include <printapp.h>
#endif #endif
#ifndef __TABUTIL_H
#include <tabutil.h>
#endif
#ifndef __CGLIB03_H #ifndef __CGLIB03_H
#include "cglib03.h" #include "cglib03.h"
#endif #endif

41
cg/cg4301.cpp
View File

@ -226,10 +226,10 @@ bool TLiquidazione_app::update_firm(int month, bool recalc)
if (_prind) if (_prind)
{ {
TString buf(80); TString buf(127);
buf.format( _printonly ? FR("Stampa liquidazione (mese %d %d)...\n%s:\n%s\n") : buf.format( _printonly ? FR("Stampa liquidazione %s %d...\n%s:\n%s\n") :
FR("Calcolo liquidazione (mese %d %d)...\n%s:\n%s\n"), FR("Calcolo liquidazione %s %d...\n%s:\n%s\n"),
month, atoi(_year), (const char*)_nditte_r->get(NDT_RAGSOC), (const char*)desatt); itom(month), atoi(_year), (const char*)_nditte_r->get(NDT_RAGSOC), (const char*)desatt);
_prind->set_text(buf); _prind->set_text(buf);
} }
@ -698,8 +698,12 @@ bool TLiquidazione_app::residuo_da_liquidare(const TRectype& lastid, real& impor
bool is_good = imponib.valore() > ZERO; bool is_good = imponib.valore() > ZERO;
if (!is_good) if (!is_good)
{ {
const real totdoc = cache().get(LF_MOV, numreg, MOV_TOTDOC); const TRectype& mov_head = cache().get(LF_MOV, numreg);
is_good = totdoc > ZERO; int good_sign = +1;
if (mov_head.get_int(MOV_TIPOMOV) == tm_fattura && mov_head.get(MOV_TIPODOC) == "NC")
good_sign = -1;
const real totdoc = mov_head.get(MOV_TOTDOC);
is_good = totdoc.sign() == good_sign;
} }
if (is_good) if (is_good)
{ {
@ -1022,14 +1026,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
const TDate fromdate(1, month == 13 ? 1 : month, year_int); const TDate fromdate(1, month == 13 ? 1 : month, year_int);
TDate t; TDate t;
TDate f74;
// Spiegazione dell'arcano segreto sulle agenzie viaggio:
// non viene applicato lo stesso metodo delle ditte normali perche' si deve
// tenere conto della DATA74TER se presente.
// Per le agenzie di viaggio si parte da inizio anno precedente
if (_isviaggio)
f74 = TDate(1, 1, year_int-1);
if (_recalc_regis) // Vecchia selezione prima del 1998 o calcolo progressivi per stampa registri bollati if (_recalc_regis) // Vecchia selezione prima del 1998 o calcolo progressivi per stampa registri bollati
{ {
@ -1052,14 +1049,20 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
from.put(MOV_REG, fromreg); from.put(MOV_REG, fromreg);
to.put(MOV_REG, toreg); to.put(MOV_REG, toreg);
_cur->freeze(FALSE); _cur->freeze(false);
_cur->setregion(from, to); _cur->setregion(from, to);
TString filter; TString filter;
//filter.format("((ANSI(DATAREG)>=%ld)&&(ANSI(DATAREG)<=%ld))", fromdate.date2ansi(), t.date2ansi());
filter.format("(BETWEEN(DATAREG,%ld,%ld))", fromdate.date2ansi(), t.date2ansi()); filter.format("(BETWEEN(DATAREG,%ld,%ld))", fromdate.date2ansi(), t.date2ansi());
if (_isviaggio) if (_isviaggio)
{
// Spiegazione dell'arcano segreto sulle agenzie viaggio:
// non viene applicato lo stesso metodo delle ditte normali perche' si deve
// tenere conto della DATA74TER se presente.
// Per le agenzie di viaggio si parte da inizio anno precedente
const TDate f74(1, 1, year_int-1);
filter << format("||(BETWEEN(DATA74TER,%ld,%ld))", f74.date2ansi(), t.date2ansi()); filter << format("||(BETWEEN(DATA74TER,%ld,%ld))", f74.date2ansi(), t.date2ansi());
}
if (_isdiff) if (_isdiff)
filter << "||(NUM(LIQDIFF==\"X\"))"; filter << "||(NUM(LIQDIFF==\"X\"))";
if (has_sc && gestione_IVAxCassa(fromdate)) if (has_sc && gestione_IVAxCassa(fromdate))
@ -1077,7 +1080,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
TString pimsg; TString pimsg;
pimsg << TR("Ricalcolo attività ") << trueatt << " (" << TR("mese ") pimsg << TR("Ricalcolo attività ") << trueatt << " (" << TR("mese ")
<< (month > 12 ? "13" : itom(month)) << ')'; << (month > 12 ? "13" : itom(month)) << ' ' << year_int << ')';
TProgress_monitor pi(items, pimsg, false); TProgress_monitor pi(items, pimsg, false);
for (; _cur->pos() < items; ++(*_cur)) for (; _cur->pos() < items; ++(*_cur))
@ -1103,7 +1106,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
} }
#ifndef NDEBUG #ifndef NDEBUG
if (_mov->get_long(MOV_NUMREG) == 113678) if (_mov->get_long(MOV_NUMREG) == 19956)
int cazzone = 1; int cazzone = 1;
#endif #endif
@ -1141,7 +1144,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
// Sezione preferita per fatture decisa in base a vendita->'A' o acquisto->'D' // Sezione preferita per fatture decisa in base a vendita->'A' o acquisto->'D'
const char sezfat = tipomov == vendita ? 'D' : 'A'; const char sezfat = tipomov == vendita ? 'D' : 'A';
const char sezpag = tipomov == vendita ? 'A' : 'D'; const char sezpag = (sezfat=='D') ? 'A' : 'D';
const long numreg = _mov->get_long(MOV_NUMREG); const long numreg = _mov->get_long(MOV_NUMREG);
TDate datainc; TDate datainc;
real tot_incassato, tot_da_incassare; real tot_incassato, tot_da_incassare;
@ -1160,7 +1163,7 @@ void TLiquidazione_app::recalc_att(int month, const char* codatt)
flag_pg_nc = rp.calcola_pagato_periodo(inizio+1L, fine, pg, nc, &pagscatt); flag_pg_nc = rp.calcola_pagato_periodo(inizio+1L, fine, pg, nc, &pagscatt);
if (pagscatt.items() >= 2) if (pagscatt.items() >= 2)
{ {
// Fondo righe generate dallo stesso pagamento // Fondo tra loro le righe generate dallo stesso pagamento
for (int p = pagscatt.last(); p > 0; p--) for (int p = pagscatt.last(); p > 0; p--)
{ {
const TRectype& p0 = (const TRectype&)pagscatt[p]; const TRectype& p0 = (const TRectype&)pagscatt[p];

31
cg/cg4400.cpp
View File

@ -16,6 +16,7 @@
#include <progind.h> #include <progind.h>
#include <recarray.h> #include <recarray.h>
#include <recset.h> #include <recset.h>
#include <sheet.h>
#include <utility.h> #include <utility.h>
#include <anagr.h> #include <anagr.h>
@ -150,8 +151,7 @@ void TStampa_registri_app::get_dati_ditta()
if (_cap.empty()) if (_cap.empty())
_cap = anag.get(ANA_CAPRES); _cap = anag.get(ANA_CAPRES);
const TRectype& dep = look_comuni (_comunefis); const TRectype& dep = look_comuni(_comunefis);
_comunefis = dep.get(COM_DENCOM); _comunefis = dep.get(COM_DENCOM);
_provfis = dep.get(COM_PROVCOM); _provfis = dep.get(COM_PROVCOM);
if (_comunefis.empty()) if (_comunefis.empty())
@ -1965,7 +1965,8 @@ bool TStampa_registri_app::print_IVAxCassa(int da_month, int a_month)
} }
TString query; TString query;
query = "USE IVADIFF SELECT (BETWEEN(DATAREGP,#DAL,#AL))&&(MOV.REG=#REG)&&(STR((MESELIQ<13)&&(TIPOMOV>2)&&(MOV.TOTDOC>0)))"; // query = "USE IVADIFF SELECT (BETWEEN(DATAREGP,#DAL,#AL))&&(MOV.REG=#REG)&&(STR((MESELIQ<13)&&(TIPOMOV>2)&&(MOV.TOTDOC>0)))";
query = "USE IVADIFF SELECT (BETWEEN(DATAREGP,#DAL,#AL))&&(MOV.REG=#REG)&&(STR((MESELIQ<13)&&(TIPOMOV>2)&&(MOV.TOTDOC!=0)))"; // 17-11-2015 trasformato in MOV.TOTDOC!=0
query << "\nBY DATAREGP DATAREG NUMPRO"; query << "\nBY DATAREGP DATAREG NUMPRO";
query << "\nJOIN MOV INTO NUMREG==NUMREG"; query << "\nJOIN MOV INTO NUMREG==NUMREG";
query << "\nJOIN CLIFO TO MOV INTO TIPOCF==TIPO CODCF==CODCF"; query << "\nJOIN CLIFO TO MOV INTO TIPOCF==TIPO CODCF==CODCF";
@ -2042,13 +2043,13 @@ bool TStampa_registri_app::print_IVAxCassa(int da_month, int a_month)
const TRectype& rec = id.cursor()->curr(); const TRectype& rec = id.cursor()->curr();
for (bool ok = id.move_first(); ok; ok = id.move_next()) for (bool ok = id.move_first(); ok; ok = id.move_next())
{ {
const TString4 codiva = rec.get("CODIVA"); const TString4 codiva = rec.get("CODIVA");
const real importo = rec.get("IMPORTO"); const real importo = rec.get("IMPORTO");
const real imponibile = rec.get("IMPONIBILE"); const real imponibile = rec.get("IMPONIBILE");
const real imposta = rec.get("IMPOSTA"); const real imposta = rec.get("IMPOSTA");
const int tipodiff = rec.get_int("TIPODIFF"); const int tipodiff = rec.get_int("TIPODIFF");
TString rs = id.get("CLIFO.RAGSOC").as_string(); TString80 rs = id.get("CLIFO.RAGSOC").as_string();
rs.strip_double_spaces(); rs.strip_double_spaces();
TParagraph_string clifo(rs, 27); TParagraph_string clifo(rs, 27);
@ -2312,15 +2313,17 @@ bool TStampa_registri_app::preprocess_page(int file, int counter)
const bool liqdiff = !splitpay && mov.get_bool(MOV_LIQDIFF); const bool liqdiff = !splitpay && mov.get_bool(MOV_LIQDIFF);
const bool IVAxcassa= !splitpay && !liqdiff && mov.get_bool(MOV_IVAXCASSA); const bool IVAxcassa= !splitpay && !liqdiff && mov.get_bool(MOV_IVAXCASSA);
TString80 descrcau = caus.get(CAU_DESCR); const TString80 descrcau = caus.get(CAU_DESCR);
real totdoc = mov.get_real(MOV_TOTDOC); real totdoc = mov.get(MOV_TOTDOC);
real ritsoc = mov.get_real(MOV_RITSOC); real ritsoc = mov.get(MOV_RITSOC);
real ritfis = mov.get_real(MOV_RITFIS); real ritfis = mov.get(MOV_RITFIS);
real revcha = is_reverse_charge(mov.curr()) ? mov.get_real(MOV_REVCHARGE) : ZERO;
if (totdoc < ZERO) // Controlla il segno corretto da assegnare alle ritenute if (totdoc < ZERO) // Controlla il segno corretto da assegnare alle ritenute
{ {
ritsoc = -ritsoc; ritsoc = -ritsoc;
ritfis = -ritfis; ritfis = -ritfis;
revcha = -revcha;
} }
if (_cur->pos() == 0) if (_cur->pos() == 0)
@ -2391,7 +2394,7 @@ bool TStampa_registri_app::preprocess_page(int file, int counter)
_descr_doc = descr_doc(); _descr_doc = descr_doc();
TString app(datadoc.string(brief, '/')); TString app(datadoc.string(brief, '/'));
totdoc += ritsoc+ritfis; totdoc += ritsoc+ritfis+revcha;
if (_st_tot_fin) if (_st_tot_fin)
_doc_array.add_riga(_tipodoc,_descr_doc,totdoc); _doc_array.add_riga(_tipodoc,_descr_doc,totdoc);

35
cg/cg4a00.cpp
View File

@ -19,7 +19,7 @@ static int __anno;
bool cau_filter1 (const TRelation *r) bool cau_filter1 (const TRelation *r)
{ {
bool rt = FALSE; bool rt = false;
const TRectype& rec = r->curr(LF_CAUSALI); const TRectype& rec = r->curr(LF_CAUSALI);
if (rec.get(CAU_TIPODOC) == "ST") // Solo i tipi documento STorno if (rec.get(CAU_TIPODOC) == "ST") // Solo i tipi documento STorno
@ -39,7 +39,7 @@ bool cau_filter1 (const TRelation *r)
return rt; return rt;
} }
bool cau_filter2 (const TRelation *r) bool cau_filter2(const TRelation *r)
{ {
bool rt = false; bool rt = false;
const TRectype& rec = r->curr(LF_CAUSALI); const TRectype& rec = r->curr(LF_CAUSALI);
@ -103,7 +103,7 @@ bool TGestAutoTrasp_mask::on_key(KEY k)
sf.enable_column(F_NUMPROT - F_CAUMOV); sf.enable_column(F_NUMPROT - F_CAUMOV);
const int items = sf.items(); const int items = sf.items();
for (int i=0; i<items;i++) for (int i=0; i<items; i++)
sf.disable_cell(i, F_NUMPROT - F_CAUMOV); sf.disable_cell(i, F_NUMPROT - F_CAUMOV);
sf.enable_cell(rs, F_NUMPROT - F_CAUMOV); sf.enable_cell(rs, F_NUMPROT - F_CAUMOV);
@ -116,20 +116,15 @@ bool TGestAutoTrasp_mask::on_key(KEY k)
void TGestAutoTrasp_mask::fill_sheet(const short id) void TGestAutoTrasp_mask::fill_sheet(const short id)
{ {
TDate fromdate, todate; const TDate fromdate = get_date(F_DADATA);
TString16 codreg; const TDate todate = get_date(F_ADATA);
const TString4 codreg = get(F_CODREG);
fromdate = get_date(F_DADATA); if (fromdate.ok() && todate.ok() && codreg.full())
todate = get_date(F_ADATA);
codreg = get(F_CODREG);
if (fromdate.ok() && todate.ok() && codreg.not_empty())
{ {
TRectype fromrec(LF_MOV); TRectype fromrec(LF_MOV);
TRectype torec(LF_MOV); TRectype torec(LF_MOV);
TString filter; TString filter;
TString4 caus;
filter << "(REG==\"" << codreg << "\")"; filter << "(REG==\"" << codreg << "\")";
filter << "&&((STAMPATO!=\"X\")&&(REGST!=\"X\"))"; filter << "&&((STAMPATO!=\"X\")&&(REGST!=\"X\"))";
fromrec.put(MOV_DATAREG, fromdate); fromrec.put(MOV_DATAREG, fromdate);
@ -141,10 +136,7 @@ void TGestAutoTrasp_mask::fill_sheet(const short id)
_cur = new TCursor(_rel, filter, 2, &fromrec, &torec); _cur = new TCursor(_rel, filter, 2, &fromrec, &torec);
TRectype& rc = _cur->curr(); TRectype& rc = _cur->curr();
const TRecnotype items = _cur->items(); const TRecnotype items = _cur->items();
TProgind* pi = NULL; TProgress_monitor pi(items, TR("Selezione movimenti..."));
if (items > 10)
pi = new TProgind(items, TR("Selezione movimenti..."), FALSE, TRUE);
TLocalisamfile causali(LF_CAUSALI); TLocalisamfile causali(LF_CAUSALI);
@ -157,9 +149,9 @@ void TGestAutoTrasp_mask::fill_sheet(const short id)
_caudef.destroy(); _caudef.destroy();
for (*_cur = 0L; _cur->pos() < items; ++(*_cur)) for (*_cur = 0L; _cur->pos() < items; ++(*_cur))
{ {
if (pi) if (!pi.add_status(1))
pi->addstatus(1L); break;
caus = rc.get(MOV_CODCAUS); const TString4 caus = rc.get(MOV_CODCAUS);
if (!_caudef.is_key(caus)) // Se non è stata ancora aggiunta questa causale... if (!_caudef.is_key(caus)) // Se non è stata ancora aggiunta questa causale...
{ {
TToken_string* tt = new TToken_string; TToken_string* tt = new TToken_string;
@ -175,10 +167,7 @@ void TGestAutoTrasp_mask::fill_sheet(const short id)
sa.add(tt); sa.add(tt);
} }
} }
if (pi)
delete pi;
sf.force_update(); // Aggiorna lo sheet sf.force_update(); // Aggiorna lo sheet
if (items == 0) if (items == 0)

11
cg/cglib01.cpp
View File

@ -286,7 +286,7 @@ bool TEsercizi_contabili::code2range(int codice, TDate& dal, TDate& al) const
if (!ok) if (!ok)
{ {
if(codice > 1900) if (codice > 1900)
{ {
dal = TDate(1, 1, codice); dal = TDate(1, 1, codice);
al = TDate(31, 12, codice); al = TDate(31, 12, codice);
@ -504,15 +504,12 @@ bool TRegistro::read_att()
return !_att.empty(); return !_att.empty();
} }
bool TRegistro::agenzia_viaggi() bool TRegistro::agenzia_viaggi() const
{ {
bool av = false; return _att.get_bool("REG74TER") && (iva() == iva_vendite);
if (iva() == iva_vendite)
av = _att.get_bool("REG74TER");
return av;
} }
const TString& TRegistro::tipo_attivita() const TString& TRegistro::tipo_attivita() const
{ {
return _att.get("TIPOATT"); return _att.get("TIPOATT");
} }

14
cg/cglib01.h
View File

@ -110,9 +110,9 @@ public:
long protocol() const { return _rec.get_long("I5"); } long protocol() const { return _rec.get_long("I5"); }
const TString& attivita() const { return _rec.get("S8"); } const TString& attivita() const { return _rec.get("S8"); }
bool agenzia_viaggi(); bool agenzia_viaggi() const;
const TString& tipo_attivita(); const TString& tipo_attivita() const;
bool attivita_mista() { const char a = tipo_attivita()[0]; return a == 'E'; } bool attivita_mista() const { const char a = tipo_attivita()[0]; return a == 'E'; }
void set_prorata(int annodoc, const real& pro); void set_prorata(int annodoc, const real& pro);
real prorata(int annodoc); real prorata(int annodoc);
@ -193,15 +193,15 @@ public: // TObject
public: public:
TBill(int g = 0, int c = 0, long s = 0L, char t = ' ', const char* d = NULL, int r = -1) TBill(int g = 0, int c = 0, long s = 0L, char t = ' ', const char* d = NULL, int r = -1)
: _tipo(t), _gruppo(g), _conto(c), _sottoconto(s), _descrizione(NULL), : _tipo(t), _gruppo(g), _conto(c), _sottoconto(s), _descrizione(NULL),
_sezione(' '), _sospeso(FALSE) _sezione(' '), _sospeso(false)
{ set(g,c,s,t,d,r);} { set(g,c,s,t,d,r);}
TBill(TToken_string& tgcsd, int from, int mode = 0) TBill(TToken_string& tgcsd, int from, int mode = 0)
: _descrizione(NULL), _sezione(' '), _sospeso(FALSE) : _descrizione(NULL), _sezione(' '), _sospeso(false)
{ get(tgcsd, from, mode); } { get(tgcsd, from, mode); }
TBill(const TRectype& rec, bool contro = FALSE) TBill(const TRectype& rec, bool contro = false)
: _descrizione(NULL), _sezione(' '), _sospeso(FALSE) : _descrizione(NULL), _sezione(' '), _sospeso(false)
{ get(rec, contro); } { get(rec, contro); }
TBill(const TBill& b) TBill(const TBill& b)

2
cg/cglib03.cpp
View File

@ -162,7 +162,7 @@ static bool mov_has_imposte(const TRectype& mov)
bool is_reverse_charge(const TRectype& mov) bool is_reverse_charge(const TRectype& mov)
{ {
const TRectype& rcs = cache().get(LF_CAUSALI, mov.get(MOV_CODCAUS)); const TRectype& rcs = cache().get(LF_CAUSALI, mov.get(MOV_CODCAUS));
const int rsi = rcs.get_int(CAU_REGSPIVA); // Regime speciale IVA const int rsi = rcs.get_int(CAU_REGSPIVA); // Regime speciale IVA
return rsi == 13 || rsi == 50 || rsi == 51; // Reverse charge! return rsi == 13 || rsi == 50 || rsi == 51; // Reverse charge!
} }