Setting DevExpress persistent object property

I have a grid bound to a database table using DevExpress XPO.  The business class is defined like this:

      $set ILUSING"DevExpress.Xpo".
      $set ILUSING"System".
       class-id AG_200_Reconcile.basic_trans is public is partial inherits type XPBaseObject..

       working-storage.

         01  fcleared_status           string.


       property-id cleared_status string public.
       getter.
           set property-value to fcleared_status
 
       setter.
           set fcleared_status to property-value

       end property.

To update the record in the database, I need to call the DevExpress SetPropertyValue method.  C# Intellisense shows me this method and it is part of XPBaseObject.  This is an example of how this is coded in C#:


string fcleared_status;
public string cleared_status {
   get { return fcleared_status; }
   set { SetPropertyValue("cleared_status", ref fcleared_status, value); }
}

Intellisense in Visual COBOL does not find this method.  I've tried using  this syntax in COBOL but maybe I have it wrong:

       property-id cleared_status string public.
       getter.
           set property-value to fcleared_status
     
       setter.
           invoke SetPropertyValue("cleared_status", by reference fcleared_status, property-value)
      
       end property.







        

Tags:

Parents Reply Children
No Data