You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
56 lines
1.8 KiB
56 lines
1.8 KiB
Imports System.IO
|
|
|
|
Module Module1
|
|
Dim db As New clsdb(My.Settings.ConnINT, My.Settings.ConnProd)
|
|
|
|
Sub Main()
|
|
Verarbeiten()
|
|
End Sub
|
|
|
|
Private Sub Verarbeiten(Optional ExpressUser As String = "")
|
|
Dim importierte_vorlagen As Integer = 0
|
|
Try
|
|
Globals.Journal.Init()
|
|
Globals.Journal.Insert_RunJOurnal("Start Vorlagenübernahme")
|
|
If ExpressUser <> "" Then
|
|
Globals.Journal.Insert_RunJOurnal("Express ausgelöst durch: " + ExpressUser)
|
|
End If
|
|
If db.Check_Run Then
|
|
Dim dms As New clsdms(My.Settings.ConnINT, My.Settings.ConnProd)
|
|
dms.Get_Vorlagen()
|
|
If dms.Check_Import_Vorlagen Then
|
|
importierte_vorlagen = dms.Import_Vorlagen()
|
|
End If
|
|
Else
|
|
Globals.Journal.Insert_RunJOurnal("Keine Übernahme")
|
|
|
|
End If
|
|
|
|
If ExpressUser = "" Then db.Set_Next_RunDate()
|
|
Globals.Journal.Insert_RunJOurnal("Ende Vorlagenübernahme")
|
|
db.Save_Journal()
|
|
db.SendMail(1, importierte_vorlagen, "")
|
|
If importierte_vorlagen > 0 Then
|
|
db.SendMail(2, importierte_vorlagen, Globals.Journal.UebernahmeJournal)
|
|
End If
|
|
Catch ex As Exception
|
|
Globals.Journal.Insert_RunJOurnal("Fehler aufgetreten: " + ex.Message)
|
|
db.Save_Journal()
|
|
db.Set_Next_RunDate()
|
|
|
|
Finally
|
|
|
|
End Try
|
|
|
|
cleanup()
|
|
|
|
End Sub
|
|
|
|
Sub cleanup()
|
|
Dim directoryName As String = My.Settings.Vorlagenverzeichnis
|
|
For Each deleteFile In Directory.GetFiles(directoryName, "*.*", SearchOption.TopDirectoryOnly)
|
|
File.Delete(deleteFile)
|
|
Next
|
|
End Sub
|
|
End Module
|