AppStd/Modules
8
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS Globix Verwaltung Integration

Browse Source
This commit is contained in:
SchreiberM
2021-03-31 14:25:08 +02:00
parent 781a6ae55b
commit 445554295d
20 changed files with 859 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
Modules.EDMIAPI/Client.vb
View File

@@ -281,9 +281,12 @@ Public Class Client
Throw ex
End Try
End Function
Public Function NewFileStoreObject(IDB_OBJ_ID As Long, Optional pStoreType As String = "", Optional pDate As String = "") As String
Public Function NewFileStoreObject(IDB_OBJ_ID As Long, pStoreType As String, pDate As String, pExtension As String, pKeepExtension As String) As String
Try
Dim oResponse = _channel.New_FileStore_Object(IDB_OBJ_ID, pStoreType, pDate)
If pExtension.StartsWith(".") Then
pExtension = pExtension.Replace(".", "")
End If
Dim oResponse = _channel.New_FileStore_Object(IDB_OBJ_ID, pStoreType, pDate, pExtension, pKeepExtension)
Return oResponse
Catch ex As Exception
_logger.Error(ex)

2
Modules.EDMIAPI/Connected Services/EDMIServiceReference/DigitalData.Services.EDMIService.xsd
View File

@@ -232,6 +232,8 @@
<xs:element minOccurs="0" name="IDB_OBJ_ID" type="xs:long" />
<xs:element minOccurs="0" name="pStoreType" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="pDate" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="pExtension" nillable="true" type="xs:string" />
<xs:element minOccurs="0" name="pKeepExtension" type="xs:boolean" />
</xs:sequence>
</xs:complexType>
</xs:element>

12
Modules.EDMIAPI/Connected Services/EDMIServiceReference/Reference.vb
View File

@@ -449,11 +449,11 @@ Namespace EDMIServiceReference
System.ServiceModel.FaultContractAttribute(GetType(EDMIServiceReference.UnexpectedErrorFault), Action:="http://DigitalData.Services.EDMIService/IEDMIService/New_FileStore_ObjectUnexpect"& _
"edErrorFaultFault", Name:="UnexpectedErrorFault", [Namespace]:="http://schemas.datacontract.org/2004/07/DigitalData.Services.EDMIService.Exceptio"& _
"ns")> _
Function New_FileStore_Object(ByVal IDB_OBJ_ID As Long, ByVal pStoreType As String, ByVal pDate As String) As String
Function New_FileStore_Object(ByVal IDB_OBJ_ID As Long, ByVal pStoreType As String, ByVal pDate As String, ByVal pExtension As String, ByVal pKeepExtension As Boolean) As String
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/New_FileStore_Object", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/New_FileStore_ObjectResponse"& _
"")> _
Function New_FileStore_ObjectAsync(ByVal IDB_OBJ_ID As Long, ByVal pStoreType As String, ByVal pDate As String) As System.Threading.Tasks.Task(Of String)
Function New_FileStore_ObjectAsync(ByVal IDB_OBJ_ID As Long, ByVal pStoreType As String, ByVal pDate As String, ByVal pExtension As String, ByVal pKeepExtension As Boolean) As System.Threading.Tasks.Task(Of String)
<System.ServiceModel.OperationContractAttribute(Action:="http://DigitalData.Services.EDMIService/IEDMIService/New_IDB_OBJECT", ReplyAction:="http://DigitalData.Services.EDMIService/IEDMIService/New_IDB_OBJECTResponse"), _
System.ServiceModel.FaultContractAttribute(GetType(EDMIServiceReference.UnexpectedErrorFault), Action:="http://DigitalData.Services.EDMIService/IEDMIService/New_IDB_OBJECTUnexpectedErro"& _
@@ -912,12 +912,12 @@ Namespace EDMIServiceReference
Return CType(Me,EDMIServiceReference.IEDMIService).ListFilesForUserAsync(inValue)
End Function
Public Function New_FileStore_Object(ByVal IDB_OBJ_ID As Long, ByVal pStoreType As String, ByVal pDate As String) As String Implements EDMIServiceReference.IEDMIService.New_FileStore_Object
Return MyBase.Channel.New_FileStore_Object(IDB_OBJ_ID, pStoreType, pDate)
Public Function New_FileStore_Object(ByVal IDB_OBJ_ID As Long, ByVal pStoreType As String, ByVal pDate As String, ByVal pExtension As String, ByVal pKeepExtension As Boolean) As String Implements EDMIServiceReference.IEDMIService.New_FileStore_Object
Return MyBase.Channel.New_FileStore_Object(IDB_OBJ_ID, pStoreType, pDate, pExtension, pKeepExtension)
End Function
Public Function New_FileStore_ObjectAsync(ByVal IDB_OBJ_ID As Long, ByVal pStoreType As String, ByVal pDate As String) As System.Threading.Tasks.Task(Of String) Implements EDMIServiceReference.IEDMIService.New_FileStore_ObjectAsync
Return MyBase.Channel.New_FileStore_ObjectAsync(IDB_OBJ_ID, pStoreType, pDate)
Public Function New_FileStore_ObjectAsync(ByVal IDB_OBJ_ID As Long, ByVal pStoreType As String, ByVal pDate As String, ByVal pExtension As String, ByVal pKeepExtension As Boolean) As System.Threading.Tasks.Task(Of String) Implements EDMIServiceReference.IEDMIService.New_FileStore_ObjectAsync
Return MyBase.Channel.New_FileStore_ObjectAsync(IDB_OBJ_ID, pStoreType, pDate, pExtension, pKeepExtension)
End Function
Public Function New_IDB_OBJECT(ByVal KindType As String, ByVal pWho As String, ByVal pBusinessEntity As String) As String Implements EDMIServiceReference.IEDMIService.New_IDB_OBJECT

4
Modules.EDMIAPI/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.1.0.1")>
<Assembly: AssemblyFileVersion("1.1.0.1")>
<Assembly: AssemblyVersion("1.2.1.0")>
<Assembly: AssemblyFileVersion("1.2.1.0")>