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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-05-31 22:25:35 +02:00
parent 4a358d43fd
commit 083e666fbc
214 changed files with 14292 additions and 4117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVorauskasse.vb
View File

@@ -283,16 +283,27 @@
End Function
Private Sub txtUid_TextChanged(sender As Object, e As EventArgs) Handles txtUid.TextChanged
If sender.text.trim <> "" Then
txtMwstProzent._value = "0"
txtMwstProzent.Visible = False
txtMWST.Visible = False
Label14.Visible = False
Dim bool_steuerberechnung = True
If sender.text.trim = "" Then
bool_steuerberechnung = True
Else
bool_steuerberechnung = False
If sender.text.ToString.StartsWith("AT") Then
bool_steuerberechnung = True
End If
End If
If bool_steuerberechnung Then
txtMwstProzent.Visible = True
txtMWST.Visible = True
Label14.Visible = True
txtMwstProzent._value = "0,2"
Else
txtMwstProzent._value = "0"
txtMwstProzent.Visible = False
txtMWST.Visible = False
Label14.Visible = False
End If
txtMwstProzent.Visible = (sender.text.trim = "")
txtMWST.Visible = (sender.text.trim = "")
@@ -308,12 +319,14 @@
End Sub
Private Sub MyComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboFirma.SelectedIndexChanged
Select Case cboFirma._value
Case "CS"
txtEustProzent.changeItem("0,20")
Case "AG"
txtEustProzent.changeItem("0,19")
End Select
If txtEustProzent._value <> "0" Then ' Wenn =, soll das bleiben
Select Case cboFirma._value
Case "CS"
txtEustProzent.changeItem("0,20")
Case "AG"
txtEustProzent.changeItem("0,19")
End Select
End If
End Sub
Private Sub pnlBottom_Paint(sender As Object, e As PaintEventArgs) Handles pnlBottom.Paint