Changeset 1679 for cprs/trunk/CPRS-Chart/fLabPrint.pas

Timestamp:

May 7, 2015, 12:34:29 PM (9 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/fLabPrint.pas (modified) (7 diffs)

cprs/trunk/CPRS-Chart/fLabPrint.pas

@@ -391 +391 @@
   aBasket := TStringList.Create;
   aBasket.Clear;
-  //frmReports.MemText.Clear;
   aHead := '';
   cnt := 2;
-  //aWPFlag := false;
   for i := 0 to uColumns.Count - 1 do
     begin
@@ -418 +416 @@
       FReportText.Lines.Add(aHead);
       FReportText.Lines.Add('-------------------------------------------------------------------------------');
-      //frmReports.memText.Lines.Add(aHead);
-      //frmReports.MemText.Lines.Add('-------------------------------------------------------------------------------');
     end;
   for i := 0 to frmLabs.lvReports.Items.Count - 1 do
@@ -434 +430 @@
             aData := x;
           end;
-        for j := 0 to RowObjects.ColumnList.Count - 1 do
+        for j := 0 to LabRowObjects.ColumnList.Count - 1 do
           begin
-            aCol := TCellObject(RowObjects.ColumnList[j]).Handle;
-            if piece(aID,':',1) = piece(TCellObject(RowObjects.ColumnList[j]).Handle,':',1) then
-              if ListItem.Caption = (piece(TCellObject(RowObjects.ColumnList[j]).Site,';',1)) then
+            aCol := TCellObject(LabRowObjects.ColumnList[j]).Handle;
+            if piece(aID,':',1) = piece(TCellObject(LabRowObjects.ColumnList[j]).Handle,':',1) then
+              if ListItem.Caption = (piece(TCellObject(LabRowObjects.ColumnList[j]).Site,';',1)) then
                 begin
                   if (piece(uColumns[StrToInt(piece(aCol,':',2))],'^',7) = '1') and
                    (not (piece(uColumns[StrToInt(piece(aCol,':',2))],'^',4) = '1')) then
                     begin
-                      FastAssign(TCellObject(RowObjects.ColumnList[j]).Data, aBasket);
+                      FastAssign(TCellObject(LabRowObjects.ColumnList[j]).Data, aBasket);
                       for k := 0 to aBasket.Count - 1 do
                         begin
@@ -453 +449 @@
                 end;
           end;
-        //frmReports.memText.Lines.Add(aData);
         FReportText.Lines.Add(aData);
         cnt := cnt + 1;
@@ -459 +454 @@
           begin
             cnt := 0;
-            //frmReports.memText.Lines.Add('**PAGE BREAK**');
             FReportText.Lines.Add('**PAGE BREAK**');
           end;
-        for j := 0 to RowObjects.ColumnList.Count - 1 do
+        for j := 0 to LabRowObjects.ColumnList.Count - 1 do
           begin
-            aCol := TCellObject(RowObjects.ColumnList[j]).Handle;
-            if piece(aID,':',1) = piece(TCellObject(RowObjects.ColumnList[j]).Handle,':',1) then
-              if ListItem.Caption = (piece(TCellObject(RowObjects.ColumnList[j]).Site,';',1)) then
+            aCol := TCellObject(LabRowObjects.ColumnList[j]).Handle;
+            if piece(aID,':',1) = piece(TCellObject(LabRowObjects.ColumnList[j]).Handle,':',1) then
+              if ListItem.Caption = (piece(TCellObject(LabRowObjects.ColumnList[j]).Site,';',1)) then
                 begin
                   if (piece(uColumns[StrToInt(piece(aCol,':',2))],'^',7) = '1') and
@@ -472 +466 @@
                     begin
                       aWPFlag := true;
-                      FastAssign(TCellObject(RowObjects.ColumnList[j]).Data, aBasket);
-                      //frmReports.MemText.Lines.Add(TCellObject(RowObjects.ColumnList[j]).Name);
-                      FReportText.Lines.Add(TCellObject(RowObjects.ColumnList[j]).Name);
+                      FastAssign(TCellObject(LabRowObjects.ColumnList[j]).Data, aBasket);
+                      FReportText.Lines.Add(TCellObject(LabRowObjects.ColumnList[j]).Name);
                       cnt := cnt + 1;
                       for k := 0 to aBasket.Count - 1 do
                         begin
-                          //frmReports.memText.Lines.Add('  ' + aBasket[k]);
-                          FReportText.Lines.Add('  ' + aBasket[k]);
+                          FReportText.Lines.Add('' + aBasket[k]);
                           cnt := cnt + 1;
                           if cnt > 40 then
                             begin
                               cnt := 0;
-                              //frmReports.memText.Lines.Add('**PAGE BREAK**');
                               FReportText.Lines.Add('**PAGE BREAK**');
                             end;
@@ -493 +484 @@
         if aWPFlag = true then
           begin
-            //frmReports.MemText.Lines.Add('===============================================================================');
             FReportText.Lines.Add('===============================================================================');
           end;