Check the Session.Errors object.

Yeah. i know problem in session. After i open first session. i open another session inside the first session. its possible?

and i don't know how to clear the session and logout

and this error came after i insert another company in sage database setup. before that, my system run with no problem

Private Sub UploadDPR()
Dim runOnceFirst As Boolean
runOnceFirst = True
Dim rcpRead As Boolean
Dim aDesc As String
Dim aQTY As String
Dim aUnitCost As String
rcpRead = False

Try
Using conListComp As New SqlConnection(Connection.strConSQL)
Dim cmdListComp As New SqlCommand
Dim dtReadListComp As SqlDataReader
conListComp.Open()
cmdListComp.Connection = conListComp
cmdListComp.CommandText = "SELECT DISTINCT COMP_ID FROM COMP_CONF WHERE STATUS = 1"
dtReadListComp = cmdListComp.ExecuteReader
While dtReadListComp.Read
Try

Dim AccpacDB As String
Dim mSession As AccpacSession
Dim mSessMgr As AccpacSessionMgr
Dim mDBLinkCmpRW As AccpacCOMAPI.AccpacDBLink
Dim mDBLinkSysRW As AccpacCOMAPI.AccpacDBLink

mSession = New AccpacCOMAPI.AccpacSession
mSessMgr = New AccpacSessionMgr
Dim MSignId As Long

mSessMgr.ForceNewSignon = True

mSession.Init("", "NR", "NR1781", "62A")
mSession.Open("ADMIN", "ADMIN", dtReadListComp("COMP_ID").ToString, Date.Today, 0, 0)
If mSession.IsOpened = True Then
If runOnceFirst Then
Dim removeAll As Long
For removeAll = 1 To MSignId - 1
mSessMgr.Signoff(removeAll)
Next
runOnceFirst = False
End If
End If
mDBLinkCmpRW = mSession.OpenDBLink(tagDBLinkTypeEnum.DBLINK_COMPANY, tagDBLinkFlagsEnum.DBLINK_FLG_READWRITE)
mDBLinkSysRW = mSession.OpenDBLink(tagDBLinkTypeEnum.DBLINK_COMPANY, tagDBLinkFlagsEnum.DBLINK_FLG_READWRITE)
Dim temp As Boolean
Dim PORCP1header As AccpacCOMAPI.AccpacView
Dim PORCP1headerFields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0700", PORCP1header)
PORCP1headerFields = PORCP1header.Fields

Dim PORCP1detail1 As AccpacCOMAPI.AccpacView
Dim PORCP1detail1Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0710", PORCP1detail1)
PORCP1detail1Fields = PORCP1detail1.Fields

Dim PORCP1detail2 As AccpacCOMAPI.AccpacView
Dim PORCP1detail2Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0695", PORCP1detail2)
PORCP1detail2Fields = PORCP1detail2.Fields

Dim PORCP1detail3 As AccpacCOMAPI.AccpacView
Dim PORCP1detail3Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0718", PORCP1detail3)
PORCP1detail3Fields = PORCP1detail3.Fields

Dim PORCP1detail4 As AccpacCOMAPI.AccpacView
Dim PORCP1detail4Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0714", PORCP1detail4)
PORCP1detail4Fields = PORCP1detail4.Fields

Dim PORCP1detail5 As AccpacCOMAPI.AccpacView
Dim PORCP1detail5Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0699", PORCP1detail5)
PORCP1detail5Fields = PORCP1detail5.Fields

Dim PORCP1detail6 As AccpacCOMAPI.AccpacView
Dim PORCP1detail6Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0705", PORCP1detail6)
PORCP1detail6Fields = PORCP1detail6.Fields

Dim PORCP1detail7 As AccpacCOMAPI.AccpacView
Dim PORCP1detail7Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0703", PORCP1detail7)
PORCP1detail7Fields = PORCP1detail7.Fields

Dim PORCP1detail8 As AccpacCOMAPI.AccpacView
Dim PORCP1detail8Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0696", PORCP1detail8)
PORCP1detail8Fields = PORCP1detail8.Fields

Dim PORCP1detail9 As AccpacCOMAPI.AccpacView
Dim PORCP1detail9Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0717", PORCP1detail9)
PORCP1detail9Fields = PORCP1detail9.Fields

