91 lines
2.7 KiB
Plaintext
91 lines
2.7 KiB
Plaintext
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 Modul 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 no Array!" & vbCrlf & _
|
|
"",,"DEBUG Info: Parameter is no Array - GetWinLineDocUniqueIdentifierParams"
|
|
End If
|
|
|
|
GetWinLineDocUniqueIdentifier = ""
|
|
|
|
End if
|
|
|
|
End Function 'GetWinLineDocUniqueIdentifier |