edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-01 16:11:12 +02:00
parent 7f5057dc3e
commit 4b6d595a89
48 changed files with 1650 additions and 753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

206
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmNacherfassungVorkosten
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,17 +20,26 @@ Partial Class frmNacherfassungVorkosten
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmNacherfassungVorkosten))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.dgvVorkosten = New System.Windows.Forms.DataGridView()
Me.Label35 = New System.Windows.Forms.Label()
Me.btnOK = New System.Windows.Forms.Button()
Me.lblError = New System.Windows.Forms.Label()
Me.Button1 = New System.Windows.Forms.Button()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.txtLeistungsbezeichnung = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.txtPreis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label24 = New System.Windows.Forms.Label()
Me.Label23 = New System.Windows.Forms.Label()
Me.lklBearbeitungAbbrechenPK = New System.Windows.Forms.LinkLabel()
Me.Label1 = New System.Windows.Forms.Label()
Me.cboLeistungs = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.LeistungsNr = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Leistungsbez = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.Preis = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -39,6 +48,7 @@ Partial Class frmNacherfassungVorkosten
'
'dgvVorkosten
'
Me.dgvVorkosten.AllowUserToAddRows = False
Me.dgvVorkosten.AllowUserToOrderColumns = True
Me.dgvVorkosten.AllowUserToResizeColumns = False
Me.dgvVorkosten.AllowUserToResizeRows = False
@@ -48,8 +58,11 @@ Partial Class frmNacherfassungVorkosten
Me.dgvVorkosten.GridColor = System.Drawing.Color.DarkGray
Me.dgvVorkosten.Location = New System.Drawing.Point(15, 25)
Me.dgvVorkosten.Name = "dgvVorkosten"
Me.dgvVorkosten.ReadOnly = True
Me.dgvVorkosten.RowHeadersVisible = False
Me.dgvVorkosten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvVorkosten.Size = New System.Drawing.Size(758, 224)
Me.dgvVorkosten.TabIndex = 92
Me.dgvVorkosten.TabIndex = 1
'
'Label35
'
@@ -58,7 +71,7 @@ Partial Class frmNacherfassungVorkosten
Me.Label35.Location = New System.Drawing.Point(12, 9)
Me.Label35.Name = "Label35"
Me.Label35.Size = New System.Drawing.Size(64, 13)
Me.Label35.TabIndex = 91
Me.Label35.TabIndex = 0
Me.Label35.Text = "Vorkosten"
Me.Label35.Visible = False
'
@@ -67,34 +80,22 @@ Partial Class frmNacherfassungVorkosten
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.btnOK.Location = New System.Drawing.Point(597, 255)
Me.btnOK.Location = New System.Drawing.Point(597, 300)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(176, 41)
Me.btnOK.TabIndex = 93
Me.btnOK.TabIndex = 13
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'lblError
'
Me.lblError.AutoSize = True
Me.lblError.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblError.ForeColor = System.Drawing.Color.Red
Me.lblError.Location = New System.Drawing.Point(12, 255)
Me.lblError.Name = "lblError"
Me.lblError.Size = New System.Drawing.Size(158, 13)
Me.lblError.TabIndex = 94
Me.lblError.Text = "Bitte prüfen Sie die Daten!"
Me.lblError.Visible = False
'
'Button1
'
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
Me.Button1.Location = New System.Drawing.Point(469, 255)
Me.Button1.Location = New System.Drawing.Point(469, 300)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(122, 41)
Me.Button1.TabIndex = 95
Me.Button1.TabIndex = 12
Me.Button1.Text = "Abbrechen"
Me.Button1.UseVisualStyleBackColor = True
'
@@ -116,35 +117,174 @@ Partial Class frmNacherfassungVorkosten
Me.DataGridViewTextBoxColumn3.HeaderText = "Preis"
Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
'
'txtLeistungsbezeichnung
'
Me.txtLeistungsbezeichnung._allowFreitext = False
Me.txtLeistungsbezeichnung._AllowSetValue = False
Me.txtLeistungsbezeichnung._allowSpaceAsSplitter = False
Me.txtLeistungsbezeichnung._autoSizeGross = False
Me.txtLeistungsbezeichnung._hideIfListEmpty = True
Me.txtLeistungsbezeichnung._value = Nothing
Me.txtLeistungsbezeichnung.conn_art = "FMZOLL"
Me.txtLeistungsbezeichnung.dgvpos = "LEFT"
Me.txtLeistungsbezeichnung.DISPLAY_PARAM = Nothing
Me.txtLeistungsbezeichnung.INVISIBLE_COLUMNS = Nothing
Me.txtLeistungsbezeichnung.key_visible = False
Me.txtLeistungsbezeichnung.KEYPARAM = Nothing
Me.txtLeistungsbezeichnung.Location = New System.Drawing.Point(166, 255)
Me.txtLeistungsbezeichnung.Name = "txtLeistungsbezeichnung"
Me.txtLeistungsbezeichnung.searchActive = True
Me.txtLeistungsbezeichnung.Size = New System.Drawing.Size(505, 20)
Me.txtLeistungsbezeichnung.SQL_ORDER_BY = Nothing
Me.txtLeistungsbezeichnung.SQL_SELECT = Nothing
Me.txtLeistungsbezeichnung.SQL_WHERE = Nothing
Me.txtLeistungsbezeichnung.SQL_WhereParamList = Nothing
Me.txtLeistungsbezeichnung.TabIndex = 4
Me.txtLeistungsbezeichnung.usrcntl = Nothing
'
'Button2
'
Me.Button2.BackgroundImage = CType(resources.GetObject("Button2.BackgroundImage"), System.Drawing.Image)
Me.Button2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(775, 25)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(30, 20)
Me.Button2.TabIndex = 2
Me.Button2.TabStop = False
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.BackgroundImage = Global.SDL.My.Resources.Resources.plus
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Location = New System.Drawing.Point(775, 255)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(30, 20)
Me.Button3.TabIndex = 6
Me.Button3.TabStop = False
Me.Button3.UseVisualStyleBackColor = True
'
'txtPreis
'
Me.txtPreis._DateTimeOnly = False
Me.txtPreis._numbersOnly = False
Me.txtPreis._numbersOnlyKommastellen = ""
Me.txtPreis._Prozent = False
Me.txtPreis._ShortDateNew = False
Me.txtPreis._ShortDateOnly = False
Me.txtPreis._TimeOnly = False
Me.txtPreis._TimeOnly_Seconds = False
Me.txtPreis._value = ""
Me.txtPreis._Waehrung = True
Me.txtPreis._WaehrungZeichen = True
Me.txtPreis.ForeColor = System.Drawing.Color.Black
Me.txtPreis.Location = New System.Drawing.Point(670, 255)
Me.txtPreis.MaxLength = 42
Me.txtPreis.MaxLineLength = -1
Me.txtPreis.MaxLines_Warning = ""
Me.txtPreis.MaxLines_Warning_Label = Nothing
Me.txtPreis.Name = "txtPreis"
Me.txtPreis.Size = New System.Drawing.Size(103, 20)
Me.txtPreis.TabIndex = 5
'
'Label24
'
Me.Label24.ForeColor = System.Drawing.Color.Red
Me.Label24.Location = New System.Drawing.Point(168, 276)
Me.Label24.Name = "Label24"
Me.Label24.Size = New System.Drawing.Size(233, 13)
Me.Label24.TabIndex = 8
Me.Label24.Text = "Bitte angeben!"
Me.Label24.Visible = False
'
'Label23
'
Me.Label23.ForeColor = System.Drawing.Color.Red
Me.Label23.Location = New System.Drawing.Point(12, 276)
Me.Label23.Name = "Label23"
Me.Label23.Size = New System.Drawing.Size(153, 13)
Me.Label23.TabIndex = 7
Me.Label23.Text = "Bitte angeben!"
Me.Label23.Visible = False
'
'lklBearbeitungAbbrechenPK
'
Me.lklBearbeitungAbbrechenPK.AutoSize = True
Me.lklBearbeitungAbbrechenPK.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.lklBearbeitungAbbrechenPK.Location = New System.Drawing.Point(543, 278)
Me.lklBearbeitungAbbrechenPK.Name = "lklBearbeitungAbbrechenPK"
Me.lklBearbeitungAbbrechenPK.Size = New System.Drawing.Size(118, 13)
Me.lklBearbeitungAbbrechenPK.TabIndex = 9
Me.lklBearbeitungAbbrechenPK.TabStop = True
Me.lklBearbeitungAbbrechenPK.Text = "Bearbeitung abbrechen"
Me.lklBearbeitungAbbrechenPK.Visible = False
'
'Label1
'
Me.Label1.ForeColor = System.Drawing.Color.Red
Me.Label1.Location = New System.Drawing.Point(667, 278)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(106, 13)
Me.Label1.TabIndex = 10
Me.Label1.Text = "Bitte angeben!"
Me.Label1.Visible = False
'
'cboLeistungs
'
Me.cboLeistungs._allowedValuesFreiText = Nothing
Me.cboLeistungs._allowFreiText = False
Me.cboLeistungs._value = ""
Me.cboLeistungs.FormattingEnabled = True
Me.cboLeistungs.Location = New System.Drawing.Point(15, 254)
Me.cboLeistungs.Name = "cboLeistungs"
Me.cboLeistungs.Size = New System.Drawing.Size(152, 21)
Me.cboLeistungs.TabIndex = 3
'
'LeistungsNr
'
Me.LeistungsNr.FillWeight = 80.0!
Me.LeistungsNr.HeaderText = "LeistungsNr"
Me.LeistungsNr.Name = "LeistungsNr"
Me.LeistungsNr.Width = 70
Me.LeistungsNr.ReadOnly = True
Me.LeistungsNr.Resizable = System.Windows.Forms.DataGridViewTriState.[True]
Me.LeistungsNr.Width = 150
'
'Leistungsbez
'
Me.Leistungsbez.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.Leistungsbez.HeaderText = "Leistungsbez"
Me.Leistungsbez.Name = "Leistungsbez"
Me.Leistungsbez.ReadOnly = True
'
'Preis
'
DataGridViewCellStyle1.Format = "C2"
Me.Preis.DefaultCellStyle = DataGridViewCellStyle1
Me.Preis.HeaderText = "Preis"
Me.Preis.Name = "Preis"
Me.Preis.ReadOnly = True
'
'frmNacherfassungVorkosten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(780, 309)
Me.ClientSize = New System.Drawing.Size(814, 355)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.txtLeistungsbezeichnung)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.txtPreis)
Me.Controls.Add(Me.Label24)
Me.Controls.Add(Me.Label23)
Me.Controls.Add(Me.lklBearbeitungAbbrechenPK)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.lblError)
Me.Controls.Add(Me.btnOK)
Me.Controls.Add(Me.dgvVorkosten)
Me.Controls.Add(Me.Label35)
Me.Controls.Add(Me.cboLeistungs)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmNacherfassungVorkosten"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
@@ -157,12 +297,20 @@ Partial Class frmNacherfassungVorkosten
Friend WithEvents dgvVorkosten As System.Windows.Forms.DataGridView
Friend WithEvents Label35 As System.Windows.Forms.Label
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents lblError As System.Windows.Forms.Label
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents DataGridViewTextBoxColumn3 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents LeistungsNr As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Leistungsbez As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Preis As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn1 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn2 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents txtLeistungsbezeichnung As VERAG_PROG_ALLGEMEIN.MySearchBox
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents txtPreis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label24 As Label
Friend WithEvents Label23 As Label
Friend WithEvents lklBearbeitungAbbrechenPK As LinkLabel
Friend WithEvents Label1 As Label
Friend WithEvents cboLeistungs As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents LeistungsNr As DataGridViewTextBoxColumn
Friend WithEvents Leistungsbez As DataGridViewTextBoxColumn
Friend WithEvents Preis As DataGridViewTextBoxColumn
End Class

