From 4f1d32502ea74bd9b0540d99de3ea9b054e49301 Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 27 May 2013 12:11:21 +0000
Subject: [PATCH] Aggiunta su anagrafiche la causale 770

git-svn-id: svn://10.65.10.50/branches/R_10_00@22868 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ba/ba4200.h    |  3 ++-
 ba/ba4200b.uml | 20 ++++++++++++++++++++
 ba/ba4200c.uml | 20 ++++++++++++++++++++
 ba/batbiva.uml |  2 +-
 ba/f6.dir      |  2 +-
 ba/f6.trr      |  3 ++-
 ba/f8.dir      |  6 +++---
 7 files changed, 49 insertions(+), 7 deletions(-)

diff --git a/ba/ba4200.h b/ba/ba4200.h
index 1f0a98e13..69a9e1c45 100755
--- a/ba/ba4200.h
+++ b/ba/ba4200.h
@@ -388,5 +388,6 @@
 #define F_CODREG96     413
 #define F_DESREG96     414
 #define H_TIPOA        415                           
-                           
+#define F_CAUSQUA      416
+                          
 #endif  // __BA4200_H
diff --git a/ba/ba4200b.uml b/ba/ba4200b.uml
index 706be6d2f..9f8769828 100755
--- a/ba/ba4200b.uml
+++ b/ba/ba4200b.uml
@@ -931,6 +931,26 @@ BEGIN
   WARNING "Regione assente"
 END
 
+STRING F_CAUSQUA 2
+BEGIN
+  PROMPT 2 11 "Causale quadro LA 770 "
+  USE %CA7 SELECT S1="LA"
+  INPUT CODTAB F_CAUSQUA
+  DISPLAY "Cod." CODTAB 
+  DISPLAY "Quadro" S1
+  DISPLAY "Descrizione @50" S0
+  DISPLAY "Cod.trib." I0
+  DISPLAY "Art.bil." I3 
+  DISPLAY "C.SC" S2 
+  DISPLAY "C.SE" S3 
+  DISPLAY "C.SF" S8
+  DISPLAY "C.SG" S9
+  DISPLAY "T.S." S4
+  OUTPUT F_CAUSQUA CODTAB
+  CHECKTYPE NORMAL
+  FIELD CAUSQUA
+END
+
 GROUPBOX DLG_NULL 78 5
 BEGIN
 PROMPT 0 13 "Codici statistici"
diff --git a/ba/ba4200c.uml b/ba/ba4200c.uml
index 942297b49..353910dc1 100755
--- a/ba/ba4200c.uml
+++ b/ba/ba4200c.uml
@@ -1019,6 +1019,26 @@ BEGIN
   HELP "Indicare se il domicilio fiscale e' diverso dalla sede legale"
 END
 
+STRING F_CAUSQUA 2
+BEGIN
+  PROMPT 2 6 "Causale quadro LA 770 "
+  USE %CA7 SELECT S1="LA"
+  INPUT CODTAB F_CAUSQUA
+  DISPLAY "Cod." CODTAB 
+  DISPLAY "Quadro" S1
+  DISPLAY "Descrizione @50" S0
+  DISPLAY "Cod.trib." I0
+  DISPLAY "Art.bil." I3 
+  DISPLAY "C.SC" S2 
+  DISPLAY "C.SE" S3 
+  DISPLAY "C.SF" S8
+  DISPLAY "C.SG" S9
+  DISPLAY "T.S." S4
+  OUTPUT F_CAUSQUA CODTAB
+  CHECKTYPE NORMAL
+  FIELD CAUSQUA
+END
+
 GROUPBOX DLG_NULL 78 5
 BEGIN
   PROMPT 0 7 "Codici statistici"
diff --git a/ba/batbiva.uml b/ba/batbiva.uml
index 1e03528f5..a9e9c5f84 100755
--- a/ba/batbiva.uml
+++ b/ba/batbiva.uml
@@ -120,7 +120,7 @@ END
 
 STRING FLD_DESCR_I1 50
 BEGIN
-  PROMPT 26 4 ""
+  PROMPT 25 4 ""
   USE %TIC KEY 2
   INPUT S0 FLD_DESCR_I1
   DISPLAY "Descrizione@50" S0
diff --git a/ba/f6.dir b/ba/f6.dir
index c835ca3b7..019c0edd6 100755
--- a/ba/f6.dir
+++ b/ba/f6.dir
@@ -1,3 +1,3 @@
 6
 1
-%anagr|0|0|591|0|Anagrafica persone fisiche e giuridiche|100||
+%anagr|0|0|593|0|Anagrafica persone fisiche e giuridiche|100||
diff --git a/ba/f6.trr b/ba/f6.trr
index d4c900b9f..9ea4a5d77 100755
--- a/ba/f6.trr
+++ b/ba/f6.trr
@@ -1,5 +1,5 @@
 6
-52
+53
 TIPOA|1|1|0|
 CODANAGR|3|5|0|
 COFI|1|16|0|
@@ -52,6 +52,7 @@ CODCAB|10|5|0|
 NISCRIIDD|1|10|0|
 UFFCONC|9|3|0|
 OGGETTI|11|10|0|
+CAUSQUA|1|2|0|
 4
 TIPOA+CODANAGR| 
 TIPOA+UPPER(RAGSOC)|X
diff --git a/ba/f8.dir b/ba/f8.dir
index 3fe3d8f1b..1b7778ece 100755
--- a/ba/f8.dir
+++ b/ba/f8.dir
@@ -1,3 +1,3 @@
-8
-1
-%anafis|0|0|51|0|Anagrafica persone fisiche|100||
+8
+1
+%anafis|0|0|51|0|Anagrafica persone fisiche|100||