neu

2022-03-19 22:52:06 +01:00
parent 9b001e5803
commit d9204781cf
139 changed files with 19394 additions and 3352 deletions
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/NCTS/usrCntlATLAS_NCTS.vb
@@ -419,7 +419,7 @@ Public Class usrCntlATLAS_NCTS



-            If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Then
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG = "ATILLA" Or (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" And AVISO.ImEx = "EXPORT") Then
                cdy.ncts_SumA_KzSumASicherheit = True
                cdy.ncts_SumA_BesondereUmstaende = "C"
                cdy.ncts_SumA_BefoerderungskostenZahlungsweise = "D"
--- a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.Designer.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.Designer.vb
@@ -24,36 +24,25 @@ Partial Class frmDakosyStammreferenzVerwalten
    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDakosyStammreferenzVerwalten))
-        Me.cboLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label2 = New System.Windows.Forms.Label()
        Me.lblVerfahren = New System.Windows.Forms.Label()
-        Me.cboVerfahren = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.btnOK = New System.Windows.Forms.Button()
-        Me.dgvStammref = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.Button1 = New System.Windows.Forms.Button()
        Me.Button2 = New System.Windows.Forms.Button()
-        Me.cboMandant = New VERAG_PROG_ALLGEMEIN.MyComboBox()
-        Me.cboNL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        Me.Label1 = New System.Windows.Forms.Label()
        Me.Label3 = New System.Windows.Forms.Label()
        Me.Label4 = New System.Windows.Forms.Label()
