edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Gestellungsgarantien, Vertraege, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-11-26 14:02:00 +01:00
parent 9525e042ab
commit 2afd056b2c
4 changed files with 70 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

64
SDL/kunden/usrcntlVertraege.Designer.vb generated
View File

@@ -22,9 +22,9 @@ Partial Class usrcntlVertraege
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.components = New System.ComponentModel.Container()
Me.dgvVertraege = New System.Windows.Forms.DataGridView()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Button11 = New System.Windows.Forms.Button() Me.Button11 = New System.Windows.Forms.Button()
Me.Button12 = New System.Windows.Forms.Button() Me.Button12 = New System.Windows.Forms.Button()
Me.txtVertragVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtVertragVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -33,31 +33,12 @@ Partial Class usrcntlVertraege
Me.cboVertrag = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboVertrag = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.datVertrag = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.datVertrag = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox() Me.dgvVertraegeNew = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
CType(Me.dgvVertraege, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.dgvVertraegeNew, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'dgvVertraege
'
Me.dgvVertraege.AllowUserToAddRows = False
Me.dgvVertraege.AllowUserToDeleteRows = False
Me.dgvVertraege.AllowUserToOrderColumns = True
Me.dgvVertraege.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White
Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVertraege.Location = New System.Drawing.Point(0, 0)
Me.dgvVertraege.MultiSelect = False
Me.dgvVertraege.Name = "dgvVertraege"
Me.dgvVertraege.ReadOnly = True
Me.dgvVertraege.RowHeadersVisible = False
Me.dgvVertraege.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvVertraege.Size = New System.Drawing.Size(495, 97)
Me.dgvVertraege.TabIndex = 9
'
'Panel1 'Panel1
' '
Me.Panel1.BackColor = System.Drawing.Color.White Me.Panel1.BackColor = System.Drawing.Color.White
@@ -76,6 +57,17 @@ Partial Class usrcntlVertraege
Me.Panel1.Size = New System.Drawing.Size(495, 46) Me.Panel1.Size = New System.Drawing.Size(495, 46)
Me.Panel1.TabIndex = 10 Me.Panel1.TabIndex = 10
' '
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.pdf
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(473, 0)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(22, 19)
Me.PictureBox1.TabIndex = 8
Me.PictureBox1.TabStop = False
Me.PictureBox1.Visible = False
'
'Button11 'Button11
' '
Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -191,33 +183,34 @@ Partial Class usrcntlVertraege
Me.Label4.TabIndex = 0 Me.Label4.TabIndex = 0
Me.Label4.Text = "Vertrag:" Me.Label4.Text = "Vertrag:"
' '
'PictureBox1 'dgvVertraegeNew
' '
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.pdf Me.dgvVertraegeNew.AKTUALISIERUNGS_INTERVALL = -1
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom Me.dgvVertraegeNew.AllowUserToDeleteRows = False
Me.PictureBox1.Location = New System.Drawing.Point(473, 0) Me.dgvVertraegeNew.AllowUserToOrderColumns = True
Me.PictureBox1.Name = "PictureBox1" Me.dgvVertraegeNew.AllowUserToResizeRows = False
Me.PictureBox1.Size = New System.Drawing.Size(22, 19) Me.dgvVertraegeNew.BackgroundColor = System.Drawing.Color.White
Me.PictureBox1.TabIndex = 8 Me.dgvVertraegeNew.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.PictureBox1.TabStop = False Me.dgvVertraegeNew.Location = New System.Drawing.Point(0, 0)
Me.PictureBox1.Visible = False Me.dgvVertraegeNew.Name = "dgvVertraegeNew"
Me.dgvVertraegeNew.Size = New System.Drawing.Size(492, 97)
Me.dgvVertraegeNew.TabIndex = 11
' '
'usrcntlVertraege 'usrcntlVertraege
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.dgvVertraegeNew)
Me.Controls.Add(Me.Panel1) Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.dgvVertraege)
Me.Name = "usrcntlVertraege" Me.Name = "usrcntlVertraege"
Me.Size = New System.Drawing.Size(495, 146) Me.Size = New System.Drawing.Size(495, 146)
CType(Me.dgvVertraege, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel1.ResumeLayout(False) Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout() Me.Panel1.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.dgvVertraegeNew, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
Public WithEvents dgvVertraege As DataGridView
Friend WithEvents Panel1 As Panel Friend WithEvents Panel1 As Panel
Public WithEvents Button11 As Button Public WithEvents Button11 As Button
Friend WithEvents Button12 As Button Friend WithEvents Button12 As Button
@@ -228,4 +221,5 @@ Partial Class usrcntlVertraege
Friend WithEvents datVertrag As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents datVertrag As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As Label Friend WithEvents Label4 As Label
Friend WithEvents PictureBox1 As PictureBox Friend WithEvents PictureBox1 As PictureBox
Public WithEvents dgvVertraegeNew As VERAG_PROG_ALLGEMEIN.MyDatagridview
End Class End Class

30
SDL/kunden/usrcntlVertraege.vb
View File

@@ -1,6 +1,4 @@
Imports com.esendex.sdk.surveys.models Imports VERAG_PROG_ALLGEMEIN
Imports sun.swing
Imports VERAG_PROG_ALLGEMEIN
Public Class usrcntlVertraege Public Class usrcntlVertraege
@@ -10,18 +8,18 @@ Public Class usrcntlVertraege
Public Vid = -1 Public Vid = -1
Public Shared Event clickOK(ByVal sender As System.Object, ByVal e As System.EventArgs) Public Shared Event clickOK(ByVal sender As System.Object, ByVal e As System.EventArgs)
Private Sub dgvVertraege_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellContentDoubleClick Private Sub dgvVertraege_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraegeNew.CellContentDoubleClick
If dgvVertraege.SelectedRows.Count = 1 Then If dgvVertraegeNew.SelectedRows.Count = 1 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraege.SelectedRows(0).Cells("kv_datenarchivId").Value) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVertraegeNew.SelectedRows(0).Cells("kv_datenarchivId").Value)
DS.OPEN_SINGLE() DS.OPEN_SINGLE()
End If End If
End Sub End Sub
Private Sub dgvVertraege_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVertraege.CellMouseClick Private Sub dgvVertraege_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVertraegeNew.CellMouseClick
If e.RowIndex < 0 Then Exit Sub If e.RowIndex < 0 Then Exit Sub
DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True DirectCast(sender, DataGridView).Rows(e.RowIndex).Selected = True
If e.Button = Windows.Forms.MouseButtons.Right Then If e.Button = Windows.Forms.MouseButtons.Right Then
If dgvVertraege.SelectedRows.Count > 0 Then If dgvVertraegeNew.SelectedRows.Count > 0 Then
'ContextMenuStrip4.Show(Cursor.Position) 'ContextMenuStrip4.Show(Cursor.Position)
End If End If
End If End If
@@ -54,8 +52,8 @@ Public Class usrcntlVertraege
If cboVertrag._value <> "" And datVertrag._value <> "" Then If cboVertrag._value <> "" And datVertrag._value <> "" Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege
If Button12.Visible Then If Button12.Visible Then
If dgvVertraege.SelectedRows.Count = 1 Then If dgvVertraegeNew.SelectedRows.Count = 1 Then
KV = New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value) KV = New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraegeNew.SelectedRows(0).Cells("kv_id").Value)
Else Else
Exit Sub Exit Sub
End If End If
@@ -69,7 +67,7 @@ Public Class usrcntlVertraege
If KV.SAVEOBJECT Then If KV.SAVEOBJECT Then
If PDF_Attach_TMP <> "" Then If PDF_Attach_TMP <> "" Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdnr) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraegeNew.SelectedRows(0).Cells("kv_id").Value, kdnr)
If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then If DS.uploadDataToDATENSERVERFileDialog(, ".pdf", , "PDF") Then
KV.kv_datenarchivId = DS.da_id KV.kv_datenarchivId = DS.da_id
KV.SAVE() KV.SAVE()
@@ -96,8 +94,8 @@ Public Class usrcntlVertraege
If cboVertrag._value <> "" And datVertrag._value <> "" Then If cboVertrag._value <> "" And datVertrag._value <> "" Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege
If Button12.Visible Then If Button12.Visible Then
If dgvVertraege.SelectedRows.Count = 1 Then If dgvVertraegeNew.SelectedRows.Count = 1 Then
KV = New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value) KV = New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraegeNew.SelectedRows(0).Cells("kv_id").Value)
Else Else
Exit Sub Exit Sub
End If End If
@@ -125,7 +123,7 @@ Public Class usrcntlVertraege
PictureBox1.Visible = PDF_Attach_TMP <> "" PictureBox1.Visible = PDF_Attach_TMP <> ""
With dgvVertraege With dgvVertraegeNew
.Columns.Clear() .Columns.Clear()
If kdnr = -1 Or kdnr Is Nothing Then Exit Sub If kdnr = -1 Or kdnr Is Nothing Then Exit Sub
@@ -179,10 +177,10 @@ Public Class usrcntlVertraege
Private Sub markDGVVertraege(Optional vid As Integer = 0) Private Sub markDGVVertraege(Optional vid As Integer = 0)
dgvVertraege.ClearSelection() dgvVertraegeNew.ClearSelection()
If vid > 0 Then If vid > 0 Then
For Each row As DataGridViewRow In dgvVertraege.Rows For Each row As DataGridViewRow In dgvVertraegeNew.Rows
If row.Cells("kv_Id").Value = vid Then If row.Cells("kv_Id").Value = vid Then
row.Selected = True row.Selected = True
End If End If

