112 lines
1.6 KiB
Plaintext
Executable File
112 lines
1.6 KiB
Plaintext
Executable File
#include <defmask.h>
|
|
#include <tokens.h>
|
|
#include "ba1100a.h"
|
|
|
|
PAGE "Modifica Archivio" -1 -1 70 15
|
|
|
|
NUMBER FLD_NUM 4
|
|
BEGIN
|
|
FLAGS "RD"
|
|
PROMPT 2 1 "Numero "
|
|
END
|
|
|
|
STRING FLD_NOME 43
|
|
BEGIN
|
|
PROMPT 2 2 "Nome "
|
|
HELP "Inserire il nome"
|
|
END
|
|
|
|
STRING FLD_DESC 43
|
|
BEGIN
|
|
PROMPT 2 3 "Descrizione "
|
|
HELP "Inserire la descrizione"
|
|
END
|
|
|
|
STRING FLD_FORMULA 43
|
|
BEGIN
|
|
PROMPT 2 4 "Formula "
|
|
HELP "Inserire la formula"
|
|
END
|
|
|
|
NUMBER FLD_EOD 7
|
|
BEGIN
|
|
PROMPT 2 5 "Record usati "
|
|
HELP "Inserire EOD"
|
|
WARNING "Numero di record errato"
|
|
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=#FLD_EOX)}
|
|
FLAGS "R"
|
|
END
|
|
|
|
BOOLEAN FLD_EXTEND
|
|
BEGIN
|
|
PROMPT 2 6 "Cambia dimensione"
|
|
MESSAGE FALSE DISABLE,FLD_EOX|UNDO,FLD_EOX
|
|
MESSAGE TRUE ENABLE,FLD_EOX
|
|
END
|
|
|
|
NUMBER FLD_EOX 7
|
|
BEGIN
|
|
PROMPT 30 6 "Dimensione "
|
|
HELP "Inserire EOD"
|
|
WARNING "Dimensione non corretta"
|
|
NUM_EXPR {#THIS_FIELD>=#FLD_EOD}
|
|
FLAGS "RD"
|
|
END
|
|
|
|
NUMBER FLD_FLAG 7
|
|
BEGIN
|
|
PROMPT 2 7 "Flags "
|
|
HELP "Inserire Flags"
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_LEN 7
|
|
BEGIN
|
|
PROMPT 30 7 "Lunghezza "
|
|
FLAGS "RD"
|
|
END
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -14 -3 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -24 -3 ""
|
|
END
|
|
|
|
BUTTON DLG_PACK 9 2
|
|
BEGIN
|
|
PROMPT -34 -3 "Compatta"
|
|
MESSAGE EXIT,K_F5
|
|
END
|
|
|
|
BUTTON DLG_RECORD 9 2
|
|
BEGIN
|
|
PROMPT -44 -3 "Record"
|
|
MESSAGE EXIT,K_F6
|
|
END
|
|
|
|
BUTTON DLG_DUMP 9 2
|
|
BEGIN
|
|
PROMPT -14 -1 "Scarica"
|
|
MESSAGE EXIT,K_F7
|
|
END
|
|
|
|
BUTTON DLG_LOAD 9 2
|
|
BEGIN
|
|
PROMPT -24 -1 "Carica"
|
|
MESSAGE EXIT,K_F8
|
|
END
|
|
|
|
BUTTON DLG_EDIT 9 2
|
|
BEGIN
|
|
PROMPT -34 -1 "Modifica"
|
|
MESSAGE EXIT,K_F4
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|
|
|