Dim PORCP1detail10 As AccpacCOMAPI.AccpacView
Dim PORCP1detail10Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0721", PORCP1detail10)
PORCP1detail10Fields = PORCP1detail10.Fields

Dim PORCP1detail11 As AccpacCOMAPI.AccpacView
Dim PORCP1detail11Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0719", PORCP1detail11)
PORCP1detail11Fields = PORCP1detail11.Fields

Dim PORCP1detail12 As AccpacCOMAPI.AccpacView
Dim PORCP1detail12Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0697", PORCP1detail12)
PORCP1detail12Fields = PORCP1detail12.Fields

Dim PORCP1detail13 As AccpacCOMAPI.AccpacView
Dim PORCP1detail13Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0704", PORCP1detail13)
PORCP1detail13Fields = PORCP1detail13.Fields

Dim PORCP1detail14 As AccpacCOMAPI.AccpacView
Dim PORCP1detail14Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0789", PORCP1detail14)
PORCP1detail14Fields = PORCP1detail14.Fields

Dim PORCP1detail15 As AccpacCOMAPI.AccpacView
Dim PORCP1detail15Fields As AccpacCOMAPI.AccpacViewFields
mDBLinkCmpRW.OpenView("PO0780", PORCP1detail15)
PORCP1detail15Fields = PORCP1detail15.Fields

Dim header() As Object = {PORCP1detail2, PORCP1detail1, PORCP1detail3, PORCP1detail4, PORCP1detail5, PORCP1detail6, PORCP1detail7, PORCP1detail8}
PORCP1header.Compose(header)

PORCP1detail1.Compose({PORCP1header, PORCP1detail2, PORCP1detail5, Nothing, Nothing, PORCP1detail9, PORCP1detail14, PORCP1detail15})

PORCP1detail2.Compose({PORCP1header, PORCP1detail1})

PORCP1detail3.Compose({PORCP1header, PORCP1detail4, PORCP1detail5, PORCP1detail10})

PORCP1detail4.Compose({PORCP1detail3, PORCP1detail5, PORCP1header, Nothing, Nothing, PORCP1detail11, PORCP1detail8})

PORCP1detail5.Compose({PORCP1header, PORCP1detail2, PORCP1detail1, PORCP1detail4, PORCP1detail3, PORCP1detail6, PORCP1detail8})

PORCP1detail6.Compose({PORCP1header, PORCP1detail5})

PORCP1detail7.Compose({PORCP1header})

PORCP1detail8.Compose({PORCP1detail4, PORCP1detail3, PORCP1header, PORCP1detail5, PORCP1detail12})

PORCP1detail9.Compose({PORCP1detail1})

PORCP1detail10.Compose({PORCP1detail3})

PORCP1detail11.Compose({PORCP1detail4})

PORCP1detail12.Compose({Nothing, PORCP1detail8, PORCP1detail4})

PORCP1detail13.Compose({PORCP1detail8, PORCP1detail1})

PORCP1detail14.Compose({PORCP1detail1, Nothing, Nothing})

PORCP1detail15.Compose({PORCP1detail1, Nothing, Nothing})

Dim conn As Object 'ADODB.Connection
Dim RS As Object 'ADODB.RecordSet
Dim data As Object

Using con As New SqlConnection(Connection.strConSQL)
con.Open()
Dim cmd As New SqlCommand
Dim dtRead As SqlDataReader
Dim iRows As Integer
iRows = 1
'conn.Close
Dim mCompID As String
mCompID = mDBLinkCmpRW.Session.CompanyID

Dim rsUser As Object
Dim dataUser As Object
'conn.Open
rsUser = CreateObject("ADODB.Recordset")

'Get data from local database ATM
cmd.Connection = con
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "DPR_SUMMARY"
cmd.Parameters.AddWithValue("@COMP_ID", mCompID)
dtRead = cmd.ExecuteReader
cmd.CommandTimeout = 0
Dim iColumn As Integer
iColumn = rsUser.Fields.Count

Dim i As Integer

