From 7b657635991a3c066635c3522c979853ecb42baa Mon Sep 17 00:00:00 2001
From: augusto <augusto@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Thu, 12 Jun 1997 15:25:55 +0000
Subject: [PATCH] Causali richiamate

git-svn-id: svn://10.65.10.50/trunk@4620 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 mg/batbcau.h   |  1 +
 mg/batbcau.uml | 79 ++++++++++++++++++++++++++++----------------------
 2 files changed, 45 insertions(+), 35 deletions(-)

diff --git a/mg/batbcau.h b/mg/batbcau.h
index 3809d1570..444d4b909 100755
--- a/mg/batbcau.h
+++ b/mg/batbcau.h
@@ -23,5 +23,6 @@
 #define F_ERASER	130
 #define F_SUMSIGN  131
 #define F_CHECKER  132
+#define F_CAUCOLL 133
 #define G_SGN		20
 
diff --git a/mg/batbcau.uml b/mg/batbcau.uml
index 7fb04e628..561c8b2a5 100755
--- a/mg/batbcau.uml
+++ b/mg/batbcau.uml
@@ -65,15 +65,9 @@ BEGIN
 	FLAGS "D"
 END
 
-//STRING H_RAGGFD	50
-//BEGIN 
-//  PROMPT 30  5 ""
-//	FLAGS "HD"
-//END
-
 LISTBOX F_TIPOMOV	16
 BEGIN 
-  PROMPT 2 7 "Tipo movimento      "
+  PROMPT 2 6 "Tipo movimento      "
 	FIELD S7
 	ITEM "C|carico"
 	ITEM "S|scarico"
@@ -82,16 +76,31 @@ END
 
 LISTBOX F_TIPOPR	16
 BEGIN 
-  PROMPT 42 7 "Tipo prezzo         "
+  PROMPT 42 6 "Tipo prezzo "
 	FIELD S6
 	ITEM "P|Prezzo"
 	ITEM "C|Costo"
 	ITEM "L|Libero"		
 END
 
+STRING F_CAUCOLL 4		
+BEGIN 
+  PROMPT 2 8 "Causale collegata  "
+	FIELD S9
+  USE CAU SELECT S9==""
+  FLAGS "U"
+  INPUT CODTAB  F_CAUCOLL 
+  DISPLAY "Codice " CODTAB
+  DISPLAY "Descrizione@50 " S0
+  OUTPUT F_CAUCOLL CODTAB
+	CHECKTYPE NORMAL
+END
+
+
+
 LISTBOX F_SGNGIAC	1
 BEGIN 
-  PROMPT 2 9 "Movimentazione giacenza   "
+  PROMPT 2 10 "Movimentazione giacenza   "
 	FIELD I0
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -104,7 +113,7 @@ END
 
 LISTBOX F_SGNRIM	1
 BEGIN 
-  PROMPT 2 10 "    ''    ''   rim.iniz.  "
+  PROMPT 2 11 "    ''    ''   rim.iniz.  "
 	FIELD I11
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -117,7 +126,7 @@ END
 
 LISTBOX F_SGNACQ	1
 BEGIN 
-    PROMPT 2 11 "    ''    ''   acquistato "
+    PROMPT 2 12 "    ''    ''   acquistato "
 	FIELD I1
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -128,22 +137,9 @@ BEGIN
 	GROUP G_SGN
 END
 
-LISTBOX F_SGNENTR	1
-BEGIN 
-    PROMPT 42 11 "Movimentazione entrato    "
-	FIELD I2
-	ITEM "0| "
-	MESSAGE K_TAB,F_SUMSIGN
-	ITEM "1|+"
-	MESSAGE K_TAB,F_SUMSIGN
-	ITEM "-1|-"
-	MESSAGE K_TAB,F_SUMSIGN
-	GROUP G_SGN
-END
-
 LISTBOX F_SGNVEN	1
 BEGIN 
