#include "lvtbiti.h"

TOOLBAR "" 0 0 0 2
#include "relapbar.h"
ENDPAGE

PAGE "Itinerari" 0 2 0 0

GROUPBOX DLG_NULL 75 9
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
  
  USE ITI
  INPUT CODTAB F_COD_ITINERARIO
  INPUT S1 F_COD_AUTISTA
  INPUT S2 F_COD_MEZZO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@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
  KEY 1
END

STRING F_DES_ITINERARIO 35
BEGIN
  PROMPT 2 7 "Descrizione Itinerario"
  FIELD S0
  KEY 2
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 75 7
BEGIN
  PROMPT 1 10 "@b Dettaglio Itinerari"
END

STRING F_COD_AUTISTA 2
BEGIN
  PROMPT 2 12 "Codice Autista        "
  FLAGS "BU"
  FIELD S1
    
  USE AUT
  INPUT CODTAB F_COD_AUTISTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@35" S0
  OUTPUT F_COD_AUTISTA CODTAB
  OUTPUT F_DES_AUTISTA S0
  CHECKTIPE NORMAL
END

STRING F_DES_AUTISTA 35
BEGIN
  PROMPT 30 12 ""
  FLAGS "D"
END

STRING F_COD_MEZZO 2
BEGIN 
  PROMPT 2 14 "Codice Mezzo          "
  FLAGS "BU"
  FIELD S2
  
  USE MEZ
  INPUT CODTAB F_COD_MEZZO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@35" S0
  OUTPUT F_COD_MEZZO CODTAB
  OUTPUT F_DES_MEZZO S0
  CHECKTIPE NORMAL
END

STRING F_DES_MEZZO 35
BEGIN
  PROMPT 30 14 ""
  FLAGS "D"
END


ENDPAGE
ENDMASK