usrCntlATBGestellung

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