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

TEXT -1
BEGIN
	PROMPT 1 0 "@bDocumenti da generare"
END

STRING F_CODNUM_GEN 4
BEGIN
  PROMPT 2 1 "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 1 ""
  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 2 "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 2 ""
  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

TEXT -1
BEGIN
	PROMPT 1 3 "@bFatture"
END

STRING F_CODNUM_FAT 4
BEGIN
  PROMPT 2 4 "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 4 ""
  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 5 "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 5 ""
  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

BOOLEAN F_RIFTEST
BEGIN
  PROMPT 2 6 "Scrivi riferimenti in testata documento"
  FIELD RifTest
  MESSAGE FALSE CLEAR,F_RIFTESTNUM
  MESSAGE TRUE ENABLE,F_RIFTESTNUM
END

BOOLEAN F_RIFTESTNUM
BEGIN
  PROMPT 50 6 "Solo numeri di bolla"
  FIELD RifTestNum
END

STRING F_FELAB_DIF 8
BEGIN
  PROMPT 2 7 "Tipo fatt. definitiva"
  FLAG "U"
  USE %ELD SELECT I0==2
  INPUT CODTAB F_FELAB_DIF
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Numerazione" S5
  OUTPUT F_FELAB_DIF CODTAB  
  CHECKTYPE REQUIRED
  FIELD FatDif
END

STRING F_FELAB_PRO 8
BEGIN
  PROMPT 45 7 "Tipo fatt. di prova  "
  FLAG "U"
  USE %ELD SELECT I0==2
  INPUT CODTAB F_FELAB_PRO
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Numerazione" S5
  OUTPUT F_FELAB_PRO CODTAB  
  CHECKTYPE REQUIRED
  FIELD FatPro
END

TEXT -1
BEGIN
	PROMPT 1 8 "@bOrdini fornitori"
END

STRING F_CODNUM_ORF 4
BEGIN
  PROMPT 2 9 "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 9 ""
  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 10 "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 10 ""
  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

TEXT -1
BEGIN
	PROMPT 1 11 "@bOrdini clienti"
END

STRING F_CODNUM_ORC 4
BEGIN
  PROMPT 2 12 "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 12 ""
  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 13 "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 13 ""
  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

TEXT -1
BEGIN
	PROMPT 1 14 "@bInventari pacchi"
END

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

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

STRING F_TIPODOC_INV 4
BEGIN
  PROMPT 2 16 "Tipo         "
  FIELD TIPODOC_INV
  HELP "Codice tipo documento"
  USE %TIP
  INPUT CODTAB F_TIPODOC_INV
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_TIPODOC_INV CODTAB
  OUTPUT F_DESTIPODOC_INV S0
  CHECKTYPE REQUIRED
  FLAGS "UP"
END

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


TEXT -1
BEGIN
	PROMPT 1 17 "@bCausali di default"
END

STRING F_CAUSLAV 3
BEGIN
   PROMPT 2 18 "Cau. Rit/Con     "
   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 48
BEGIN
   PROMPT 26 18 ""
   USE &CAU KEY 2
   INPUT S0 F_CAUSLAVDESC
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CAUSLAV
   CHECKTYPE REQUIRED
END

STRING F_CAULVRITDT 3
BEGIN
   PROMPT 2 19 "Cau. Rit. dt. tmp"
   USE &CAU
   INPUT CODTAB F_CAULVRITDT
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CAULVRITDT CODTAB
   OUTPUT F_CAULVRITDTDE S0
   FIELD CAULVRITDT
   CHECKTYPE REQUIRED
END

STRING F_CAULVRITDTDE 48
BEGIN
   PROMPT 26 19 ""
   USE &CAU KEY 2
   INPUT S0 F_CAUSLAVDESC
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CAULVRITDT
   CHECKTYPE REQUIRED
END

