Module: Reorg / Cleanup

archive/Modules/Archiv/GetWinLineDocUniqueByNumber.vbs

@@ -0,0 +1,91 @@
+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