While dtRead.Read
Dim count As Integer = 0
Dim status As String = ""
Try
Using conCount As New SqlConnection(Connection.strConSQL)
conCount.Open()
Dim cmdCount As New SqlCommand
cmdCount.CommandType = CommandType.StoredProcedure
cmdCount.CommandText = "SP_DPR_STATUS_CHECK"
cmdCount.Parameters.AddWithValue("@RCPNUMBER", dtRead("RCPNUMBER").ToString)
cmdCount.Parameters.AddWithValue("@COMP_ID", dtRead("AUDTORG").ToString)
cmdCount.Connection = conCount
Dim dtReadQTY As SqlDataReader
dtReadQTY = cmdCount.ExecuteReader
While dtReadQTY.Read
count = Integer.Parse(dtReadQTY("QTY").ToString)
'status = dtReadQTY("UPLOADED").ToString
End While
End Using
Catch ex As Exception

End Try
Dim oDataUser As String
oDataUser = ""
oDataUser = oDataUser & Trim(dtRead("DATE").ToString) & " "

PORCP1header.Order = 1
PORCP1header.Order = 0

PORCP1headerFields.FieldByName("RCPHSEQ").PutWithoutVerification("0") ' Receipt Sequence Key

PORCP1header.Init()
PORCP1header.Order = 1
temp = PORCP1detail1.Exists
PORCP1detail1.RecordClear()
PORCP1detail3.RecordClear()
temp = PORCP1detail4.Exists
PORCP1detail4.RecordClear()
PORCP1detail6.Init()
PORCP1detail2.Init()
PORCP1headerFields.FieldByName("RCPNUMBER").Value = dtRead("RCPNUMBER").ToString ' Receipt Number
temp = PORCP1header.Exists
If PORCP1header.Read And count > 1 Then
Try
'PORCP1header.Init()
'PORCP1header.Order = 1
'temp = PORCP1detail1.Exists
'PORCP1detail1.RecordClear()
'PORCP1detail3.RecordClear()
'temp = PORCP1detail4.Exists
'PORCP1detail4.RecordClear()
'PORCP1detail6.Init()
'PORCP1detail2.Init()
PORCP1headerFields.FieldByName("RCPNUMBER").Value = dtRead("RCPNUMBER").ToString ' Receipt Number
temp = PORCP1header.Exists
PORCP1header.Read()
PORCP1detail6.Init()

PORCP1detail6Fields.FieldByName("RCPRREV").PutWithoutVerification("-999999999999999999") ' Line Number

PORCP1detail6.Browse("", 1)
PORCP1detail6.Fetch()
PORCP1detail2.Init()

PORCP1detail2Fields.FieldByName("RCPCREV").PutWithoutVerification("-999999999999999999") ' Comment Identifier

PORCP1detail2.Browse("", 1)
PORCP1detail2.Fetch()
PORCP1detail1Fields.FieldByName("RCPLREV").PutWithoutVerification("31") ' Line Number
PORCP1detail1.Read()
PORCP1detail1Fields.FieldByName("ITEMDESC").Value = dtRead("DESC").ToString ' Item Description
PORCP1detail1Fields.FieldByName("RQRECEIVED").Value = dtRead("RQRECEIVED").ToString ' Quantity Received
PORCP1detail1Fields.FieldByName("UNITCOST").Value = dtRead("UNITCOST").ToString ' Unit Cost

temp = PORCP1detail1.Exists
PORCP1detail1.Update()

PORCP1detail1Fields.FieldByName("RCPLREV").PutWithoutVerification("31") ' Line Number

PORCP1detail1.Read()
PORCP1headerFields.FieldByName("DATE").Value = Date.Parse(dtRead("xDATE").ToString)
PORCP1detail5Fields.FieldByName("FUNCTION").Value = "61" ' Function
PORCP1detail5.Process()
PORCP1headerFields.FieldByName("DATE").Value = Date.Parse(dtRead("xDATE").ToString)
PORCP1detail5Fields.FieldByName("FUNCTION").Value = "61" ' Function
PORCP1detail5.Process()
PORCP1detail3.Browse("(RCPHSEQ = 2516699)", 1)
PORCP1detail3.RecordClear()
PORCP1detail5Fields.FieldByName("FUNCTION").PutWithoutVerification("10") ' Function
PORCP1detail5.Process()
temp = PORCP1header.Exists
PORCP1header.Update()
PORCP1detail5Fields.FieldByName("RCPHSEQ").PutWithoutVerification("2516699") ' Receipt Sequence Key

PORCP1detail5Fields.FieldByName("FUNCTION").PutWithoutVerification("2") ' Function

