var

  query : IUpdateQuery;

begin

  query := TUpdateQuery.Create;

  query

    .Update(NW.Order)

    .Set_(NW.Order.ShipVia, 3)

    .Where( OQL

      .Criteria(NW.Order.CustomerID).EQ('ATEST')

      .And_(NW.Order.ShipVia).EQ(1) );

  ObjectManager.ExecuteCommand(query);

end;