14
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.resx
View File

@@ -127,6 +127,20 @@
<value>True</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button2.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m
dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAHaSURBVEhLvdW7SlhBFIVh701EGyGKpEjAywv4Aham
iIXaio1dELXwFVRs7ARBQbHSwi5lijTBWhAvfSKExJBKEEWP/8iM7JmzziWKFh/k7Fl7FhgZG7Ise1Vy
6JwPvG9S8+eSQ4fCTrxVZ88hhxQNYgvHdUvJNfq9bXUe5AYs9OEbMq9WKZkmbPidHZVxog+Cb7COa79Y
q5SzHizjD8KOLI0+CJ2ZhZQsZdaLXZ9J5UqjDwLhR1IkV8r3Ii79ufLF5h//ERBYSRZSD6VwvyB7uIXK
OXe4sPdHZQGhOqVryUz5iwl7d1RkEawqdZepefADs+iw90YlKcJVpUVO8VHdmRukWHxK6Qwa1X25gcLy
vrmszFd8QuE7LIcpLljwF1aZV/uWHAZc0I9N/PMXVvmJ0mdQDh0W2+DK1MVlSp9BOWShC0uwb+P/KCzN
DQi+g3tB1EXWoZhZsjT6cAit4sovlZlGnRep294flTnJgnKEKbT7fFXpub0/KnMITCYL1m+MiZ2iUvd3
9cBmo8WA0LhZCn5hDtHbaHZU6QmGbC5asgjaUvd/MaJyFplQegP36gyjxWaihRThUPpZnStkXel3fFDn
uUGKxTG0qrMi5EfRrM5yg5cmhy8na7gHtvbLF9T64qAAAAAASUVORK5CYII=
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA

