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

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

STRING F_STOANNOES 6
BEGIN
  PROMPT 2 4 "Codice esercizio "
  FLAGS "R"
  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  
  PICTURE "9999"
END

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

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

NUMBER F_STOVAL 18 3
BEGIN
  PROMPT 2 11 "Valore           "
  FLAGS "DG"
END

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

ENDPAGE

ENDMASK