Changeset 830 for cprs/trunk/CPRS-Chart/fDCSumm.pas

Timestamp:

Jul 7, 2010, 4:51:54 PM (14 years ago)

Author:

Kevin Toppenberg

Message:

Upgrading to version 27

File:

• cprs/trunk/CPRS-Chart/fDCSumm.pas (modified) (20 diffs)

cprs/trunk/CPRS-Chart/fDCSumm.pas

@@ -7 +7 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   fHSplit, StdCtrls, ExtCtrls, Menus, ComCtrls, ORCtrls, ORFn, uConst, ORDtTm,
-  uPCE, ORClasses, fDrawers, rDCSumm, uDocTree, uDCSumm, uTIU, fPrintList;
+  uPCE, ORClasses, fDrawers, rDCSumm, uDocTree, uDCSumm, uTIU, fPrintList,
+  VA508AccessibilityManager, fBase508Form, VA508ImageListLabeler;
 
 type
@@ -144 +145 @@
     mnuViewRemoteData: TMenuItem;
     mnuViewPostings: TMenuItem;
+    imgLblNotes: TVA508ImageListLabeler;
+    imgLblImages: TVA508ImageListLabeler;
     procedure mnuChartTabClick(Sender: TObject);
     procedure lstSummsClick(Sender: TObject);
@@ -219 +222 @@
     procedure popSummMemoPreviewClick(Sender: TObject);
     procedure popSummMemoInsTemplateClick(Sender: TObject);
-    procedure tvSummsAddition(Sender: TObject; Node: TTreeNode);
-    procedure tvSummsDeletion(Sender: TObject; Node: TTreeNode);
     procedure ViewInfo(Sender: TObject);
     procedure mnuViewInformationClick(Sender: TObject);
@@ -273 +274 @@
     procedure DisplayPage; override;
     procedure RequestPrint; override;
-    procedure RequestMultiplePrint(AForm: TfrmPrintList); 
+    procedure RequestMultiplePrint(AForm: TfrmPrintList);
     procedure SetFontSize(NewFontSize: Integer); override;
     procedure SaveSignItem(const ItemID, ESCode: string);
@@ -292 +293 @@
      fTemplateEditor, rTIU, fDCSummProps, fNotesBP, fTemplateFieldEditor, uTemplates,
      fReminderDialog, dShared, rTemplates, fIconLegend, fNoteIDParents,
-      uAccessibleTreeView, uAccessibleTreeNode, fTemplateDialog;
+     fTemplateDialog, uVA508CPRSCompatibility, VA508AccessibilityRouter;
 
 const
@@ -539 +540 @@
 end;
 
+{for printing multiple notes}
 procedure TfrmDCSumm.RequestMultiplePrint(AForm: TfrmPrintList);
 var
@@ -545 +547 @@
 begin
   with AForm.lbIDParents do
-  begin
-    for i := 0 to Items.Count - 1 do
-     begin
-       if Selected[i] then
-        begin
-         NoteIEN := StrToInt64def(Piece(TStringList(Items.Objects[i])[0],U,1),0);
-         if NoteIEN > 0 then PrintNote(NoteIEN, MakeDCSummDisplayText(TStringList(Items.Objects[i])[0]), TRUE) else
-          begin
-            if ItemIEN = 0 then InfoBox(TX_NO_NOTE, TX_NOSUMM_CAP, MB_OK);
-            if ItemIEN < 0 then InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
-          end;
-        end; {if selected}
-     end; {for}
-  end {with}
+  for i := 0 to Items.Count - 1 do
+  if Selected[i] then
+  begin
+    NoteIEN := StrToInt64def(Piece(Items[i], U, 1), 0);
+    if NoteIEN > 0 then PrintNote(NoteIEN, DisplayText[i], TRUE)
+    else if NoteIEN = 0 then InfoBox(TX_NO_NOTE, TX_NOSUMM_CAP, MB_OK)
+    else InfoBox(TX_NOPRT_NEW, TX_NOPRT_NEW_CAP, MB_OK);
+  end;
 end;
 
@@ -842 +838 @@
       DocInfo := MakeXMLParamTIU(IntToStr(CreatedSumm.IEN), FEditDCSumm);
       ExecuteTemplateOrBoilerPlate(TmpBoilerPlate, FEditDCSumm.Title, ltTitle, Self, 'Title: ' + FEditDCSumm.TitleName, DocInfo);
-      memNewSumm.Lines.Assign(TmpBoilerPlate);
+      QuickCopyWith508Msg(TmpBoilerPlate, memNewSumm);
       TmpBoilerPlate.Free;
     end;
@@ -1111 +1107 @@
 procedure TfrmDCSumm.lstSummsClick(Sender: TObject);
 { loads the text for the selected Summ or displays the editing panel for the selected Summ }
