gesamtsicherheiten

2026-03-18 13:53:44 +01:00
parent 5490712df7
commit e93748277b
7 changed files with 416 additions and 298 deletions
--- a/Aviso/frmGesamtsicherheitenNEU.vb
+++ b/Aviso/frmGesamtsicherheitenNEU.vb
@@ -1,5 +1,4 @@
-Imports GrapeCity.Enterprise.Data.Expressions.Tools
-Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN

 Public Class frmGesamtsicherheitenNEU

@@ -52,6 +51,8 @@ Public Class frmGesamtsicherheitenNEU

    Public warenortPrefix As String = ""

+    Public DAKOSY_AUTO As Boolean = False
+


    Private Sub frmGesamtsicherheitNEU_Load(sender As Object, e As EventArgs) Handles MyBase.Load
@@ -127,6 +128,9 @@ Public Class frmGesamtsicherheitenNEU
        changeLabel()


+        btnDAKOSY_AUTO.Enabled = Not DAKOSY_AUTO
+
+
        Me.Text = "Gesamtsicherheit " & Standort
        frmHauptfenster.EnableDoubleBuffered(dgvSicherheitsPos)

@@ -144,9 +148,10 @@ Public Class frmGesamtsicherheitenNEU
        If withFilterParam = True Then
            If txtSuche.Text <> "" Then sqlSearchSting &= " AND ([gs_abfertigungsNr] Like '%" & txtSuche.Text & "%' OR [gs_ATBNr] Like '%" & txtSuche.Text & "%' OR [gs_LKWKZ] like '%" & txtSuche.Text & "%' OR [gs_avisoId] like '%" & txtSuche.Text & "%' OR [gs_freitext] like '%" & txtSuche.Text & "%')"
            If cbxRundPosanzeigen.Checked = False Then sqlSearchSting &= "AND ISNULL(gs_isRundungsdiff,0) = 0"
+            If Not cbxHeader.Checked Then sqlSearchSting &= "AND gs_posNr <> 0 "
        End If

-        Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_ATBNr],[gs_posNr],[gs_MRNNr], [gs_posSubNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = " & gessicherheitID & sqlSearchSting & " order by [gs_ATBNr], [gs_posNr]"
+        Dim SQLStringSicherheit As String = "select [gs_gsId],[gs_dakoyimport] ,[gs_gsnr], [gs_ATBNr],[gs_posNr],[gs_MRNNr], [gs_posSubNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " ,[gs_EH_Anzahl], [gs_gewicht] , [gs_freitext], [gs_DK_laufnr] from [tblGesamtsicherheit] where [gs_gsnr] = " & gessicherheitID & sqlSearchSting & " order by [gs_ATBNr], [gs_posNr]"

        dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,)
        dgvGesamtsicherheit.LOAD()
@@ -157,6 +162,13 @@ Public Class frmGesamtsicherheitenNEU
                .RowHeadersWidth = 10
                .Columns("gs_gsId").Visible = False
                .Columns("gs_gsnr").Visible = False
+                .Columns("gs_dakoyimport").Visible = False
+                If Not cbxHeader.Checked Then
+                    .Columns("gs_DK_laufnr").Visible = False
+                Else
+                    .Columns("gs_DK_laufnr").Visible = True
+                End If
+
                .Columns("gs_warenwert").DefaultCellStyle.Format = "c"
                .Columns("gs_sicherheitsbetrag").DefaultCellStyle.Format = "c"
                .Columns("gs_saldo").DefaultCellStyle.Format = "c"
@@ -196,6 +208,17 @@ Public Class frmGesamtsicherheitenNEU
                .Columns("gs_datum").HeaderText = "Datum"
                .Columns("gs_warenwert").Width = 85
                .Columns("gs_warenwert").HeaderText = "Warenwert"
