campo-sirio/ba/ba1100a.uml
guy 5ee2fbbd4c Migliorato caricamento immagini del menu, modificata richiesta ditta
modifica alle maschere del libro unico e relativi indici
Gestiti permessi d'uso del programma di manutenzione(Superprassi-Umano mortale)


git-svn-id: svn://10.65.10.50/trunk@1331 c028cbd2-c16b-5b4b-a496-9718f37d4682
1995-05-09 13:27:01 +00:00

137 lines
2.0 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 "Nome del file"
FLAGS "D"
GROUP 1
END
STRING FLD_DESC 43
BEGIN
PROMPT 2 3 "Descrizione "
HELP "Descrizione assegnata al file"
FLAGS "D"
GROUP 1
END
STRING FLD_FORMULA 43
BEGIN
PROMPT 2 4 "Formula "
HELP "Formula per il calcolo su file"
FLAGS "D"
GROUP 1
END
NUMBER FLD_EOD 7
BEGIN
PROMPT 2 5 "Record usati "
HELP "Numero di record utilizzati"
WARNING "Numero di record errato"
NUM_EXPR {(#THIS_FIELD>=0) && (#THIS_FIELD<=#FLD_EOX)}
FLAGS "DR"
GROUP 1
END
BOOLEAN FLD_EXTEND
BEGIN
PROMPT 2 6 "Cambia dimensione"
HELP "Indicare se si desidera cambiare la dimensione del file"
MESSAGE FALSE DISABLE,FLD_EOX|UNDO,FLD_EOX
MESSAGE TRUE ENABLE,FLD_EOX
FLAGS "D"
GROUP 1
END
NUMBER FLD_EOX 7
BEGIN
PROMPT 30 6 "Dimensione "
HELP "Dimensione da assegnare al file"
WARNING "Dimensione non corretta"
NUM_EXPR {#THIS_FIELD>=#FLD_EOD}
FLAGS "DR"
END
NUMBER FLD_FLAG 7
BEGIN
PROMPT 2 7 "Flags "
HELP "Flags del file"
FLAGS "DR"
GROUP 1
END
NUMBER F_LEN 7
BEGIN
PROMPT 30 7 "Lunghezza "
FLAGS "RD"
END
STRING F_TAB 3
BEGIN
PROMPT 2 9 "Tabella "
FLAGS "DU"
GROUP 1
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
FLAGS "D"
GROUP 1
END
BUTTON DLG_RECORD 9 2
BEGIN
PROMPT -44 -3 "Record"
MESSAGE EXIT,K_F6
FLAGS "D"
GROUP 1
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
FLAGS "D"
GROUP 1
END
BUTTON DLG_EDIT 9 2
BEGIN
PROMPT -34 -1 "Modifica"
MESSAGE EXIT,K_F4
END
ENDPAGE
ENDMASK