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

NUMBER F_COD_ITINERARIO 3
BEGIN
  PROMPT 2 2 "Itinerario "
  FLAGS "ZU"  
  USE &ITI
  JOIN &AUT TO &ITI ALIAS 1000 INTO CODTAB==S1
  JOIN &MEZ TO &ITI ALIAS 2000 INTO CODTAB==S2
  INPUT CODTAB F_COD_ITINERARIO
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Autista" S1
  DISPLAY "Descrizione Autista@50" 1000@->S0
  DISPLAY "Targa@8" S2
  DISPLAY "Descrizione Mezzo@50" 2000@->S0
  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
  CHECKTYPE REQUIRED
  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 8
BEGIN 
  PROMPT 2 6 "Targa   "
  FLAGS "U"
  USE &MEZ
  INPUT CODTAB F_COD_MEZZO
  DISPLAY "Codice@8" 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@8" CODTAB
  COPY OUTPUT F_COD_MEZZO
END

ENDPAGE
ENDMASK