Patch level : 12.0 330

Files correlati     : cg2.exe
Commento            : Aggiunta all'anagrafica clienti/fornitori la possibilità di scegliere un rappresentante fiscale dopo averlo impostato su ANAGR

git-svn-id: svn://10.65.10.50/branches/R_10_00@23516 c028cbd2-c16b-5b4b-a496-9718f37d4682

src/cg/cg0200.cpp

@@ -81,6 +81,9 @@ protected:
   static bool comi_handler(TMask_field& f, KEY k);
   virtual bool has_filtered_cursor() const { return true;}
 
+	// Handler RF/SO
+	static bool rfso_handler(TMask_field& f, KEY k);
+
 public:
   virtual bool get_next_key(TToken_string& key);
   // @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata
@@ -530,6 +533,36 @@ bool TClifo_application::comi_handler(TMask_field& f, KEY k)
   return true;
 }
 
+bool TClifo_application::rfso_handler(TMask_field& f, KEY key)
+{
+	if(f.get() == "G")
+	{
+		f.mask().show(F_COD_RFSO_G);
+		f.mask().enable(F_COD_RFSO_G);
+		f.mask().set(F_COD_RFSO_F, "");
+		f.mask().hide(F_COD_RFSO_F);
+		f.mask().disable(F_COD_RFSO_F);
+	}
+	else if(f.get() == "F")
+	{
+		f.mask().show(F_COD_RFSO_F);
+		f.mask().enable(F_COD_RFSO_F);
+		f.mask().set(F_COD_RFSO_G, "");
+		f.mask().hide(F_COD_RFSO_G);
+		f.mask().disable(F_COD_RFSO_G);
+	}
+	else
+	{
+		f.mask().set(F_COD_RFSO_F, "");
+		f.mask().set(F_COD_RFSO_G, "");
+		f.mask().hide(F_COD_RFSO_F);
+		f.mask().hide(F_COD_RFSO_G);
+		f.mask().disable(F_COD_RFSO_F);
+		f.mask().disable(F_COD_RFSO_G);
+	}
+	return true;
+}
+
 HIDDEN bool alleg_handler(TMask_field& f, KEY key)
 { 
   if (f.to_check(key, true))
@@ -1523,6 +1556,7 @@ bool TClifo_application::user_create() // initvar e arrmask
   _msk->set_handler(DLG_EMAIL, email_handler);
   _msk->set_handler(F_RAGSOC, rsoc_handler);
   _msk->set_handler(DLG_CONTRLAV, contrlav_handler);
+	_msk->set_handler(LST_TIPO_RFSO, rfso_handler);
 	  
   TSheet_field& ind = _msk->sfield(F_SHEET_G_VEN);
   ind.set_notify(indsp_notify);

src/cg/cg0200.h

@@ -48,6 +48,9 @@
 #define F_CODAG												145
 #define F_SOSPESO											146
 #define F_CODALLEG										148
+#define LST_TIPO_RFSO									500
+#define	F_COD_RFSO_G									501
+#define F_COD_RFSO_F									502
 #define F_OCCASIONALE                 149
 #define F_DENCOMCF                    150
 #define F_PROVCF                      152

src/cg/cg0200a.uml

@@ -357,16 +357,59 @@ BEGIN
   FIELD SPLITPAY
 END
 
+LIST LST_TIPO_RFSO 10
+BEGIN
+  HELP "Indicare se è un rappresentante o stabile organizzativo è una persona fisica o giuridica"
+  PROMPT 2 16 "Tipo RF/SO: "   
+  FIELD CODRFSO[1,1]
+  ITEM "|"
+  ITEM "G|Giuridico"
+  ITEM "F|Fisico"
+END
+
+STRING F_COD_RFSO_G 5
+BEGIN
+  PROMPT 30 16 "Codice RF/SO:"
+  FIELD CODRFSO[2,]
+  USE LF_ANAG SELECT TIPORFSO!=""
+  INPUT TIPOA "G" 
+  INPUT CODANAGR F_COD_RFSO_G
+  DISPLAY "Codice" CODANAGR
+  DISPLAY "Ragione sociale@50" RAGSOC
+  DISPLAY "Codice Fiscale@16" COFI
+  OUTPUT F_COD_RFSO_G CODANAGR
+  MESSAGE COPY,1@
+  CHECKTYPE REQUIRED
+  FLAGS "H"
+END
+
+STRING F_COD_RFSO_F 5
+BEGIN
+  PROMPT 30 16 "Codice RF/SO:"
+  FIELD CODRFSO[2,]
+  USE LF_ANAG SELECT TIPORFSO!=""
+  INPUT TIPOA "F"
+  INPUT CODANAGR F_COD_RFSO_F
+  DISPLAY "Codice" CODANAGR
+  DISPLAY "Cognome@30" RAGSOC[1,30]
+  DISPLAY "Nome@20" RAGSOC[31,0]
+  DISPLAY "Codice Fiscale@16" COFI
+  OUTPUT F_COD_RFSO_F CODANAGR
+  MESSAGE COPY,1@
+  CHECKTYPE REQUIRED
+  FLAGS "H"
+END
+
 BOOLEAN F_OCCASIONALE
 BEGIN
-PROMPT 2 16 "Occasionale "
+PROMPT 2 17 "Occasionale "
 FIELD OCCAS
 HELP "Indicare se si tratta di un C/F occasionale"
 END
 
 BOOLEAN F_SOSPESO
 BEGIN
-  PROMPT 32 16 "Sospeso "
+  PROMPT 32 17 "Sospeso "
   FIELD SOSPESO
   HELP "Indicare se il C/F e' movimentato ma non piu' utilizzabile"
 END