Caveats & Gotchas

Example

When creating an (SOH) Order the Order, Billing or Delivery address by default always revert to the saved, default address for the Customer.

The reason, the global variable GACTSAD (Activity code "SAD" systematic Storage of addresses) is forced to a value which triggers the default address to be copied to the order, irrespective of any value set through webservices.

An excerpt from the SUBSOH $OUVRE function shows GACTSAD variable being set to 2 only in webservices mode (we don’t know why) where the original value of the variable (GACTSAD) is saved to another local variable where it’s restored after the database transaction is committed.

If dim(GWEBSERV)=1 & GWEBSERV=1
.
.
#----- Gestion des adresses
Local Integer SAVGACTSAD : SAVGACTSAD=GACTSAD : GACTSAD=2
.
.
Endif

The value of GACTSAD is checked within the execution of the CHARGENTENTE subprogram called from the INICRE method. Where the value is set to ‘2’, the Address Screen is reloaded (CHARGE_ADRMASK) with the default address from the Sold-To customer.

If GACTSAD=2 & find([M:ADB1]ADBFLG,0,1) Call CHARGE_ADRMSK("ADB1", [F:SOH]BPCORD) From TRTVENDIV : Endif : # Bug 67868

The same logic performed for the Billing and Delivery addresses.

To resolve, the default functionality must be overridden. The recommended approach is to perform the override in the Special Processing program for the object.

The following excerpt from SPESOH illustrates how to achieve this.

# Mask Management SOH4 (Specific)

$ACTION
Case ACTION
When "INICRE" : Gosub INICRE
When "CREATION" : Gosub CREATION
Endcase
Return
#Swap out the logic
$INICRE
If GWEBSERV
#Ensure the variable is not already defined.
Local Integer SPESAVGACTSAD : SPESAVGACTSAD = GACTSAD : GACTSAD = 1
Endif
Return

#Restore the logic after the transaction is complete.
$CREATION
If GWEBSERV
GACTSAD = SPESAVGACTSAD
Endif
Return