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 Public frmName As String = "Sendung hinzufügen" 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 Sub New(AvisoId, SENDUNG, frmName) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() Me.AvisoId = AvisoId Me.Sendung = SENDUNG Me.frmName = frmName ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. End Sub Private Sub frmAddSendnung_Load(sender As Object, e As EventArgs) Handles Me.Load Me.Text = frmName 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 txtWarenwertWaehrung.initSearchBox(Me.FindForm, " [Code] ,[Description] as Land FROM tbl_DY_ZollDE_I0400_Waehrungsliste", {"Code", "Description"}, " (StartDate is null OR StartDate< GETDATE()) AND (EndDate is null OR EndDate> GETDATE()) ", "Code", "Code", "Code", "FMZOLL", , 150, 200) 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 txtWarenwert.Text = If(Sendung.tblSnd_Warenwert, "") txtWarenwertWaehrung.SET_VALUE(If(Sendung.tblSnd_WarenwertWaehrung, "")) 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("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) If txtWarenwert._value <> "" Then Sendung.tblSnd_Warenwert = CDbl(txtWarenwert._value) If txtWarenwertWaehrung._value <> "" Then Sendung.tblSnd_WarenwertWaehrung = txtWarenwertWaehrung._value 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