Procedure

TfrmODBBank.chkConsentClick

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODBBank

Declaration

procedure chkConsentClick(Sender: TObject);

Calls Hierarchy


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

3970  procedure TfrmODBBank.chkConsentClick(Sender: TObject);
3971  begin
3972    inherited;
3973    if uSelectedItems.Count > 0 then
3974      begin
3975        if chkConsent.Checked = true then Responses.Update('YN',1,'1','Yes');
3976        memOrder.Text := Responses.OrderText;
3977      end;
3978  end;