Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
In diesem Artikel wird beschrieben, wie Sie die nächste Dokumentnummer für Forderungsverwaltungsdokumente abrufen, wenn Sie die Miscellaneous Routines Assembly in eConnect in Microsoft Dynamics GP verwenden.
Gilt für: Microsoft Dynamics GP
Ursprüngliche KB-Nummer: 939274
Weitere Informationen
Die Miscellaneous Routines Assembly in eConnect enthält Methoden, mit denen Sie die nächste Dokumentnummer für verschiedene Dokumenttypen in Microsoft Dynamics GP abrufen können.
Im folgenden Beispielcode wird veranschaulicht, wie Die nächste Dokumentnummer für Forderungsverwaltungsdokumente mithilfe von Microsoft Visual C#-Code und microsoft Visual Basic .NET 2003-Code abgerufen wird.
Bevor Sie den Beispielcode verwenden, müssen Sie die folgenden Verweise festlegen:
- eConnect.MiscRoutines.dll
- System.Enterprise.Services
Führen Sie die folgenden Schritte aus, um diese Verweise festzulegen:
- Klicken Sie in Microsoft Visual Studio mit der rechten Maustaste auf Verweise. Wählen Sie im LösungsexplorerVerweis hinzufügen aus.
- Öffnen Sie den Ordner: C:\Programme\Microsoft Great Plains\eConnect9\Objects\DOT NET.
- Wählen Sie den eConnect.MiscRoutines.dll Verweis aus.
- Wählen Sie unter .NET die Referenz "System.Enterprise.Services " aus.
Microsoft Visual C#-Beispielcode
//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 nextRMNumber = "";
GetNextDocNumbers.RMPaymentType docType;
Console.WriteLine ("Please select a document type: ");
Console.WriteLine ("1 = RM Credit Memo");
Console.WriteLine ("2 = RM Debit Memo");
Console.WriteLine ("3 = RM Finance Charge");
Console.WriteLine ("4 = RM Invoice");
Console.WriteLine ("5 = RM Payment");
Console.WriteLine ("6 = RM Return");
Console.WriteLine ("7 = RM Scheduled Payment");
Console.WriteLine ("8 = RM Service Repair");
Console.WriteLine ("9 = RM Warranty");
string sDocType = Console.ReadLine ().ToString ();
switch (sDocType) {
case "1":
docType = GetNextDocNumbers.RMPaymentType.RMCreditMemo;
break;
case "2":
docType = GetNextDocNumbers.RMPaymentType.RMDebitMemos;
break;
case "3":
docType = GetNextDocNumbers.RMPaymentType.RMFinanceCharges;
break;
case "4":
docType = GetNextDocNumbers.RMPaymentType.RMInvoices;
break;
case "5":
docType = GetNextDocNumbers.RMPaymentType.RMPayments;
break;
case "6":
docType = GetNextDocNumbers.RMPaymentType.RMReturn;
break;
case "7":
docType = GetNextDocNumbers.RMPaymentType.RMScheduledPayments;
break;
case "8":
docType = GetNextDocNumbers.RMPaymentType.RMServiceRepairs;
break;
case "9":
docType = GetNextDocNumbers.RMPaymentType.RMWarranty;
break;
default:
throw new Exception ("Invalid Document Type");
}
nextRMNumber = oNextDoc.GetNextRMNumber (GetNextDocNumbers.IncrementDecrement.Increment, docType, cnString);
Console.WriteLine ("The next Document Number is " + nextRMNumber);
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-Beispielcode
'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 nextRMNumber As String = ""
Dim docType As GetNextDocNumbers.RMPaymentType
Console.WriteLine("Please select a document type: ")
Console.WriteLine("1 = RM Credit Memo")
Console.WriteLine("2 = RM Debit Memo")
Console.WriteLine("3 = RM Finance Charge")
Console.WriteLine("4 = RM Invoice")
Console.WriteLine("5 = RM Payment")
Console.WriteLine("6 = RM Return")
Console.WriteLine("7 = RM Scheduled Payment")
Console.WriteLine("8 = RM Service Repair")
Console.WriteLine("9 = RM Warranty")
Dim sDocType As String = Console.ReadLine().ToString()
Select Case (sDocType)
Case "1"
docType = GetNextDocNumbers.RMPaymentType.RMCreditMemo
Case "2"
docType = GetNextDocNumbers.RMPaymentType.RMDebitMemos
Case "3"
docType = GetNextDocNumbers.RMPaymentType.RMFinanceCharges
Case "4"
docType = GetNextDocNumbers.RMPaymentType.RMInvoices
Case "5"
docType = GetNextDocNumbers.RMPaymentType.RMPayments
Case "6"
docType = GetNextDocNumbers.RMPaymentType.RMReturn
Case "7"
docType = GetNextDocNumbers.RMPaymentType.RMScheduledPayments
Case "8"
docType = GetNextDocNumbers.RMPaymentType.RMServiceRepairs
Case "9"
docType = GetNextDocNumbers.RMPaymentType.RMWarranty
Case Else
Throw New Exception("Invalid Document Type")
End Select
nextRMNumber = oNextDoc.GetNextRMNumber(GetNextDocNumbers.IncrementDecrement.Increment, docType, cnString)
Console.WriteLine("The next Document Number is " & nextRMNumber)
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