Patch level : 12.0 666

Files correlati     : fp
Commento            :
Programma aggiornamento cod clifo:
- Aggiunta ricerca per rag. soc.
- Aggiunto reset sheet

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;

src/fp/fp0200a.h

@@ -7,4 +7,6 @@
 #define F_TIPOCF		201
 #define F_DACODCF		202
 #define F_ACODCF		203
-#define F_RIGHE			204
+#define F_DARAGSOC	204
+#define F_ARAGSOC		205
+#define F_RIGHE			206

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