From 68e4716f9d1f497e0ad151979d66a7694f032513 Mon Sep 17 00:00:00 2001
From: villa <villa@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 16 Aug 1995 10:13:38 +0000
Subject: [PATCH] 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 +++
 ba/batbcam.h   |  6 ++++
 ba/batbcam.uml | 86 ++++++++++++++++++++++++++++++++++++++++++++++++++
 ba/prassi.mnu  |  1 +
 4 files changed, 97 insertions(+)
 create mode 100755 ba/batbcam.h
 create mode 100755 ba/batbcam.uml

diff --git a/ba/ba3100.cpp b/ba/ba3100.cpp
index a93eaaba6..42a0e664e 100755
--- a/ba/ba3100.cpp
+++ b/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;
 }
diff --git a/ba/batbcam.h b/ba/batbcam.h
new file mode 100755
index 000000000..762ba2771
--- /dev/null
+++ b/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
diff --git a/ba/batbcam.uml b/ba/batbcam.uml
new file mode 100755
index 000000000..19c81d6ee
--- /dev/null
+++ b/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
diff --git a/ba/prassi.mnu b/ba/prassi.mnu
index 9b5302dee..4f7055d22 100755
--- a/ba/prassi.mnu
+++ b/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