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 da generare"
END

STRING F_CODNUM_GEN 4
BEGIN
  PROMPT 2 2 "Numerazione  "
  FIELD NUM_GEN
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM_GEN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM_GEN CODTAB
  OUTPUT F_DESNUM_GEN S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
  WARNING "Numerazione assente"
END

STRING F_DESNUM_GEN 50
BEGIN
  PROMPT 24 2 ""
  HELP "Descrizione Numerazione"
  USE %NUM KEY 2
  INPUT S0 F_DESNUM_GEN
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CODNUM_GEN
END

STRING F_TIPODOC_GEN 4
BEGIN
  PROMPT 2 3 "Tipo         "
  FIELD TIPODOC_GEN
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC_GEN
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC_GEN CODTAB
  OUTPUT F_DESTIPODOC_GEN S0
  CHECKTYPE REQUIRED
  FLAGS "UP"
END

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

ENDPAGE

PAGE "Buoni" 0 2 0 0

TEXT DLG_NULL
BEGIN
  PROMPT -11 0 "@bBuoni di ritiro"
END

SPREADSHEET F_BUONIRIT 0 8
BEGIN
  PROMPT 0 1 "Buoni di ritiro"
  ITEM "Numerazione"
  ITEM "Tipo documento"
  ITEM "Desczrizione tipo documento"
  ITEM "Stato"
  ITEM "Descrizione numerazione"
END

TEXT DLG_NULL
BEGIN
  PROMPT -11 10 "@bBuoni di anticipo"
END

SPREADSHEET F_BUONIANT 0 8
BEGIN
  PROMPT 0 11  "Buoni di anticipo"
  ITEM "Numerazione"
  ITEM "Tipo documento"
  ITEM "Desczrizione tipo documento"
  ITEM "Stato"
  ITEM "Descrizione numerazione"
END

ENDPAGE 

PAGE "Documenti per conguaglio e dotazione" 0 2 0 0

TEXT DLG_NULL
BEGIN
  PROMPT -11 0 "@bDocumenti per conguaglio"
END

SPREADSHEET F_DOCCONG 0 8
BEGIN
  PROMPT 0 1 "Documenti per conguaglio"
  ITEM "Numerazione"
  ITEM "Tipo documento"
  ITEM "Desczrizione tipo documento"
  ITEM "Stato"
  ITEM "Descrizione numerazione"
END

TEXT DLG_NULL
BEGIN
  PROMPT -11 10 "@bDocumenti per dotazione"
END

SPREADSHEET F_DOCDOT 0 7
BEGIN
  PROMPT 0 11  "Documenti per dotazione"
  ITEM "Numerazione"
  ITEM "Tipo documento"
  ITEM "Desczrizione tipo documento"
  ITEM "Stato"
  ITEM "Descrizione numerazione"
END

STRING F_TIPORIGDOT 4
BEGIN
  PROMPT 2 18 "Codice "
  FLAGS "U"
  USE %TRI
  INPUT CODTAB F_TIPORIGDOT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPORIGDOT CODTAB
  OUTPUT F_DESCRTR1 S0
  CHECKTYPE REQUIRED
  FIELD TIPORIGDOT
END

STRING F_DESCRTR1 50
BEGIN
  PROMPT 16 18 ""
  USE %TRI KEY 2
  INPUT S0 F_DESCRTR1
  COPY DISPLAY F_TIPORIGDOT
  COPY OUTPUT F_TIPORIGDOT
  CHECKTYPE REQUIRED
END

STRING F_TIPORIGDTMP 4
BEGIN
  PROMPT 2 19 "Codice "
  FLAGS "U"
  USE %TRI
  INPUT CODTAB F_TIPORIGDTMP
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPORIGDTMP CODTAB
  OUTPUT F_DESCRTR2 S0
  CHECKTYPE NORMAL
  FIELD TIPORIGDTMP
  STR_EXPR #F_TIPORIGDOT!=#F_TIPORIGDTMP
  WARNING "I due tipi riga devono essere diversi"
END

STRING F_DESCRTR2 50
BEGIN
  PROMPT 16 19 ""
  USE %TRI KEY 2
  INPUT S0 F_DESCRTR2
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_TIPORIGDTMP
  CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK

PAGE "Buoni di ritiro" -1 -1 80 5

STRING S_CODNUM_RIT 4
BEGIN
  PROMPT 1 1 "Numerazione "
  FIELD NUM_RIT
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB S_CODNUM_RIT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODNUM_RIT CODTAB
  OUTPUT S_DESNUM_RIT S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
  WARNING "Numerazione assente"
END

STRING S_DESNUM_RIT 50
BEGIN
  PROMPT 20 1 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 S_DESNUM_RIT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_CODNUM_RIT
END

STRING S_TIPODOC_RIT 4
BEGIN
  PROMPT 1 2 "Tipo        "
  FIELD TIPODOC_RIT
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB S_TIPODOC_RIT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_TIPODOC_RIT CODTAB
  OUTPUT S_DESTIPODOC_RIT S0
  CHECKTYPE REQUIRED
  FLAGS "UP"
END

STRING S_DESTIPODOC_RIT 50
BEGIN
  PROMPT 20 2 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 S_DESTIPODOC_RIT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_TIPODOC_RIT
