Changeset 830 for cprs/trunk/CPRS-Chart/fAddlSigners.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/fAddlSigners.pas (modified) (15 diffs)

cprs/trunk/CPRS-Chart/fAddlSigners.pas

@@ -4 +4 @@
 
 uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
-  Buttons, ORCtrls, ORfn, ExtCtrls, FNoteProps,Dialogs;
+  Buttons, ORCtrls, ORfn, ExtCtrls, FNoteProps, Dialogs, fBase508Form,
+  VA508AccessibilityManager;
 
 type
-  TfrmAddlSigners = class(TForm)
+  TfrmAddlSigners = class(TfrmBase508Form)
     cmdOK: TButton;
     cmdCancel: TButton;
@@ -15 +16 @@
     DstLabel: TLabel;
     pnlBase: TPanel;
-    cmdRemove: TButton;
+    btnRemoveSigners: TButton;
     lblAuthor: TOROffsetLabel;
     cboCosigner: TORComboBox;
@@ -23 +24 @@
     pnlButtons: TORAutoPanel;
     pnlTop: TORAutoPanel;
+    btnAddSigners: TButton;
+    btnRemoveAllSigners: TButton;
+    procedure btnAddSignersClick(Sender: TObject);
     procedure NewPersonNeedData(Sender: TObject; const StartFrom: String;
       Direction, InsertAt: Integer);
@@ -28 +32 @@
     procedure cmdCancelClick(Sender: TObject);
     procedure cboSrcListMouseClick(Sender: TObject);
-    procedure cmdRemoveClick(Sender: TObject);
+    procedure btnRemoveSignersClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure cboCosignerChange(Sender: TObject);
-    procedure DstListClick(Sender: TObject);
     procedure cboSrcListKeyDown(Sender: TObject; var Key: Word;
       Shift: TShiftState);
@@ -39 +42 @@
     procedure cboCosignerExit(Sender: TObject);
     procedure cboSrcListClick(Sender: TObject);
+    procedure DstListChange(Sender: TObject);
+    procedure btnRemoveAllSignersClick(Sender: TObject);
+    procedure cboSrcListChange(Sender: TObject);
   private
     FSigners: TStringList ;
@@ -50 +56 @@
     FTabID: integer;
     function CosignerOK: Boolean;
+    
   end;
 
@@ -71 +78 @@
 
 uses
-  rCore, uCore, rTIU, uConst, rPCE;
+  rCore, uCore, rTIU, uConst, rPCE, fDCSumm;
 
 const
@@ -99 +106 @@
       FNoteIEN := NoteIEN;
       FRefDate := ARefDate;
-      FExclusions.Assign(Exclusions);
+      FastAssign(Exclusions, FExclusions);
       FToday := FloatToStr(FMToday);
       if FSigAction = SG_COSIGNER then
@@ -121 +128 @@
             end
           else
+          begin
             DstList.Items.Add(Strings[i]);
+            btnRemoveAllSigners.Enabled := DstList.Items.Count > 0;
+          end;
         end;
 
@@ -139 +149 @@
         begin
           Signers := TStringList.Create;
-          Signers.Assign(FSigners);
+          FastAssign(FSigners, Signers);
           Cosigner := FCosigner;
           Changed := FChanged ;
@@ -197 +207 @@
       end;
   DstList.Items.Add(cboSrcList.Items[cboSrcList.Itemindex]) ;
-  cboSrcList.SelectByID(cboSrcList.ItemID);
-end;
-
-procedure TfrmAddlSigners.cmdRemoveClick(Sender: TObject);
+  btnRemoveSigners.Enabled := DstList.SelCount > 0;
+  btnRemoveAllSigners.Enabled := DstList.Items.Count > 0;
+   
+end;
+
+procedure TfrmAddlSigners.btnRemoveAllSignersClick(Sender: TObject);
+begin
+  inherited;
+  DstList.SelectAll;
+  btnRemoveSignersClick(self);
+end;
+
+procedure TfrmAddlSigners.btnRemoveSignersClick(Sender: TObject);
 var
   i,j: integer;
