diff --git a/cd/test/ba0676.txt b/cd/test/ba0676.txt new file mode 100644 index 000000000..10ab96f77 --- /dev/null +++ b/cd/test/ba0676.txt @@ -0,0 +1,9 @@ +recdesc\f4.dir +recdesc\f4.trr +recdesc\f5.trr +recdesc\f5.dir +recdesc\f3.trr +recdesc\f3.dir + + +Modificato tracciato delle tabelle \ No newline at end of file diff --git a/cd/test/ba0676a.ini b/cd/test/ba0676a.ini new file mode 100644 index 000000000..1a883285f --- /dev/null +++ b/cd/test/ba0676a.ini @@ -0,0 +1,36 @@ +[Main] +Demo=0 + +[ba2] +File(379) = recdesc\f3.dir|X +File(380) = recdesc\f3.trr|X +File(401) = recdesc\f4.dir|X +File(402) = recdesc\f4.trr|X +File(423) = recdesc\f5.dir|X +File(424) = recdesc\f5.trr|X +Patch = 676 +Versione = 21511200 + +[ba99] +Kill(0) = wxmsw240.dll|x +Kill(1) = batbsce.txt|x +Kill(2) = bastfsc.rep|x +Kill(3) = bastfsc.msk|x +Kill(4) = bastcms.msk|x +Kill(5) = bastcms.rep|x +Kill(6) = bastuue.rep|x +Kill(7) = bastuue.msk|x + +[ba] +Data = 08-01-2019 +Descrizione = Base +Dischi = 1 +Moduli = sy +OEM = +Patch = 676 +PostProcess = bainst -0 BA +PreProcess = +Prezzo(1) = +Prezzo(2) = +Versione = 21511200 + diff --git a/cd/test/ba0676a1.zip b/cd/test/ba0676a1.zip new file mode 100644 index 000000000..55561d691 Binary files /dev/null and b/cd/test/ba0676a1.zip differ diff --git a/cd/test/fp0680.txt b/cd/test/fp0680.txt new file mode 100644 index 000000000..ee2c95242 --- /dev/null +++ b/cd/test/fp0680.txt @@ -0,0 +1,5 @@ +fp0.exe + +- Corretta scrittura importo nel riepilogo iva +- Sistemato CAP italiani, era sbagliato il controllo +- Tolto segno quando metto gli importi in negativo forzando il segno corretto \ No newline at end of file diff --git a/cd/test/fp0680a.ini b/cd/test/fp0680a.ini new file mode 100644 index 000000000..1e67c660c --- /dev/null +++ b/cd/test/fp0680a.ini @@ -0,0 +1,19 @@ +[Main] +Demo=0 + +[fp1] +File(0) = fp0.exe|X +Patch = 680 +Versione = 21511200 + +[fp] +Data = 22-01-2019 +Descrizione = Fattura Elettronica +Dischi = 1 +Moduli = cg,ve +OEM = +Patch = 680 +PostProcess = +PreProcess = +Versione = 21511200 + diff --git a/cd/test/fp0680a1.zip b/cd/test/fp0680a1.zip new file mode 100644 index 000000000..2fefa8d3d Binary files /dev/null and b/cd/test/fp0680a1.zip differ diff --git a/cd/test/ve0676a1.zip b/cd/test/ve0676a1.zip index 00a6aee17..64c8d75d6 100644 Binary files a/cd/test/ve0676a1.zip and b/cd/test/ve0676a1.zip differ diff --git a/src/ba/f3.dir b/src/ba/f3.dir index 27e7382ed..83702aa15 100755 --- a/src/ba/f3.dir +++ b/src/ba/f3.dir @@ -1,3 +1,3 @@ 3 1 -%tabgen|0|0|1186|0|Tabelle di studio|50|| +%tabgen|0|0|1285|0|Tabelle di studio||| diff --git a/src/ba/f3.trr b/src/ba/f3.trr index 5394b3923..3835755fe 100755 --- a/src/ba/f3.trr +++ b/src/ba/f3.trr @@ -1,5 +1,5 @@ 3 -87 +91 COD|1|3|0| CODTAB|1|25|0| S0|1|70|0| @@ -15,6 +15,8 @@ S9|1|5|0| S10|1|5|0| S11|1|5|0| S12|1|5|0| +S13|1|70|0| +S14|1|5|0| I0|3|7|0| I1|3|7|0| I2|3|7|0| @@ -60,11 +62,11 @@ R26|4|18|5| R27|4|18|5| R28|4|18|5| R29|4|18|5| -R29|4|18|5| R30|4|18|5| R31|4|18|5| R32|4|18|5| R33|4|18|5| +R34|4|18|5| D0|5|8|0| D1|5|8|0| D2|5|8|0| @@ -86,6 +88,8 @@ B12|8|1|0| B13|8|1|0| B14|8|1|0| B15|8|1|0| +DATAAGG|5|8|0| +UTENTE|1|16|0| FPC|8|1|0| 2 COD+CODTAB| diff --git a/src/ba/f4.dir b/src/ba/f4.dir index 6a8d50ab5..f46826089 100755 --- a/src/ba/f4.dir +++ b/src/ba/f4.dir @@ -1,3 +1,3 @@ 4 1 -%tabcom|0|0|1280|0|Tabelle comuni|1500|| +%tabcom|0|0|1285|0|Tabelle comuni||| diff --git a/src/ba/f4.trr b/src/ba/f4.trr index 5c2bf5d6f..d5d69ef69 100755 --- a/src/ba/f4.trr +++ b/src/ba/f4.trr @@ -1,5 +1,5 @@ 4 -90 +91 COD|1|3|0| CODTAB|1|25|0| S0|1|70|0| @@ -16,6 +16,7 @@ S10|1|5|0| S11|1|5|0| S12|1|5|0| S13|1|70|0| +S14|1|5|0| I0|3|7|0| I1|3|7|0| I2|3|7|0| diff --git a/src/ba/f5.dir b/src/ba/f5.dir index 2892b8763..42ca0fadd 100755 --- a/src/ba/f5.dir +++ b/src/ba/f5.dir @@ -1,3 +1,3 @@ 5 0 -$tab|6734|6734|1210|0|Tabelle ditta|400|| +$tab|||1285|0|Tabelle ditta||| diff --git a/src/ba/f5.trr b/src/ba/f5.trr index f5a9f98f1..a7619ee05 100755 --- a/src/ba/f5.trr +++ b/src/ba/f5.trr @@ -1,5 +1,5 @@ 5 -89 +91 COD|1|3|0| CODTAB|1|25|0| S0|1|70|0| @@ -15,6 +15,8 @@ S9|1|5|0| S10|1|5|0| S11|1|5|0| S12|1|5|0| +S13|1|70|0| +S14|1|5|0| I0|3|7|0| I1|3|7|0| I2|3|7|0| diff --git a/src/fp/fplib01.cpp b/src/fp/fplib01.cpp index 33b151701..9fdbb0c3f 100644 --- a/src/fp/fplib01.cpp +++ b/src/fp/fplib01.cpp @@ -1584,7 +1584,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc) // Controllo plafond // Riga esenzione? - if (doc.is_fattura()) + if (doc.is_fattura() || doc.is_nota_credito()) { doc.set_riga_esenzione(); if(doc.ha_riga_esenzione()) @@ -1708,11 +1708,7 @@ bool TDoc_fp::doc_to_paf(TDocumentoEsteso& doc) if (aliquota.is_zero()) paf2200f.set("PL_NATURA", natura(riva.cod_iva().codice())); - real imponibile = riva.imp_orig(); - if (imponibile <= ZERO) - imponibile = riva.imponibile(); - - paf2200f.set("PL_IMPONIBILE", converti_prezzo(imponibile)); + paf2200f.set("PL_IMPONIBILE", converti_prezzo(riva.imponibile())); paf2200f.set("PL_IMPOSTA", converti_prezzo(riva.imposta())); paf2200f.set("PL_ESIGIVA", eiva); if (*eiva == 'S') diff --git a/src/ve/velib.h b/src/ve/velib.h index 9ed9e2ded..ca862b4a4 100755 --- a/src/ve/velib.h +++ b/src/ve/velib.h @@ -148,7 +148,10 @@ public: const TString& cdc() const { return get("S1").mid(20, 20); } const TString& cms() const { return get("S1").mid(40, 20); } const TString& fase() const { return get("S1").mid(60); } + const int codtrib() const { return get_int("S10"); } const int caus_770() const { return get_int("I6"); } + const int quadro_770() const { return get_int("S12"); } + const int quadroLA_770() const { return get_int("S14"); } TSpesa_prest(const char* codice = NULL, char tipo = 'S'); TSpesa_prest(const TRectype& rec); diff --git a/src/ve/vetbprs.h b/src/ve/vetbprs.h index e0584d76a..4224d1849 100755 --- a/src/ve/vetbprs.h +++ b/src/ve/vetbprs.h @@ -24,6 +24,7 @@ #define PRS_CODQUA 124 #define PRS_CODTRB 125 #define PRS_CODTRB1 126 +#define PRS_CAUSD 127 #define PRS_CDC_V1 131 #define PRS_CDC_A1 151 diff --git a/src/ve/vetbprs.uml b/src/ve/vetbprs.uml index e1a05cad4..9293286da 100755 --- a/src/ve/vetbprs.uml +++ b/src/ve/vetbprs.uml @@ -342,14 +342,58 @@ LISTBOX PRS_CODQUA 2 10 BEGIN PROMPT 20 21 "Quadro " HELP "Inserire il codice quadro" - ITEM "|" - ITEM "LA|Quadro LA" - ITEM "SF|Quadro SF" - ITEM "SG|Quadro SG" + ITEM "|" MESSAGE CLEAR,PRS_CAUSD + ITEM "LA|Quadro LA" MESSAGE ENABLE,PRS_CAUSD + ITEM "SF|Quadro SF" MESSAGE CLEAR,PRS_CAUSD + ITEM "SG|Quadro SG" MESSAGE CLEAR,PRS_CAUSD WARNING "Manca il codice quadro" FIELD S12 END +STRING PRS_CAUSD 2 +BEGIN + PROMPT 50 21 "Causale LA " + FLAGS "U" + SHEET "Codice|Descrizione@320" + INPUT PRS_CAUSD + ITEM " | " + ITEM "A|Prestazione di lavoro autonomo rientranti nell'esercizio di arte o professione abituale" + ITEM "B|Utilizzazione economica, da parte dell'autore o dell'inventore, di opere dell'ingegno, di brevetti industriali e di processi, formule o informazioni relativi ad esperienzeacquisite in campo industriale, commerciale o scientifico" + ITEM "C|Utili derivanti da contratti di associazione in partecipazione e da contratti di cointeressenza quando l' apporto e' costituito esclusivamente dalla prestazione di lavoro" + ITEM "D|utili spettanti ai soci promotori ed ai soci fondatori delle societa' di capitali" + ITEM "E|Levata di protesti cambiari da parte dei segretari comunali" + ITEM "F|Indennità corrisposte ai giudici onorari di pace e ai vice procuratori onorari" + ITEM "G|Indennità corrisposte per la cessazione di attività sportiva professionale" + ITEM "H|Indennità corrisposte per la cessazione dei rapporti di agenzia delle persone fisiche e delle società di persone con esclusione delle somme maturate entro il 31 dicembre 2003, ..." + ITEM "I|Indennità corrisposte per la cessazione da funzioni notarili" + ITEM "J|Compensi corrisposi ai raccoglitori occasionali di tartufi..." + ITEM "K|Assegni di servizio civile di cui all'art.16 del D.lgs. n. 40 del 6 marzo 2017" + ITEM "L|Redditi derivanti dall’utilizzazione economica di opere dell’ingegno, di brevetti industriali e di processi, formule e informazioni relativi a esperienze acquisite in campo industriale, commerciale o scientifico, che sono percepiti dagli aventi causa a titolo gratuito (ad es. eredi e legatari dell'autore e inventore)" + ITEM "L1|Redditi derivanti dall’utilizzazione economica di opere dell’ingegno, di brevetti industriali e di processi, formule e informazioni relativi a esperienze acquisite in campo industriale, commerciale o scientifico, che sono percepiti da soggetti che abbiano acquistato a titolo oneroso i diritti alla loro utilizzazione" + ITEM "M|Prestazioni di lavoro autonomo non esercitate abitualmente" + ITEM "M1|Redditi derivanti dall’assunzione di obblighi di fare, di non fare o permettere" + ITEM "M2|Prestazioni di lavoro autonomo non esercitate abitualmente per le quali sussiste l'obbligo di iscrizione alla Gestione Separata ENPAPI" + ITEM "N|Idennita' di trasferta, rinborso forfetario di spese, premi e compensi erogati: \n- nell' esercizio diretto di attivita' sportiva dilettantistiche\n- in relazione a rapporti di collaborazione coordinata e continuativa i carattere amministrativo-gestionale di natura non professionale resi a favore di società e associazioni sportive dilettantistiche e di cori, bande e filodrammatiche da parte del direttore e dei collaboratori tecnici" + ITEM "O|Prestazioni di lavoro autonomo non esercitate abitualmente, per le quali non sussiste l’obbligo di iscrizione alla gestione separata" + ITEM "O1|Redditi derivanti dall’assunzione di obblighi di fare, di non fare o permettere, per le quali non sussiste l’obbligo di iscrizione alla gestione separata (Circ. INPS n. 104/2001)" + ITEM "P|Compensi corrisposti a soggetti non residenti privi di stabile organizzazione per l'uso o la concessione in uso di attrezzature industriali, commerciali o scientifiche che si trovano nel territorio dello Stato ovvero a società svizzere o stabili organizzazioni di società svizzere..." + ITEM "Q|Provvigioni corrisposte ad agente o rappresentante di commercio monomandatario" + ITEM "R|Provvigioni corrisposte ad agente o rappresentante plurimandatario" + ITEM "S|Provvigioni corrisposte a commissionario" + ITEM "T|Provvigioni corrisposte a mediatore" + ITEM "U|Provvigioni corrisposte a procacciatore di affari" + ITEM "V|Provvigioni corrisposte a incaricato per le vendite a domicilio" + ITEM "V1|Redditi derivanti da attività commerciali non esercitate abitualmente (ad esempio, provvigioni corrisposte per prestazioni occasionali ad agente o rappresentante di commercio, mediatore, procacciatore d'affari)" + ITEM "V2|redditi derivanti da attività commerciali non esercitate abitualmente rese dagli incaricati alla vendita diretta a domicilio" + ITEM "W|Corrispettivi erogati nel 2017 per prestazioni relative a contratti d'appalto cui si sono resi applicabili le diposizioni contenute nell'art. 25-ter del D.P.R. n. 600 del 29 settembre 1973" + ITEM "X|Canoni corrisposti nel 2004 da società o enti residenti ovvero da stabili organizzazioni di società estere" + ITEM "Y|Canoni corrisposti dal 1° gennaio 2005 al 26 luglio 2005 da società o enti residenti ovvero da stabili organizzazioni di società estere" + ITEM "Z0|Titolo diverso dai precedenti" + OUTPUT PRS_CAUSD + FIELD S14 + FLAGS "D" +END + LISTBOX PRS_SEZIONE 6 BEGIN PROMPT 2 23 "Sezione per cooperative " diff --git a/src/ve/vetbspp.h b/src/ve/vetbspp.h index b38206825..aac22095f 100755 --- a/src/ve/vetbspp.h +++ b/src/ve/vetbspp.h @@ -39,6 +39,7 @@ #define SPP_CDC_A4 143 #define SPP_CODQUA 160 +#define SPP_CAUSD 161 #ifndef __VETBANAL_H #include "vetbanal.h" diff --git a/src/ve/vetbspp.uml b/src/ve/vetbspp.uml index 1c006db53..a56fa575f 100755 --- a/src/ve/vetbspp.uml +++ b/src/ve/vetbspp.uml @@ -387,17 +387,61 @@ LISTBOX SPP_CODQUA 2 10 BEGIN PROMPT 20 21 "Quadro " HELP "Inserire il codice quadro" - ITEM "|" - ITEM "LA|Quadro LA" - ITEM "SF|Quadro SF" - ITEM "SG|Quadro SG" + ITEM "|" MESSAGE CLEAR,SPP_CAUSD + ITEM "LA|Quadro LA" MESSAGE ENABLE,SPP_CAUSD + ITEM "SF|Quadro SF" MESSAGE CLEAR,SPP_CAUSD + ITEM "SG|Quadro SG" MESSAGE CLEAR,SPP_CAUSD WARNING "Manca il codice quadro" FIELD S12 END +STRING SPP_CAUSD 2 +BEGIN + PROMPT 50 21 "Causale LA " + FLAGS "U" + SHEET "Codice|Descrizione@320" + INPUT SPP_CAUSD + ITEM " | " + ITEM "A|Prestazione di lavoro autonomo rientranti nell'esercizio di arte o professione abituale" + ITEM "B|Utilizzazione economica, da parte dell'autore o dell'inventore, di opere dell'ingegno, di brevetti industriali e di processi, formule o informazioni relativi ad esperienzeacquisite in campo industriale, commerciale o scientifico" + ITEM "C|Utili derivanti da contratti di associazione in partecipazione e da contratti di cointeressenza quando l' apporto e' costituito esclusivamente dalla prestazione di lavoro" + ITEM "D|utili spettanti ai soci promotori ed ai soci fondatori delle societa' di capitali" + ITEM "E|Levata di protesti cambiari da parte dei segretari comunali" + ITEM "F|Indennità corrisposte ai giudici onorari di pace e ai vice procuratori onorari" + ITEM "G|Indennità corrisposte per la cessazione di attività sportiva professionale" + ITEM "H|Indennità corrisposte per la cessazione dei rapporti di agenzia delle persone fisiche e delle società di persone con esclusione delle somme maturate entro il 31 dicembre 2003, ..." + ITEM "I|Indennità corrisposte per la cessazione da funzioni notarili" + ITEM "J|Compensi corrisposi ai raccoglitori occasionali di tartufi..." + ITEM "K|Assegni di servizio civile di cui all'art.16 del D.lgs. n. 40 del 6 marzo 2017" + ITEM "L|Redditi derivanti dall’utilizzazione economica di opere dell’ingegno, di brevetti industriali e di processi, formule e informazioni relativi a esperienze acquisite in campo industriale, commerciale o scientifico, che sono percepiti dagli aventi causa a titolo gratuito (ad es. eredi e legatari dell'autore e inventore)" + ITEM "L1|Redditi derivanti dall’utilizzazione economica di opere dell’ingegno, di brevetti industriali e di processi, formule e informazioni relativi a esperienze acquisite in campo industriale, commerciale o scientifico, che sono percepiti da soggetti che abbiano acquistato a titolo oneroso i diritti alla loro utilizzazione" + ITEM "M|Prestazioni di lavoro autonomo non esercitate abitualmente" + ITEM "M1|Redditi derivanti dall’assunzione di obblighi di fare, di non fare o permettere" + ITEM "M2|Prestazioni di lavoro autonomo non esercitate abitualmente per le quali sussiste l'obbligo di iscrizione alla Gestione Separata ENPAPI" + ITEM "N|Idennita' di trasferta, rinborso forfetario di spese, premi e compensi erogati: \n- nell' esercizio diretto di attivita' sportiva dilettantistiche\n- in relazione a rapporti di collaborazione coordinata e continuativa i carattere amministrativo-gestionale di natura non professionale resi a favore di società e associazioni sportive dilettantistiche e di cori, bande e filodrammatiche da parte del direttore e dei collaboratori tecnici" + ITEM "O|Prestazioni di lavoro autonomo non esercitate abitualmente, per le quali non sussiste l’obbligo di iscrizione alla gestione separata" + ITEM "O1|Redditi derivanti dall’assunzione di obblighi di fare, di non fare o permettere, per le quali non sussiste l’obbligo di iscrizione alla gestione separata (Circ. INPS n. 104/2001)" + ITEM "P|Compensi corrisposti a soggetti non residenti privi di stabile organizzazione per l'uso o la concessione in uso di attrezzature industriali, commerciali o scientifiche che si trovano nel territorio dello Stato ovvero a società svizzere o stabili organizzazioni di società svizzere..." + ITEM "Q|Provvigioni corrisposte ad agente o rappresentante di commercio monomandatario" + ITEM "R|Provvigioni corrisposte ad agente o rappresentante plurimandatario" + ITEM "S|Provvigioni corrisposte a commissionario" + ITEM "T|Provvigioni corrisposte a mediatore" + ITEM "U|Provvigioni corrisposte a procacciatore di affari" + ITEM "V|Provvigioni corrisposte a incaricato per le vendite a domicilio" + ITEM "V1|Redditi derivanti da attività commerciali non esercitate abitualmente (ad esempio, provvigioni corrisposte per prestazioni occasionali ad agente o rappresentante di commercio, mediatore, procacciatore d'affari)" + ITEM "V2|redditi derivanti da attività commerciali non esercitate abitualmente rese dagli incaricati alla vendita diretta a domicilio" + ITEM "W|Corrispettivi erogati nel 2017 per prestazioni relative a contratti d'appalto cui si sono resi applicabili le diposizioni contenute nell'art. 25-ter del D.P.R. n. 600 del 29 settembre 1973" + ITEM "X|Canoni corrisposti nel 2004 da società o enti residenti ovvero da stabili organizzazioni di società estere" + ITEM "Y|Canoni corrisposti dal 1° gennaio 2005 al 26 luglio 2005 da società o enti residenti ovvero da stabili organizzazioni di società estere" + ITEM "Z0|Titolo diverso dai precedenti" + OUTPUT SPP_CAUSD + FIELD S14 + FLAGS "D" +END + LISTBOX SPP_SEZIONE 6 BEGIN - PROMPT 45 21 "Sezione per cooperative " + PROMPT 2 23 "Sezione per cooperative " FIELD S11[5,5] ITEM "D|Dare" ITEM "A|Avere"