Function

TfrmRemCoverSheet.GetCoverSheetLvlData

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

function GetCoverSheetLvlData(ALevel, AClass: string): TStrings;

Calls Hierarchy


TfrmRemCoverSheet.GetCoverSheetLvlData
 └GetCoverSheetLevelData

Called-By Hierarchy


                 TfrmRemCoverSheet.GetCoverSheetLvlData
                         TfrmRemCoverSheet.GetCurrent┘ 
                       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┘   │   
          TfrmRemCoverSheet.UpdateMasterListView...┤   
                 TfrmRemCoverSheet.UpdateButtons...┤   
                  TfrmRemCoverSheet.ChangeStatus...┤   
                        TfrmRemCoverSheet.SetSeq...┤   
                 TfrmRemCoverSheet.sbCopyRightClick┤   
                  TfrmRemCoverSheet.sbCopyLeftClick┘   

Calls

Name Declaration Comments
GetCoverSheetLevelData function GetCoverSheetLevelData(ALevel, AClass: string): TStrings; -

Called-By

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


Source

1885  function TfrmRemCoverSheet.GetCoverSheetLvlData(ALevel,
1886    AClass: string): TStrings;
1887  var
1888    IEN: string;
1889    i, j: integer;
1890  
1891  begin
1892    Result := GetCoverSheetLevelData(ALevel, AClass);
1893    for i := 0 to Result.Count-1 do
1894    begin
1895      IEN := copy(piece(Result[i],U,2),2,MaxInt);
1896      j := FMasterList.IndexOfPiece(IEN);
1897      if j >= 0 then
1898        Result[i] := Result[i] + piece(FMasterList[j],U,3);
1899    end;
1900  end;