164
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb
View File

@@ -4,29 +4,24 @@
Public AbfertigungsNr As Integer = -1
Public UnterNr As Integer = -1
Dim FUNC As New cProgramFunctions
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
Try
' MsgBox(CStr(r.Cells("LeistungsNr").Value))
' MsgBox(CStr(r.Cells("Leistungsbez").Value))
' MsgBox(CStr(r.Cells("Preis").Value))
'CStr(r.Cells("Leistungsbez").Value)
For i = 0 To dgvVorkosten.RowCount - 2
Dim r As DataGridViewRow = dgvVorkosten.Rows(i)
If CStr(r.Cells("LeistungsNr").Value) = "" Or CStr(r.Cells("Leistungsbez").Value) = "" Or CStr(r.Cells("Preis").Value) = "" Or Not IsNumeric(r.Cells("Preis").Value) Then
lblError.Show()
Me.DialogResult = Windows.Forms.DialogResult.None
Exit Sub
End If
Next
'For i = 0 To dgvVorkosten.RowCount - 1
' Dim r As DataGridViewRow = dgvVorkosten.Rows(i)
' If CStr(r.Cells("LeistungsNr").Value) = "" Or CStr(r.Cells("Leistungsbez").Value) = "" Or CStr(r.Cells("Preis").Value) = "" Or Not IsNumeric(r.Cells("Preis").Value) Then
' lblError.Show()
' Me.DialogResult = Windows.Forms.DialogResult.None
' Exit Sub
' End If
'Next
VORKOSTEN.Clear()
For i = 0 To dgvVorkosten.RowCount - 2
For i = 0 To dgvVorkosten.RowCount - 1
Dim r As DataGridViewRow = dgvVorkosten.Rows(i)
If Not IsNumeric(r.Cells("LeistungsNr").Value) Then MsgBox("Leistungsnummer muss eine Zahl sein!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
If Not IsNumeric(r.Cells("Preis").Value) Then MsgBox("Preis muss eine Zahl sein!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
@@ -41,9 +36,146 @@
End Sub
Private Sub frmNacherfassungVorkosten_Load(sender As Object, e As EventArgs) Handles Me.Load
cboLeistungs.fillWithSQL(" SELECT [LeistungsNr], LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", True, "FMZOLL", True)
dgvVorkosten.Rows.Clear()
If VORKOSTEN IsNot Nothing Then
For Each VK In VORKOSTEN
dgvVorkosten.Rows.Add(VK.LeistungsNr, VK.LeistungsBez, VK.Preis)
Next
End If
dgvVorkosten.ClearSelection()
End Sub
Private Sub dgvVorkosten_DataError(sender As Object, anError As DataGridViewDataErrorEventArgs) Handles dgvVorkosten.DataError
MessageBox.Show("Error happened " & anError.Context.ToString())
If anError.Context = DataGridViewDataErrorContexts.Commit Then
MessageBox.Show("Commit error")
End If
If anError.Context = DataGridViewDataErrorContexts.CurrentCellChange Then
MessageBox.Show("Cell change")
End If
If anError.Context = DataGridViewDataErrorContexts.Parsing Then
MessageBox.Show("parsing error")
End If
If anError.Context = DataGridViewDataErrorContexts.LeaveControl Then
MessageBox.Show("leave control error")
End If
If TypeOf (anError.Exception) Is ConstraintException Then
Dim view As DataGridView = CType(sender, DataGridView)
view.Rows(anError.RowIndex).ErrorText = "an error"
view.Rows(anError.RowIndex).Cells(anError.ColumnIndex).ErrorText = "an error"
anError.ThrowException = False
End If
End Sub
Private Sub frmNacherfassungVorkosten_Shown(sender As Object, e As EventArgs) Handles Me.Shown
cboLeistungs.Focus()
'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
'With DirectCast(dgvVorkosten.Columns("LeistungsNr"), DataGridViewComboBoxColumn)
' .DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr], CAST(LeistungsNr as varchar(3)) + ' - ' + [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL")
' ' .DataSource = SQL.loadDgvBySql(" SELECT [LeistungsNr], [LeistungsBez] as LeistungsBez FROM [Leistungen] ORDER BY [LeistungsNr] ", "FMZOLL")
' .ValueMember = "LeistungsNr" '.DataSource.Columns(0).ColumnName
' .DisplayMember = "LeistungsBez" '.DataSource.Columns(1).ColumnName
' .DataPropertyName = "LeistungsNr"
' .DropDownWidth = 350
'End With
End Sub
Private Sub btn_Click(sender As Object, e As EventArgs)
For Each v In VORKOSTEN
'Dim rowId = dgvVorkosten.Rows.Add()
'dgvVorkosten.Rows(rowId).Cells("LeistungsNr").Value = v.LeistungsNr
'dgvVorkosten.Rows(rowId).Cells("LeistungsBez").Value = v.LeistungsBez
'dgvVorkosten.Rows(rowId).Cells("Preis").Value = v.Preis
'MsgBox(v.LeistungsNr & "-" & v.LeistungsBez & "-" & v.Preis)
dgvVorkosten.Rows.Add(v.LeistungsNr, v.LeistungsBez, v.Preis)
Next
dgvVorkosten.Columns("Preis").DefaultCellStyle.Format = "C2"
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
addVorkosten()
End Sub
Dim VK_EDIT = -1
Sub addVorkosten()
Label23.Visible = False
Label24.Visible = False
If cboLeistungs._value = "" Then Label23.Visible = True : cboLeistungs.Focus() : Exit Sub
If txtLeistungsbezeichnung.Text = "" Then Label24.Visible = True : txtLeistungsbezeichnung.Focus() : Exit Sub
If txtPreis._value = "" Then Label1.Visible = True : txtPreis.Focus() : Exit Sub
If VK_EDIT >= 0 Then
dgvVorkosten.Rows.RemoveAt(VK_EDIT)
dgvVorkosten.Rows.Insert(VK_EDIT, cboLeistungs._value, txtLeistungsbezeichnung.Text, txtPreis._value)
VK_EDIT = -1
Button3.BackgroundImage = My.Resources.plus
lklBearbeitungAbbrechenPK.Visible = False
Else
dgvVorkosten.Rows.Add(cboLeistungs._value, txtLeistungsbezeichnung.Text, txtPreis._value)
End If
cboLeistungs.changeItem("") : txtLeistungsbezeichnung.Text = "" : txtPreis.Text = ""
dgvVorkosten.FirstDisplayedScrollingRowIndex = dgvVorkosten.RowCount - 1
dgvVorkosten.ClearSelection()
cboLeistungs.Focus()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If dgvVorkosten.SelectedRows.Count > 0 Then
If MsgBox("Möchten Sie den Eintrag in 'Vorkosten' wirklich löschen?", vbYesNoCancel) = vbYes Then
dgvVorkosten.Rows.Remove(dgvVorkosten.SelectedRows(0))
End If
End If
dgvVorkosten.ClearSelection()
End Sub
Private Sub lklBearbeitungAbbrechenPK_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lklBearbeitungAbbrechenPK.LinkClicked
VK_EDIT = -1
cboLeistungs.changeItem("")
txtLeistungsbezeichnung.Text = ""
txtPreis.Text = ""
Button3.BackgroundImage = My.Resources.plus
lklBearbeitungAbbrechenPK.Visible = False
End Sub
Private Sub dgvPackstuecke_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVorkosten.CellDoubleClick
If e.RowIndex < 0 Then Exit Sub
editableRowPK(e.RowIndex)
End Sub
Private Sub PackstueckeKeyDown(sender As Object, e As KeyEventArgs) Handles txtLeistungsbezeichnung.KeyDown, txtPreis.KeyDown
If e.KeyCode = Keys.Return Then addVorkosten()
e.Handled = True
End Sub
Sub editableRowPK(index As Integer)
cboLeistungs.changeItem(dgvVorkosten.Rows(index).Cells("LeistungsNr").Value)
txtLeistungsbezeichnung.Text = dgvVorkosten.Rows(index).Cells("LeistungsBez").Value
txtPreis._value = dgvVorkosten.Rows(index).Cells("Preis").Value
VK_EDIT = index
Button3.BackgroundImage = My.Resources.stift
lklBearbeitungAbbrechenPK.Visible = True
End Sub
Private Sub dgvPackstuecke_CellContentClick(sender As Object, e As EventArgs) Handles dgvVorkosten.LostFocus
' dgvVorkosten.ClearSelection()
End Sub
End Class

114
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb generated
View File

@@ -23,6 +23,12 @@ Partial Class usrCntlSpeditionsBuchSuche
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlSpeditionsBuchSuche))
Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.cntxtCntxtSpeditionsbuch = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -57,6 +63,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.dgvLKW = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlOpt = New System.Windows.Forms.Panel()
Me.pnlBerichte = New System.Windows.Forms.Panel()
Me.Button23 = New System.Windows.Forms.Button()
Me.Button22 = New System.Windows.Forms.Button()
Me.Button21 = New System.Windows.Forms.Button()
Me.btnSpedBuchEinnahmen = New System.Windows.Forms.Button()
@@ -186,7 +193,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.Label45 = New System.Windows.Forms.Label()
Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.Button23 = New System.Windows.Forms.Button()
Me.txtBestimmungszollstelle = New VERAG_PROG_ALLGEMEIN.MySearchBox()
Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
Me.pnlRechts.SuspendLayout()
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -637,11 +644,35 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.DataGridView.AllowUserToDeleteRows = False
Me.DataGridView.AllowUserToOrderColumns = True
Me.DataGridView.AllowUserToResizeRows = False
DataGridViewCellStyle1.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle1.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle1.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle1.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle1.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle1.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle1
Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch
DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle2.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView.DefaultCellStyle = DataGridViewCellStyle2
Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill
Me.DataGridView.Location = New System.Drawing.Point(450, 0)
Me.DataGridView.Name = "DataGridView"
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle3.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle3.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
Me.DataGridView.Size = New System.Drawing.Size(770, 227)
Me.DataGridView.TabIndex = 0
'
@@ -668,11 +699,35 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.dgvLKW.AllowUserToOrderColumns = True
Me.dgvLKW.AllowUserToResizeRows = False
Me.dgvLKW.BackgroundColor = System.Drawing.Color.WhiteSmoke
DataGridViewCellStyle4.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle4.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle4.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle4.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle4.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle4.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle4
Me.dgvLKW.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvLKW.ContextMenuStrip = Me.cntxtCntxtSpeditionsbuch
DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle5.ForeColor = System.Drawing.SystemColors.ControlText
DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.dgvLKW.DefaultCellStyle = DataGridViewCellStyle5
Me.dgvLKW.Dock = System.Windows.Forms.DockStyle.Left
Me.dgvLKW.Location = New System.Drawing.Point(0, 0)
Me.dgvLKW.Name = "dgvLKW"
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
DataGridViewCellStyle6.ForeColor = System.Drawing.SystemColors.WindowText
DataGridViewCellStyle6.SelectionBackColor = System.Drawing.SystemColors.Highlight
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvLKW.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvLKW.Size = New System.Drawing.Size(450, 227)
Me.dgvLKW.TabIndex = 35
Me.dgvLKW.Visible = False
@@ -731,6 +786,20 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.pnlBerichte.TabIndex = 6
Me.pnlBerichte.Visible = False
'
'Button23
'
Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button23.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button23.Location = New System.Drawing.Point(788, 81)
Me.Button23.Margin = New System.Windows.Forms.Padding(0)
Me.Button23.Name = "Button23"
Me.Button23.Size = New System.Drawing.Size(83, 28)
Me.Button23.TabIndex = 93
Me.Button23.Text = "Erhalten "
Me.Button23.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button23.UseVisualStyleBackColor = True
'
'Button22
'
Me.Button22.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -1789,6 +1858,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'
'SplitContainer1.Panel2
'
Me.SplitContainer1.Panel2.Controls.Add(Me.txtBestimmungszollstelle)
Me.SplitContainer1.Panel2.Controls.Add(Me.cbxEIDR)
Me.SplitContainer1.Panel2.Controls.Add(Me.cbxCMR)
Me.SplitContainer1.Panel2.Controls.Add(Me.Label41)
@@ -2103,7 +2173,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.cbxEIDR.BackColor = System.Drawing.Color.White
Me.cbxEIDR.Checked = True
Me.cbxEIDR.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxEIDR.Location = New System.Drawing.Point(511, 197)
Me.cbxEIDR.Location = New System.Drawing.Point(873, 3)
Me.cbxEIDR.Name = "cbxEIDR"
Me.cbxEIDR.Size = New System.Drawing.Size(106, 17)
Me.cbxEIDR.TabIndex = 54
@@ -2117,7 +2187,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.cbxCMR.BackColor = System.Drawing.Color.White
Me.cbxCMR.Checked = True
Me.cbxCMR.CheckState = System.Windows.Forms.CheckState.Indeterminate
Me.cbxCMR.Location = New System.Drawing.Point(627, 195)
Me.cbxCMR.Location = New System.Drawing.Point(511, 198)
Me.cbxCMR.Name = "cbxCMR"
Me.cbxCMR.Size = New System.Drawing.Size(50, 17)
Me.cbxCMR.TabIndex = 49
@@ -2586,19 +2656,32 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.SplitContainer.SplitterWidth = 2
Me.SplitContainer.TabIndex = 3
'
'Button23
'txtBestimmungszollstelle
'
Me.Button23.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button23.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button23.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button23.Location = New System.Drawing.Point(788, 81)
Me.Button23.Margin = New System.Windows.Forms.Padding(0)
Me.Button23.Name = "Button23"
Me.Button23.Size = New System.Drawing.Size(83, 28)
Me.Button23.TabIndex = 93
Me.Button23.Text = "Erhalten "
Me.Button23.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button23.UseVisualStyleBackColor = True
Me.txtBestimmungszollstelle._allowFreitext = False
Me.txtBestimmungszollstelle._AllowSetValue = False
Me.txtBestimmungszollstelle._allowSpaceAsSplitter = False
Me.txtBestimmungszollstelle._autoSizeGross = False
Me.txtBestimmungszollstelle._hideIfListEmpty = True
Me.txtBestimmungszollstelle._value = Nothing
Me.txtBestimmungszollstelle.conn_art = "FMZOLL"
Me.txtBestimmungszollstelle.dgvpos = "LEFT"
Me.txtBestimmungszollstelle.DISPLAY_PARAM = Nothing
Me.txtBestimmungszollstelle.INVISIBLE_COLUMNS = Nothing
Me.txtBestimmungszollstelle.key_visible = False
Me.txtBestimmungszollstelle.KEYPARAM = Nothing
Me.txtBestimmungszollstelle.Location = New System.Drawing.Point(627, 192)
Me.txtBestimmungszollstelle.MaxLength = 50
Me.txtBestimmungszollstelle.Name = "txtBestimmungszollstelle"
Me.txtBestimmungszollstelle.searchActive = True
Me.txtBestimmungszollstelle.Size = New System.Drawing.Size(106, 20)
Me.txtBestimmungszollstelle.SQL_ORDER_BY = Nothing
Me.txtBestimmungszollstelle.SQL_SELECT = Nothing
Me.txtBestimmungszollstelle.SQL_WHERE = Nothing
Me.txtBestimmungszollstelle.SQL_WhereParamList = Nothing
Me.txtBestimmungszollstelle.TabIndex = 55
Me.txtBestimmungszollstelle.usrcntl = Nothing
Me.txtBestimmungszollstelle.Visible = False
'
'usrCntlSpeditionsBuchSuche
'
@@ -2807,4 +2890,5 @@ Partial Class usrCntlSpeditionsBuchSuche
Friend WithEvents Button21 As Button
Friend WithEvents Button22 As Button
Friend WithEvents Button23 As Button
Friend WithEvents txtBestimmungszollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
End Class

