campo-sirio/lv/lvtbiti.uml

#include "lvtbiti.h"

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

PAGE "Itinerari" 0 2 0 0

GROUPBOX DLG_NULL 76 3
BEGIN
  PROMPT 1 1 "@bDati itinerario"
END

STRING F_COD_ITINERARIO 3
BEGIN
  PROMPT 2 2 "Itinerario "
  FLAGS "U"  
  USE &ITI
  INPUT CODTAB F_COD_ITINERARIO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Autista" S1
  DISPLAY "Mezzo" S2
  OUTPUT F_COD_ITINERARIO CODTAB
  OUTPUT F_DES_ITINERARIO S0
  OUTPUT F_COD_AUTISTA S1
  OUTPUT F_COD_MEZZO S2  
  CHECKTYPE REQUIRED
  FIELD CODTAB
  KEY 1
END

STRING F_DES_ITINERARIO 50
BEGIN
  PROMPT 23 2 ""
  USE &ITI KEY 2
  INPUT S0 F_DES_ITINERARIO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Autista" S1
  DISPLAY "Mezzo" S2
  COPY OUTPUT F_COD_ITINERARIO
  FIELD S0
  KEY 2
END

GROUPBOX DLG_NULL 76 4
BEGIN
  PROMPT 1 4 "@bDettagli itinerario"
END

STRING F_COD_AUTISTA 6
BEGIN
  PROMPT 2 5 "Autista    "
  FLAGS "ZU"  
  USE &AUT
  INPUT CODTAB F_COD_AUTISTA
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COD_AUTISTA CODTAB
  OUTPUT F_DES_AUTISTA S0
  FIELD S1
  CHECKTIPE REQUIRED
END

STRING F_DES_AUTISTA 50
BEGIN
  PROMPT 23 5 ""
  USE &AUT KEY 2
  INPUT S0 F_DES_AUTISTA
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_COD_AUTISTA
END

STRING F_COD_MEZZO 2
BEGIN 
  PROMPT 2 6 "Mezzo      "
  FLAGS "U"
  USE &MEZ
  INPUT CODTAB F_COD_MEZZO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COD_MEZZO CODTAB
  OUTPUT F_DES_MEZZO S0
  FIELD S2
  CHECKTIPE REQUIRED
END

STRING F_DES_MEZZO 50
BEGIN
  PROMPT 23 6 ""
  USE &MEZ KEY 2
  INPUT S0 F_DES_MEZZO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_COD_MEZZO
END

ENDPAGE
ENDMASK