Sage100.ObjectManagement Interfaces .net Error when creating line entry

Question

   
           var sessionLogon = new SessionLogon
            {
                CompanyCode = companyCode,
                UserLogon = new NetworkCredential { UserName = userName, Password = password },
                ModuleCode = ModuleNames.AccountsReceivable,
                ModuleDate = DateTime.Today
            };




            using (var sySession = new MasSession(homePath))
            {
               sySession.InitSession(sessionLogon);


   
   
    using (var soInvoice = sySession.CreateObject<IMasBusinessObject>("SO_Invoice_bus", "SO_Invoice_ui", "S/O"))
            {

                soInvoice.SetValue("SalesPersonNo$", "0000");
                soInvoice.SetValue("SalesPersonDivisionNo$", "00");
                soInvoice.SetValue("ARDivisionNo$", "00");
                soInvoice.SetValue("InvoiceType$", "IN");
                soInvoice.SetValue("InvoiceNo$", "stapiIN");
                soInvoice.SetValue("InvoiceDate$", "20220710");
                soInvoice.SetValue("InvoiceDueDate$", "20220716");
                soInvoice.SetValue("DiscountDueDate$", "20220716");
                soInvoice.SetValue("TaxSchedule$", "DEFAULT");
                soInvoice.SetValue("OrderDate$", "20220502");
                soInvoice.SetValue("CustomerNo$", "0031330");
                soInvoice.SetValue("TermsCode$", "00");
                soInvoice.SetValue("OrderType$", "S");
                soInvoice.SetValue("PrintInvoice$", "N");
                soInvoice.SetValue("WarehouseCode$", "011");


                var soInvoiceLn = sySession.CreateObject<ILineEntry>("SO_InvoiceDetail_Bus", "SO_InvoiceDetail_Bus", "S/O");
                
                
            }
        }

Hello, we are getting an error when trying to create a line for a SO_Invoice using the Business Object dll in .net Sage100.ObjectManagementInterfaces

the error is message attempted to perform an unauthorized operation.

Bret · Accepted Answer

Hi Anastasia, Here is an A/R Cash Receipt example. Cash Receipts entry is a bit unique so hopefully this example will help.

Thank you!

using Sage100.ObjectManagement; /* https://www.nuget.org/packages/Sage100.ObjectManagement */
using Sage100.ObjectManagement.Interfaces;
using System;
using System.Collections.Generic;
using System.Net;

