campo-sirio/ps/ps0883vet.uml

TOOLBAR "" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Vettori" 0 2 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
  PROMPT 1 1 "@bDati vettore"
END

STRING 101 3
BEGIN
  PROMPT 2 2 "Codice IATA "
  USE &PS0883VET
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODTAB[4,9]
  INPUT CODTAB[1,3] 101
  INPUT CODTAB[4,9] 103
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Cliente" CODTAB[4,9]
  DISPLAY "Principale@C" B0
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT 101 CODTAB[1,3]
  OUTPUT 102 LF_CLIFO->RAGSOC
  OUTPUT 103 CODTAB[4,9]
  CHECKTYPE REQUIRED
  KEY 1
  FLAGS "U"
  FIELD CODTAB[1,2]
END

STRING 102 50
BEGIN
  PROMPT 25 2 ""
  USE &PS0883VET KEY 2
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODTAB[4,9]
  INPUT S0 102
  DISPLAY "Ragione Sociale@50" S0
  DISPLAY "Principale@C" B0
  DISPLAY "Codice" CODTAB[1,3]
  DISPLAY "Cliente" CODTAB[4,9]
  COPY OUTPUT 101
  CHECKTYPE REQUIRED
  KEY 2
  FIELD S0
END

NUMBER 103 6
BEGIN
  PROMPT 2 3 "Cliente  "
  USE LF_CLIFO
  INPUT TIPOCF "C"
  INPUT CODCF 103
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA" PAIV
  OUTPUT 103 CODCF
  OUTPUT 104 RAGSOC
  CHECKTYPE REQUIRED
  KEY 1
  FLAGS "UZ"
  FIELD CODTAB[4,9]
  ADD RUN cg0 -1 C
END

STRING 104 50
BEGIN
  PROMPT 25 3 ""
  USE LF_CLIFO KEY 2
  INPUT TIPOCF "C"
  INPUT RAGSOC 104
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Partita IVA" PAIV
  COPY OUTPUT 103
  CHECKTYPE NORMAL
  ADD RUN cg0 -1 C
  KEY 1
END

BOOLEAN 113
BEGIN
  PROMPT 2 4 "Cliente principale associato univocamente al vettore"
  FIELD B0
  MESSAGE EMPTY CLEAR,114
  MESSAGE ENABLE,114
END

BOOLEAN 114
BEGIN
  PROMPT 2 5 "Vettore speciale per gestione privati (Universal)"
  FIELD B2
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 8 "@bArticoli standard"
END

STRING 105 20
BEGIN
  PROMPT 2 9 "Servizio standard "
  FIELD S4
  FLAGS "U"
  USE LF_RCONDV
  JOIN LF_ANAMAG INTO CODART==CODRIGA
  INPUT TIPO "C"
  INPUT TIPOCF "C"
  INPUT CODCF 103 SELECT
  INPUT COD 101 SELECT
  INPUT TIPORIGA "A"
  INPUT CODRIGA 105
  DISPLAY "Codice@20" CODRIGA
  DISPLAY "Descrizione@50" LF_ANAMAG->DESCR
  DISPLAY "Gr.Mer." LF_ANAMAG->GRMERC
  OUTPUT 105 CODRIGA
  CHECKTYPE NORMAL
  ADD RUN ve2 -4
END

BOOLEAN 115
BEGIN
  PROMPT 44 9 "Ferry automatico"
  FIELD B1
END

STRING 106 20
BEGIN
  PROMPT 2 10 "Servizio notturno "
  FIELD S1[1,20]
  FLAGS "U"
  COPY USE 105
  INPUT TIPO "C"
  INPUT TIPOCF "C"
  INPUT CODCF 103 SELECT
  INPUT COD 101 SELECT
  INPUT TIPORIGA "A"
  INPUT CODRIGA 106
  COPY DISPLAY 105
  OUTPUT 106 CODRIGA
  CHECKTYPE NORMAL
  ADD RUN ve2 -4
  MESSAGE EMPTY CLEAR,6@
  MESSAGE ENABLE,6@
END

NUMBER 161 2
BEGIN
  PROMPT 44 10 "Periodo "
  FIELD S1[21,22]
  FLAGS "Z"
  CHECKTYPE REQUIRED
  GROUP 6
END

STRING 162 2
BEGIN
  PROMPT 55 10 ":"
  FIELD S1[23,24]
  CHECKTYPE REQUIRED
  GROUP 6
END

NUMBER 163 2
BEGIN
  PROMPT 60 10 "-  "
  FLAGS "Z"
  CHECKTYPE REQUIRED
  FIELD S1[25,26]
  GROUP 6
END

STRING 164 2
BEGIN
  PROMPT 66 10 ":"
  CHECKTYPE REQUIRED
  FIELD S1[27,28]
  GROUP 6
END

NUMBER 166 3
BEGIN
  PROMPT 72 10 "% "
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD I1
  GROUP 6
  FIELD S1[29,31]
END

STRING 107 20
BEGIN
  PROMPT 2 11 "Gestione DELAY    "
  FIELD S2[1,20]
  FLAGS "U"
  COPY USE 105
  INPUT TIPO "C"
  INPUT TIPOCF "C"
  INPUT CODCF 103 SELECT
  INPUT COD 101 SELECT
  INPUT TIPORIGA "A"
  INPUT CODRIGA 107
  COPY DISPLAY 105
  OUTPUT 107 CODRIGA
  CHECKTYPE NORMAL
  ADD RUN ve2 -4
  MESSAGE EMPTY CLEAR,7@
  MESSAGE ENABLE,7@
END

STRING 171 2
BEGIN
  PROMPT 44 11 "Ritardo "
  FIELD S2[21,22]
  CHECKTYPE REQUIRED
  GROUP 7
END

STRING 172 2
BEGIN
  PROMPT 55 11 ":"
  FIELD S2[23,24]
  CHECKTYPE REQUIRED
  GROUP 7
END

NUMBER 176 3
BEGIN
  PROMPT 72 11 "% "
  FLAGS "U"
  CHECKTYPE REQUIRED
  FIELD I2
  GROUP 7
  FIELD S2[29,31]
END

ENDPAGE

ENDMASK