// SHEET 1 (descrizioni in lingua) DI VE2400

PAGE "Pagina 1" 8 5 65 11

STRING FS_CODLIN 1
BEGIN
  PROMPT 3 2 "Codice lingua  "
  FIELD LF_DESLIN->CODLIN
  USE %LNG
  INPUT  CODTAB FS_CODLIN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" 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    "
  FIELD LF_DESLIN->DESCR
END

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

ENDMASK