60 lines
1.0 KiB
Plaintext
Executable File
60 lines
1.0 KiB
Plaintext
Executable File
#include "batbvet.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 "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
|