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

fix

Browse Source
This commit is contained in:
d.breimaier
2024-05-29 09:03:48 +02:00
parent 8758830079
commit 181e0f88bd
3 changed files with 22 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
SDL/Fakturierung/usrCntlFaktAbrechnung.vb
View File

@@ -4088,7 +4088,7 @@ Nächste_Textzeile_lesen:
If cboSteuerschlüssel._value IsNot Nothing AndAlso IsNumeric(cboSteuerschlüssel._value) Then
Dim check As Integer = cAllgemein.checkSteuerschluessel(cboFiliale._value, RECHNUNG.RechnungsLandKz, RECHNUNG.RechnungsUstIdKz, RECHNUNG.RechnungsUstIdNr, RECHNUNG.RechnungsUstIdGeprüft)
Dim check As Integer = cAllgemein.checkSteuerschluessel(cboFirma._value, RECHNUNG.RechnungsLandKz, RECHNUNG.RechnungsUstIdKz, RECHNUNG.RechnungsUstIdNr, RECHNUNG.RechnungsUstIdGeprüft)
If check >= 0 Then
If IsNumeric(cboSteuerschlüssel._value) AndAlso CInt(txtSteuersatz._value) <> check Then
If Not vbYes = MsgBox("Falscher Steuertyp!" & vbNewLine & " Steuerschlüssel mit " & IIf(check = 2, "20 %", check & " %") & " sollte hinterlegt werden." & vbNewLine & "Trotzdem speichern?", vbYesNo) Then

30
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -675,24 +675,24 @@ Public Class usrcntlKundeBearbeitenFull
ADRESSE.UTAExportCSV = cbxSonst_CsvUTA.Checked
KUNDE.Steuerschlüssel = cboAbf_Steuerschluessel._value
'Andere Lösung überlegen!!!!!
'If cboAbf_Steuerschluessel._value IsNot Nothing AndAlso IsNumeric(cboAbf_Steuerschluessel._value) Then
' Dim check As Integer
' check = cAllgemein.checkSteuerschluessel(cboFiliale._value, ADRESSE.LandKz, ADRESSE.UstIdNr, ADRESSE.UstIdNr, ADRESSE.UstIdGeprüft)
' If check >= 0 Then
' If CInt(cboAbf_Steuerschluessel._value) <> check Then
' If vbYes = MsgBox("Falscher Steuertyp!" & vbNewLine & " Steuerschlüssel mit " & IIf(check = 2, "20 %", check & " %") & " sollte hinterlegt werden." & vbNewLine & "Trotzdem speichern?", vbYesNo) Then
' KUNDE.Steuerschlüssel = cboAbf_Steuerschluessel._value
' Else
' KUNDE.Steuerschlüssel = Nothing
' End If
' End If
' End If
If cboAbf_Steuerschluessel._value IsNot Nothing AndAlso IsNumeric(cboAbf_Steuerschluessel._value) Then
Dim check As Integer
check = cAllgemein.checkSteuerschluessel(cboFiliale._value, ADRESSE.LandKz, ADRESSE.UstIdNr, ADRESSE.UstIdNr, ADRESSE.UstIdGeprüft)
If check >= 0 Then
If CInt(cboAbf_Steuerschluessel._value) <> check Then
If vbYes = MsgBox("Falscher Steuertyp!" & vbNewLine & " Steuerschlüssel mit " & IIf(check = 2, "20 %", check & " %") & " sollte hinterlegt werden." & vbNewLine & "Trotzdem speichern?", vbYesNo) Then
KUNDE.Steuerschlüssel = cboAbf_Steuerschluessel._value
Else
KUNDE.Steuerschlüssel = Nothing
End If
End If
End If
End If
'End If
UsrCntlKundeFiskaldaten1.loadinClass(FISKAL, KUNDE_ERW)