The LastErrMessage i get when i am setting the SO Number is:

I can click OK and continue importing invoices but the Sales Order never gets updated.

Regards,

I am not sure of the scripting implications, but I've run into similar problems creating invoices from SO with VI imports.

If batches are enabled, it is a required field.  For a script you probably need to create / take ownership of a batch # separately.  (VI does that when adding the field to a job).

Get / set the invoice #, then the SO# (which cannot be locked).

As you add lines, be sure to not set ItemCode... but instead use the LineKey from the SO, set as the OrderLineKey in the invoice detail table (then quantity shipped...).  This allows you to invoice lines from the SO, instead of adding new lines to the SO.

Thanks Kevin, I'll give that a try..

Regards,

Any entry class that can have batches enabled will have a BatchEnabled property that you can check, if it is not equal to 0 then you need to use the SelectBatch method.

It should be inherited from the SY_BatchDataEntry class.

File Layouts and Program Information - SY_BatchDataEntry (sage.com)

If you are having to update a previously saved invoice record, then you will need to get the batch number first.  You can do this with GetResultSets or using ODBC.  GetResultSets will be a little more streamlined since you'll just be using the object to call the method.  In your case, something like the following should work.  Change Ch r to Chr.

If oInv.nBatchEnabled <> 0 Then
	sBatchNo = ""
	sColumns1 = "BatchNo$"
	sColumns2 = "InvoiceNo$"
	sResults1 = ""
	sResults2 = ""
	sFilter = "UCS(InvoiceNo$)=UCS(""" & sInvoiceNo & """)"
	sKeyBegin = UCase(sInvoiceNo)
	sKeyEnd = UCase(sInvoiceNo) & Ch r(255)
	oInv.MoveFirst
	nRetVal = 0 : nRetVal = oInv.nGetResultSets(sColumns1, sColumns2, sResults1, sResults2, sFilter, sKeyBegin, sKeyEnd)
	If nRetVal = 1 Then
		sBatchNo = Mid(sResults1, 3, Len(sResults1) - 3)
	End If
	nRetVal = 0 : oInv.sLastErrorMsg = "" : nRetVal = oInv.nSelectBatch(sBatchNo)
	If nRetVal = 0 Then 
		MsgBox "oInv.nSelectBatch(""" & sBatchNo & """): " & nRetVal & vbCrLf & "oInv.sLastErrorMsg: " & oInv.sLastErrorMsg
	End If
End If

More info on GetResultSets can be found here.

https://help-sage100.na.sage.com/2020/FLOR/index.htm#Object_Reference/BaseSystem/SY_Service.htm 

For the sales order number, as Kevin said if you are manually adding the lines to the invoice for a sales order, you need to have the OrderLineKey.  You can also use the CopyLinesFromSalesOrder method.

https://help-sage100.na.sage.com/2020/FLOR/index.htm#Object_Reference/SO/SO_InvoiceDetail_Bus.html

You pass the sales order number as the first argument and can optionally pass "YES" as the second argument to ship all lines completely.

However, if you are on version 2019+ where they added the feature to invoice multiple sales orders on one invoice, you may need to revise this to work with those new methods.

Check this thread Receipt of Invoice adding lines using BOI with multiple POs - Business Object Interface - Sage 100 - Sage City Community, it is for receipts for purchase orders so just swap the "purchaseorder" in the method names for "salesorder".

More info on those methods can be found here.

https://help-sage100.na.sage.com/2020/FLOR/index.htm#Object_Reference/SO/SO_Invoice_bus.html 

Any entry class that can have batches enabled will have a BatchEnabled property that you can check, if it is not equal to 0 then you need to use the SelectBatch method.

It should be inherited from the SY_BatchDataEntry class.

File Layouts and Program Information - SY_BatchDataEntry (sage.com)

If you are having to update a previously saved invoice record, then you will need to get the batch number first.  You can do this with GetResultSets or using ODBC.  GetResultSets will be a little more streamlined since you'll just be using the object to call the method.  In your case, something like the following should work.  Change Ch r to Chr.

If oInv.nBatchEnabled <> 0 Then
	sBatchNo = ""
	sColumns1 = "BatchNo$"
	sColumns2 = "InvoiceNo$"
	sResults1 = ""
	sResults2 = ""
	sFilter = "UCS(InvoiceNo$)=UCS(""" & sInvoiceNo & """)"
	sKeyBegin = UCase(sInvoiceNo)
	sKeyEnd = UCase(sInvoiceNo) & Ch r(255)
	oInv.MoveFirst
	nRetVal = 0 : nRetVal = oInv.nGetResultSets(sColumns1, sColumns2, sResults1, sResults2, sFilter, sKeyBegin, sKeyEnd)
	If nRetVal = 1 Then
		sBatchNo = Mid(sResults1, 3, Len(sResults1) - 3)
	End If
	nRetVal = 0 : oInv.sLastErrorMsg = "" : nRetVal = oInv.nSelectBatch(sBatchNo)
	If nRetVal = 0 Then 
		MsgBox "oInv.nSelectBatch(""" & sBatchNo & """): " & nRetVal & vbCrLf & "oInv.sLastErrorMsg: " & oInv.sLastErrorMsg
	End If
End If

More info on GetResultSets can be found here.

https://help-sage100.na.sage.com/2020/FLOR/index.htm#Object_Reference/BaseSystem/SY_Service.htm 

For the sales order number, as Kevin said if you are manually adding the lines to the invoice for a sales order, you need to have the OrderLineKey.  You can also use the CopyLinesFromSalesOrder method.

https://help-sage100.na.sage.com/2020/FLOR/index.htm#Object_Reference/SO/SO_InvoiceDetail_Bus.html

You pass the sales order number as the first argument and can optionally pass "YES" as the second argument to ship all lines completely.

However, if you are on version 2019+ where they added the feature to invoice multiple sales orders on one invoice, you may need to revise this to work with those new methods.

Check this thread Receipt of Invoice adding lines using BOI with multiple POs - Business Object Interface - Sage 100 - Sage City Community, it is for receipts for purchase orders so just swap the "purchaseorder" in the method names for "salesorder".

More info on those methods can be found here.

https://help-sage100.na.sage.com/2020/FLOR/index.htm#Object_Reference/SO/SO_Invoice_bus.html 

I got the batch number issue working but i still cannot update the Sales Order Number in the Invoice Header taable.

The following is the code that i am using... i get no error at all but it doesn't import the Sales Order Number.

r = oInv.nSetKeyValue("InvoiceNo$", sInvoice_Num)
r = oInv.nSetKey()
if r = 0 then
MsgBox(oInv.sLastErrorMsg & sInvoice_Num & vbCRLF & "Inv Header Failed")
end if
r = oInv.nSetValue("SalesOrderNo$", strOrderNo)


msgbox "SO #: " & strOrderNo & ", Inv #: " & sInvoice_Num
r = oInv.nWrite()

if r = 0 then
MsgBox(oInv.sLastErrorMsg & strOrderNo & vbCRLF & "SO Header Failed")
end if

Reagrds,

What is the returned value when setting the value on SalesOrderNo?

Are you copying the sales order's lines to the invoice before calling the Write method? 

If not, then you should be checking the LastErrorMsg property, it may be saying the entry has no lines because setting the sales order number alone does not copy the lines, you'll need to use the methods in my last post around copying the lines to the order.

If still having issues setting the sales order number, then prior to setting the sales order number, I would set the LastErrorMsg property to a blank string, then set the value and check the returned value and the LastErrorMsg property to further narrow this down.

Hi David,

This is the message that i am getting when setting the Sales Order Number in Invoice Header...

Is ther a reason why the SO Number cannot be changed?

Regrads,

Is that happening when you are first creating the invoice or when attempting to modify it?  It sounds like the latter and if this is the case, maybe you should use GetValue on SalesOrderNo$ and if it is blank, then use SetValue, otherwise you shouldn't need to set it.