#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 "RZU"
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_IND 50
BEGIN
PROMPT 4 5 "Indirizzo       "
HELP "Indirizzo di residenza del vettore"
FIELD LF_TABCOM->S1
FLAGS "U"
END 

STRING F_CAP 5
BEGIN
PROMPT 4 6 "C.A.P.          "
HELP "C.A.P. di residenza del vettore"
FIELD LF_TABCOM->S7
END

STRING F_LOCALITA 20
BEGIN
PROMPT 32 6 "Localita' "
HELP "Localita' di residenza del vettore"
FIELD LF_TABCOM->S5
END

STRING F_PROV 2
BEGIN
PROMPT 64 6 "Provincia "
FLAGS "D"
HELP "Provincia di residenza del vettore"
END

NUMBER F_CODNAZ 3
BEGIN
PROMPT 4 7 "Stato           "
HELP "Codice nazione di residenza del vettore"
FIELD LF_TABCOM->S8
FLAGS "RZ"
USE %STA
INPUT CODTAB F_CODNAZ
DISPLAY "Codice" CODTAB
DISPLAY "Denominazione@50" S0
OUTPUT F_CODNAZ CODTAB
OUTPUT F_DENNAZ S0
CHECKTYPE NORMAL
WARNING "Stato assente"
END

STRING F_DENNAZ 50 30
BEGIN
PROMPT 32 7 ""
USE %STA KEY 2
INPUT S0 F_DENNAZ
DISPLAY "Stato@50" S0
DISPLAY "Codice" CODTAB
HELP "Nome dello stato del vettore"
COPY OUTPUT F_CODNAZ
END

STRING F_CODCOM 4
BEGIN
PROMPT 4 8 "Comune          "
HELP "Codice comune di residenza del vettore"
FIELD LF_TABCOM->S9
USE LF_COMUNI
INPUT STATO F_CODNAZ
INPUT COM F_CODCOM
DISPLAY "Stato" STATO
DISPLAY "Cod. comune" COM
DISPLAY "Den. comune@50" DENCOM
OUTPUT F_CODNAZ STATO
OUTPUT F_CODCOM COM
OUTPUT F_DENCOM DENCOM
OUTPUT F_CAP CAPCOM
OUTPUT F_PROV PROVCOM
MESSAGE K_TAB,F_CODNAZ
CHECKTYPE NORMAL
WARNING "Comune assente"
END

STRING F_DENCOM 50 30
BEGIN
PROMPT 32 8 ""
USE LF_COMUNI KEY 2
INPUT DENCOM F_DENCOM
DISPLAY "Comune@50" DENCOM
DISPLAY "Stato" STATO
DISPLAY "Codice" COM
COPY OUTPUT F_CODCOM
HELP "Nome del comune del vettore"
END

STRING F_PTEL 5
BEGIN
PROMPT 4 10 "Telefono        "
HELP "Prefisso telefonico del vettore"
FIELD LF_TABCOM->S6
FLAGS "U"
END 

STRING F_TEL 15
BEGIN
PROMPT 31 10 ""
HELP "Numero telefonico del vettore"
FIELD LF_TABCOM->S2
FLAGS "U"
END 

STRING F_FAX 15
BEGIN
PROMPT 4 11 "Fax             "
HELP "Numero di Fax del vettore"
FIELD LF_TABCOM->S3
FLAGS "U"
END 

STRING F_TELEX 15
BEGIN
PROMPT 4 12 "Telex           "
HELP "Numero di Telex del vettore"
FIELD LF_TABCOM->S4
FLAGS "U"
END 


ENDPAGE

ENDMASK
