Comment récupérer le numéro de document suivant pour les transactions d’inventaire lorsque vous utilisez l’assembly de routines diverses dans eConnect

Cet article explique comment récupérer le numéro de document suivant pour les transactions d’inventaire lorsque vous utilisez l’assembly de routines diverses dans eConnect dans Microsoft Dynamics GP.

S’applique à : Microsoft Dynamics GP
Numéro de base de connaissances d’origine : 939277

Plus d’informations

L’assembly de routines diverses dans eConnect contient des méthodes que vous pouvez utiliser pour récupérer le numéro de document suivant pour différents types de documents dans Microsoft Dynamics GP.

L’exemple de code suivant montre comment récupérer le numéro de document suivant pour les transactions d’inventaire à l’aide du code Microsoft Visual C# et à l’aide du code Microsoft Visual Basic .NET 2003.

Avant d’utiliser l’exemple de code, vous devez définir les références suivantes :

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

Pour définir ces références, procédez comme suit :

1. Dans Microsoft Visual Studio, cliquez avec le bouton droit sur Références. Dans Explorateur de solutions, sélectionnez Ajouter une référence.

2. Ouvrez le dossier : C :\Program Files\Microsoft Great Plains\eConnect9\Objects\DOT NET.

3. Sélectionnez la référence eConnect.MiscRoutines.dll .

4. Sous .NET, sélectionnez la référence System.Enterprise.Services .

Exemple de code Microsoft Visual C#

cs

//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 nextIVNumber = "";
                GetNextDocNumbers.IVDocType docType;

                Console.WriteLine ("Please select a document type: ");
                Console.WriteLine ("1 = IV Adjustment");
                Console.WriteLine ("2 = IV Transfer");
                Console.WriteLine ("3 = IV Variance");
                string sDocType = Console.ReadLine ().ToString ();

                switch (sDocType) {
                    case "1":
                        docType = GetNextDocNumbers.IVDocType.IVAdjustment;
                        break;
                    case "2":
                        docType = GetNextDocNumbers.IVDocType.IVTransfer;
                        break;
                    case "3":
                        docType = GetNextDocNumbers.IVDocType.IVVariance;
                        break;
                    default:
                        throw new Exception ("Invalid Document Type");
                }
                nextIVNumber = oNextDoc.GetNextIVNumber (GetNextDocNumbers.IncrementDecrement.Increment, docType, cnString);
                Console.WriteLine ("The next " + docType + " Document Number is " + nextIVNumber);
                Console.WriteLine ("Press <Enter> to close...");
                Console.Read ();
            } catch (Exception ex) {
                Console.WriteLine (ex.ToString ());
                Console.WriteLine ("Press <Enter> to close...");
                Console.Read ();
            }
        }
    }
}

Exemple de code Microsoft Visual Basic .NET 2003

VB

'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 nextIVNumber As String = ""
            Dim docType As GetNextDocNumbers.IVDocType

            Console.WriteLine("Please select a document type: ")
            Console.WriteLine("1 = IV Adjustment")
            Console.WriteLine("2 = IV Transfer")
            Console.WriteLine("3 = IV Variance")
            Dim sDocType As String = Console.ReadLine().ToString()

            Select Case (sDocType)
                Case "1"
                    docType = GetNextDocNumbers.IVDocType.IVAdjustment
                Case "2"
                    docType = GetNextDocNumbers.IVDocType.IVTransfer
                Case "3"
                    docType = GetNextDocNumbers.IVDocType.IVVariance
                Case Else
                    Throw New Exception("Invalid Document Type")
            End Select

            nextIVNumber = oNextDoc.GetNextIVNumber(GetNextDocNumbers.IncrementDecrement.Increment, docType, cnString)
            Console.WriteLine("The next " & docType & " Document Number is " & nextIVNumber)
            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