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

TOOLBAR "" 0 20 0 2

BUTTON DLG_SAVEREC 8 2
BEGIN
  PROMPT -15 -1 ""
  MESSAGE EXIT,K_SAVE
END

BUTTON DLG_PRINT 8 2
BEGIN
  PROMPT -25 -1 "~Stampa"
  MESSAGE EXIT,K_ENTER
END

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

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

BUTTON DLG_CANCEL 8 2
BEGIN
  PROMPT -55 -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 0 8
BEGIN
  PROMPT 0 4 "Fields"
  ITEM "Nome@10"
  ITEM "Tipo"
  ITEM "Lunghezza"
  ITEM "Decimali"
  ITEM "Descrizione@72"
END

SPREADSHEET F_KEYS
BEGIN
  PROMPT 0 13 "Keys"
  ITEM "Espressione@65"
  ITEM "Chiavi duplicate"
END

ENDPAGE

ENDMASK

PAGE "Campo" -1 -1 70 11

STRING F_NOMEF 10
BEGIN
  PROMPT 2 2 "Nome        "
  FLAGS "U"
  HELP "Nome del campo"
END

LIST FLD_TIPO 20
BEGIN
  PROMPT 2 3 "Tipo        "
  HELP "Tipo del campo"
  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|"8",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
  ITEM "11|Memo"
  MESSAGE DISABLE,FLD_LEN|"10",FLD_LEN|DISABLE,FLD_DEC|"0",FLD_DEC
END

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

NUMBER FLD_DEC 2
BEGIN
  PROMPT 2 5 "Decimali    "
  FLAGS "UR"
  HELP "Decimali del campo"
  NUM_EXPR {(#FLD_TIPO!=4)||(#THIS_FIELD+2<=#FLD_LEN)}
  WARNING "Numero di decimali errato"
END

STRING FLD_DES 256 50
BEGIN
  PROMPT 2 6 "Descrizione "
  HELP "Descrizione del campo"
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"
  MESSAGE EXIT,K_DEL
END

ENDPAGE

ENDMASK

PAGE "Chiave" -1 -1 79 9

STRING F_KEXPR 70
BEGIN
  PROMPT 1 2 "Espress."
  HELP "Espressione dell'archivio"
  FLAGS "U"
END

BOOLEAN F_KDUP
BEGIN
  PROMPT 1 4 "Chiavi duplicate"
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"
  MESSAGE EXIT,K_DEL
END

ENDPAGE
ENDMASK

