feature_steuerschlüsselcheck im Kunden und Rechnung

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -543,9 +543,9 @@ Public Class usrCntlFaktAbrechnung
             FirmaTmp = "VERAGIMEX"
         End If
 
-        'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-        '    FirmaTmp = "AMBAR"
-        'End If
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+            FirmaTmp = "AMBAR"
+        End If
 
         Select Case FirmaTmp
             Case "VERAG"
@@ -832,7 +832,10 @@ Public Class usrCntlFaktAbrechnung
                 Label7.Text = If(AD.UstIdGeprüft IsNot Nothing, "geprüft am: " & AD.UstIdGeprüft, "-")
                 '   RECHNUNG.RechnungsUstIdGeprüft = If(AD.UstIdGeprüft IsNot Nothing, "geprüft am: " & CDate(AD.UstIdGeprüft).ToShortDateString, Nothing)
                 RECHNUNG.RechnungsUstIdGeprüft = AD.UstIdGeprüft
+
             End If
+
+
             If kdFirmaRechnungAn.KdNr_value > 0 And kdFirmaRechnungAn.KdData_KUNDE IsNot Nothing Then
                 Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = kdFirmaRechnungAn.KdData_KUNDE
                 Dim KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = kdFirmaRechnungAn.KdData_KUNDE_ERW
@@ -885,6 +888,7 @@ Public Class usrCntlFaktAbrechnung
         getValues()
         'initDGVRechnungenPositionen()
         przRefreshDGV_Positionen()
+
     End Sub
 
     Private Sub cboRechnungAn_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboRechnungAn.SelectedIndexChanged
@@ -925,6 +929,7 @@ Public Class usrCntlFaktAbrechnung
                 txtRechnungAnOrt.Text = txtAbsenderOrt.Text
                 If kdFirmaAbsender.KdData_KUNDE_ERW IsNot Nothing Then txtRechnungAnZusatz.Text = If(kdFirmaAbsender.KdData_KUNDE_ERW.kde_AdressZusatz, "") Else txtRechnungAnZusatz.Text = ""
                 If kdFirmaAbsender.KdData_KUNDE IsNot Nothing Then
+
                     If RECHNUNG IsNot Nothing AndAlso RECHNUNG.ForceSteuerschlüssel IsNot Nothing Then
                         cboSteuerschlüssel.changeItem(RECHNUNG.ForceSteuerschlüssel)
                     Else
@@ -2825,6 +2830,9 @@ Public Class usrCntlFaktAbrechnung
 
 
     Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+
+        If Not checkUIDNR() Then Exit Sub
+
         saveMe()
     End Sub
 
@@ -3324,6 +3332,7 @@ Nächste_Textzeile_lesen:
     End Sub
     ' RECHNUNG.DruckDatumZeit
     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
+        If Not checkUIDNR() Then Exit Sub
         If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
         If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
             If RECHNUNG.Status <> 0 OrElse saveMe() Then
@@ -3367,6 +3376,7 @@ Nächste_Textzeile_lesen:
     End Sub
 
     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click, Button16.Click
+        If Not checkUIDNR() Then Exit Sub
         If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
         If RECHNUNG.Status <> 0 OrElse saveMe() Then
             ' Anhänge sichern, falls geändert
@@ -4069,4 +4079,22 @@ Nächste_Textzeile_lesen:
 
     End Sub
 
+
+    Private Function checkUIDNR() As Boolean
+
+        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)
+            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
+                        Return False
+                    End If
+                End If
+            End If
+        End If
+
+        Return True
+
+    End Function
 End Class