Here is a macro recording for this issue.....anyone with insights on where to look for the solution
Sub MainSub()
'
' Sage 300 ERP Macro file: C:\Program Files (x86)\Sage\Sage 300 ERP\Macros\MACRO01.AVB
' Recorded at: Mon Apr 14 12:09:26 2014
'
On Error GoTo ACCPACErrorHandler
' TODO: To increase efficiency, comment out any unused DB links.
Dim mDBLinkCmpRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkCmpRW = OpenDBLink(DBLINK_COMPANY, DBLINK_FLG_READWRITE)
Dim mDBLinkSysRW As AccpacCOMAPI.AccpacDBLink
Set mDBLinkSysRW = OpenDBLink(DBLINK_SYSTEM, DBLINK_FLG_READWRITE)
Dim temp As Boolean
OEINV15headerFields("SHINUMBER").Value = "SH00000448" ' Shipment Number
OEINV15headerFields("INV1SHIPMT").Value = "1" ' Generate Inv. from Single Ship.
OEINV15header.Process
temp = OEINV15header.Exists
temp = OEINV15header.Exists
temp = OEINV15header.Exists
temp = OEINV15header.Exists
temp = OEINV15header.Exists
temp = OEINV15header.Exists
temp = OEINV15header.Exists
temp = OEINV15header.Exists
temp = OEINV15header.Exists
temp = OEINV15header.Exists
temp = OEINV15header.Exists
OEINV15headerFields("OECOMMAND").PutWithoutVerification ("4") ' Process O/E Command
OEINV15header.Process
temp = OEINV15header.Exists
OEINV15header.Insert
OEINV15header.Cancel
Exit Sub
ACCPACErrorHandler:
Dim lCount As Long
Dim lIndex As Long
If Errors Is Nothing Then
MsgBox Err.Description
Else
lCount = Errors.Count
If lCount = 0 Then
MsgBox Err.Description
Else
For lIndex = 0 To lCount - 1
MsgBox Errors.Item(lIndex)
Next
Errors.Clear
End If
Resume Next
End If
End Sub