Corretta ins.dei depositi:wq

git-svn-id: svn://10.65.10.50/trunk@4076 c028cbd2-c16b-5b4b-a496-9718f37d4682

ve/batbmag.uml

@@ -43,8 +43,13 @@ BEGIN
   FIELD CODTAB[4,5]
   FLAGS "U"
   KEY 1
+	// 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