Update GL_ActiveBatchComment Script Help

SOLVED

Hello everyone, apologies if this has been asked before but I wasn't able to find something quite like this.

We're on SAGE 100c 2018 v6.00.6.0

I have a script I want to run on a table to update the batch comments based on a few conditions.  I have narrowed my problem down to the section in my script around GL_ActiveBatchComment.  I looked in SAGE and noticed that this table does not have a Business Object associated with it.



Here is my script for reference

receiptType="":vendorNum="":batchNum="":approval="":batchComment="":firstBatchNum="":myReceiptType="":myVendorNum="":myBatchNum="":myApproval=""
:oCompany=""
Dim readyToWrite

batchComment="EDI Batch - All Receivers Approved"

oCompany = oSession.CompanyCode
if oCompany = "TST" then
result = oBusObj.GetValue("ReceiptType$",receiptType)
result = oBusObj.GetValue("VendorNo$",vendorNum)
result = oBusObj.GetValue("BatchNo$",batchNum)
result = oBusObj.GetValue("UDF_RECEIVER_APPROVED$",approval)

if (receiptType="G") and (vendorNum="MOORE01") and (batchNum <> "") and (approval="Y") then

Set oPO_ReceiptHeader = oSession.AsObject(oSession.GetObject("PO_Receipt_bus"))
oPO_ReceiptHeader.MoveFirst()
retVal = oPO_ReceiptHeader.GetValue("ReceiptType$",myReceiptType)
retVal = oPO_ReceiptHeader.GetValue("VendorNo$",myVendorNum)
retVal = oPO_ReceiptHeader.GetValue("BatchNo$",myBatchNum)
retVal = oPO_ReceiptHeader.GetValue("UDF_RECEIVER_APPROVED$",myApproval)

Do While oPO_ReceiptHeader.EOF<>1
if (receiptType = myReceiptType) and (vendorNum = myVendorNum) and (batchNum = myBatchNum) then
if myApproval = "Y" then

readyToWrite = true

else
readyToWrite = false
Exit Do

End if

End if

oPO_ReceiptHeader.MoveNext()
retVal = oPO_ReceiptHeader.GetValue("ReceiptType$",myReceiptType)
retVal = oPO_ReceiptHeader.GetValue("VendorNo$",myVendorNum)
retVal = oPO_ReceiptHeader.GetValue("BatchNo$",myBatchNum)
retVal = oPO_ReceiptHeader.GetValue("UDF_RECEIVER_APPROVED$",myApproval)

Loop


retVal = oSession.AsObject(oSession.UI).Messagebox("right before readyToWrite = true check")
if (readyToWrite = true) then
retVal = oSession.AsObject(oSession.UI).Messagebox("inside the readyToWrite = true check")

retVal = oSession.AsObject(oSession.UI).Messagebox("BEFORE ACTIVE BATCH OPEN")
Set oGL_CompanyActiveBatch = oSession.AsObject(oSession.GetObject("GL_CompanyActiveBatch_bus"))
retVal = oSession.AsObject(oSession.UI).Messagebox("right AFTER opening active batch!")

'Set comment to whatever is in the field, if anything
Dim comment
retVal = oSession.AsObject(oSession.UI).Messagebox("after comment DIM")
result = oGL_CompanyActiveBatch.GetValue("Comment$", comment)
retVal = oSession.AsObject(oSession.UI).Messagebox("after comment get value")
'If the comment contains a batch comment already, do nothing else append batch comment
if (LEFT(comment,34) = "EDI Batch - All Receivers Approved") then
retVal = oSession.AsObject(oSession.UI).Messagebox("inside batch comment check")
else
comment = "EDI Batch - All Receivers Approved" + " " + comment
retVal = oSession.AsObject(oSession.UI).Messagebox("after batch comment has been set")
'Set value and write
result = oGL_CompanyActiveBatch.SetValue("Comment$",comment)
retVal = oSession.AsObject(oSession.UI).Messagebox("Active batch comment set")
result = oGL_CompanyActiveBatch.Write()
retVal = oSession.AsObject(oSession.UI).Messagebox("ACTIVE BATCH HAS BEEN WRITTEN")
end if
else
end if
Else
end if
end if

If it is not possible to edit comments in this table outside of SAGE, is there a different way that I might update the batch comments?

Thank you in advance for any help!