#include "batbvet.h"

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

PAGE "Vettori" -1 -1 78 15

NUMBER F_CODVETT 5
BEGIN
PROMPT 4 1 "Codice vettore  "
FIELD LF_TABCOM->CODTAB
HELP "Codice del vettore"
FLAGS "RZ"
USE %VET
CHECKTYPE REQUIRED
INPUT CODTAB F_CODVETT
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
OUTPUT F_CODVETT CODTAB
OUTPUT F_RAGSO S0
KEY 1
END 

STRING F_RAGSO 50
BEGIN
PROMPT 4 3 "Ragione sociale "
HELP "Ragione sociale del vettore"
FIELD LF_TABCOM->S0
FLAGS "U"
USE %VET KEY 2
CHECKTYPE REQUIRED
INPUT S0 F_RAGSO
DISPLAY "Codice vettore" CODTAB
DISPLAY "Ragione sociale@50" S0
OUTPUT F_CODVETT CODTAB
OUTPUT F_RAGSO S0
KEY 2
END 

STRING F_RESI 50
BEGIN
PROMPT 4 5 "Residenza       "
HELP "Residenza del vettore"
FIELD LF_TABCOM->S1
FLAGS "U"
END 

STRING F_TEL 15
BEGIN
PROMPT 4 7 "Telefono        "
HELP "Numero telefonico del vettore"
FIELD LF_TABCOM->S2
FLAGS "U"
END 

ENDPAGE

ENDMASK