Patch level : 10.0 140

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :

Legata la causale 770 al codice tributo e la sepa a qyest'ultimo


git-svn-id: svn://10.65.10.50/trunk@17369 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 2008-10-07 15:36:17 +00:00
parent 6ab05780cd
commit d6f2642143
7 changed files with 41 additions and 28 deletions

View File

@ -13,7 +13,7 @@ END
NUMBER F_CODCAUS 2
BEGIN
PROMPT 1 1 "Codice causale "
FIELD LF_TABCOM->CODTAB
FIELD CODTAB
USE %CA7
INPUT CODTAB F_CODCAUS
DISPLAY "Cod.caus." CODTAB
@ -34,7 +34,14 @@ END
NUMBER F_CODTRIB 4
BEGIN
PROMPT 1 2 "Codice tributo "
FIELD LF_TABCOM->I0
FIELD I0
FLAGS "Z"
USE %TRB SELECT S6=="E"
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
DISPLAY "Sezione" S6
OUTPUT F_CODICE CODTAB
HELP "Inserire il codice tributo"
WARNING "Manca il codice tributo"
CHECKTYPE REQUIRED
@ -58,7 +65,7 @@ BEGIN
MESSAGE CLEAR,TCF_BINPS|K_SPACE,TCF_BINPS|RESET,G_ICTS@|DISABLE,G_ICTS@|RESET,TCF_PERCASSPREV|DISABLE,TCF_PERCASSPREV|RESET,GR_NOCAUE1@|DISABLE,GR_CAUDD1@|ENABLE,TCF_CAUSE1|SHOW,F_DESCR1|HIDE,F_DESCR2
MESSAGE COPY,F_CODQUA
WARNING "Manca il codice quadro"
FIELD LF_TABCOM->S1
FIELD S1
END
LIST F_QUADRAT 2
@ -74,7 +81,7 @@ BEGIN
MESSAGE COPY,F_QUADRCE2
MESSAGE COPY,F_CODQUA
WARNING "Manca il codice quadro"
FIELD LF_TABCOM->S1
FIELD S1
END
LIST F_CODQUA 2
@ -85,7 +92,7 @@ BEGIN
ITEM "SG|SG"
ITEM "ST|ST"
FLAGS "H"
FIELD LF_TABCOM->S1
FIELD S1
END
STRING F_DESCR1 60 35
@ -93,7 +100,7 @@ BEGIN
PROMPT 1 4 "Descrizione "
HELP "Inserire la descrizione della causale"
WARNING "Manca la descrizione"
FIELD LF_TABCOM->S0
FIELD S0
CHECKTYPE REQUIRED
MESSAGE COPY,F_DESCR2
END
@ -101,7 +108,7 @@ END
STRING F_DESCR2 60
BEGIN
PROMPT 1 4 "Descrizione "
FIELD LF_TABCOM->S0
FIELD S0
HELP "Inserire la descrizione della causale"
WARNING "Manca la descrizione"
CHECKTYPE REQUIRED
@ -138,7 +145,7 @@ BEGIN
ITEM "Z|Titolo diverso dai precedenti"
OUTPUT TCF_CAUSD
OUTPUT TCF_CAUSD_DESCR
FIELD LF_TABCOM->S2
FIELD S2
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUC
@ -177,7 +184,7 @@ BEGIN
ITEM "T|altro soggetto diverso dai precedenti"
OUTPUT TCF_CAUSD1
OUTPUT TCF_CAUSD1_DESCR
FIELD LF_TABCOM->S3
FIELD S3
FLAGS "DH"
GROUP GR_CAUDD1
GROUP GR_NOCAUC
@ -225,7 +232,7 @@ BEGIN
ITEM "T|interessi ed altri proventi derivanti da finanziamenti effettuati da soggetti non residenti e raccolti dalla societá costituita ai sensi del'art.13 della L. 23 dicembre 1998, n.448, per la cartolarizzazione dei crediti INPS"
OUTPUT TCF_CAUSE
OUTPUT TCF_CAUSE_DESCR
FIELD LF_TABCOM->S8
FIELD S8
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUC
@ -261,7 +268,7 @@ BEGIN
ITEM "E|rendite corrisposte per conto della assicurazione invaliditá, vecchiaia e superstiti Svizzera (AVS) assoggettate a ritenuta unica del 5% ai sensi dell'art.76 della L. 30 dicembre 1991, n.413"
OUTPUT TCF_CAUSE1
OUTPUT TCF_CAUSE1_DESCR
FIELD LF_TABCOM->S9
FIELD S9
FLAGS "D"
GROUP GR_CAUDD1
GROUP GR_NOCAUC
@ -286,7 +293,7 @@ END
NUMBER F_PERASS 6
BEGIN
PROMPT 1 12 "Percentuale assoggettamento imponibile "
FIELD LF_TABCOM->R4
FIELD R4
PICTURE ".2"
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
WARNING "Percentuale assoggettamento imponibile non valida"
@ -295,7 +302,7 @@ END
NUMBER TCF_PERCASSPREV 6
BEGIN
PROMPT 1 13 "Percentuale cassa previdenza "
FIELD LF_TABCOM->R5
FIELD R5
PICTURE ".2"
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
WARNING "Percentuale cassa previdenza non valida"
@ -304,7 +311,7 @@ END
NUMBER F_PERRIT 6
BEGIN
PROMPT 1 14 "Percentuale ritenute d'acconto "
FIELD LF_TABCOM->R0
FIELD R0
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
PICTURE ".2"
WARNING "Percentuale della ritenuta d'acconto non valida"
@ -324,7 +331,7 @@ BEGIN
ITEM "6|se concorrono due o più dei codici precedenti"
OUTPUT F_IC
OUTPUT F_IC_DESCR
FIELD LF_TABCOM->S4
FIELD S4
FLAGS "D"
GROUP G_ICTS
END
@ -353,7 +360,7 @@ NUMBER TCF_PERCINPS 6 2
BEGIN
PROMPT 30 18 "Percentuale "
PICTURE ".2"
FIELD LF_TABCOM->R1
FIELD R1
NUM_EXPR {(#THIS>0) && (#THIS<=100)}
FLAGS "DU"
GROUP INPS_GROUP
@ -365,7 +372,7 @@ NUMBER TCF_ASSIMPINPS 6 2
BEGIN
PROMPT 1 19 "Percentuale ass.imp. "
PICTURE ".2"
FIELD LF_TABCOM->R2
FIELD R2
NUM_EXPR {(#THIS>0) && (#THIS<=100)}
FLAGS "DU"
GROUP INPS_GROUP
@ -377,7 +384,7 @@ NUMBER TCF_COMMINPS 6
BEGIN
PROMPT 30 19 "Quota a carico del committente "
PICTURE ".2"
FIELD LF_TABCOM->R3
FIELD R3
NUM_EXPR {(#THIS>=0) && (#THIS<=100)}
FLAGS "D"
WARNING "Quota contributo INPS a carico del committente non valida"

View File

@ -1,3 +1,3 @@
39
1
m770/schper|0|0|186|4|Schede percipienti|#9||
m770/schper|0|0|193|0|Schede percipienti|#9||

View File

@ -1,5 +1,5 @@
39
20
21
CODDITTA|3|5|0|Codice ditta
TIPOA|1|1|0|Tipo percipiente
CODANAGR|3|5|0|Codice percipiente
@ -20,6 +20,8 @@ CAUSQUA|7|1|0|Causale quadro
FLAGTS|7|1|0|Flag T.S.
RITOPE|4|18|2|Ritenute operate
RITVER|4|18|2|Ritenute versate
2
NUMREG|3|7|0|Numero di registrazione contabile
3
CODDITTA+TIPOA+CODANAGR+NPROG|
CODDITTA+TIPOA+CODANAGR+DATADOC+NPROG|
CODDITTA+TIPOA+CODANAGR+DATADOC+NPROG|X
NUMREG|X

View File

@ -1,3 +1,3 @@
40
1
m770/rver|0|0|71|4|Righe di versamento|#9||
m770/rver|0|0|78|0|Righe di versamento|#9||

View File

@ -1,5 +1,5 @@
40
13
14
CODDITTA|3|5|0|Codice ditta
TIPOA|1|1|0|Tipo percipiente
CODANAGR|3|5|0|Codice percipiente
@ -13,5 +13,7 @@ LUOVERS|1|1|0|Luogo versamento
NUMERO|1|11|0|Numero versamento
SERIE|1|5|0|Serie
PROGBANC|10|6|0|Progressivo banca
1
NUMREG|3|7|0|Numero di registrazione contabile
2
CODDITTA+TIPOA+CODANAGR+NPROG+NRIGA|
NUMREG|X

View File

@ -1,3 +1,3 @@
41
1
m770/rpag|0|0|469|4|Righe di pagamento|#9||
m770/rpag|0|0|476|0|Righe di pagamento|#9||

View File

@ -1,5 +1,5 @@
41
35
36
CODDITTA|3|5|0|Codice ditta
TIPOA|1|1|0|Tipo percipiente
CODANAGR|3|5|0|Codice percipiente
@ -35,5 +35,7 @@ AMMLORDO|4|18|2|Ammontare lordo corrisposto (calc)
QUOTAPROV|4|18|2|Quota provvigioni (calc)
IMPNETTO|4|18|2|Imponibile al netto delle ritenute (calc)
COMNETTO|4|18|2|Compenso al netto delle ritenute (calc)
1
NUMREG|3|7|0|Numero di registrazione contabile
2
CODDITTA+TIPOA+CODANAGR+NPROG+NRIGA|
NUMREG|X