Verzollungspreise, Ueberstunden, etc.

SDL/Fakturierung/cFakturierung.vb

@@ -2432,7 +2432,7 @@ Public Class cFakturierung
                                 End Select
                             End If
                         Catch ex As Exception
-                            MsgBox("Tradeshift Export fehlgeschalgen! " & ex.Message & ex.StackTrace)
+                            MsgBox("Tradeshift Export fehlgeschlagen! " & ex.Message & ex.StackTrace)
                         End Try
                     End If
                 End If

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb

@@ -126,6 +126,7 @@
                     cboFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-UNISPED Ltd", "LTD"))
                 End If
                 MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Handling", "HANDLING"))
+                MyComboBox1.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Privatperson", "PRIVAT"))
                 MyComboBox1.changeItem("VZ")
         End Select
 

VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb

@@ -518,11 +518,6 @@ Public Class cRechnungsausgang
             End If
         End If
 
-
-
-
-
-
         Return True
     End Function
 

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb

@@ -787,7 +787,7 @@ Public Class frmUeberstundenauszahlen
         If txtAusz.Text <> "" AndAlso IsNumeric(txtAusz.Text) Then
 
             Dim summeAusz = CDbl(txtAusz.Text)
-            If summeAusz <= 0 Then
+            If summeAusz < 0 Then
                 txtAusz50vonSaldo.Text = 0
                 txtAusz50.Text = 0
                 txtAusz100.Text = 0
@@ -836,23 +836,24 @@ Public Class frmUeberstundenauszahlen
             End If
 
 
-            If summeAusz >= stundenlfdSaldo Then
+            'If summeAusz < 0 Then
+            '    txtAusz50vonSaldo.Text = "0"
+            'ElseIf summeAusz > stundenlfdSaldo Then
+            '    summeAusz = RoundOfDigits(stundenlfdSaldo - summeAusz, 2)
+            '    txtAusz50vonSaldo.Text = summeAusz
+            'Else
+            '    txtAusz50vonSaldo.Text = summeAusz
+            'End If
 
-                txtAusz50vonSaldo.Text = summeAusz
-
-            ElseIf summeAusz < 0 Then
+            If summeAusz < 0 Then
                 txtAusz50vonSaldo.Text = "0"
             Else
-                summeAusz = RoundOfDigits(summeAusz - stundenlfdSaldo, 2)
                 txtAusz50vonSaldo.Text = summeAusz
-
             End If
         End If
 
-
         If stundenlfdSaldo < 0 And cbxoverwrite.Checked Then txtAusz50vonSaldo.Text = 0 'Wenn Saldo negativ, dann nichts vom lfd Saldo vorschlagen!
 
-
             If Not refresh Then refresh = Not refresh
 
     End Sub