campo-sirio/ve/ve0200a.uml

#include "veconf.h"

TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Installazione"  0 0 0 0

GROUPBOX DLG_NULL 78  7
BEGIN
PROMPT 1 1 "Gestione listini"
END

BOOLEAN F_GESLISTINI
BEGIN
PROMPT 2 2 "Gestione archivio listini"
MESSAGE FALSE CLEAR,1@
MESSAGE TRUE ENABLE,1@
FIELD GES[A_LISTINI]
END

BOOLEAN F_GESLISCV
BEGIN
PROMPT 2 3 "Gestione codice categoria vendite+codice listino"
FIELD GESLISCV
GROUP 1
END

BOOLEAN F_GESUM
BEGIN
PROMPT 2 4 "Gestione listini per unita di misura"
FIELD GESUM[A_LISTINI]
GROUP 1
END

BOOLEAN F_GESSCALISTINI
BEGIN
PROMPT 2 5 "Gestione listino a scaglioni"
FIELD GESSCA[A_LISTINI]
GROUP 1
END

BOOLEAN F_GESSOLISTINI
BEGIN
PROMPT 2 6 "Gestione sconti/omaggio articoli"
FIELD GESSO[A_LISTINI]
GROUP 1
END

GROUPBOX DLG_NULL 78  7
BEGIN
PROMPT 1 8 "Gestione contratti"
END

BOOLEAN F_GESCONTRATTI
BEGIN
PROMPT 2 9 "Gestione archivio contratti"
MESSAGE FALSE CLEAR,2@
MESSAGE TRUE ENABLE,2@
FIELD GES[A_CONTRATTI]
END

BOOLEAN F_GESCONCC
BEGIN
PROMPT 2 10 "Gestione codice cliente+codice contratto"
FIELD GESCONCC
GROUP 2
END

BOOLEAN F_GESCONTRATTIUM
BEGIN
PROMPT 2 11 "Gestione contratti per unita di misura"
FIELD GESUM[A_CONTRATTI]
GROUP 2
END

BOOLEAN F_GESSCACONTRATTI
BEGIN
PROMPT 2 12 "Gestione contratto a scaglioni"
FIELD GESSCA[A_CONTRATTI]
GROUP 2
END

BOOLEAN F_GESSOCONTRATTI
BEGIN
PROMPT 2 13 "Gestione sconti/omaggio articoli"
FIELD GESSO[A_CONTRATTI]
GROUP 2
END

GROUPBOX DLG_NULL 78  6
BEGIN
PROMPT 1 15 "Gestione offerte "
END

BOOLEAN F_GESCAMPAGNE
BEGIN
PROMPT 2 16 "Gestione archivio offerte "
MESSAGE TRUE ENABLE,3@
MESSAGE FALSE CLEAR,3@
FIELD GES[A_OFFERTE]
END

BOOLEAN F_GESCAMPAGNEUM
BEGIN
PROMPT 2 17 "Gestione offerte per unita di misura "
FIELD GESUM[A_OFFERTE]
GROUP 3
END

BOOLEAN F_GESSCACAMPAGNE
BEGIN
PROMPT 2 18 "Gestione offerte a scaglioni "
FIELD GESSCA[A_OFFERTE]
GROUP 3
END

BOOLEAN F_GESSOCAMPAGNE
BEGIN
PROMPT 2 19 "Gestione sconti/omaggio articoli"
FIELD GESSO[A_OFFERTE]
GROUP 3
END

ENDPAGE

PAGE "Sconti e Prezzi"  1 1 60 14

LIST F_GESSCO 36
BEGIN
PROMPT 2 2 "Tipo gestione sconti documenti "
ITEM "N|Non gestire" MESSAGE CLEAR,4@
ITEM "P|Percentuale su anagrafica " MESSAGE CLEAR,4@
ITEM "T|Gestione tabella sconti " MESSAGE CLEAR,4@
ITEM "A|Gestione archivio sconti " MESSAGE ENABLE,4@
FIELD GESSCO
END

BOOLEAN F_SCOKEY1
BEGIN
PROMPT 2 3 "Tabella categoria vendite in chiave"
GROUP 4
FIELD SCOKEY[1]
END

BOOLEAN F_SCOKEY2
BEGIN
PROMPT 2 4 "Tabella sconti clienti in chiave"
GROUP 4
FIELD SCOKEY[2]
END

BOOLEAN F_SCOKEY3
BEGIN
PROMPT 2 5 "Tabella zone in chiave"
GROUP 4
FIELD SCOKEY[3]
END

BOOLEAN F_SCOKEY4
BEGIN
PROMPT 2 6 "Tabella modalita' di pagamento in chiave"
GROUP 4
FIELD SCOKEY[4]
END

