Patch level : 12.0 410

Files correlati     : ba
Commento            : 
Serie di aggiornamenti in preparazione al modulo TF:
- La tabella Stati CEE adesso comprende anche gli Extra CEE
- Aggiunta Natura nei codici IVA anche per il modulo TF
- Aggiunta gestione in anagrafica dei Rappresentanti Fiscali o Stabili Organizzazioni

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

src/ba/ba4300.cpp

@@ -61,6 +61,8 @@ protected:
   void set_att_prev(const TMask& m);
 
   static bool email_handler(TMask_field& f, KEY k);
+	// Handler RF/SO
+	static bool rfso_handler(TMask_field& f, KEY k);
 
 public:
   TDitte_application();
@@ -172,6 +174,36 @@ bool TDitte_application::email_handler(TMask_field& f, KEY k)
   return TRUE;
 }
 
+bool TDitte_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;
+}
+
 bool TDitte_application::user_create() // initvar e arrmask
 {
   open_files(LF_NDITTE, LF_ANAG, LF_UNLOC, LF_ATTIV, LF_TABCOM, 0);
@@ -180,6 +212,7 @@ bool TDitte_application::user_create() // initvar e arrmask
   _msk = new TMask("ba4300a") ;
   _msk->set_handler(ba4300_handler);
   _msk->set_handler(DLG_EMAIL, email_handler);
+	_msk->set_handler(LST_TIPO_RFSO, rfso_handler);
 
 
   set_search_field(FLD_GD1_CODDITTA);

src/ba/ba4300.h

@@ -70,6 +70,9 @@
 #define FLD_DE_DENEST1											129
 #define FLD_DE_DENEST2											130
 #define FLD_DE_DENEST3											131
+#define LST_TIPO_RFSO												500	// Aggiunti 2017
+#define	F_COD_RFSO_G												501	// Aggiunti 2017
+#define F_COD_RFSO_F												502	// Aggiunti 2017
 #define FLD_GD2_RAPPR												132
 #define FLD_GD2_RAPPR_ANAGR_RAGSOC					133
 #define FLD_GD2_CARRAPP											134

src/ba/ba4300a.uml

@@ -813,6 +813,49 @@ BEGIN
   HELP "Denominazione estesa della ditta"
 END
 
+LIST LST_TIPO_RFSO 10
+BEGIN
+  HELP "Indicare se è un rappresentante o stabile organizzativo è una persona fisica o giuridica"
+  PROMPT 3 18 "Tipo RF/SO: "   
+  FIELD CODRFSO[1,1]
+  ITEM "|"
+  ITEM "G|Giuridico"
+  ITEM "F|Fisico"
+END
+
+STRING F_COD_RFSO_G 5
+BEGIN
+  PROMPT 30 18 "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 18 "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
+
 ENDPAGE
 
 PAGE "Pag. 5" -1 -1 77 18

src/ba/batbiva.h

@@ -23,4 +23,4 @@
 #define CHK_SERVIZI	   124
 #define FLD_DESCR_I1   125
 #define FLD_INDET_S4   126
-#define FLD_NATURAPA   127
+#define FLD_NATURA     127

src/ba/batbiva.uml

@@ -305,11 +305,11 @@ BEGIN
   FIELD B3
 END
 
-LIST FLD_NATURAPA 2 40
+LIST FLD_NATURA 2 40
 BEGIN
-PROMPT 3 19 "Natura per fatture PA"
+PROMPT 3 19 "Natura: "
 FIELD S12
-HELP "Indicare la natura del codice IVA per le fatture PA"
+HELP "Indicare la natura del codice IVA per le fatture PA/TF"
 ITEM "|IVA ordinaria"
 ITEM "N1|N1 - IVA esclusa ex art 15"
 ITEM "N2|N2 - IVA non soggetta"
@@ -318,7 +318,6 @@ ITEM "N4|N4 - IVA esente"
 ITEM "N5|N5 - IVA in regime del margine"
 ITEM "N6|N6 - IVA in reverse charge"
 ITEM "N7|N7 - IVA assolta in altro stato U3"
-MODULE PA
 END
 
 BOOLEAN FLD_SOSPESO_B2

src/ba/batbsce.h

@@ -1,2 +1,3 @@
 #define F_CODICE  101
 #define F_DESCR   102
+#define F_STATOEU 103

src/ba/batbsce.uml

@@ -4,11 +4,11 @@ TOOLBAR "topbar" 0 0 0 2
 #include <relapbar.h>
 ENDPAGE
 
-PAGE "Stati CEE" -1 -1 78 18
+PAGE "Stati ISO" -1 -1 78 18
 
 GROUPBOX DLG_NULL 78 7
 BEGIN
-  PROMPT 1 1 "@bStati CEE"
+  PROMPT 1 1 "@bStati ISO"
 END
 
 STRING F_CODICE 2
@@ -21,6 +21,7 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   OUTPUT F_CODICE CODTAB
   OUTPUT F_DESCR S0
+  OUTPUT F_STATOEU B0
   CHECKTYPE REQUIRED
   FIELD CODTAB
   KEY 1
@@ -34,11 +35,18 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   DISPLAY "Codice@8" CODTAB
   COPY OUTPUT F_CODICE
+  OUTPUT F_STATOEU B0
   CHECKTYPE REQUIRED
   FIELD S0
   KEY 2
 END
 
+BOOLEAN F_STATOEU
+BEGIN
+  PROMPT 20 3 "Stato EU"
+  FIELD B0
+END
+
 ENDPAGE
 
 ENDMASK