您好Werner，

另一种方法是使用DI API获取默认系列

     公共函数GetDefaultSeries（ByVal ObjType As String）As Integer
         Dim oCmpSrv为SAPbobsCOM.CompanyService = Nothing
         Dim oSeriesService为SAPbobsCOM.SeriesService = Nothing
         Dim oSeries As Series =无
         Dim oDocumentTypeParams为DocumentTypeParams = Nothing


         尝试
             oCmpSrv = oCompany.GetCompanyService
             oSeriesService = oCmpSrv.GetBusinessService（ServiceTypes.SeriesService）
             oSeries = oSeriesService.GetDataInterface（SeriesServiceDataInterfaces.ssdiSeries）


             oDocumentTypeParams = oSeriesService.GetDataInterface（SeriesServiceDataInterfaces.ssdiDocumentTypeParams）
             oDocumentTypeParams.Document = ObjType
             oSeries = oSeriesService.GetDefaultSeries（oDocumentTypeParams）


             返回oSeries.Series
         异常捕获
             SBO_Application.StatusBar.SetText（"读取默认编号序列失败。"＆ex.Message）
             返回-1


     结束功能
 

致谢

Edy

嗨Werner

该表是NNM2。 为了使该表包含值，一个对象必须有多个序列，并为每个对象分配不同的用户。

亲切的问候

Peter Juby

谢谢你们的帮助

嗨，Edy，

从您的代码中，我看不到如何引用默认的特殊用户系列。

可以通过吗？

我正在尝试从用户那里获取默认值，并将默认值设置为用户

感谢
Tomer。