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

Timestamp:

Jun 16, 2010, 8:23:07 PM (15 years ago)

Author:

Kevin Toppenberg

Message:

Bug fixes. Improved Adding Image

File:

• cprs/branches/tmg-cprs/CPRS-Chart/rCore.pas (modified) (1 diff)

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

@@ -238 +238 @@
   //end vwpt
   Result := AnsiReplaceStr(Result,'-','');  //kt 6/9/10 -- fix when SSN passed from server with imbedded dashes
+  //kt start mod
+  if Length(Result) = 8 then begin
+    Result := Copy(Result,1,3) + '-' + Copy(Result,4,2) + '-' + Copy(Result,6,Length(Result))
+  end;
+  //kt end mod
+  { //kt original block below
   if Length(x) > 8
     then Result := Copy(x,1,3) + '-' + Copy(x,4,2) + '-' + Copy(x,6,Length(x))
     else Result := x;
+  }
 end;