98 lines
1.5 KiB
Plaintext
98 lines
1.5 KiB
Plaintext
|
#include "lvtbiti.h"
|
||
|
|
|
||
|
|
TOOLBAR "" 0 0 0 2
|
||
|
|
#include "Relapbar.h"
|
||
|
|
ENDPAGE
|
||
|
|
|
||
|
|
PAGE "Itinerari" 0 2 0 0
|
||
|
|
|
||
|
|
GROUPBOX DLG_NULL 90 15
|
||
|
|
BEGIN
|
||
|
|
PROMPT 1 1 "@b Itinerari"
|
||
|
|
END
|
||
|
|
|
||
|
|
LIST F_COD 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 3 ""
|
||
|
|
ITEM "ITI|ITI"
|
||
|
|
FLAGS "H"
|
||
|
|
FIELD COD
|
||
|
|
KEY 1
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_COD_ITINERARIO 3
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 5 "Codice Itinerario "
|
||
|
|
FLAGS "BU"
|
||
|
|
FIELD CODTAB
|
||
|
|
KEY 1
|
||
|
|
|
||
|
|
USE ITI
|
||
|
|
INPUT CODTAB F_COD_ITINERARIO
|
||
|
|
INPUT S1 F_COD_AUTISTA
|
||
|
|
INPUT S2 F_COD_MEZZO
|
||
|
|
DISPLAY "Cod.Itinerario" CODTAB
|
||
|
|
DISPLAY "Descr.Itinerario@35" S0
|
||
|
|
DISPLAY "Cod.Autista" S1
|
||
|
|
DISPLAY "Cod.Mezzo" S2
|
||
|
|
OUTPUT F_COD_ITINERARIO CODTAB
|
||
|
|
OUTPUT F_DES_ITINERARIO S0
|
||
|
|
OUTPUT F_COD_AUTISTA S1
|
||
|
|
OUTPUT F_COD_MEZZO S2
|
||
|
|
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DES_ITINERARIO 35
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 7 "Descrizione Itinerario"
|
||
|
|
FIELD S0
|
||
|
|
KEY 2
|
||
|
|
CHECKTYPE REQUIRED
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_COD_AUTISTA 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 9 "Codice Autista "
|
||
|
|
FLAGS "BU"
|
||
|
|
FIELD S1
|
||
|
|
|
||
|
|
USE AUT
|
||
|
|
INPUT CODTAB F_COD_AUTISTA
|
||
|
|
DISPLAY "Cod.Autista" CODTAB
|
||
|
|
DISPLAY "Descr.Autista@35" S0
|
||
|
|
OUTPUT F_COD_AUTISTA CODTAB
|
||
|
|
OUTPUT F_DES_AUTISTA S0
|
||
|
|
CHECKTIPE NORMAL
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DES_AUTISTA 35
|
||
|
|
BEGIN
|
||
|
|
PROMPT 30 9 "Descrizione Autista"
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_COD_MEZZO 2
|
||
|
|
BEGIN
|
||
|
|
PROMPT 2 11 "Codice Mezzo "
|
||
|
|
FLAGS "BU"
|
||
|
|
FIELD S2
|
||
|
|
|
||
|
|
USE MEZ
|
||
|
|
INPUT CODTAB F_COD_MEZZO
|
||
|
|
DISPLAY "Cod.Mezzo" CODTAB
|
||
|
|
DISPLAY "Descr.Mezzo@35" S0
|
||
|
|
OUTPUT F_COD_MEZZO CODTAB
|
||
|
|
OUTPUT F_DES_MEZZO S0
|
||
|
|
CHECKTIPE NORMAL
|
||
|
|
END
|
||
|
|
|
||
|
|
STRING F_DES_MEZZO 35
|
||
|
|
BEGIN
|
||
|
|
PROMPT 30 11 "Descrizione Mezzo "
|
||
|
|
FLAGS "D"
|
||
|
|
END
|
||
|
|
|
||
|
|
|
||
|
|
ENDPAGE
|
||
|
|
ENDMASK
|