103 lines
3.4 KiB
Plaintext
103 lines
3.4 KiB
Plaintext
' GetWinLineDocUniqueIdentifier(GetWinLineDocUniqueIdentifierParams)
|
|
' ----------------------------------------------------------------------------
|
|
' KURZBESCHREIBUNG
|
|
'
|
|
' Returns: NAME : TYP
|
|
' ----------------------------------------------------------------------------
|
|
' Copyright (c) 2021 by Digital Data GmbH
|
|
'
|
|
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
|
|
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
|
|
' ----------------------------------------------------------------------------
|
|
' Creation Date / Author: 01.12.2020 / MK
|
|
' Version Date / Editor: 01.12.2020 / MK
|
|
' Version Number: 1.0.0.0
|
|
|
|
Function GetWinLineDocUniqueIdentifier(GetWinLineDocUniqueIdentifierParams)
|
|
|
|
'SYNOPSIS
|
|
'Function will load external - additional - VBS Modules into current Script.
|
|
|
|
'DESCRIPTION
|
|
'By working with Modules, this Function is necessary to load external Module Functions into the current VB-Script.
|
|
'Call parameter must be an array, because VB-Script functions cannot handle optional Parameters.
|
|
'In develepment and Test Enviroment it is possible, to work with distributed Folders with different Modules. Therefor the Parameter
|
|
'"GetWinLineDocUniqueIdentifierParams(1)" (which is the ModuleOverrideSourcePath) and the preset Variable "ModuleDefaultSourcePath" are made for.
|
|
'After a successful Import of a Module, Function will return True, otherwise a False.
|
|
|
|
'REQUIREMENT General
|
|
'VBS must be enabled
|
|
|
|
'REQUIREMENT Assembly
|
|
'<NONE>
|
|
|
|
'REQUIREMENT Variables
|
|
'FSOModule, Module, ModuleCode
|
|
|
|
'REQUIREMENT Variables preSet
|
|
'<NONE>
|
|
|
|
'REQUIREMENT Functions
|
|
'<NONE>
|
|
|
|
'VERSION
|
|
'Number: 1.0.0.0 / Date: 01.12.2020
|
|
|
|
'PARAMETER GetWinLineDocUniqueIdentifierParams(0) = WorkingMode
|
|
'Give the
|
|
|
|
'PARAMETER GetWinLineDocUniqueIdentifierParams(1) = DocAccountAndRunningNr
|
|
'Optional Parameter.
|
|
|
|
'PARAMETER GetWinLineDocUniqueIdentifierParams(2) = DocAccountNr
|
|
'Optional Parameter.
|
|
|
|
'PARAMETER GetWinLineDocUniqueIdentifierParams(3) = DocRunningNr
|
|
'Optional Parameter.
|
|
|
|
'EXAMPLE
|
|
'Dim GetWinLineDocUniqueIdentifierParams
|
|
'Redim GetWinLineDocUniqueIdentifierParams(0)
|
|
'GetWinLineDocUniqueIdentifierParams(0) = Module
|
|
'LoadVBSModule(GetWinLineDocUniqueIdentifierParams)
|
|
|
|
'EXAMPLE
|
|
'Dim GetWinLineDocUniqueIdentifierParams
|
|
'Redim GetWinLineDocUniqueIdentifierParams(1)
|
|
'GetWinLineDocUniqueIdentifierParams(0) = Module
|
|
'GetWinLineDocUniqueIdentifierParams(1) = "D:\ScriptFiles\Modules"
|
|
'LoadVBSModule(GetWinLineDocUniqueIdentifierParams)
|
|
|
|
On Error Resume Next
|
|
|
|
If VarType(GetWinLineDocUniqueIdentifierParams) > 8000 Then
|
|
|
|
WorkingMode = GetWinLineDocUniqueIdentifierParams(0)
|
|
DocAccountAndRunningNr = GetWinLineDocUniqueIdentifierParams(1)
|
|
DocAccountNr = GetWinLineDocUniqueIdentifierParams(2)
|
|
DocRunningNr = GetWinLineDocUniqueIdentifierParams(3)
|
|
|
|
IF (WorkingMode = "interactive") or (WorkingMode = "interaktive") Then
|
|
|
|
GetWinLineDocUniqueIdentifier = DocAccountAndRunningNr
|
|
|
|
Else
|
|
|
|
GetWinLineDocUniqueIdentifier = DocAccountAndRunningNr
|
|
|
|
End If
|
|
|
|
|
|
'If no array was used by calling this function
|
|
Else
|
|
|
|
If (DEBUG_ON = True) Or (DebugMode = "Enabled") Then
|
|
MSGBOX "The used Parameter is not an Array!" & vbCrlf & _
|
|
"",,"DEBUG Info: Parameter is not an Array - GetWinLineDocUniqueIdentifierParams"
|
|
End If
|
|
|
|
GetWinLineDocUniqueIdentifier = ""
|
|
|
|
End if
|
|
|
|
End Function 'GetWinLineDocUniqueIdentifier |