campo-sirio/lv/lv0300a.uml

#include "lv0300a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 10 2
BEGIN
	PROMPT -14 -1 ""
END

BUTTON DLG_INFO 10 2
BEGIN
  PROMPT -24 -11 ""
END

BUTTON DLG_HELP 10 2
BEGIN
  PROMPT -34 -11 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
	PROMPT -44 -1 ""
END

ENDPAGE

PAGE "Parametri" 0 0 0 0

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 1 "@bDocumenti di trasporto"
END

STRING F_CODNUM_DDT 4
BEGIN
  PROMPT 2 2 "Numerazione  "
  FIELD NUM(DDT)
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM_DDT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM_DDT CODTAB
  OUTPUT F_DESNUM_DDT S0
  CHECKTYPE REQUIRED
  FLAG "UPA"
  WARNING "Numerazione assente"
END

STRING F_DESNUM_DDT 50
BEGIN
  PROMPT 24 2 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUM_DDT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM_DDT
END

STRING F_TIPODOC_DDT 4
BEGIN
  PROMPT 2 3 "Tipo         "
  FIELD TIPODOC(DDT)
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC_DDT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC_DDT CODTAB
  OUTPUT F_DESTIPODOC_DDT S0
  CHECKTYPE REQUIRED
  FLAG "UP"
END

STRING F_DESTIPODOC_DDT 50
BEGIN
  PROMPT 24 3 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOC_DDT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOC_DDT
END

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 5 "@bBuoni Ritiro"
END

STRING F_CODNUM_RIT 4
BEGIN
  PROMPT 2 6 "Numerazione  "
  FIELD NUM(RIT)
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM_RIT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM_RIT CODTAB
  OUTPUT F_DESNUM_RIT S0
  CHECKTYPE REQUIRED
  FLAG "UPA"
  WARNING "Numerazione assente"
END

STRING F_DESNUM_RIT 50
BEGIN
  PROMPT 24 6 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUM_RIT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM_RIT
END

STRING F_TIPODOC_RIT 4
BEGIN
  PROMPT 2 7 "Tipo         "
  FIELD TIPODOC(RIT)
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC_RIT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC_RIT CODTAB
  OUTPUT F_DESTIPODOC_RIT S0
  CHECKTYPE REQUIRED
  FLAG "UP"
END

STRING F_DESTIPODOC_RIT 50
BEGIN
  PROMPT 24 7 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOC_RIT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOC_RIT
END

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 9 "@bBuoni Prelievo"
END

STRING F_CODNUM_PRE 4
BEGIN
  PROMPT 2 10 "Numerazione  "
  FIELD NUM(PRE)
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM_PRE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM_PRE CODTAB
  OUTPUT F_DESNUM_PRE S0
  CHECKTYPE REQUIRED
  FLAG "UPA"
  WARNING "Numerazione assente"
END

STRING F_DESNUM_PRE 50
BEGIN
  PROMPT 24 10 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUM_PRE
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM_PRE
END

STRING F_TIPODOC_PRE 4
BEGIN
  PROMPT 2 11 "Tipo         "
  FIELD TIPODOC(PRE)
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC_PRE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC_PRE CODTAB
  OUTPUT F_DESTIPODOC_PRE S0
  CHECKTYPE REQUIRED
  FLAG "UP"
END

STRING F_DESTIPODOC_PRE 50
BEGIN
  PROMPT 24 11 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOC_PRE
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOC_PRE
END

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 13 "@bBuoni Anticipo"
END

STRING F_CODNUM_ANT 4
BEGIN
  PROMPT 2 14 "Numerazione  "
  FIELD NUM(ANT)
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM_ANT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM_ANT CODTAB
  OUTPUT F_DESNUM_ANT S0
  CHECKTYPE REQUIRED
  FLAG "UPA"
  WARNING "Numerazione assente"
END

STRING F_DESNUM_ANT 50
BEGIN
  PROMPT 24 14 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUM_ANT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM_ANT
END

STRING F_TIPODOC_ANT 4
BEGIN
  PROMPT 2 15 "Tipo         "
  FIELD TIPODOC(ANT)
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC_ANT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC_ANT CODTAB
  OUTPUT F_DESTIPODOC_ANT S0
  CHECKTYPE REQUIRED
  FLAG "UP"
END

STRING F_DESTIPODOC_ANT 50
BEGIN
  PROMPT 24 15 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 F_DESTIPODOC_ANT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPODOC_ANT
END

ENDPAGE

ENDMASK