ustva, etc.

SDL/USTV/frmMDM_USTVAntrag.Designer.vb

@@ -51,6 +51,7 @@ Partial Class frmMDM_USTVAntrag
         Me.cbxLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.lblLand = New System.Windows.Forms.Label()
         Me.Panel8 = New System.Windows.Forms.Panel()
+        Me.cbxSicherheit = New System.Windows.Forms.CheckBox()
         Me.Label16 = New System.Windows.Forms.Label()
         Me.txtRZam = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Label17 = New System.Windows.Forms.Label()
@@ -112,6 +113,7 @@ Partial Class frmMDM_USTVAntrag
         Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel()
         Me.Panel2 = New System.Windows.Forms.Panel()
+        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
         Me.Panel4 = New System.Windows.Forms.Panel()
         Me.cbxKIUploaddelete = New System.Windows.Forms.CheckBox()
         Me.scanUSTVA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
@@ -122,6 +124,7 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel3 = New System.Windows.Forms.Panel()
         Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
         Me.pnlErstattungsdetails = New System.Windows.Forms.Panel()
+        Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
         Me.Panel1 = New System.Windows.Forms.Panel()
         Me.Button2 = New System.Windows.Forms.Button()
         Me.Button3 = New System.Windows.Forms.Button()
@@ -136,9 +139,6 @@ Partial Class frmMDM_USTVAntrag
         Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
-        Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
-        Me.cbxSicherheit = New System.Windows.Forms.CheckBox()
         Me.pnlBottom.SuspendLayout()
         CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -558,6 +558,17 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel8.Size = New System.Drawing.Size(973, 115)
         Me.Panel8.TabIndex = 19
         '
+        'cbxSicherheit
+        '
+        Me.cbxSicherheit.AutoSize = True
+        Me.cbxSicherheit.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.cbxSicherheit.ForeColor = System.Drawing.Color.White
+        Me.cbxSicherheit.Location = New System.Drawing.Point(794, 10)
+        Me.cbxSicherheit.Name = "cbxSicherheit"
+        Me.cbxSicherheit.Size = New System.Drawing.Size(15, 14)
+        Me.cbxSicherheit.TabIndex = 53
+        Me.cbxSicherheit.UseVisualStyleBackColor = False
+        '
         'Label16
         '
         Me.Label16.AutoSize = True
@@ -1504,6 +1515,14 @@ Partial Class frmMDM_USTVAntrag
         Me.Panel2.Size = New System.Drawing.Size(1438, 263)
         Me.Panel2.TabIndex = 1
         '
+        'UstCntlUSTV_AntragPosition1
+        '
+        Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
+        Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
+        Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
+        Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
+        '
         'Panel4
         '
         Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1649,6 +1668,14 @@ Partial Class frmMDM_USTVAntrag
         Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261)
         Me.pnlErstattungsdetails.TabIndex = 0
         '
+        'UstCntlUSTV_AntragErstattungen1
+        '
+        Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
+        Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
+        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
+        Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
+        '
         'Panel1
         '
         Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1754,33 +1781,6 @@ Partial Class frmMDM_USTVAntrag
         Me.ToolStripMenuItem3.Size = New System.Drawing.Size(138, 22)
         Me.ToolStripMenuItem3.Text = "deaktivieren"
         '
-        'UstCntlUSTV_AntragPosition1
-        '
-        Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
-        Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
-        Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
-        Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
-        '
-        'UstCntlUSTV_AntragErstattungen1
-        '
-        Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
-        Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
-        Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
-        Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
-        '
-        'cbxSicherheit
-        '
-        Me.cbxSicherheit.AutoSize = True
-        Me.cbxSicherheit.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.cbxSicherheit.ForeColor = System.Drawing.Color.White
-        Me.cbxSicherheit.Location = New System.Drawing.Point(794, 10)
-        Me.cbxSicherheit.Name = "cbxSicherheit"
-        Me.cbxSicherheit.Size = New System.Drawing.Size(15, 14)
-        Me.cbxSicherheit.TabIndex = 53
-        Me.cbxSicherheit.UseVisualStyleBackColor = False
-        '
         'frmMDM_USTVAntrag
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -2675,6 +2675,28 @@ Public Class frmMDM_USTVAntrag
 
     End Sub
 
