Procedure

TfrmRemCoverSheet.ChangeStatus

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

procedure ChangeStatus(Code: string);

Calls Hierarchy


TfrmRemCoverSheet.ChangeStatus
 ├TfrmRemCoverSheet.GetCurrent
 │ └TfrmRemCoverSheet.GetCoverSheetLvlData
 │   └GetCoverSheetLevelData
 ├TfrmRemCoverSheet.GetIndex
 ├TfrmRemCoverSheet.MarkListAsChanged
 │ └TfrmRemCoverSheet.UpdateView
 │   └TfrmRemCoverSheet.GetCurrent...
 ├TfrmRemCoverSheet.SetupItem
 └TfrmRemCoverSheet.LockButtonUpdate
   ├TfrmRemCoverSheet.btnLockClick
   │ └TfrmRemCoverSheet.ChangeStatus...
   └TfrmRemCoverSheet.btnAddClick
     └TfrmRemCoverSheet.ChangeStatus...

Called-By Hierarchy


                   TfrmRemCoverSheet.ChangeStatus
                  TfrmRemCoverSheet.btnAddClick┤ 
           TfrmRemCoverSheet.LockButtonUpdate┘ │ 
            TfrmRemCoverSheet.UpdateButtons┤   │ 
                   TfrmRemCoverSheet.Init┤ │   │ 
             EditCoverSheetReminderList┘ │ │   │ 
  TfrmReminderTree.mnuCoverSheetClick┤   │ │   │ 
               DialogOptionsReminders┘   │ │   │ 
 TfrmOptions.btnCoverRemindersClick┘     │ │   │ 
   TfrmRemCoverSheet.UpdateMasterListView┤ │   │ 
     TfrmRemCoverSheet.cbEditLevelClick┤ │ │   │ 
   TfrmRemCoverSheet.cbxDropDownClose┘ │ │ │   │ 
TfrmRemCoverSheet.cbxDivisionChange┤   │ │ │   │ 
 TfrmRemCoverSheet.cbxServiceChange┤   │ │ │   │ 
TfrmRemCoverSheet.cbxLocationChange┤   │ │ │   │ 
   TfrmRemCoverSheet.cbxClassChange┤   │ │ │   │ 
    TfrmRemCoverSheet.cbxUserChange┤   │ │ │   │ 
 TfrmRemCoverSheet.lvViewSelectItem┘   │ │ │   │ 
   TfrmRemCoverSheet.lvViewChange┘     │ │ │   │ 
     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...┘   

Calls

Name Declaration Comments
TfrmRemCoverSheet.GetCurrent function GetCurrent(IEN: Int64; Level: TRemCoverDataLevel; Show: boolean; Add: boolean = FALSE): TORStringList; -
TfrmRemCoverSheet.GetIndex function GetIndex(List: TORStringList; Item: TListItem): integer; -
TfrmRemCoverSheet.LockButtonUpdate procedure LockButtonUpdate(data, FNAME, hint: string); -
TfrmRemCoverSheet.MarkListAsChanged procedure MarkListAsChanged; -
TfrmRemCoverSheet.SetupItem procedure SetupItem(Item: TListItem; const Data: string); overload; -

Called-By

Name Declaration Comments
TfrmRemCoverSheet.btnAddClick procedure btnAddClick(Sender: TObject); -
TfrmRemCoverSheet.btnLockClick procedure btnLockClick(Sender: TObject); -
TfrmRemCoverSheet.btnRemoveClick procedure btnRemoveClick(Sender: TObject); -


Source

1119  procedure TfrmRemCoverSheet.ChangeStatus(Code: string);
1120  var
1121    tmpSL: TORStringList;
1122    Idx: integer;
1123    tmp,p: string;
1124  
1125  begin
1126    tmpSL := GetCurrent(FEditingIEN, FEditingLevel, FALSE);
1127    if assigned(tmpSL) then
1128    begin
1129      Idx := GetIndex(tmpSL, lvCover.Selected);
1130      if Idx >= 0 then
1131      begin
1132        tmp := tmpSL[idx];
1133        p := Piece(tmp,U,2);
1134        SetPiece(tmp,U,2,Code + copy(p,2,MaxInt));
1135        tmpSL[idx] := tmp;
1136        MarkListAsChanged;
1137        SetupItem(lvCover.Selected, tmp);
1138        tmp := piece(tmp,u,2);
1139        tmp := copy(tmp,1,1);
1140        if tmp = 'L' then
1141        begin
1142          LockButtonUpdate('Unlock', 'BMP_UNLOCK', UnlockHint);
1143        end;
1144        if tmp = 'N' then
1145        begin
1146          LockButtonUpdate('Lock', 'BMP_LOCK', LockHint);
1147        end;
1148        if tmp = 'R' then
1149        begin
1150          LockButtonUpdate('Add && Lock', 'BMP_LOCK', AddLockHint);
1151        end;
1152      end;
1153    end;
1154  end;