Function

GetCurrentContext

Module

rConsults

Last Modified

7/15/2014 3:26:36 PM

Scope

Interfaced

Declaration

function  GetCurrentContext: TSelectContext;

Called-By Hierarchy


         GetCurrentContext
TfrmConsults.DisplayPage┘ 

Called-By

Name Declaration Comments
TfrmConsults.DisplayPage procedure DisplayPage; override; -


Source

752   function  GetCurrentContext: TSelectContext;
753   var
754     x: string;
755     AContext: TSelectContext;
756   begin
757     x := sCallV('ORQQCN2 GET CONTEXT', [User.DUZ]) ;
758     with AContext do
759       begin
760         Changed       := True;
761         BeginDate     := Piece(x, ';', 1);
762         EndDate       := Piece(x, ';', 2);
763         Status        := Piece(x, ';', 3);
764         Service       := Piece(x, ';', 4);
765         GroupBy       := Piece(x, ';', 5);
766         Ascending     := (Piece(x, ';', 6) = '1');
767       end;
768     Result := AContext;
769   end;