END

STRING S_STATO_RIT 1
BEGIN
  PROMPT 1 3 "Stato       "
  USE %STD
  CHECKTYPE REQUIRED
  INPUT CODTAB S_STATO_RIT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_STATO_RIT CODTAB
  FIELD STATO_RIT
  FLAGS "U"
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  MESSAGE EXIT,K_DEL
  PICTURE BMP_DELREC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

ENDMASK

PAGE "Buoni d'anticipo" -1 -1 80 5

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

STRING S_CODNUM_ANT 4
BEGIN
  PROMPT 1 1 "Numerazione "
  FIELD NUM_ANT
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB S_CODNUM_ANT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODNUM_ANT CODTAB
  OUTPUT S_DESNUM_ANT S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
  WARNING "Numerazione assente"
END

STRING S_DESNUM_ANT 50
BEGIN
  PROMPT 20 1 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 S_DESNUM_ANT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_CODNUM_ANT
END

STRING S_TIPODOC_ANT 4
BEGIN
  PROMPT 1 2 "Tipo        "
  FIELD TIPODOC_ANT
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB S_TIPODOC_ANT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_TIPODOC_ANT CODTAB
  OUTPUT S_DESTIPODOC_ANT S0
  CHECKTYPE REQUIRED
  FLAGS "UP"
END

STRING S_DESTIPODOC_ANT 50
BEGIN
  PROMPT 20 2 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 S_DESTIPODOC_ANT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_TIPODOC_ANT
END

STRING S_STATO_ANT 1
BEGIN
  PROMPT 1 3 "Stato       "
  USE %STD
  CHECKTYPE REQUIRED
  INPUT CODTAB S_STATO_ANT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_STATO_ANT CODTAB
  FIELD STATO_ANT
  FLAGS "U"
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  MESSAGE EXIT,K_DEL
  PICTURE BMP_DELREC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

ENDMASK

PAGE "Documenti conguaglio" -1 -1 80 5

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 9 "@bDocumenti conguaglio"
END

STRING S_CODNUM_CONG 4
BEGIN
  PROMPT 1 1 "Numerazione "
  FIELD NUM_CONG
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB S_CODNUM_CONG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODNUM_CONG CODTAB
  OUTPUT S_DESNUM_CONG S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
  WARNING "Numerazione assente"
END

STRING S_DESNUM_CONG 50
BEGIN
  PROMPT 20 1 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 S_DESNUM_CONG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_CODNUM_CONG
END

STRING S_TIPODOC_CONG 4
BEGIN
  PROMPT 1 2 "Tipo        "
  FIELD TIPODOC_CONG
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB S_TIPODOC_CONG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_TIPODOC_CONG CODTAB
  OUTPUT S_DESTIPODOC_CONG S0
  CHECKTYPE REQUIRED
  FLAGS "UP"
END

STRING S_DESTIPODOC_CONG 50
BEGIN
  PROMPT 20 2 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 S_DESTIPODOC_CONG
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_TIPODOC_CONG
END

STRING S_STATO_CONG 1
BEGIN
  PROMPT 1 3 "Stato       "
  USE %STD
  CHECKTYPE REQUIRED
  INPUT CODTAB S_STATO_CONG
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_STATO_CONG CODTAB
  FIELD STATO_CONG
  FLAGS "U"
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  MESSAGE EXIT,K_DEL
  PICTURE BMP_DELREC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

ENDMASK

PAGE "Documenti dotazione" -1 -1 80 5

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 9 "@bDocumenti dotazione"
END

STRING S_CODNUM_DOT 4
BEGIN
  PROMPT 1 1 "Numerazione "
  FIELD NUM_DOT
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB S_CODNUM_DOT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_CODNUM_DOT CODTAB
  OUTPUT S_DESNUM_DOT S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
  WARNING "Numerazione assente"
END

STRING S_DESNUM_DOT 50
BEGIN
  PROMPT 20 1 ""
  HELP "Descrizione numerazione"
  USE %NUM KEY 2
  INPUT S0 S_DESNUM_DOT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_CODNUM_DOT
END

STRING S_TIPODOC_DOT 4
BEGIN
  PROMPT 1 2 "Tipo        "
  FIELD TIPODOC_DOT
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB S_TIPODOC_DOT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_TIPODOC_DOT CODTAB
  OUTPUT S_DESTIPODOC_DOT S0
  CHECKTYPE REQUIRED
  FLAGS "UP"
END

STRING S_DESTIPODOC_DOT 50
BEGIN
  PROMPT 20 2 ""
  HELP "Descrizione tipo documento"
  USE %TIP KEY 2
  INPUT S0 S_DESTIPODOC_DOT
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT S_TIPODOC_DOT
END

STRING S_STATO_DOT 1
BEGIN
  PROMPT 1 3 "Stato       "
  USE %STD
  CHECKTYPE REQUIRED
  INPUT CODTAB S_STATO_DOT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_STATO_DOT CODTAB
  FIELD STATO_DOT
  FLAGS "U"
END

ENDPAGE

TOOLBAR "" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_DELREC 2 2
BEGIN
  PROMPT 2 1 "Elimina"
  MESSAGE EXIT,K_DEL
  PICTURE BMP_DELREC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

ENDMASK