+                .Columns("gs_EH_Anzahl").HeaderText = "Anz."
+                .Columns("gs_EH_Anzahl").Width = 50
+                .Columns("gs_EH_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+                .Columns("gs_gewicht").HeaderText = "Gewicht"
+                .Columns("gs_gewicht").Width = 50
+                .Columns("gs_gewicht").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
+                .Columns("gs_DK_laufnr").HeaderText = "DK_ID."
+                .Columns("gs_DK_laufnr").Width = 40
+
                .Columns("gs_saldo").Width = 100
                .Columns("gs_saldo").HeaderText = "Saldo"
                .Columns("gs_sicherheitsbetrag").Width = 85
@@ -217,6 +240,12 @@ Public Class frmGesamtsicherheitenNEU
                    Me.dgvGesamtsicherheit.Rows(i).DefaultCellStyle.BackColor = Color.White
                End If

+                If dgvGesamtsicherheit.Rows(i).Cells("gs_dakoyimport").Value Then
+                    btnDAKOSY_AUTO.Enabled = False
+                Else
+                    btnDAKOSY_AUTO.Enabled = True
+                End If
+

            Next

@@ -426,7 +455,7 @@ Public Class frmGesamtsicherheitenNEU
        Next

        Dim SQLStringSicherheit As String = "select  [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt', gs_art,  
-                                            [gsp_ATCNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext, gsp_art" &
+                                            [gsp_MRNNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext, gsp_art" &
                                            IIf(detailinfo, ", gs_erstellungsdatum as 'Eingang erstellt am', gs_systemuser as 'von', gs_zuletztgeandert as ' Eingang geändert am',  gsp_erstellungsdatum as 'Ausgang erstellt am', gsp_systemuser as 'von_', gsp_zuletztgeandert as ' Ausgang geändert am'", "") &
                                            "from [tblGesamtsicherheit]
                                            left join [tblGesamtsicherheitsPositionen] on [tblGesamtsicherheit].gs_gsId = [tblGesamtsicherheitsPositionen].gsp_gsId
@@ -437,7 +466,7 @@ Public Class frmGesamtsicherheitenNEU


        Dim SQLStringSicherheit_new As String = "	select  [gs_ATBNr] as 'Reg-Nr. Verwahrlager',[gs_gsnr] as 'GS Nr', gs_MRNNr as MRN, CAST(gs_datum as Date) as Datum, CONVERT(VARCHAR(5),gs_datum, 108) as Uhrzeit, [gs_warenwert] as Warenwert, [gs_sicherheitsbetrag] as Sicherheitbetrag, [gs_saldo] as Saldo, [gs_freitext] as Freitext, [gs_atr] as 'ATR ja/nein', [gs_ust] as '19% EUSt',  
-                                            [gsp_ATCNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext" &
+                                            [gsp_MRNNr] as 'ATCNr oder MRN eroeffnet', CAST(gsp_datum as Date) as Datum, CONVERT(VARCHAR(5),gsp_datum, 108) as Uhrzeit, [gsp_warenwert] as Warenwert, [gsp_sicherheitsbetrag] as Sicherheitsbetrag2, [gsp_freitext] as Freitext" &
                                            IIf(detailinfo, ", gs_erstellungsdatum as 'Eingang erstellt am', gs_systemuser as 'von', gs_zuletztgeandert as ' Eingang geändert am',  gsp_erstellungsdatum as 'Ausgang erstellt am', gsp_systemuser as 'von_', gsp_zuletztgeandert as ' Ausgang geändert am'", "") &
                                            "From tblGesamtsicherheit
                                            Where gs_standort = '" & brgakto_gs_standort & "'" & StichtagSQLGesamtsicherheit & " AND ISNULL(gs_ReferenzAenderung,0) = 0
@@ -527,12 +556,13 @@ Public Class frmGesamtsicherheitenNEU
            sqlSearch &= "And gsp_gsid In (Select gs_gsId from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'"
            If txtSuche.Text <> "" Then sqlSearch &= "AND ([gs_abfertigungsNr] Like '%" & txtSuche.Text & "%' OR [gs_ATBNr] Like '%" & txtSuche.Text & "%' OR [gs_LKWKZ] like '%" & txtSuche.Text & "%' OR [gs_avisoId] like '%" & txtSuche.Text & "%' OR [gs_freitext] like '%" & txtSuche.Text & "%')"
            If cbxRundPosanzeigen.Checked = False Then sqlSearch &= "AND ISNULL(gsp_isPosRundungsdiff,0) = 0"
+            If Not cbxHeader.Checked Then sqlSearch &= " AND gs_posNr <> 0 "
            sqlSearch &= ")"
        End If


        Dim SQLStringCRN As String =
-            "select [gsp_gspPosId],[gsp_ATCNr],[gsp_datum],[gsp_gsId],[gsp_gsnr],[gsp_warenwert],[gsp_sicherheitsbetrag],  [gsp_freitext]" &' ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_MRNNr], [gsp_art]
+            "select [gsp_gspPosId],[gsp_ATCNr],[gsp_MRNNr],[gsp_datum],[gsp_gsId],[gsp_gsnr],[gsp_warenwert],[gsp_sicherheitsbetrag], [gsp_EH_Anzahl], [gsp_freitext]" &' ,[gsp_avisoId] ,[gsp_ust] ,[gsp_filialenNr],[gsp_abfertigungsNr] ,[gsp_MRNNr], [gsp_art]
                "From [tblGesamtsicherheitsPositionen] inner join [tblGesamtsicherheit] on gs_gsId = gsp_gsId where [gsp_gsnr] = '" & gsNr & "'" & sqlSearch & " order by [gs_ATBNr], [gs_posNr]"

        dgvSicherheitsPos.SET_SQL(SQLStringCRN, "AVISO", ,)
@@ -545,38 +575,35 @@ Public Class frmGesamtsicherheitenNEU
                .Columns("gsp_gspPosId").HeaderText = "Pos#"
                .Columns("gsp_gsId").Visible = False
                .Columns("gsp_gsnr").Visible = False
+                .Columns("gsp_ATCNr").Visible = False
                .Columns("gsp_warenwert").DefaultCellStyle.Format = "c"
                .Columns("gsp_sicherheitsbetrag").DefaultCellStyle.Format = "c"
                Select Case currentGesSichRef.brgakto_gs_ATR
                    Case True
                        If Standort = "Verag GmbH" Then
-                            .Columns("gsp_ATCNr").HeaderText = "Reg-Nr. / MRN"
+                            .Columns("gsp_MRNNr").HeaderText = "ATC. / MRN"
                        ElseIf Standort = "VERAG AG" Then
-                            .Columns("gsp_ATCNr").HeaderText = "T1 CRN"
+                            .Columns("gsp_MRNNr").HeaderText = "T1 CRN"
                        Else
-                            .Columns("gsp_ATCNr").HeaderText = "EZA / T1 CRN"
-                        End If
-
-                    Case Else
-                        If Standort = "Verag GmbH" Then
-                            .Columns("gsp_ATCNr").HeaderText = "Reg-Nr. / MRN"
-                        ElseIf Standort = "VERAG AG" Then
-                            .Columns("gsp_ATCNr").HeaderText = "T1 CRN"
-                        Else
-                            .Columns("gsp_ATCNr").HeaderText = "EZA / T1 CRN"
+                            .Columns("gsp_MRNNr").HeaderText = "EZA / T1 CRN"
                        End If

                End Select
-                .Columns("gsp_ATCNr").Width = 140
+                .Columns("gsp_MRNNr").Width = 140
                .Columns("gsp_datum").Width = 100
                .Columns("gsp_datum").HeaderText = "Datum"
                .Columns("gsp_warenwert").Width = 100
                .Columns("gsp_warenwert").HeaderText = "Warenwert"
                .Columns("gsp_sicherheitsbetrag").Width = 85
                .Columns("gsp_sicherheitsbetrag").HeaderText = "S-Betrag"
+                .Columns("gsp_EH_Anzahl").HeaderText = "Anz."
+                .Columns("gsp_EH_Anzahl").Width = 50
+                .Columns("gsp_EH_Anzahl").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
+
                .Columns("gsp_freitext").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
                .Columns("gsp_freitext").HeaderText = "Freitext"

+
            End With

            Dim changeColor = True
@@ -954,7 +981,7 @@ Public Class frmGesamtsicherheitenNEU
                .gsp_datum = DateTimeString2DateTimeKonvertinator(txtPosDat.Text, txtPosTime.Text)
                .gsp_erstellungsdatum = DateTime.Now
                .gsp_ust = currentSicherheit.gs_ust
-                .gsp_ATCNr = txtPositionenCRN.Text
+                .gsp_MRNNr = txtPositionenCRN.Text
                .gsp_avisoId = Me.avisoID
                .gsp_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
            End With
@@ -980,7 +1007,7 @@ Public Class frmGesamtsicherheitenNEU
    Sub AfterButton()
        'currentGesSichRef.CalcSaldo()
        lblSaldo.Text = "Saldo: €" & Decimal.Parse(currentGesSichRef.CalcSaldo()).ToString("N")
-        LoadDGVSicherheiten()
+        LoadDGVSicherheiten(True)
        EmptyTXT()
    End Sub

@@ -1191,13 +1218,13 @@ Public Class frmGesamtsicherheitenNEU
            .gsp_freitext = txtPosFreitext.Text
            .gsp_sicherheitsbetrag = Double.Parse(txtPosSicherheitsbetrag.Text)
            .gsp_warenwert = Double.Parse(txtPosWarenwert.Text)
-            .gsp_ATCNr = If(txtPositionenCRN.Text <> "", txtPositionenCRN.Text, Nothing)
+            .gsp_MRNNr = If(txtPositionenCRN.Text <> "", txtPositionenCRN.Text, Nothing)

            If txtPosDat.Text <> "" AndAlso txtPosTime.Text <> "" Then
                currentSPos.gsp_datum = DateTimeString2DateTimeKonvertinator(txtPosDat.Text, txtPosTime.Text)
            Else
                currentSPos.gsp_datum = Nothing
-                If .gsp_ATCNr <> "" AndAlso currentSPos.gsp_datum Is Nothing Then
+                If .gsp_MRNNr <> "" AndAlso currentSPos.gsp_datum Is Nothing Then
                    MsgBox("Datum/Uhrzeit bei Position " & currentSPos.gsp_gspPosId & " muss eingetragen werden!")
                    Exit Sub
                End If
@@ -1224,7 +1251,7 @@ Public Class frmGesamtsicherheitenNEU
        txtPosFreitext.Text = sPos.gsp_freitext
        txtPosSicherheitsbetrag.Text = sPos.gsp_sicherheitsbetrag
        txtPosWarenwert.Text = sPos.gsp_warenwert
-        txtPositionenCRN.Text = CStr(sPos.gsp_ATCNr)
+        txtPositionenCRN.Text = CStr(sPos.gsp_MRNNr)

        Try
            If sPos.gsp_datum IsNot Nothing Then
@@ -1653,7 +1680,7 @@ Public Class frmGesamtsicherheitenNEU
        End If


-        LoadDGVSicherheiten()
+        LoadDGVSicherheiten(True)
    End Sub

    Private Sub btnNext_Click(sender As Object, e As EventArgs) Handles btnNext.Click
@@ -1673,7 +1700,7 @@ Public Class frmGesamtsicherheitenNEU
            Me.gessicherheitID = Me.nextGessicherheitID
        End If

-        LoadDGVSicherheiten()
+        LoadDGVSicherheiten(True)
    End Sub

    Private Sub initPrevNextButtons()
@@ -1722,48 +1749,57 @@ Public Class frmGesamtsicherheitenNEU
    End Sub
    Private Sub calcGesamtsummen()

-        txtAnzalPosGes.Text = DirectCast(dgvGesamtsicherheit.Rows.Count().ToString(), String)
-
-        txtPosAnzalPosGes.Text = DirectCast(dgvSicherheitsPos.Rows.Count().ToString(), String)
-
-        Dim countSicherheitsbetrag As Double = 0
-        Dim countWarenwert As Double = 0
-
-        For i As Integer = 0 To dgvGesamtsicherheit.Rows.Count - 1
-            countSicherheitsbetrag += CDbl(dgvGesamtsicherheit.Rows(i).Cells("gs_sicherheitsbetrag").Value)
-            countWarenwert += CDbl(dgvGesamtsicherheit.Rows(i).Cells("gs_warenwert").Value)
+        Try


-        Next
+            txtAnzalPosGes.Text = DirectCast(dgvGesamtsicherheit.Rows.Count().ToString(), String)

-        txtSicherheitsbGes._value = countSicherheitsbetrag.ToString
-        txtWarenwertGes._value = countWarenwert.ToString
+            txtPosAnzalPosGes.Text = DirectCast(dgvSicherheitsPos.Rows.Count().ToString(), String)

-        Dim countSicherheitsbetragPos As Double = 0
-        Dim countWarenwertPos As Double = 0
+            Dim countSicherheitsbetrag As Double = 0
+            Dim countWarenwert As Double = 0

-        For i As Integer = 0 To dgvSicherheitsPos.Rows.Count - 1
-
-            countSicherheitsbetragPos += CDbl(dgvSicherheitsPos.Rows(i).Cells("gsp_sicherheitsbetrag").Value)
-            countWarenwertPos += CDbl(dgvSicherheitsPos.Rows(i).Cells("gsp_warenwert").Value)
-
-        Next
-
-        txtPosSicherheitsbGes._value = countSicherheitsbetragPos.ToString
-        txtPosWarenwertGes._value = countWarenwertPos.ToString
-
-        lbloffenerWarenwert.Text = "offener Warenwert: €"
-        lbloffenerWarenwert.Text &= Math.Round(countWarenwert, 2) - Math.Round(countWarenwertPos, 2)
-
-        If (Math.Abs(countSicherheitsbetrag - countSicherheitsbetragPos) < 0.1 AndAlso Math.Abs(countSicherheitsbetrag - countSicherheitsbetragPos) <> 0) Then
-            btnRundungsdifAusgl.Enabled = True
-            rundungsdiff = Math.Round(countSicherheitsbetrag - countSicherheitsbetragPos, 2)
-        Else
-            btnRundungsdifAusgl.Enabled = False
-        End If
+            For i As Integer = 0 To dgvGesamtsicherheit.Rows.Count - 1



+                countSicherheitsbetrag += CDbl(dgvGesamtsicherheit.Rows(i).Cells("gs_sicherheitsbetrag").Value)
+                countWarenwert += CDbl(dgvGesamtsicherheit.Rows(i).Cells("gs_warenwert").Value)
+
+
+            Next
+
+            txtSicherheitsbGes._value = countSicherheitsbetrag.ToString
+            txtWarenwertGes._value = countWarenwert.ToString
+
+            Dim countSicherheitsbetragPos As Double = 0
+            Dim countWarenwertPos As Double = 0
+
+            For i As Integer = 0 To dgvSicherheitsPos.Rows.Count - 1
+
+                countSicherheitsbetragPos += CDbl(dgvSicherheitsPos.Rows(i).Cells("gsp_sicherheitsbetrag").Value)
+                countWarenwertPos += CDbl(dgvSicherheitsPos.Rows(i).Cells("gsp_warenwert").Value)
+
+            Next
+
+            txtPosSicherheitsbGes._value = countSicherheitsbetragPos.ToString
+            txtPosWarenwertGes._value = countWarenwertPos.ToString
+
+            lbloffenerWarenwert.Text = "offener Warenwert: €"
+            lbloffenerWarenwert.Text &= Math.Round(countWarenwert, 2) - Math.Round(countWarenwertPos, 2)
+
+            If (Math.Abs(countSicherheitsbetrag - countSicherheitsbetragPos) < 0.1 AndAlso Math.Abs(countSicherheitsbetrag - countSicherheitsbetragPos) <> 0) Then
+                btnRundungsdifAusgl.Enabled = True
+                rundungsdiff = Math.Round(countSicherheitsbetrag - countSicherheitsbetragPos, 2)
+            Else
+                btnRundungsdifAusgl.Enabled = False
+            End If
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
    End Sub

    Private Sub rearangePosNr(gsNr As Integer, ATBNr As String, posNr As Integer)
@@ -1862,7 +1898,7 @@ Public Class frmGesamtsicherheitenNEU
        Dim mutlitpleATCNr As Boolean = False
        Dim Warenwert As Double

-        ATCNr = dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_ATCNr").Value.ToString
+        ATCNr = dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_MRNNr").Value.ToString
        tempDatum = If(dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_datum").Value IsNot DBNull.Value, CDate(dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_datum").Value).ToString("dd.MM.yyyy"), "")
        TempUhrzeit = If(dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_datum").Value IsNot DBNull.Value, CDate(dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_datum").Value).ToString("HH:mm"), "")
        Warenwert = If(dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_warenwert").Value IsNot DBNull.Value, CDbl(dgvSicherheitsPos.SelectedRows(dgvSicherheitsPos.SelectedRows.Count - 1).Cells("gsp_warenwert").Value), "")
@@ -1871,7 +1907,7 @@ Public Class frmGesamtsicherheitenNEU
        If dgvSicherheitsPos.SelectedRows.Count > 0 Then

            For Each row As DataGridViewRow In dgvSicherheitsPos.SelectedRows
-                If row.Cells("gsp_ATCNr").Value.ToString <> ATCNr Then
+                If row.Cells("gsp_MRNNr").Value.ToString <> ATCNr Then
                    mutlitpleATCNr = True
                End If
            Next
@@ -2008,7 +2044,7 @@ Public Class frmGesamtsicherheitenNEU
                    End If
                End If

-                SicherhPos.gsp_ATCNr = txtATCaendern.Text
+                SicherhPos.gsp_MRNNr = txtATCaendern.Text
                SicherhPos.gsp_datum = DateTimeString2DateTimeKonvertinator(txtDatumaendern.Text, txtUhrzeitaendern.Text)
                SicherhPos.SAVE()
            Next
@@ -2171,7 +2207,7 @@ Public Class frmGesamtsicherheitenNEU
                    .gsp_datum = DateTime.Now
                    .gsp_erstellungsdatum = DateTime.Now
                    .gsp_ust = currentSicherheit.gs_ust
-                    .gsp_ATCNr = "Korrekt. Rundungsdiff. " & gessicherheitID
+                    .gsp_MRNNr = "Korrekt. Rundungsdiff. " & gessicherheitID
                    .gsp_isPosRundungsdiff = True
                    .gsp_avisoId = Me.avisoID
                    .gsp_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
@@ -2320,5 +2356,24 @@ Public Class frmGesamtsicherheitenNEU
        End If


+    End Sub
+
+    Private Sub btnDAKOSY_AUTO_Click(sender As Object, e As EventArgs) Handles btnDAKOSY_AUTO.Click
+        If Me.gessicherheitID > 0 Then
+            Dim sqlstring = "Update [tblGesamtsicherheit] set [gs_dakoyimport] = 1 WHERE [gs_gsNr] = " & Me.gessicherheitID
+            If SQL.doSQL(sqlstring, "AVISO") Then btnDAKOSY_AUTO.Enabled = False
+        End If
+
+    End Sub
+
+    Private Sub cbxHeader_CheckedChanged(sender As Object, e As EventArgs) Handles cbxHeader.CheckedChanged
+
+        LoadDGVSicherheiten(True)
+
+    End Sub
+
+
+    Private Sub insertMRNNr()
+
    End Sub
 End Class