campo-sirio/ba/batb%not.uml

#include <batb%not.h>

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Tabella Codici Note Cliente" -1 -1 78 8

STRING F_CODICE 2
BEGIN
PROMPT 4 2 "Codice           "
FIELD CODTAB
FLAGS "U"
KEY 1
USE %NOT 
INPUT CODTAB F_CODICE
DISPLAY "Codice" CODTAB
DISPLAY "Destinazione@30" S0
DISPLAY "Blocca immobili" B0
DISPLAY "Documento"    B1
OUTPUT F_CODICE CODTAB
OUTPUT F_DEST S0
OUTPUT F_BLOCCA B0
OUTPUT F_DOCUM  B1
CHECKTYPE REQUIRED
END

STRING F_DEST 30
BEGIN
PROMPT 4 4 "Destinazione     "
FIELD LF_TABCOM->S0
END

BOOLEAN F_BLOCCA 
BEGIN
PROMPT 4 6 "Blocca immissione  "
FIELD LF_TABCOM->B0
END

BOOLEAN F_DOCUM 
BEGIN
PROMPT 4 8 "Documento        "
FIELD LF_TABCOM->B1
END

ENDPAGE
ENDMASK