Procedure

TfrmODBBank.memDiagCommentChange

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODBBank

Declaration

procedure memDiagCommentChange(Sender: TObject);

Calls Hierarchy


TfrmODBBank.memDiagCommentChange
 ├TResponses.Update
 │ ├TResponses.FindResponseByName
 │ └TResponses.IENForPrompt
 └TResponses.GetOrderText
   ├TResponses.NextInstance
   ├TResponses.FindResponseByName
   ├TResponses.FormatResponse
   │ └TResponses.FindResponseByIEN
   └TResponses.AppendChildren
     ├TResponses.FindPromptByIEN
     ├TResponses.FindResponseByIEN
     └TResponses.FormatResponse...

Calls

Name Declaration Comments
TResponses.GetOrderText function GetOrderText: string; -
TResponses.Update procedure Update(const APromptID: string; AnInstance: Integer; const AnIValue, AnEValue: string); -


Source

3535  procedure TfrmODBBank.memDiagCommentChange(Sender: TObject);
3536  begin
3537    inherited;
3538    memDiagComment.Text := StringReplace(memDiagComment.Text,CRLF,'  ',[rfReplaceAll]);
3539    if (length(memDiagComment.Text) > 250) then
3540      begin
3541        ShowMsg('COMMENT cannot be longer than 250 characters');
3542        memDiagComment.Text := Copy(memDiagComment.Text,0,250);
3543        Exit;
3544      end;
3545    if lvSelectionList.Items.Count < 1 then Exit;
3546  
3547    if uSelectedItems = nil then Exit;
3548    
3549    if uSelectedItems.Count > 0 then
3550      Responses.Update('COMMENT',1,memDiagComment.Text,memDiagComment.Text);
3551    memOrder.Text := Responses.OrderText;
3552  end;