Bugfix ATBGestellung

Aviso/usrCntlSND_ATBGestellung.vb

@@ -52,66 +52,100 @@ Public Class usrCntlSND_ATBGestellung
 
     Private Sub btnGesSicherheit_Click(sender As Object, e As EventArgs) Handles btnGesSicherheit.Click
 
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim gsnr As Integer = 0
+        Dim sqlWhere = ""
+
+        Dim dt As New DataTable
+
+        'erster Schritt -> Gestellung nach ATB-NR
         If txtATBT1.Text <> "" Then
+            Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & txtATBT1.Text & "'"
+            dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
+            If dt.Rows.Count > 0 Then
+                gsnr = dt.Rows(0).Item("gs_gsNr")
+            End If
+        End If
 
-            Dim Standort = ""
+        'falls nicht gefunden, 2 Schritt -> Gestellung nach AVISO ID, oder Aberftigungsnrand FilialNr
+        If gsnr = 0 Then
+            Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' "
+            dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
+            If dt.Rows.Count > 0 Then
+                gsnr = dt.Rows(0).Item("gs_gsNr")
+            End If
+        End If
 
-            Select Case SND.FilialenNr
-                Case 4803, 4809
-                    Standort = "VERAG AG" : firmaId = 1
-                Case 5601
-                    Standort = "Unisped GmbH" : firmaId = 21
-                Case 5701
-                    Standort = "AMBAR" : firmaId = 24
-                Case 4810,
-                    Standort = "VERAG GmbH" : firmaId = 1
-                Case 5103
-                    Standort = "VERAG CS" : firmaId = 11
-                Case 5501
-                    Standort = "IMEX" : firmaId = 20
+
+
+        If gsnr > 0 Then
+
+            Dim gessicherheit As New cSicherheiten(gsnr)
+            Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(gessicherheit.gs_standort)
+            Dim frm As New frmGesamtsicherheitenNEU
+
+            Select Case gessicherheit.gs_standort
+                Case "Verag GmbH"
+                    firmaId = 1
+                Case "Verag AG"
+                    firmaId = 2
+                Case "Unisped GmbH"
+                    firmaId = 21
+                Case "AMBAR"
+                    firmaId = 24
+                Case "Verag CS"
+                    firmaId = 11
+                Case "IMEX"
+                    firmaId = 20
 
             End Select
 
+            With frm
 
-            Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
+                .currentGesSichRef = GesSichRef
+                .gessicherheitID = gessicherheit.gs_gsNr
+                .datum = gessicherheit.gs_datum
+                .Standort = gessicherheit.gs_standort
+                .FilialNummer = SND.FilialenNr
+                .Abfertigungsnummer = SND.AbfertigungsNr
+                .warenortID = gessicherheit.gs_warenort
+                .LKWKZ = gessicherheit.gs_LKWKZ
+                .avisoID = gessicherheit.gs_avisoId
+                .firmaId = firmaId
+            End With
 
-            If GesSichRef Is Nothing Then
-                Exit Sub
-            End If
-
-            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 & "' "
+            AddHandler frm.FormClosing, Function()
+                                            GesSichRef.CalcSaldo()
+                                            Me.BringToFront()
+                                        End Function
+            frm.Show()
+        Else
 
 
+            Dim Standort As String = ""
 
-            Dim dt As New DataTable
-            dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
-            If dt.Rows.Count > 0 Then
-                gsid = dt.Rows(0).Item("gs_gsNr")
-            End If
+                Select Case SND.FilialenNr
+                    Case 4803, 4809, 4810
+                        Standort = "VERAG GmbH" : firmaId = 1
+                    Case 5601
+                        Standort = "Unisped GmbH" : firmaId = 21
+                    Case 5701
+                        Standort = "AMBAR" : firmaId = 24
 
-            Dim frm As New frmGesamtsicherheitenNEU
+                    Case 5103
+                        Standort = "VERAG CS" : firmaId = 11
+                    Case 5501
+                        Standort = "IMEX" : firmaId = 20
 
-            If gsid > 0 Then
-                Dim gessicherheit As New cSicherheiten(gsid)
-                With frm
-                    .currentGesSichRef = GesSichRef
-                    .gessicherheitID = gessicherheit.gs_gsId
-                    .Standort = Standort
-                    .FilialNummer = gessicherheit.gs_filialenNr
-                    .Abfertigungsnummer = gessicherheit.gs_abfertigungsnr
-                    .warenortID = gessicherheit.gs_warenort
-                    .LKWKZ = gessicherheit.gs_LKWKZ
-                    .firmaId = firmaId
-                End With
+                End Select
 
-                AddHandler frm.FormClosing, Function()
-                                                GesSichRef.CalcSaldo()
-                                                Me.BringToFront()
-                                            End Function
-                frm.Show()
-            Else
+                Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
+                Dim frm As New frmGesamtsicherheitenNEU
+
+
+                If GesSichRef Is Nothing Then
+                    Exit Sub
+                End If
 
 
                 With frm
@@ -131,7 +165,7 @@ Public Class usrCntlSND_ATBGestellung
 
             End If
 
-        End If
+
 
     End Sub