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
  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 2 3 "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 2 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 NORMAL
  ADD RUN cg0 -1 C
  FIELD I0
END

STRING 104 50
BEGIN
  PROMPT 2 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
  ADD RUN cg0 -1 C
END

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 1 8 "@bParametri fatturazione"
END

STRING 105 20
BEGIN
  PROMPT 2 9 "Codice articolo 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

STRING 106 20
BEGIN
  PROMPT 2 10 "Codice articolo BINGO sheet       "
  FIELD S5
  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
END

ENDPAGE

ENDMASK