Index: tol_tests/tol/Bugzilla/bug_001470/check.00.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001470/check.00.tol	(revision 90a07e1e51d8ba2bbe5b5db7a5f683e8a14acf17)
+++ tol_tests/tol/Bugzilla/bug_001470/check.00.tol	(revision 90a07e1e51d8ba2bbe5b5db7a5f683e8a14acf17)
@@ -0,0 +1,31 @@
+#Embed "functions.tol";
+// Almacenamiento de series y timesets en OZA
+
+Serie s1 = {
+  TimeSet AUX = WD(1);
+  CalInd(C, AUX)
+};
+
+Serie s2 = {
+  TimeSet AUX = WD(2);
+  CalInd(C, AUX)
+};
+
+Serie s3 = SubSer(s1, y2000, y2001);
+Serie s4 = SubSer(s2, y2000, y2001);
+
+// El fechado de s1 y s3 son los lunes WD(1)
+// El fechado de s2 y s4 son los martes WD(2)
+Real Ois.Store([[s1,s2,s3,s4]], "s1_4.oza");
+
+Set ok = [[
+  Real (DatingAddress(s1) != DatingAddress(s2)); // 0
+  Real (DatingAddress(s1) == DatingAddress(s3)); // 1
+  Real (DatingAddress(s1) != DatingAddress(s4)); // 0
+  Real (DatingAddress(s2) != DatingAddress(s3)); // 0
+  Real (DatingAddress(s2) == DatingAddress(s4)); // 1
+  Real (DatingAddress(s3) != DatingAddress(s4))  // 0
+]];
+
+Real ok.all = Group("And",ok);
+
Index: tol_tests/tol/Bugzilla/bug_001470/check.01.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001470/check.01.tol	(revision 90a07e1e51d8ba2bbe5b5db7a5f683e8a14acf17)
+++ tol_tests/tol/Bugzilla/bug_001470/check.01.tol	(revision 90a07e1e51d8ba2bbe5b5db7a5f683e8a14acf17)
@@ -0,0 +1,33 @@
+#Embed "functions.tol";
+
+//Forzamos el uso de los fechados almacenados en el OIS
+Real Ois.ForceStoredTimeSet := True;
+//Guardamos el número de warnings y errores antes de ejecutar
+Real numWar_0 = Copy(NWarning);
+Real numErr_0 = Copy(NError);
+//Carga del OZA
+Set series = {
+TimeSet AUX = WD(3);
+Set Ois.Load("s1_4.oza")[1]
+};
+//Guardamos el número de warnings y errores después de ejecutar
+Real numWar_1 = Copy(NWarning);
+Real numErr_1 = Copy(NError);
+//Conjunto de chequeo que debe dar todo cierto
+Set ok = [[
+  //                        WD(1) == WD(1)         
+  Real (DatingAddress(series::s1) == DatingAddress(series::s3)); 
+  //                        WD(2) == WD(2)         
+  Real (DatingAddress(series::s2) == DatingAddress(series::s4)); 
+  //                        WD(1) != WD(2)         
+  Real (DatingAddress(series::s1) != DatingAddress(series::s2)); 
+  //                        WD(1) != WD(2)         
+  Real (DatingAddress(series::s3) != DatingAddress(series::s4));
+  //No debe dar warnings 
+  Real numWar_1 == numWar_0;
+  //No debe dar errores
+  Real numErr_1 == numErr_0 
+]];
+
+Real ok.all = Group("And",ok);
+
Index: tol_tests/tol/Bugzilla/bug_001470/check.02.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001470/check.02.tol	(revision 90a07e1e51d8ba2bbe5b5db7a5f683e8a14acf17)
+++ tol_tests/tol/Bugzilla/bug_001470/check.02.tol	(revision 90a07e1e51d8ba2bbe5b5db7a5f683e8a14acf17)
@@ -0,0 +1,33 @@
+#Embed "functions.tol";
+
+//Forzamos el uso de los fechados almacenados en el OIS
+Real Ois.ForceStoredTimeSet := False;
+//Guardamos el número de warnings y errores antes de ejecutar
+Real numWar_0 = Copy(NWarning);
+Real numErr_0 = Copy(NError);
+//Carga del OZA
+Set series = {
+TimeSet AUX = WD(3);
+Set Ois.Load("s1_4.oza")[1]
+};
+//Guardamos el número de warnings y errores después de ejecutar
+Real numWar_1 = Copy(NWarning);
+Real numErr_1 = Copy(NError);
+//Conjunto de chequeo que debe dar todo cierto
+Set ok = [[
+  //                        WD(1) != WD(3)         
+  Real (DatingAddress(series::s1) != DatingAddress(series::s3)); 
+  //                        WD(2) != WD(3)         
+  Real (DatingAddress(series::s2) != DatingAddress(series::s4)); 
+  //                        WD(1) != WD(2)         
+  Real (DatingAddress(series::s1) != DatingAddress(series::s2)); 
+  //                        WD(3) == WD(3)         
+  Real (DatingAddress(series::s3) == DatingAddress(series::s4));
+  //Debe dar warnings porque ha cambiado el fechado 
+  Real numWar_1 > numWar_0 ;
+  //No debe dar errores
+  Real numErr_1 == numErr_0 
+]];
+
+Real ok.all = Group("And",ok);
+
Index: tol_tests/tol/Bugzilla/bug_001470/functions.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001470/functions.tol	(revision 90a07e1e51d8ba2bbe5b5db7a5f683e8a14acf17)
+++ tol_tests/tol/Bugzilla/bug_001470/functions.tol	(revision 90a07e1e51d8ba2bbe5b5db7a5f683e8a14acf17)
@@ -0,0 +1,5 @@
+Text DatingAddress(Serie serie) {
+//WriteLn("TRACE DatingAddress("<<Name(serie)+")");
+  GetAddressFromObject(Dating(serie))
+};
+
Index: tol_tests/tol/Bugzilla/bug_001470/test.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001470/test.tol	(revision 90a07e1e51d8ba2bbe5b5db7a5f683e8a14acf17)
+++ tol_tests/tol/Bugzilla/bug_001470/test.tol	(revision 90a07e1e51d8ba2bbe5b5db7a5f683e8a14acf17)
@@ -0,0 +1,33 @@
+/* -*- mode: C++ -*- */
+//////////////////////////////////////////////////////////////////////////////
+// FILE   : test.tol
+// PURPOSE: test for a resolved bug
+//////////////////////////////////////////////////////////////////////////////
+
+//Sets the bugzilla identifier number, your e-mail and the bugŽs summary
+Real bugNum_ =  1470;
+Text email_ = "vdebuen@tol-project.com"; 
+Text summary_="Almacenamiento de series y fechados en OZA";
+Text link_ = GetTolBugzillaLink(bugNum_);
+
+Set check.00 = { Include("check.00.tol") };
+Set check.01 = { Include("check.01.tol") };
+Set check.02 = { Include("check.02.tol") };
+
+
+Set partialResults_ = check.00::ok << check.01::ok << check.02::ok;
+
+//This is a messure of the success of the test 
+Real quality_ = And(check.00::ok.all,check.01::ok.all,check.02::ok.all);
+
+//Return the results 
+Set resultStr_ =
+  @strTestStatus(summary_, link_, quality_,
+                 "Partial results = "<<partialResults_,
+                 "NO DBServerType", "NO DBServerHost", "NO DBAlias",
+                 email_);
+WriteLn(""<<resultStr_);
+resultStr_;
+
+/* */
+