This method will get next document numbers.
Visual Basic |
---|
Public Function GetNextDocumentNumbers( _ ByVal countOfFiles As Long, _ ByRef pVarPrefix As Variant, _ ByRef pVarDocNumbs As Variant _ ) As Long |
Imports System.Runtime.InteropServices Imports System.IO Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim DesMgrApplnObj As DesignManager.Application = Nothing Dim iCountOfDocNum As Integer iCountOfDocNum = 5 Dim objDocumentNumList() As Object Erase objDocumentNumList Dim strPrefix As Object strPrefix = "" Dim GetNextDocumentNumbersHR As Integer = 0 Try DesMgrApplnObj = New DesignManager.Application() If Not DesMgrApplnObj Is Nothing Then GetNextDocumentNumbersHR = DesMgrApplnObj.GetNextDocumentNumbers(iCountOfDocNum, strPrefix, objDocumentNumList) End If Catch ex As Exception MsgBox(ex.ToString) End Try End Sub End Class
using System; using System.Windows.Forms; using System.Runtime.InteropServices; using System.IO; public class Form1 { private void Button1_Click(object sender, EventArgs e) { DesignManager.Application DesMgrApplnObj = null; int iCountOfDocNum = 5; object[] objDocumentNumList = null; objDocumentNumList = null; object strPrefix = ""; int GetNextDocumentNumbersHR = 0; try { DesMgrApplnObj = new DesignManager.Application(); if (DesMgrApplnObj != null) { GetNextDocumentNumbersHR = DesMgrApplnObj.GetNextDocumentNumbers(iCountOfDocNum, strPrefix, objDocumentNumList); } } catch (Exception ex) { MessageBox.Show(ex.ToString()); } } }