Riorganizzazione maschera

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

mg/mg3300.uml

@@ -17,12 +17,14 @@ LISTBOX F_ORDINE 12
 BEGIN
   PROMPT 2 2 "Ordinamento   "
   ITEM "A|articoli"
-  MESSAGE ENABLE,F_ORDINEART|HIDE,F_TOTALIDEPOSITI|HIDE,F_DETTAGLIODEP
+  MESSAGE ENABLE,F_ORDINEART
-  MESSAGE SHOW,F_TOTALIMAGAZZINI|SHOW,F_DETTAGLIOMAG
+  MESSAGE HIDE,F_DETTAGLIOMAG|HIDE,F_DETTAGLIODEP
+  MESSAGE SHOW,F_SUDDIV_MAGAZZINI|SHOW,F_SUDDIV_DEPOSITI
   ITEM "M|magazzini"
   MESSAGE "C",F_ORDINEART|K_SPACE,F_ORDINEART|DISABLE,F_ORDINEART|SHOW,G_CODART@|HIDE,G_DESART@
-  MESSAGE SHOW,F_TOTALIDEPOSITI|SHOW,F_DETTAGLIODEP
+  MESSAGE SHOW,F_DETTAGLIOMAG|SHOW,F_DETTAGLIODEP
-  MESSAGE HIDE,F_TOTALIMAGAZZINI|HIDE,F_DETTAGLIOMAG
+  MESSAGE HIDE,F_SUDDIV_MAGAZZINI|HIDE,F_SUDDIV_DEPOSITI
+  
 END
 
 
@@ -170,67 +172,79 @@ BEGIN
   WARNING "Il secondo estremo deve essere superiore al primo"
 END
 
-BOOLEAN F_RAGGCODICE
+BOOL F_DETTAGLIOMAG 
 BEGIN
-  PROMPT 2 14 "Raggruppo gli articoli"
+  PROMPT 2 11 "Suddivido per depositi"
-  MESSAGE FALSE CLEAR,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
-  MESSAGE TRUE ENABLE,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
-END
-
-NUMBER F_TOLIVELLOART 1
-BEGIN
-  PROMPT 42 14 "fino al livello "
-  USE FCA
-  INPUT CODTAB F_TOLIVELLOART
-  DISPLAY "Num." CODTAB 
-  DISPLAY "Descr@50" S0
-  OUTPUT F_TOLIVELLOART CODTAB 
-  CHECKTYPE NORMAL
-//  NUM_EXPR (||(#F_TOLIVELLOART=0))&&(((#F_TOLIVELLOGIAC+#F_FROMLIVELLOGIAC)*#F_TOLIVELLOART)=0)
-  WARNING "Livello finale non ammissibile"
-END
-
-BOOL F_RAGGLIVGIAC
-BEGIN
-  PROMPT 2 15 "Raggruppo le giacenze"
-  MESSAGE FALSE CLEAR,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
-  MESSAGE TRUE ENABLE,F_TOLIVELLOGIAC
-END
-
-NUMBER F_TOLIVELLOGIAC 1
-BEGIN
-  FLAG "D"
-  PROMPT 42 15 "fino al livello "
-  USE FCG
-  INPUT CODTAB F_TOLIVELLOGIAC
-  DISPLAY "Num." CODTAB 
-  DISPLAY "Descr@50" S0
-  OUTPUT F_TOLIVELLOGIAC CODTAB 
-  WARNING "Livello finale non ammissibile"
-  CHECKTYPE NORMAL
-END
-
-
-BOOL F_SUDDIV_MAGAZZINI 
-BEGIN
-  PROMPT 2 16 "Suddivido per depositi"
-  MESSAGE TRUE  ENABLE,F_SUDDIV_DEPOSITI
-  MESSAGE FALSE  CLEAR,F_SUDDIV_DEPOSITI|K_SPACE,F_SUDDIV_DEPOSITI
-END
-
-BOOL F_SUDDIV_DEPOSITI 
-BEGIN
-  PROMPT 2 17 "Dettaglio i depositi"
   MESSAGE TRUE  ENABLE,F_DETTAGLIODEP
   MESSAGE FALSE  CLEAR,F_DETTAGLIODEP
 END
 
 BOOL F_DETTAGLIODEP
 BEGIN
-  PROMPT 42 17 "Dettaglio i depositi"
+  FLAGS "D"
+  PROMPT 2 12 "Dettaglio i depositi"
 END
 
 
+LIST F_ENABLER 30
+BEGIN
+  PROMPT 2 14 ""
+  ITEM "|Nessun raggruppamento"
+  MESSAGE ENABLE,F_SUDDIV_MAGAZZINI
+  MESSAGE RESET,F_TOLIVELLOGIAC|RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART|HIDE,F_TOLIVELLOGIAC
+
+  ITEM "1|Raggruppa gli articoli"
+  MESSAGE RESET,F_TOLIVELLOGIAC|HIDE,F_TOLIVELLOGIAC|SHOW,F_TOLIVELLOART|CHECK,F_TOLIVELLOART
+
+  ITEM "2|Raggruppa le giacenze"
+  MESSAGE RESET,F_TOLIVELLOART|HIDE,F_TOLIVELLOART|SHOW,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC
+  
+END
+
+NUMBER F_TOLIVELLOART 1
+BEGIN
+  PROMPT 42 14 "Fino al livello "
+  USE FCA
+  INPUT CODTAB F_TOLIVELLOART
+  DISPLAY "Num." CODTAB 
+  DISPLAY "Descr@50" S0
+  OUTPUT F_TOLIVELLOART CODTAB 
+  //MESSAGE EMPTY ENABLE,F_SUDDIV_MAGAZZINI
+  //MESSAGE CLEAR,F_SUDDIV_MAGAZZINI|K_SPACE,F_SUDDIV_MAGAZZINI
+
+  CHECKTYPE NORMAL
+  WARNING "Livello finale non ammissibile"
+END
+
+NUMBER F_TOLIVELLOGIAC 1
+BEGIN
+  PROMPT 42 14 "Fino al livello "
+  USE FCG
+  INPUT CODTAB F_TOLIVELLOGIAC
+  DISPLAY "Num." CODTAB 
+  DISPLAY "Descr@50" S0
+  OUTPUT F_TOLIVELLOGIAC CODTAB 
+  //MESSAGE EMPTY ENABLE,F_SUDDIV_MAGAZZINI
+  //MESSAGE CLEAR,F_SUDDIV_MAGAZZINI|K_SPACE,F_SUDDIV_MAGAZZINI
+
+  CHECKTYPE NORMAL
+  WARNING "Livello finale non ammissibile"
+END
+               
+               
+BOOL F_SUDDIV_MAGAZZINI 
+BEGIN
+  PROMPT 2 16 "Suddivido per magazzini"
+  MESSAGE TRUE  ENABLE,F_SUDDIV_DEPOSITI
+  MESSAGE FALSE  CLEAR,F_SUDDIV_DEPOSITI|K_SPACE,F_SUDDIV_DEPOSITI
+END
+
+BOOL F_SUDDIV_DEPOSITI 
+BEGIN
+  FLAGS "D"
+    PROMPT 2 17 "Suddivido per depositi"
+END
+
 
 BUTTON DLG_OK 10 2
 BEGIN