LIST F_GESSCORIGA 1 45
BEGIN
PROMPT 2 7 "Gestione sconti riga principale "
ITEM "N|Non gestire" MESSAGE CLEAR,5@
ITEM "L|Percentuale su anagrafica/listini/contratti " MESSAGE CLEAR,5@
ITEM "A|Gestione archivio sconti " MESSAGE ENABLE,5@
ITEM "C|Percentuale indicata su anagrafica cliente " MESSAGE CLEAR,5@
FIELD GESSCORIGA
END

LIST F_GESSCORIGA2 1 45
BEGIN
PROMPT 2 8 "Gestione sconti riga secondaria "
ITEM "N|Non gestire"
ITEM "L|Percentuale su anagrafica/listini/contratti "
ITEM "A|Gestione archivio sconti " MESSAGE ENABLE,5@
ITEM "C|Percentuale indicata su anagrafica cliente "
FIELD GESSCORIGA2
END

BOOLEAN F_GESSCORIGACV
BEGIN
PROMPT 2 9 "Gestione archivio sconti con categorie vendita cliente "
FIELD GESSCORIGACV
GROUP 5
END

LIST F_SCORIGAKEY 36
BEGIN
PROMPT 2 10 "Chiave archivio sconti di riga "
ITEM "A|Codice articolo " MESSAGE ENABLE,6@
ITEM "L|Codice gruppo merceologico" MESSAGE CLEAR,6@
ITEM "C|Codice sottogruppo merceologico" MESSAGE CLEAR,6@
ITEM "R|Codice raggruppamento fiscale " MESSAGE CLEAR,6@
FIELD SCORIGAKEY
GROUP 5
END

BOOLEAN F_GESSCOSCA
BEGIN
PROMPT 2 12 "Gestione archivio sconti a scaglioni "
FIELD GESSCOSCA
GROUP 5 6
END

BOOLEAN F_GESSCOUM
BEGIN
PROMPT 2 13 "Gestione archivio sconti unita' di misura "
FIELD GESSCOUM
GROUP 5 6
END

LISTBOX F_PRICEOMAGGI 20
BEGIN
  PROMPT 2 15 "Prezzo per gli omaggi          "
	FIELD PriceOmaggi
	ITEM "|Prezzo di Vendita"
  ITEM "1|Ultimo costo"
  ITEM "2|Media ultimi costi"
  ITEM "3|Prezzo di listino"
  ITEM "4|Costo standard"
	ITEM "6|Costo medio ponder."
  ITEM "5|Costo medio"
  ITEM "7|FIFO annuale"
  ITEM "8|LIFO annuale"
  ITEM "9|FIFO"
  ITEM "10|LIFO"
 END
 ENDPAGE

PAGE "CONAI" 1 1 60 14

TEXT DLG_NULL
BEGIN
  PROMPT 1 0 "@bMostra sui"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 1 "@bDocumenti"
END

TEXT DLG_NULL
BEGIN
  PROMPT 13 1 "@bCodice Spesa"
END

TEXT DLG_NULL
BEGIN
  PROMPT 42 1 "@bDescrizione Spesa"
END

BOOLEAN F_CONFACC
BEGIN
  PROMPT 1 2 "Acciao"
  FIELD CONFACC
END

STRING F_CODACC 8
BEGIN
  PROMPT 13 2 ""
  FIELD CODACC
  USE SPP
  FLAGS "U"
  INPUT CODTAB F_CODACC
  DISPLAY "Codice Spesa " CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODACC CODTAB
  OUTPUT F_DESACC S0
  HELP "Codice spesa per contributo acciaio"
  CHECKTYPE NORMAL
  GROUP 7
  MESSAGE EMPTY ENABLE,F_CONFACC
  MESSAGE DISABLE,F_CONFACC|"X",F_CONFACC
END

STRING F_DESACC 50
BEGIN
  PROMPT 25 2 ""
  USE SPP KEY 2
  INPUT S0 F_DESACC
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice Spesa " CODTAB
  COPY OUTPUT F_CODACC
  GROUP 7
END

BOOLEAN F_CONFALL
BEGIN
  PROMPT 1 4 "Alluminio"
  FIELD CONFALL
END

STRING F_CODALL 8
BEGIN
  PROMPT 13 4 ""
  FIELD CODALL
  FLAGS "U"
  COPY USE F_CODACC
  INPUT CODTAB F_CODALL
  COPY DISPLAY F_CODACC
  OUTPUT F_CODALL CODTAB
  OUTPUT F_DESALL S0
  CHECKTYPE NORMAL
  HELP "Codice spesa per contributo alluminio"
  GROUP 7
  MESSAGE EMPTY ENABLE,F_CONFALL
  MESSAGE DISABLE,F_CONFALL|"X",F_CONFALL
END

