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