Projektdateien hinzufügen.

2019-08-08 09:19:41 +02:00
parent d3677973e6
commit 009bb01027
573 changed files with 166751 additions and 0 deletions
--- a/Aviso/frmZoll.vb
+++ b/Aviso/frmZoll.vb
@@ -0,0 +1,92 @@
+Imports SDL
+Public Class frmZoll
+    Dim kdNr As Integer = -1
+
+    Dim kundenSQL As New SDL.kundenSQL
+    Dim acd As List(Of cAutoCompleteData) = kundenSQL.getKundenShort()
+
+    Private Sub frmZoll_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        Dim acsc As New AutoCompleteStringCollection
+        For Each a In acd
+            acsc.Add(a.AutoCompleteString)
+        Next
+        cboJumpToKd_Firma.AutoCompleteMode = AutoCompleteMode.SuggestAppend
+        cboJumpToKd_Firma.AutoCompleteSource = AutoCompleteSource.CustomSource
+        cboJumpToKd_Firma.AutoCompleteCustomSource = acsc
+
+    End Sub
+
+
+    Private Sub cboJumpToKd_Firma_KeyDown(sender As Object, e As KeyEventArgs) Handles cboJumpToKd_Firma.KeyUp
+        '  txtJumpToKd_KdNR.Text = ""
+        If (e.KeyCode = Keys.Enter Or e.KeyCode = Keys.Return Or e.KeyCode = Keys.Tab) AndAlso DirectCast(sender, ComboBox).Text <> "" Then
+            getKdNrSearch()
+        End If
+
+    End Sub
+
+
+    Sub getKdNrSearch()
+        Me.Cursor = Cursors.WaitCursor
+        Me.Enabled = False
+        For Each a In acd
+            If a.AutoCompleteString.ToLower = cboJumpToKd_Firma.Text.ToLower Then
+                ' kdNr =
+                txtKdNr.Text = CStr(a.AutoCompleteProperty)
+            End If
+        Next
+        Me.Enabled = True
+        Me.Cursor = Cursors.Default
+    End Sub
+
+    Private Sub txtKdNr_TextChanged_1(sender As Object, e As EventArgs) Handles txtKdNr.TextChanged
+        lblInfo.Visible = True
+        Panel1.Controls.Clear()
+        If IsNumeric(txtKdNr.Text) Then
+            Dim k As cKundenFMZOLL = kundenSQL.getKundeFMZOLLByKdNr(CInt(txtKdNr.Text))
+
+            If Not k Is Nothing And k.KundeFound Then
+                lblInfo.Visible = False
+                lblFirma.Text = k.Ordnungsbegriff
+                lblEORINr.Text = k.EORITIN
+                '  lblAufschubKtoZoll.Text = k.Aufschubkonto_Zoll
+                '  lblAufschubKtoEUST.Text = k.Aufschubkonto_EUSt
+                lblStrasse.Text = k.Straße
+                lblOrt.Text = k.LandKz & " " & k.PLZ & " " & k.Ort
+                initZollTarife()
+                ' MsgBox("nn")
+            End If
+
+        Else
+            lblFirma.Text = ""
+            lblEORINr.Text = ""
+            '  lblAufschubKtoZoll.Text = ""
+            '  lblAufschubKtoEUST.Text = ""
+            lblStrasse.Text = ""
+            lblOrt.Text = ""
+
+        End If
+
+    End Sub
+
+    Sub initZollTarife()
+        Dim usrcntl As New SDL.usrCntlZollArtikel
+       
+        usrcntl.displayFilter = True
+        usrcntl.Dock = DockStyle.Fill
+        usrcntl.kdnr = CInt(txtKdNr.Text)
+        usrcntl.parentKundenblatt = True
+        Panel1.Controls.Clear()
+        Panel1.Controls.Add(usrcntl)
+    End Sub
+
+    Private Sub btnKdSearch_Click(sender As Object, e As EventArgs) Handles btnKdSearch.Click
+        If cboJumpToKd_Firma.Text <> "" Then
+            getKdNrSearch()
+        Else
+            txtKdNr_TextChanged_1(txtKdNr, New EventArgs)
+        End If
+        
+    End Sub
+End Class