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

cprs/trunk/CPRS-Chart/fNoteProps.pas

@@ -6 +6 @@
   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
   StdCtrls, ORDtTm, ORCtrls, ExtCtrls, rTIU, uConst, uTIU, ORFn, ORNet,
-  ComCtrls, Buttons;
+  ComCtrls, Buttons, fBase508Form, VA508AccessibilityManager;
 
 type
@@ -28 +28 @@
   end;
 
-  TfrmNoteProperties = class(TForm)
+  TfrmNoteProperties = class(TfrmBase508Form)
     lblNewTitle: TLabel;
     cboNewTitle: TORComboBox;
@@ -92 +92 @@
     procedure lstRequestsChange(Sender: TObject);
   private
+    FIsNewNote : Boolean;     // Is set at the begining of the function: ExecuteNoteProperties
     FCosignIEN: Int64;      // store cosigner that was passed in
     FCosignName: string;    // store cosigner that was passed in
@@ -141 +142 @@
 {$R *.DFM}
 
-uses uCore, rCore, rConsults, uConsults, rSurgery, uAccessibleListBox, fRptBox;
+uses uCore, rCore, rConsults, uConsults, rSurgery, fRptBox;
 
 { Initial values in ANote
@@ -212 +213 @@
 begin
   frmNoteProperties := TfrmNoteProperties.Create(Application);
+  frmNoteProperties.FIsNewNote := ANote.IsNewNote;
   uConsultsList := TStringList.Create;
   try
@@ -337 +339 @@
         FormatRequestList;
       end ;
-      TAccessibleListBox.WrapControl(cboNewTitle);
-      try
-        Result := ShowModal = idOK;                // display the form
-      finally
-        TAccessibleListBox.UnwrapControl(cboNewTitle);
-      end;
+      Result := ShowModal = idOK;                // display the form
       if Result then with ANote do
       begin
@@ -399 +396 @@
                               PkgRef := IntToStr(PkgIEN) + ';' + PkgPtr;
                             end
-                          else if pnlPRF.Visible then //PRF
+                          else if (pnlPRF.Visible) and (lvPRF.ItemIndex >= 0) then //PRF
                             begin
                               PRF_IEN := FPRFActions.GetPRF_IEN(lvPRF.ItemIndex);
                               ActionIEN := FPRFActions.GetActionIEN(lvPRF.ItemIndex);
+                            end
+                          else
+                            begin
+                              PkgIEN := 0;
+                              PkgPtr := '';
+                              PkgRef := '';
                             end;
                         end;
@@ -440 +443 @@
   if FDocType = TYP_ADDENDUM then
   begin
-    lblCosigner.Visible := AskCosignerForDocument(FAddend, cboAuthor.ItemIEN)
+    lblCosigner.Visible := AskCosignerForDocument(FAddend, cboAuthor.ItemIEN, calNote.FMDateTime)
   end else
   begin
@@ -498 +501 @@
     begin
       lblConsult2.Caption := ALL_CONSULTS;
-      lstRequests.Items.Assign(uConsultsList);
+      FastAssign(uConsultsList, lstRequests.Items);
     end;
     lblConsult1.Visible := (cboNewTitle.ItemIndex > -1);
@@ -696 +699 @@
           else if (pnlPRF.Visible) then
           begin
-            if (lvPRF.ItemIndex < 0) then
-              ErrMsg := ErrMsg + TX_REQ_PRF_ACTION
-            else if FPRFActions.SelActionHasNote(lvPRF.ItemIndex) then
+            if (lvPRF.ItemIndex < 0) and (FIsNewNote) then
+              ErrMsg := ErrMsg + TX_REQ_PRF_ACTION;
+            if (lvPRF.ItemIndex >= 0) and (FPRFActions.SelActionHasNote(lvPRF.ItemIndex)) then
               ErrMsg := ErrMsg + TX_REQ_PRF_NOTE;
           end;
@@ -869 +872 @@
 begin
   CallV('TIU GET PRF ACTIONS', [TitleIEN,DFN]);
-  FPRFActionList.Assign(RPCBrokerV.Results);
+  FastAssign(RPCBrokerV.Results, FPRFActionList);
 end;