campo-sirio/ba/ba1100d.uml

#include "ba1100a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -15 -1 "Conferma"
  MESSAGE EXIT,K_SAVE
  PICTURE BMP_OK
  GROUP 1
END

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -25 -1 ""
END

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT -1 -1 ""
END

BUTTON DLG_IMPORT 10 2
BEGIN
  PROMPT -45 -1 "~Importa"
  MESSAGE EXIT,K_F7
  PICTURE 150
  GROUP 1
END

BUTTON DLG_EXPORT 10 2
BEGIN
  PROMPT -35 -1 "~Esporta"
  MESSAGE EXIT,K_F6
  PICTURE 151
  GROUP 1
END

#include <helpbar.h>

ENDPAGE

PAGE "Tracciato Record" -1 -1 77 20

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

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

SPREADSHEET F_FIELDS 0 14
BEGIN
  PROMPT 0 1 "Fields"
  ITEM "Nome@10"
  ITEM "Tipo"
  ITEM "Lunghezza"
  ITEM "Decimali"
  ITEM "Descrizione@72"
END

SPREADSHEET F_KEYS
BEGIN
  PROMPT 0 16 "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 24
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 10 2
BEGIN
  PROMPT -13 -1 ""
END

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -33 -1 "~Elimina"
  MESSAGE EXIT,K_DEL
END

ENDPAGE

ENDMASK

PAGE "Chiave" -1 -1 79 9

STRING F_KEXPR 70 60
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 10 2
BEGIN
  PROMPT -13 -1 ""
END

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

BUTTON DLG_DELREC 10 2
BEGIN
  PROMPT -33 -1 "~Elimina"
  MESSAGE EXIT,K_DEL
END

ENDPAGE
ENDMASK