campo-sirio/ve/ve0200g.uml

#include "veconf.h"

TOOLBAR "" 0 20 0 2

BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END

ENDPAGE

PAGE "Distinta Base" 1 1 60 14

BOOLEAN F_EXPLODEDB
BEGIN
  PROMPT 2 2 "Esplosione distinte"
  MESSAGE FALSE CLEAR,8@
  MESSAGE TRUE ENABLE,8@
  FIELD EXPLODEDB
END

GROUPBOX DLG_NULL 78 14
BEGIN
PROMPT 1 4 "Parametri esplosione"
END

LISTBOX F_VALCOMP 15
BEGIN
  PROMPT 2 6 "Calcolo valore su    "
  ITEM " |Prodotto finito"
  ITEM "X|Componenti"
  FIELD VALCOMP
  GROUP 8
END

LISTBOX F_TIPOESPL 20
BEGIN
  PROMPT 2 8 "Tipo esplosione      "
  ITEM " |Scalare"
  ITEM "X|Materiali di base"
  FIELD TIPOESPL
  GROUP 8
END

LIST F_RAGGART 34
BEGIN
  PROMPT 2 10 "Raggruppo articoli "
  ITEM "0|Nessun raggruppamento"
  ITEM "1|Converti nell'unita' principale"
  ITEM "1|Converti nell'unita' di distinta"
  ITEM "3|Per unita' di misura"
  ITEM "4|All'unita' di misura principale"
  ITEM "5|All'unita' di misura di distinta"
  FIELD RAGGART
  GROUP 8
END

NUMBER F_LIVELLO 3
BEGIN
  PROMPT 2 12 "Livello esplosione   "
  FIELD LIVESPL
  GROUP 8
END

NUMBER F_ORDDB 3
BEGIN
  PROMPT 2 14 "Ordinamento distinta "
  USE ORD
  INPUT CODTAB F_ORDDB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_ORDDB CODTAB
  OUTPUT F_DESORDDB S0
  FIELD ORDDB
  CHECKTYPE NORMAL
  GROUP 8
END

STRING F_DESORDDB 47
BEGIN
  PROMPT 30 14 ""
  FLAGS "D"
END

BOOLEAN F_ELRORIG
BEGIN
  PROMPT 2 16 "Elimino la riga originale"
  FIELD ELRORIG
  GROUP 8
END

ENDPAGE

PAGE "Articoli" 1 1 60 14

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 2 ""
END

BOOLEAN F_CHK_USER1
BEGIN
  PROMPT 2 2 "Campo libero 1"
  MESSAGE FALSE CLEAR,11@
  MESSAGE TRUE ENABLE,11@
  FIELD CHK_USER[1]
END

STRING F_PROMPT_USER1 20
BEGIN
  PROMPT 2 3 "Prompt "
  FIELD PROMPT_USER[1]
  GROUP 11
END

LISTBOX F_TYPE_USER1 7
BEGIN
  PROMPT 30 3 "Tipo "
  ITEM "S|Stringa" MESSAGE ENABLE,F_LEN_USER1|CLEAR,F_DEC_USER1
  ITEM "N|Numero"  MESSAGE ENABLE,F_LEN_USER1|ENABLE,F_DEC_USER1
  ITEM "I|Importo" MESSAGE ENABLE,F_LEN_USER1|CLEAR,F_DEC_USER1
  ITEM "D|Data"    MESSAGE CLEAR,F_LEN_USER1|CLEAR,F_DEC_USER1
  ITEM "X|Si/no"   MESSAGE CLEAR,F_LEN_USER1|CLEAR,F_DEC_USER1
  FIELD TYPE_USER[1]
  GROUP 11
END