5
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.resx
View File

@@ -126,6 +126,9 @@
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>431, 17</value>
</metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>431, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
@@ -174,7 +177,7 @@
XTesb3QPLh88M+QwdP6m681Lt7xuXbu94vbgcOjwnZHokdE77DtTd1PuvriXeW/h/sYH6AdFD6UeVjxS
fNTws+7PbaOWo6fHXMf6Hwc/vj/OGn/2S8Yv7ycKnpCfVEyqTDZPmU2dmnafvvF05dOJZ+nPFmYKf5X+
tfa5zvMffnP8rX82YnbiBf/Fp99LXsq/PPRq2aueuYC5R69TXy/MF72Rf3P4LeNt37vwd5MLWe+x7ys/
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDgAACw4BQL7hQQAAB3VJREFUSEu9VntQ1NUe
6H7o/ujz8cGn1E+f/gUDmPP8usTo0wAAAAlwSFlzAAALDQAACw0B7QfALAAAB3VJREFUSEu9VntQ1NUe
/86Uo8VVROUlsrsoBGlyNeURECuwPCXSBG0GAXktr2WX5S0GCob4GEF8XdIGAcP0innTMMsxrczb4A3r
ZjpxJ3F0uk5aaioomn7u95zdhQWb+u+eme/8zp45nA/f1+f7oSVNxaRtXUWZLasopiGHslqrKf+dWkrZ
UUGR67W0Yn8jVb+3jVJ3rCBNXRpV7GsYW9BaOz1mnTZVXZNclrK93IaN5lTGk0NeECkLNKQwhpHSyN+C

