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

Merge branch 'R_10_00' of http://10.65.20.17:7990/scm/campo/campo into R_10_00

Browse Source
This commit is contained in:
Simone Palacino 2019-01-25 09:57:43 +01:00
commit 9c9654b732
19 changed files with 187 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
cd/test/ba0676.txt Normal file
View File

@ -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

36
cd/test/ba0676a.ini Normal file
View File

@ -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

BIN
cd/test/ba0676a1.zip Normal file
View File

Binary file not shown.

5
cd/test/fp0680.txt Normal file
View File

@ -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

19
cd/test/fp0680a.ini Normal file
View File

@ -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

BIN
cd/test/fp0680a1.zip Normal file
View File

Binary file not shown.

BIN
cd/test/ve0676a1.zip
View File

Binary file not shown.

2
src/ba/f3.dir
View File

@ -1,3 +1,3 @@
3
1
%tabgen|0|0|1186|0|Tabelle di studio|50||
%tabgen|0|0|1285|0|Tabelle di studio|||

8
src/ba/f3.trr
View File

@ -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|

2
src/ba/f4.dir
View File

@ -1,3 +1,3 @@
4
1
%tabcom|0|0|1280|0|Tabelle comuni|1500||
%tabcom|0|0|1285|0|Tabelle comuni|||

3
src/ba/f4.trr
View File

@ -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|

2
src/ba/f5.dir
View File

@ -1,3 +1,3 @@
5
0
$tab|6734|6734|1210|0|Tabelle ditta|400||
$tab|||1285|0|Tabelle ditta|||

4
src/ba/f5.trr
View File

@ -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|

8
src/fp/fplib01.cpp
View File

@ -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')

3
src/ve/velib.h
View File

@ -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);

1
src/ve/vetbprs.h
View File

@ -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

52
src/ve/vetbprs.uml
View File

@ -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 "

1
src/ve/vetbspp.h
View File

@ -39,6 +39,7 @@
#define SPP_CDC_A4 143
#define SPP_CODQUA 160
#define SPP_CAUSD 161
#ifndef __VETBANAL_H
#include "vetbanal.h"

54
src/ve/vetbspp.uml
View File

@ -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"