TOOLBAR "" 0 -2 0 2

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

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

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

ENDPAGE

PAGE "Storico giacenze" -1 -1 80 23


STRING F_STOTIPORIGA 1
BEGIN
  FLAGS "D"
  PROMPT 2 100 "Tipo riga"
END


STRING F_STOCODMAG 3
BEGIN
  PROMPT 2 2 "Codice magazzino "
  FLAGS "U"
  FIELD CODMAG
  USE MAG
  INPUT CODTAB F_STOCODMAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_STOCODMAG CODTAB
  CHECKTYPE REQUIRED  
END

/*STRING F_NOMETOT 10
BEGIN
  FLAGS "H"
  PROMPT 2 4 ""
END*/

STRING F_STOANNOES 6
BEGIN
  PROMPT 2 4 "Codice esercizio "
  FLAGS "R"
  FIELD 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  
  PICTURE "ZZZZ"
  ADD RUN cg0 -5 ESC
END

NUMBER F_STOQUANT 15 5
BEGIN
  PROMPT 2 8 "Quantità         "
  FIELD QUANT
  CHECKTYPE REQUIRED  
  MESSAGE CHECK, F_STOVAL
  WARNING "Indicare la quantità"
END

CURRENCY F_STOVALUN 18
BEGIN
  PROMPT 2 10 "Valore unitario  "
  FIELD VALORE
  CHECKTYPE REQUIRED
  MESSAGE CHECK, F_STOVAL
  FLAGS "U"
  WARNING "Indicare il valore unitario"
END

CURRENCY F_STOVAL 18
BEGIN
  PROMPT 2 11 "Valore           "
  FLAGS "DG"
END

STRING F_STOCODART 20
BEGIN
  PROMPT 2 18 "Codice art.   "
  FLAGS "HG"
END

ENDPAGE

ENDMASK