Index: tol_tests/tol/Bugzilla/bug_001662/GPu_ConTot_ModTer_Dia_20130227_1652.bdt
===================================================================
--- tol_tests/tol/Bugzilla/bug_001662/GPu_ConTot_ModTer_Dia_20130227_1652.bdt	(revision e8646f95323a302798c6fe0b8ef11ef54bd33da6)
+++ tol_tests/tol/Bugzilla/bug_001662/GPu_ConTot_ModTer_Dia_20130227_1652.bdt	(revision e8646f95323a302798c6fe0b8ef11ef54bd33da6)
@@ -0,0 +1,13 @@
+Diario;CLC_MetOri.ConTot.Ser.Uni_UMAModMAt.Dir.Fusion_SegXXX_PlaXXX_FecDia_GeoDTe.Cen_RTL20121003.00000000;
+2012/10/03;1753524129;
+2012/10/04;4955323466;
+2012/10/05;4543322840;
+2012/10/06;4660912701;
+2012/10/07;426168085;
+2012/10/08;4509931716;
+2012/10/09;2800331607;
+2012/10/10;1867132858;
+2012/10/11;5665134015;
+2012/10/12;5027415067;
+2012/10/13;4380415636;
+2012/10/14;2434410651;
Index: tol_tests/tol/Bugzilla/bug_001662/test.tol
===================================================================
--- tol_tests/tol/Bugzilla/bug_001662/test.tol	(revision e8646f95323a302798c6fe0b8ef11ef54bd33da6)
+++ tol_tests/tol/Bugzilla/bug_001662/test.tol	(revision e8646f95323a302798c6fe0b8ef11ef54bd33da6)
@@ -0,0 +1,30 @@
+//////////////////////////////////////////////////////////////////////////////
+// FILE   : test.tol
+// PURPOSE: test for a fixed bug
+//////////////////////////////////////////////////////////////////////////////
+
+//Sets the bugzilla identifier number, your e-mail and the bugŽs summary 
+  Real bugNum_ = 1662;
+  Text email_ = "vdebuen@tol-project.org"; 
+  Text summary_ = "Columnas con Nombre largo en fichero BDT";
+  Text link_ = GetTolBugzillaLink(bugNum_);
+
+//Write here the initial test TOL code if needed
+  Real numErr0 = Copy(NError);
+
+  Set aux = Include("GPu_ConTot_ModTer_Dia_20130227_1652.bdt");
+
+  Real numErr1 = Copy(NError);
+
+  Set partialResults_ = [[ numErr0, numErr1  ]];
+
+//This is a messure of the success of the test 
+Real quality_ = Group("And", [[EQ(numErr1, numErr0),EQ(Card(aux)==1)]] );
+
+//Return the results 
+  Set resultStr_ = @strTestStatus(summary_, link_, quality_,
+                    "Partial results = "<<partialResults_,
+                    "NO DBServerType", "NO DBServerHost", "NO DBAlias",
+                    email_);
+  WriteLn(""<<resultStr_);
+  resultStr_