-    PROMPT 2 12 "    ''    ''   venduto    "
+    PROMPT 42 12  "Movimentazione venduto    "
 	FIELD I3
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -154,9 +150,21 @@ BEGIN
 	GROUP G_SGN
 END
 
+LISTBOX F_SGNENTR	1
+BEGIN 
+    PROMPT 2 13 "    ''    ''   entrato    "
+	FIELD I2
+	ITEM "0| "
+	MESSAGE K_TAB,F_SUMSIGN
+	ITEM "1|+"
+	MESSAGE K_TAB,F_SUMSIGN
+	ITEM "-1|-"
+	MESSAGE K_TAB,F_SUMSIGN
+	GROUP G_SGN
+END
 LISTBOX F_SGNUSC	1 
 BEGIN 
-    PROMPT 42 12 "    ''    ''   uscito     "
+  PROMPT 42 13 "    ''    ''   uscito     "
 	FIELD I4
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -167,9 +175,10 @@ BEGIN
 	GROUP G_SGN
 END
 
+
 LISTBOX F_SGNORDF	1
 BEGIN 
-    PROMPT 2 13 "    ''    ''   ord. forn. "
+    PROMPT 2 14 "    ''    ''   ord. forn. "
 	FIELD I6
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -182,7 +191,7 @@ END
 
 LISTBOX F_SGNORDC	1
 BEGIN 
-    PROMPT 42 13 "    ''    ''   ord. cli.  "
+    PROMPT 42 14 "    ''    ''   ord. cli.  "
 	FIELD I5
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -195,7 +204,7 @@ END
 
 LISTBOX F_SGNSCAR	1
 BEGIN 
-    PROMPT 2 14 "    ''    ''   scarti     "
+    PROMPT 2 15 "    ''    ''   scarti     "
 	FIELD I12
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -208,7 +217,7 @@ END
 
 LISTBOX F_SGNPRODF 1
 BEGIN 
-    PROMPT 2 15 "    ''    ''   prod. fin. "
+    PROMPT 2 16 "    ''    ''   prod. fin. "
 	FIELD I10
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -221,7 +230,7 @@ END
 
 LISTBOX F_SGNPRODC	1
 BEGIN 
-  PROMPT 42 15 "    ''    ''   prod.comp. "
+  PROMPT 42 16 "    ''    ''   prod.comp. "
 	FIELD I9
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -234,7 +243,7 @@ END
 
 LISTBOX F_SGNACL	1
 BEGIN 
-    PROMPT 2 16 "    ''    ''   a conto l. "
+    PROMPT 2 17 "    ''    ''   a conto l. "
 	FIELD I8
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -247,7 +256,7 @@ END
 
 LISTBOX F_SGNINCL	1
 BEGIN 
-    PROMPT 42 16 "    ''    ''   in conto l."
+    PROMPT 42 17 "    ''    ''   in conto l."
 	FIELD I7
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -260,7 +269,7 @@ END
 
 LISTBOX F_SGNLABEL  1
 BEGIN 
-  PROMPT 2 17 "    ''    ''   etichette  "
+  PROMPT 2 18 "    ''    ''   etichette  "
 	FIELD I13
 	ITEM "0| "
 	MESSAGE K_TAB,F_SUMSIGN
@@ -273,7 +282,7 @@ END
 
 NUMBER F_SUMSIGN	4 0
 BEGIN 
-  PROMPT 2 18 "Somma segni               "
+  PROMPT 2 19 "Controllo segni           "
 	FLAGS "DG"
 	NUM_CALC ((#F_SGNGIAC-#F_SGNRIM)-(#F_SGNACQ+#F_SGNENTR)+(#F_SGNVEN+#F_SGNUSC)+(#F_SGNACL-#F_SGNINCL)+(#F_SGNPRODF-#F_SGNPRODC)+#F_SGNSCAR)
 	MESSAGE COPY,F_CHECKER