public void ChangeShipvia(string shipvia)
{
Microsoft.Win32.RegistryKey SageKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(@"Software\ODBC\ODBC.INI\SOTAMAS90");
string InitPath = SageKey.GetValue("Directory") + @"\Home";
object retVal;
// Open Initial PVX object
using (DispatchObject pvx = new DispatchObject("ProvideX.Script"))
{
// Set MAS90 Path
pvx.InvokeMethod("Init", InitPath);
// Set up my Session connection
using (DispatchObject oSS = new DispatchObject(pvx.InvokeMethod("NewObject", "SY_Session")))
{
// Set Username and password
// Set Company, and set the date
// Basic setup for the oSS object
oSS.InvokeMethod("nSetUser", Username, Password);
oSS.InvokeMethod("nLogon");
oSS.InvokeMethod("nSetCompany", Company);
oSS.InvokeMethod("nSetDate", "S/O", DateTime.Today.ToString("yyyyMMdd"));
oSS.InvokeMethod("nSetModule", "A/R");
// Set task ID to oSS
int TaskID = (int)oSS.InvokeMethod("nLookupTask", "SO_SalesOrder_ui");
retVal = oSS.InvokeMethod("nSetProgram", TaskID);
// SafeProcess just checks the last error message value and prints it to
// the debug output. In the future, I will have it post this to an error log
SafeProcess(oSS.InvokeMethod("nSetProgram", TaskID), oSS);
// Loop through the orders
// This saves time over opening the oSS and PVX object over and over again
foreach (SalesOrder salesorder in this.SalesOrders())
{
Debug.WriteLine(">>Changing " + salesorder.SalesOrderNo + "<<");
// Open object for sales order
using (DispatchObject so_order = new DispatchObject(pvx.InvokeMethod("NewObject", "SO_SalesOrder_bus", oSS.GetObject())))
{
SafeProcess(so_order.InvokeMethod("nSetKey", salesorder.SalesOrderNo), so_order);
SafeProcess(so_order.InvokeMethod("nSetValue", "ShipVia$", shipvia), so_order);
retVal = so_order.InvokeMethod("nWrite");
if ((int)retVal != 1)
{
Debug.WriteLine(so_order.GetProperty("sLastErrorMsg"));
}
}
Debug.WriteLine("<<End Changing Sales Order<<");
}
}
}
}
private static int SafeProcess(object Method, DispatchObject Object)
{
object retVal;
retVal = Method;
if ((int)retVal != 1)
{
Debug.WriteLine(Object.GetProperty("sLastErrorMsg"));
}
return((int)retVal);
}
public static SageObject Process(object Method, DispatchObject Object)
{
object retVal;
string ErrorMessage = string.Empty;
retVal = Method;
if ((int)retVal != 1)
{
ErrorMessage = Object.GetProperty("sLastErrorMsg").ToString();
if (SageError != null)
{
SageError(ErrorMessage);
}
}
return(new SageObject(ErrorMessage, (int)retVal));
}
public static List <Company> CompanyList()
{
List <Company> Companies = new List <Company>();
Microsoft.Win32.RegistryKey SageKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(@"Software\ODBC\ODBC.INI\SOTAMAS90");
string InitPath = SageKey.GetValue("Directory") + @"\Home";
object retVal = new object();
// See if we can make a connection to Sage
if (Core.CanConnectToSage() == false)
{
// We can't connect to Sage 100
return(null);
}
// Open Initial PVX object
using (DispatchObject pvx = new DispatchObject("ProvideX.Script"))
{
pvx.InvokeMethod("Init", InitPath);
// Set up my Session connection
using (DispatchObject oSS = new DispatchObject(pvx.InvokeMethod("NewObject", "SY_Session")))
{
// Split on chr 138 - Š
string[] CompanyList = oSS.GetProperty("sCompanyList").ToString().Split(new char[] { 'Š' }, StringSplitOptions.RemoveEmptyEntries);
foreach (string company in CompanyList)
{
Companies.Add(
new Company(
company.Split(new string[] { " " }, StringSplitOptions.None)[0],
company.Split(new string[] { " " }, StringSplitOptions.None)[1].Replace(")", "").Replace("(", "")));
}
}
}
return(Companies);
}
public List <Invoice> Invoice()
{
List <Invoice> invoices = new List <Invoice>();
Microsoft.Win32.RegistryKey SageKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(@"Software\ODBC\ODBC.INI\SOTAMAS90");
string InitPath = SageKey.GetValue("Directory") + @"\Home";
object retVal;
// Open Initial PVX object
using (DispatchObject pvx = new DispatchObject("ProvideX.Script"))
{
// Set MAS90 Path
pvx.InvokeMethod("Init", InitPath);
// Set up my Session connection
using (DispatchObject oSS = new DispatchObject(pvx.InvokeMethod("NewObject", "SY_Session")))
{
// Set Username and password
// Set Company, and set the date
// Basic setup for the oSS object
oSS.InvokeMethod("nSetUser", Username, Password);
oSS.InvokeMethod("nLogon");
oSS.InvokeMethod("nSetCompany", Company);
oSS.InvokeMethod("nSetDate", "S/O", DateTime.Today.ToString("yyyyMMdd"));
oSS.InvokeMethod("nSetModule", "A/R");
// Set task ID to oSS
int TaskID = (int)oSS.InvokeMethod("nLookupTask", "SO_Invoice_ui");
retVal = oSS.InvokeMethod("nSetProgram", TaskID);
SafeProcess(oSS.InvokeMethod("nSetProgram", TaskID), oSS);
using (DispatchObject so_invoice = new DispatchObject(pvx.InvokeMethod("NewObject", "SO_Invoice_bus", oSS.GetObject())))
{
object[] batchnum = new object[] { BatchNo, "N", BatchDescription };
if (BatchNo == "")
{
SafeProcess(so_invoice.InvokeMethodByRef("nSelectNewBatch", batchnum), so_invoice);
BatchNo = (string)batchnum[0];
}
else
{
SafeProcess(so_invoice.InvokeMethod("nSelectBatch", BatchNo), so_invoice);
}
foreach (SalesOrder order in SalesOrders())
{
string InvoiceNumber = string.Empty;
object[] nextInvoiceNum = new object[] { "OrderNo$" };
SafeProcess(so_invoice.InvokeMethodByRef("nGetNextInvoiceNo", nextInvoiceNum), so_invoice);
InvoiceNumber = (string)nextInvoiceNum[0];
SafeProcess(so_invoice.InvokeMethod("nSetKey", InvoiceNumber), so_invoice);
SafeProcess(so_invoice.InvokeMethod("nsetvalue", "SalesOrderNo$", order.SalesOrderNo), so_invoice);
//SafeProcess(so_invoice.InvokeMethod("nsetvalue", "ShipWeight$", "13.37"), so_invoice);
using (DispatchObject so_line = new DispatchObject(so_invoice.GetProperty("oLines")))
{
SafeProcess(so_line.InvokeMethod("nCopyLinesFromSalesOrder", order.SalesOrderNo, "Y"), so_line);
//retVal = so_line.InvokeMethod("nCopyLinesFromSalesOrder", SalesOrderNo, "Y");
SafeProcess(so_line.InvokeMethod("nMoveFirst"), so_line);
string ItemType = string.Empty;
object[] getValueParam3 = new object[] { "ItemType$", "" };
SafeProcess(so_line.InvokeMethodByRef("nGetValue", getValueParam3), so_line);
int EOF = (int)so_line.GetProperty("nEOF");
int ShippedQty = 0;
do
{
int orderquantity = 0;
object[] orderedQty = new object[] { "QuantityOrdered", orderquantity };
SafeProcess(so_line.InvokeMethodByRef("nGetValue", orderedQty), so_line);
ShippedQty = (int)orderedQty[1];
//object[] getValueParam2 = new object[] { "ItemCodeDesc$", "" };
// Read Into the object
//SafeProcess(so_line.InvokeMethodByRef("nGetValue", getValueParam2), so_line);
SafeProcess(so_line.InvokeMethod("nsetvalue", "QuantityShipped", ShippedQty), so_line);
SafeProcess(so_line.InvokeMethod("nWrite"), so_line);
SafeProcess(so_line.InvokeMethod("nMoveNext"), so_line);
EOF = (int)so_line.GetProperty("nEOF");
} while (EOF != 1);
SafeProcess(so_invoice.InvokeMethod("nsetvalue", "FreightAmt", order.Freight), so_invoice);
SafeProcess(so_invoice.InvokeMethod("nsetvalue", "NumberofPackages", order.TrackingNumbers.Count()), so_invoice);
SafeProcess(so_invoice.InvokeMethod("nWrite"), so_invoice);
invoices.Add(new Invoice(InvoiceNumber));
Debug.WriteLine("Invoice Created: " + InvoiceNumber);
}
}
}
}
}
return(invoices);
}
public List <SalesOrder> Post()
{
// Grab init path from the registry
Microsoft.Win32.RegistryKey SageKey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey(@"Software\ODBC\ODBC.INI\SOTAMAS90");
string InitPath = SageKey.GetValue("Directory") + @"\Home";
object retVal = new object();
// See if we can make a connection to Sage
if (Core.CanConnectToSage() == false)
{
// We can't connect to Sage 100
// Return null to hopefully break things
return(null);
}
// Open Initial PVX object
using (DispatchObject pvx = new DispatchObject("ProvideX.Script"))
{
// Set MAS90 Path
pvx.InvokeMethod("Init", InitPath);
// Set up my Session connection
using (DispatchObject oSS = new DispatchObject(pvx.InvokeMethod("NewObject", "SY_Session")))
{
// Set Username and password
// Set Company, and set the date
// Basic setup for the oSS object
if (Core.SageObject.Process(oSS.InvokeMethod("nSetCompany", Company), oSS).ReturnCode == (int)Core.ReturnCode.Failed)
{
// I'm returning a null here to break anything
// that doesn't expect a null. This isn't something
// I should run into unless I'm using incorrect
// company codes.
return(null);
}
if (Core.SageObject.Process(oSS.InvokeMethod("nSetUser", Username, Password), oSS).ReturnCode == (int)Core.ReturnCode.Failed)
{
// Login Failure
// Check Username and Password
return(null);
}
oSS.InvokeMethod("nLogon");
oSS.InvokeMethod("nSetDate", "S/O", DateTime.Today.ToString("yyyyMMdd"));
oSS.InvokeMethod("nSetModule", "A/R");
// Set task ID to oSS
int TaskID = (int)oSS.InvokeMethod("nLookupTask", "SO_SalesOrder_ui");
Core.SageObject.Process(oSS.InvokeMethod("nSetProgram", TaskID), oSS);
// Loop through the orders
// This saves time over opening the oSS and PVX object over and over again
foreach (SalesOrder Order in _salesorders)
{
if (StatusChanged != null)
{
StatusChanged(Status.Working, _salesorders.Count(), (_salesorders.FindIndex(a => a == Order) + 1));
}
// Open object for sales order
using (DispatchObject so_order = new DispatchObject(pvx.InvokeMethod("NewObject", "SO_SalesOrder_bus", oSS.GetObject())))
{
// Get the next salesorder number.
object[] oNextSalesOrder = new object[] { "" };
Core.SageObject.Process(so_order.InvokeMethodByRef("nGetNextSalesOrderNo", oNextSalesOrder), so_order);
Core.SageObject.Process(so_order.InvokeMethod("nSetKey", oNextSalesOrder), so_order);
// Update the order objerct to the correct number
Order.SalesOrderNo = (string)oNextSalesOrder[0];
// Set Customer name and the ARDivision. We always use 00 as the ARDivision
Core.SageObject.Process(so_order.InvokeMethod("nSetValue", "ARDivisionNo$", "00"), so_order);
if (Core.SageObject.Process(so_order.InvokeMethod("nSetValue", "CustomerNo$", Order.CustomerNo), so_order).ReturnCode == (int)Core.ReturnCode.Failed)
{
// Could not set this CustomerNo
// We'll see if any of the other orders
// can process
continue;
}
Core.SageObject.Process(so_order.InvokeMethod("nSetValue", "OrderDate$", Order.OrderDate.ToString("yyyyMMdd")), so_order);
Core.SageObject.Process(so_order.InvokeMethod("nSetValue", "ShipExpireDate$", Order.RequiredDate.ToString("yyyyMMdd")), so_order);
if (Order.StoreNo != string.Empty)
{
Core.SageObject.Process(so_order.InvokeMethod("nSetValue", "ShipToCode$", Order.StoreNo), so_order);
}
if (Order.ShipToZipcode != string.Empty)
{
Core.SageObject.Process(so_order.InvokeMethod("nSetValue", "ShipToZipcode$", Order.ShipToZipcode), so_order);
}
if (Order.ShipToName != string.Empty)
{
Core.SageObject.Process(so_order.InvokeMethod("nSetValue", "ShipToName$", Order.ShipToName), so_order);
}
if (Order.ShipToAddress1 != string.Empty)
{
Core.SageObject.Process(so_order.InvokeMethod("nSetValue", "ShipToAddress1$", Order.ShipToAddress1), so_order);
}
// We want this to override the address in sage, if this is blank
Core.SageObject.Process(so_order.InvokeMethod("nSetValue", "ShipToAddress2$", Order.ShipToAddress2), so_order);
if (Core.SageObject.Process(so_order.InvokeMethod("nSetValue", "CustomerPONo$", Order.CustomerPONo), so_order).ReturnCode == (int)Core.ReturnCode.SuccessWithError)
{
// We could trap duplicate PO#s here. The Error Message is:
// This customer PO number already exists on one or more sales orders or invoices.
}
// Eventually move GiftHeader to Comment
Core.SageObject.Process(so_order.InvokeMethod("nSetValue", "Comment$", Order.GiftHeader), so_order);
// Loop through each lineitem in the order
foreach (LineItem Line in Order.LineItems())
{
// Open object for Line item
using (DispatchObject so_line = new DispatchObject(so_order.GetProperty("oLines")))
{
Core.SageObject.Process(so_line.InvokeMethod("nAddLine"), so_line);
// Set Item Code
if (Core.SageObject.Process(so_line.InvokeMethod("nSetValue", "ItemCode$", Line.ItemCode), so_line).ReturnCode == (int)Core.ReturnCode.Failed)
{
// Line failed to post. We are going to
// continue to see if any of the lines post.
continue;
}
// Set Quantity
Core.SageObject.Process(so_line.InvokeMethod("nSetValue", "QuantityOrdered", Line.Quantity), so_line);
// Set Monogram
// I only ever need 1000 characters,
// So I always use UDF_PERSONALIZE1
Core.SageObject.Process(so_line.InvokeMethod("nSetValue", "UDF_PERSONALIZE1$", Line.Monogram), so_line);
// Set GiftMessage
Core.SageObject.Process(so_line.InvokeMethod("nSetValue", "UDF_GIFTMESSAGE$", Order.GiftMessage), so_line);
//Set LineKey
object[] oLineKey = new object[] { "LineKey", "" };
Core.SageObject.Process(so_line.InvokeMethodByRef("nGetValue", oLineKey), so_line);
Line.LineKey = oLineKey[1].ToString();
// Set Shipvia
if (Order.Shipvia != string.Empty)
{
Core.SageObject.Process(so_order.InvokeMethod("nSetValue", "ShipVia$", Order.Shipvia), so_order);
}
// Set Descriptions
if (Line.Description != string.Empty)
{
string Description = string.Empty;
// Read Create an object to hold the response
object[] oDescription = new object[] { "ItemCodeDesc$", "" };
// Read Into the object
Core.SageObject.Process(so_line.InvokeMethodByRef("nGetValue", oDescription), so_line);
// Retreive our description
Description = oDescription[1].ToString();
// Append the custom Description text and write the record
Description = Description + Environment.NewLine + Line.Description;
Core.SageObject.Process(so_line.InvokeMethod("nSetValue", "ItemCodeDesc$", Description), so_line);
}
if (Core.SageObject.Process(so_line.InvokeMethod("nWrite"), so_line).ReturnCode == (int)Core.ReturnCode.Failed)
{
continue;
}
}
}
if (Core.SageObject.Process(so_order.InvokeMethod("nWrite"), so_order).ReturnCode == (int)Core.ReturnCode.Failed)
{
// Order failed to post
// Clear the SalesOrderNo because it is not valid.
Order.SalesOrderNo = "";
}
else
{
if (OrderPosted != null)
{
OrderPosted(Order);
}
}
}
}
if (Completed != null)
{
Completed(_salesorders);
}
if (StatusChanged != null)
{
StatusChanged(Status.Completed, 0, 0);
}
}
}
return(_salesorders);
}