Procedure

TfrmRemCoverSheet.UpdateView

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

procedure UpdateView;

Calls Hierarchy


TfrmRemCoverSheet.UpdateView
 └TfrmRemCoverSheet.GetCurrent
   └TfrmRemCoverSheet.GetCoverSheetLvlData
     └GetCoverSheetLevelData

Called-By Hierarchy


                       TfrmRemCoverSheet.UpdateView
                           TfrmRemCoverSheet.Init┤ 
                     EditCoverSheetReminderList┘ │ 
          TfrmReminderTree.mnuCoverSheetClick┤   │ 
                       DialogOptionsReminders┘   │ 
         TfrmOptions.btnCoverRemindersClick┘     │ 
               TfrmRemCoverSheet.cbxDropDownClose┤ 
            TfrmRemCoverSheet.cbxDivisionChange┤ │ 
             TfrmRemCoverSheet.cbxServiceChange┤ │ 
            TfrmRemCoverSheet.cbxLocationChange┤ │ 
               TfrmRemCoverSheet.cbxClassChange┤ │ 
                TfrmRemCoverSheet.cbxUserChange┤ │ 
             TfrmRemCoverSheet.lvViewSelectItem┘ │ 
               TfrmRemCoverSheet.lvViewChange┘   │ 
               TfrmRemCoverSheet.cbEditLevelClick┤ 
          TfrmRemCoverSheet.cbxDropDownClose...┘ │ 
              TfrmRemCoverSheet.MarkListAsChanged┘ 
                 TfrmRemCoverSheet.ChangeStatus┤   
                TfrmRemCoverSheet.btnAddClick┤ │   
         TfrmRemCoverSheet.LockButtonUpdate┘ │ │   
          TfrmRemCoverSheet.UpdateButtons┤   │ │   
              TfrmRemCoverSheet.Init...┤ │   │ │   
 TfrmRemCoverSheet.UpdateMasterListView┤ │   │ │   
TfrmRemCoverSheet.cbEditLevelClick...┤ │ │   │ │   
   TfrmRemCoverSheet.sbCopyRightClick┤ │ │   │ │   
    TfrmRemCoverSheet.sbCopyLeftClick┤ │ │   │ │   
           TfrmRemCoverSheet.SaveData┘ │ │   │ │   
    TfrmRemCoverSheet.btnApplyClick┤   │ │   │ │   
       TfrmRemCoverSheet.btnOKClick┘   │ │   │ │   
         TfrmRemCoverSheet.edtSeqChange┤ │   │ │   
          TfrmRemCoverSheet.tvAllChange┤ │   │ │   
        TfrmRemCoverSheet.lvCoverChange┤ │   │ │   
            TfrmRemCoverSheet.sbUpClick┤ │   │ │   
          TfrmRemCoverSheet.sbDownClick┤ │   │ │   
 TfrmRemCoverSheet.ActiveControlChanged┘ │   │ │   
       TfrmRemCoverSheet.btnViewClick┤   │   │ │   
         TfrmRemCoverSheet.FormCreate┘   │   │ │   
        TfrmRemCoverSheet.ChangeStatus...┘   │ │   
             TfrmRemCoverSheet.btnRemoveClick┤ │   
               TfrmRemCoverSheet.btnLockClick┘ │   
      TfrmRemCoverSheet.LockButtonUpdate...┘   │   
                       TfrmRemCoverSheet.SetSeq┤   
               TfrmRemCoverSheet.edtSeqChange┤ │   
                  TfrmRemCoverSheet.sbUpClick┤ │   
                TfrmRemCoverSheet.sbDownClick┘ │   
             TfrmRemCoverSheet.sbCopyRightClick┤   
              TfrmRemCoverSheet.sbCopyLeftClick┘   

Calls

Name Declaration Comments
TfrmRemCoverSheet.GetCurrent function GetCurrent(IEN: Int64; Level: TRemCoverDataLevel; Show: boolean; Add: boolean = FALSE): TORStringList; -

Called-By

Name Declaration Comments
TfrmRemCoverSheet.cbEditLevelClick procedure cbEditLevelClick(Sender: TObject); -
TfrmRemCoverSheet.cbxDropDownClose procedure cbxDropDownClose(Sender: TObject); -
TfrmRemCoverSheet.Init procedure Init(AsUser: boolean); -
TfrmRemCoverSheet.MarkListAsChanged procedure MarkListAsChanged; -


Source

532   procedure TfrmRemCoverSheet.UpdateView;
533   var
534     idx: integer;
535   
536   begin
537     if FInitialized and (not FUpdatingView) then
538     begin
539       lvView.Items.BeginUpdate;
540       try
541         lvView.Items.Clear;
542         GetCurrent(0, dlPackage, TRUE);
543         GetCurrent(0, dlSystem, TRUE);
544         GetCurrent(FCurDiv, dlDivision, TRUE);
545         GetCurrent(FCurSer, dlService, TRUE);
546         GetCurrent(FCurLoc, dlLocation, TRUE);
547         if FCurClass > 0 then
548           GetCurrent(FCurClass, dlUserClass, TRUE)
549         else
550         begin
551           idx := -1;
552           repeat
553             idx := FUserInfo.IndexOfPiece(UserClassCode,U,1,idx);
554             if idx >= 0 then
555               GetCurrent(StrToIntDef(Piece(FUserInfo[idx],U,2),0), dlUserClass, TRUE)
556           until(idx < 0);
557         end;
558         GetCurrent(FCurUser, dlUser, TRUE);
559       finally
560         lvView.Items.EndUpdate;
561       end;
562     end;
563   end;