#include "batb%vet.h"

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

PAGE "Vettori" -1 -1 78 15

NUMBER F_CODVETT 3
BEGIN
  PROMPT 4 1 "Codice vettore  "
  FIELD LF_TABCOM->CODTAB
  HELP "Inserire il codice del nuovo 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 "
  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       "
  FIELD LF_TABCOM->S1
  FLAGS "U"
END 

STRING F_TEL 15
BEGIN
  PROMPT 4 7 "Telefono        "
  FIELD LF_TABCOM->S2
  FLAGS "U"
END 

ENDPAGE

ENDMASK