campo-sirio/ba/batbitl.uml

#include "batbitl.h"

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

PAGE "Libri sociali" -1 -1 78 9

NUMBER FLD_TABITL_CODTAB 2
BEGIN
        PROMPT 2 1 "Codice      "
        FIELD CODTAB
        HELP "Codice del libro sociale"
        USE %ITL
        CHECKTYPE REQUIRED
        INPUT CODTAB FLD_TABITL_CODTAB
        DISPLAY "Codice" CODTAB
        DISPLAY "Descrizione@50" S0
        OUTPUT FLD_TABITL_CODTAB CODTAB
        OUTPUT FLD_TABITL_S0 S0
        KEY 1
        FLAGS "Z"
END

STRING FLD_TABITL_S0 50
BEGIN
        PROMPT 2 3 "Descrizione "
        FIELD S0
        HELP "Nome del libro sociale"
        USE %ITL KEY 2
        CHECKTYPE REQUIRED
        WARNING "Manca la descrizione"
        INPUT S0 FLD_TABITL_S0
        DISPLAY "Descrizione@60" S0
        DISPLAY "Codice" CODTAB
        COPY OUTPUT FLD_TABITL_CODTAB
        KEY 2
END

ENDPAGE

ENDMASK