Aggiunta gestione tabella cambi giornalieri (CAM) e relativa voce menu

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

ba/ba3100.cpp

@@ -4,6 +4,8 @@
 #include <tabutil.h>
 
 #include "batbreg.h" 
+#include "batbcam.h" 
+
 #define F_TIPODEL 133     // attenzione estratto da batbdel.h . Tenerlo aggiornato !!!!
 #define F_IMPORTO 140     // attenzione estratto da batbdel.h . Tenerlo aggiornato !!!!
 
@@ -171,6 +173,8 @@ bool TGeneric_table_app::user_create()
   }
   if (name == "%DEL")
     mask.set_handler(F_IMPORTO, impdel_handler);
+  if (name == "%CAM")
+    set_search_field(FLD_TABCAM_D0);
   
   return TRUE;
 }

ba/batbcam.h

@@ -0,0 +1,6 @@
+#define FLD_TABCAM_CODVAL 100
+#define FLD_TABCAM_S0 101
+#define FLD_TABCAM_R0 102
+#define FLD_TABCAM_S7 103
+#define FLD_TABCAM_D0 104
+#define FLD_DECSCAM_I0 105

ba/batbcam.uml

@@ -0,0 +1,86 @@
+#include "batbcam.h"
+
+TOOLBAR "" 0 20 0 2
+
+#include <toolbar.h>
+
+ENDPAGE
+
+PAGE "Cambi giornalieri" -1 -1 78 12
+
+STRING FLD_TABCAM_CODVAL 3
+BEGIN
+  PROMPT 3 1 "Cod. valuta "
+  FLAGS "UZ"     
+  KEY 1
+  FIELD %CAM->CODTAB[1,3]
+  USE %VAL KEY 1
+  INPUT CODTAB FLD_TABCAM_CODVAL
+  OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
+  DISPLAY "Codice" CODTAB
+  DISPLAY "Valuta@25" S0
+  HELP "Codice della valuta"
+  CHECKTYPE REQUIRED     
+  WARNING "Manca il codice valuta"
+END
+
+DATE 200 
+BEGIN      
+  PROMPT 30 1 ""
+  FLAGS "D"    
+  FIELD %CAM->D0
+END                  
+                  
+DATE FLD_TABCAM_D0
+BEGIN
+  PROMPT 25 1 "Data "
+  FLAGS "GR"   
+  KEY 1
+  USE %CAM KEY 1
+  FIELD  CODTAB[4,11] 
+  INPUT  CODTAB[1,3] FLD_TABCAM_CODVAL
+  INPUT  CODTAB[4,11] FLD_TABCAM_D0
+  DISPLAY "Valuta" CODTAB[1,3]
+  DISPLAY "Data@10" D0
+  DISPLAY "Descrizione@25" S0
+  DISPLAY "Cambio@15" R10
+  OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
+  OUTPUT FLD_TABCAM_D0 CODTAB[4,11]
+  OUTPUT FLD_TABCAM_S0 S0
+  CHECKTYPE REQUIRED 
+  MESSAGE COPY,200
+  WARNING "Data mancante"
+  HELP "Data dell'ultimo cambio"
+END
+
+
+STRING FLD_TABCAM_S0 50
+BEGIN
+  PROMPT 3 3 "Descrizione "
+  KEY 2
+  USE %CAM KEY 2
+  FIELD S0 
+  INPUT S0 FLD_TABCAM_S0
+  DISPLAY "Valuta" CODTAB[1,3]
+  DISPLAY "Data@10" D0
+  DISPLAY "Descrizione@25" S0
+  DISPLAY "Cambio@15" R10
+  OUTPUT FLD_TABCAM_CODVAL CODTAB[1,3]
+  OUTPUT FLD_TABCAM_D0 CODTAB[4,11]
+  OUTPUT FLD_TABCAM_S0 S0
+  OUTPUT 200 CODTAB[4,11]
+  HELP "Descrizione del cambio"
+END
+
+NUMBER FLD_TABCAM_R0 15 5
+BEGIN
+  PROMPT 3 5 "Cambio      "
+  FIELD LF_TABCOM->R10
+  PICTURE ".5"
+  FLAGS "R"
+END
+
+
+ENDPAGE
+
+ENDMASK

ba/prassi.mnu

@@ -61,6 +61,7 @@
 5|Banche|ba3 -0 %ban
 5|IV direttiva CEE|ba3 -0 %ivd
 5|Valute|ba3 -0 %val
+5|Cambi giornalieri|ba3 -0 %cam
 5|Lingue|ba3 -0 %lng
 6|Stampa tabelle studio|3
 6|Condizioni di pagamento|ba3 -1 %cpg