MDM -> EU, NICHT EU Kunde MWST Kopie

SDL/kunden/usrCntlOfferte.vb

@@ -823,8 +823,9 @@ Public Class usrCntlOfferte
 
                 Dim dtKostenkalk As DataTable = (New SQL).loadDgvBySql(sqlKostenkalk, "FMZOLL")
 
-                If dtKostenkalk.Rows.Count <= 0 Then
+                If dtKostenkalk.Rows.Count < 1 Then
                     MsgBox("keine Daten!")
+                    Me.Cursor = Cursors.Default
                     Exit Sub
                 End If
 
@@ -849,7 +850,6 @@ Public Class usrCntlOfferte
                         End While
                         My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.Kostenkalkulation, False)
                     Catch ex As System.Exception
-                        '  VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                         VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
                         Me.Cursor = Cursors.Default
 
@@ -876,6 +876,7 @@ Public Class usrCntlOfferte
                         If IsDate(row("Datum")) Then
 
                             Select Case CDate(row("Datum")).Year
+                                'Berechnungssätze laut Johanna Luxbauer
                                 Case 2018 : Blatt.Range("D" & currentRow).Value = 0.3387
                                 Case 2019 : Blatt.Range("D" & currentRow).Value = 0.3048
                                 Case 2020 : Blatt.Range("D" & currentRow).Value = 0.2792
@@ -895,16 +896,9 @@ Public Class usrCntlOfferte
                     Next
 
 
-
                     Datei.Save
+                    .Visible = True
 
-                    If False Then
-                        Blatt.PrintOutEx()
-                    Else
-                        'Process.Start(Path)
-                        .Visible = True
-
-                    End If
                 End With
 
             End If