Changing the Properties of a Data Class Using a Standard Method

This document provides information on how to use a standard method to change the properties (fields) of a data class from another data class.

The development process described below demonstrates how to add a simple script to a data class (MYCLASS2) to update the properties (MYPROP1) of a different data class (MYCLASS1).

1. Open your data class (MYCLASS2).
2. In the Methods block of the Methods tab:
   1. Enter a new method code (MYMETH1) in the Code field.
   2. Enter a description for the method in the Description field.
   3. Select the appropriate return type in the Return type field.
   4. Select the Operation check box. This automatically generates the keys in the Keys block.
3. In the Parameters block, enter the parameters (MYPARAM1) that need to be passed.
4. In the Scripts block of the General tab:
   1. Select the appropriate type for your script in the Type field.
   2. Accept the default code displayed in the Scripts field. It is automatically generated using the class code and the script type. You can also manually enter a unique code.
   3. Accept the numeric value displayed in the Running order field. It is automatically generated to control the order in which the $PROPERTIES and $METHODS labels are called in the event. You can also manually enter the running order.
5. Click the Actions button of your script, and click Processing editor. Enter the source code.
   Note: This example shows how to update the property (MYPROP1) in data class MYCLASS1 from data class MYCLASS2.
   

   # Structure MYCLASS2
   ##########################################
   #             METHODS                    #
   ##########################################
   $METHODS
     Case CURPTH
       When ""
           Case ACTION
              When "AINSERT_AFTER" Gosub AINSERT_AFTER  # Update after insert
           Endcase  
     Endcase
   Return
   # Update properties in MYCLASS1 using MYCLASS2
   $AINSERT_AFTER
       # Declaration new instance of MYCLASS1 data class
       Local Instance MYCLASS Using C_MYCLASS1
       MYCLASS = NewInstance C_MYCLASS1 AllocGroup Null
       ASTATUS=fmet MYCLASS.AREAD(this.KEY_VALUE)
       If ASTATUS<>[V]CST_AOK
         ASTATUS = fmet THIS.ASETERROR ("", "Not updated.", [V]CST_AERROR)  
         ARET_VALUE= CST_AFALSE
       Else
       # change property values and update
       MYCLASS.MYPROP1 = this.MYPROP2
       ASTATUS=fmet MYCLASS.AUPDATE
           If ASTATUS<>[V]CST_AOK
             ASTATUS = fmet THIS.ASETERROR ("", "Not updated.", [V]CST_AERROR) 
          ARET_VALUE= CST_AFALSE
       Else
          ARET_VALUE= CST_ATRUE
         Endif
       Endif
       # Free instances
       FreeGroup MYCLASS
   Return

6. Save your script.
7. Save and validate your data class.