Preventing ACE posting

It has long been known that posting up ACE and/or CASE alternatives may have unintended consequences when the parent/child alternatives have records that are in conflict. If you ever want to prevent all users from posting an ACE alternative, you can use this code I wrote to do that.

This code snippet has been written in a patch format. You can read more about how to create your own patches here.

The define_method_synonym() approach is described here. Note that because the core method database_view.post() source code is not shipped with the product, we need to use the define_method_synonym() approach to wrap our own custom functionality around it without modifying the core restricted functionality.

#% text_encoding = iso8859_1

_package sw

$

sw!patch_software( "ds_src", 1 )

$

# use define_method_synonym() to wrap some of our behavior

# around the core method without redefining the core behavior.

_if database_view.method(:original!post|()|) _is _unset

_then

database_view.define_method_synonym(:original!post|()|,:post|()|)

_endif

$

_pragma(classify_level=restricted, usage={redefinable})

_method database_view.post(_gather args)

## Post changes in this alternative to the parent,

## performing an implicit commit() if any updates are

## outstanding.

##

## Returns _true if there were changes to post, _false

## otherwise.

##

## If the data dictionary has been modified, then the modified

## version must have been allocated a datamodel version first.

##

## External databases are checked to ensure that if they are

## updated, that they are prepared to commit (i.e. they are

## running). An error is raised if one is not prepared to

## commit.

##

## THIS REDEFINED VERSION OF THE METHOD HAS BEEN MODIFIED TO

## DISALLOW POSTING ACE ALTERNATIVES.

_if _self.name.canonical _is :ace

_then

condition.raise(:cannot_post_ace_database)

_endif

_return _self.original!post(_scatter args)

_endmethod

$

_pragma(classify_level=restricted, usage={redefinable})

## raised by database_view.post() when database_view is named

## :ace.

condition.define_condition(:cannot_post_ace_database,:user_error,{})

$

read_message_patch(:condition,_unset,:en_us)

$

:cannot_post_ace_database Posting ACE alternatives is not safe and has been disabled.

$

sw!declare_patch(1000000001,"1cst","Prevents posting ACE alternative.")

$