From d6f2642143c2d4844358202e45e84cec2ab10206 Mon Sep 17 00:00:00 2001 From: alex Date: Tue, 7 Oct 2008 15:36:17 +0000 Subject: [PATCH] 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 --- m770/batbca7.uml | 43 +++++++++++++++++++++++++------------------ m770/f39.dir | 2 +- m770/f39.trr | 8 +++++--- m770/f40.dir | 2 +- m770/f40.trr | 6 ++++-- m770/f41.dir | 2 +- m770/f41.trr | 6 ++++-- 7 files changed, 41 insertions(+), 28 deletions(-) diff --git a/m770/batbca7.uml b/m770/batbca7.uml index 279dee22e..e7568c71a 100755 --- a/m770/batbca7.uml +++ b/m770/batbca7.uml @@ -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" diff --git a/m770/f39.dir b/m770/f39.dir index dd51e45da..b1f9921b5 100755 --- a/m770/f39.dir +++ b/m770/f39.dir @@ -1,3 +1,3 @@ 39 1 -m770/schper|0|0|186|4|Schede percipienti|#9|| +m770/schper|0|0|193|0|Schede percipienti|#9|| diff --git a/m770/f39.trr b/m770/f39.trr index 58cf6e730..17dfe0ee2 100755 --- a/m770/f39.trr +++ b/m770/f39.trr @@ -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 diff --git a/m770/f40.dir b/m770/f40.dir index 2a823a70f..79bb95ec9 100755 --- a/m770/f40.dir +++ b/m770/f40.dir @@ -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|| diff --git a/m770/f40.trr b/m770/f40.trr index e8a789b39..e331e918d 100755 --- a/m770/f40.trr +++ b/m770/f40.trr @@ -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 diff --git a/m770/f41.dir b/m770/f41.dir index 5d4e23698..99483e25c 100755 --- a/m770/f41.dir +++ b/m770/f41.dir @@ -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|| diff --git a/m770/f41.trr b/m770/f41.trr index a042baf76..ac2b9b1c4 100755 --- a/m770/f41.trr +++ b/m770/f41.trr @@ -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