#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