Changeset 541 for cprs/branches/tmg-cprs/CPRS-Chart/Consults
- Timestamp:
- Aug 12, 2009, 7:14:16 PM (15 years ago)
- Location:
- cprs/branches/tmg-cprs/CPRS-Chart/Consults
- Files:
-
- 10 added
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
cprs/branches/tmg-cprs/CPRS-Chart/Consults/fConsult513Prt.pas
r453 r541 195 195 begin 196 196 FReportText.Lines.Assign(GetFormattedSF513(FConsult, ChartCopy)); 197 PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg );197 PrintWindowsReport(FReportText, PAGE_BREAK, Self.Caption, ErrMsg, Application); //kt 8/09, Added ',Application' 198 198 if Length(ErrMsg) > 0 then InfoBox(ErrMsg, TX_ERR_CAP, MB_OK); 199 199 end; -
cprs/branches/tmg-cprs/CPRS-Chart/Consults/fPreReq.pas
r453 r541 167 167 end; 168 168 until LastLine >= memReport.Lines.Count - 1; 169 PrintWindowsReport(memPrintReport, PAGE_BREAK, Self.Caption, ErrMsg );169 PrintWindowsReport(memPrintReport, PAGE_BREAK, Self.Caption, ErrMsg, Application); //kt 8/09, Added ',Application' 170 170 end; 171 171 finally
Note:
See TracChangeset
for help on using the changeset viewer.