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_NULL 10 2
BEGIN
  PROMPT -1 -1 ""
END

BUTTON F_PREVYEAR 10 2
BEGIN
  PROMPT 3 1 "~Anno -"
  PICTURE BMP_FIRSTREC
END

BUTTON F_PREVMONTH 10 2
BEGIN
  PROMPT 4 1 "~Mese -"
  PICTURE BMP_PREVREC
END

BUTTON F_NEXTMONTH 10 2
BEGIN
  PROMPT 5 1 "Mese +"
  PICTURE BMP_NEXTREC
END

BUTTON F_NEXTYEAR 10 2
BEGIN
  PROMPT 6 1 "~Anno +"
  PICTURE BMP_LASTREC
END

BUTTON DLG_NULL 10 2
BEGIN
  PROMPT -1 -1 ""
END

BUTTON DLG_INFO 10 2
BEGIN
  PROMPT 7 1 ""
END

BUTTON DLG_HELP 10 2
BEGIN
  PROMPT 8 1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT 9 1 "~Fine"
  MESSAGE EXIT,K_QUIT
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

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 5 "@bFatture"
END

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

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

STRING F_TIPODOC_FAT 4
BEGIN
  PROMPT 2 7 "Tipo         "
  FIELD TIPODOC_FAT
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC_FAT
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC_FAT CODTAB
  OUTPUT F_DESTIPODOC_FAT S0
  CHECKTYPE REQUIRED
  FLAGS "UP"
END

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

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 9 "@bOrdini fornitori"
END

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

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

STRING F_TIPODOC_ORF 4
BEGIN
  PROMPT 2 11 "Tipo         "
  FIELD TIPODOC_ORF
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC_ORF
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC_ORF CODTAB
  OUTPUT F_DESTIPODOC_ORF S0
  CHECKTYPE REQUIRED
  FLAGS "UP"
END

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

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 13 "@bOrdini clienti"
END

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

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

STRING F_TIPODOC_ORC 4
BEGIN
  PROMPT 2 15 "Tipo         "
  FIELD TIPODOC_ORC
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC_ORC
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC_ORC CODTAB
  OUTPUT F_DESTIPODOC_ORC S0
  CHECKTYPE REQUIRED
  FLAGS "UP"
END

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

STRING F_CAUSLAV 3
BEGIN
   PROMPT 2 17 "Causale di default"
   USE &CAU
   INPUT CODTAB F_CAUSLAV
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CAUSLAV CODTAB
   OUTPUT F_CAUSLAVDESC S0
   FIELD CAUSLAV
   CHECKTYPE REQUIRED
END

STRING F_CAUSLAVDESC 50 47
BEGIN
   PROMPT 28 17 ""
   USE CAU KEY 2
   INPUT S0 F_CAUSLAVDESC
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CAUSLAV
   CHECKTYPE REQUIRED
END

BOOLEAN F_UNICONT
BEGIN
  PROMPT 2 18 "Numera i contratti per ditta "
  FIELD UniCont
END

BOOLEAN F_AUTGIRI
BEGIN
  PROMPT 40 18 "Generazione automatica giri "
  FIELD Autgiri
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

ENDPAGE

PAGE "Calendario" 0 2 0 0

ALMANAC F_ALMANAC 60 -2
BEGIN
  PROMPT -3 1 ""
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