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

git-svn-id: svn://10.65.10.50/branches/R_10_00@23077 c028cbd2-c16b-5b4b-a496-9718f37d4682

Browse Source
This commit is contained in:
guy 2015-05-04 14:32:41 +00:00
parent d183897d21
commit 215823a913
3 changed files with 158 additions and 117 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
cg/cg2100a.uml
View File

@ -56,7 +56,7 @@ BEGIN
MESSAGE COPY,F_ANNOIVA,7,10 MESSAGE COPY,F_ANNOIVA,7,10
USE LF_MOV KEY 2 USE LF_MOV KEY 2
DISPLAY "Data\nRegistraz.@10" DATAREG DISPLAY "Data\nRegistraz.@10" DATAREG
DISPLAY "Data\nCompetenza@10" DATAREG DISPLAY "Data\nCompetenza@10" DATACOMP
DISPLAY "Numero\nregistraz.@7" NUMREG DISPLAY "Numero\nregistraz.@7" NUMREG
DISPLAY "Causale" CODCAUS DISPLAY "Causale" CODCAUS
DISPLAY "Numero\nDocumento@10" NUMDOC DISPLAY "Numero\nDocumento@10" NUMDOC
@ -93,8 +93,6 @@ BEGIN
ADD RUN cg0 -4 ADD RUN cg0 -4
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Causale assente" WARNING "Causale assente"
MESSAGE EMPTY SHOW,F_NUMREG|HIDE,F_CC_NUMREG
MESSAGE SHOW,F_CC_NUMREG|HIDE,F_NUMREG
END END
STRING F_DESCRCAUS 50 STRING F_DESCRCAUS 50
@ -129,21 +127,8 @@ BEGIN
DISPLAY "Protoc." PROTIVA DISPLAY "Protoc." PROTIVA
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_NUMREG NUMREG OUTPUT F_NUMREG NUMREG
KEY 1
END
NUMBER F_CC_NUMREG 7
BEGIN
PROMPT 3 10 "Numero operazione "
HELP "Numero del movimento di prima nota da modificare"
USE LF_MOV SELECT BETWEEN(CODCAUS,#F_CODCAUS,#F_CODCAUS)
INPUT NUMREG F_CC_NUMREG
COPY DISPLAY F_NUMREG
OUTPUT F_CC_NUMREG NUMREG
MESSAGE COPY F_NUMREG
FLAGS "H"
KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1
END END
ENDPAGE ENDPAGE

24
cg/cg2100c.uml
View File

@ -542,6 +542,12 @@ BEGIN
FIELD RITSOC FIELD RITSOC
END END
CURRENCY F_REVCHARGE 18
BEGIN
PROMPT 1 17 "Reverse charge "
FIELD REVCHARGE
END
DATE F_DATA74TER DATE F_DATA74TER
BEGIN BEGIN
PROMPT 52 15 "Data 74/ter " PROMPT 52 15 "Data 74/ter "
@ -552,14 +558,14 @@ END
BOOLEAN F_IVAXCASSA BOOLEAN F_IVAXCASSA
BEGIN BEGIN
PROMPT 1 17 "IVA per cassa" PROMPT 1 18 "IVA per cassa"
FIELD IVAXCASSA FIELD IVAXCASSA
MODULE IC MODULE IC
END END
BOOLEAN F_LIQDIFF BOOLEAN F_LIQDIFF
BEGIN BEGIN
PROMPT 25 17 "Liquidazione differita" PROMPT 25 18 "Liquidazione differita"
WARNING "Data di incasso per liquidazione differita" WARNING "Data di incasso per liquidazione differita"
FIELD LIQDIFF FIELD LIQDIFF
MESSAGE FALSE CLEAR,F_DATAINC MESSAGE FALSE CLEAR,F_DATAINC
@ -590,7 +596,7 @@ END
STRING F_VALUTAINTRA 3 STRING F_VALUTAINTRA 3
BEGIN BEGIN
PROMPT 1 18 "Cambio intracom. " PROMPT 1 19 "Cambio intracom. "
FIELD CODVALI FIELD CODVALI
FLAGS "UZ" FLAGS "UZ"
GROUP 4 GROUP 4
@ -608,7 +614,7 @@ END
NUMBER F_CAMBIOINTRA 15 6 NUMBER F_CAMBIOINTRA 15 6
BEGIN BEGIN
PROMPT 25 18 "" PROMPT 25 19 ""
FIELD CAMBIOI FIELD CAMBIOI
FLAGS "U" FLAGS "U"
GROUP 4 GROUP 4
@ -617,20 +623,20 @@ END
DATE F_DATAINTRA DATE F_DATAINTRA
BEGIN BEGIN
PROMPT 43 18 "Data competenza intra " PROMPT 43 19 "Data competenza intra "
FIELD DATACOMPI FIELD DATACOMPI
END END
CURRENCY F_CORRISPETTIVO 18 CURRENCY F_CORRISPETTIVO 18
BEGIN BEGIN
PROMPT 1 19 "Corrispettivo " PROMPT 1 20 "Corrispettivo "
FIELD CORRLIRE FIELD CORRLIRE
GROUP 4 GROUP 4
END END
CURRENCY F_CORRVALUTA 18 CURRENCY F_CORRVALUTA 18
BEGIN BEGIN
PROMPT 39 19 "Corrispet. valuta " PROMPT 39 20 "Corrispet. valuta "
FIELD CORRVALUTA FIELD CORRVALUTA
GROUP 4 GROUP 4
VALIDATE REQIF_FUNC 1 F_VALUTAINTRA VALIDATE REQIF_FUNC 1 F_VALUTAINTRA
@ -639,7 +645,7 @@ END
STRING NP_CONTSEP 6 STRING NP_CONTSEP 6
BEGIN BEGIN
PROMPT 1 20 "Cont. separata " PROMPT 1 21 "Cont. separata "
USE &NPENT USE &NPENT
INPUT CODTAB NP_CONTSEP INPUT CODTAB NP_CONTSEP
DISPLAY "Codice@6" CODTAB DISPLAY "Codice@6" CODTAB
@ -652,7 +658,7 @@ END
STRING NP_DESCONTSEP 50 STRING NP_DESCONTSEP 50
BEGIN BEGIN
PROMPT 25 20 "" PROMPT 25 21 ""
USE &NPENT KEY 2 USE &NPENT KEY 2
INPUT S0 NP_DESCONTSEP INPUT S0 NP_DESCONTSEP
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0

222
cg/cg2102.cpp
View File

@ -31,7 +31,7 @@ char TPrimanota_application::row_type(const TToken_string& s)
if (s.full()) if (s.full())
{ {
s.get(CG_ROWTYPE%DLG_USER-1, t); // Can't use cgs().cid2index() here! s.get(CG_ROWTYPE%DLG_USER-1, t); // Can't use cgs().cid2index() here!
if (t < 'A' || t > 'Z') if (!((t >= 'A' && t <= 'Z')||((t >= '0' && t <= '9')))) // is not alphanumeric?
t = ' '; t = ' ';
} }
return t; return t;
@ -72,42 +72,39 @@ const real& TPrimanota_application::cod2IVA(const TMask& m)
// Certified 99% Non sono sicurissimo degli imponibili negativi // Certified 99% Non sono sicurissimo degli imponibili negativi
real TPrimanota_application::scorpora(real& imponibile, const real& percent) real TPrimanota_application::scorpora(real& imponibile, const real& percent)
{ {
real imposta;
const int dec = TCurrency::get_firm_dec(); const int dec = TCurrency::get_firm_dec();
if (dec == 0) // Gestione Lire real imposta = imponibile * percent / (percent + CENTO);
{
imposta = abs(imponibile) * percent / (percent + CENTO);
imposta.ceil();
if (imponibile.sign() < 0) imposta = -imposta;
}
else
{ // Gestione Euro
imposta = imponibile * percent / (percent + CENTO);
imposta.round(dec); imposta.round(dec);
}
imponibile -= imposta; imponibile -= imposta;
return imposta; return imposta;
} }
// Calcola il totale del documento tenendo conto del segno della prima riga e di quella delle // Calcola il totale del documento tenendo conto del segno della prima riga
// ritenute sociali sulla causale // e di quella delle ritenute sociali sulla causale, ritenute fiscali e reverse charge
real TPrimanota_application::totale_documento() 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)); const real ritsoc = m.get(F_RITSOC);
const real revcha = m.get(F_REVCHARGE);
const bool swapt = test_swap(false); // Totale invertito ? const bool swapt = test_swap(false); // Totale invertito ?
const bool swaps = test_swap(true); // Ritenute sociali invertite ? const bool swaps = test_swap(true); // Ritenute sociali invertite ?
if (swapt ^ swaps) // Somma ritenute sociali con segno if (swapt ^ swaps) // Somma ritenute sociali con segno
{
tot -= ritsoc; tot -= ritsoc;
tot -= revcha;
}
else else
{
tot += ritsoc; tot += ritsoc;
tot += revcha;
}
return tot; return tot;
} }
@ -129,7 +126,7 @@ bool TPrimanota_application::suspended_handler(TMask_field& f, KEY k)
if (suspended) if (suspended)
{ {
sf = f.get(); sf = f.get();
return f.error_box(TR("Il codice '%s' e' sospeso e non puo' essere utilizzato"), sf); return f.error_box(TR("Il codice '%s' è sospeso e non puo' essere utilizzato"), sf);
} }
} }
return true; return true;
@ -141,11 +138,10 @@ bool TPrimanota_application::suspended_handler(TMask_field& f, KEY k)
int TPrimanota_application::type2pos(char tipo) int TPrimanota_application::type2pos(char tipo)
{ {
TString_array& cg = app().cgs().rows_array(); TString_array& a = app().cgs().rows_array();
for (int i = 0; i < cg.items(); i++) FOR_EACH_ARRAY_ROW(a, i, s)
{ {
const TToken_string& s = cg.row(i); const char t = row_type(*s);
const char t = row_type(s);
if (t == tipo) if (t == tipo)
return i; return i;
} }
@ -155,15 +151,13 @@ int TPrimanota_application::type2pos(char tipo)
// Trova nelle righe contabili un conto nelle righe di tipo prescelto // Trova nelle righe contabili un conto nelle righe di tipo prescelto
int TPrimanota_application::bill2pos(const TBill& conto, char tipo) int TPrimanota_application::bill2pos(const TBill& conto, char tipo)
{ {
TString_array& cg = app().cgs().rows_array(); TString_array& a = app().cgs().rows_array();
const int num_rows = cg.items(); FOR_EACH_ARRAY_ROW(a, i, s)
for (int i = 0; i < num_rows; i++)
{ {
TToken_string& s = cg.row(i); const char t = row_type(*s);
const char t = row_type(s);
if (t == tipo) if (t == tipo)
{ {
const TBill c(s, 3, 0x0); const TBill c(*s, 3, 0x0);
if (c == conto) if (c == conto)
return i; return i;
} }
@ -174,17 +168,15 @@ int TPrimanota_application::bill2pos(const TBill& conto, char tipo)
// Trova nelle righe contabili un conto di contropartita per il conto dato // Trova nelle righe contabili un conto di contropartita per il conto dato
int TPrimanota_application::bill2contr(const TBill& conto, char sezione) const int TPrimanota_application::bill2contr(const TBill& conto, char sezione) const
{ {
TString_array& rows = cgs().rows_array(); TString_array& a = app().cgs().rows_array();
const int num_rows = rows.items();
TBill c; // Conto corrente (Buona questa!) TBill c; // Conto corrente (Buona questa!)
for (int i = 0; i < num_rows; i++) FOR_EACH_ARRAY_ROW(a, i, r)
{ {
TToken_string& r = rows.row(i); const real dare(r->get(0));
const real dare(r.get(0));
const char sez = dare.is_zero() ? 'A' : 'D'; const char sez = dare.is_zero() ? 'A' : 'D';
if (sez == sezione) // Devo cercare sezione contraria if (sez == sezione) // Devo cercare sezione contraria
continue; continue;
c.get(r, 3, 0x0); c.get(*r, 3, 0x0);
if (conto == c) if (conto == c)
return i; return i;
} }
@ -197,12 +189,11 @@ int TPrimanota_application::bill_used(const TBill& conto) const
TString_array& rows = ivas().rows_array(); TString_array& rows = ivas().rows_array();
TBill c; // Conto corrente TBill c; // Conto corrente
int users = 0; int users = 0;
for (int i = rows.items(); i >= 0 ; i--) FOR_EACH_ARRAY_ROW(rows, i, row)
{ {
TToken_string& row = rows.row(i); if (!row->empty_items())
if (!row.empty_items())
{ {
c.get(row, 6, 0x0); c.get(*row, 6, 0x0);
if (conto == c) if (conto == c)
users++; users++;
} }
@ -276,16 +267,19 @@ bool TPrimanota_application::sub_cgs_imp(int n, const TImporto& imp)
TImporto TPrimanota_application::real2imp(const real& r, char row_type) TImporto TPrimanota_application::real2imp(const real& r, char row_type)
{ {
bool dare; bool dare = false;
if (row_type == 'S')
switch (row_type)
{ {
case 'S':
case 'V':
dare = causale().sezione_ritsoc() == 'D'; dare = causale().sezione_ritsoc() == 'D';
} break;
else default:
{
dare = causale().sezione_clifo() == 'D'; dare = causale().sezione_clifo() == 'D';
if (row_type != 'T' && row_type != 'F') if (row_type != 'T' && row_type != 'F')
dare = !dare; dare = !dare;
break;
} }
TImporto importo(dare ? 'D' : 'A', r); TImporto importo(dare ? 'D' : 'A', r);
@ -297,7 +291,7 @@ void TPrimanota_application::disable_cgs_cells(int n, char tipo)
{ {
TSheet_field& cg = cgs(); TSheet_field& cg = cgs();
int first = 0, last = 0; // Range di righe da disabilitare int first = 0, last = 0; // Range di colonne da disabilitare
switch(tipo) switch(tipo)
{ {
case 'T': // Totale documento case 'T': // Totale documento
@ -321,6 +315,8 @@ void TPrimanota_application::disable_cgs_cells(int n, char tipo)
case 'P': // Abbuoni passivi case 'P': // Abbuoni passivi
case 'R': // Ritenute professionali case 'R': // Ritenute professionali
case 'S': // Ritenute Sociali case 'S': // Ritenute Sociali
case 'V': // Reverse charge
case '1': // Scissione pagamenti art, 17-ter DPR 633/72
last = 3; last = 3;
break; break;
case 'K': // Riga cliente/fornitore per saldaconto case 'K': // Riga cliente/fornitore per saldaconto
@ -410,15 +406,16 @@ int TPrimanota_application::set_cgs_row(int n, const TImporto& imp,
} }
HIDDEN int compare_rows(const TObject** o1, const TObject** o2) HIDDEN int compare_rows(const TSortable& o1, const TSortable& o2, void* jolly)
{ {
// Totale, Rit.Fisc., Rit.Soc., da riga IVA, riga contabile, IVA detr., IVA non detr. // Totale, Rit.Fisc., Rit.Soc., da riga IVA, riga contabile, IVA detr., IVA non detr.
const char* const sort_order = "TFSI DNAPRC"; const char* const sort_order = "TFSVI DN1APRC";
const TToken_string* r1 = (const TToken_string*)*o1; const TToken_string& r1 = (const TToken_string&)o1;
const TToken_string* r2 = (const TToken_string*)*o2; const TToken_string& r2 = (const TToken_string&)o2;
const char c1 = app().row_type(*r1); const TPrimanota_application& a = *(TPrimanota_application*)jolly;
const char c2 = app().row_type(*r2); const char c1 = a.row_type(*r1);
const char c2 = a.row_type(*r2);
return int(strchr(sort_order, c1) - strchr(sort_order, c2)); return int(strchr(sort_order, c1) - strchr(sort_order, c2));
} }
@ -466,7 +463,7 @@ void TPrimanota_application::cgs_pack()
} }
} }
if (!pagamento && rowtypes_present) // Il pagamento e' gia' ordinato if (!pagamento && rowtypes_present) // Il pagamento e' gia' ordinato
rows.TArray::sort(compare_rows); // Pack and sort array rows.TArray::sort(compare_rows, &app()); // Pack and sort array
} }
@ -1124,10 +1121,11 @@ bool TPrimanota_application::descr_handler(TMask_field& f, KEY k)
if (first >= 0) if (first >= 0)
{ {
TSheet_field& cg = app().cgs(); TSheet_field& cg = app().cgs();
const TString80 old = cg.row(first).get(8); const int pos = cg.cid2index(CG_DESCR);
const TFixed_string old = cg.row(first).get(pos);
if (old.blank() || f.get().find(old) >= 0) if (old.blank() || f.get().find(old) >= 0)
{ {
cg.row(first).add(f.get(), 8); cg.row(first).add(f.get(), pos);
cg.force_update(first); cg.force_update(first);
} }
} }
@ -1136,7 +1134,7 @@ bool TPrimanota_application::descr_handler(TMask_field& f, KEY k)
if (k == K_ENTER && f.get().empty()) if (k == K_ENTER && f.get().empty())
{ {
if (f.mask().get(F_CODCAUS).empty()) if (f.mask().get(F_CODCAUS).empty())
return f.error_box(TR("La descrizione del documento e' necessaria in assenza della causale")); return f.error_box(TR("La descrizione del documento è necessaria in assenza della causale"));
} }
return true; return true;
} }
@ -1378,11 +1376,10 @@ real TPrimanota_application::calcola_imp() const
TArray& rows = ivas().rows_array(); TArray& rows = ivas().rows_array();
real imponibili, imposte; real imponibili, imposte;
for (int r = rows.items()-1; r >= 0; r--) FOR_EACH_ARRAY_ROW(rows, r, row) if (!row->empty_items())
{ {
TToken_string& row = (TToken_string&)rows[r]; imponibili += real(row->get(0));
imponibili += real(row.get(0)); imposte += real(row->get(3));
imposte += real(row.get(3));
} }
TMask& m = curr_mask(); TMask& m = curr_mask();
@ -1392,7 +1389,7 @@ real TPrimanota_application::calcola_imp() const
// Se e' attiva la terza pagina allora riporta i totali in testata // Se e' attiva la terza pagina allora riporta i totali in testata
if (is_fattura()) if (is_fattura())
{ {
real tot(m.get(F_TOTALE)); tot -= imposte; real tot = m.get(F_TOTALE); tot -= imposte;
m.set(FS_IMPONIBILI, tot); m.set(FS_IMPONIBILI, tot);
m.set(FS_IMPOSTE, imposte); m.set(FS_IMPOSTE, imposte);
} }
@ -1426,7 +1423,7 @@ int TPrimanota_application::get_importi_iva(const TToken_string& row,
{ {
real imptot; row.get(0, imptot); // Importo scritto nella riga iva real imptot; row.get(0, imptot); // Importo scritto nella riga iva
TString4 zanicchi; row.get(1, zanicchi); // Codice IVA TString4 zanicchi; row.get(1, zanicchi); // Codice IVA
TString4 codind; row.get(2, codind); // Codice indetraibilita' TString4 codind; row.get(2, codind); // Codice indetraibilità
real ivatot; row.get(3, ivatot); // Imposta scritta nella riga iva real ivatot; row.get(3, ivatot); // Imposta scritta nella riga iva
int annodoc = app()._msk[2]->get_date(F_DATADOC).year(); int annodoc = app()._msk[2]->get_date(F_DATADOC).year();
@ -1649,6 +1646,32 @@ bool TPrimanota_application::iva_notify(TSheet_field& iva, int r, KEY k)
} // for (int d = 0; d < 2; d++) } // for (int d = 0; d < 2; d++)
TMask& m = a.curr_mask(); TMask& m = a.curr_mask();
if (m.get_int(F_ANNOIVA) >= 2015 && a.clifo() == 'C') // Controllo split-payment
{
const int r_norm = type2pos('D');
const int r_split = type2pos('1');
const bool split_needed = r_norm >= 0 && a.is_split_payment();
if (split_needed)
{
TImporto imp_split = a.get_cgs_imp(r_norm); imp_split.swap_section();
if (r_split < 0)
{
TToken_string row_norm = a.cgs().row(r_norm);
TBill iva_split(row_norm, 3);
const char* desc = TR("IVA art. 17-ter D.P.R. 633/1972)");
a.set_cgs_row(-1, imp_split, iva_split, desc, '1');
}
else
a.set_cgs_imp(r_split, imp_split);
}
else
{
if (r_split >= 0)
a.reset_cgs_row(r_split);
}
}
if (r == 0) // Se cambio la prima riga ... if (r == 0) // Se cambio la prima riga ...
{ {
a.add_cgs_tot(m); // ... ricalcola conti e imponibili a.add_cgs_tot(m); // ... ricalcola conti e imponibili
@ -1676,9 +1699,14 @@ bool TPrimanota_application::iva_notify(TSheet_field& iva, int r, KEY k)
imposta = m.get_real(F_IMPOSTE); imposta = m.get_real(F_IMPOSTE);
imponibile = m.get_real(F_TOTALE) - imposta; imponibile = m.get_real(F_TOTALE) - imposta;
} }
imposta.round(pag.round(inv)); imponibile.round(pag.round(inv)); imposta.round(pag.round(inv));
real pimposta(pag.imposta(inv)); real pimponibile(pag.imponibile(inv)); imponibile.round(pag.round(inv));
pimposta.round(pag.round(inv)); pimponibile.round(pag.round(inv));
real pimposta(pag.imposta(inv));
pimposta.round(pag.round(inv));
real pimponibile(pag.imponibile(inv));
pimponibile.round(pag.round(inv));
if (pimposta != imposta || pimponibile != imponibile) if (pimposta != imposta || pimponibile != imponibile)
a.set_scadenze(m); // Ricalcola rate a.set_scadenze(m); // Ricalcola rate
@ -1701,9 +1729,9 @@ bool TPrimanota_application::iva_handler(TMask_field& f, KEY k)
const TCurrency tot(app().totale_documento()); const TCurrency tot(app().totale_documento());
if (imp != tot) if (imp != tot)
{ {
const TString t(tot.string(true)); const TString t = tot.string(true);
const TString i(imp.string(true)); const TString i = imp.string(true);
return error_box(FR("La somma del totale documento e delle ritenute (%s) e' diverso dalla " return error_box(FR("La somma del totale documento e delle ritenute (%s) è diverso dalla "
"somma degli imponibili e delle imposte (%s)"), "somma degli imponibili e delle imposte (%s)"),
(const char*)t, (const char*)i); (const char*)t, (const char*)i);
} }
@ -1717,11 +1745,11 @@ bool TPrimanota_application::iva_handler(TMask_field& f, KEY k)
{ {
const TFixed_string codiva = row.get(1); const TFixed_string codiva = row.get(1);
if (codiva.blank()) if (codiva.blank())
return error_box(FR("Il codice IVA della riga %d e' obbligatorio"), i+1); return error_box(FR("Il codice IVA della riga %d è obbligatorio"), i+1);
TBill c(row, 5, 0x1); TBill c(row, 5, 0x1);
if (!c.ok() || !c.find()) if (!c.ok() || !c.find())
return error_box(FR("Il conto della riga iva %d e' errato o incompleto"), i+1); return error_box(FR("Il conto della riga iva %d è errato o incompleto"), i+1);
} }
} }
} }
@ -2167,6 +2195,10 @@ bool TPrimanota_application::caus_query_handler(TMask_field& f, KEY key)
const TString& cau = f.get(); const TString& cau = f.get();
const int ann = m.get_int(F_ANNOIVA); const int ann = m.get_int(F_ANNOIVA);
TEdit_field& numreg = m.efield(F_NUMREG);
TString16 filter; if (cau.full()) filter << MOV_CODCAUS << "==\"" << cau << '"';
numreg.browse()->set_filter(filter);
const TipoIVA i = app().cau2IVA(cau, ann); // Cerca causale e suo tipo const TipoIVA i = app().cau2IVA(cau, ann); // Cerca causale e suo tipo
if (i != iva_errata) if (i != iva_errata)
return suspended_handler(f, key); // Controlla sospensione return suspended_handler(f, key); // Controlla sospensione
@ -2695,10 +2727,19 @@ void TPrimanota_application::add_cgs_tot(TMask& m)
else else
{ {
// Creazione/Aggiornamento riga totale // Creazione/Aggiornamento riga totale
const real tot(m.get(F_TOTALE)); real tot = m.get(F_TOTALE);
if (app().is_split_payment())
{
calcola_imp(); // Ricalcola totale IVA
tot -= m.get_real(F_IMPOSTE);
}
TString80 descr; TString80 descr;
if (riga_totale >= 0) if (riga_totale >= 0)
descr = cgs().row(riga_totale).get(8); {
const int idx_des = ss.cid2index(CG_DESCR);
descr = ss.row(riga_totale).get(idx_des);
}
if (descr.blank()) if (descr.blank())
descr = m.get(F_DESCR); descr = m.get(F_DESCR);
TImporto imp = real2imp(tot, 'T'); TImporto imp = real2imp(tot, 'T');
@ -2906,7 +2947,7 @@ bool TPrimanota_application::main_codiva_handler(TMask_field& f, KEY key)
f.mask().set(F_RITFIS, imposta, true); f.mask().set(F_RITFIS, imposta, true);
} }
} }
if (imp.is_zero()) // Se il totale documento non e' stato spezzato if (imp.is_zero()) // Se il totale documento non è stato spezzato
{ {
TToken_string& row = a.ivas().row(0); TToken_string& row = a.ivas().row(0);
iva_notify(a.ivas(), 0, K_SPACE); iva_notify(a.ivas(), 0, K_SPACE);
@ -3153,23 +3194,21 @@ bool TPrimanota_application::totdocval_handler(TMask_field& f, KEY key)
// Aggiunge o aggiorna la riga delle ritenute fiscali o sociali // Aggiunge o aggiorna la riga delle ritenute fiscali o sociali
// Certified 99% // Certified 99%
void TPrimanota_application::add_cgs_rit(bool fiscali) void TPrimanota_application::add_cgs_ritenute(char tipo)
{ {
if (_as400) if (_as400)
return; return;
TMask& m = curr_mask(); TMask& m = curr_mask();
const real imp(m.get(fiscali ? F_RITFIS : F_RITSOC)); // Determina importo const real imp = m.get(tipo=='F' ? F_RITFIS : (tipo=='S' ? F_RITSOC : F_REVCHARGE)); // Determina importo
const char tipo = fiscali ? 'F' : 'S';
const int pos = type2pos(tipo); // Cerca la riga contabile const int pos = type2pos(tipo); // Cerca la riga contabile
if (pos < 0) // Se non c'e' ... if (pos < 0) // Se non c'e' ...
{ {
if (!imp.is_zero()) // ... e l'importo e' valido if (!imp.is_zero()) // ... e l'importo e' valido crea una nuova riga di ritenute
{ // crea una nuova riga di ritenute {
const int riga = fiscali ? RIGA_RITENUTE_FISCALI : RIGA_RITENUTE_SOCIALI; const int riga = tipo=='F' ? RIGA_RITENUTE_FISCALI : (tipo== 'S' ? RIGA_RITENUTE_SOCIALI : RIGA_REVERSE_CHARGE);
TBill conto; causale().bill(riga, conto); TBill conto; causale().bill(riga, conto);
const TString desc(causale().desc_agg(riga)); const TString desc = causale().desc_agg(riga);
set_cgs_row(-1, real2imp(imp, tipo), conto, desc, tipo); set_cgs_row(-1, real2imp(imp, tipo), conto, desc, tipo);
} }
} }
@ -3221,7 +3260,7 @@ bool TPrimanota_application::protiva_handler(TMask_field& f, KEY key)
bool TPrimanota_application::ritfis_handler(TMask_field& f, KEY key) bool TPrimanota_application::ritfis_handler(TMask_field& f, KEY key)
{ {
if (key == K_TAB && f.focusdirty()) if (key == K_TAB && f.focusdirty())
app().add_cgs_rit(true); app().add_cgs_ritenute('F');
return true; return true;
} }
@ -3231,10 +3270,20 @@ bool TPrimanota_application::ritfis_handler(TMask_field& f, KEY key)
bool TPrimanota_application::ritsoc_handler(TMask_field& f, KEY key) bool TPrimanota_application::ritsoc_handler(TMask_field& f, KEY key)
{ {
if (key == K_TAB && f.focusdirty()) if (key == K_TAB && f.focusdirty())
app().add_cgs_rit(false); app().add_cgs_ritenute('S');
return true; return true;
} }
// Handler of F_REVCHARGE
// Certified 100%
bool TPrimanota_application::revcharge_handler(TMask_field& f, KEY key)
{
if (key == K_TAB && f.focusdirty())
app().add_cgs_ritenute('V');
return true;
}
HIDDEN void inventa_cambio_intra(TMask& m) HIDDEN void inventa_cambio_intra(TMask& m)
{ {
const TString& codval = m.get(F_VALUTAINTRA); const TString& codval = m.get(F_VALUTAINTRA);
@ -3455,14 +3504,15 @@ bool TPrimanota_application::solaiva_handler(TMask_field& f, KEY key)
{ {
TSheet_field& iva = a.ivas(); TSheet_field& iva = a.ivas();
const int righe = iva.items(); const int righe = iva.items();
TProgind pi(righe, TR("Generazione righe contabilita'"), false, true); TProgind pi(righe, TR("Generazione righe contabilità"), false, true);
TSheet_field& cg = a.cgs(); TSheet_field& cg = a.cgs();
cg.reset(); cg.reset();
a.add_cgs_tot(m); // Genera totale documento a.add_cgs_tot(m); // Genera totale documento
if (m.get(F_RITFIS).not_empty()) a.add_cgs_rit(true); // Genera ritenute fiscali if (!m.efield(F_RITFIS).empty()) a.add_cgs_ritenute('F'); // Genera ritenute fiscali
if (m.get(F_RITSOC).not_empty()) a.add_cgs_rit(false); // Genera ritenute sociali if (!m.efield(F_RITSOC).empty()) a.add_cgs_ritenute('S'); // Genera ritenute sociali
if (!m.efield(F_REVCHARGE).empty()) a.add_cgs_ritenute('V'); // Genera reverse charge
TToken_string oldrow(128); TToken_string oldrow(128);
for (int i = 0; i < righe; i++) for (int i = 0; i < righe; i++)
@ -3535,12 +3585,12 @@ bool TPrimanota_application::quadratura_handler(TMask_field& f, KEY key)
if (m.field(F_CLIENTE).shown()) if (m.field(F_CLIENTE).shown())
{ {
clifo.put(CLI_TIPOCF, "C"); clifo.put(CLI_TIPOCF, "C");
clifo.put(CLI_CODCF, m.get(F_CLIENTE));; clifo.put(CLI_CODCF, m.get(F_CLIENTE));
} }
else else
{ {
clifo.put(CLI_TIPOCF, "F"); clifo.put(CLI_TIPOCF, "F");
clifo.put(CLI_CODCF, m.get(F_FORNITORE));; clifo.put(CLI_CODCF, m.get(F_FORNITORE));
} }
if (cliforel.read() == NOERR) if (cliforel.read() == NOERR)