-        Me.txtSearch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.btnDuplicate = New System.Windows.Forms.Button()
+        Me.Button3 = New System.Windows.Forms.Button()
+        Me.txtSearch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.cboMandant = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboNL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.dgvStammref = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.cboLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cboVerfahren = New VERAG_PROG_ALLGEMEIN.MyComboBox()
        CType(Me.dgvStammref, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
-        'cboLand
-        '
-        Me.cboLand._allowedValuesFreiText = Nothing
-        Me.cboLand._allowFreiText = False
-        Me.cboLand._value = ""
-        Me.cboLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
-        Me.cboLand.FormattingEnabled = True
-        Me.cboLand.Location = New System.Drawing.Point(12, 29)
-        Me.cboLand.Name = "cboLand"
-        Me.cboLand.Size = New System.Drawing.Size(53, 28)
-        Me.cboLand.TabIndex = 11
-        '
        'Label2
        '
        Me.Label2.AutoSize = True
@@ -72,26 +61,12 @@ Partial Class frmDakosyStammreferenzVerwalten
        Me.lblVerfahren.TabIndex = 10
        Me.lblVerfahren.Text = "Verfahren:"
        '
-        'cboVerfahren
-        '
-        Me.cboVerfahren._allowedValuesFreiText = Nothing
-        Me.cboVerfahren._allowFreiText = False
-        Me.cboVerfahren._value = ""
-        Me.cboVerfahren.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.cboVerfahren.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
-        Me.cboVerfahren.FormattingEnabled = True
-        Me.cboVerfahren.Location = New System.Drawing.Point(64, 29)
-        Me.cboVerfahren.Name = "cboVerfahren"
-        Me.cboVerfahren.Size = New System.Drawing.Size(746, 28)
-        Me.cboVerfahren.TabIndex = 7
-        '
        'btnOK
        '
        Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.btnOK.Image = Global.SDL.My.Resources.plus
+        Me.btnOK.Image = Global.SDL.My.Resources.Resources.plus
        Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.btnOK.Location = New System.Drawing.Point(967, 95)
        Me.btnOK.Name = "btnOK"
@@ -102,33 +77,12 @@ Partial Class frmDakosyStammreferenzVerwalten
        Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnOK.UseVisualStyleBackColor = True
        '
-        'dgvStammref
-        '
-        Me.dgvStammref.AKTUALISIERUNGS_INTERVALL = -1
-        Me.dgvStammref.AllowUserToAddRows = False
-        Me.dgvStammref.AllowUserToDeleteRows = False
-        Me.dgvStammref.AllowUserToOrderColumns = True
-        Me.dgvStammref.AllowUserToResizeColumns = False
-        Me.dgvStammref.AllowUserToResizeRows = False
-        Me.dgvStammref.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
-            Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.dgvStammref.BackgroundColor = System.Drawing.Color.White
-        Me.dgvStammref.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-        Me.dgvStammref.Location = New System.Drawing.Point(12, 95)
-        Me.dgvStammref.Name = "dgvStammref"
-        Me.dgvStammref.ReadOnly = True
-        Me.dgvStammref.RowHeadersVisible = False
-        Me.dgvStammref.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-        Me.dgvStammref.Size = New System.Drawing.Size(949, 619)
-        Me.dgvStammref.TabIndex = 12
-        '
        'Button1
        '
        Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button1.Image = Global.SDL.My.Resources.del
+        Me.Button1.Image = Global.SDL.My.Resources.Resources.del
        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button1.Location = New System.Drawing.Point(967, 138)
        Me.Button1.Name = "Button1"
@@ -145,7 +99,7 @@ Partial Class frmDakosyStammreferenzVerwalten
        Me.Button2.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Button2.Enabled = False
        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
-        Me.Button2.Image = Global.SDL.My.Resources.stift1
+        Me.Button2.Image = Global.SDL.My.Resources.Resources.stift1
        Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
        Me.Button2.Location = New System.Drawing.Point(967, 181)
        Me.Button2.Name = "Button2"
@@ -156,32 +110,6 @@ Partial Class frmDakosyStammreferenzVerwalten
        Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.Button2.UseVisualStyleBackColor = True
        '
-        'cboMandant
-        '
-        Me.cboMandant._allowedValuesFreiText = Nothing
-        Me.cboMandant._allowFreiText = False
-        Me.cboMandant._value = ""
-        Me.cboMandant.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.cboMandant.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
-        Me.cboMandant.FormattingEnabled = True
-        Me.cboMandant.Location = New System.Drawing.Point(823, 29)
-        Me.cboMandant.Name = "cboMandant"
-        Me.cboMandant.Size = New System.Drawing.Size(73, 28)
-        Me.cboMandant.TabIndex = 21
-        '
-        'cboNL
-        '
-        Me.cboNL._allowedValuesFreiText = Nothing
-        Me.cboNL._allowFreiText = False
-        Me.cboNL._value = ""
-        Me.cboNL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.cboNL.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
-        Me.cboNL.FormattingEnabled = True
-        Me.cboNL.Location = New System.Drawing.Point(895, 29)
-        Me.cboNL.Name = "cboNL"
-        Me.cboNL.Size = New System.Drawing.Size(66, 28)
-        Me.cboNL.TabIndex = 20
-        '
        'Label1
        '
        Me.Label1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -211,29 +139,6 @@ Partial Class frmDakosyStammreferenzVerwalten
        Me.Label4.TabIndex = 22
        Me.Label4.Text = "Kunde:"
        '
-        'txtSearch
-        '
-        Me.txtSearch._DateTimeOnly = False
-        Me.txtSearch._numbersOnly = False
-        Me.txtSearch._numbersOnlyKommastellen = ""
-        Me.txtSearch._Prozent = False
-        Me.txtSearch._ShortDateNew = False
-        Me.txtSearch._ShortDateOnly = False
-        Me.txtSearch._TimeOnly = False
-        Me.txtSearch._value = ""
-        Me.txtSearch._Waehrung = False
-        Me.txtSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
-            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
-        Me.txtSearch.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.txtSearch.ForeColor = System.Drawing.Color.Black
-        Me.txtSearch.Location = New System.Drawing.Point(64, 63)
-        Me.txtSearch.MaxLineLength = -1
-        Me.txtSearch.MaxLines_Warning = ""
-        Me.txtSearch.MaxLines_Warning_Label = Nothing
-        Me.txtSearch.Name = "txtSearch"
-        Me.txtSearch.Size = New System.Drawing.Size(897, 26)
-        Me.txtSearch.TabIndex = 23
-        '
        'btnDuplicate
        '
        Me.btnDuplicate.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -250,12 +155,124 @@ Partial Class frmDakosyStammreferenzVerwalten
        Me.btnDuplicate.TextAlign = System.Drawing.ContentAlignment.MiddleRight
        Me.btnDuplicate.UseVisualStyleBackColor = True
        '
+        'Button3
+        '
+        Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button3.Location = New System.Drawing.Point(967, 352)
+        Me.Button3.Name = "Button3"
+        Me.Button3.Padding = New System.Windows.Forms.Padding(0, 0, 20, 0)
+        Me.Button3.Size = New System.Drawing.Size(138, 37)
+        Me.Button3.TabIndex = 25
+        Me.Button3.Text = "Sichtbar/Unsichtbar"
+        Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button3.UseVisualStyleBackColor = True
+        '
+        'txtSearch
+        '
+        Me.txtSearch._DateTimeOnly = False
+        Me.txtSearch._numbersOnly = False
+        Me.txtSearch._numbersOnlyKommastellen = ""
+        Me.txtSearch._Prozent = False
+        Me.txtSearch._ShortDateNew = False
+        Me.txtSearch._ShortDateOnly = False
+        Me.txtSearch._TimeOnly = False
+        Me.txtSearch._value = ""
+        Me.txtSearch._Waehrung = False
+        Me.txtSearch._WaehrungZeichen = True
+        Me.txtSearch.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.txtSearch.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSearch.ForeColor = System.Drawing.Color.Black
+        Me.txtSearch.Location = New System.Drawing.Point(64, 63)
+        Me.txtSearch.MaxLineLength = -1
+        Me.txtSearch.MaxLines_Warning = ""
+        Me.txtSearch.MaxLines_Warning_Label = Nothing
+        Me.txtSearch.Name = "txtSearch"
+        Me.txtSearch.Size = New System.Drawing.Size(897, 26)
+        Me.txtSearch.TabIndex = 23
+        '
+        'cboMandant
+        '
+        Me.cboMandant._allowedValuesFreiText = Nothing
+        Me.cboMandant._allowFreiText = False
+        Me.cboMandant._value = ""
+        Me.cboMandant.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cboMandant.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.cboMandant.FormattingEnabled = True
+        Me.cboMandant.Location = New System.Drawing.Point(823, 29)
+        Me.cboMandant.Name = "cboMandant"
+        Me.cboMandant.Size = New System.Drawing.Size(73, 28)
+        Me.cboMandant.TabIndex = 21
+        '
+        'cboNL
+        '
+        Me.cboNL._allowedValuesFreiText = Nothing
+        Me.cboNL._allowFreiText = False
+        Me.cboNL._value = ""
+        Me.cboNL.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cboNL.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.cboNL.FormattingEnabled = True
+        Me.cboNL.Location = New System.Drawing.Point(895, 29)
+        Me.cboNL.Name = "cboNL"
+        Me.cboNL.Size = New System.Drawing.Size(66, 28)
+        Me.cboNL.TabIndex = 20
+        '
+        'dgvStammref
+        '
+        Me.dgvStammref.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvStammref.AllowUserToAddRows = False
+        Me.dgvStammref.AllowUserToDeleteRows = False
+        Me.dgvStammref.AllowUserToOrderColumns = True
+        Me.dgvStammref.AllowUserToResizeColumns = False
+        Me.dgvStammref.AllowUserToResizeRows = False
+        Me.dgvStammref.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.dgvStammref.BackgroundColor = System.Drawing.Color.White
+        Me.dgvStammref.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvStammref.Location = New System.Drawing.Point(12, 95)
+        Me.dgvStammref.Name = "dgvStammref"
+        Me.dgvStammref.ReadOnly = True
+        Me.dgvStammref.RowHeadersVisible = False
+        Me.dgvStammref.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
+        Me.dgvStammref.Size = New System.Drawing.Size(949, 619)
+        Me.dgvStammref.TabIndex = 12
+        '
+        'cboLand
+        '
+        Me.cboLand._allowedValuesFreiText = Nothing
+        Me.cboLand._allowFreiText = False
+        Me.cboLand._value = ""
+        Me.cboLand.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.cboLand.FormattingEnabled = True
+        Me.cboLand.Location = New System.Drawing.Point(12, 29)
+        Me.cboLand.Name = "cboLand"
+        Me.cboLand.Size = New System.Drawing.Size(53, 28)
+        Me.cboLand.TabIndex = 11
+        '
+        'cboVerfahren
+        '
+        Me.cboVerfahren._allowedValuesFreiText = Nothing
+        Me.cboVerfahren._allowFreiText = False
+        Me.cboVerfahren._value = ""
+        Me.cboVerfahren.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.cboVerfahren.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!)
+        Me.cboVerfahren.FormattingEnabled = True
+        Me.cboVerfahren.Location = New System.Drawing.Point(64, 29)
+        Me.cboVerfahren.Name = "cboVerfahren"
+        Me.cboVerfahren.Size = New System.Drawing.Size(746, 28)
+        Me.cboVerfahren.TabIndex = 7
+        '
        'frmDakosyStammreferenzVerwalten
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
        Me.ClientSize = New System.Drawing.Size(1117, 726)
