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 "Documenti" 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

GROUPBOX DLG_NULL 78 3
BEGIN
	PROMPT 1 17 "@bCausale di default"
END


STRING F_CAUSLAV 3
BEGIN
   PROMPT 2 18 "Causale      "
   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
BEGIN
   PROMPT 24 18 ""
   USE CAU KEY 2
   INPUT S0 F_CAUSLAVDESC
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CAUSLAV
   CHECKTYPE REQUIRED
END

ENDPAGE

PAGE "Buoni" 0 2 0 0

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

SPREADSHEET F_BUONIRIT 0 5
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 7 "@bBuoni di prelievo"
END

SPREADSHEET F_BUONIPREL 0 5
BEGIN
  PROMPT 0 8  "Buoni di prelievo"
  ITEM "Numerazione"
  ITEM "Tipo documento"
  ITEM "Desczrizione tipo documento"
  ITEM "Stato"
  ITEM "Descrizione numerazione"
END

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

SPREADSHEET F_BUONIANT 0 5
BEGIN
  PROMPT 0 15  "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 "Parametri" 0 0 0 0

GROUPBOX DLG_NULL 78 6
BEGIN
	PROMPT 1 1 "@bMagazzini"
END

STRING F_CODMAGN 4
BEGIN
  PROMPT 2 2 "Magazzino del nuovo      "
  HELP "Codice deposito del nuovo"
  FIELD CODTAB[1,3]
  KEY 1
  USE MAG SELECT CODTAB[4,5]==""
  FLAG "U"
  INPUT CODTAB  F_CODMAGN
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_CODMAGN CODTAB[1,3]
  OUTPUT F_DESMAGN S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
END

STRING F_DESMAGN 50
BEGIN
  PROMPT 2 3 "                         "
  HELP "Descrizione Magazzino" 
  FLAGS "D" 
END

STRING F_CODMAGC 4
BEGIN
  PROMPT 2 4 "Magazzino del circolante "
  HELP "Codice deposito del circolante"
  FIELD CODTAB[1,3]
  KEY 1
  USE MAG SELECT CODTAB[4,5]==""
  FLAG "U"
  INPUT CODTAB  F_CODMAGC
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_CODMAGC CODTAB[1,3]
  OUTPUT F_DESMAGC S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
END

STRING F_DESMAGC 50
BEGIN
  PROMPT 2 5 "                         "
  HELP "Descrizione Magazzino" 
  FLAGS "D" 
END

GROUPBOX DLG_NULL 78 5
BEGIN
	PROMPT 1 7 "@bPercorsi file"
END

STRING F_PATH_CON 256 50
BEGIN
  PROMPT 2 8 "Cartella contapezzi   "
  DSELECT
  CHECKTYPE REQUIRED
  FIELD PathContapezzi
END

STRING F_PATH_MAN 256 50
BEGIN
  PROMPT 2 9 "Cartella mangano      "
  DSELECT
  CHECKTYPE REQUIRED
  FIELD PathMangano
END

STRING F_PATH_LAVA 256 50
BEGIN
  PROMPT 2 10 "Cartella lavacontinua "
  DSELECT
  CHECKTYPE REQUIRED
  FIELD PathLavacontinua
END

GROUPBOX DLG_NULL 78 5
BEGIN
	PROMPT 1 12 "@bOpzioni documenti"
END

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

BOOLEAN F_AUTGIRI
BEGIN
  PROMPT 30 13 "Generazione automatica giri"
  FIELD Autgiri
END

BOOLEAN F_DATAFISSA
BEGIN
  PROMPT 2 14 "Data documenti fissa"
  FIELD Datafissa
END

BOOLEAN F_AGGCONG
BEGIN
  PROMPT 30 14 "Aggiorna conguaglio su modifiche manuali"
  FIELD Aggcong
END

NUMBER F_PERARR 3
BEGIN
  PROMPT 2 15 "Percentuale per il calcolo dell'arrotondamento "
  FIELD Perarr
END

GROUPBOX DLG_NULL 78 4
BEGIN
	PROMPT 1 17 "@bOpzioni articoli"
END

BOOLEAN F_RIFOR
BEGIN
  PROMPT 2 18 "Rigo forfait"
  FIELD Rifor
END

BOOLEAN F_ARTCANFIS
BEGIN
  PROMPT 40 18 "Articolo a canone fisso"
  FIELD Artcanfis
END

BOOLEAN F_GESTSACA
BEGIN
  PROMPT 2 19 "Gestione sacchi/carrello"
  FIELD Gestsaca
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 di prelievo" -1 -1 80 5

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

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

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

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

STRING S_STATO_PRE 1
BEGIN
  PROMPT 1 3 "Stato       "
  USE %STD
  CHECKTYPE REQUIRED
  INPUT CODTAB S_STATO_PRE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT S_STATO_PRE CODTAB
  FIELD STATO_PRE
  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