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