TOOLBAR "" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Vettori" 0 2 0 0

STRING 101 2
BEGIN
  PROMPT 1 1 "Codice IATA     "
  USE &PS0883VET
  INPUT CODTAB 101
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cliente" I0
  OUTPUT 101 CODTAB
  OUTPUT 102 S0
  CHECKTYPE REQUIRED
  KEY 1
  FLAGS "U"
  FIELD CODTAB
END

STRING 102 50
BEGIN
  PROMPT 1 2 "Descrizione     "
  USE &PS0883VET KEY 2
  INPUT S0 102
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  DISPLAY "Cliente" I0
  COPY OUTPUT 101
  CHECKTYPE REQUIRED
  KEY 2
  FIELD S0
END

NUMBER 103 6 
BEGIN
  PROMPT 1 4 "Codice cliente  "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF 103
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  OUTPUT 103 CODCF
  OUTPUT 104 RAGSOC
  CHECKTYPE REQUIRED
  FIELD I0
END

STRING 104 50
BEGIN
  PROMPT 1 5 "Ragione sociale "
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC 104
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  COPY OUTPUT 103
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK