Function

MakeReportTreeObject

Module

uReports

Last Modified

7/15/2014 3:26:44 PM

Comments

Procedures & functions for Report Tree & ListView objects

Scope

Interfaced

Declaration

function MakeReportTreeObject(x: string): PReportTreeObject;

Called-By Hierarchy


                         MakeReportTreeObject
                      TfrmLabs.LoadTreeView┤ 
                     TfrmLabs.DisplayPage┤ │ 
   TfrmOptionsReportsCustom.btnApplyClick┘ │ 
    TfrmOptionsReportsCustom.btnOKClick┘   │ 
                   TfrmReports.LoadTreeView┘ 
                  TfrmReports.DisplayPage┤   
     TfrmOptionsReportsDefault.btnOKClick┤   
  TfrmOptionsReportsDefault.btnResetClick┤   
TfrmOptionsReportsCustom.btnApplyClick...┘   

Called-By

Name Declaration Comments
TfrmLabs.LoadTreeView procedure LoadTreeView; -
TfrmReports.LoadTreeView procedure LoadTreeView; -


Source

143   function MakeReportTreeObject(x: string): PReportTreeObject;
144   var
145     AnObject: PReportTreeObject;
146   begin
147     //x=id^Name^Qualifier^HSTag;Routine^Entry^Routine^Remote^Type^Category^RPC^ifn^SortOrder^MaxDaysBack^Direct^HDR^FHIE
148     New(AnObject);
149     with AnObject^ do
150       begin
151         ID              := UpperCase(Piece(x, U, 1)) + ':' + UpperCase(Piece(x, U, 2));
152         Heading         := Piece(x, U, 2);
153         Qualifier       := Piece(x, U, 3);
154         Remote          := Piece(x, U, 7);
155         RptType         := Piece(x, U, 8);
156         Category        := Piece(x, U, 9);
157         RPCName         := UpperCase(Piece(x, U, 10));
158         IFN             := Piece(x, U, 11);
159         HSTag           := UpperCase(Piece(x, U, 4));
160         SortOrder       := Piece(x, U, 12);
161         MaxDaysBack     := Piece(x, U, 13);
162         Direct          := Piece(x, U, 14);
163         HDR             := Piece(x, U, 15);
164         FHIE            := Piece(x, U, 16);
165         FHIEONLY        := Piece(x, U, 17);
166       end;
167     Result := AnObject;
168   end;