STRING F_DESALL 50
BEGIN
  PROMPT 25 4 ""
  COPY USE F_DESACC
  INPUT S0 F_DESALL
  COPY DISPLAY F_DESACC
  COPY OUTPUT F_CODALL
  GROUP 7
END

BOOLEAN F_CONFCAR
BEGIN
  PROMPT 1 6 "Carta"
  FIELD CONFCAR
END

STRING F_CODCAR 8
BEGIN
  PROMPT 13 6 ""
  FIELD CODCAR
  FLAGS "U"
  COPY USE F_CODACC
  INPUT CODTAB F_CODCAR
  COPY DISPLAY F_CODACC
  OUTPUT F_CODCAR CODTAB
  OUTPUT F_DESCAR S0
  CHECKTYPE NORMAL
  HELP "Codice spesa per contributo carta"
  GROUP 7
  MESSAGE EMPTY ENABLE,F_CONFCAR
  MESSAGE DISABLE,F_CONFCAR|"X",F_CONFCAR
END

STRING F_DESCAR 50
BEGIN
  PROMPT 25 6 ""
  COPY USE F_DESACC
  INPUT S0 F_DESCAR
  COPY DISPLAY F_DESACC
  COPY OUTPUT F_CODCAR
  GROUP 7
END

BOOLEAN F_CONFPLA
BEGIN
  PROMPT 1 8 "Plastica"
  FIELD CONFPLA
END

STRING F_CODPLA 8
BEGIN
  PROMPT 13 8 ""
  FIELD CODPLA
  FLAGS "U"
  COPY USE F_CODACC
  INPUT CODTAB F_CODPLA
  COPY DISPLAY F_CODACC
  OUTPUT F_CODPLA CODTAB
  OUTPUT F_DESPLA S0
  CHECKTYPE NORMAL
  HELP "Codice spesa per contributo plastica"
  GROUP 7
  MESSAGE EMPTY ENABLE,F_CONFPLA
  MESSAGE DISABLE,F_CONFPLA|"X",F_CONFPLA
END

STRING F_DESPLA 50
BEGIN
  PROMPT 25 8 ""
  COPY USE F_DESACC
  INPUT S0 F_DESPLA
  COPY DISPLAY F_DESACC
  COPY OUTPUT F_CODPLA
  GROUP 7
END

BOOLEAN F_CONFLEG
BEGIN
  PROMPT 1 10 "Legno"
  FIELD CONFLEG
END

STRING F_CODLEG 8
BEGIN
  PROMPT 13 10 ""
  FIELD CODLEG
  FLAGS "U"
  COPY USE F_CODACC
  INPUT CODTAB F_CODLEG
  COPY DISPLAY F_CODACC
  OUTPUT F_CODLEG CODTAB
  OUTPUT F_DESLEG S0
  CHECKTYPE NORMAL
  HELP "Codice spesa per contributo legno"
  GROUP 7
  MESSAGE EMPTY ENABLE,F_CONFLEG
  MESSAGE DISABLE,F_CONFLEG|"X",F_CONFLEG
END

STRING F_DESLEG 50
BEGIN
  PROMPT 25 10 ""
  COPY USE F_DESACC
  INPUT S0 F_DESLEG
  COPY DISPLAY F_DESACC
  COPY OUTPUT F_CODLEG
  GROUP 7
END

BOOLEAN F_CONFVET
BEGIN
  PROMPT 1 12 "Vetro"
  FIELD CONFVET
END

STRING F_CODVET 8
BEGIN
  PROMPT 13 12 ""
  FIELD CODVET
  FLAGS "U"
  COPY USE F_CODACC
  INPUT CODTAB F_CODVET
  COPY DISPLAY F_CODACC
  OUTPUT F_CODVET CODTAB
  OUTPUT F_DESVET S0
  CHECKTYPE NORMAL
  HELP "Codice spesa per contributo vetro"
  GROUP 7
  MESSAGE EMPTY ENABLE,F_CONFVET
  MESSAGE DISABLE,F_CONFVET|"X",F_CONFVET
END

STRING F_DESVET 50
BEGIN
  PROMPT 25 12 ""
  COPY USE F_DESACC
  INPUT S0 F_DESVET
  COPY DISPLAY F_DESACC
  COPY OUTPUT F_CODVET
  GROUP 7
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 14 "@bStampa documenti"
END
 
TEXT DLG_NULL
BEGIN
  PROMPT 2 15 "@bMessaggio alternativo a 'CONTRIBUTO CONAI ASSOLTO'"
END
 
STRING F_DESCONAIASS 50
BEGIN
  PROMPT 2 16 ""
  FIELD DESCCONAIASS
  GROUP 7
END

BOOLEAN F_ESPONIESENTI
BEGIN
  PROMPT 2 17 "Esposizione dei clienti esenti"
  FIELD ESPONIESENTI
  GROUP 7
END

ENDPAGE
ENDMASK