Get the next SOP Number
Imports System
Imports System.Xml
Imports System.Xml.Serialization
Imports System.IO
Imports System.Text
Imports Microsoft.GreatPlains.eConnect
Imports Microsoft.GreatPlains.eConnect.Serialization
Imports Microsoft.GreatPlains.eConnect.MiscRoutines
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim ConnectionString As String
Dim SopNumber As String
'Set the connection string
'This connection string uses integrated security to connect to the
'TWO database on the local computer
'Create a connection string to Microsoft Dynamics GP
ConnectionString = "data source=devshed01;initial catalog=train;integrated security=SSPI;persist security info=False; packet size=4096"
'Instantiate a GetSopNumber object
Dim SopNumberObject As New GetSopNumber
'Get the next SOP number
SopNumber = SopNumberObject.GetNextSopNumber(3, "STDINV", ConnectionString)
MsgBox(SopNumber)
End Sub
|
|
|