From 70e923b00ae097896e1dfbeca912d898b7b6cd00 Mon Sep 17 00:00:00 2001
From: augusto <augusto@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 14 Jan 1997 14:51:36 +0000
Subject: [PATCH] Corretta ins.dei depositi:wq

git-svn-id: svn://10.65.10.50/trunk@4076 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ve/batbmag.uml | 26 ++++++++++++++++++--------
 1 file changed, 18 insertions(+), 8 deletions(-)

diff --git a/ve/batbmag.uml b/ve/batbmag.uml
index 336fd6beb..6ebf3078e 100755
--- a/ve/batbmag.uml
+++ b/ve/batbmag.uml
@@ -3,7 +3,7 @@
 #include <comdden.h>
 
 TOOLBAR "" 0 20 60 2
- #include <toolbar.h>
+#include <toolbar.h>
 ENDPAGE
 
 PAGE "Gestione magazzini" 11 60 14
@@ -43,8 +43,13 @@ BEGIN
   FIELD CODTAB[4,5]
   FLAGS "U"
   KEY 1
-  USE MAG
-  INPUT CODTAB[1,3] F_CODICE
+	// abilit. CODDEP sempre:
+	USE MAG 
+	INPUT CODTAB[1,3] F_CODICE
+  // abilit. CODDEP solo per i magazzini che lo consentono:
+	// ATTENZIONE! da' stack overflow
+  //USE MAG SELECT (CODTAB[1,3]==#F_CODICE)&&(CODTAB[4,5]!="")
+
   INPUT CODTAB[4,5] F_CODDEP
   DISPLAY "Cod. magazzino" CODTAB[1,3]
   DISPLAY "Cod. deposito" CODTAB[4,5]
@@ -55,8 +60,9 @@ BEGIN
   MESSAGE SHOW,H_DESCR|HIDE,F_DESCR|SHOW,F_DESDEP|HIDE,F_GESTGIA
   MESSAGE EMPTY HIDE,H_DESCR|SHOW,F_DESCR|HIDE,F_DESDEP|SHOW,F_GESTGIA
   CHECKTYPE NORMAL
-  //VALIDATE AUTOEXIT_FUNC 2 F_CODICE F_CODDEP
-  //GROUP GR_SEARCH
+	// controllo abilit. CODDEP (utilizzabile sempre)
+  STR_EXPR (#H_GESTGIA=="X")||(#F_CODDEP=="")
+	WARNING "Il magazzino deve essere abilitato alla gestione dei depositi"
 END
 
 //Abilitazione/disabil. dei campi relativi al deposito
@@ -64,11 +70,13 @@ BOOLEAN H_GESTGIA
 BEGIN
   PROMPT 1 1 ""
   FLAGS "GH"
-	MESSAGE TRUE ENABLE,F_CODDEP//|ENABLE,F_DESDEP
-  MESSAGE FALSE DISABLE,F_CODDEP
+	// abilit. CODDEP sempre:
+	// --rimuovere i campi MESSAGE--
+	// abilit. CODDEP solo per i magazzini che lo consentono:
+	MESSAGE TRUE SHOW,F_CODDEP//|ENABLE,F_DESDEP
+  MESSAGE FALSE HIDE,F_CODDEP
 END
 
-
 STRING H_DESCR 50
 BEGIN
   PROMPT 2 3 "Denominazione mag. "
@@ -254,6 +262,7 @@ END
 STRING F_CODMAGSTA 3
 BEGIN
   PROMPT 2 2 "Codice magazzino sul cui giornale stampare i movimenti "
+	FLAGS "U"
   FIELD S6
   USE MAG SELECT CODTAB[4,5] == ""
   INPUT CODTAB[1,3]  F_CODMAGSTA
@@ -268,6 +277,7 @@ END
 STRING F_CODLGIOR 3
 BEGIN
   PROMPT 2 3 "Codice libro giornale "
+	FLAGS "U"
   FIELD S8
   USE REG
   INPUT CODTAB[1,4] F_ANNO