623 lines
12 KiB
Plaintext
Executable File
623 lines
12 KiB
Plaintext
Executable File
#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
|
|
|
|
LIST F_GEN_EAN 2 10
|
|
BEGIN
|
|
PROMPT 2 17 "Genera il codice articolo con "
|
|
ITEM " |Nulla" MESSAGE ENABLE,F_EAN8|ENABLE,F_EAN13
|
|
ITEM "08|EAN 8" MESSAGE ENABLE,F_EAN8|CLEAR,F_EAN13
|
|
ITEM "13|EAN 13" MESSAGE CLEAR,F_EAN8|ENABLE,F_EAN13
|
|
FIELD GEN_EAN
|
|
END
|
|
|
|
NUMBER F_EAN8 4
|
|
BEGIN
|
|
PROMPT 45 17 "Prefisso : EAN 8 "
|
|
FIELD EAN8
|
|
FLAGS "Z"
|
|
END
|
|
|
|
NUMBER F_EAN13 6
|
|
BEGIN
|
|
PROMPT 67 17 "EAN 13 "
|
|
FIELD EAN13
|
|
FLAGS "Z"
|
|
END
|
|
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|