Procedure

TfrmODBBank.calCollTimeChange

Module

fODBBank

Last Modified

7/15/2014 3:26:40 PM

Visibility

Public/Published

Owner

TfrmODBBank

Declaration

procedure calCollTimeChange(Sender: TObject);

Calls Hierarchy


TfrmODBBank.calCollTimeChange
 ├TResponses.Update
 │ ├TResponses.FindResponseByName
 │ └TResponses.IENForPrompt
 ├TfrmODBBank.ValidCollTime
 │ └StrToFMDateTime
 └TResponses.GetOrderText
   ├TResponses.NextInstance
   ├TResponses.FindResponseByName
   ├TResponses.FormatResponse
   │ └TResponses.FindResponseByIEN
   └TResponses.AppendChildren
     ├TResponses.FindPromptByIEN
     ├TResponses.FindResponseByIEN
     └TResponses.FormatResponse...

Called-By Hierarchy


  TfrmODBBank.calCollTimeChange
TfrmODBBank.cboCollTypeChange┘ 

Calls

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

Called-By

Name Declaration Comments
TfrmODBBank.cboCollTypeChange procedure cboCollTypeChange(Sender: TObject); -


Source

4364  procedure TfrmODBBank.calCollTimeChange(Sender: TObject);
4365  begin
4366    inherited;
4367    if uSelectedItems.Count > 0 then
4368      begin
4369        if cboCollType.ItemID = 'LC' then
4370          begin
4371            with cboCollTime do
4372              if Length(ItemID) > 0 then
4373                begin
4374                  Responses.Update('START', 1, Copy(ItemID, 2, 999), Copy(ItemID, 2, 999));
4375                  FLastLabCollTime := ItemID + U + Text;
4376                end
4377              else if Length(Text) > 0 then
4378                begin
4379                  Responses.Update('START', 1, ValidCollTime(Text), Text) ;
4380                  FLastLabCollTime := ValidCollTime(Text);
4381                end;
4382          end
4383        else
4384          begin
4385            with calCollTime do
4386              if FMDateTime > 0 then
4387                begin
4388                  Responses.Update('START', 1, ValidCollTime(Text), Text);
4389                  FLastColltime := ValidCollTime(Text);
4390                end
4391              else
4392                begin
4393                  Responses.Update('START', 1, '', '') ;
4394                  FLastCollTime := '';
4395                end;
4396          end;
4397        memOrder.Text := Responses.OrderText;
4398      end;
4399  end;