STRING F_CAUCARMAG 5
BEGIN
   PROMPT 2 20 "Cau. Car. Mag.   "
   USE %CAU KEY 1
   INPUT CODTAB F_CAUCARMAG
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CAUCARMAG CODTAB
   OUTPUT F_CAUCARMAGDE S0
   FIELD CAUCARMAG
   CHECKTYPE REQUIRED
END

STRING F_CAUCARMAGDE 50 46
BEGIN
   PROMPT 28 20 ""
   USE %CAU KEY 2
   INPUT S0 F_CAUCARMAGDE
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CAUCARMAG
   CHECKTYPE REQUIRED
END

STRING F_CAUSCARMAG 5
BEGIN
   PROMPT 2 21 "Cau. Scar. Mag.  "
   USE %CAU KEY 1
   INPUT CODTAB F_CAUSCARMAG
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CAUSCARMAG CODTAB
   OUTPUT F_CAUSCARMAGDE S0
   FIELD CAUSCARMAG
   CHECKTYPE REQUIRED
END

STRING F_CAUSCARMAGDE 50 46
BEGIN
   PROMPT 28 21 ""
   USE %CAU KEY 2
   INPUT S0 F_CAUSCARMAGDE
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice" CODTAB
   COPY OUTPUT F_CAUSCARMAG
   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 "Descrizione 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 "Descrizione 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 "Descrizione 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 "Descrizione 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 "Descrizione tipo documento"
  ITEM "Stato"
  ITEM "Descrizione numerazione"
END

ENDPAGE

PAGE "Parametri" 0 0 0 0

TEXT -1
BEGIN
	PROMPT 0 0 "@bMagazzini"
END

STRING F_CODMAG 4
BEGIN
  PROMPT 1 1 "Magazzino "
  FIELD CODMAG
  USE MAG SELECT CODTAB[4,5]==""
  FLAG "U"
  INPUT CODTAB  F_CODMAG
  DISPLAY "Codice " CODTAB[1,3]
  DISPLAY "Denominazione mag.@50 " S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_DESMAG S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"  
END

STRING F_DESMAG 50
BEGIN
  PROMPT 23 1 ""
  FLAGS "D"
END

STRING F_CODMAGN 3
BEGIN
  PROMPT 1 2 "Dep. nuovo "
  HELP "Codice deposito del nuovo"
  FIELD CODMAGN
  KEY 1
  USE MAG 
	INPUT CODTAB[1,3] F_CODMAG SELECT
  INPUT CODTAB[4,5] F_CODMAGN
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_CODMAGN CODTAB[4,5]
  OUTPUT F_DESMAGN S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
END

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

STRING F_CODMAGC 3
BEGIN
  PROMPT 1 3 "Dep. circ. "
  HELP "Codice deposito del circolante"
  FIELD CODMAGC
  KEY 1
  USE MAG 
	INPUT CODTAB[1,3] F_CODMAG SELECT
  INPUT CODTAB[4,5] F_CODMAGC
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_CODMAGC CODTAB[4,5]
  OUTPUT F_DESMAGC S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
END

STRING F_DESMAGC 50
BEGIN
  PROMPT 23 3 ""
  HELP "Descrizione Magazzino" 
  FLAGS "D" 
END

STRING F_CODMAGP 3
BEGIN
  PROMPT 1 4 "Dep. pulito"
  HELP "Codice deposito del pulito"
  FIELD CODMAGP
  KEY 1
  USE MAG 
	INPUT CODTAB[1,3] F_CODMAG SELECT
  INPUT CODTAB[4,5] F_CODMAGP
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_CODMAGP CODTAB[4,5]
  OUTPUT F_DESMAGP S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
END

STRING F_DESMAGP 50
BEGIN
  PROMPT 23 4 ""
  HELP "Descrizione Magazzino" 
  FLAGS "D" 
END

