Changeset 793 for cprs/branches/tmg-cprs/CPRS-Chart/rCore.pas

Timestamp:

Jun 10, 2010, 3:13:12 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

update

File:

• cprs/branches/tmg-cprs/CPRS-Chart/rCore.pas (modified) (3 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/rCore.pas

@@ -217 +217 @@
 implementation
 
-uses Hash, uCore, ShlObj, Windows;
-
+uses Hash, uCore, ShlObj, Windows
+     , StrUtils; //kt added StrUtils
 var
   uFMToday: TFMDateTime;                         // Today's date in Fileman format.
@@ -230 +230 @@
 //vwpt code 4/17/0  see below
 var
-
   i:Integer;
 //end vwpt
@@ -238 +237 @@
   ///take out for i := 1 to Length(x) do if (x[i] in ['-'..'-']) then Exit;
   //end vwpt
+  Result := AnsiReplaceStr(Result,'-','');  //kt 6/9/10 -- fix when SSN passed from server with imbedded dashes
   if Length(x) > 8
     then Result := Copy(x,1,3) + '-' + Copy(x,4,2) + '-' + Copy(x,6,Length(x))