141 lines
2.6 KiB
Plaintext
Executable File
141 lines
2.6 KiB
Plaintext
Executable File
#include "at5100a.h"
|
|
|
|
/* toolbar */
|
|
TOOLBAR "" 0 20 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Parametri sezione" -1 -1 76 17
|
|
|
|
GROUPBOX DLG_NULL 74 5
|
|
BEGIN
|
|
PROMPT 1 0 "Primo passaggio di categoria"
|
|
END
|
|
|
|
NUMBER AT_NUMDON1 3
|
|
BEGIN
|
|
PROMPT 2 1 "Donazioni necessarie "
|
|
HELP "Numero donazioni necessarie per il passaggio"
|
|
FIELD NumDon1
|
|
END
|
|
|
|
STRING AT_CATINI1 2
|
|
BEGIN
|
|
PROMPT 2 2 "Categoria di partenza "
|
|
HELP "Categoria di partenza per il passaggio (possibile vuota)"
|
|
USE CTD
|
|
INPUT CODTAB[1,2] AT_CATINI1
|
|
DISPLAY "Cat." CODTAB[1,2]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT AT_CATINI1 CODTAB[1,2]
|
|
OUTPUT AT_D_CATINI1 S0
|
|
FIELD CatIni1
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING AT_CATFIN1 2
|
|
BEGIN
|
|
PROMPT 2 3 "Categoria di arrivo "
|
|
HELP "Categoria di arrivo per il passaggio (possibile vuota)"
|
|
USE CTD
|
|
INPUT CODTAB[1,2] AT_CATFIN1
|
|
DISPLAY "Cat." CODTAB[1,2]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT AT_CATFIN1 CODTAB[1,2]
|
|
OUTPUT AT_D_CATFIN1 S0
|
|
FIELD CatFin1
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 74 6
|
|
BEGIN
|
|
PROMPT 1 5 "Secondo passaggio di categoria"
|
|
END
|
|
|
|
NUMBER AT_NUMDON2 3
|
|
BEGIN
|
|
PROMPT 2 6 "Donazioni necessarie "
|
|
HELP "Numero donazioni necessarie per il passaggio"
|
|
FIELD NumDon2
|
|
END
|
|
|
|
STRING AT_CATINI2 2
|
|
BEGIN
|
|
PROMPT 2 7 "Categoria di partenza "
|
|
HELP "Categoria di partenza per il passaggio (possibile vuota)"
|
|
USE CTD
|
|
INPUT CODTAB[1,2] AT_CATINI2
|
|
DISPLAY "Cat." CODTAB[1,2]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT AT_CATINI2 CODTAB[1,2]
|
|
OUTPUT AT_D_CATINI2 S0
|
|
FIELD CatIni2
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING AT_CATFIN2 2
|
|
BEGIN
|
|
PROMPT 2 8 "Categoria di arrivo "
|
|
HELP "Categoria di arrivo per il passaggio (possibile vuota)"
|
|
USE CTD
|
|
INPUT CODTAB[1,2] AT_CATFIN2
|
|
DISPLAY "Cat." CODTAB[1,2]
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT AT_CATFIN2 CODTAB[1,2]
|
|
OUTPUT AT_D_CATFIN2 S0
|
|
FIELD CatFin2
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
BOOLEAN AT_STTESS2
|
|
BEGIN
|
|
PROMPT 2 9 "Passaggio con stampa tessera"
|
|
HELP "Eseguire il cambio di categoria al momento della stampa tessera"
|
|
FIELD StTess2
|
|
END
|
|
|
|
BOOLEAN AT_DATAISC
|
|
BEGIN
|
|
PROMPT 2 11 "Data iscrizione (se vuota) uguale a data prima donazione"
|
|
HELP "Data iscrizione automaticamente uguale alla data prima donazione, se vuota"
|
|
FIELD DataIsc
|
|
END
|
|
|
|
STRING AT_D_CATINI1 40
|
|
BEGIN
|
|
PROMPT 30 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING AT_D_CATFIN1 40
|
|
BEGIN
|
|
PROMPT 30 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING AT_D_CATINI2 40
|
|
BEGIN
|
|
PROMPT 30 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING AT_D_CATFIN2 40
|
|
BEGIN
|
|
PROMPT 30 8 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|