#include <defmask.h>
#include "ba1100a.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_SAVEREC 8 2
BEGIN
  PROMPT -16 -1 ""
END

BUTTON DLG_PRINT 8 2
BEGIN
  PROMPT -26 -1 "Stampa"
  MESSAGE EXIT,K_F5
END

BUTTON DLG_EXPORT 8 2
BEGIN
  PROMPT -36 -1 "Esporta"
  MESSAGE EXIT,K_F6
END

BUTTON DLG_IMPORT 8 2
BEGIN
  PROMPT -46 -1 "Importa"
  MESSAGE EXIT,K_F7
END

BUTTON DLG_CANCEL 8 2
BEGIN
  PROMPT -56 -1 ""
END

ENDPAGE

PAGE "Modifica Tracciato Record - Campi" -1 -1 77 20

NUMBER F_NUM 4
BEGIN
  PROMPT 1 1 "Archivio n. "
  FLAGS "D"
END

STRING F_DES 50
BEGIN
  PROMPT 20 1 ""
  FLAGS "D"
END

SPREADSHEET F_FIELDS 34 7
BEGIN
  PROMPT 15 4 ""
  ITEM "Nome@10"
  ITEM "Tipo"
  ITEM "Lunghezza"
  ITEM "Decimali"
END


SPREADSHEET F_KEYS
BEGIN
  PROMPT 1 13 ""
  ITEM "Espressione@60"
  ITEM "Chiavi duplicate"
END

ENDPAGE

ENDMASK

PAGE "Campo" -1 -1 60 9

STRING F_NUMF 3 3
BEGIN
  PROMPT 2 1 "Numero      "
  FLAGS "DR"
END

STRING F_NOMEF 10
BEGIN
  PROMPT 2 2 "Nome        "
  FLAGS "U"
  HELP "Inserire il nome"
END

LIST FLD_TIPO 20
BEGIN
  PROMPT 2 3 "Tipo        "
  HELP "Inserire il tipo"
  ITEM "1|Alfanumerico"
  MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
  ITEM "2|Intero"
  MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
  ITEM "3|Intero Lungo"
  MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
  ITEM "4|Reale"
  MESSAGE ENABLE,FLD_LEN|ENABLE,FLD_DEC
  ITEM "5|Data"
  MESSAGE DISABLE,FLD_LEN|"6",FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
  ITEM "6|Intero"
  MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
  ITEM "7|Carattere"
  MESSAGE DISABLE,FLD_LEN|"1",FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
  ITEM "8|Booleano"
  MESSAGE DISABLE,FLD_LEN|"1",FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
  ITEM "9|Intero Zerofilled"
  MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
  ITEM "10|Intero Lungo Zerofilled"
  MESSAGE ENABLE,FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
END

NUMBER FLD_LEN 3
BEGIN
  PROMPT 2 4 "Lunghezza   "
  FLAGS "R"
  HELP "Inserire la lunghezza"
  WARNING "Numero lunghezza campo errata"
END

NUMBER FLD_DEC 2
BEGIN
  PROMPT 2 5 "Decimali    "
  FLAGS "R"
  HELP "Inserire i decimali"
  NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD+2<=#FLD_LEN)}
  WARNING "Numero di decimali errato"
END

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

BUTTON DLG_CANCEL 8 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 8 2
BEGIN
  PROMPT -33 -1 "Elimina"
END

ENDPAGE

ENDMASK

PAGE "Chiave" -1 -1 77 9

STRING F_KEXPR 60
BEGIN
  PROMPT 1 2 "Espressione "
  FLAGS "U"
END

BOOLEAN F_KDUP
BEGIN
  PROMPT 1 4 "Chiavi duplicate"
  FLAGS "D"
END

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

BUTTON DLG_CANCEL 8 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_DELREC 8 2
BEGIN
  PROMPT -33 -1 "Elimina"
END

ENDPAGE
ENDMASK