Correzioni alla tabella registri per cespiti

git-svn-id: svn://10.65.10.50/trunk@3731 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba4300.cpp

@@ -20,6 +20,8 @@
 #define FLD_SC1_CODANAGRSOH 147
 #define FLD_SC1_CODDITTA_NDITTE_RAGSOC 144
 #define FLD_UL1_CODULC 125
+#define F_CODDITTA     142
+#define F_ANNO         132
 
 const char* CODDITTA = "CODDITTA";
 const char* CODATTPREV = "CODATTPREV";
@@ -131,7 +133,7 @@ bool ba4300_handler(TMask& m, KEY k)
       fldbrowse = FLD_SC1_CODANAGRSOH;
     }
     if (k == K_F8) { appname = "ba3 -0 reg"; fld = 0;fldbrowse = 0;}
-    if (k == K_F3) { appname = "ba5 -1"; fld = 0;fldbrowse = 0;}
+    if (k == K_F3) { appname = "ba5 -1"; fld = F_CODDITTA;fldbrowse = F_ANNO;}
     if (appname.not_empty())
     {
       TString body(16);

ba/ba5200.cpp

@@ -5,6 +5,7 @@
 
 #include "batbreg.h" 
 #include "tabreg.h" 
+#include "ba5200a.h"
 
 #define REG_JOURNAL 5                
 
@@ -27,6 +28,8 @@ protected:  // TRelation_application
   virtual void init_modify_mode(TMask& m);
   virtual int rewrite(const TMask& m);
 
+  static bool codsp_handler(TMask_field& f, KEY k);
+
 public:
   bool exist_journal() {return _exist_journal;}
   
@@ -120,6 +123,7 @@ bool TRegister_app::user_create()
   
   _msk->set_handler(F_TIPO, tiporeg_handler);
   _msk->set_handler(F_PRINTER, printer_handler);
+  _msk->set_handler(F_CODSPEC, codsp_handler);
     
   TConfig st(CONFIG_STUDIO, "cg");
   _stampa_intest = st.get_bool("StiReg");
@@ -149,6 +153,31 @@ int TRegister_app::rewrite(const TMask& m)
   return TRelation_application::rewrite(m);
 }
 
+bool TRegister_app::codsp_handler(TMask_field& f, KEY k)
+{                       
+  TMask & m = f.mask();
+  if (f.to_check(k) || !m.is_running())
+  { 
+    TString16 codsp(f.get());
+    const int len = codsp.len();
+    if (len == 1 || len == 3)
+    {   
+      codsp.insert(" ");    
+      f.set(codsp);
+    }
+/*    TDate d(31, 12, m.get_int(F_ANNO));
+    
+    m.set(F_DTF, d.string());      
+    CheckType c = f.check_type();
+    f.check_type(CHECK_NORMAL);
+    const bool ok = f.check();
+    f.check_type(c);
+    return ok;      
+*/
+  }          
+  return TRUE;
+}
+
 int ba5200(int argc, char* argv[])
 {
   TRegister_app a ;

ba/ba5200a.h

@@ -60,6 +60,9 @@
 #define F_CODANST 188
 #define F_DATASTAB 189
 #define F_CODPDBST 190
+#define F_DTF  191
+#define F_DTI  192
 
 #define F_PRINTER 201
 #define F_CONFIG 202
+

ba/ba5200a.uml

@@ -11,11 +11,13 @@ PAGE "Registri" -1 -1 78 18
 NUMBER F_CODDITTA 5
 BEGIN
   PROMPT 1 1 "Ditta      "
-  FLAGS "FRDG"
   KEY 1
   FIELD CODDITTA
   USE LF_NDITTE
   INPUT CODDITTA F_CODDITTA
+  DISPLAY "Codice" CODDITTA
+  DISPLAY "Ragione sociale@50" RAGSOC
+  OUTPUT F_CODDITTA CODDITTA
   OUTPUT F_RAGSOC RAGSOC
   OUTPUT F_ATTIVITA CODATTPREV
   CHECKTYPE NORMAL
@@ -138,6 +140,20 @@ BEGIN
   GROUP 1
 END
 
+DATE F_DTI    
+BEGIN    
+  PROMPT 1 8 "Data inizio eser. "
+  FIELD DATAINES
+  GROUP 8
+END
+
+DATE F_DTF
+BEGIN  
+  PROMPT 40 8 "Data fine eser.    "
+  FIELD DATAFIES
+  GROUP 8
+END
+
 STRING F_ATTIVITA 5
 BEGIN
   PROMPT 1 9 "Codice attivita   "
@@ -159,22 +175,17 @@ END
 NUMBER F_CODGRUP 2
 BEGIN
   PROMPT 1 9 "Codice Gruppo     "
-  FLAGS "URZ"
   GROUP 8
-  USE LF_DITCB SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO) && (CBCDD==#F_CODDITTA)
-  JOIN LF_TABGR TO LF_DITCB INTO G0CGR=CBCGR
+  USE LF_TABGR
   FIELD CODGR
-  INPUT CBCGR F_CODGRUP 
-  //DISPLAY "Codice Specie" CBCSP
-  DISPLAY "Codice Gruppo" CBCGR
-  DISPLAY "Data inizio esercizio" CBDTI
-  DISPLAY "Data fine esercizio" CBDTF
+  INPUT G0CGR F_CODGRUP
+  DISPLAY "Codice Gruppo" G0CGR
   DISPLAY "Descrizione@50" LF_TABGR->G0DCT
-  OUTPUT F_CODGRUP CBCGR
-  //OUTPUT F_CODSPEC CBCSP
+  OUTPUT F_CODGRUP G0CGR
   OUTPUT F_CODGRUPDESCR LF_TABGR->G0DCT
   HELP "Codice Gruppo"
-  WARNING "Codice Gruppo non previsto per questa ditta"
+  WARNING "Codice Gruppo assente"
+  CHECKTYPE NORMAL
 END
 
 STRING F_CODGRUPDESCR 60 45
@@ -187,22 +198,28 @@ END
 STRING F_CODSPEC 4
 BEGIN
   PROMPT 1 10 "Codice Specie   "
-  FLAGS "URZ"
   GROUP 8
-  USE LF_DITCB SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO) && (CBCDD==#F_CODDITTA)
+  FLAGS "#"
+  USE LF_DITCB KEY 1 SELECT (LEFT(ANSI(CBDTF),4)==#F_ANNO)
   JOIN LF_TABAT TO LF_DITCB INTO TACGR=CBCGR TACSP=CBCSP
   FIELD CODSP 
-  INPUT CBCSP F_CODSPEC 
+  INPUT CBCDD F_CODDITTA SELECT
+  INPUT CBDTI F_DTI
+  INPUT CBDTF F_DTF 
   INPUT CBCGR F_CODGRUP
+  INPUT CBCSP F_CODSPEC
   DISPLAY "Codice Gruppo" CBCGR
   DISPLAY "Codice Specie" CBCSP
   DISPLAY "Data inizio esercizio" CBDTI
   DISPLAY "Data fine esercizio" CBDTF
   DISPLAY "Descrizione@50" LF_TABAT->TADCT
+  OUTPUT F_DTI CBDTI
+  OUTPUT F_DTF CBDTF
   OUTPUT F_CODGRUP CBCGR
   OUTPUT F_CODSPEC CBCSP
   OUTPUT F_CODSPECDESCR LF_TABAT->TADCT
   WARNING "Codice Specie non previsto per questa ditta"  
+  CHECKTYPE NORMAL
 END