Macro: Make$Private$Set_Get

Module location: cReport.pkg line 254 (view source)

These routines let you set and Get the private properties. In all cases the Get or Set is delegated to the ultimate parent

     Procedure SET !1 integer Val
       //**if (pbChildReport(self)) Delegate Set !1 Val
       //**else Set Report.!1 to Val
       Integer Obj#
       Get phMainReport to Obj#
       Set private.!1 of Obj# to Val
     End_Procedure

     Function !1 returns integer
        integer retval
        //If (pbChildReport(self)) Delegate Get !1 to RetVal
        //Else Get Report.!1 to retval
        Integer Obj#
        Get phMainReport to Obj#
        Get private.!1 of Obj# to retval
        Function_Return RetVal
     End_Function
Module location: Report.pkg line 260 (view source)

These routines let you set and Get the private properties. In all cases the Get or Set is delegated to the ultimate parent

     Procedure SET !1 integer Val
       //**if (Child_Rpt_State(self)) Delegate Set !1 Val
       //**else Set Report.!1 to Val
       Integer Obj#
       Get Main_report_Id to Obj#
       Set private.!1 of Obj# to Val
     End_Procedure

     Function !1 returns integer
        integer retval
        //If (Child_Rpt_State(self)) Delegate Get !1 to RetVal
        //Else Get Report.!1 to retval
        Integer Obj#
        Get Main_report_Id to Obj#
        Get private.!1 of Obj# to retval
        Function_Return RetVal
     End_Function