Procedure

TfrmOrderView.SynchViewData

Module

fOrderVw

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmOrderView

Declaration

procedure SynchViewData;

Calls Hierarchy


TfrmOrderView.SynchViewData
 ├TfrmOrderView.chkDateRangeClick
 │ └TfrmOrderView.UpdateViewName
 └TfrmOrderView.UpdateViewName

Called-By Hierarchy


      TfrmOrderView.SynchViewData
                SelectOrderView┘ 
TfrmOrders.mnuViewCustomClick┘   

Calls

Name Declaration Comments
TfrmOrderView.chkDateRangeClick procedure chkDateRangeClick(Sender: TObject); -
TfrmOrderView.UpdateViewName procedure UpdateViewName; -

Called-By

Name Declaration Comments
SelectOrderView procedure SelectOrderView(var OrderView: TOrderView); -


Source

149   procedure TfrmOrderView.SynchViewData;
150   var
151     i: Integer;
152   begin
153     with treService.Items do for i := 0 to Count - 1 do if Integer(Item[i].Data) = FDGroup then
154     begin
155       Item[i].Expanded := True;
156       Item[i].Selected := True;
157       FDGroupName := Item[i].Text;
158       Break;
159     end;
160   
161     with trFilters.Items do for i := 0 to Count - 1 do if Integer(Item[i].Data) = FFilter then
162     begin
163       Item[i].Expanded := True;
164       Item[i].Selected := True;
165       FFilter := Integer(Item[i].Data);
166       FFilterName := Item[i].Text;
167       Break;
168     end;
169   
170     if (FTimeFrom > 0) or (FTimeThru > 0) then
171     begin
172       calFrom.FMDateTime := FTimeFrom;
173       calThru.FMDateTime := FTimeThru;
174       chkDateRange.Checked := True;
175       chkDateRangeClick(Self);
176     end;
177     UpdateViewName;
178     chkByService.Checked := FByService;
179     chkInvChrono.Checked := FInvChrono;
180   end;