Function

TfrmRemCoverSheet.GetExternalName

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

function GetExternalName(Level: TRemCoverDataLevel; IEN: Int64): string;

Calls Hierarchy


TfrmRemCoverSheet.GetExternalName
 └GetNameFromList
   └ExternalName

Called-By Hierarchy


         TfrmRemCoverSheet.GetExternalName
                  TfrmRemCoverSheet.Init┤ 
            EditCoverSheetReminderList┘ │ 
 TfrmReminderTree.mnuCoverSheetClick┤   │ 
              DialogOptionsReminders┘   │ 
TfrmOptions.btnCoverRemindersClick┘     │ 
             TfrmRemCoverSheet.SetupItem┤ 
         TfrmRemCoverSheet.cbxUserChange┤ 
      TfrmRemCoverSheet.cbEditLevelClick┘ 
    TfrmRemCoverSheet.cbxDropDownClose┘   
 TfrmRemCoverSheet.cbxDivisionChange┤     
  TfrmRemCoverSheet.cbxServiceChange┤     
 TfrmRemCoverSheet.cbxLocationChange┤     
    TfrmRemCoverSheet.cbxClassChange┤     
     TfrmRemCoverSheet.cbxUserChange┤     
  TfrmRemCoverSheet.lvViewSelectItem┘     
    TfrmRemCoverSheet.lvViewChange┘       

Calls

Name Declaration Comments
GetNameFromList function GetNameFromList(List: TORStringList; IEN: Int64; FileNum: Double): string; -

Called-By

Name Declaration Comments
TfrmRemCoverSheet.cbEditLevelClick procedure cbEditLevelClick(Sender: TObject); -
TfrmRemCoverSheet.cbxUserChange procedure cbxUserChange(Sender: TObject); -
TfrmRemCoverSheet.Init procedure Init(AsUser: boolean); -
TfrmRemCoverSheet.SetupItem procedure SetupItem(Item: TListItem; const Data: string; Level: TRemCoverDataLevel; IEN: Int64); overload; -


Source

623   function TfrmRemCoverSheet.GetExternalName(Level: TRemCoverDataLevel; IEN: Int64): string;
624   
625     function GetNameFromList(List: TORStringList; IEN: Int64; FileNum: Double): string;
626     var
627       idx: integer;
628   
629     begin
630       idx := List.IndexOfPiece(IntToStr(IEN));
631       if idx < 0 then
632         idx := List.Add(IntToStr(IEN) + U + ExternalName(IEN, FileNum));
633         Result := piece(List[idx],U,2);
634     end;
635   
636   begin
637     case Level of
638       dlDivision:  Result := GetNameFromList(FDivisions, IEN, 4);
639       dlService:   Result := GetNameFromList(FServices, IEN, 49);
640       dlLocation:  Result := GetNameFromList(FLocations, IEN, 44);
641       dlUserClass: Result := GetNameFromList(FClasses, IEN, 8930);
642       dlUser:      Result := GetNameFromList(FUsers, IEN, 200);
643       else         Result := '';
644     end;
645   end;