NUMBER F_LEN_USER1 2
BEGIN
  PROMPT 45 3 "Lunghezza "
  FIELD LEN_USER[1]
  GROUP 11
  FLAGS "U"
  NUM_EXPR (#THIS_FIELD>0)&&(#THIS_FIELD<=40)
  WARNING "La lunghezza del campo deve essere maggiore di 0 e non puo' superare 40 caratteri"
END

STRING F_DEC_USER1 2
BEGIN
  PROMPT 58 3 "Decimali "
  FIELD DEC_USER[1]
  GROUP 11
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 5 ""
END

BOOLEAN F_CHK_USER2
BEGIN
  PROMPT 2 5 "Campo libero 2"
  MESSAGE FALSE CLEAR,12@
  MESSAGE TRUE ENABLE,12@
  FIELD CHK_USER[2]
END

STRING F_PROMPT_USER2 20
BEGIN
  PROMPT 2 6 "Prompt "
  FIELD PROMPT_USER[2]
  GROUP 12
END

LISTBOX F_TYPE_USER2 7
BEGIN
  PROMPT 30 6 "Tipo "
  ITEM "S|Stringa" MESSAGE ENABLE,F_LEN_USER2|CLEAR,F_DEC_USER2
  ITEM "N|Numero"  MESSAGE ENABLE,F_LEN_USER2|ENABLE,F_DEC_USER2
  ITEM "I|Importo" MESSAGE ENABLE,F_LEN_USER2|CLEAR,F_DEC_USER2
  ITEM "D|Data"    MESSAGE CLEAR,F_LEN_USER2|CLEAR,F_DEC_USER2
  ITEM "X|Si/no"   MESSAGE CLEAR,F_LEN_USER2|CLEAR,F_DEC_USER2
  FIELD TYPE_USER[2]
  GROUP 12
END

NUMBER F_LEN_USER2 2
BEGIN
  PROMPT 45 6 "Lunghezza "
  FIELD LEN_USER[2]
  GROUP 12
  FLAGS "U"
  NUM_EXPR (#THIS_FIELD>0)&&(#THIS_FIELD<=20)
  WARNING "La lunghezza del campo deve essere maggiore di 0 e non puo' superare 20 caratteri"
END

STRING F_DEC_USER2 2
BEGIN
  PROMPT 58 6 "Decimali "
  FIELD DEC_USER[2]
  GROUP 12
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 8 ""
END

BOOLEAN F_CHK_USER3
BEGIN
  PROMPT 2 8 "Campo libero 3"
  MESSAGE FALSE CLEAR,13@
  MESSAGE TRUE ENABLE,13@
  FIELD CHK_USER[3]
END

STRING F_PROMPT_USER3 20
BEGIN
  PROMPT 2 9 "Prompt "
  FIELD PROMPT_USER[3]
  GROUP 13
END

LISTBOX F_TYPE_USER3 7
BEGIN
  PROMPT 30 9 "Tipo "
  ITEM "S|Stringa" MESSAGE ENABLE,F_LEN_USER3|CLEAR,F_DEC_USER3
  ITEM "N|Numero"  MESSAGE ENABLE,F_LEN_USER3|ENABLE,F_DEC_USER3
  ITEM "I|Importo" MESSAGE ENABLE,F_LEN_USER3|CLEAR,F_DEC_USER3
  ITEM "D|Data"    MESSAGE CLEAR,F_LEN_USER3|CLEAR,F_DEC_USER3
  ITEM "X|Si/no"   MESSAGE CLEAR,F_LEN_USER3|CLEAR,F_DEC_USER3
  FIELD TYPE_USER[3]
  GROUP 13
END

NUMBER F_LEN_USER3 2
BEGIN
  PROMPT 45 9 "Lunghezza "
  FIELD LEN_USER[3]
  GROUP 13
  FLAGS "U"
  NUM_EXPR (#THIS_FIELD>0)&&(#THIS_FIELD<=20)
  WARNING "La lunghezza del campo deve essere maggiore di 0 e non puo' superare 20 caratteri"
END

STRING F_DEC_USER3 2
BEGIN
  PROMPT 58 9 "Decimali "
  FIELD DEC_USER[3]
  GROUP 13
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 11 ""
END

BOOLEAN F_CHK_USER4
BEGIN
  PROMPT 2 11 "Campo libero 4"
  MESSAGE FALSE CLEAR,14@
  MESSAGE TRUE ENABLE,14@
  FIELD CHK_USER[4]
END

STRING F_PROMPT_USER4 20
BEGIN
  PROMPT 2 12 "Prompt "
  FIELD PROMPT_USER[4]
  GROUP 14
END

LISTBOX F_TYPE_USER4 7
BEGIN
  PROMPT 30 12 "Tipo "
  ITEM "S|Stringa" MESSAGE ENABLE,F_LEN_USER4|CLEAR,F_DEC_USER4
  ITEM "N|Numero"  MESSAGE ENABLE,F_LEN_USER4|ENABLE,F_DEC_USER4
  ITEM "I|Importo" MESSAGE ENABLE,F_LEN_USER4|CLEAR,F_DEC_USER4
  ITEM "D|Data"    MESSAGE CLEAR,F_LEN_USER4|CLEAR,F_DEC_USER4
  ITEM "X|Si/no"   MESSAGE CLEAR,F_LEN_USER4|CLEAR,F_DEC_USER4
  FIELD TYPE_USER[4]
  GROUP 14
END

NUMBER F_LEN_USER4 2
BEGIN
  PROMPT 45 12 "Lunghezza "
  FIELD LEN_USER[4]
  GROUP 14
  FLAGS "U"
  NUM_EXPR (#THIS_FIELD>0)&&(#THIS_FIELD<=20)
  WARNING "La lunghezza del campo deve essere maggiore di 0 e non puo' superare 20 caratteri"
END

STRING F_DEC_USER4 2
BEGIN
  PROMPT 58 12 "Decimali "
  FIELD DEC_USER[4]
  GROUP 14
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 14 ""
END

BOOLEAN F_CHK_USER5
BEGIN
  PROMPT 2 14 "Campo libero 5"
  MESSAGE FALSE CLEAR,15@
  MESSAGE TRUE ENABLE,15@
  FIELD CHK_USER[5]
END

STRING F_PROMPT_USER5 20
BEGIN
  PROMPT 2 15 "Prompt "
  FIELD PROMPT_USER[5]
  GROUP 15
END

LISTBOX F_TYPE_USER5 7
BEGIN
  PROMPT 30 15 "Tipo "
  ITEM "S|Stringa" MESSAGE ENABLE,F_LEN_USER5|CLEAR,F_DEC_USER5
  ITEM "N|Numero"  MESSAGE ENABLE,F_LEN_USER5|ENABLE,F_DEC_USER5
  ITEM "I|Importo" MESSAGE ENABLE,F_LEN_USER5|CLEAR,F_DEC_USER5
  ITEM "D|Data"    MESSAGE CLEAR,F_LEN_USER5|CLEAR,F_DEC_USER5
  ITEM "X|Si/no"   MESSAGE CLEAR,F_LEN_USER5|CLEAR,F_DEC_USER5
  FIELD TYPE_USER[5]
  GROUP 15
END

NUMBER F_LEN_USER5 2
BEGIN
  PROMPT 45 15 "Lunghezza "
  FIELD LEN_USER[5]
  GROUP 15
  FLAGS "U"
  NUM_EXPR (#THIS_FIELD>0)&&(#THIS_FIELD<=20)
  WARNING "La lunghezza del campo deve essere maggiore di 0 e non puo' superare 20 caratteri"
END

STRING F_DEC_USER5 2
BEGIN
  PROMPT 58 15 "Decimali "
  FIELD DEC_USER[5]
  GROUP 15
END

ENDPAGE

PAGE "Articoli" 1 1 60 14

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 2 ""
END

BOOLEAN F_CHK_USER6
BEGIN
  PROMPT 2 2 "Campo libero 6"
  MESSAGE FALSE CLEAR,16@
  MESSAGE TRUE ENABLE,16@
  FIELD CHK_USER[6]
END

STRING F_PROMPT_USER6 20
BEGIN
  PROMPT 2 3 "Prompt "
  FIELD PROMPT_USER[6]
  GROUP 16
END

LISTBOX F_TYPE_USER6 7
BEGIN
  PROMPT 30 3 "Tipo "
  ITEM "S|Stringa" MESSAGE ENABLE,F_LEN_USER6|CLEAR,F_DEC_USER6
  ITEM "N|Numero"  MESSAGE ENABLE,F_LEN_USER6|ENABLE,F_DEC_USER6
  ITEM "I|Importo" MESSAGE ENABLE,F_LEN_USER6|CLEAR,F_DEC_USER6
  ITEM "D|Data"    MESSAGE CLEAR,F_LEN_USER6|CLEAR,F_DEC_USER6
  ITEM "X|Si/no"   MESSAGE CLEAR,F_LEN_USER6|CLEAR,F_DEC_USER6
  FIELD TYPE_USER[6]
  GROUP 16
END

NUMBER F_LEN_USER6 2
BEGIN
  PROMPT 45 3 "Lunghezza "
  FIELD LEN_USER[6]
  GROUP 16
  FLAGS "U"
  NUM_EXPR (#THIS_FIELD>0)&&(#THIS_FIELD<=20)
  WARNING "La lunghezza del campo deve essere maggiore di 0 e non puo' superare 20 caratteri"
END

STRING F_DEC_USER6 2
BEGIN
  PROMPT 58 3 "Decimali "
  FIELD DEC_USER[6]
  GROUP 16
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 5 ""
END

BOOLEAN F_CHK_USER7
BEGIN
  PROMPT 2 5 "Campo libero 7"
  MESSAGE FALSE CLEAR,17@
  MESSAGE TRUE ENABLE,17@
  FIELD CHK_USER[7]
END

STRING F_PROMPT_USER7 20
BEGIN
  PROMPT 2 6 "Prompt "
  FIELD PROMPT_USER[7]
  GROUP 17
END

LISTBOX F_TYPE_USER7 7
BEGIN
  PROMPT 30 6 "Tipo "
  ITEM "S|Stringa" MESSAGE ENABLE,F_LEN_USER7|CLEAR,F_DEC_USER7
  ITEM "N|Numero"  MESSAGE ENABLE,F_LEN_USER7|ENABLE,F_DEC_USER7
  ITEM "I|Importo" MESSAGE ENABLE,F_LEN_USER7|CLEAR,F_DEC_USER7
  ITEM "D|Data"    MESSAGE CLEAR,F_LEN_USER7|CLEAR,F_DEC_USER7
  ITEM "X|Si/no"   MESSAGE CLEAR,F_LEN_USER7|CLEAR,F_DEC_USER7
  FIELD TYPE_USER[7]
  GROUP 17
END

NUMBER F_LEN_USER7 2
BEGIN
  PROMPT 45 6 "Lunghezza "
  FIELD LEN_USER[7]
  GROUP 17
  FLAGS "U"
  NUM_EXPR (#THIS_FIELD>0)&&(#THIS_FIELD<=20)
  WARNING "La lunghezza del campo deve essere maggiore di 0 e non puo' superare 20 caratteri"
END

STRING F_DEC_USER7 2
BEGIN
  PROMPT 58 6 "Decimali "
  FIELD DEC_USER[7]
  GROUP 17
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 8 ""
END

BOOLEAN F_CHK_USER8
BEGIN
  PROMPT 2 8 "Campo libero 8"
  MESSAGE FALSE CLEAR,18@
  MESSAGE TRUE ENABLE,18@
  FIELD CHK_USER[8]
END

STRING F_PROMPT_USER8 20
BEGIN
  PROMPT 2 9 "Prompt "
  FIELD PROMPT_USER[8]
  GROUP 18
END

LISTBOX F_TYPE_USER8 7
BEGIN
  PROMPT 30 9 "Tipo "
  ITEM "S|Stringa" MESSAGE ENABLE,F_LEN_USER8|CLEAR,F_DEC_USER8
  ITEM "N|Numero"  MESSAGE ENABLE,F_LEN_USER8|ENABLE,F_DEC_USER8
  ITEM "I|Importo" MESSAGE ENABLE,F_LEN_USER8|CLEAR,F_DEC_USER8
  ITEM "D|Data"    MESSAGE CLEAR,F_LEN_USER8|CLEAR,F_DEC_USER8
  ITEM "X|Si/no"   MESSAGE CLEAR,F_LEN_USER8|CLEAR,F_DEC_USER8
  FIELD TYPE_USER[8]
  GROUP 18
END

NUMBER F_LEN_USER8 2
BEGIN
  PROMPT 45 9 "Lunghezza "
  FIELD LEN_USER[8]
  GROUP 18
  FLAGS "U"
  NUM_EXPR (#THIS_FIELD>0)&&(#THIS_FIELD<=20)
  WARNING "La lunghezza del campo deve essere maggiore di 0 e non puo' superare 20 caratteri"
END

STRING F_DEC_USER8 2
BEGIN
  PROMPT 58 9 "Decimali "
  FIELD DEC_USER[8]
  GROUP 18
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 11 ""
END

BOOLEAN F_CHK_USER9
BEGIN
  PROMPT 2 11 "Campo libero 9"
  MESSAGE FALSE CLEAR,19@
  MESSAGE TRUE ENABLE,19@
  FIELD CHK_USER[9]
END

STRING F_PROMPT_USER9 20
BEGIN
  PROMPT 2 12 "Prompt "
  FIELD PROMPT_USER[9]
  GROUP 19
END

LISTBOX F_TYPE_USER9 7
BEGIN
  PROMPT 30 12 "Tipo "
  ITEM "S|Stringa" MESSAGE ENABLE,F_LEN_USER9|CLEAR,F_DEC_USER9
  ITEM "N|Numero"  MESSAGE ENABLE,F_LEN_USER9|ENABLE,F_DEC_USER9
  ITEM "I|Importo" MESSAGE ENABLE,F_LEN_USER9|CLEAR,F_DEC_USER9
  ITEM "D|Data"    MESSAGE CLEAR,F_LEN_USER9|CLEAR,F_DEC_USER9
  ITEM "X|Si/no"   MESSAGE CLEAR,F_LEN_USER9|CLEAR,F_DEC_USER9
  FIELD TYPE_USER[9]
  GROUP 19
END

NUMBER F_LEN_USER9 2
BEGIN
  PROMPT 45 12 "Lunghezza "
  FIELD LEN_USER[9]
  GROUP 19
  FLAGS "U"
  NUM_EXPR (#THIS_FIELD>0)&&(#THIS_FIELD<=20)
  WARNING "La lunghezza del campo deve essere maggiore di 0 e non puo' superare 20 caratteri"
END

STRING F_DEC_USER9 2
BEGIN
  PROMPT 58 12 "Decimali "
  FIELD DEC_USER[9]
  GROUP 19
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 14 ""
END

BOOLEAN F_CHK_USER10
BEGIN
  PROMPT 2 14 "Campo libero 10"
  MESSAGE FALSE CLEAR,20@
  MESSAGE TRUE ENABLE,20@
  FIELD CHK_USER[10]
END

STRING F_PROMPT_USER10 20
BEGIN
  PROMPT 2 15 "Prompt "
  FIELD PROMPT_USER[10]
  GROUP 20
END

LISTBOX F_TYPE_USER10 7
BEGIN
  PROMPT 30 15 "Tipo "
  ITEM "S|Stringa" MESSAGE ENABLE,F_LEN_USER10|CLEAR,F_DEC_USER10
  ITEM "N|Numero"  MESSAGE ENABLE,F_LEN_USER10|ENABLE,F_DEC_USER10
  ITEM "I|Importo" MESSAGE ENABLE,F_LEN_USER10|CLEAR,F_DEC_USER10
  ITEM "D|Data"    MESSAGE CLEAR,F_LEN_USER10|CLEAR,F_DEC_USER10
  ITEM "X|Si/no"   MESSAGE CLEAR,F_LEN_USER10|CLEAR,F_DEC_USER10
  FIELD TYPE_USER[10]
  GROUP 20
END

NUMBER F_LEN_USER10 2
BEGIN
  PROMPT 45 15 "Lunghezza "
  FIELD LEN_USER[10]
  GROUP 20
  FLAGS "U"
  NUM_EXPR (#THIS_FIELD>0)&&(#THIS_FIELD<=20)
  WARNING "La lunghezza del campo deve essere maggiore di 0 e non puo' superare 20 caratteri"
END

STRING F_DEC_USER10 2
BEGIN
  PROMPT 58 15 "Decimali "
  FIELD DEC_USER[10]
  GROUP 20
END

ENDPAGE

ENDMASK