45
SDL/usrcntlGestellungsgarantien.Designer.vb generated
View File

@@ -22,8 +22,7 @@ Partial Class usrcntlGestellungsgarantien
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _ <System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent() Private Sub InitializeComponent()
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.components = New System.ComponentModel.Container()
Me.dgvGestGarantie = New System.Windows.Forms.DataGridView()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.cbxGG = New System.Windows.Forms.CheckBox() Me.cbxGG = New System.Windows.Forms.CheckBox()
Me.txtGGDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtGGDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -31,29 +30,11 @@ Partial Class usrcntlGestellungsgarantien
Me.Label11 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label()
Me.Button8 = New System.Windows.Forms.Button() Me.Button8 = New System.Windows.Forms.Button()
Me.Button9 = New System.Windows.Forms.Button() Me.Button9 = New System.Windows.Forms.Button()
CType(Me.dgvGestGarantie, System.ComponentModel.ISupportInitialize).BeginInit() Me.dgvGestGarantieNew = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
CType(Me.dgvGestGarantieNew, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
'dgvGestGarantie
'
Me.dgvGestGarantie.AllowUserToAddRows = False
Me.dgvGestGarantie.AllowUserToDeleteRows = False
Me.dgvGestGarantie.AllowUserToOrderColumns = True
Me.dgvGestGarantie.AllowUserToResizeRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White
Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGestGarantie.Location = New System.Drawing.Point(3, 3)
Me.dgvGestGarantie.MultiSelect = False
Me.dgvGestGarantie.Name = "dgvGestGarantie"
Me.dgvGestGarantie.ReadOnly = True
Me.dgvGestGarantie.RowHeadersVisible = False
Me.dgvGestGarantie.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvGestGarantie.Size = New System.Drawing.Size(506, 102)
Me.dgvGestGarantie.TabIndex = 13
'
'Panel2 'Panel2
' '
Me.Panel2.BackColor = System.Drawing.Color.White Me.Panel2.BackColor = System.Drawing.Color.White
@@ -166,22 +147,33 @@ Partial Class usrcntlGestellungsgarantien
Me.Button9.UseVisualStyleBackColor = True Me.Button9.UseVisualStyleBackColor = True
Me.Button9.Visible = False Me.Button9.Visible = False
' '
'dgvGestGarantieNew
'
Me.dgvGestGarantieNew.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvGestGarantieNew.AllowUserToAddRows = False
Me.dgvGestGarantieNew.AllowUserToDeleteRows = False
Me.dgvGestGarantieNew.AllowUserToResizeRows = False
Me.dgvGestGarantieNew.BackgroundColor = System.Drawing.Color.White
Me.dgvGestGarantieNew.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvGestGarantieNew.Location = New System.Drawing.Point(0, 0)
Me.dgvGestGarantieNew.Name = "dgvGestGarantieNew"
Me.dgvGestGarantieNew.Size = New System.Drawing.Size(506, 105)
Me.dgvGestGarantieNew.TabIndex = 15
'
'usrcntlGestellungsgarantien 'usrcntlGestellungsgarantien
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.dgvGestGarantieNew)
Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.dgvGestGarantie)
Me.Name = "usrcntlGestellungsgarantien" Me.Name = "usrcntlGestellungsgarantien"
Me.Size = New System.Drawing.Size(509, 153) Me.Size = New System.Drawing.Size(509, 153)
CType(Me.dgvGestGarantie, System.ComponentModel.ISupportInitialize).EndInit()
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout() Me.Panel2.PerformLayout()
CType(Me.dgvGestGarantieNew, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False) Me.ResumeLayout(False)
End Sub End Sub
Public WithEvents dgvGestGarantie As DataGridView
Friend WithEvents Panel2 As Panel Friend WithEvents Panel2 As Panel
Friend WithEvents cbxGG As CheckBox Friend WithEvents cbxGG As CheckBox
Friend WithEvents txtGGDatum As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtGGDatum As VERAG_PROG_ALLGEMEIN.MyTextBox
@@ -189,4 +181,5 @@ Partial Class usrcntlGestellungsgarantien
Friend WithEvents Label11 As Label Friend WithEvents Label11 As Label
Friend WithEvents Button8 As Button Friend WithEvents Button8 As Button
Friend WithEvents Button9 As Button Friend WithEvents Button9 As Button
Public WithEvents dgvGestGarantieNew As VERAG_PROG_ALLGEMEIN.MyDatagridview
End Class End Class

