Initial

EDOKA/DiverseFormulare/frmDataReplikation.vb

@@ -0,0 +1,79 @@
+Imports System.Data.Sql
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+
+Public Class frmDataReplikation
+
+    Dim partnernr As Integer
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub New(ByVal partnernr As Integer)
+        InitializeComponent()
+        Me.partnernr = partnernr
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Me.DialogResult = Windows.Forms.DialogResult.Cancel
+        Me.Close()
+    End Sub
+
+    Private Sub frmDataReplikation_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Timer1.Interval = 2000
+        Timer1.Enabled = True
+        Me.ProgressBar1.Minimum = 0
+        Me.ProgressBar1.Maximum = 100
+
+    End Sub
+
+    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
+        Try
+            Me.ProgressBar1.Value = Me.ProgressBar1.Value + 20
+        Catch
+            Me.ProgressBar1.Value = 0
+        End Try
+
+        If checkPartnerNr(Me.partnernr) = True Then
+            Timer1.Enabled = False
+            Timer1.Stop()
+            Me.DialogResult = Windows.Forms.DialogResult.OK
+            Me.Close()
+        End If
+    End Sub
+
+    Function checkPartnerNr(ByVal partnernr As String) As Boolean
+        Dim ret As Boolean = True
+
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        scmCmdToExecute.CommandText = "dbo.sp_checkPartnerNr"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        scmCmdToExecute.Connection = conn.scoDBConnection
+        Try
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@partnerNr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, partnernr))
+            sdaAdapter.Fill(dtToReturn)
+
+            If dtToReturn.Rows.Count > 0 Then
+                ret = True
+            Else
+              
+                ret = False
+            End If
+
+        Catch ex As Exception
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+            dtToReturn.Dispose()
+        End Try
+        Return ret
+    End Function
+End Class