Initial

2022-12-25 10:09:49 +01:00
commit 406d053e79
3903 changed files with 2127541 additions and 0 deletions
--- a/EDOKA/Backup/EDEX/Banklagernd/frmWatchJob.vb
+++ b/EDOKA/Backup/EDEX/Banklagernd/frmWatchJob.vb
@@ -0,0 +1,194 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+Public Class frmWatchJob
+    Inherits System.Windows.Forms.Form
+
+#Region " Vom Windows Form Designer generierter Code "
+
+    Public Sub New()
+        MyBase.New()
+
+        ' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
+        InitializeComponent()
+
+        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
+
+    End Sub
+
+    ' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+            If Not (components Is Nothing) Then
+                components.Dispose()
+            End If
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    ' Für Windows Form-Designer erforderlich
+    Private components As System.ComponentModel.IContainer
+
+    'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
+    'Sie kann mit dem Windows Form-Designer modifiziert werden.
+    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
+    Friend WithEvents Button1 As System.Windows.Forms.Button
+    Friend WithEvents Label1 As System.Windows.Forms.Label
+    Friend WithEvents Timer1 As System.Timers.Timer
+    Friend WithEvents Label2 As System.Windows.Forms.Label
+    Friend WithEvents lblpartner As System.Windows.Forms.Label
+    Friend WithEvents Label3 As System.Windows.Forms.Label
+    Friend WithEvents cbverarbeitung As System.Windows.Forms.ComboBox
+    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
+        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(frmWatchJob))
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.Timer1 = New System.Timers.Timer()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.lblpartner = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.cbverarbeitung = New System.Windows.Forms.ComboBox()
+        CType(Me.Timer1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'Button1
+        '
+        Me.Button1.Location = New System.Drawing.Point(136, 120)
+        Me.Button1.Name = "Button1"
+        Me.Button1.TabIndex = 0
+        Me.Button1.Text = "OK"
+        '
+        'Label1
+        '
+        Me.Label1.Location = New System.Drawing.Point(8, 32)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(376, 23)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "Die COLD-Druckaufbereitung ist abgeschlossen."
+        '
+        'Timer1
+        '
+        Me.Timer1.Interval = 30000
+        Me.Timer1.SynchronizingObject = Me
+        '
+        'Label2
+        '
+        Me.Label2.Location = New System.Drawing.Point(8, 8)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(48, 23)
+        Me.Label2.TabIndex = 2
+        Me.Label2.Text = "Partner:"
+        '
+        'lblpartner
+        '
+        Me.lblpartner.Location = New System.Drawing.Point(56, 8)
+        Me.lblpartner.Name = "lblpartner"
+        Me.lblpartner.Size = New System.Drawing.Size(336, 23)
+        Me.lblpartner.TabIndex = 3
+        '
+        'Label3
+        '
+        Me.Label3.Location = New System.Drawing.Point(8, 72)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(120, 23)
+        Me.Label3.TabIndex = 4
+        Me.Label3.Text = "Weitere Verarbeitung:"
+        '
+        'cbverarbeitung
+        '
+        Me.cbverarbeitung.Items.AddRange(New Object() {"Meldungsfenster schliessen", "Aushändigungs-Qu. und Dokumente drucken", "Nur Aushändigungs-Quittung drucken"})
+        Me.cbverarbeitung.Location = New System.Drawing.Point(136, 72)
+        Me.cbverarbeitung.Name = "cbverarbeitung"
+        Me.cbverarbeitung.Size = New System.Drawing.Size(216, 21)
+        Me.cbverarbeitung.TabIndex = 5
+        Me.cbverarbeitung.Text = "ComboBox1"
+        '
+        'frmWatchJob
+        '
+        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
+        Me.ClientSize = New System.Drawing.Size(360, 149)
+        Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.cbverarbeitung, Me.Label3, Me.lblpartner, Me.Label2, Me.Label1, Me.Button1})
+        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
+        Me.Name = "frmWatchJob"
+        Me.ShowInTaskbar = False
+        Me.Text = "Druckaufbereitung abgeschlossen"
+        Me.TopMost = True
+        CType(Me.Timer1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+
+#End Region
+
+    Dim m_druckjobnr As Integer
+    Dim dokidquittung As String = ""
+    Dim alnr As Integer = 0
+    Dim part As Integer
+    Public Sub New(ByVal druckjobnr As Integer)
+        MyBase.New()
+        InitializeComponent()
+        Me.m_druckjobnr = druckjobnr
+        Me.Timer1.Enabled = True
+    End Sub
+
+    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
+        Select Case Me.cbverarbeitung.SelectedIndex
+            Case 0
+            Case 1
+                Dim frmbla As New frmBLAuslieferungen()
+                frmbla.PrintDocs(Me.dokidquittung, Me, Me.alnr, part)
+                frmbla.Close()
+                frmbla.Dispose()
+            Case 2
+                Dim frmbla As New frmBLAuslieferungen()
+                frmbla.PrintQuittung(Me.dokidquittung, Me, Me.alnr)
+                frmbla.Close()
+                frmbla.Dispose()
+
+        End Select
+        Me.Close()
+    End Sub
+
+    Private Sub Timer1_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
+        If Check_Status() Then
+            Me.Timer1.Enabled = False
+            Me.Visible = True
+            Beep()
+            Application.DoEvents()
+        End If
+    End Sub
+
+    Private Function Check_Status() As Boolean
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        scmCmdToExecute.CommandText = "dbo.sp_edex_bl_check_druckjob"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        Try
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@druckjobnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.m_druckjobnr))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@partner", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid_quittung", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@alnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
+            sdaAdapter.Fill(dtToReturn)
+            If scmCmdToExecute.Parameters("@status").Value = 1 Then
+                Me.lblpartner.Text = scmCmdToExecute.Parameters("@Partner").Value
+                Me.dokidquittung = scmCmdToExecute.Parameters("@dokumentid_quittung").Value
+                Me.alnr = scmCmdToExecute.Parameters("@alnr").Value
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+            dtToReturn.Dispose()
+        End Try
+    End Function
+
+    Private Sub frmWatchJob_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
+        Me.cbverarbeitung.SelectedIndex = 1
+    End Sub
+End Class