PORCP1detail5.Process()
PORCP1header.Init()
PORCP1header.Order = 0

PORCP1headerFields.FieldByName("RCPHSEQ").PutWithoutVerification("0") ' Receipt Sequence Key

PORCP1header.Init()
PORCP1header.Order = 1
temp = PORCP1detail1.Exists
PORCP1detail1.RecordClear()
PORCP1detail3.RecordClear()
temp = PORCP1detail4.Exists
PORCP1detail4.RecordClear()
PORCP1detail6.Init()
PORCP1detail2.Init()
Using conUpdate As New SqlConnection(Connection.strConSQL)
conUpdate.Open()
Dim cmdUpdate As New SqlCommand
cmdUpdate.Connection = conUpdate
cmdUpdate.CommandText = "UPDATE DPR_FORMATED SET UPLOADED = 'TRUE' WHERE RCPNUMBER = '" + dtRead("RCPNUMBER").ToString + "'"
cmdUpdate.ExecuteNonQuery()
conUpdate.Close()
End Using
Catch ex As Exception
MsgBox(ex.ToString)
End Try
ElseIf count = 1 Then
If PORCP1header.Read Then
'Try
' Using conCheckStatus As New SqlConnection(Connection.strConSQL)
' conCheckStatus.Open()
' Dim cmdCheckStatus As New SqlCommand
' cmdCheckStatus.Connection = conCheckStatus
' cmdCheckStatus.CommandText = "SELECT RCPNUMBER, UPLOADED FROM DPR_FORMATED WHERE RCPNUMBER = '" + dtRead("RCPNUMBER").ToString + "' GROUP BY RCPNUMBER, UPLOADED"
' Dim dtReadStatus As SqlDataReader
' dtReadStatus = cmdCheckStatus.ExecuteReader
' While dtReadStatus.Read
' If Not dtReadStatus("UPLOADED") Then
' Using conUpdate As New SqlConnection(Connection.strConSQL)
' conUpdate.Open()
' Dim cmdUpdate As New SqlCommand
' cmdUpdate.Connection = conUpdate
' cmdUpdate.CommandText = "UPDATE DPR_FORMATED SET UPLOADED = 'TRUE' WHERE RCPNUMBER = '" + dtRead("RCPNUMBER").ToString + "'"
' cmd.CommandTimeout = 0
' cmdUpdate.ExecuteNonQuery()
' conUpdate.Close()
' End Using
' End If
' End While
' End Using
'Catch ex As Exception

'End Try
ElseIf Integer.Parse(dtRead("EXTENDED").ToString) <> 0 Then
Try
'PORCP1header.Init()
'PORCP1header.Order = 1
'temp = PORCP1detail1.Exists
'PORCP1detail1.RecordClear()
'PORCP1detail3.RecordClear()
'temp = PORCP1detail4.Exists
'PORCP1detail4.RecordClear()
'PORCP1detail6.Init()
'PORCP1detail2.Init()
'PORCP1headerFields.FieldByName("RCPNUMBER").Value = dtRead("RCPNUMBER").ToString ' Receipt Number
'temp = PORCP1header.Exists
'PORCP1detail6.Init()

PORCP1headerFields.FieldByName("VDCODE").Value = dtRead("VDCODE").ToString ' Vendor
PORCP1headerFields.FieldByName("PROCESSCMD").PutWithoutVerification("1") ' Command

PORCP1header.Process()

PORCP1headerFields.FieldByName("PONUMBER").Value = dtRead("PONUMBER").ToString ' Purchase Order Number

PORCP1header.Order = 0
PORCP1detail5Fields.FieldByName("LOADPORNUM").Value = dtRead("PONUMBER").ToString ' Purchase Order Number

PORCP1detail5Fields.FieldByName("FUNCTION").PutWithoutVerification("4") ' Function

PORCP1detail5.Process()
PORCP1header.Order = 1
PORCP1detail3Fields.FieldByName("PROCESSCMD").PutWithoutVerification("1") ' Command
PORCP1detail3.Process()
PORCP1detail1Fields.FieldByName("RCPLREV").PutWithoutVerification("-1") ' Line Number
PORCP1detail1.Read()

PORCP1detail1Fields.FieldByName("RQRECEIVED").Value = dtRead("RQRECEIVED").ToString ' Quantity Received

PORCP1detail1.Update()

