Gesamtsicherheiten: Änderungen von Mestan durchgeführt

Aviso/frmGesamtsicherheitenNEU.vb

@@ -60,7 +60,7 @@ Public Class frmGesamtsicherheitenNEU
             panOverlay.Visible = True
 
             cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
-            cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_Reihenfolge] ", True, "AVISO", True)
+            cboWarenort.fillWithSQL("SELECT [grz_Grenzstelle], [grz_Bezeichnung] FROM [tblGrenzstelle] WHERE [grz_Aktiv] ='1' AND [grz_Warenort] ='1' ORDER BY [grz_BezeichnungCBO] ", True, "AVISO", True)
 
             If datum = Nothing Then datum = Date.Now
             nextGessicherheitID = -1
@@ -116,7 +116,7 @@ Public Class frmGesamtsicherheitenNEU
                     Case True
                         .Columns("gs_ATBNr").HeaderText = "ATB"
                         .Columns("gs_ATBNr").Width = 130
-                        .Columns("gs_atr").HeaderText = "MRN"
+                        .Columns("gs_atr").HeaderText = "ATR"
                         .Columns("gs_atr").Visible = True
                         .Columns("gs_atr").Width = 35
                         .Columns("gs_ust").Width = 70
@@ -428,7 +428,6 @@ Public Class frmGesamtsicherheitenNEU
                     .gsp_ust = ""
                     .gsp_avisoId = Me.avisioID
                     '.gsp_ATCNr = ""
-                    '.gsp_MRNNr = ""
                     .gsp_gsNr = OPEN.gs_gsNr
                 End With
 
@@ -493,7 +492,6 @@ Public Class frmGesamtsicherheitenNEU
                 .gsp_erstellungsdatum = DateTimeString2DateTimeKonvertinator(txtPosDate.Text, txtPosTime.Text)
                 .gsp_ust = currentSicherheit.gs_ust
                 .gsp_ATCNr = txtPositionenCRN.Text
-                .gsp_MRNNr = txtPositionenCRN.Text
                 .gsp_avisoId = Me.avisioID
             End With
 
@@ -1178,7 +1176,28 @@ Public Class frmGesamtsicherheitenNEU
     End Sub
 
     Private Sub ATCMRNNraendernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ATCMRNNraendernToolStripMenuItem.Click
+        Dim ATCNr As String
+        Dim mutlitpleATCNr As Boolean = False
 
+        ATCNr = dgvSicherheitsPos.SelectedRows(0).Cells("gsp_ATCNr").Value.ToString
+
+        If dgvSicherheitsPos.SelectedRows.Count > 1 Then
+
+            For Each row As DataGridViewRow In dgvSicherheitsPos.Rows
+                If row.Cells("gsp_ATCNr").Value.ToString <> ATCNr Then
+                    mutlitpleATCNr = True
+                End If
+            Next
+        End If
+
+        If mutlitpleATCNr Then
+            lblATCwarning.Text = "ACHTUNG!" & vbCrLf & "Es wurden unterschiedl. ATC-Nummern markiert!"
+        Else
+            lblATCwarning.Text = ""
+        End If
+        dgvSicherheitsPos.Enabled = False
+        txtATCaendern.Text = ATCNr
+        pnlChangeATCNr.Visible = True
 
 
     End Sub
@@ -1198,20 +1217,15 @@ Public Class frmGesamtsicherheitenNEU
         End If
         If dgvGesamtsicherheit.SelectedRows.Count > 1 Then
 
-                For Each row As DataGridViewRow In dgvGesamtsicherheit.Rows
-                    Dim test As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value)
-                test.gs_ATBNr = txtATBNraendern.Text
-                currentSicherheit = test
-                    currentSicherheit.SAVE()
+            For Each row As DataGridViewRow In dgvGesamtsicherheit.SelectedRows
+                Dim sicherh As New cSicherheiten(row.Cells("gs_gsId").Value, row.Cells("gs_posNr").Value)
+                sicherh.gs_ATBNr = txtATBNraendern.Text
+                sicherh.SAVE()
 
-                Next
-            Else
-
-            Dim Sicherh As New cSicherheiten(dgvGesamtsicherheit.SelectedRows(0).Cells("gs_gsId").Value, dgvGesamtsicherheit.SelectedRows(0).Cells("gs_posNr").Value)
-            Sicherh.gs_ATBNr = txtATBNraendern.Text
-            currentSicherheit = Sicherh
-            currentSicherheit.SAVE()
+            Next
         End If
+
+
         pnlChangeATBNr.Visible = False
         dgvGesamtsicherheit.Enabled = True
         AfterButton()
@@ -1221,5 +1235,31 @@ Public Class frmGesamtsicherheitenNEU
         pnlChangeATBNr.Visible = False
         dgvGesamtsicherheit.Enabled = True
     End Sub
-End Class
 
+
+
+    Private Sub FlatButton3_Click(sender As Object, e As EventArgs) Handles FlatButton3.Click
+        If txtATCaendern.Text = "" Then
+            MsgBox("Bitte ATC/MRN-Nr angeben!")
+            Exit Sub
+        End If
+        If dgvSicherheitsPos.SelectedRows.Count > 0 Then
+
+            For Each row As DataGridViewRow In dgvSicherheitsPos.SelectedRows
+
+                Dim SicherhPos As New cGesamtsicherheitsPositionen(row.Cells("gsp_gsId").Value, row.Cells("gsp_gspPosId").Value)
+                SicherhPos.gsp_ATCNr = txtATCaendern.Text
+                SicherhPos.SAVE()
+            Next
+        End If
+
+        pnlChangeATCNr.Visible = False
+        dgvSicherheitsPos.Enabled = True
+        AfterButton()
+    End Sub
+
+    Private Sub FlatButton4_Click(sender As Object, e As EventArgs) Handles FlatButton4.Click
+        pnlChangeATCNr.Visible = False
+        dgvSicherheitsPos.Enabled = True
+    End Sub
+End Class