+        Me.Controls.Add(Me.Button3)
        Me.Controls.Add(Me.btnDuplicate)
        Me.Controls.Add(Me.txtSearch)
        Me.Controls.Add(Me.Label4)
@@ -295,4 +312,5 @@ Partial Class frmDakosyStammreferenzVerwalten
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents txtSearch As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents btnDuplicate As System.Windows.Forms.Button
+    Friend WithEvents Button3 As Button
 End Class
--- a/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/Stammreferenz/frmDakosyStammreferenzVerwalten.vb
@@ -39,7 +39,7 @@
            .Columns.Clear()
            If cboLand._value <> "" And cboVerfahren._value <> "" Then
                Dim where = If(txtSearch.Text <> "", " AND (Ordnungsbegriff LIKE '" & txtSearch.Text & "%' OR dyStr_KdNr LIKE '" & txtSearch.Text & "%') ", "")
-                .DataSource = SQL.loadDgvBySql("SELECT [dySr_Id], [dySr_Stammreferenz],[dySr_Bezeichnung],isnull(dySr_dyId,-1) as dySr_dyId,dySr_dy_Mandant,dySr_dy_Niederlassung,dyStr_KdNr,Ordnungsbegriff FROM [tblDakosy_Stammreferenzen]  LEFT JOIN Adressen ON AdressenNr=dyStr_KdNr WHERE dySr_Land='" & cboLand._value & "' AND dySr_Verfahren='" & cboVerfahren._value & "'  and dySr_dy_Mandant='" & cboMandant._value & "'  " & If(cboNL._value = "", "", " AND dySr_dy_Niederlassung='" & cboNL._value & "'") & " " & where & " ORDER BY dyStr_KdNr, dySr_Bezeichnung ", "FMZOLL")
+                .DataSource = SQL.loadDgvBySql("SELECT [dySr_Id], [dySr_Stammreferenz],[dySr_Bezeichnung],isnull(dySr_dyId,-1) as dySr_dyId,dySr_dy_Mandant,dySr_dy_Niederlassung,dyStr_KdNr,Ordnungsbegriff,CASE WHEN dySr_visible=1 THEN 'JA' ELSE 'NEIN' END as Sichtbar FROM [tblDakosy_Stammreferenzen]  LEFT JOIN Adressen ON AdressenNr=dyStr_KdNr WHERE dySr_Land='" & cboLand._value & "' AND dySr_Verfahren='" & cboVerfahren._value & "'  and dySr_dy_Mandant='" & cboMandant._value & "'  " & If(cboNL._value = "", "", " AND dySr_dy_Niederlassung='" & cboNL._value & "'") & " " & where & " ORDER BY dyStr_KdNr, dySr_Bezeichnung ", "FMZOLL")
                'MsgBox("SELECT [dySr_Id], [dySr_Stammreferenz],[dySr_Bezeichnung],isnull(dySr_dyId,-1) as dySr_dyId,dySr_dy_Mandant,dySr_dy_Niederlassung,dyStr_KdNr,Ordnungsbegriff FROM [tblDakosy_Stammreferenzen]  LEFT JOIN Adressen ON AdressenNr=dyStr_KdNr WHERE dySr_Land='" & cboLand._value & "' AND dySr_Verfahren='" & cboVerfahren._value & "'  and dySr_dy_Mandant='" & cboMandant._value & "'  " & If(cboNL._value = "", "", " AND dySr_dy_Niederlassung='" & cboNL._value & "'") & " " & where & " ORDER BY dyStr_KdNr, dySr_Bezeichnung ")
                .Columns("dySr_dyId").Visible = False
                .Columns("dySr_Id").Visible = False
@@ -293,4 +293,19 @@
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnDuplicate.Click

    End Sub
+
+    Private Sub Button3_Click_1(sender As Object, e As EventArgs) Handles Button3.Click
+        If dgvStammref.SelectedRows.Count > 0 Then
+            SQL.doSQL("Update [tblDakosy_Stammreferenzen]  SET dySr_visible=CASE WHEN dySr_visible = 1 THEN 0 ELSE 1 END WHERE [dySr_Id]='" & dgvStammref.SelectedRows(0).Cells("dySr_Id").Value & "' ", "FMZOLL")
+            initDGV()
+        End If
+    End Sub
+
+    Private Sub MyDatagridview1_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs)
+
+    End Sub
+
+    Private Sub MyDatagridview1_CellDoubleClick(sender As Object, e As EventArgs) Handles dgvStammref.DoubleClick, dgvStammref.CellDoubleClick, dgvStammref.CellContentDoubleClick
+
+    End Sub
 End Class