diff --git a/src/fp/fp0200.cpp b/src/fp/fp0200.cpp
index ec0a5c5ef..487121ef2 100644
--- a/src/fp/fp0200.cpp
+++ b/src/fp/fp0200.cpp
@@ -92,6 +92,7 @@ bool TCC_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
 void TCC_mask::fill()
 {
 	TSheet_field&  righe = sfield(F_RIGHE);
+	righe.reset();
 	TString_array& sht = righe.rows_array();
 
 	TString query;
diff --git a/src/fp/fp0200a.h b/src/fp/fp0200a.h
index 0b551e721..de24a398f 100644
--- a/src/fp/fp0200a.h
+++ b/src/fp/fp0200a.h
@@ -7,4 +7,6 @@
 #define F_TIPOCF		201
 #define F_DACODCF		202
 #define F_ACODCF		203
-#define F_RIGHE			204
\ No newline at end of file
+#define F_DARAGSOC	204
+#define F_ARAGSOC		205
+#define F_RIGHE			206
\ No newline at end of file
diff --git a/src/fp/fp0200a.uml b/src/fp/fp0200a.uml
index e6fcbefd2..27a0b28f0 100644
--- a/src/fp/fp0200a.uml
+++ b/src/fp/fp0200a.uml
@@ -37,13 +37,26 @@ BEGIN
   DISPLAY "Codice Fiscale@16" COFI
   DISPLAY "Partita IVA@15" PAIV
   OUTPUT F_DACODCF CODCF
+  OUTPUT F_DARAGSOC RAGSOC
   CHEKTYPE NORMAL
   FLAGS ""
 END
 
+STRING F_DARAGSOC 50
+BEGIN
+  PROMPT 40 1 ""
+    KEY 2
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF F_TIPOCF SELECT
+  INPUT RAGSOC F_DARAGSOC
+  COPY DISPLAY F_DACODCF
+  COPY OUTPUT F_DACODCF
+  CHECKTYPE NORMAL
+END
+
 NUMBER F_ACODCF 6
 BEGIN
-  PROMPT 40 1 "A codice"
+  PROMPT 20 2 "A codice "
   USE LF_CLIFO
   INPUT TIPOCF F_TIPOCF SELECT
   INPUT CODCF F_ACODCF
@@ -53,10 +66,23 @@ BEGIN
   DISPLAY "Codice Fiscale@16" COFI
   DISPLAY "Partita IVA@15" PAIV
   OUTPUT F_ACODCF CODCF
+  OUTPUT F_ARAGSOC RAGSOC
   CHEKTYPE NORMAL
   FLAGS ""
 END
 
+STRING F_ARAGSOC 50
+BEGIN
+  PROMPT 40 2 ""
+    KEY 2
+  USE LF_CLIFO KEY 2
+  INPUT TIPOCF F_TIPOCF SELECT
+  INPUT RAGSOC F_ARAGSOC
+  COPY DISPLAY F_ACODCF
+  COPY OUTPUT F_ACODCF
+  CHECKTYPE NORMAL
+END
+
 
 SPREADSHEET F_RIGHE
 BEGIN