Back Order Release Allocation Hook

Back Order Release Allocation Hook (R-BORELC.MAC)

The script file must be located in your CAPITAL program directory and must have the file name R-BORELC.MAC

If the script can be found, it is executed to determine if a back order should be released from the Back Order Control Centre.

Entry Values

Variable	Purpose
Mode	1 = the user selected to release all accounts 2 = the user selected to release one account only 3 = the user selected a marked release only
FromZone	The first zone the user has requested be released. Enterprise & Corporate Edition Only
ToZone	The last zone the user has requuested to be released. Enterprise & Corporate Edition Only.
Borders->X	The fields of the back order table available for inspection.
Stock->X	The fields of the stock table available for inspection.

Return Values

TRUE = the currently selected back order item should be released.

FALSE = the currently selected back order item should not be released

Any other return value will result in CAPITAL deciding if the item should be released.

Comments

If the script exists, it is used to decide whether a stock item should be released. If you wish to replicate the normal release behaviour of CAPITAL, then it is important to understand how CAPITAL decides whether to release a stock item or not. Its rules are:

Is the back ordered item on stock hold? If so, the item is not released.

Is the back ordered item on back order release hold? If so, the item is not released.
If a marked release is being performed (Mode = 3) and the item is not marked for release, a release does not take place.
If the item has an assigned forward date and the forward date is greater than the current system date, the stock item is not released.

The script in the following example replicates the standard release behaviour of CAPITAL.

Example #1

If Mode = 3 .AND. Borders->Release # "Y"

Return FALSE

Endif

If Borders->Hold = "Y" .Or. Stock->Hold = "Y"

Return FALSE

Endif

If .Not. Empty(Borders->Fdate) .And. Borders->Fdate > Today()

Return FALSE

Endif

Return TRUE

Example #2

In this example, if a Sales Order Required date is specified, then back orders are released only if the Required date of the sales order is for the following day. If back orders are released on a Friday, then the following day is treated as Monday.

If Mode = 3 .AND. Borders->Release # "Y"

Return FALSE

Endif

If Borders->Hold = "Y" .Or. Stock->Hold = "Y"

Return FALSE

Endif

If IsEmpty(Borders->Required)

Return TRUE

Endif

If Borders->Required <= Today() + 1

Return TRUE

Endif

If CDOW(Today()) = "Friday" .AND. Borders->Required <= Today() + 2

Return TRUE

Endif

Return FALSE

____________________________