Hi Sage Support,

Unable to post a IC Receipt as IC Receipt RETURN using a Macro .

Executed the Macro using Run Command ( F5 ) , I am getting below Error :

Method 'Update' of object 'IAccpacView' failed

Execute the Macro using Step by Step command, I am getting below Error :

Automation Error , Unspecified error.

Thank you, Tamil

Note : I have copy and pasted my macro below 

Sub MainSub()
'
' Sage 300 Macro file: C:\Users\tamilvanan\Desktop\CREATE_RECEIPT_RETURN_POST.avb
' Recorded at: Mon Jun 25 11:57:27 2018
'

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
Dim ICREE1header As AccpacCOMAPI.AccpacView
Dim ICREE1headerFields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView "IC0590", ICREE1header
Set ICREE1headerFields = ICREE1header.Fields

Dim ICREE1detail1 As AccpacCOMAPI.AccpacView
Dim ICREE1detail1Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView "IC0580", ICREE1detail1
Set ICREE1detail1Fields = ICREE1detail1.Fields

Dim ICREE1detail2 As AccpacCOMAPI.AccpacView
Dim ICREE1detail2Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView "IC0595", ICREE1detail2
Set ICREE1detail2Fields = ICREE1detail2.Fields

Dim ICREE1detail3 As AccpacCOMAPI.AccpacView
Dim ICREE1detail3Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView "IC0585", ICREE1detail3
Set ICREE1detail3Fields = ICREE1detail3.Fields

Dim ICREE1detail4 As AccpacCOMAPI.AccpacView
Dim ICREE1detail4Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView "IC0582", ICREE1detail4
Set ICREE1detail4Fields = ICREE1detail4.Fields

Dim ICREE1detail5 As AccpacCOMAPI.AccpacView
Dim ICREE1detail5Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView "IC0587", ICREE1detail5
Set ICREE1detail5Fields = ICREE1detail5.Fields

ICREE1header.Compose Array(ICREE1detail1, ICREE1detail2)

ICREE1detail1.Compose Array(ICREE1header, Nothing, Nothing, Nothing, Nothing, Nothing, ICREE1detail3, ICREE1detail5, ICREE1detail4)

ICREE1detail2.Compose Array(ICREE1header)

ICREE1detail3.Compose Array(ICREE1detail1)

ICREE1detail4.Compose Array(ICREE1detail1)

ICREE1detail5.Compose Array(ICREE1detail1)

ICREE1header.Order = 2
ICREE1header.FilterSelect "(DELETED = 0)", True, 2, 0
ICREE1header.Order = 2

ICREE1headerFields("RECPTYPE").Value = "2" ' Receipt Type
ICREE1header.Init
ICREE1header.Order = 0

ICREE1headerFields("SEQUENCENO").PutWithoutVerification ("0") ' Sequence Number

ICREE1header.Init
temp = ICREE1detail1.Exists
ICREE1detail1.RecordClear
ICREE1header.Order = 2

ICREE1headerFields("RECPNUMBER").Value = "RCP000058" ' Receipt Number
ICREE1headerFields("PROCESSCMD").PutWithoutVerification ("0") ' Process Command

ICREE1header.Process
temp = ICREE1header.Exists
ICREE1header.Read

ICREE1headerFields("RECPTYPE").Value = "2" ' Receipt Type
ICREE1headerFields("STATUS").PutWithoutVerification ("1") ' Status

ICREE1detail1Fields("LINENO").PutWithoutVerification ("100") ' Line Number
ICREE1detail1.Read

ICREE1headerFields("PROCESSCMD").PutWithoutVerification ("0") ' Process Command
ICREE1header.Process

ICREE1header.Update

ICREE1header.Init
ICREE1header.Order = 0

ICREE1headerFields("SEQUENCENO").PutWithoutVerification ("0") ' Sequence Number

ICREE1header.Init
temp = ICREE1detail1.Exists
ICREE1detail1.RecordClear
ICREE1header.Order = 2

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