Procedure

TProbRec.SetStatus

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Visibility

Private

Owner

TProbRec

Declaration

procedure SetStatus(value:String);

Called-By Hierarchy


                          TProbRec.SetStatus
                TfrmProblems.UpdateProblem┤ 
           TfrmProblems.lstProbActsClick┘ │ 
       TfrmProblems.wgProbDataDblClick┤   │ 
             TfrmProblems.lstViewClick┘   │ 
     TfrmProblems.HighlightDuplicate┘     │ 
           TfrmProblems.AddProblem┤       │ 
TfrmProblems.lstProbActsClick...┤ │       │ 
   TfrmProblems.lstProbPickClick┤ │       │ 
TfrmProblems.lstProbPickDblClick┤ │       │ 
TfrmProblems.edProbEntKeyPress┘ │ │       │ 
        TfrmProblems.UMPLLexicon┘ │       │ 
     TfrmdlgProb.bbChangeProbClick┘       │ 
               TfrmProblems.RestoreProblem┤ 
        TfrmProblems.lstProbActsClick...┘ │ 
                   TfrmdlgProb.bbFileClick┘ 

Called-By

Name Declaration Comments
TfrmdlgProb.bbFileClick procedure bbFileClick(Sender: TObject); -
TfrmProblems.RestoreProblem procedure RestoreProblem; -
TfrmProblems.UpdateProblem procedure UpdateProblem(const why:char;Line: string;AllProblemsIndex:integer); -


Source

1062  procedure TProbRec.SetStatus(value:String);
1063  begin
1064    if (UpperCase(Value) = 'ACTIVE') or (Uppercase(value) = 'A') then
1065      begin
1066        fStatus.intern := 'A';
1067        fStatus.extern := 'ACTIVE';
1068      end
1069    else
1070      begin
1071        fStatus.intern := 'I';
1072        fStatus.extern := 'INACTIVE';
1073      end;
1074  end;