diff --git a/Aviso/usrCntlSND_ATBGestellung.Designer.vb b/Aviso/usrCntlSND_ATBGestellung.Designer.vb index a8a3eef..c0bb1b5 100644 --- a/Aviso/usrCntlSND_ATBGestellung.Designer.vb +++ b/Aviso/usrCntlSND_ATBGestellung.Designer.vb @@ -23,9 +23,8 @@ Partial Class usrCntlSND_ATBGestellung Private Sub InitializeComponent() Me.pnlT1 = New System.Windows.Forms.Panel() - Me.Button1 = New System.Windows.Forms.Button() - Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox() Me.btnGesSicherheit = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox() Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtATBT1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() @@ -52,6 +51,15 @@ Partial Class usrCntlSND_ATBGestellung Me.pnlT1.Size = New System.Drawing.Size(549, 101) Me.pnlT1.TabIndex = 0 ' + 'btnGesSicherheit + ' + Me.btnGesSicherheit.Location = New System.Drawing.Point(417, 3) + Me.btnGesSicherheit.Name = "btnGesSicherheit" + Me.btnGesSicherheit.Size = New System.Drawing.Size(113, 49) + Me.btnGesSicherheit.TabIndex = 25 + Me.btnGesSicherheit.Text = "Gesamtsicherheit (Verwahrung)" + Me.btnGesSicherheit.UseVisualStyleBackColor = True + ' 'Button1 ' Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom @@ -76,28 +84,6 @@ Partial Class usrCntlSND_ATBGestellung Me.cbxATBFakturieren.ThreeState = True Me.cbxATBFakturieren.UseVisualStyleBackColor = True ' - 'btnGesSicherheit - ' - Me.btnGesSicherheit.Location = New System.Drawing.Point(417, 14) - Me.btnGesSicherheit.Name = "btnGesSicherheit" - Me.btnGesSicherheit.Size = New System.Drawing.Size(113, 49) - Me.btnGesSicherheit.TabIndex = 25 - Me.btnGesSicherheit.Text = "Gesamtsicherheit (Verwahrung)" - Me.btnGesSicherheit.UseVisualStyleBackColor = True - ' - 'cbxATBFakturieren - ' - Me.cbxATBFakturieren.AutoSize = True - Me.cbxATBFakturieren.Checked = True - Me.cbxATBFakturieren.CheckState = System.Windows.Forms.CheckState.Indeterminate - Me.cbxATBFakturieren.Location = New System.Drawing.Point(121, 80) - Me.cbxATBFakturieren.Name = "cbxATBFakturieren" - Me.cbxATBFakturieren.Size = New System.Drawing.Size(153, 17) - Me.cbxATBFakturieren.TabIndex = 24 - Me.cbxATBFakturieren.Text = "ATB-Gestellung fakturieren" - Me.cbxATBFakturieren.ThreeState = True - Me.cbxATBFakturieren.UseVisualStyleBackColor = True - ' 'txtATBNr ' Me.txtATBNr._DateTimeOnly = False diff --git a/Aviso/usrCntlSND_ATBGestellung.vb b/Aviso/usrCntlSND_ATBGestellung.vb index 5624d17..391b119 100644 --- a/Aviso/usrCntlSND_ATBGestellung.vb +++ b/Aviso/usrCntlSND_ATBGestellung.vb @@ -47,6 +47,8 @@ Public Class usrCntlSND_ATBGestellung MsgBox("Fehler beim Speichern. Ankunftsanzeige abgebrochen.") End If Me.Cursor = Cursors.Default + End Sub + Private Sub btnGesSicherheit_Click(sender As Object, e As EventArgs) Handles btnGesSicherheit.Click @@ -79,7 +81,7 @@ Public Class usrCntlSND_ATBGestellung Exit Sub End If - Dim SQL As New SQL + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim gsid As Integer = 0 Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & txtATBT1.Text & "' or ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' " Dim dt As New DataTable