' 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