20200108

Aviso/Anhänge/frmAddSendnung.vb

@@ -1,8 +1,9 @@
 Public Class frmAddSendnung
 
-    Public Sendung As VERAG_PROG_ALLGEMEIN.cSendungen
+    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)
 
@@ -11,21 +12,74 @@
         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, "")
+            txtGewicht.Text = If(Sendung.tblSnd_Gewicht, "")
+            rtbWarenbezeichnung.Text = If(Sendung.tblSnd_Warenbezeichnung, "")
+
+        End If
+
+
+
     End Sub
 
     Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
         Try
 
-            Sendung = New VERAG_PROG_ALLGEMEIN.cSendungen(AvisoId, SQL.getValueTxtBySql("SELECT Count(*)+1 FROM tblSendungen WHERE tblSnd_AvisoID=" & AvisoId & "", "AVISO"),,,, 0)
+            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 = txtColli.Text
             Sendung.tblSnd_Gewicht = txtGewicht.Text
             Sendung.tblSnd_Warenbezeichnung = rtbWarenbezeichnung.Text
@@ -43,4 +97,92 @@
 
     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_TextChanged(sender As Object, e As EventArgs) Handles txtGewicht.TextChanged
+
+    End Sub
+
+    Private Sub txtGewicht_Leave(sender As Object, e As EventArgs) Handles txtGewicht.TextChanged
+        txtGewicht.Text = txtGewicht.Text.Replace(" ", "")
+            End Sub
 End Class