PORCP1headerFields.FieldByName("DATE").Value = Date.Parse(dtRead("xDATE").ToString) ' DATE

PORCP1detail1.Update()

PORCP1detail1Fields.FieldByName("RCPLREV").PutWithoutVerification("-1") ' Line Number

PORCP1detail1.Read()

PORCP1detail1Fields.FieldByName("UNITCOST").Value = dtRead("UNITCOST").ToString ' Unit Cost

temp = PORCP1detail1.Exists
temp = PORCP1detail1.Exists

PORCP1detail1Fields.FieldByName("ITEMDESC").Value = dtRead("DESC").ToString ' Item Description

temp = PORCP1detail1.Exists

PORCP1detail1Fields.FieldByName("LOCATION").Value = dtRead("LOCATION").ToString ' Location

temp = PORCP1detail1.Exists

PORCP1detail1Fields.FieldByName("LOCATION").Value = dtRead("LOCATION").ToString ' Location

temp = PORCP1detail1.Exists
temp = PORCP1detail1.Exists
PORCP1detail1.Update()

PORCP1detail1Fields.FieldByName("RCPLREV").PutWithoutVerification("-1") ' Line Number

PORCP1detail1.Read()
temp = PORCP1detail1.Exists

PORCP1detail1Fields.FieldByName("GLNONSTKCR").Value = dtRead("GLNONSTKCR").ToString ' Non-Stock Clearing Account

temp = PORCP1detail1.Exists
temp = PORCP1detail1.Exists
PORCP1detail1.Update()

PORCP1detail1Fields.FieldByName("RCPLREV").PutWithoutVerification("-1") ' Line Number

PORCP1detail1.Read()
PORCP1detail3.Browse("(RCPHSEQ = 2510053)", 1)
PORCP1detail3.RecordClear()
PORCP1detail5Fields.FieldByName("FUNCTION").PutWithoutVerification("10") ' Function
PORCP1detail5.Process()
temp = PORCP1header.Exists
PORCP1header.Insert()
PORCP1detail5Fields.FieldByName("RCPHSEQ").PutWithoutVerification("2510053") ' Receipt Sequence Key

PORCP1detail5Fields.FieldByName("FUNCTION").PutWithoutVerification("2") ' Function

PORCP1detail5.Process()
PORCP1header.Init()
PORCP1header.Order = 0

PORCP1headerFields.FieldByName("RCPHSEQ").PutWithoutVerification("0") ' Receipt Sequence Key

PORCP1header.Init()
PORCP1header.Order = 1
temp = PORCP1detail1.Exists
PORCP1detail1.RecordClear()
PORCP1detail3.RecordClear()
temp = PORCP1detail4.Exists
PORCP1detail4.RecordClear()
PORCP1detail6.Init()
PORCP1detail2.Init()
'PORCP1header.RecordClear()
'PORCP1header.Session.Close()
Using conUpdate As New SqlConnection(Connection.strConSQL)
conUpdate.Open()
Dim cmdUpdate As New SqlCommand
cmdUpdate.Connection = conUpdate
cmdUpdate.CommandText = "UPDATE DPR_FORMATED SET UPLOADED = 'TRUE' WHERE RCPNUMBER = '" + dtRead("RCPNUMBER").ToString + "'"
cmdUpdate.ExecuteNonQuery()
conUpdate.Close()
End Using
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End If
End If
End While
End Using
PORCP1header.Session.Close()
mSessMgr.Signoff(dtReadListComp("COMP_ID").ToString)
mSession.Close()
Dim a As Boolean = mSession.IsOpened
Catch ex As Exception
'MsgBox("Company not exist")
End Try
End While
conListComp.Close()
End Using
Catch ex As Exception
MsgBox("Connection Error")
End Try
End Sub

This is my code. i had tried for 3 days. can you help me?

It is very clear that you do not have sufficient technical skills to be doing this programming.  Please contact someone in your office with programming training.

im the only one programmer here. yeah, im new in this programming. does accpac have programming training for macro?

Thanks Jay, i have the solution. And that was something my own mistake. hahahahah. u mention session. I had make dummy for period 2018 and period 2017 was closed. and my data was data 2017. hahahahahaha. so, while insert, its error. because the fiscal period was close. Its was funny one. And i been stress out for 3 days. hahahahah. Thanks jay