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)

16
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -177,16 +177,12 @@ Public Class cAllgemein
Return "AT"
End Function
Public Shared Function checkSteuerschluessel(filialId As Integer, landKz As String, Optional UIDLandKz As String = "", Optional UstIdNr As String = "", Optional UstIdGeprüft As Object = Nothing) As Integer
Public Shared Function checkSteuerschluessel(firmenID As Integer, landKz As String, Optional UIDLandKz As String = "", Optional UstIdNr As String = "", Optional UstIdGeprüft As Object = Nothing) As Integer
Return -1
'Return -1
'muss noch überarbeitet werden!
If filialId < 1 Then Return -1
Dim firma = getFirmaFromFiliale2(filialId)
'get id from Firma out of filiale?noch nicht implementiert!!
Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(firma)
If firmenID < 1 Then Return -1
Dim FIRMA_TMP = New VERAG_PROG_ALLGEMEIN.cFirmen(firmenID)
Dim isEU As Boolean = False
@@ -196,7 +192,7 @@ Public Class cAllgemein
Select Case FIRMA_TMP.Firma_LandKz
Case "A"
Case "A", "AT"
If landKz = "A" Then Return 2
@@ -210,7 +206,7 @@ Public Class cAllgemein
End If
End If
Case "D"
Case "D", "DE"
If landKz = "D" Then Return 19