Procedure

TfrmODBBank.cboReasonsChange

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODBBank

Declaration

procedure cboReasonsChange(Sender: TObject);

Calls Hierarchy


TfrmODBBank.cboReasonsChange
 ├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

2426  procedure TfrmODBBank.cboReasonsChange(Sender: TObject);
2427  begin
2428    inherited;
2429    cboReasons.Text := StringReplace(cboReasons.Text,CRLF,'  ',[rfReplaceAll]);
2430    if (length(cboReasons.Text) > 75) then
2431      begin
2432        ShowMsg('REASON FOR REQUEST cannot be longer than 75 characters');
2433        cboReasons.Text := Copy(cboReasons.Text,0,75);
2434        Exit;
2435      end;
2436    if Length(cboReasons.Text) > 0 then Responses.Update('REASON', 1, cboReasons.Text, cboReasons.Text);
2437    memOrder.Text := Responses.OrderText;
2438  end;