// SHEET 1 (descrizioni in lingua) DI VE2400

PAGE "Pagina 1" 8 5 65 11

STRING FS_CODLIN 1
BEGIN
  FLAGS "U"
  PROMPT 3 2 "Codice lingua  "
  FIELD CODLIN
  USE %LNG
  INPUT  CODTAB FS_CODLIN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT FS_CODLIN CODTAB
  OUTPUT FS_DESCR S0
  CHECKTYPE REQUIRED
  WARNING "Codice lingua errato"
END

STRING FS_DESCR 50
BEGIN
  PROMPT 3 4 "Descrizione    "
  USE %LNG KEY 2
  INPUT S0 FS_DESCR
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT FS_CODLIN
  CHECKTYPE NORMAL
  FIELD DESCR
END

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

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

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

ENDPAGE

ENDMASK