How to Insert Sub Object

If there is already relation parent object in DObject O/R Mapping persistence layer, you can also insert a new sub object in the following way:

var

  customer : ICustomer;

  order : IOrder;

begin

  customer := TCustomer.GetByCustomerID(ObjectManager, 'ATEST');

 

  order := customer.NewOrder;

  order.EmployeeID := 1;

  order.ShipVia := 1;

  order.OrderDate := Now;

  order.ShipCity := 'Macrobject City';

  order.Save;

end;

Related Topics

Using Persistence Layer