root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Riorganizzazione maschera

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4846 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto 1997-07-07 12:29:53 +00:00
parent 22febea1fb
commit 14e8270b50
1 changed files with 69 additions and 55 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

124
mg/mg3300.uml
View File

@ -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 SHOW,F_TOTALIMAGAZZINI|SHOW,F_DETTAGLIOMAG
MESSAGE ENABLE,F_ORDINEART
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 HIDE,F_TOTALIMAGAZZINI|HIDE,F_DETTAGLIOMAG
MESSAGE SHOW,F_DETTAGLIOMAG|SHOW,F_DETTAGLIODEP
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"
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"
PROMPT 2 11 "Suddivido per 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