16
SDL/usrcntlGestellungsgarantien.vb
View File

@@ -13,7 +13,7 @@
kdnr = _kdnr kdnr = _kdnr
With dgvGestGarantie With dgvGestGarantieNew
.Columns.Clear() .Columns.Clear()
If kdnr = -1 Then Exit Sub If kdnr = -1 Then Exit Sub
@@ -54,8 +54,8 @@
If (txtT1VerzollungsadresseBestimmungszollstelle._value <> "" Or cbxGG.Checked) And txtGGDatum._value <> "" Then If (txtT1VerzollungsadresseBestimmungszollstelle._value <> "" Or cbxGG.Checked) And txtGGDatum._value <> "" Then
Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien Dim GG As New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien
If Button9.Visible Then If Button9.Visible Then
If dgvGestGarantie.SelectedRows.Count = 1 Then If dgvGestGarantieNew.SelectedRows.Count = 1 Then
GG = New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantie.SelectedRows(0).Cells("gg_id").Value) GG = New VERAG_PROG_ALLGEMEIN.cGestellungsgarantien(dgvGestGarantieNew.SelectedRows(0).Cells("gg_id").Value)
Else Else
Exit Sub Exit Sub
End If End If
@@ -108,9 +108,9 @@
End Sub End Sub
Private Sub dgvGestGarantie_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGestGarantie.CellContentDoubleClick Private Sub dgvGestGarantie_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvGestGarantieNew.CellContentDoubleClick
If dgvGestGarantie.SelectedRows.Count = 1 Then If dgvGestGarantieNew.SelectedRows.Count = 1 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvGestGarantie.SelectedRows(0).Cells("gg_datenarchivId").Value) Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvGestGarantieNew.SelectedRows(0).Cells("gg_datenarchivId").Value)
DS.OPEN_SINGLE() DS.OPEN_SINGLE()
End If End If
End Sub End Sub
@@ -118,10 +118,10 @@
Private Sub markDGVGestGarantie(Optional gid As Integer = 0) Private Sub markDGVGestGarantie(Optional gid As Integer = 0)
dgvGestGarantie.ClearSelection() dgvGestGarantieNew.ClearSelection()
If gid > 0 Then If gid > 0 Then
For Each row As DataGridViewRow In dgvGestGarantie.Rows For Each row As DataGridViewRow In dgvGestGarantieNew.Rows
If row.Cells("gg_Id").Value = gid Then If row.Cells("gg_Id").Value = gid Then
row.Selected = True row.Selected = True
End If End If