campo-sirio/ve/ve0200g.uml

#include "veconf.h"

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

PAGE "Distinta Base" 0 0 0 0

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 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 18
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<=20)
  WARNING "La lunghezza del campo deve essere maggiore di 0 e non puo' superare 20 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 18
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 18
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 18
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 18
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 2" 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 18
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 18
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 18
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 18
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 18
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

PAGE "Articoli 3" 1 1 60 14

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 2 ""
END

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

STRING F_PROMPT_USER11 18
BEGIN
  PROMPT 2 3 "Prompt "
  FIELD PROMPT_USER[11]
  GROUP 21
END

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

NUMBER F_LEN_USER11 2
BEGIN
  PROMPT 45 3 "Lunghezza "
  FIELD LEN_USER[11]
  GROUP 21
  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_USER11 2
BEGIN
  PROMPT 58 3 "Decimali "
  FIELD DEC_USER[11]
  GROUP 21
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 5 ""
END

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

STRING F_PROMPT_USER12 18
BEGIN
  PROMPT 2 6 "Prompt "
  FIELD PROMPT_USER[12]
  GROUP 22
END

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

NUMBER F_LEN_USER12 2
BEGIN
  PROMPT 45 6 "Lunghezza "
  FIELD LEN_USER[12]
  GROUP 22
  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_USER12 2
BEGIN
  PROMPT 58 6 "Decimali "
  FIELD DEC_USER[12]
  GROUP 22
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 8 ""
END

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

STRING F_PROMPT_USER13 18
BEGIN
  PROMPT 2 9 "Prompt "
  FIELD PROMPT_USER[13]
  GROUP 23
END

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

NUMBER F_LEN_USER13 2
BEGIN
  PROMPT 45 9 "Lunghezza "
  FIELD LEN_USER[13]
  GROUP 23
  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_USER13 2
BEGIN
  PROMPT 58 9 "Decimali "
  FIELD DEC_USER[13]
  GROUP 23
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 11 ""
END

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

STRING F_PROMPT_USER14 18
BEGIN
  PROMPT 2 12 "Prompt "
  FIELD PROMPT_USER[14]
  GROUP 24
END

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

NUMBER F_LEN_USER14 2
BEGIN
  PROMPT 45 12 "Lunghezza "
  FIELD LEN_USER[14]
  GROUP 24
  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_USER14 2
BEGIN
  PROMPT 58 12 "Decimali "
  FIELD DEC_USER[14]
  GROUP 24
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 14 ""
END

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

STRING F_PROMPT_USER15 18
BEGIN
  PROMPT 2 15 "Prompt "
  FIELD PROMPT_USER[15]
  GROUP 25
END

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

NUMBER F_LEN_USER15 2
BEGIN
  PROMPT 45 15 "Lunghezza "
  FIELD LEN_USER[15]
  GROUP 25
  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_USER15 2
BEGIN
  PROMPT 58 15 "Decimali "
  FIELD DEC_USER[15]
  GROUP 25
END

ENDPAGE

PAGE "Articoli 4" 1 1 60 14

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 2 ""
END

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

STRING F_PROMPT_USER16 18
BEGIN
  PROMPT 2 3 "Prompt "
  FIELD PROMPT_USER[16]
  GROUP 26
END

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

NUMBER F_LEN_USER16 2
BEGIN
  PROMPT 45 3 "Lunghezza "
  FIELD LEN_USER[16]
  GROUP 26
  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_USER16 2
BEGIN
  PROMPT 58 3 "Decimali "
  FIELD DEC_USER[16]
  GROUP 26
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 5 ""
END

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

STRING F_PROMPT_USER17 18
BEGIN
  PROMPT 2 6 "Prompt "
  FIELD PROMPT_USER[17]
  GROUP 27
END

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

NUMBER F_LEN_USER17 2
BEGIN
  PROMPT 45 6 "Lunghezza "
  FIELD LEN_USER[17]
  GROUP 27
  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_USER17 2
BEGIN
  PROMPT 58 6 "Decimali "
  FIELD DEC_USER[17]
  GROUP 27
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 8 ""
END

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

STRING F_PROMPT_USER18 18
BEGIN
  PROMPT 2 9 "Prompt "
  FIELD PROMPT_USER[18]
  GROUP 28
END

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

NUMBER F_LEN_USER18 2
BEGIN
  PROMPT 45 9 "Lunghezza "
  FIELD LEN_USER[18]
  GROUP 28
  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_USER18 2
BEGIN
  PROMPT 58 9 "Decimali "
  FIELD DEC_USER[18]
  GROUP 28
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 11 ""
END

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

STRING F_PROMPT_USER19 18
BEGIN
  PROMPT 2 12 "Prompt "
  FIELD PROMPT_USER[19]
  GROUP 29
END

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

NUMBER F_LEN_USER19 2
BEGIN
  PROMPT 45 12 "Lunghezza "
  FIELD LEN_USER[19]
  GROUP 29
  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_USER19 2
BEGIN
  PROMPT 58 12 "Decimali "
  FIELD DEC_USER[19]
  GROUP 29
END

GROUPBOX DLG_NULL 78 3
BEGIN
  PROMPT 1 14 ""
END

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

STRING F_PROMPT_USER20 18
BEGIN
  PROMPT 2 15 "Prompt "
  FIELD PROMPT_USER[20]
  GROUP 30
END

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

NUMBER F_LEN_USER20 2
BEGIN
  PROMPT 45 15 "Lunghezza "
  FIELD LEN_USER[20]
  GROUP 30
  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_USER20 2
BEGIN
  PROMPT 58 15 "Decimali "
  FIELD DEC_USER[20]
  GROUP 30
END

BOOLEAN F_IVA_OBBL
BEGIN
  PROMPT 2 17 "Codice IVA obbligatorio sugli articoli"
  FIELD IVA_OBBL
END

GROUPBOX DLG_NULL 56 4
BEGIN
  PROMPT 1 18 "@bGenerazione automatica codici"
END

LIST F_GEN_EAN 2 6
BEGIN
  PROMPT 2 19 "Codice articolo    "
  ITEM "  |Nulla"
  ITEM "08|EAN 8"
  ITEM "13|EAN 13"
  FIELD GEN_EAN
END

LIST F_ALT_EAN 2 6
BEGIN
  PROMPT 2 20 "Codice alternativo "
  ITEM "  |Nulla"
  ITEM "08|EAN 8"
  ITEM "13|EAN 13"
  FIELD ALT_EAN
END

GROUPBOX DLG_NULL 20 4
BEGIN
  PROMPT 59 18 "@bPrefissi"
END
          
NUMBER F_EAN8 4 
BEGIN
  PROMPT 62 19 "EAN 8  "
  FIELD EAN8
  FLAGS "Z"
END

BOOLEAN F_EAN8CIN
BEGIN
	PROMPT 37 19 "Genera CIN EAN8"
	FIELD EAN8CIN
END
          
NUMBER F_EAN13 6
BEGIN
  PROMPT 62 20 "EAN 13 "
  FIELD EAN13
  FLAGS "Z"
END
        

ENDPAGE

ENDMASK