Cómo recuperar el siguiente número de pedido de compra para los documentos de procesamiento de pedidos de compra al usar el ensamblado de rutinas varias en eConnect

En este artículo se describe cómo recuperar el siguiente número de pedido de compra para los documentos de procesamiento de pedidos de compra cuando se usa el ensamblado de rutinas varias en eConnect en Microsoft Dynamics GP.

Se aplica a: Microsoft Dynamics GP
Número de KB original: 939275

Más información

El ensamblado de rutinas varias de eConnect contiene métodos que puede usar para recuperar el siguiente número de pedido de compra para varios tipos de documentos en Microsoft Dynamics GP.

En el código de ejemplo siguiente se muestra cómo recuperar el siguiente número de pedido de compra para los documentos de procesamiento de pedidos de compra mediante código de Microsoft Visual C# y mediante el código de .NET 2003 de Microsoft Visual Basic.

Antes de usar el código de ejemplo, debe establecer las siguientes referencias:

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

Para establecer estas referencias, siga estos pasos:

1. En Microsoft Visual Studio, haga clic con el botón derecho en Referencias. En el Explorador de soluciones, seleccione Agregar referencia.

2. Abra la carpeta: C:\Archivos de programa\Microsoft Great Plains\eConnect9\Objects\DOT NET.

3. Seleccione la referencia eConnect.MiscRoutines.dll.

4. En .NET, seleccione la referencia System.Enterprise.Services .

Código de ejemplo de 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