+    Private Sub reorderUSTVAErstattzungen(UStVAn_ID As Integer)
+
+        If UStVAn_ID < 0 Then Exit Sub
+
+
+        Dim dtUSTVA As DataTable = SQL.loadDgvBySql("SELECT UStVEr_ID FROM tblUStVErstattung WHERE UStVAn_ID=" & UStVAn_ID & " ORDER BY tblUStVErstattung.UStVEr_ID ", "FMZOLL")
+        Dim counter As Integer = 0
+
+        For Each row In dtUSTVA.Rows
+
+            counter = counter + 1
+
+            Dim USTV_POS = New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(UStVAn_ID, row("UStVEr_ID"))
+            If USTV_POS.UStVEr_ID <> counter Then
+                SQL.doSQL("UPDATE tblUStVErstattung SET UStVEr_ID = " & counter & " WHERE UStVAn_ID=" & UStVAn_ID & " AND UStVEr_ID=" & USTV_POS.UStVEr_ID, "FMZOLL")
+            End If
+
+        Next
+
+    End Sub
+
+
     Private Sub dgvUSTVPositionen_PreviewKeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles dgvUSTVPositionen.PreviewKeyDown
 
         If dgvUSTVPositionen.SelectedRows.Count <> 1 Then Exit Sub
@@ -2818,10 +2840,36 @@ Public Class frmMDM_USTVAntrag
         If dgvErstattungspositionen.Rows.Count = 0 Then Exit Sub
         If vbYes = MsgBox("Möchten Sie den Erstattungseintrag wirklich löschen?", vbYesNoCancel) Then
 
-            If UstCntlUSTV_AntragErstattungen1.UStV_ERS.DELETE(UstCntlUSTV_AntragErstattungen1.UstV_AN.UStVAn_ID, UstCntlUSTV_AntragErstattungen1.UStV_ERS) Then
+            If UstCntlUSTV_AntragErstattungen1.UStV_ERS.UStVEr_daId IsNot Nothing Then
+
+                If UstCntlUSTV_AntragErstattungen1.UStV_ERS.UStVEr_daId < 0 Then
+
+                    Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "MDM", "MDM", "MDM_DATEN", "USTVERS_" & UstCntlUSTV_AntragErstattungen1.UStV_ERS.UStVAn_ID & "_" & UstCntlUSTV_AntragErstattungen1.UStV_ERS.UStVEr_ID, "SONSTIGE", USTV_ANTRAG.UStVAn_KuNr)
+
+                    If DS IsNot Nothing Then
+                        DS.DELETE_COMPLETE()
+                    End If
+
+                ElseIf UstCntlUSTV_AntragErstattungen1.UStV_ERS.UStVEr_daId > 0 Then
+
+                    Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(UstCntlUSTV_AntragErstattungen1.UStV_ERS.UStVEr_daId)
+
+                    If DS IsNot Nothing AndAlso DS.da_id IsNot Nothing Then
+                        DS.DELETE_COMPLETE()
+                    End If
+
+                End If
+
+            End If
+
+            If UstCntlUSTV_AntragErstattungen1.UStV_ERS.DELETE(UstCntlUSTV_AntragErstattungen1.UstV_AN.UStVAn_ID, UstCntlUSTV_AntragErstattungen1.UStV_ERS.UStVEr_ID) Then
+                reorderUSTVAErstattzungen(UstCntlUSTV_AntragErstattungen1.UstV_AN.UStVAn_ID)
                 initdgvErstattungen()
             End If
+
+
         End If
+
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
@@ -2991,6 +3039,7 @@ Public Class frmMDM_USTVAntrag
                     End If
 
                 Else
+
                     initErstsattungsPosition(.RowCount)
 
                 End If