campo-sirio/at/batbbnz.uml

#include "batbbnz.h"

TOOLBAR "" 0 20 0 2 
#include <toolbar.h>
ENDPAGE

PAGE "Benemerenze" -1 -1 78 7

STRING F_TABBNZ_CODTAB 2
BEGIN
  PROMPT 2 1 "Codice         "
  FIELD CODTAB
	HELP "Inserire il codice della benemerenza"
	USE BNZ
	CHECKTYPE REQUIRED
	INPUT CODTAB F_TABBNZ_CODTAB
  DISPLAY "Codice " CODTAB
	DISPLAY "Descrizione@30" S0
	OUTPUT F_TABBNZ_CODTAB CODTAB
	OUTPUT F_TABBNZ_DESCR S0
	KEY 1
        FLAGS "U"
END

STRING F_TABBNZ_DESCR 30
BEGIN
  PROMPT 2 3 "Descrizione    "
  FIELD S0
	HELP "Inserire la descrizione della benemerenza"
	USE BNZ KEY 2
	CHECKTYPE REQUIRED
	INPUT S0 F_TABBNZ_DESCR
	DISPLAY "Descrizione@30" S0
  DISPLAY "Codice " CODTAB
	COPY OUTPUT F_TABBNZ_CODTAB
	KEY 2
END

NUMBER F_TABBNZ_NDON 3
BEGIN
  PROMPT 2 5 "Num. donazioni "
  FIELD I0
	HELP "Inserire il numero di donazioni necessarie per ottenere la benemerenza"
	CHECKTYPE REQUIRED
	FLAGS "U"
END

BOOLEAN F_TABBNZ_STATUTO
BEGIN
	PROMPT 30 5 "Da statuto    "
  FIELD B0
  HELP "La benemerenza <20> prevista nello statuto AVIS?"
END

GROUPBOX DLG_NULL 77 4
BEGIN
   PROMPT 1 7 "Nuovi criteri per benemerenza"
END

NUMBER F_TABBNZ_M_NDON 3
BEGIN
  PROMPT 2 8 "Numero donazioni   "
  FIELD I1
	HELP "Inserire il numero di donazioni necessarie per ottenere la benemerenza"
	FLAGS "U"
END

NUMBER F_TABBNZ_M_ANNI 2
BEGIN
  PROMPT 2 9 "Anni di iscrizione "
  FIELD I2
	HELP "Inserire il numero di anni di iscrizione necessari"
	FLAGS "U"
END

BOOLEAN F_TABBNZ_CATDON
BEGIN
  PROMPT 50 9 "Attribuisci solo ai dimessi"
  FIELD B0
  HELP "Inserire se la benemerenza va attribuita solo ai dimessi"
END

ENDPAGE
ENDMASK