EDOKA_Tools/.svn/pristine/8d/8dff198b09946de34b2a8c4473f94e2f9227025c.svn-base

Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Imports System.ComponentModel
Imports System.Drawing
Imports System.Drawing.Color
Imports System.IO
Imports System.Threading
Imports System.Windows.Forms


Public Class Form1


    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.Close()
    End Sub


    Private Function Generic_Select() As DataTable
        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
        Dim dbconn As New SqlConnection(Globals.sConnectionString)

        scmCmdToExecute.Connection = dbconn
        scmCmdToExecute.CommandText = "sp_selbstanzeigen"
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim jvon As Integer
        Dim jbis As Integer
        If Trim(Me.txtJahrvon.Text) = "" Then jvon = 0 Else jvon = Me.txtJahrvon.Text
        If Trim(Me.txtJahrbis.Text) = "" Then jbis = 0 Else jbis = Me.txtJahrbis.Text
        scmCmdToExecute.Parameters.Add(New SqlParameter("@bpnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.txtBPNr.Text))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@jvon", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, jvon))
        scmCmdToExecute.Parameters.Add(New SqlParameter("@jbis", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, jbis))
        scmCmdToExecute.CommandType = CommandType.StoredProcedure
        Dim dtToReturn As DataTable = New DataTable()
        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
        Try
            sdaAdapter.Fill(dtToReturn)
            Return dtToReturn
        Catch ex As Exception
            Throw New Exception("Dokumenterstellung::Generic_Select::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
        Finally
            scmCmdToExecute.Dispose()
            sdaAdapter.Dispose()
        End Try
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim dt As New DataTable
            dt = Generic_Select()
            Me.DokList.DataSource = Nothing
            Me.DokList.DataSource = dt
            Me.DokList.DataMember = dt.TableName
            Me.Button2.Enabled = True
        Catch ex As Exception
            MsgBox(ex.Message)
            Me.Button2.Enabled = False
        End Try
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Globals.Partnernr = Me.txtBPNr.Text
        Globals.PartnerKurzbezeichnung = Me.Label5.Text
        Dim gendokCold As New Collection()
        Dim gendokOffice As New Collection
        Dim i As Integer
        Dim colRows As C1.Win.C1TrueDBGrid.SelectedRowCollection

        colRows = Me.DokList.SelectedRows
        If colRows.Count = 0 Then
            For i = 0 To Me.DokList.Splits(0).Rows.Count - 1
                colRows.Add(i)
            Next
        End If
        'Wenn mehr als ein Dokument selektiert ist dann Meldung zum Fragen anzeigen
        If colRows.Count > 1 Then
            If MsgBox("Alle markierten Dokumente (" + LTrim(Str(colRows.Count)) + ") drucken?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
                Exit Sub
            End If
        End If

        Me.Cursor = Cursors.WaitCursor

        Dim packagenr As Integer
      
        packagenr = CInt(Math.Truncate(colRows.Count / Globals.Packagegroesse))
        packagenr = packagenr + 1
        Dim f As New frmFortschritt
        f.MdiParent = Me.MdiParent
        f.Show()
        f.ProgressBar1.Value = 0
        f.ProgressBar1.Maximum = packagenr

        'Loop über die Selektierten Dokumente und die Werte je nach Typ in eine Collection abspeichern
        Dim RowCunter As Integer = 0
        For i = 0 To colRows.Count - 1
            Try
                'Host Daten abfüllen
                gendokCold.Add(New clsMehrfachdruck_Data(Me.DokList.Columns("dokumentid").CellValue(colRows(i)), _
                Me.DokList.Columns("partnernr_inhaber").CellValue(colRows(i)), clsMehrfachdruck_Data.Enum_Typ.HOST, False, _
                Me.DokList.Columns("dokumenttypnr").CellValue(colRows(i)), "", _
                Me.DokList.Columns("partnername_inhaber").CellValue(colRows(i)), _
                Me.DokList.Columns("valutadatum").CellValue(colRows(i))))
                RowCunter = RowCunter + 1
                Exit Try
            Catch ex As Exception
            End Try
            If RowCunter > Globals.Packagegroesse - 1 Then
                f.ProgressBar1.Value = f.ProgressBar1.Value + 1
                f.Label5.Text = "Druckauftrag " + f.ProgressBar1.Value.ToString + " von " + f.ProgressBar1.Maximum.ToString
                f.Label5.Text = f.Label5.Text + " - " + Globals.DelayTime.ToString + " Sekunden Wartezeit"
                Application.DoEvents()
                f.Refresh()
                f.BringToFront()
                f.Refresh()
                RowCunter = 0
                fMehrfachdruck.DruckAnfrage(gendokCold, gendokOffice)
                f.Refresh()
                Application.DoEvents()
                gendokCold.Clear()
                Application.DoEvents()
                f.Refresh()
                Dim t1 As DateTime
                Dim t2 As DateTime
                Threading.Thread.CurrentThread.Sleep(Globals.DelayTime * 1000)
                gendokCold.Clear()
            End If
        Next

        Try
            If gendokCold.Count > 0 Then fMehrfachdruck.DruckAnfrage(gendokCold, gendokOffice)
            Application.DoEvents()
        Catch ex As Exception
        Finally
            Me.Cursor = Cursors.Default
        End Try
        f.Close()
        f.Dispose()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim f As New FrmPartnersuche
        f.ShowDialog()
        If f.PartnerNr <> 0 Then
            Me.txtBPNr.Text = f.PartnerNr
            Update_BP()
        End If

    End Sub


    Private Sub txtBPNr_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtBPNr.KeyDown
        If e.KeyCode = Keys.Enter Then
            Update_BP()
        End If
    End Sub

    Private Sub txtBPNr_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtBPNr.Leave
        Update_BP()
    End Sub

    Private Sub Update_BP()
        Try
            Dim f As New FrmPartnersuche
            f.Partner_Suche(Me.txtBPNr.Text)
            If f.PartnerKurzbezeichnnung = "" Then
                MsgBox("Eingegebener Parter ist nicht vorhanden", MsgBoxStyle.Critical)
                Me.Label5.Text = "[Kein Partner ausgwählt]"
                Me.Button1.Enabled = False
                Me.Button2.Enabled = False
            Else
                Me.Label5.Text = f.PartnerKurzbezeichnnung
                Me.Button1.Enabled = True
                Me.Button2.Enabled = False
            End If
        Catch
        End Try
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub txtBPNr_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBPNr.TextChanged

    End Sub
End Class