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

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

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

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

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

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

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

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