// SHEET 2 (codici alternativi) DI VE2400

PAGE "Pagina 1" 8 5 65 11

STRING FS_CODARTALT 20
BEGIN
  PROMPT 3 2 "Codice alternativo "
  FIELD LF_CODCORR->CODARTALT
  CHECKTYPE REQUIRED
  WARNING "Codice alternativo obbligatorio"
END

LISTBOX FS_TIPO 10
BEGIN
  PROMPT 2 4 "Tipo di codice      "
  ITEM "N|Normale"
  ITEM "8|EAN8   "
  ITEM "1|EA13   "
  ITEM "3|3/9    "
  ITEM "C|Codabar"
  FIELD LF_CODCORR->TIPO
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