AVISO/Aviso/Anhänge/frmAddSendnung.vb

Public Class frmAddSendnung

    Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
    Dim AvisoId As Integer
    Dim AVISOFUNC As New AvisoStatusFunctions
    Public SendungsId As Integer = -1
    Sub New(AvisoId)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.AvisoId = AvisoId
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub

    Sub New(AvisoId, SENDUNG)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        Me.AvisoId = AvisoId
        Me.Sendung = SENDUNG
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.

    End Sub
    Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load
        cboAbfertigungsart.fillWithSQL("SELECT [Abfertigungsart],[Abfertigungsbezeichnung] FROM [Abfertigungsarten] ", True, "FMZOLL", True)
        txtEmpfaenger.initKdBox(Me)
        txtEmpfaenger.usrcntlWIDTH = 360
        txtEmpfaenger.usrcntlHEIGHT = 100
        txtAbsender.initKdBox(Me)
        txtAbsender.usrcntlWIDTH = 360
        txtAbsender.usrcntlHEIGHT = 100

        AddHandler txtEmpfaenger.PropertyChanged, Sub()
                                                      FlatButton4.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
                                                      initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
                                                      initBesKd(txtEmpfaenger)
                                                  End Sub
        AddHandler txtAbsender.PropertyChanged, Sub()
                                                    FlatButton1.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
                                                    initWarnKd(txtAbsender, picWarnAbsender)
                                                    initBesKd(txtAbsender)
                                                End Sub



        If Sendung IsNot Nothing Then
            cboAbfertigungsart.changeItem(Sendung.tblSnd_Abfertigungsart_ID)
            If Sendung.tblSnd_EmpfaengerKdNr > 0 Then
                txtEmpfaenger.KdNr = Sendung.tblSnd_EmpfaengerKdNr
            Else
                txtEmpfaenger.Text = Sendung.tblSnd_Empfaenger
            End If
            If Sendung.tblSnd_AbsenderKdNr > 0 Then
                txtAbsender.KdNr = Sendung.tblSnd_AbsenderKdNr
            Else
                txtAbsender.Text = Sendung.tblSnd_Absender
            End If

            txtColli.Text = If(Sendung.tblSnd_Colli, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
            txtGewicht.Text = If(Sendung.tblSnd_Gewicht, "").ToString.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
            rtbWarenbezeichnung.Text = If(Sendung.tblSnd_Warenbezeichnung, "")

        End If



    End Sub

    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
        Try
            txtColli.Text = txtColli.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
            txtGewicht.Text = txtGewicht.Text.Replace(" ", "").Replace(Chr(160), "") ' 160: irgend ein Sonder-Leerzeichen
            If txtColli.Text <> "" And Not IsNumeric(txtColli.Text) Then MsgBox("Colli: Falsches Format") : Exit Sub
            If txtGewicht.Text <> "" And Not IsNumeric(txtGewicht.Text) Then MsgBox("f Gewicht: Falsches Format") : Exit Sub

            If Sendung Is Nothing Then
                Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
            End If

            Sendung.tblSnd_Abfertigungsart_ID = If(cboAbfertigungsart._value <> "", cboAbfertigungsart._value, -1)
            Sendung.tblSnd_Empfaenger = txtEmpfaenger.Text
            Sendung.tblSnd_EmpfaengerKdNr = txtEmpfaenger.KdNr
            Sendung.tblSnd_Absender = txtAbsender.Text
            Sendung.tblSnd_AbsenderKdNr = txtAbsender.KdNr
            Sendung.tblSnd_Colli = ""
            Sendung.tblSnd_Gewicht = ""
            If txtColli.Text <> "" Then Sendung.tblSnd_Colli = CInt(txtColli.Text)
            If txtGewicht.Text <> "" Then Sendung.tblSnd_Gewicht = CDbl(txtGewicht.Text)

            Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text

            If Sendung.SAVE Then
                SendungsId = Sendung.tblSnd_SendungID
                Me.DialogResult = DialogResult.OK
            Else
                Me.DialogResult = DialogResult.None
            End If

            Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try

    End Sub

    Private Sub txtEmpfaenger_PropertyChanged(sender As Object, e As EventArgs) Handles txtEmpfaenger.PropertyChanged
        initWarnKd(txtEmpfaenger, picWarnEmpfaenger)
    End Sub

    Private Sub txtEmpfaenger_TextChanged_1(sender As Object, e As EventArgs) Handles txtEmpfaenger.TextChanged
        picWarnEmpfaenger.Visible = False
        'initBesKd(Nothing)
    End Sub

    Private Sub txtAbsender_TextChanged(sender As Object, e As EventArgs) Handles txtAbsender.TextChanged
        picWarnAbsender.Visible = False
        '  initBesKd(Nothing)
    End Sub
    Private Sub txtAbsender_PropertyChanged(sender As Object, e As EventArgs) Handles txtAbsender.PropertyChanged
        initWarnKd(txtAbsender, picWarnAbsender)
    End Sub

    Sub initWarnKd(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox, pic As PictureBox)
        Try
            pic.Visible = False
            ToolTip.SetToolTip(pic, "")
            Dim InfoText = ""
            If kdSearch.KdData_ADRESSEN IsNot Nothing Then
                If kdSearch.KdData_ADRESSEN.Auswahl = "I" Then
                    InfoText &= "KUNDE INAKTIV!" & vbNewLine & vbNewLine
                End If
            End If

            If kdSearch.KdData_KUNDE IsNot Nothing Then
                If kdSearch.KdData_KUNDE.Abfertigungsverbot Then
                    pic.Visible = True
                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                        Case "VERAG" : InfoText &= "ACHTUNG!" & vbNewLine
                        Case Else
                            InfoText &= "ABFERTIGUNGSVERBOT!" & vbNewLine
                    End Select
                    If If(kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund, "") <> "" Then InfoText &= kdSearch.KdData_KUNDE.Abfertigungsverbot_Grund & vbNewLine
                End If
            End If

            ToolTip.SetToolTip(pic, InfoText.Trim)

        Catch ex As Exception
            MsgBox(ex.Message & ex.StackTrace)
        End Try
    End Sub

    Sub initBesKd(kdSearch As VERAG_PROG_ALLGEMEIN.KdSearchBox)
        If kdSearch Is Nothing Then
            RichTextBox1.Text = ""
        Else
            If kdSearch.KdData_KUNDE IsNot Nothing Then
                RichTextBox1.Text = If(kdSearch.KdData_KUNDE.Besonderheiten, "")
            End If
        End If
    End Sub

    Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
        If txtEmpfaenger.KdNr > 0 Then
            Me.Cursor = Cursors.WaitCursor
            AVISOFUNC.showKd(txtEmpfaenger.KdNr)
            Me.Cursor = Cursors.Default
        End If
    End Sub


    Private Sub FlatButton1_Click(sender As Object, e As EventArgs) Handles FlatButton1.Click
        If txtAbsender.KdNr > 0 Then
            Me.Cursor = Cursors.WaitCursor
            AVISOFUNC.showKd(txtAbsender.KdNr)
            Me.Cursor = Cursors.Default
        End If
    End Sub

    Private Sub txtAbsender_GotFocus(sender As Object, e As EventArgs) Handles txtAbsender.GotFocus, txtEmpfaenger.GotFocus
        initBesKd(sender)
    End Sub
    Private Sub txtAbsender_lostFocus(sender As Object, e As EventArgs) Handles txtAbsender.LostFocus, txtEmpfaenger.LostFocus
        initBesKd(Nothing)
    End Sub

    Private Sub txtGewicht_Leave(sender As Object, e As EventArgs) Handles txtGewicht.Leave, txtColli.Leave
        sender.Text = sender.Text.Replace(" ", "")
    End Sub
End Class