namespace SageCityDemo
{
    class Program
    {
        static void Main(string[] args)
        {
            var arDivNo = "01";
            var custNo = "ABF";
            var depositType = "C";
            var checkNo = "100111";
            var invoiceNo = "0000122";
            var depositAmt = 10.00;
            var postingAmt = 10.00;
            var amountPosted = 10.00;

            var sessionLogon = new SessionLogon
            {
                CompanyCode = "ABC",
                UserLogon = new NetworkCredential { UserName = "all", Password = "" },
                ModuleCode = "A/R",
                ModuleDate = DateTime.Today
            };

            using (IMasSession sySession = new MasSession(@"C:\Sage\Sage 100 Advanced\MAS90\Home"))
            {
                try
                {
                    sySession.InitSession(sessionLogon);

                    CI.ColumnNames.Add("AR_CashReceipts_bus", new Dictionary<string, string> { { CI.NextNumberMethod, "nGetNextReceiptNo" }, { CI.HeaderKeyColumns, "DepositNo$" } });

                    using (var arCashReceipts = sySession.CreateObject<ILineEntry>("AR_CashReceipts_bus", "AR_CashReceipts_ui", "A/R"))
                    using (var arCashReceiptsDeposit = sySession.CreateObject<IMasBusinessObject>("AR_CashReceiptsDeposit_bus", "AR_CashReceipts_ui", "A/R"))
                    {
                        // 1. Check batches on deposit object - this is unique to cash receipts. Usually batches are accessed via the ILineEntry (header) object.
                        var batchEnabled = ((int)arCashReceiptsDeposit.PvxObject.nBatchEnabled != 0);
                        if (batchEnabled)
                        {
                            var batchNo = string.Empty;
                            if ((int)arCashReceiptsDeposit.PvxObject.nSelectNewBatch(out batchNo, "N", "My New Batch") != 1) throw new ApplicationException($"Failed to create batch number. {arCashReceiptsDeposit.LastErrorMessage}");
                        }

                        // 2. Create the deposit record.
                        var depositNo = string.Empty;
                        arCashReceiptsDeposit.PvxObject.nGetNextDepositNo(out depositNo);

                        if (!arCashReceiptsDeposit.SetValue("DepositDesc$", "My Deposit")) throw new ApplicationException($"{arCashReceiptsDeposit.LastErrorMessage}");
                        if (!arCashReceiptsDeposit.SetValue("BankCode$", "D")) throw new ApplicationException($"{arCashReceiptsDeposit.LastErrorMessage}");
                        if (!arCashReceiptsDeposit.SetValue("CashDepositAmt", depositAmt)) throw new ApplicationException($"{arCashReceiptsDeposit.LastErrorMessage}");

                        if (!arCashReceiptsDeposit.Write()) throw new ApplicationException($"{arCashReceiptsDeposit.LastErrorMessage}");

                        // 3. Create Cash Receipt Header.

                        if (!arCashReceipts.SetKeyValue("DepositNo$", depositNo)) throw new ApplicationException($"{arCashReceipts.LastErrorMessage}");
                        if (!arCashReceipts.SetKeyValue("ARDivisionNo$", arDivNo)) throw new ApplicationException($"{arCashReceipts.LastErrorMessage}");
                        if (!arCashReceipts.SetKeyValue("CustomerNo$", custNo)) throw new ApplicationException($"{arCashReceipts.LastErrorMessage}");
                        if (!arCashReceipts.SetKeyValue("DepositType$", depositType)) throw new ApplicationException($"{arCashReceipts.LastErrorMessage}");
                        if (!arCashReceipts.SetKeyValue("CheckNo$", checkNo)) throw new ApplicationException($"{arCashReceipts.LastErrorMessage}");
                        if ((int)arCashReceipts.SetKey() == 0) throw new ApplicationException($"{arCashReceipts.LastErrorMessage}");

                        if (!arCashReceipts.SetValue("PostingAmt", postingAmt)) throw new ApplicationException($"{arCashReceipts.LastErrorMessage}");

                        // 4. Create Cash Receipt Lines.

                        if (!arCashReceipts.AddLine()) throw new ApplicationException($"{arCashReceipts.LastErrorMessage}");

                        if (!arCashReceipts.Lines.SetValue("InvoiceNo$", invoiceNo)) throw new ApplicationException($"{arCashReceipts.Lines.LastErrorMessage}");
                        if (!arCashReceipts.Lines.SetValue("AmountPosted", amountPosted)) throw new ApplicationException($"{arCashReceipts.Lines.LastErrorMessage}");

                        if (!arCashReceipts.Lines.Write()) throw new ApplicationException($"{arCashReceipts.Lines.LastErrorMessage}");

                        // 5. Write the header and commit the lines.

                        if (!arCashReceipts.Write()) throw new ApplicationException($"{arCashReceipts.LastErrorMessage}");
                    }
                }
                catch (Exception exception)
                {
                    Console.WriteLine(exception.Message);
                }
            }
        }
    }
}

Russell Libby · Answer

using (var soInvoice = sySession.CreateObject<ILineEntry>("SO_Invoice_bus", "SO_Invoice_ui", "S/O"))
 {
 if (soInvoice.BatchEnabled)
 {
 var batch = soInvoice.SelectBatch();
 }

 var invoiceNo = string.Empty;

 soInvoice.PvxObject.nGetNextInvoiceNo(ref invoiceNo);

 soInvoice.SetKey(invoiceNo);

 soInvoice.SetValue("ARDivisionNo$", "01");
 soInvoice.SetValue("CustomerNo$", "ABF");
 soInvoice.SetValue("SalesPersonNo$", "0100");
 soInvoice.SetValue("SalesPersonDivisionNo$", "01");
 soInvoice.SetValue("InvoiceType$", "IN");
 soInvoice.SetValue("InvoiceDate$", "20220710");
 soInvoice.SetValue("InvoiceDueDate$", "20220716");
 soInvoice.SetValue("DiscountDueDate$", "20220716");
 soInvoice.SetValue("TaxSchedule$", "DEFAULT");
 soInvoice.SetValue("OrderDate$", "20220502");
 soInvoice.SetValue("TermsCode$", "00");
 soInvoice.SetValue("OrderType$", "S");
 soInvoice.SetValue("PrintInvoice$", "N");
 soInvoice.SetValue("WarehouseCode$", "011");

 /* Set split commission */
 soInvoice.SetValue("SplitCommissions$", "Y");

 soInvoice.SetValue("SalespersonDivisionNo2$", "01");
 soInvoice.SetValue("SalespersonNo2$", "0200");
 soInvoice.SetValue("SplitCommRate2", 20);

 foreach (var line in lineData)
 {
 soInvoice.AddLine();

 Trace.WriteLine(soInvoice.Lines.GetKey());

 soInvoice.Lines.SetValue("ItemCode", line.ItemCode);
 soInvoice.Lines.SetValue("QuantityOrdered", line.QuantityOrdered);
 soInvoice.Lines.Write();
 }

 soInvoice.Write();
 }

