From 58bbee3f4f54bc5a5b078c172cb3fdbd2a1aedfc Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Mon, 20 Jul 2026 09:35:07 +0200
Subject: [PATCH] admin, rehcnungsausgang, etc.

---
 SDL/My Project/AssemblyInfo.vb                    |  4 ++--
 VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb | 14 +++++++++-----
 2 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb
index a5c0c19c..f0c355a4 100644
--- a/SDL/My Project/AssemblyInfo.vb	
+++ b/SDL/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.5.5.8")>
-<Assembly: AssemblyFileVersion("1.5.5.8")>
+<Assembly: AssemblyVersion("1.5.5.9")>
+<Assembly: AssemblyFileVersion("1.5.5.9")>
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
index 82e4b4e6..074a8753 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
@@ -580,13 +580,17 @@ Public Class cRechnungsausgang
                 Case "AR" : If (Me.SteuerfreierGesamtbetrag + Me.SteuerpflichtigerGesamtbetrag) < 0 Then errMsg = "ERROR: Vorzeichenfehler!" : Return False
                 Case "AG" : If (Me.SteuerfreierGesamtbetrag + Me.SteuerpflichtigerGesamtbetrag) < 0 Then errMsg = "ERROR: Vorzeichenfehler!" : Return False
             End Select
+
+        Else
+
+            Select Case Me.BelegartenKz
+                Case "AR" : If (Me.SteuerfreierGesamtbetrag + Me.SteuerpflichtigerGesamtbetrag) < 0 Then errMsg = "ERROR: Vorzeichenfehler!" : Return False
+                Case "AG" : If (Me.SteuerfreierGesamtbetrag + Me.SteuerpflichtigerGesamtbetrag) > 0 Then errMsg = "ERROR: Vorzeichenfehler!" : Return False
+            End Select
+
+
         End If
 
-
-
-
-        'checkFirmen
-
         Return True
             End Function