Changeset 671 for cprs/branches/tmg-cprs/CPRS-Chart/fNotePrt.pas

Timestamp:

Jan 19, 2010, 1:26:10 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Fixed HTML Note Printing Error

File:

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

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

@@ -216 +216 @@
 
   if cboDevice.ItemID = '' then
+  begin
+    InfoBox(TX_NODEVICE, TX_NODEVICE_CAP, MB_OK);
+    Exit;
+  end;
+  if radChartCopy.Checked then ChartCopy := True else ChartCopy := False;
+  if Piece(cboDevice.ItemID, ';', 1) = 'WIN' then
+(*
+    //begin original block of code from before 5-24-05  
+    //----------------------------------------------
+    begin
+      if dlgWinPrinter.Execute then with FReportText do
+        begin
+          Lines.Assign(GetFormattedNote(FNote, ChartCopy));
+          PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg);
+          if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
+        end;
+    end
+    //end original unmodified block of code //kt 5-24-05
+    //--------------------------------------------------
+*)
+    //begin modified block of code //kt 5-31-05
+    //----------------------------------------------
+    begin
+      TempLines := TStringList.Create;
+      TempLines.Assign(GetFormattedNote(FNote, ChartCopy));
+      if rHTMLTools.IsHTML(TempLines) = false then begin
+        //NOTE: If HTML, then bypass this printer dialog, because it will be
+        //      replaced by a printer dialog that internet explorer uses.
+        if dlgWinPrinter.Execute then begin 
+          FReportText.Lines.Assign(TempLines);
+          PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg,Application);
+        end;  
+      end else begin 
+        LoadDocumentText(TempLines, FNote);  //Get document without headers/footers          
+        PrintHTMLReport(TempLines, ErrMsg, Patient.Name,
+                        FormatFMDateTime('mm/dd/yyyy', Patient.DOB),
+                        rHTMLtools.ExtractDateOfNote(TempLines), // date for report.
+                        Patient.WardService, Application);   
+      end;
+      TempLines.Free;
+      if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
+    end
+    //end modified block of code //kt 5-31-05
+    //----------------------------------------------
+  else
+    begin
+      ADevice := Piece(cboDevice.ItemID, ';', 2);
+      PrintNoteToDevice(FNote, ADevice, ChartCopy, ErrMsg);
+      if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
+
+{*   Original Block of Code    //elh  1/19/10
      begin
      InfoBox(TX_NODEVICE, TX_NODEVICE_CAP, MB_OK);
@@ -245 +296 @@
         LoadDocumentText(TempLines, FNote);  //Get document without headers/footers      //kt 8/09
         PrintHTMLReport(TempLines, ErrMsg, Patient.Name,                        //kt 8/09
-                        FormatFMDateTime('mm/dd/yyyy', Patient.DOB),            //kt 8/09
+                        FormatFMDateTime('mm/dd/yyyy', Patient.DOB),' ',        //kt 8/09
                         Patient.WardService, Application);                      //kt 8/09
       end;                                                                      //kt 8/09
@@ -257 +308 @@
     if Length(ErrMsg) > 0 then
         InfoBox(ErrMsg, TX_ERR_CAP, MB_OK);
+*}   // End of original block of code   //elh 1/19/10
     end;