usrCntlATBGestellung

Aviso/usrCntlSND_ATBGestellung.Designer.vb

@@ -23,9 +23,8 @@ Partial Class usrCntlSND_ATBGestellung
     <System.Diagnostics.DebuggerStepThrough()>
     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

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