Russell Libby · Answer

Full example based on ABC demo data. Replace with your desired data. 
 public void TestInvoice()
 {
 var sessionLogon = new SessionLogon
 {
 CompanyCode = "ABC",
 UserLogon = new NetworkCredential { UserName = "all", Password = "" },
 ModuleCode = ModuleNames.SalesOrder,
 ModuleDate = DateTime.Today
 };

 var lineData = new LineDetail[]
 {
 new LineDetail { ItemCode = "6655", QuantityOrdered = 1 },
 new LineDetail { ItemCode = "SPEAKERS", QuantityOrdered = 2 },
 new LineDetail { ItemCode = "1001-HON-H252", QuantityOrdered = 3 }
 };

 using (var sySession = new MasSession(@"c:\sage\sage 100 standard\mas90\home"))
 {
 sySession.InitSession(sessionLogon);

 using (var soInvoice = sySession.CreateObject<ILineEntry>("SO_Invoice_bus", "SO_Invoice_ui", "S/O"))
 {
 if (soInvoice.BatchEnabled)
 {
 var batch = soInvoice.SelectBatch();
 }

 var invoiceNo = string.Empty;

 soInvoice.PvxObject.nGetNextInvoiceNo(ref invoiceNo);

 soInvoice.SetKey(invoiceNo); /* Or using a preset value soInvoice.SetKey("stapiIN"); */
 soInvoice.SetValue("ARDivisionNo$", "01");
 soInvoice.SetValue("CustomerNo$", "ABF");
 soInvoice.SetValue("SalesPersonNo$", "0100");
 soInvoice.SetValue("SalesPersonDivisionNo$", "01");
 soInvoice.SetValue("InvoiceType$", "IN");
 soInvoice.SetValue("InvoiceDate$", "20220710");
 soInvoice.SetValue("InvoiceDueDate$", "20220716");
 soInvoice.SetValue("DiscountDueDate$", "20220716");
 soInvoice.SetValue("TaxSchedule$", "DEFAULT");
 soInvoice.SetValue("OrderDate$", "20220502");
 soInvoice.SetValue("TermsCode$", "00");
 soInvoice.SetValue("OrderType$", "S");
 soInvoice.SetValue("PrintInvoice$", "N");
 soInvoice.SetValue("WarehouseCode$", "011");

 foreach (var line in lineData)
 {
 soInvoice.AddLine();

 Trace.WriteLine(soInvoice.Lines.GetKey());

 soInvoice.Lines.SetValue("ItemCode", line.ItemCode);
 soInvoice.Lines.SetValue("QuantityOrdered", line.QuantityOrdered);
 soInvoice.Lines.Write();
 }

 soInvoice.Write();
 }
 }
 }

Russell Libby · Answer

