TOOLBAR "" 0 20 60 2

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 9 2
BEGIN
  PROMPT -33 -1 "Elimina"
  MESSAGE EXIT,K_DEL
END

ENDPAGE

PAGE "Storico giacenze" -1 -1 80 23

NUMBER F_STOANNOES 4
BEGIN
  PROMPT 2 4 "Codice esercizio "
	FIELD LF_STOMAG->ANNOES
	USE ESC 
	INPUT CODTAB F_STOANNOES
	DISPLAY "Esercizio @15" CODTAB
	DISPLAY "D. Inizio@15" D0
	DISPLAY "D. Fine@15"	D1
	OUTPUT F_STOANNOES CODTAB
	CHECKTYPE REQUIRED	
END

STRING F_STOUM 2
BEGIN
  PROMPT 2 6 "Unità di misura  "
	FLAGS "U"
	FIELD LF_STOMAG->UM
	USE LF_UMART KEY 2
	INPUT CODART F_STOCODART SELECT
	INPUT UM F_STOUM
	DISPLAY "U.M.@20" UM
	OUTPUT F_STOUM UM 
	CHECKTYPE REQUIRED
END

NUMBER F_STOQUANT 15 5
BEGIN
  PROMPT 2 8 "Quantità         "
	FIELD LF_STOMAG->QUANT
	CHECKTYPE REQUIRED	
	WARNING "Indicare la quantità"
END

NUMBER F_STOPREZZO 18 3
BEGIN
  PROMPT 2 10 "Valore           "
	FIELD LF_STOMAG->VALORE
	CHECKTYPE REQUIRED	
	WARNING "Indicare il prezzo"
END

STRING F_STOCODART 20
BEGIN
	PROMPT 2 1 "Codice art.   "
	FLAGS "H"
END

ENDPAGE

ENDMASK
