diff --git a/res/insoluto.bmp b/res/insoluto.bmp
new file mode 100755
index 000000000..d9ea5f1b1
Binary files /dev/null and b/res/insoluto.bmp differ
diff --git a/res/insoluto.png b/res/insoluto.png
new file mode 100755
index 000000000..d17eace0d
Binary files /dev/null and b/res/insoluto.png differ
diff --git a/res/pagamento.bmp b/res/pagamento.bmp
new file mode 100755
index 000000000..089130ba0
Binary files /dev/null and b/res/pagamento.bmp differ
diff --git a/res/pagamento.png b/res/pagamento.png
new file mode 100755
index 000000000..744664140
Binary files /dev/null and b/res/pagamento.png differ
diff --git a/ve/ve2500ac.uml b/ve/ve2500ac.uml
new file mode 100755
index 000000000..ba8e85ba5
--- /dev/null
+++ b/ve/ve2500ac.uml
@@ -0,0 +1,130 @@
+//maschera per i 'C'ontratti (parte iniziale)
+
+#include "ve2500a.h"
+
+TOOLBAR "Toolbar" 0 0 0 2
+
+#include <filebar.h>
+
+BUTTON DLG_CREA 2 2
+BEGIN
+  PROMPT 10 -1 "Cr~ea"
+  PICTURE TOOL_IMPORT
+END
+
+BUTTON DLG_COMPATTA 2 2
+BEGIN
+  PROMPT 11 -1 "Co~mpatta"
+  PICTURE TOOL_PACK
+END
+
+#include <cancelbar.h>
+
+ENDPAGE
+
+PAGE "Dati generali e Righe" 0 2 0 0
+
+LIST FA_TIPO 1 9
+BEGIN
+  PROMPT 100 100 ""
+  ITEM "C|Contratto"
+  FLAGS "D"
+  FIELD TIPO
+  KEY 1
+END
+
+GROUPBOX DLG_NULL 78 5
+BEGIN
+  PROMPT 0 0 "@bDati Contratto"
+END
+
+LIST FA_C_TIPOCF 1 10
+BEGIN
+  PROMPT 1 1 "Cli./Forn."
+  FIELD TIPOCF
+  KEY 1
+  ITEM "C|Cliente"
+  ITEM "F|Fornitore"
+END
+
+STRING FA_C_CODCF 6
+BEGIN
+  PROMPT 25 1 ""
+  FIELD CODCF
+  FLAGS "U"
+  KEY 1
+  USE LF_CLIFO
+  INPUT TIPOCF FA_C_TIPOCF SELECT
+  INPUT CODCF FA_C_CODCF
+  DISPLAY "C/F" TIPOCF
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione sociale@50" RAGSOC
+  OUTPUT FA_C_TIPOCF TIPOCF
+  OUTPUT FA_C_CODCF CODCF
+  OUTPUT FA_C_DESCF RAGSOC
+  CHECKTYPE FORCED
+END
+
+STRING FA_C_DESCF 50 41
+BEGIN
+  PROMPT 35 1 ""
+  FLAGS "D"
+END
+
+STRING FA_COD 3
+BEGIN
+  PROMPT 1 2 "Contratto "
+  FIELD COD
+  FLAGS "U"
+  KEY 1
+  USE LF_CONDV 
+  INPUT TIPO "C"
+  INPUT TIPOCF FA_C_TIPOCF SELECT
+  INPUT CODCF FA_C_CODCF SELECT
+  INPUT COD FA_COD
+  DISPLAY "CF" TIPOCF
+  DISPLAY "Cod.CF" CODCF
+  DISPLAY "Codice" COD
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Valuta" CODVAL
+  DISPLAY "Fine validita'" VALFIN
+  OUTPUT FA_C_TIPOCF TIPOCF
+  OUTPUT FA_C_CODCF CODCF
+  OUTPUT FA_COD COD
+  OUTPUT FA_DESCR DESCR
+  CHECKTYPE REQUIRED
+END
+
+STRING FA_DESCR 50
+BEGIN
+  PROMPT 18 2 ""
+  FIELD DESCR
+END
+
+BOOLEAN FA_C_OBBL
+BEGIN
+  PROMPT 62 3 "Obbligatorio"
+  FIELD OBBLIG
+END
+
+TEXT -1
+BEGIN
+  PROMPT 0 6 "@bRighe contratto"
+END
+
+//stringa farlocca per poter usare le maschere strutturate con pił .uml
+STRING FA_L_CATVEN 2
+BEGIN
+  PROMPT 0 100 ""
+  FLAGS "HD"
+END
+
+#include "ve2500ax.uml"
+
+//aggiungere qui i campi specifici dei contratti in pag.2
+
+ENDPAGE
+
+ENDMASK
+
+#include "ve2500as.uml"
diff --git a/ve/ve2500al.uml b/ve/ve2500al.uml
new file mode 100755
index 000000000..3d432fdcf
--- /dev/null
+++ b/ve/ve2500al.uml
@@ -0,0 +1,202 @@
+//maschera per i 'L'istini (parte iniziale)
+
+#include "ve2500a.h"
+
+TOOLBAR "Toolbar" 0 0 0 2
+
+#include <filebar.h>
+
+BUTTON DLG_CREA 2 2
+BEGIN
+  PROMPT 10 -1 "Cr~ea"
+  PICTURE TOOL_IMPORT
+END
+
+BUTTON DLG_COMPATTA 2 2
+BEGIN
+  PROMPT 11 -1 "Co~mpatta"
+  PICTURE TOOL_PACK
+END
+
+#include <cancelbar.h>
+
+ENDPAGE
+
+PAGE "Dati generali e Righe" 0 2 0 0
+
+LIST FA_TIPO 1 7
+BEGIN
+  PROMPT 100 100 ""
+  ITEM "L|Listino"
+  FLAGS "D"
+  FIELD TIPO
+  KEY 1
+END
+
+GROUPBOX DLG_NULL 78 5
+BEGIN
+  PROMPT 0 0 "@bDati Listino"
+END
+
+STRING FA_L_CATVEN 2
+BEGIN
+  PROMPT 1 1 "Cat. ven. "
+  FIELD CATVEN
+  FLAGS "U"
+  KEY 1
+  USE CVE
+  INPUT CODTAB FA_L_CATVEN
+  DISPLAY "Cat." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FA_L_CATVEN CODTAB
+  OUTPUT FA_L_DESVEN S0
+  CHECKTYPE FORCED
+END
+
+STRING FA_L_DESVEN 50
+BEGIN
+  PROMPT 18 1 ""
+  USE CVE KEY 2
+  INPUT S0 FA_L_DESVEN
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Cat." CODTAB
+  COPY OUTPUT FA_L_CATVEN
+  CHECKTYPE NORMAL
+END
+
+STRING FA_COD 3
+BEGIN
+  PROMPT 1 2 "Listino   "
+  FIELD COD
+  FLAGS "U"
+  KEY 1
+  USE LF_CONDV 
+  INPUT TIPO "L"
+  INPUT CATVEN FA_L_CATVEN SELECT
+  INPUT COD FA_COD
+  DISPLAY "C.V." CATVEN
+  DISPLAY "Codice" COD
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Valuta" CODVAL
+  DISPLAY "Fine validita'" VALFIN
+  OUTPUT FA_L_CATVEN CATVEN
+  OUTPUT FA_COD COD
+  OUTPUT FA_DESCR DESCR
+  CHECKTYPE REQUIRED
+END
+
+STRING FA_DESCR 50
+BEGIN
+  PROMPT 18 2 ""
+  FIELD DESCR
+END
+
+TEXT -1
+BEGIN
+  PROMPT 0 6 "@bRighe listino"
+END
+
+
+#include "ve2500ax.uml"
+
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 0 12 "@bListino successivo"
+END
+
+STRING FA_L_CODSUCC 3
+BEGIN
+  PROMPT 1 13 ""
+  FIELD CODLISSUCC
+  FLAGS "U"
+  USE LF_CONDV
+  INPUT TIPO "L"
+  INPUT CATVEN FA_L_CATVEN SELECT
+  INPUT COD FA_L_CODSUCC
+  DISPLAY "C.V." CATVEN
+  DISPLAY "Codice" COD
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT FA_L_CODSUCC COD
+  OUTPUT FA_L_DESSUCC DESCR
+  CHECKTYPE NORMAL
+END
+
+STRING FA_L_DESSUCC 50
+BEGIN
+  PROMPT 10 13 ""
+  FLAGS "D"
+END
+
+GROUPBOX DLG_NULL 78 5
+BEGIN
+  PROMPT 0 15 "@bListino padre"
+END
+
+STRING FA_L_FATHCATVEN 2
+BEGIN
+  PROMPT 1 16 "Cat. ven. "
+  FIELD FATHCATVEN
+  FLAGS "U"
+  USE CVE
+  INPUT CODTAB FA_L_FATHCATVEN
+  DISPLAY "Cat." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FA_L_FATHCATVEN CODTAB
+  OUTPUT FA_L_FATHDESVEN S0
+  CHECKTYPE NORMAL
+END
+
+STRING FA_L_FATHDESVEN 50
+BEGIN
+  PROMPT 18 16 ""
+  USE CVE KEY 2
+  INPUT S0 FA_L_FATHDESVEN
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Cat." CODTAB
+  COPY OUTPUT FA_L_FATHCATVEN
+END
+
+STRING FA_L_FATHCOD 3
+BEGIN
+  PROMPT 1 17 "Listino   "
+  FIELD FATHCOD
+  FLAGS "U"
+  USE LF_CONDV SELECT (CATVEN!=#FA_L_CATVEN)||(COD!=#FA_COD)
+  INPUT TIPO "L"
+  INPUT CATVEN FA_L_FATHCATVEN SELECT
+  INPUT COD FA_L_FATHCOD
+  DISPLAY "C.V." CATVEN
+  DISPLAY "Codice" COD
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Valuta" CODVAL
+  DISPLAY "Fine validita'" VALFIN
+  OUTPUT FA_L_FATHCATVEN CATVEN
+  OUTPUT FA_L_FATHCOD COD
+  OUTPUT FA_L_FATHDESCR DESCR
+  CHECKTYPE NORMAL
+END
+
+STRING FA_L_FATHDESCR 50
+BEGIN
+  PROMPT 18 17 ""
+  FLAGS "D"
+END
+
+STRING FA_L_ARROTONDA 8
+BEGIN
+  PROMPT 1 18 "Arrotonda "
+  FIELD ARROTONDA
+END
+
+TEXT -1
+BEGIN
+  PROMPT 21 18 "es. -0,05=per difetto ai 5 cent; +0,10=per eccesso ai 10 cent"
+END
+
+ENDPAGE
+
+ENDMASK
+
+#include "ve2500as.uml"
+
diff --git a/ve/ve2500ao.uml b/ve/ve2500ao.uml
new file mode 100755
index 000000000..47a31f0a2
--- /dev/null
+++ b/ve/ve2500ao.uml
@@ -0,0 +1,85 @@
+//maschera per i 'O'fferte (parte iniziale)
+
+#include "ve2500a.h"
+
+TOOLBAR "Toolbar" 0 0 0 2
+
+#include <filebar.h>
+
+BUTTON DLG_CREA 2 2
+BEGIN
+  PROMPT 10 -1 "Cr~ea"
+  PICTURE TOOL_IMPORT
+END
+
+BUTTON DLG_COMPATTA 2 2
+BEGIN
+  PROMPT 11 -1 "Co~mpatta"
+  PICTURE TOOL_PACK
+END
+
+#include <cancelbar.h>
+
+ENDPAGE
+
+PAGE "Dati generali e Righe" 0 2 0 0
+
+LIST FA_TIPO 1 7
+BEGIN
+  PROMPT 100 100 ""
+  ITEM "O|Offerta"
+  FLAGS "D"
+  FIELD TIPO
+  KEY 1
+END
+
+GROUPBOX DLG_NULL 78 5
+BEGIN
+  PROMPT 0 0 "@bDati Offerta"
+END
+
+STRING FA_COD 3
+BEGIN
+  PROMPT 1 2 "Offerta "
+  FIELD COD
+  FLAGS "U"
+  KEY 1
+  USE LF_CONDV 
+  INPUT TIPO "O"
+  INPUT COD FA_COD
+  DISPLAY "Codice" COD
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Valuta" CODVAL
+  DISPLAY "Fine validita'" VALFIN
+  OUTPUT FA_COD COD
+  OUTPUT FA_DESCR DESCR
+  CHECKTYPE REQUIRED
+END
+
+STRING FA_DESCR 50
+BEGIN
+  PROMPT 18 2 ""
+  FIELD DESCR
+END
+
+TEXT -1
+BEGIN
+  PROMPT 0 6 "@bRighe Offerta"
+END
+
+//stringa farlocca per poter usare le maschere strutturate con pił .uml
+STRING FA_L_CATVEN 2
+BEGIN
+  PROMPT 0 100 ""
+  FLAGS "HD"
+END
+
+#include "ve2500ax.uml"
+
+//aggiungere qui i campi specifici delle offerte in pag.2
+
+ENDPAGE
+
+ENDMASK
+
+#include "ve2500as.uml"
diff --git a/ve/ve2500as.uml b/ve/ve2500as.uml
new file mode 100755
index 000000000..ce13d6fc6
--- /dev/null
+++ b/ve/ve2500as.uml
@@ -0,0 +1,308 @@
+/////////////////////////////////////////
+//maschera di riga
+TOOLBAR "topbar" 0 0 0 2
+
+BUTTON DLG_OK 10 2
+BEGIN
+  PROMPT -13 -1 ""
+END
+
+BUTTON DLG_DELREC 10 2
+BEGIN
+  PROMPT -23 -1 ""
+END
+
+BUTTON DLG_CANCEL 10 2
+BEGIN
+  PROMPT -33 -1 ""
+END
+
+ENDPAGE
+
+PAGE "Riga listino" -1 -1 78 22
+
+LIST S_TIPORIGA 1 16
+BEGIN
+  PROMPT 1 0 "Tipo riga "
+  FIELD TIPORIGA
+  ITEM "A|Articolo"
+  MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|SHOW,1@
+  ITEM "G|Gruppo merc."
+  MESSAGE HIDE,1@|HIDE,3@|HIDE,4@|SHOW,2@
+  ITEM "S|Sottogr. merc."
+  MESSAGE HIDE,1@|HIDE,2@|HIDE,4@|SHOW,3@
+  ITEM "R|Ragg. fiscale"
+  MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|SHOW,4@
+END
+
+STRING S_CODRIGA_A 20
+BEGIN
+  PROMPT 1 1 "Articolo  "
+  FIELD CODRIGA
+  FLAGS "U"
+  USE LF_ANAMAG
+  INPUT CODART S_CODRIGA_A
+  DISPLAY "Articolo@20" CODART
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT S_CODRIGA_A CODART
+  OUTPUT S_DESRIGA_A DESCR
+  CHECKTYPE FORCED
+  ADD RUN ve2 -3
+  GROUP 1
+END
+
+STRING S_DESRIGA_A 50 39
+BEGIN
+  PROMPT 35 1 ""
+  USE LF_ANAMAG KEY 2
+  INPUT DESCR S_DESRIGA_A
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Articolo@20" CODART
+  COPY OUTPUT S_CODRIGA_A
+  CHECKTYPE NORMAL
+  ADD RUN ve2 -3
+  GROUP 1
+END
+
+STRING S_CODRIGA_G 20 3
+BEGIN
+  PROMPT 1 1 "Gr. merceologico "
+  FIELD CODRIGA
+  FLAGS "U"
+  USE GMC SELECT CODTAB[4,5] == ""
+  INPUT CODTAB[1,3] S_CODRIGA_G
+  DISPLAY "Gr. merc." CODTAB[1,3]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT S_CODRIGA_G CODTAB[1,3]
+  OUTPUT S_DESRIGA_G S0
+  CHECKTYPE FORCED
+  GROUP 2
+END
+
+STRING S_DESRIGA_G 50
+BEGIN
+  PROMPT 24 1 ""
+  USE GMC KEY 2 SELECT CODTAB[4,5] == ""
+  INPUT S0  S_DESRIGA_G
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Gr. merc." CODTAB[1,3]
+  COPY OUTPUT S_CODRIGA_G
+  CHECKTYPE NORMAL
+  GROUP 2
+END
+
+STRING S_CODRIGA_S 20 5
+BEGIN
+  PROMPT 1 1 "Sottogr. merc. "
+  FIELD CODRIGA
+  FLAGS "U"
+  USE GMC SELECT CODTAB[4,5] != ""
+  INPUT CODTAB S_CODRIGA_S
+  DISPLAY "Gruppo merc." CODTAB[1,3]
+  DISPLAY "Sottogr. merc." CODTAB[4,5]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT S_CODRIGA_S CODTAB
+  OUTPUT S_DESRIGA_S S0
+  CHECKTYPE FORCED
+  GROUP 3
+END
+
+STRING S_DESRIGA_S 50
+BEGIN
+  PROMPT 24 1 ""
+  USE GMC KEY 2 SELECT CODTAB[4,5] != "" 
+  INPUT S0 S_DESRIGA_S
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Gr. merc." CODTAB[1,3]
+  DISPLAY "Sottogr. merc." CODTAB[4,5]
+  COPY OUTPUT S_CODRIGA_S
+  CHECKTYPE NORMAL
+  GROUP 3
+END
+
+STRING S_CODRIGA_R 20 5
+BEGIN
+  PROMPT 1 1 "Raggr. fiscale "
+  FIELD CODRIGA
+  FLAGS "U"
+  USE RFA
+  INPUT CODTAB S_CODRIGA_R
+  DISPLAY "Ragg. fisc." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT S_CODRIGA_R CODTAB
+  OUTPUT S_DESRIGA_R S0
+  CHECKTYPE FORCED
+  GROUP 4
+END
+
+STRING S_DESRIGA_R 50
+BEGIN
+  PROMPT 24 1 ""
+  USE RFA KEY 2
+  INPUT S0 S_DESRIGA_R
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Ragg. fisc." CODTAB
+  COPY OUTPUT S_CODRIGA_R
+  CHECKTYPE NORMAL
+  GROUP 4
+END
+
+NUMBER S_PREZZO 18 5
+BEGIN
+  PROMPT 1 2 "Prezzo    "
+  FIELD PREZZO
+  FLAGS "U"
+  DRIVENBY -FA_CODVAL
+END
+
+STRING S_UM 2
+BEGIN
+  PROMPT 67 0 "U.M. "
+  FIELD UM
+  FLAGS "U"
+  USE LF_UMART KEY 2
+  JOIN %UMS INTO CODTAB=UM
+  INPUT CODART S_CODRIGA_A SELECT
+  INPUT UM S_UM
+  DISPLAY "U.M." UM
+  DISPLAY "Descrizione@50" %UMS->S0
+  OUTPUT S_UM UM
+  CHECKTYPE FORCED
+END
+
+GROUPBOX DLG_NULL 76 3
+BEGIN
+  PROMPT 1 3 "Scaglione"
+END
+
+NUMBER S_NSCAGL 1
+BEGIN
+  PROMPT 2 4 "Numero   "
+  FIELD NSCAGL
+  CHECKTYPE REQUIRED
+END
+
+NUMBER S_QLIM 15 5
+BEGIN
+  PROMPT 24 4 "Qta limite "
+  FIELD QLIM
+END
+
+GROUPBOX DLG_NULL 76 3
+BEGIN
+  PROMPT 1 6 "IVA"
+END
+
+BOOLEAN S_ADDIVA
+BEGIN
+  PROMPT 2 7 "Addebito"
+  FIELD ADDIVA
+END
+
+STRING S_CODIVA 4
+BEGIN
+  PROMPT 25 7 "Codice"
+  FIELD CODIVA
+  FLAGS "U"
+  USE %IVA
+  INPUT CODTAB S_CODIVA
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT S_CODIVA CODTAB
+  CHECKTYPE NORMAL
+END
+
+GROUPBOX DLG_NULL 76 8
+BEGIN
+  PROMPT 1 9 "Sconti e omaggi"
+END
+
+STRING S_SCONTO 25
+BEGIN
+  PROMPT 2 10 "Sconto/maggiorazione  "
+  FIELD SCONTO
+  FLAGS "U"
+END
+
+NUMBER S_QOM 15 5
+BEGIN
+  PROMPT 2 11 "Qta sconto/omaggio    "
+  FIELD QOM
+END
+
+NUMBER S_QBASE 15 5
+BEGIN
+  PROMPT 2 12 "Qta base sconto       "
+  FIELD QBASE
+END
+
+STRING S_CODARTOM 20
+BEGIN
+  PROMPT 2 13 "Cod. articolo omaggio "
+  FIELD CODARTOM
+  FLAGS "U"
+  USE LF_ANAMAG
+  INPUT CODART S_CODARTOM
+  DISPLAY "Articolo@20" CODART
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT S_CODARTOM CODART
+  CHECKTYPE NORMAL
+END
+
+STRING S_UMOM 2
+BEGIN
+  PROMPT 2 14 "U.M. qta omaggio      "
+  FIELD UMOM
+  FLAGS "U"
+  USE LF_UMART KEY 2
+  JOIN %UMS INTO CODTAB=UM
+  INPUT CODART S_CODARTOM SELECT
+  INPUT UM F_UMOM
+  DISPLAY "U.M." UM
+  DISPLAY "Descrizione@50" %UMS->S0
+  OUTPUT S_UMOM UM
+END
+
+NUMBER S_PROMAGGIO 18 5
+BEGIN
+  PROMPT 2 15 "Prezzo omaggio        "
+  FIELD PROMAGGIO
+  FLAGS "U"
+  DRIVENBY -FA_CODVAL
+END
+
+GROUPBOX DLG_NULL 76 5
+BEGIN
+  PROMPT 1 17 "Storico"
+END
+
+NUMBER S_PRZSTO 18 5
+BEGIN
+  PROMPT 2 18 "Prezzo storico        "
+  FIELD PRZSTO
+  FLAGS "U"
+END
+
+DATA S_DATAPRZSTO
+BEGIN
+  PROMPT 2 19 "Data prz storico      "
+  FIELD DATAPRZSTO
+END
+
+DATA S_DATAULTAUM
+BEGIN
+  PROMPT 2 20 "Data ultimo aumento   "
+  FIELD DATAULTAUM
+END
+
+NUMBER S_PERCPROVV 5 2
+BEGIN
+  PROMPT 2 22 "% provv. "
+  FIELD PERCPROVV
+  NUM_EXPR (#F_PERCPROVV>=0)&&(#F_PERCPROVV<=100)
+  WARNING "La percentuale di provvigione deve essere compresa tra 0 e 100"
+END
+
+ENDPAGE
+
+ENDMASK
diff --git a/ve/ve2500ax.uml b/ve/ve2500ax.uml
new file mode 100755
index 000000000..ab8073ed7
--- /dev/null
+++ b/ve/ve2500ax.uml
@@ -0,0 +1,337 @@
+//maschera comune a 'L'istini 'C'ontratti 'O'fferte
+
+DATA FA_VALINI
+BEGIN
+  PROMPT 1 3 "Inizio validita` "
+  FIELD VALIN
+END
+
+DATA FA_VALFIN
+BEGIN
+  PROMPT 35 3 "Fine validita` "
+  FIELD VALFIN
+END
+
+//campi di ricerca parziale sullo sheet
+//-------------------------------------
+LIST FA_TIPORIGA 1 13
+BEGIN
+  PROMPT 1 5 ""
+  FLAGS "P"
+  ITEM "A|Articolo"
+  MESSAGE HIDE,2@|HIDE,3@|HIDE,4@|SHOW,1@
+  ITEM "G|Gr. merc."
+  MESSAGE HIDE,1@|HIDE,3@|HIDE,4@|SHOW,2@
+  ITEM "S|Sotgr.merc."
+  MESSAGE HIDE,1@|HIDE,2@|HIDE,4@|SHOW,3@
+  ITEM "R|Ragg. fisc."
+  MESSAGE HIDE,1@|HIDE,2@|HIDE,3@|SHOW,4@
+END
+
+STRING FA_CODRIGA_A 20
+BEGIN
+  PROMPT 18 5 ""
+  FLAGS "U"
+  USE LF_ANAMAG
+  INPUT CODART FA_CODRIGA_A
+  DISPLAY "Articolo@20" CODART
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT FA_CODRIGA_A CODART
+  OUTPUT FA_DESRIGA_A DESCR
+  OUTPUT FA_GRMERC_A GRMERC
+  CHECKTYPE SEARCH
+  ADD RUN ve2 -3
+  GROUP 1
+END
+
+STRING FA_DESRIGA_A 50 33
+BEGIN
+  PROMPT 42 5 ""
+  USE LF_ANAMAG KEY 2
+  INPUT DESCR FA_DESRIGA_A
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Articolo@20" CODART
+  COPY OUTPUT FA_CODRIGA_A
+  CHECKTYPE SEARCH
+  ADD RUN ve2 -3
+  GROUP 1
+END
+
+STRING FA_CODRIGA_G 20 3
+BEGIN
+  PROMPT 18 5 ""
+  FLAGS "U"
+  USE GMC SELECT CODTAB[4,5] == ""
+  INPUT CODTAB[1,3] FA_CODRIGA_G
+  DISPLAY "Gr. merc." CODTAB[1,3]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FA_CODRIGA_G CODTAB[1,3]
+  OUTPUT FA_DESRIGA_G S0
+  CHECKTYPE SEARCH
+  GROUP 2
+END
+
+STRING FA_DESRIGA_G 50
+BEGIN
+  PROMPT 25 5 ""
+  USE GMC KEY 2 SELECT CODTAB[4,5] == ""
+  INPUT S0  F_DESRIGA_G
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Gr. merc." CODTAB[1,3]
+  COPY OUTPUT FA_CODRIGA_G
+  CHECKTYPE SEARCH
+  GROUP 2
+END
+
+STRING FA_CODRIGA_S 20 5
+BEGIN
+  PROMPT 18 5 ""
+  FLAGS "U"
+  USE GMC SELECT CODTAB[4,5] != ""
+  INPUT CODTAB FA_CODRIGA_S
+  DISPLAY "Gruppo merc." CODTAB[1,3]
+  DISPLAY "Sottogr. merc." CODTAB[4,5]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FA_CODRIGA_S CODTAB
+  OUTPUT FA_DESRIGA_S S0
+  CHECKTYPE SEARCH
+  GROUP 3
+END
+
+STRING FA_DESRIGA_S 50 48
+BEGIN
+  PROMPT 27 5 ""
+  USE GMC KEY 2 SELECT CODTAB[4,5] != "" 
+  INPUT S0 FA_DESRIGA_S
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Gr. merc." CODTAB[1,3]
+  DISPLAY "Sottogr. merc." CODTAB[4,5]
+  COPY OUTPUT FA_CODRIGA_S
+  CHECKTYPE SEARCH
+  GROUP 3
+END
+
+STRING FA_CODRIGA_R 20 5
+BEGIN
+  PROMPT 18 5 ""
+  FLAGS "U"
+  USE RFA
+  INPUT CODTAB FA_CODRIGA_R
+  DISPLAY "Ragg. fisc." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FA_CODRIGA_R CODTAB
+  OUTPUT FA_DESRIGA_R S0
+  CHECKTYPE SEARCH
+  GROUP 4
+END
+
+STRING FA_DESRIGA_R 50 48
+BEGIN
+  PROMPT 27 5 ""
+  USE RFA KEY 2
+  INPUT S0 FA_DESRIGA_R
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Ragg. fisc." CODTAB
+  COPY OUTPUT FA_CODRIGA_R
+  CHECKTYPE SEARCH
+  GROUP 4
+END
+
+STRING FA_GRMERC_A 5
+BEGIN
+  PROMPT 15 6 "Gr.merc. "
+  USE GMC
+  INPUT CODTAB FA_GRMERC_A
+  OUTPUT FA_DESGRMERC_A S0
+  FLAGS "DG"
+  CHECKTYPE NORMAL
+  GROUP 1 2 3
+END
+
+STRING FA_DESGRMERC_A 50 27
+BEGIN
+  PROMPT 30 6 ""
+  FLAGS "D"
+  GROUP 1 2 3
+END
+
+BUTTON DLG_GRMERC 18 1
+BEGIN
+  PROMPT 58 6 "Modifica Gr.Merc."
+  GROUP 1
+END
+
+//------------------------------------------
+
+SPREADSHEET FA_RIGHE
+BEGIN
+  PROMPT 1 7 "Righe"
+  ITEM "Tipo@4"
+  ITEM "Codice@20"
+  ITEM "Descrizione@50"
+  ITEM "Prezzo netto@18"
+  ITEM "UM"
+  ITEM "N.Scagl."
+  ITEM "Qta lim. scagl."
+  ITEM "Sconto@25"
+  ITEM "Add.IVA"
+  ITEM "Cod.IVA"
+  ITEM "Qta sconto/omag"
+  ITEM "Qta base sconto"
+  ITEM "Cod. art. omaggio@20"
+  ITEM "UM omaggio"
+  ITEM "Prezzo omaggio"
+  ITEM "Prezzo storico"
+  ITEM "Data prz.storico"
+  ITEM "Data ult.aumento"
+  ITEM "% provvigione"
+END
+
+ENDPAGE
+
+PAGE "Dati avanzati" 0 2 0 0
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 0 0 "@bGestione valuta"
+END
+
+STRING FA_CODVAL 5
+BEGIN
+  PROMPT 1 1 "Valuta "
+  FIELD CODVAL
+  FLAGS "U"
+  USE %VAL
+  INPUT CODTAB FA_CODVAL
+  DISPLAY "Valuta" CODTAB
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Cambio" S4
+  OUTPUT FA_CODVAL CODTAB
+  OUTPUT FA_CONTROEURO B1
+  OUTPUT FA_CAMBIO S4
+  CHECKTYPE NORMAL
+  MESSAGE EMPTY CLEAR,FA_CAMBIO|CLEAR,FA_DATACAM|DISABLE,FA_DATACAM
+  MESSAGE ENABLE,FA_CAMBIO|ENABLE,FA_DATACAM
+END
+
+NUMBER FA_CAMBIO 15 6
+BEGIN
+  PROMPT 17 1 "Cambio "
+  FIELD CAMBIO
+END
+
+BOOLEAN FA_CONTROEURO
+BEGIN
+  PROMPT 42 1 "Contro Euro"
+  FIELD CONTROEURO
+END
+
+DATA FA_DATACAM
+BEGIN
+  PROMPT 61 1 "Data "
+  FIELD DATACAM
+END
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 0 3 "@bScaglioni"
+END
+
+BOOLEAN FA_GESTSCAGL
+BEGIN
+  PROMPT 1 4 "Gestione scaglioni"
+  FIELD GESTSCAGL
+  MESSAGE FALSE CLEAR,FA_DECIMALI
+  MESSAGE TRUE ENABLE,FA_DECIMALI
+END
+
+LISTBOX FA_DECIMALI 7
+BEGIN
+  PROMPT 25 4 "Decimali per quantita' limite "
+  FIELD DECIMALI
+  ITEM "0|Nessuno"
+  ITEM "1|1"
+  ITEM "2|2"
+  ITEM "3|3"
+  ITEM "4|4"
+  ITEM "5|5"
+END
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 0 6 "@bSequenza ricerca"
+END
+
+LIST FA_SEQRIC_1 10
+BEGIN
+  PROMPT 1 7 ""
+  FIELD SEQRIC[1,1]
+  ITEM "A|Articoli"
+  ITEM "G|Gruppo M."
+  ITEM "S|Sottog. M."
+  ITEM "R|Ragg.fisc."
+END
+
+LIST FA_SEQRIC_2 10
+BEGIN
+  PROMPT 18 7 ""
+  FIELD SEQRIC[2,2]
+  ITEM "-|Nessuno"    MESSAGE CLEAR,5@
+  ITEM "A|Articoli"   MESSAGE ENABLE,FA_SEQRIC_3
+  ITEM "G|Gruppo M."  MESSAGE ENABLE,FA_SEQRIC_3
+  ITEM "S|Sottog. M." MESSAGE ENABLE,FA_SEQRIC_3
+  ITEM "R|Ragg.fisc." MESSAGE ENABLE,FA_SEQRIC_3
+  STR_EXPR (#THIS_FIELD=="-")||(#THIS_FIELD!=#FA_SEQRIC_1)
+  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
+END
+
+LIST FA_SEQRIC_3 10
+BEGIN
+  PROMPT 33 7 ""
+  FIELD SEQRIC[3,3]
+  ITEM "-|Nessuno"     MESSAGE CLEAR,FA_SEQRIC_4
+  ITEM "A|Articoli"    MESSAGE ENABLE,FA_SEQRIC_4
+  ITEM "G|Gruppo M."   MESSAGE ENABLE,FA_SEQRIC_4
+  ITEM "S|Sottog. M."  MESSAGE ENABLE,FA_SEQRIC_4
+  ITEM "R|Ragg.fisc."  MESSAGE ENABLE,FA_SEQRIC_4
+  GROUP 5
+  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#FA_SEQRIC_1)&&(#THIS_FIELD!=#FA_SEQRIC_2))
+  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
+END
+
+LIST FA_SEQRIC_4 10
+BEGIN
+  PROMPT 48 7 ""
+  FIELD SEQRIC[4,4]
+  ITEM "-|Nessuno"
+  ITEM "A|Articoli"
+  ITEM "G|Gruppo M."
+  ITEM "S|Sottog. M."
+  ITEM "R|Ragg.fisc."
+  GROUP 5
+  STR_EXPR (#THIS_FIELD=="-")||((#THIS_FIELD!=#FA_SEQRIC_1)&&(#THIS_FIELD!=#FA_SEQRIC_2)&&(#THIS_FIELD!=#FA_SEQRIC_3))
+  WARNING "La sequenza di ricerca deve indicare quattro tipi diversi di righe"
+END
+
+GROUPBOX DLG_NULL 78 3
+BEGIN
+  PROMPT 0 9 "@bParametri gestione"
+END
+
+BOOLEAN FA_IMPLORDI
+BEGIN
+  PROMPT 1 10 "Importi lordi"
+  FIELD IMPLORDI
+END
+
+BOOLEAN FA_GESTUM
+BEGIN
+  PROMPT 20 10 "Gestione unita` di misura"
+  FIELD GESTUM
+END
+
+BOOLEAN FA_GESTSCO
+BEGIN
+  PROMPT 50 10 "Gestione sconti/omaggi"
+  FIELD GESTSCO
+END
diff --git a/ve/ve2500bc.uml b/ve/ve2500bc.uml
new file mode 100755
index 000000000..e1d01e127
--- /dev/null
+++ b/ve/ve2500bc.uml
@@ -0,0 +1,124 @@
+#include "ve2500b.h"
+
+TOOLBAR "Toolbar" 0 0 0 2
+
+#include <stdbar.h>
+
+ENDPAGE
+
+PAGE "Creazione nuovo contratto" 0 2 0 0
+
+RADIOBUTTON FB_SELECT 76
+BEGIN
+  PROMPT 1 1 "@bTipologia di generazione"
+  ITEM "1|Copia da contratto esistente"
+  MESSAGE HIDE,2@|SHOW,1@
+  ITEM "2|Anagrafica articoli"
+  MESSAGE HIDE,1@|SHOW,2@
+END
+
+//Copia contratto esistente
+//-----------------------------------------------
+GROUPBOX DLG_NULL 76 5
+BEGIN
+  PROMPT 1 7 "@bDati contratto origine"
+  GROUP 1
+END
+
+LIST FB_C_TIPOCF 1 10
+BEGIN
+  PROMPT 2 8 "Cli./Forn."
+  FIELD TIPOCF
+  KEY 1
+  ITEM "C|Cliente"
+  ITEM "F|Fornitore"
+  GROUP 1
+END
+
+STRING FB_C_CODCF 6
+BEGIN
+  PROMPT 25 8 ""
+  FIELD CODCF
+  FLAGS "U"
+  KEY 1
+  USE LF_CLIFO
+  INPUT TIPOCF FB_C_TIPOCF SELECT
+  INPUT CODCF FB_C_CODCF
+  DISPLAY "C/F" TIPOCF
+  DISPLAY "Codice" CODCF
+  DISPLAY "Ragione sociale@50" RAGSOC
+  OUTPUT FB_C_TIPOCF TIPOCF
+  OUTPUT FB_C_CODCF CODCF
+  OUTPUT FB_C_DESCF RAGSOC
+  CHECKTYPE FORCED
+  GROUP 1
+END
+
+STRING FB_C_DESCF 50 41
+BEGIN
+  PROMPT 35 8 ""
+  FLAGS "D"
+  GROUP 1
+END
+
+//stringa farlocca per poter usare le maschere strutturate con pił .uml
+STRING FB_L_CATVEN 2
+BEGIN
+  PROMPT 0 100 ""
+  FLAGS "HD"
+  GROUP 1
+END
+//stringa farlocca...
+STRING FB_L_DESVEN 50
+BEGIN
+  PROMPT 0 100 ""
+  FLAGS "HD"
+  GROUP 1
+END
+
+
+STRING FB_COD 3
+BEGIN
+  PROMPT 2 9 "Contratto "
+  FLAGS "U"
+  KEY 1
+  USE LF_CONDV 
+  INPUT TIPO "C"
+  INPUT TIPOCF FB_C_TIPOCF SELECT
+  INPUT CODCF FB_C_CODCF SELECT
+  INPUT COD FB_COD
+  DISPLAY "C/F" TIPOCF
+  DISPLAY "Cod.CF" CODCF
+  DISPLAY "Codice" COD
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Valuta" CODVAL
+  DISPLAY "Fine validita'" VALFIN
+  OUTPUT FB_C_TIPOCF TIPOCF
+  OUTPUT FB_C_CODCF CODCF
+  OUTPUT FB_COD COD
+  OUTPUT FB_DESCR DESCR
+  CHECKTYPE REQUIRED
+  GROUP 1
+END
+
+STRING FB_DESCR 50
+BEGIN
+  PROMPT 21 9 ""
+  GROUP 1
+END
+
+NUMBER FB_RICARICO 6 2
+BEGIN
+  PROMPT 2 10 "Ricarico  "
+  GROUP 1
+END
+
+BOOLEAN FB_COPIATESTA
+BEGIN
+  PROMPT 21 10 "Copia tutti i dati di testata"
+  GROUP 1
+END
+
+#include "ve2500bx.uml"
+
+ENDMASK
diff --git a/ve/ve2500bl.uml b/ve/ve2500bl.uml
new file mode 100755
index 000000000..73e1fbd88
--- /dev/null
+++ b/ve/ve2500bl.uml
@@ -0,0 +1,97 @@
+#include "ve2500b.h"
+
+TOOLBAR "Toolbar" 0 0 0 2
+
+#include <stdbar.h>
+
+ENDPAGE
+
+PAGE "Creazione nuovo listino" 0 2 0 0
+
+RADIOBUTTON FB_SELECT 76
+BEGIN
+  PROMPT 1 1 "@bTipologia di generazione"
+  ITEM "1|Copia da listino esistente"
+  MESSAGE HIDE,2@|SHOW,1@
+  ITEM "2|Anagrafica articoli"
+  MESSAGE HIDE,1@|SHOW,2@
+END
+
+//Copia listino esistente
+//-----------------------------------------------
+GROUPBOX DLG_NULL 76 5
+BEGIN
+  PROMPT 1 7 "@bDati listino origine"
+  GROUP 1
+END
+
+STRING FB_L_CATVEN 2
+BEGIN
+  PROMPT 2 8 "Cat. vend. "
+  FIELD CATVEN
+  FLAGS "U"
+  KEY 1
+  USE CVE
+  INPUT CODTAB FB_L_CATVEN
+  DISPLAY "Cat." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FB_L_CATVEN CODTAB
+  OUTPUT FB_L_DESVEN S0
+  CHECKTYPE FORCED
+  GROUP 1
+END
+
+STRING FB_L_DESVEN 50
+BEGIN
+  PROMPT 21 8 ""
+  USE CVE KEY 2
+  INPUT S0 FB_L_DESVEN
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Cat." CODTAB
+  COPY OUTPUT FB_L_CATVEN
+  CHECKTYPE NORMAL
+  GROUP 1
+END
+
+STRING FB_COD 3
+BEGIN
+  PROMPT 2 9 "Listino    "
+  FLAGS "U"
+  KEY 1
+  USE LF_CONDV 
+  INPUT TIPO "L"
+  INPUT CATVEN FB_L_CATVEN SELECT
+  INPUT COD FB_COD
+  DISPLAY "C.V." CATVEN
+  DISPLAY "Codice" COD
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Valuta" CODVAL
+  DISPLAY "Fine validita'" VALFIN
+  OUTPUT FB_L_CATVEN CATVEN
+  OUTPUT FB_COD COD
+  OUTPUT FB_DESCR DESCR
+  CHECKTYPE REQUIRED
+  GROUP 1
+END
+
+STRING FB_DESCR 50
+BEGIN
+  PROMPT 21 9 ""
+  GROUP 1
+END
+
+NUMBER FB_RICARICO 6 2
+BEGIN
+  PROMPT 2 10 "Ricarico   "
+  GROUP 1
+END
+
+BOOLEAN FB_COPIATESTA
+BEGIN
+  PROMPT 21 10 "Copia tutti i dati di testata"
+  GROUP 1
+END
+
+#include "ve2500bx.uml"
+
+ENDMASK
diff --git a/ve/ve2500bo.uml b/ve/ve2500bo.uml
new file mode 100755
index 000000000..e7023cb07
--- /dev/null
+++ b/ve/ve2500bo.uml
@@ -0,0 +1,82 @@
+#include "ve2500b.h"
+
+TOOLBAR "Toolbar" 0 0 0 2
+
+#include <stdbar.h>
+
+ENDPAGE
+
+PAGE "Creazione nuova offerta" 0 2 0 0
+
+RADIOBUTTON FB_SELECT 76
+BEGIN
+  PROMPT 1 1 "@bTipologia di generazione"
+  ITEM "1|Copia da offerta esistente"
+  MESSAGE HIDE,2@|SHOW,1@
+  ITEM "2|Anagrafica articoli"
+  MESSAGE HIDE,1@|SHOW,2@
+END
+
+//Copia listino esistente
+//-----------------------------------------------
+GROUPBOX DLG_NULL 76 5
+BEGIN
+  PROMPT 1 7 "@bDati offerta origine"
+  GROUP 1
+END
+
+//stringa farlocca per poter usare le maschere strutturate con pił .uml
+STRING FB_L_CATVEN 2
+BEGIN
+  PROMPT 0 100 ""
+  FLAGS "HD"
+  GROUP 1
+END
+//stringa farlocca..
+STRING FB_L_DESVEN 50
+BEGIN
+  PROMPT 0 100 ""
+  USE CVE KEY 2
+  FLAGS "HD"
+  GROUP 1
+END
+
+STRING FB_COD 3
+BEGIN
+  PROMPT 2 9 "Offerta "
+  FLAGS "U"
+  KEY 1
+  USE LF_CONDV 
+  INPUT TIPO "O"
+  INPUT COD FB_COD
+  DISPLAY "Codice" COD
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Valuta" CODVAL
+  DISPLAY "Fine validita'" VALFIN
+  OUTPUT FB_COD COD
+  OUTPUT FB_DESCR DESCR
+  CHECKTYPE REQUIRED
+  GROUP 1
+END
+
+STRING FB_DESCR 50
+BEGIN
+  PROMPT 21 9 ""
+  GROUP 1
+END
+
+NUMBER FB_RICARICO 6 2
+BEGIN
+  PROMPT 2 10 "Ricarico "
+  GROUP 1
+END
+
+BOOLEAN FB_COPIATESTA
+BEGIN
+  PROMPT 21 10 "Copia tutti i dati di testata"
+  GROUP 1
+END
+
+#include "ve2500bx.uml"
+
+ENDMASK
diff --git a/ve/ve2500bx.uml b/ve/ve2500bx.uml
new file mode 100755
index 000000000..bdb807ac1
--- /dev/null
+++ b/ve/ve2500bx.uml
@@ -0,0 +1,137 @@
+#include "ve2500b.h"
+
+//Generazione da anagrafica articoli
+//-----------------------------------------------
+GROUPBOX DLG_NULL 76 6
+BEGIN
+  PROMPT 1 7 "@bAnagrafica articoli"
+  GROUP 2
+END
+
+STRING FB_DACODART 20
+BEGIN
+  PROMPT 2 8 "Da articolo "
+  FLAGS "U"
+  USE LF_ANAMAG
+  INPUT CODART FB_DACODART
+  DISPLAY "Articolo@20" CODART
+  DISPLAY "Descrizione@50" DESCR
+  OUTPUT FB_DACODART CODART
+  OUTPUT FB_DADESART DESCR
+  CHECKTYPE NORMAL
+  ADD RUN ve2 -3
+  GROUP 2
+END
+
+STRING FB_DADESART 50 35
+BEGIN
+  PROMPT 38 8 ""
+  USE LF_ANAMAG KEY 2
+  INPUT DESCR FB_DADESART
+  DISPLAY "Descrizione@50" DESCR
+  DISPLAY "Articolo@20" CODART
+  COPY OUTPUT FB_DACODART
+  CHECKTYPE NORMAL
+  ADD RUN ve2 -3
+  GROUP 2
+END
+
+STRING FB_ACODART 20
+BEGIN
+  PROMPT 2 9 "A articolo  "
+  FLAGS "U"
+  USE LF_ANAMAG
+  INPUT CODART FB_ACODART
+  COPY DISPLAY FB_DACODART
+  OUTPUT FB_ACODART CODART
+  OUTPUT FB_ADESART DESCR
+  CHECKTYPE NORMAL
+  ADD RUN ve2 -3
+  GROUP 2
+END
+
+STRING FB_ADESART 50 35
+BEGIN
+  PROMPT 38 9 ""
+  USE LF_ANAMAG KEY 2
+  INPUT DESCR FB_ADESART
+  COPY DISPLAY FB_DADESART
+  COPY OUTPUT FB_ACODART
+  CHECKTYPE NORMAL
+  ADD RUN ve2 -3
+  GROUP 2
+END
+
+STRING FB_GRMERC 3
+BEGIN
+  PROMPT 2 10 "Gr. merc.   "
+  FLAGS "U"
+  USE GMC SELECT CODTAB[4,5] == ""
+  INPUT CODTAB[1,3] FB_GRMERC
+  DISPLAY "Gruppo" CODTAB[1,3]
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FB_GRMERC CODTAB[1,3]
+  OUTPUT FB_DESGRMERC S0
+  CHECKTYPE NORMAL
+  GROUP 2
+END
+
+STRING FB_SOTGRMERC 2
+BEGIN
+  PROMPT 20 10 ""
+  FLAGS "U"
+  USE GMC 
+  COPY INPUT FB_GRMERC
+  INPUT CODTAB[4,5] FB_SOTGRMERC
+  DISPLAY "Gruppo" CODTAB[1,3]
+  DISPLAY "Sottogruppo" CODTAB[4,5]
+  DISPLAY "Descrizione@50" S0
+  COPY OUTPUT FB_GRMERC
+  OUTPUT FB_SOTGRMERC CODTAB[4,5]
+  CHECKTYPE NORMAL
+  GROUP 2
+END
+
+STRING FB_DESGRMERC 50 45
+BEGIN
+  PROMPT 28 10 ""
+  USE GMC KEY 2
+  INPUT S0 FB_DESGRMERC
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Gruppo" CODTAB[1,3]
+  DISPLAY "Sottogruppo" CODTAB[4,5]
+  COPY OUTPUT FB_SOTGRMERC
+  CHECKTYPE NORMAL
+  GROUP 2
+END
+
+STRING FB_RAGFIS 5
+BEGIN
+  PROMPT 2 11 "Raggr. fis. "
+  FLAGS "U"
+  USE RFA
+  INPUT CODTAB FB_RAGFIS
+  DISPLAY "Ragg. fisc." CODTAB
+  DISPLAY "Descrizione@50" S0
+  OUTPUT FB_RAGFIS CODTAB
+  OUTPUT FB_DESRAGFIS S0
+  CHECKTYPE NORMAL
+  GROUP 2
+END
+
+STRING FB_DESRAGFIS 50
+BEGIN
+  PROMPT 23 11 ""
+  USE RFA KEY 2
+  INPUT S0 FB_DESRAGFIS
+  DISPLAY "Descrizione@50" S0
+  DISPLAY "Ragg. fisc." CODTAB
+  COPY OUTPUT FB_RAGFIS
+  CHECKTYPE NORMAL
+  GROUP 2
+END
+
+
+ENDPAGE
+
+ENDMASK
\ No newline at end of file