STRING F_CODMAGCL 3
BEGIN
  PROMPT 1 5 "Dep. cli.  "
  HELP "Codice deposito presso cliente"
  FIELD CODMAGCL
  KEY 1
  USE MAG 
	INPUT CODTAB[1,3] F_CODMAG SELECT
  INPUT CODTAB[4,5] F_CODMAGCL
  DISPLAY "Cod. magazzino" CODTAB[1,3]
  DISPLAY "Cod. deposito" CODTAB[4,5]
  DISPLAY "Denominazione dep.@50" S0
  OUTPUT F_CODMAG CODTAB[1,3]
  OUTPUT F_CODMAGCL CODTAB[4,5]
  OUTPUT F_DESMAGCL S0
  CHECKTYPE REQUIRED
  FLAGS "UPA"
END

STRING F_DESMAGCL 50
BEGIN
  PROMPT 23 5 ""
  HELP "Descrizione Magazzino" 
  FLAGS "D" 
END

TEXT -1
BEGIN
	PROMPT 0 7 "@bOpzioni contratti"
END

BOOLEAN F_UNICONT
BEGIN
  PROMPT 1 8 "Numera contr. per ditta"
  FIELD UniCont
END

BOOLEAN F_QTAMODI
BEGIN
  PROMPT 28 8 "Dot. modificabili"
  FIELD Qtamodi
END

BOOLEAN F_USEINDSP
BEGIN
  PROMPT 50 8 "Utilizza ind. sped. su contratto"
  FIELD Useindsp
END

BOOLEAN F_DATABCON
BEGIN
  PROMPT 1 9 "Data buono di consegna uguale alla data evasione buono di ritiro"
  FIELD DataBcon
END

BOOLEAN F_CONDOM
BEGIN
  PROMPT 1 10 "Consegna giorno successivo per i clienti che lavorano a pulito"
  FIELD ConDom
END

TEXT -1
BEGIN
	PROMPT 0 11 "@bOpzioni Giri"
END

BOOLEAN F_AUTGIRI
BEGIN
  PROMPT 1 12 "Generazione automatica giri"
  FIELD Autgiri
END

LISTBOX F_ORDGIRI 1 22
BEGIN
   PROMPT 35 12 "Ordina giri per "
   ITEM  "0|Ordine di generazione"
   ITEM  "1|Ordine di fermata"
   ITEM  "2|Orario di passaggio"
   FIELD Ordgir
END

TEXT -1
BEGIN
	PROMPT 0 14 "@bOpzioni Documenti"
END

BOOLEAN F_DATAFISSA
BEGIN
  PROMPT 1 15 "Data documenti fissa"
  FIELD Datafissa
END

BOOLEAN F_AGGCONG
BEGIN
  PROMPT 28 15 "Aggiorna conguaglio su modifiche manuali"
  FIELD Aggcong
END

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

STRING F_CODARTFIX 8
BEGIN
  PROMPT 1 17 "Art. per canone fisso   "
  FIELD Codartfix
  KEY 1
  FLAG "UG"
  USE LF_ANAMAG
  INPUT CODART F_CODARTFIX
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODARTFIX CODART
  OUTPUT F_DESARTFIX DESCR
  CHECKTYPE NORMAL
END

STRING F_DESARTFIX 50 28
BEGIN
  PROMPT 40 17 ""
  FLAGS "D"
END

STRING F_CODARTCAFIX 8
BEGIN
  PROMPT 1 18 "Art. per raggruppamento "
  FIELD Codartcafix
  KEY 1
  FLAG "UG"
  USE LF_ANAMAG
  INPUT CODART F_CODARTCAFIX
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODARTCAFIX CODART
  OUTPUT F_DESARTCAFIX DESCR
  CHECKTYPE NORMAL
END

STRING F_DESARTCAFIX 50 28
BEGIN
  PROMPT 40 18 ""
  FLAGS "D"
END

STRING F_CODARTCOFIX 8
BEGIN
  PROMPT 1 19 "Art. per valore convenz."
  FIELD Codartcofix
  KEY 1
  FLAG "UG"
  USE LF_ANAMAG
  INPUT CODART F_CODARTCOFIX
  DISPLAY "Codice@20" CODART
  DISPLAY "Descrizione@50" DESCR
  OUTPUT F_CODARTCOFIX CODART
  OUTPUT F_DESARTCOFIX DESCR
  CHECKTYPE NORMAL
