Procedure

TfrmOrderView.UpdateViewName

Module

fOrderVw

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmOrderView

Declaration

procedure UpdateViewName;

Called-By Hierarchy


       TfrmOrderView.UpdateViewName
      TfrmOrderView.SynchViewData┤ 
                SelectOrderView┘ │ 
TfrmOrders.mnuViewCustomClick┘   │ 
    TfrmOrderView.treServiceClick┤ 
  TfrmOrderView.chkDateRangeClick┤ 
 TfrmOrderView.SynchViewData...┤ │ 
   TfrmOrderView.trFiltersClick┘ │ 
          TfrmOrderView.calChange┤ 
     TfrmOrderView.trFiltersClick┘ 

Called-By

Name Declaration Comments
TfrmOrderView.calChange procedure calChange(Sender: TObject); -
TfrmOrderView.chkDateRangeClick procedure chkDateRangeClick(Sender: TObject); -
TfrmOrderView.SynchViewData procedure SynchViewData; -
TfrmOrderView.treServiceClick procedure treServiceClick(Sender: TObject); -
TfrmOrderView.trFiltersClick procedure trFiltersClick(Sender: TObject); -


Source

133   procedure TfrmOrderView.UpdateViewName;
134   const
135     FMT_TIME = 'mm/dd/yy';
136   var
137     DateText, FilterText: string;
138   begin
139     if chkDateRange.Checked
140       then DateText := ' ('     + FormatFMDateTime(FMT_TIME, calFrom.FMDateTime) +
141                        ' thru ' + FormatFMDateTIme(FMT_TIME, calThru.FMDateTime) + ')'
142       else DateText := '';
143     if FFilter in [6, 8, 9, 10, 19, 20]
144       then FilterText := FFilterName
145       else FilterText := FFilterName + ' Orders';
146     lblView.Caption := FilterText + ' - ' + FDGroupName + DateText;
147   end;