SDL

SDL/kunden/usrCntlOfferte.vb

@@ -92,7 +92,7 @@ Public Class usrCntlOfferte
                     '  OFFERTEBind.bindingdataTable.PrimaryKey = {OFFERTEBind.bindingdataTable.Columns("KundenNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsNr"), OFFERTEBind.bindingdataTable.Columns("LeistungsBez")}
 
                 Catch ex As Exception
-                    MsgBox(ex.Message)
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                 End Try
 
 
@@ -135,7 +135,7 @@ Public Class usrCntlOfferte
                 '  .Columns("Geändert am").Visible = False
                 .Columns("PreisänderungProzent").Width = 70
                 .Columns("PreisänderungProzent").HeaderText = "Preisänd. %"
-                .Columns("PreisänderungProzent").DefaultCellStyle.Format = "P"
+                .Columns("PreisänderungProzent").DefaultCellStyle.Format = "p"
                 .Columns("PreisänderungProzent").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopRight
                 .Columns("PreisAlt").Width = 60
                 .Columns("PreisAlt").DefaultCellStyle.Format = "N2"
@@ -334,22 +334,17 @@ Public Class usrCntlOfferte
     Private Sub dgvOfferteDetails_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvOfferteDetails.CellValueChanged
         Try
 
-
             If loaded = True Then
                 dgvOfferteDetails.Rows(e.RowIndex).Cells("Sachbearbeiter").Value = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
                 dgvOfferteDetails.Rows(e.RowIndex).Cells("Geändert am").Value = Now
                 DGVHasChaged = True
                 'saveCurrentOffert()
-                If isNew = True Then
-
+                If isNew Then
                     currentOffert.Art = "Neuanlage"
-                    currentOffert.SAVE()
-
                 Else
-
                     currentOffert.Art = "Geändert"
-                    currentOffert.SAVE()
                 End If
+                currentOffert.SAVE()
 
             End If
         Catch ex As Exception
@@ -782,4 +777,35 @@ Public Class usrCntlOfferte
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
         cProgramFunctions.genExcelFromDGV_NEW(dgvOfferteDetails, True)
     End Sub
+
+    Private Sub dgvOfferteDetails_KeyUp(sender As Object, e As KeyEventArgs) Handles dgvOfferteDetails.KeyUp
+        If e.KeyCode = Keys.Tab Then
+
+
+            dgvOfferteDetails.CurrentCell = GetNextCell(dgvOfferteDetails.CurrentCell)
+            e.Handled = True
+
+        End If
+
+
+    End Sub
+
+    Private Function GetNextCell(currentCell As DataGridViewCell) As DataGridViewCell
+
+        Dim i As Integer = 0
+        Dim nextCell As DataGridViewCell = currentCell
+        Dim j = 0
+        Do
+            Dim nextCellIndex As Integer = (nextCell.ColumnIndex + j) Mod dgvOfferteDetails.ColumnCount
+            Dim nextRowIndex As Integer = If(nextCellIndex = 0, (nextCell.RowIndex + 1) Mod dgvOfferteDetails.RowCount, nextCell.RowIndex)
+            lblOffert.Text = "C" & nextCellIndex & "R" & nextRowIndex & "RO" & IIf(nextCell.[ReadOnly], "1", "0") & "H" & IIf(Not nextCell.Visible, "1", "0")
+            nextCell = dgvOfferteDetails.Rows(nextRowIndex).Cells(nextCellIndex)
+            i += 1
+            j = 1
+        Loop While (i < (dgvOfferteDetails.RowCount * dgvOfferteDetails.ColumnCount) AndAlso (nextCell.[ReadOnly]) Or i < (dgvOfferteDetails.RowCount * dgvOfferteDetails.ColumnCount) AndAlso Not nextCell.Visible)
+
+        Return nextCell
+
+    End Function
+
 End Class