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

Verzollungspreise, Ueberstunden, etc.

Browse Source
This commit is contained in:
d.breimaier
2024-04-10 17:26:05 +02:00
parent 317fff10fc
commit 19f310efd2
4 changed files with 13 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Fakturierung/cFakturierung.vb
View File

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

1
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

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

5
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

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

19
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
View File

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