+var
+  x: string;
 begin
   inherited;
@@ -1144 +1142 @@
   memNewSumm.Repaint;
   memSumm.Repaint;
-  NotifyOtherApps(NAE_REPORT, 'TIU^' + lstSumms.ItemID);
+  x := 'TIU^' + lstSumms.ItemID;
+  SetPiece(x, U, 10, Piece(lstSumms.Items[lstSumms.ItemIndex], U, 11));
+  NotifyOtherApps(NAE_REPORT, x);
 end;
 
@@ -1969 +1969 @@
   inherited;
   PageID := CT_DCSUMM;
-  memSumm.Color := ReadOnlyColor;
-  memPCEShow.Color := ReadOnlyColor;
-  lblNewTitle.Color := ReadOnlyColor;
   FDischargeDate := FMNow;
   EditingIndex := -1;
@@ -1982 +1979 @@
   frmDrawers.Splitter := splDrawers;
   frmDrawers.DefTempPiece := 3;
-  tvSumms.Images := dmodShared.imgNotes;
-  tvSumms.StateImages := dmodShared.imgImages;
-  lvSumms.StateImages := dmodShared.imgImages;
-  lvSumms.SmallImages := dmodShared.imgNotes;
   FImageFlag := TBitmap.Create;
   FDocList := TStringList.Create;
-  TAccessibleTreeView.WrapControl(tvSumms);
 end;
 
@@ -2315 +2307 @@
 procedure TfrmDCSumm.FormDestroy(Sender: TObject);
 begin
-  TAccessibleTreeView.UnwrapControl(tvSumms);
   FImageFlag.Free;
   FDocList.Free;
@@ -2354 +2345 @@
     if Dictator <= 0   then Result := True;
     if AdmitDateTime <= 0 then Result := True;
+    if DischargeDateTime > 0 then
+      ADateTime := DischargeDateTime
+    else
+      ADateTime := DictDateTime;
     if (DocType = TYP_ADDENDUM) then
     begin
-      if AskCosignerForDocument(Addend, Dictator) and (Cosigner <= 0) then Result := True;
+      if AskCosignerForDocument(Addend, Dictator, ADateTime) and (Cosigner <= 0) then Result := True;
     end else
     begin
       if Title > 0 then CurTitle := Title else CurTitle := DocType;
-      if DischargeDateTime > 0 then
-        ADateTime := DischargeDateTime
-      else
-        ADateTime := DictDateTime;
       if AskCosignerForTitle(CurTitle, Dictator, ADateTime) and (Cosigner <= 0) then Result := True;
     end;
@@ -2404 +2395 @@
   ErrMsg: string;
 begin
+  if fFrame.frmFrame.DLLActive = True then Exit;  
   if (EditingIndex > -1) and FChanged then
   begin
@@ -2501 +2493 @@
   begin
     ExecuteTemplateOrBoilerPlate(BoilerText, FEditDCSumm.Title, ltTitle, Self, 'Title: ' + FEditDCSumm.TitleName, DocInfo);
-    memNewSumm.Lines.Assign(BoilerText);
+    QuickCopyWith508Msg(BoilerText, memNewSumm);
     FChanged := False;
   end;
@@ -2523 +2515 @@
         1: begin
              ExecuteTemplateOrBoilerPlate(BoilerText, FEditDCSumm.Title, ltTitle, Self, 'Title: ' + FEditDCSumm.TitleName, DocInfo);
-             memNewSumm.Lines.AddStrings(BoilerText);  // append
+             QuickAddWith508Msg(BoilerText, memNewSumm);  // append
            end;
         2: AssignBoilerText                          // replace
@@ -2682 +2674 @@
       uChanging := True;
       Items.BeginUpdate;
-      lstSumms.Items.AddStrings(DocList);
+      FastAddStrings(DocList, lstSumms.Items);
       BuildDocumentTree(DocList, '0', Tree, nil, FCurrentContext, CT_DCSUMM);
       Items.EndUpdate;
@@ -3233 +3225 @@
 end;
 
-procedure TfrmDCSumm.tvSummsAddition(Sender: TObject; Node: TTreeNode);
-begin
-  inherited;
-  TAccessibleTreeNode.WrapControl(Node as TORTreeNode);
-end;
-
-procedure TfrmDCSumm.tvSummsDeletion(Sender: TObject; Node: TTreeNode);
-begin
-  TAccessibleTreeNode.UnwrapControl(Node as TORTreeNode);
-  inherited;
-end;
-
 
 {Returns True & Displays a Message if Currently No D/C Summary is Selected,
@@ -3280 +3260 @@
 
 initialization
+  SpecifyFormIsNotADialog(TfrmDCSumm);
   uPCEEdit := TPCEData.Create;
   uPCEShow := TPCEData.Create;