300 lines
6.1 KiB
Plaintext
Executable File
300 lines
6.1 KiB
Plaintext
Executable File
#include "mg3100.h"
|
|
PAGE "Stampa dati storici" -1 -1 78 20
|
|
|
|
LIST F_PREZZIVALORI 18
|
|
BEGIN
|
|
PROMPT 2 1 ""
|
|
ITEM "V|Saldi e valori"
|
|
MESSAGE SHOW,G_PARAMVALORI@ |HIDE,G_LISTINO@
|
|
ITEM "P|Costi e prezzi"
|
|
MESSAGE RESET,F_STAMPAGIAC|HIDE,G_PARAMVALORI@|SHOW,G_LISTINO@
|
|
END
|
|
|
|
BOOL F_VALMEDI
|
|
BEGIN
|
|
PROMPT 32 1 "Valori medi "
|
|
GROUP G_PARAMVALORI
|
|
END
|
|
|
|
BOOL F_STAMPAGIAC
|
|
BEGIN
|
|
PROMPT 52 1 "Stampa giacenza "
|
|
GROUP G_PARAMVALORI
|
|
END
|
|
|
|
STRING F_CATVENLISTINO 2
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 32 1 "Cat. ven. "
|
|
USE CVE
|
|
INPUT CODTAB F_CATVENLISTINO
|
|
DISPLAY "Cat." CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_CATVENLISTINO CODTAB
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LISTINO
|
|
END
|
|
|
|
STRING F_CODLISTINO 3
|
|
BEGIN
|
|
FLAGS "U"
|
|
PROMPT 52 1 "Codice listino "
|
|
USE LF_CONDV
|
|
INPUT TIPO "L"
|
|
INPUT COD F_CODLISTINO
|
|
DISPLAY "Codice" COD
|
|
DISPLAY "Descrizione@30" DESCR
|
|
OUTPUT F_CODLISTINO COD
|
|
CHECKTYPE NORMAL
|
|
GROUP G_LISTINO
|
|
END
|
|
|
|
LISTBOX F_ORDINE 10
|
|
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
|
|
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
|
|
END
|
|
|
|
|
|
LISTBOX F_ORDINEART 20
|
|
BEGIN
|
|
FLAGS "G"
|
|
PROMPT 34 2 "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 3 "Codice es. "
|
|
USE ESC
|
|
INPUT CODTAB F_ANNOES
|
|
DISPLAY "Esercizio" CODTAB
|
|
DISPLAY "Dal@12" D0
|
|
DISPLAY "Al@12" D0
|
|
OUTPUT F_ANNOES CODTAB
|
|
END
|
|
|
|
LISTBOX F_FILTRO 20
|
|
BEGIN
|
|
FLAGS "G"
|
|
PROMPT 45 3 "Filtro "
|
|
ITEM "T|tutto"
|
|
ITEM "S|sotto scorta"
|
|
ITEM "P|positivi"
|
|
ITEM "N|negativi"
|
|
ITEM "0|non nulli"
|
|
END
|
|
|
|
STRING F_DAART 20
|
|
BEGIN
|
|
PROMPT 2 5 "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 6 " 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 5 "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 6 " 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 8 "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 9 " 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 11 "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 12 " 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
|
|
|
|
|
|
BOOL F_TOTALIDEPOSITI
|
|
BEGIN
|
|
PROMPT 2 13 "Stampo i totali depositi"
|
|
MESSAGE TRUE ENABLE,F_DETTAGLIODEP
|
|
MESSAGE FALSE CLEAR,F_DETTAGLIODEP|K_SPACE,F_DETTAGLIODEP
|
|
END
|
|
|
|
BOOL F_DETTAGLIODEP
|
|
BEGIN
|
|
PROMPT 42 13 "Stampa il dettaglio depositi"
|
|
MESSAGE TRUE ENABLE,F_RAGGLIVGIAC|ENABLE,F_RAGGCODICE
|
|
MESSAGE FALSE CLEAR,F_RAGGLIVGIAC|K_SPACE,F_RAGGLIVGIAC|CLEAR,F_RAGGCODICE|K_SPACE,F_RAGGCODICE
|
|
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"
|
|
END
|
|
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|