如何在 eConnect 中使用杂项例程程序集时检索采购订单处理文档的下一个采购订单编号

本文介绍如何在 Microsoft Dynamics GP 中使用 eConnect 中的杂项例程程序集时检索采购订单处理文档的下一个采购订单编号。

适用于： Microsoft Dynamics GP
原始 KB 数： 939275

详细信息

eConnect 中的杂项例程程序集包含可用于检索 Microsoft Dynamics GP 中各种文档类型的下一个采购订单编号的方法。

以下示例代码演示了如何使用 Microsoft Visual C# 代码以及 Microsoft Visual Basic .NET 2003 代码检索采购订单处理文档的下一个采购订单编号。

在使用示例代码之前，必须设置以下引用：

• eConnect.MiscRoutines.dll
• System.Enterprise.Services

若要设置这些引用，请执行以下步骤：

1. 在 Microsoft Visual Studio 中，右键单击“ 引用”。 在解决方案资源管理器中，选择“添加引用”。

2. 打开文件夹：C：\Program Files\Microsoft Great Plains\eConnect9\Objects\DOT NET。

3. 选择引用 eConnect.MiscRoutines.dll。

4. 在 .NET 下，选择 System.Enterprise.Services 引用。

Microsoft Visual C# 示例代码

//C#
using System;
using System.Collections.Generic;
using System.Text;
using Microsoft.GreatPlains.eConnect.MiscRoutines;

namespace MiscRoutinesConsole {
    class ClassMiscRoutines {
        static void Main (string[] args) {
            try {
                string cnString = @"Data Source=MYSERVER;initial catalog=TWO;integrated security=SSPI;
                persist security info=False;packet size=4096";

                GetNextDocNumbers oNextDoc = new GetNextDocNumbers ();
                string nextPONumber = "";

                nextPONumber = oNextDoc.GetNextPONumber (GetNextDocNumbers.IncrementDecrement.Increment, cnString);
                Console.WriteLine ("The next Purchase Order Number is " + nextPONumber);
                Console.WriteLine ("Press <Enter> to close...");
                Console.Read ();
            } catch (Exception ex) {
                Console.WriteLine (ex.ToString ());
                Console.WriteLine ("Press <Enter> to close...");
                Console.Read ();
            }
        }
    }
}

Microsoft Visual Basic .NET 2003

'Visual Basic .NET
Imports Microsoft.GreatPlains.eConnect.MiscRoutines
Module MiscRoutines

    Sub Main()
        Try
            Dim cnString As String = "Data Source=MYSERVER;initial catalog=TWO;integrated security=SSPI;
            persist security info=False;packet size=4096"
            
            Dim oNextDoc As New GetNextDocNumbers()
            Dim nextPONumber As String = ""

            nextPONumber = oNextDoc.GetNextPONumber(GetNextDocNumbers.IncrementDecrement.Increment, cnString)
            Console.WriteLine("The next Purchase Order Number is " & nextPONumber)
            Console.WriteLine("Press <Enter> to close...")
            Console.Read()
        Catch ex As Exception
            Console.WriteLine(ex.ToString())
            Console.WriteLine("Press <Enter> to close...")
            Console.Read()
        End Try
    End Sub
End Module