Changeset 735 for cprs/branches/tmg-cprs/CPRS-Chart/Templates/uTemplateFields.pas

Timestamp:

Apr 9, 2010, 9:13:04 AM (14 years ago)

Author:

Kevin Toppenberg

Message:

Template formulas will calculate even if responses have characters, bug fixes

File:

• cprs/branches/tmg-cprs/CPRS-Chart/Templates/uTemplateFields.pas (modified) (5 diffs)

cprs/branches/tmg-cprs/CPRS-Chart/Templates/uTemplateFields.pas

@@ -198 +198 @@
 function StripEmbedded(iItems: string): string;
 function CloseCharPos(OpenChar, CloseChar : char; var Txt : string; StartingPos : integer=1) : integer; //kt added
+function FormatFormula(test: string): string;  //elh  04/09/10
 
 type
@@ -549 +550 @@
     //p2 := PosEx(FN_END_TAG,Txt,p1);
     p2 := CloseCharPos(FN_BEGIN_TAG, FN_END_TAG, Txt, p1);
-    SubStrB := MidStr(Txt,p2+1,999);
+    SubStrB := MidStr(Txt,p2+1,99999);    //Changed from 999 to 99999. Some characters were getting lost including the dialog tags that trigger the dialog box   elh  04/08/10
     FnStr := MidStr(Txt,p1, (p2-p1));
     FnStr := AnsiReplaceText(FnStr,#9,'');
@@ -647 +648 @@
     FldName := NameToObjID.Strings[i];
     for j := 0 to i do begin
-      if NameToObjID.Strings[i] = FldName then inc(CountofSimilar);
+      if NameToObjID.Strings[j] = FldName then inc(CountofSimilar);     //Changed from i to j  elh  04/08/10
     end;
     CountOfSimStr := IntToStr(CountofSimilar);
@@ -1123 +1124 @@
           FnObjStr := FN_OBJ_TAG + FnObjStr + ']';
         end;
+        FnObjStr := FormatFormula(FnObjStr);  //Added to remove all characters from the formula  elh  4/9/10
         if (Pos(FN_OBJ_TAG,FnObjStr)>0) then begin
           EvalTIUObjects(FnObjStr);
@@ -3021 +3023 @@
 end;
 
+function FormatFormula(test: string): string;
+var
+   test2: string;
+   i: integer;
+begin
+   for i := 1 to length(test) do begin
+      if test[i] in ['0'..'9','+','-','*','/','(',')','^'] then begin
+         test2 := test2 + test[i];
+      end;
+   end;
+   Result := test2;
+end;
+
 initialization