campo-sirio/in/batbird.uml

70 lines
994 B
Plaintext
Raw Normal View History

#include "batbird.h"
TOOLBAR "Toolbar" 0 19 0 3
#include <toolbar.h>
ENDPAGE
PAGE "Dati riassuntivi" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 1 "@bDati Riassuntivi"
END
LIST F_MESE 20
BEGIN
PROMPT 2 2 "Mese "
FLAGS "MZ"
FIELD CODTAB[5,6]
KEY 1
END
NUMBER F_ANNO 4
BEGIN
PROMPT 46 2 "Anno "
USE IRD
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,6] F_MESE
DISPLAY "Anno@15" CODTAB[1,4]
DISPLAY "Mese@10" CODTAB[5,6]
DISPLAY "N.dischetto@10" I0
DISPLAY "Pagine@10" I1
DISPLAY "Righe@10" I2
DISPLAY "Ammontare compl.@18" R0
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_MESE CODTAB[5,6]
CHECKTYPE REQUIRED
FIELD CODTAB[1,4]
KEY 1
END
NUMBER F_NDKT 4
BEGIN
PROMPT 2 4 "Numero Dischetto "
FIELD I0
END
NUMBER F_PAGINE 7
BEGIN
PROMPT 2 6 "Pagine "
FIELD I1
END
NUMBER F_RIGHE 7
BEGIN
PROMPT 2 8 "Righe "
FIELD I2
END
CURRENCY F_AMM_COMP 18
BEGIN
PROMPT 2 10 "Ammontare Compl. "
FIELD R0
END
ENDPAGE
ENDMASK