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

admin, rehcnungsausgang, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-07-20 09:35:07 +02:00
parent cf75d131cc
commit 58bbee3f4f
2 changed files with 11 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -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")>

14
VERAG_PROG_ALLGEMEIN/Classes/cRechnungsausgang.vb
View File

@@ -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