ÿÿCHHVBScriptEngineÿþÿ (General)ÿþÿ(Declarations)ÿþÿ'(Declarations) ÿþÿÿ?'Remark: Digital Data - Document Export Macro ' 'VB Script Document ' 'Export Script for WinLine documents. 'Configuration has to be done in SQL Tables TBDD_DOCEXPORT_CONFIGURATION and TBDD_DOCEXPORT_PROFILE ' 'Digital Data 'Ludwig-Rinn-Straße 16 '35452 Heuchelheim 'Tel.: 0641 / 202360 'E-Mail: info-flow(at)digitaldata.works ' 'Version Number: 2.0.0.0 'Version Date: 01.02.2020 On Error Resume Next '########## set variables ########## Cwlstart.MacroCommands.MRunMacroSuspended "TEST" Set wshshell = CreateObject("WScript.Shell") Set FileSystemObject = CreateObject("Scripting.FileSystemObject") params = MParameters ' unbedingt notwendig um auf die Parameter als Feld zugreifen zu können DebugMode = params(20) SQLTable = params(21) SQLQuery = params(22) MacroMode = params(23) DOCEXPORT_wait = params(24) DOCEXPORT_Trys = 10 'params(25) DOCEXPORT_PATH_AND_FILENAME = FileSystemObject.GetAbsolutePathName(params(26)) ServerPath = cwlstart.ServerPath CurrentUser = cwlstart.CurrentUser '########## preparing part ########## If DebugMode = "Enabled" Then CRLF = chr(13)&chr(10) msg = "Parameter:" & CRLF For i = 1 To Ubound(params) msg = msg & i & ".: " & params(i) & CRLF Next msgbox msg ,, "Macro Name: " & CWLMacro.MName End If Do LoopCounter = LoopCounter + 1 If DebugMode = "Enabled" Then MSGBOX("The value of i is : " & LoopCounter) End If Loop Until (LoopCounter = DOCEXPORT_Trys) Or (FileSystemObject.FileExists(DOCEXPORT_PATH_AND_FILENAME)) Set DOCEXPORT_FILENAME = FileSystemObject.GetFile(DOCEXPORT_PATH_AND_FILENAME) DOCEXPORT_PATH = FileSystemObject.GetParentFolderName(DOCEXPORT_FILENAME) '########## main part ########## '----------------------------------------------------------------------- If MacroMode = "RUN_PROGRAM" Then If DebugMode = "Enabled" Then MSGBOX "Programm-Ausführung nach dem Dokumenten Export aktiviert.",,"MacroMode: " & MacroMode End If RUN_Program = params(27) RUN_PROGRAM_PARAMETER1 = params(28) RUN_PROGRAM_PARAMETER2 = params(29) RUN_PROGRAM_PARAMETER3 = params(30) If FileSystemObject.FileExists(DOCEXPORT_PATH_AND_FILENAME) Then wshshell.run RUN_Program & RUN_PROGRAM_PARAMETER1 & RUN_PROGRAM_PARAMETER2 & RUN_PROGRAM_PARAMETER3 Else MSGBOX "Fehler beim Ausführen des Programms: " & vbCrlf & _ RUN_Program,,"Bitte informieren Sie Ihren Administrator!" End If '----------------------------------------------------------------------- Elseif MacroMode = "OPEN_FILE_AFTER_EXPORT" Then If DebugMode = "Enabled" Then MSGBOX "Öffnen der exportierten Datei aktiviert.",,"MacroMode: " & MacroMode End If If FileSystemObject.FileExists(DOCEXPORT_PATH_AND_FILENAME) Then wshshell.run DOCEXPORT_PATH_AND_FILENAME Else MSGBOX "Fehler beim öffnen der Datei: " & vbCrlf & _ DOCEXPORT_PATH_AND_FILENAME,,"Bitte informieren Sie Ihren Administrator!" End If '----------------------------------------------------------------------- Elseif MacroMode = "VERIFY_EXPORT_AND_LOG2DB" Then If DebugMode = "Enabled" Then MSGBOX "Überprüfe Export inkl. Datenbank-Protokollierung aktiviert.",,"MacroMode: " & MacroMode End If ' Set tmp = CWLStart.CurrentCompany.Connection.Select ("Select top 1 c000 from [CWLSYSTEM].[dbo].[t069CMP] (NOLOCK) where c001 = '" & eig.value("c002") & "'") 'msgbox tmp &","&eig.value("c002") 'If tmp >= 0 then ' If eigenschaften (i) <> "" Then ' sql = "insert into t070 (c000,c001,c002,c003,mesocomp,mesoyear) Values ('"&asp.value("c000")&"',"&eigenschaften(i)&",'"&CWLStart.CurrentCompany.Nr&"',"&jahr&")" 'msgbox sql ' CWLStart.CurrentCompany.Connection.ExecuteSQL (sql) ' Else ' Exit For ' End If '----------------------------------------------------------------------- Elseif MacroMode = "VERIFY_EXPORT_AND_LOG2FILE" Then If DebugMode = "Enabled" Then MSGBOX "Überprüfe Export inkl. Datei-Protokollierung aktiviert.",,"MacroMode: " & MacroMode End If LogPath = ServerPath & "\User\" & CurrentUser & "\" LogFile = LogPath & "\" & "DOCEXPORT_" & (Year(date)) & "-" &(month(date)) & "-" & (day(date)) & ".log" Set LogFile = FileSystemObject.OpenTextFile(LogPath&LogFile, 8, True) 'Check if destination folder / folder strukture exists. If not, try to create. IF NOT FileSystemObject.FolderExists(LogPath) THEN strDir = FileSystemObject.GetAbsolutePathName(LogPath) arrDirs = Split( strDir, "\" ) If Left( strDir, 2 ) = "\\" THEN strDirBuild = "\\" & arrDirs(2) & "\" & arrDirs(3) & "\" idxFirst = 4 Else strDirBuild = arrDirs(0) & "\" idxFirst = 1 End If For idx = idxFirst to Ubound( arrDirs ) strDirBuild = FileSystemObject.BuildPath( strDirBuild, arrDirs(idx) ) If Not FileSystemObject.FolderExists( strDirBuild ) THEN FileSystemObject.CreateFolder strDirBuild End if Next End If If (FileSystemObject.FolderExists(LogPath)) Then If (FileSystemObject.FileExists(LogFile)) Then If (FileSystemObject.FileExists(DOCEXPORT_PATH_AND_FILENAME)) Then LogFile.WriteLine (Cstr(Now()) & "," & Right(Cstr(Timer() * 100),2)) & ": (ERFOLGREICH) Die Datei " & DOCEXPORT_FILENAME & " wurde erfolgreich von " & CurrentUser & " nach " & DOCEXPORT_PATH & " exportiert!" Else LogFile.WriteLine (Cstr(Now()) & "," & Right(Cstr(Timer() * 100),2)) & ": (FEHLER) Die Datei " & DOCEXPORT_FILENAME & " wurde NICHT erfolgreich von " & CurrentUser & " nach " & DOCEXPORT_PATH & " exportiert!" End If Else MSGBOX "Fehler beim erzeugen der Protokolldatei (LogFile): " & vbCrlf & _ LogPath,,"Bitte informieren Sie Ihren Administrator!" End If Else MSGBOX "Fehler beim erzeugen des Protokollpfads (LogPath): " & vbCrlf & _ LogPath,,"Bitte informieren Sie Ihren Administrator!" End If '----------------------------------------------------------------------- Elseif MacroMode = "VERIFY_EXPORT_AND_MSGBOX" Then If DebugMode = "Enabled" Then msgbox "Überprüfe Export inkl. Benachrichtigung aktiviert.",,"MacroMode: " & MacroMode End If For LoopCounter =1 To 10 If FileSystemObject.FileExists(DOCEXPORT_PATH_AND_FILENAME) Then MSGBOX "Bestätigter Export, von Datei: " & vbCrlf & _ DOCEXPORT_PATH_AND_FILENAME,,"Export erfolgreich ausgeführt!" Else MSGBOX "Fehler bei Export, von Datei: " & vbCrlf & _ DOCEXPORT_PATH_AND_FILENAME,,"Bitte informieren Sie Ihren Administrator!" End If Next '----------------------------------------------------------------------- Else MSGBOX "Bitte prüfen Sie die verwendeten Parameter.",,"Ungültiger Aufruf!" End If '----------------------------------------------------------------------- '########## final part ########## If DebugMode = "Enabled" Then Sub RunMacro ' Return to Macro Window MApplication 2 MApplication 0 MWindow 45, False MSetFieldFocus 45, 100 MSetFieldFocus 45, -1 MSetFieldFocus 45, -1 MActivateWindow 45 End Sub End If ÿþÿ'End of (Declarations) dFocus 45, -1 MActivateWindow 45 End Sub End If ÿþÿ'End of (Declarations)