The PO_Receipt_bus class contains the CopyPurchaseOrderLines() method, not the lines. If you need to access class specific methods (like this) that are not covered by the interfaces, you can use the PvxObject property which provides direct access to the class instance. Just keep in mind that the method name will need to be prefixed with the result type: n = numeric, s = string, o = object. Example: /* Copy the purchase order lines; 1 for receiveComplete, 0 to not receiveComplete, method result value should be 1 */ var result = receiptEntry.PvxObject.nCopyPurchaseOrderLines(0, purchaseOrderNo); Anyways, once you have the lines copied, you will need to walk the collection using MoveFirst, while not EOF {...} MoveNext. Full example provided. using Sage100.ObjectManagement; using Sage100.ObjectManagement.Interfaces; using System; using System.Collections.Generic; using System.Linq; using System.Net; namespace ConsoleApp12 { class Program { static void TestExample() { /* Numbers used */ var batchNo = "00001"; var purchaseOrderNo = "0010032"; var vendorDiv = "01"; var vendorNo = "AIRWAY"; var wareHouseCode = "000"; var sessionLogon = new SessionLogon { CompanyCode = "ABC", UserLogon = new NetworkCredential { UserName = "all", Password = "" }, ModuleCode = "P/O", ModuleDate = DateTime.Today }; try { using (var session = new MasSession(@"d:\sage\sage 100\mas90\home")) { session.InitSession(sessionLogon); CI.ColumnNames.Add("PO_Receipt_bus", new Dictionary { { CI.NextNumberMethod, "nGetNextReceiptNo" }, { CI.HeaderKeyColumns, "ReceiptNo$" } }); using (var receiptEntry = session.CreateObject("PO_Receipt_bus", "PO_ReceiptofGoods_ui", "P/O")) { if (receiptEntry.BatchEnabled) receiptEntry.SelectBatch(batchNo); var entryNo = receiptEntry.GetNextDocumentNumber(); receiptEntry.SetKeyValue("ReceiptType$", "G"); receiptEntry.SetKeyValue("ReceiptNo$", entryNo); if (receiptEntry.SetKey() != 2) throw new ApplicationException(receiptEntry.LastErrorMessage); receiptEntry.SetValue("PurchaseOrderNo$", purchaseOrderNo); receiptEntry.SetValue("APDivisionNo$", vendorDiv); receiptEntry.SetValue("VendorNo$", vendorNo); receiptEntry.SetValue("WarehouseCode$", wareHouseCode); /* Copy the purchase order lines; 1 for receiveComplete, 0 to not receiveComplete, result value should be 1 */ var result = receiptEntry.PvxObject.nCopyPurchaseOrderLines(0, purchaseOrderNo); /* Sample data that is item code and QuantityReceived count */ var lineData = new Dictionary /* ItemCode and QuantityReceived */ { { "6655", 1 }, { "1001-HON-H252", 2 } }; if (receiptEntry.Lines.MoveFirst()) { while (!receiptEntry.Lines.EOF) { var item = receiptEntry.Lines.GetValue("ItemCode$"); var received = lineData.Where(kvp => kvp.Key.Equals(item)).Select(kvp => kvp.Value).Sum(); if (received != 0.0) { Console.WriteLine($"Updating {item} QuantityReceived to {received} for line {receiptEntry.Lines.GetKey()}"); receiptEntry.Lines.SetValue("QuantityReceived", received); if (!receiptEntry.Lines.Write()) throw new ApplicationException(receiptEntry.Lines.LastErrorMessage); } receiptEntry.Lines.MoveNext(); } } if (!receiptEntry.Write()) throw new ApplicationException(receiptEntry.Lines.LastErrorMessage); } } } catch (Exception exception) { Console.WriteLine(exception.Message); } } static void Main(string[] args) { TestExample(); Console.ReadLine(); } } }

Russell Libby · Answer

Change the line of code that is failing to: 
 var soInvoiceLn = sySession.CreateObject<ILineEntry>("SO_SalesOrder_bus", "SO_Invoice_ui", "S/O"); 
 Regards, Russell

Anastasia Maher · Answer

using (var soInvoice = sySession.CreateObject("SO_Invoice_bus", "SO_Invoice_ui", "S/O")) { soInvoice.SetValue("SalesPersonNo$", "0000"); soInvoice.SetValue("SalesPersonDivisionNo$", "00"); soInvoice.SetValue("ARDivisionNo$", "00"); soInvoice.SetValue("InvoiceType$", "IN"); soInvoice.SetValue("InvoiceNo$", "stapiIN"); soInvoice.SetValue("InvoiceDate$", "20220710"); soInvoice.SetValue("InvoiceDueDate$", "20220716"); soInvoice.SetValue("DiscountDueDate$", "20220716"); soInvoice.SetValue("TaxSchedule$", "DEFAULT"); soInvoice.SetValue("OrderDate$", "20220502"); soInvoice.SetValue("CustomerNo$", "0031330"); soInvoice.SetValue("TermsCode$", "00"); soInvoice.SetValue("OrderType$", "S"); soInvoice.SetValue("PrintInvoice$", "N"); soInvoice.SetValue("WarehouseCode$", "011"); var soInvoiceLn = sySession.CreateObject("SO_SalesOrder_bus", "SO_Invoice_ui", "S/O"); //HERE how would i link the above soInvoiceLn to the SoInvoice object (header) if (!soInvoice.Write()) { Console.WriteLine($"New customer not created. {soInvoice.LastErrorMessage}"); } } here is a code snippet^^^ looking to add the lineentry attached to the invoice header above thank YOU so so much!!!!

Russell Libby · Answer

Definitely not the expected result. I did test this on v2023, and it worked properly. Do you know what version of Sage 100 this is, and if there are any 3rd party modifications installed? One other thing to try is using SetKeyValue (with the $ on the field name), and then SetKey() after. 
 using (var poEntry = sySession.CreateObject<ILineEntry>("PO_PurchaseOrder_bus", "PO_PurchaseOrder_ui", "P/O"))
 {
 var nextOrderNo = poEntry.GetNextDocumentNumber();

 Trace.WriteLine(nextOrderNo);

 poEntry.SetKeyValue("PurchaseOrderNo$", nextOrderNo);
 poEntry.SetKey();
 
 ... 
 
 Regards, 
 Russell

Sage 100

Sage100.ObjectManagement Interfaces .net Error when creating line entry

Top Replies

COMMUNITY

COMPANY

PARTNERS

SUPPORT & TRAINING