From fce5f6a001fff10655f19d07aa6cf5df0806dc94 Mon Sep 17 00:00:00 2001 From: augusto Date: Thu, 29 May 1997 16:30:06 +0000 Subject: [PATCH] Prima versione maschera git-svn-id: svn://10.65.10.50/trunk@4455 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- mg/mg3200.h | 31 +++++++ mg/mg3200.uml | 231 ++++++++++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 262 insertions(+) create mode 100755 mg/mg3200.h create mode 100755 mg/mg3200.uml diff --git a/mg/mg3200.h b/mg/mg3200.h new file mode 100755 index 000000000..80af256af --- /dev/null +++ b/mg/mg3200.h @@ -0,0 +1,31 @@ +#define F_ORDINE 101 +#define F_ORDINEART 102 +#define F_ORDINEMAG 103 +#define F_ANNOES 104 +#define F_DAART 105 +#define F_AART 106 +#define F_DAMAG 107 +#define F_AMAG 108 +#define F_DACATMER 109 +#define F_ACATMER 110 +#define F_DADES 111 +#define F_ADES 112 +#define F_RAGGCODICE 115 +#define F_FROMLIVELLOART 116 +#define F_TOLIVELLOART 117 +#define F_RAGGLIVGIAC 118 +#define F_TOTALIMAGAZZINI 119 +#define F_TOTALIDEPOSITI 120 + +#define F_ENABLEMAGAZZINI 121 +#define F_DETTAGLIOMAG 122 +#define F_DETTAGLIODEP 123 +#define F_FROMLIVELLOGIAC 124 +#define F_TOLIVELLOGIAC 125 + +#define G_CATMER 1 +#define G_CODART 2 +#define G_DESART 3 + + + diff --git a/mg/mg3200.uml b/mg/mg3200.uml new file mode 100755 index 000000000..26013ddc0 --- /dev/null +++ b/mg/mg3200.uml @@ -0,0 +1,231 @@ +#include "mg3200.h" +PAGE "Stampa disponibilità" -1 -1 78 20 + +LISTBOX F_ORDINE 10 +BEGIN + PROMPT 2 1 "Ordinamento " + ITEM "A|articoli" + MESSAGE ENABLE,F_ORDINEART + ITEM "M|magazzini" + MESSAGE "C",F_ORDINEART|K_SPACE,F_ORDINEART|DISABLE,F_ORDINEART|SHOW,G_CODART@|HIDE,G_DESART@ +END + + +LISTBOX F_ORDINEART 20 +BEGIN + FLAGS "G" + PROMPT 34 1 "sotto-ordinamento " + ITEM "C|codice" + MESSAGE HIDE,G_CATMER@|ENABLE,G_CODART@|HIDE,G_DESART@ + ITEM "D|descrizione" + MESSAGE HIDE,G_CATMER@|DISABLE,G_CODART@|SHOW,G_DESART@ + ITEM "M|gruppo merc./codice" + MESSAGE SHOW,G_CATMER@|ENABLE,G_CODART@|HIDE,G_DESART@ +END + +NUMBER F_ANNOES 4 +BEGIN + FLAGS "A" + PROMPT 2 2 "Codice es. " +END + +STRING F_DAART 20 +BEGIN + PROMPT 2 4 "Dall'articolo " + FLAGS "U" + USE LF_ANAMAG + INPUT CODART F_DAART + DISPLAY "Codice" CODART + DISPLAY "Descr@50" DESCR + OUTPUT F_DAART CODART + GROUP G_CODART +END +STRING F_AART 20 +BEGIN + PROMPT 2 5 " all'articolo " + FLAGS "U" + COPY USE F_DAART + INPUT CODART F_AART + COPY DISPLAY F_DAART + OUTPUT F_AART CODART + GROUP G_CODART +END + +STRING F_DADES 50 +BEGIN + PROMPT 2 4 "Dall'articolo " + FLAGS "U" + USE LF_ANAMAG KEY 2 + INPUT DESCR F_DADES + DISPLAY "Descr@50" DESCR + DISPLAY "Codice" CODART + OUTPUT F_DADES DESCR + GROUP G_DESART +END +STRING F_ADES 50 +BEGIN + PROMPT 2 5 " all'articolo " + FLAGS "U" + COPY USE F_DADES + INPUT DESCR F_ADES + COPY DISPLAY F_DADES + OUTPUT F_ADES DESCR + GROUP G_DESART +END + + +STRING F_DAMAG 3 +BEGIN + PROMPT 2 7 "Dal magazzino " + FLAGS "U" + USE MAG SELECT CODTAB[4,5]=="" && CODTAB[1,3]!="" + INPUT CODTAB F_DAMAG + DISPLAY "Codice" CODTAB + DISPLAY "Descr@50" S0 + OUTPUT F_DAMAG CODTAB +END + +STRING F_AMAG 3 +BEGIN + PROMPT 2 8 " al magazzino " + FLAGS "U" + COPY USE F_DAMAG + INPUT CODTAB F_AMAG + COPY DISPLAY F_DAMAG + OUTPUT F_AMAG CODTAB +END + +STRING F_DACATMER 3 +BEGIN + PROMPT 2 10 "Dal gruppo " + FLAGS "U" + USE GMC SELECT CODTAB[4,5]=="" + INPUT CODTAB F_DACATMER + DISPLAY "Codice" CODTAB + DISPLAY "Descr@50" S0 + OUTPUT F_DACATMER CODTAB[1,3] + GROUP G_CATMER +END + + +STRING F_ACATMER 3 +BEGIN + PROMPT 2 11 " al gruppo " + FLAGS "U" + COPY USE F_DACATMER + INPUT CODTAB F_ACATMER + COPY DISPLAY F_DACATMER + OUTPUT F_ACATMER CODTAB[1,3] + GROUP G_CATMER +END + +BOOLEAN F_RAGGCODICE +BEGIN + PROMPT 2 14 "Raggruppo gli articoli" + MESSAGE FALSE CLEAR,F_FROMLIVELLOART|CLEAR,F_TOLIVELLOART|CHECK,F_TOLIVELLOART + MESSAGE TRUE ENABLE,F_FROMLIVELLOART|ENABLE,F_TOLIVELLOART|CHECK,F_TOLIVELLOART +END + +NUMBER F_FROMLIVELLOART 1 +BEGIN + FLAGS "G" + PROMPT 42 14 "da " + USE FCA + INPUT CODTAB F_FROMLIVELLOART + DISPLAY "Num." CODTAB + DISPLAY "Descr@50" S0 + OUTPUT F_FROMLIVELLOART CODTAB + NUM_EXPR ((#F_FROMLIVELLOART<=#F_TOLIVELLOART)||(#F_TOLIVELLOART=0))&&((#F_FROMLIVELLOGIAC*#F_FROMLIVELLOART)=0) + CHECKTYPE NORMAL + WARNING "Livello iniziale non ammissibile" +END + +NUMBER F_TOLIVELLOART 1 +BEGIN + PROMPT 52 14 "a " + USE FCA + INPUT CODTAB F_TOLIVELLOART + DISPLAY "Num." CODTAB + DISPLAY "Descr@50" S0 + OUTPUT F_TOLIVELLOART CODTAB + CHECKTYPE NORMAL + NUM_EXPR ((#F_FROMLIVELLOART<=#F_TOLIVELLOART)||(#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_FROMLIVELLOGIAC|CLEAR,F_TOLIVELLOGIAC|CHECK,F_TOLIVELLOGIAC + MESSAGE TRUE ENABLE,F_FROMLIVELLOGIAC|ENABLE,F_TOLIVELLOGIAC +END + +NUMBER F_FROMLIVELLOGIAC 1 +BEGIN + FLAG "D" + PROMPT 42 15 "da " + USE FCG + INPUT CODTAB F_FROMLIVELLOGIAC + DISPLAY "Num." CODTAB + DISPLAY "Descr@50" S0 + OUTPUT F_FROMLIVELLOGIAC CODTAB + CHECKTYPE NORMAL + NUM_EXPR ((#F_FROMLIVELLOGIAC*(#F_FROMLIVELLOART+#F_TOLIVELLOART))=0)&&((#F_FROMLIVELLOGIAC<=#F_TOLIVELLOGIAC)||(#F_TOLIVELLOGIAC=0)) + + WARNING "Livello iniziale non ammissibile" +END + +NUMBER F_TOLIVELLOGIAC 1 +BEGIN + FLAG "D" + PROMPT 52 15 "a " + USE FCG + INPUT CODTAB F_TOLIVELLOGIAC + DISPLAY "Num." CODTAB + DISPLAY "Descr@50" S0 + OUTPUT F_TOLIVELLOGIAC CODTAB + NUM_EXPR ((#F_FROMLIVELLOGIAC*#F_FROMLIVELLOART)=0)&&((#F_FROMLIVELLOGIAC<=#F_TOLIVELLOGIAC)||(#F_TOLIVELLOGIAC=0))&&((#F_TOLIVELLOGIAC*#F_TOLIVELLOART)=0) + WARNING "Livello finale non ammissibile" + CHECKTYPE NORMAL +END + + +BOOL F_TOTALIMAGAZZINI +BEGIN + PROMPT 2 16 "Stampo i totali di magazzino" + MESSAGE TRUE ENABLE,F_DETTAGLIOMAG + MESSAGE FALSE CLEAR,F_DETTAGLIOMAG|K_SPACE,F_DETTAGLIOMAG +END + +BOOL F_DETTAGLIOMAG +BEGIN + PROMPT 42 16 "Stampa il dettaglio magazzini" + MESSAGE TRUE ENABLE,F_TOTALIDEPOSITI + MESSAGE FALSE CLEAR,F_TOTALIDEPOSITI|K_SPACE,F_TOTALIDEPOSITI +END + +BOOL F_TOTALIDEPOSITI +BEGIN + PROMPT 2 17 "Stampo i totali di deposito" + MESSAGE TRUE ENABLE,F_DETTAGLIODEP + MESSAGE FALSE CLEAR,F_DETTAGLIODEP|K_SPACE,F_DETTAGLIODEP +END + +BOOL F_DETTAGLIODEP +BEGIN + PROMPT 42 17 "Stampa il dettaglio depositi" +END + + +BUTTON DLG_OK 10 2 +BEGIN + PROMPT -12 -1 "" +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" +END + +ENDPAGE +ENDMASK