END

STRING F_DESARTCOFIX 50 28
BEGIN
  PROMPT 40 19 ""
  FLAGS "D"
END

LISTBOX F_TIPOPR 1 19
BEGIN
  PROMPT 1 20 "Tipo prezzo"
  ITEM "0|Prezzo da contratto" MESSAGE "X",F_AGGHEAD|DISABLE,F_AGGHEAD
  ITEM "1|Prezzo da bolla"     MESSAGE ENABLE,F_AGGHEAD
  FIELD Tipopr
END

BOOLEAN F_AGGHEAD
BEGIN
  PROMPT 40 20 "Aggiorna la testata delle bolle"
  FIELD AggHead
END

BOOLEAN F_DESTHEAD
BEGIN
  PROMPT 1 21 "Destinazione in testata"
  FIELD DestHead
END

BOOLEAN F_DOTSTO
BEGIN
  PROMPT 30 21 "Visualizza dotazione storica"
  FIELD ShowDotSto
END

STRING F_UMPESO 3
BEGIN
  PROMPT 66 21 "U.M. "
  USE %UMS
  INPUT CODTAB F_UMPESO
  DISPLAY "Codice@6" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT  F_UMPESO CODTAB
  FIELD UmKg
  FLAG "U"
  CHECKTYPE REQUIRED
END

TEXT -1
BEGIN
	PROMPT 0 22 "@bOpzioni articoli"
END

BOOLEAN F_GESTSACA
BEGIN
  PROMPT 30 22 "Gestione sacchi/carrello"
  FIELD Gestsaca
END

ENDPAGE

PAGE "File da elaborare" 0 0 0 0

TEXT -1
BEGIN
	PROMPT 0 0 "@bPercorsi file"
END

STRING F_PATH_CON 256 50
BEGIN
  PROMPT 1 1 "Cartella contapezzi   "
  DSELECT
  CHECKTYPE NORMAL
  FIELD PathContapezzi
END

SPREADSHEET F_SHEET_NAME 78 10
BEGIN
  PROMPT 1 2 "Nomi"
  ITEM "Nome file"  
END

STRING F_PATH_MAN 256 50
BEGIN
  PROMPT 1 14 "Cartella mangano      "
  DSELECT
  CHECKTYPE NORMAL
  FIELD PathMangano
END

STRING F_PATH_LAVA 256 50
BEGIN
  PROMPT 1 15 "Cartella lavacontinua "
  DSELECT
  CHECKTYPE NORMAL
  FIELD PathLavacontinua
END

STRING F_PATH_PUL 256 50
BEGIN
  PROMPT 1 16 "Cartella conta pulito "
  DSELECT
  CHECKTYPE NORMAL
  FIELD PathPulito
END

STRING F_FILE_PUL 255 63
BEGIN
  PROMPT 1 17 "File pul "    
  FSELECT "*.dat"
  CHECKTYPE NORMAL
  FIELD FilePulito
END

TEXT -1
BEGIN
	PROMPT 0 20 "@bOpzioni backup"
	GROUP 1
END

STRING F_BACKUP 128 25
BEGIN
  PROMPT 1 21 "Percorso di backup "
  FIELD Backup
	GROUP 1
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

PAGE "Nomi file" -1 -1 80 3

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 1 "@bNome file"
END

STRING S_NAME 255 66
BEGIN
  PROMPT 3 2 "File  "    
  FSELECT "*.dat"
  CHECKTYPE NORMAL
  FIELD FileName
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 ""
  PICTURE TOOL_DELREC
END

BUTTON DLG_USER 2 2
BEGIN
  PROMPT 3 1 "Cerca"
  MESSAGE K_F9, S_NAME
  PICTURE TOOL_FINDREC
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 4 1 ""
END

ENDPAGE

ENDMASK