campo-sirio/ve/ve2400e.uml

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

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 LF_STOMAG->CODMAG
  USE MAG
  INPUT CODTAB F_STOCODMAG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  OUTPUT F_STOCODMAG CODTAB
  CHECKTYPE REQUIRED  
END

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<69> di misura  "
  FLAGS "UD"
END

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

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

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

ENDPAGE

ENDMASK