13
SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
View File

@@ -278,6 +278,9 @@ Public Class usrCntlSpeditionsBuchSuche
If cbxEIDR.CheckState = CheckState.Unchecked Then sqlstr &= " AND UK_EIDR_ausstehend=0 "
End If
If txtBestimmungszollstelle.Visible And txtBestimmungszollstelle._value <> "" Then
sqlstr &= " AND Bestimmungszollstelle='" & txtBestimmungszollstelle._value & "' "
End If
If cboSachbearbeiter._value <> "" Then sqlstr &= " AND Speditionsbuch.[Personalnummer] = @Personalnummer "
If cboSB_Qs._value <> "" Then sqlstr &= " AND Speditionsbuch.[PersonalnummerQS] = @PersonalnummerQS "
@@ -374,6 +377,7 @@ Public Class usrCntlSpeditionsBuchSuche
cboSachbearbeiter.fillWithSQL("SELECT ID,/*cast(ID as nvarchar(3)) +' ' + Name as*/ Name FROM Personal WHERE [Status]<>'L' " & sbWhere & " ORDER BY Name ", False, "FMZOLL", True)
cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
' cboFilialeHandling.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
txtBestimmungszollstelle.initSearchBox(Me.FindForm, "[basncd_dstnr] ,[basncd_dstnr] +' - ' + [basncd_name] +' (' +[basncd_alpha]+')' as displayPARAM,[basncd_dstnr] as Nr,[basncd_name] as Dienststelle,[basncd_alpha] as Land FROM basncd", {" [basncd_dstnr]", "basncd_name"}, " [basncd_gbdat] >= getdate() ", " basncd_alpha,[basncd_name]", "basncd_dstnr", "displayPARAM", "ATLAS", , 400, 200, {"displayPARAM", "basncd_dstnr"})
cboHandlingssatz.fillWithSQL("SELECT [hs_Bezeichnung] FROM [tblHandlingssaetzeIntern] group by [hs_Bezeichnung] ", False, "FMZOLL", True)
@@ -2249,4 +2253,13 @@ Public Class usrCntlSpeditionsBuchSuche
End If
End If
End Sub
Private Sub lstGrenze_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstGrenze.SelectedIndexChanged
txtBestimmungszollstelle.Visible = False
For Each l In lstGrenze.SelectedItems
If l.text <> "???" Then Exit Sub
Next
txtBestimmungszollstelle.Visible = True
End Sub
End Class