campo-sirio/ba/batbvet.uml

#include "batbvet.h"

TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Vettori" -1 -1 78 15

GROUPBOX DLG_NULL 75 7
BEGIN
 PROMPT 1 0 ""
 FLAGS "R"
END

STRING F_CODVETT 6
BEGIN
PROMPT 2 2 "Codice vettore  "
FIELD CODTAB
HELP "Codice del vettore"
FLAGS "ZU"
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 2 4 "Ragione sociale "
HELP "Ragione sociale del vettore"
FIELD S0
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

GROUPBOX DLG_NULL 75 6
BEGIN
 PROMPT 1 7 "Recapito"
 FLAGS "R"
END

STRING F_IND 35
BEGIN
PROMPT 2 8 "Indirizzo"
HELP "Indirizzo di residenza del vettore"
FIELD S1[1,35]
END

STRING F_NUM 10
BEGIN
PROMPT 58 8 "N."
HELP "Numero civico del vettore"
FIELD S1[36,45]
END

STRING F_LOCALITA 35
BEGIN
PROMPT 2 9 "Localita'"
HELP "Localita' di residenza del vettore"
FIELD S1[46,70]
END

STRING F_CAP 5
BEGIN
PROMPT 50 9 "C.A.P."
HELP "C.A.P. di residenza del vettore"
FIELD S7
END

STRING F_PROV 2
BEGIN
PROMPT 65 9 "Pr."
FLAGS "D"
HELP "Provincia di residenza del vettore"
END

STRING F_CODCOM 4
BEGIN
PROMPT 2 10 "Comune   "
HELP "Codice comune di residenza del vettore"
FIELD 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
BEGIN
PROMPT 20 10 ""
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

NUMBER F_CODNAZ 3
BEGIN
PROMPT 2 11 "Stato    "
HELP "Codice nazione di residenza del vettore"
FIELD 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
BEGIN
PROMPT 20 11 ""
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

GROUPBOX DLG_NULL 75 5
BEGIN
 PROMPT 1 13 "Numeri telefonici"
 FLAGS "R"
END

STRING F_PTEL 10
BEGIN
PROMPT 2 14 "Telefono  "
HELP "Prefisso telefonico del vettore"
FIELD S5[1,10]
FLAGS "U"
END

STRING F_TEL 20
BEGIN
PROMPT 30 14 ""
HELP "Numero telefonico del vettore"
FIELD S3
FLAGS "U"
END

STRING F_PFAX 10
BEGIN
PROMPT 2 15 "Fax       "
HELP "Numero di Fax del vettore"
FIELD S5[11,20]
FLAGS "U"
END

STRING F_FAX 20
BEGIN
PROMPT 30 15 ""
HELP "Numero di Fax del vettore"
FIELD S4
FLAGS "U"
END

STRING F_PTELEX 10
BEGIN
PROMPT 2 16 "Telex     "
HELP "Numero di Telex del vettore"
FIELD S2[1,10]
FLAGS "U"
END

STRING F_TELEX 20
BEGIN
PROMPT 30 16 ""
HELP "Numero di Telex del vettore"
FIELD S2[11,30]
FLAGS "U"
END


ENDPAGE

ENDMASK