Procedure

TProbRec.AddNewComment

Module

uProbs

Last Modified

7/15/2014 3:26:44 PM

Visibility

Public

Owner

TProbRec

Declaration

procedure AddNewComment(Txt:string);

Calls Hierarchy


TProbRec.AddNewComment
 ├TComment.Create
 └FMToday
   └FMNow

Called-By Hierarchy


                    TProbRec.AddNewComment
           TfrmProblems.lstProbActsClick┤ 
       TfrmProblems.wgProbDataDblClick┤ │ 
             TfrmProblems.lstViewClick┘ │ 
     TfrmProblems.HighlightDuplicate┘   │ 
           TfrmProblems.AddProblem┤     │ 
TfrmProblems.lstProbActsClick...┤ │     │ 
   TfrmProblems.lstProbPickClick┤ │     │ 
TfrmProblems.lstProbPickDblClick┤ │     │ 
TfrmProblems.edProbEntKeyPress┘ │ │     │ 
        TfrmProblems.UMPLLexicon┘ │     │ 
     TfrmdlgProb.bbChangeProbClick┘     │ 
              TfrmdlgProb.GetNewComments┘ 
               TfrmdlgProb.bbFileClick┘   

Calls

Name Declaration Comments
TComment.Create constructor Create(dhcpcom:string); -
FMToday function FMToday: TFMDateTime; -

Called-By

Name Declaration Comments
TfrmdlgProb.GetNewComments procedure GetNewComments(Reason:char); -
TfrmProblems.lstProbActsClick procedure lstProbActsClick(Sender: TObject); -


Source

733   procedure TProbRec.AddNewComment(Txt:string);
734   var
735     cor:TComment;
736   begin
737     cor := TComment.Create('NEW^^' + txt + '^A^' + FloatToStr(FMToday) + '^' + IntToStr(User.DUZ));
738     fComments.add(cor);
739     fFieldList.addObject('10,"NEW",' + inttostr(fComments.count),cor);
740   end;