@@ -218 +237 @@
 end;
 
+procedure TfrmAddlSigners.btnAddSignersClick(Sender: TObject);
+begin
+  inherited;
+  cboSrcListMouseClick(btnAddSigners);
+end;
+
 procedure TfrmAddlSigners.cboCosignerChange(Sender: TObject);
 var
   i: integer;
 begin
-  if UserInactive(cboCosigner.ItemID) then
-       if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
-  if not CosignerOK then Exit;
-  i := DstList.SelectByID(cboCosigner.ItemID);
-  if i > -1 then
+  with cboCosigner do
+  begin
+    if UserInactive(ItemID) then
+      if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
+    if not CosignerOK then Exit;
+    i := DstList.SelectByID(ItemID);
+    if i > -1 then
     begin
       DstList.Items.Delete(i);
-      FSigners.Add(ORFn.Pieces(cboCosigner.Items[cboCosigner.ItemIndex], U, 1, 2) + '^REMOVE');
-    end;
+      FSigners.Add(ORFn.Pieces(Items[ItemIndex], U, 1, 2) + '^REMOVE');
+    end;
+    for i := 0 to FExclusions.Count - 1 do
+      if (Piece(FExclusions.Strings[i],U,3) = 'Expected Cosigner') then
+        FExclusions.Strings[i] := ORFn.Pieces(Items[ItemIndex], U, 1, 2) + '^Expected Cosigner';
+  end;
 end;
 
 procedure TfrmAddlSigners.FormCreate(Sender: TObject);
 begin
-  cboCosigner.Color := ReadOnlyColor;
-  txtAuthor.Color := ReadOnlyColor;
   FSigners := TStringList.Create;
   FExclusions := TStringList.Create;
@@ -247 +276 @@
 end;
 
-procedure TfrmAddlSigners.DstListClick(Sender: TObject);
-begin
-  if DstList.ItemIndex > -1 then cmdRemoveClick(Self);
+procedure TfrmAddlSigners.DstListChange(Sender: TObject);
+begin
+  inherited;
+if DstList.SelCount = 1 then
+    if Piece(DstList.Items[0], '^', 1) = '' then
+    begin
+      btnRemoveSigners.Enabled := false;
+      btnRemoveAllSigners.Enabled := false;
+      exit;
+    end;
+  btnRemoveSigners.Enabled := DstList.SelCount > 0;
+  btnRemoveAllSigners.Enabled := DstList.Items.Count > 0;
 end;
 
@@ -294 +332 @@
     CT_NOTES:     TORComboBox(Sender).ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, FToday));
     CT_CONSULTS:  TORComboBox(Sender).ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, FToday));
-    CT_DCSUMM:    TORComboBox(Sender).ForDataUse(SubSetOfProviders(StartFrom, Direction));
+    //CQ #17218 - Updated to properly filter co-signers - JCS
+    //CT_DCSUMM:    TORComboBox(Sender).ForDataUse(SubSetOfProviders(StartFrom, Direction));
+    CT_DCSUMM: (Sender as TORComboBox).ForDataUse(SubSetOfCosigners(StartFrom, Direction,
+        FMToday, 0, frmDCSumm.lstSumms.ItemIEN));
+
   end;
 end;
@@ -303 +345 @@
 end;
 
+procedure TfrmAddlSigners.cboSrcListChange(Sender: TObject);
+begin
+  inherited;
+btnAddSigners.Enabled := CboSrcList.ItemIndex > -1;
+end;
+
 procedure TfrmAddlSigners.cboSrcListClick(Sender: TObject);
-var UserEIN:string;
-begin
-      UserEIN := Piece(cboSrcList.Items[cboSrcList.Itemindex],U,1);
-      if UserInactive(UserEIN) then
-        if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
+begin
+  if UserInactive(cboSrcList.ItemID) then
+    if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
 
 end;