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

IDS fix, Rundung Bankspesen, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-03-28 09:10:44 +01:00
parent a8207eeb09
commit 4c9b75cc94
4 changed files with 41 additions and 37 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.3.7.7")>
<Assembly: AssemblyFileVersion("1.3.7.7")>
<Assembly: AssemblyVersion("1.3.7.9")>
<Assembly: AssemblyFileVersion("1.3.7.9")>

9
SDL/kunden/usrCntlCBAM.vb
View File

@@ -1,9 +1,4 @@

Imports javax.xml.bind.annotation
Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
Public Class usrCntlCBAM
Public Class usrCntlCBAM
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public kdnr = -1
@@ -1173,7 +1168,7 @@ Public Class usrCntlCBAM
End If
Me.Cursor = Cursors.Default
End If
End If

4
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -709,9 +709,9 @@ Public Class usrcntlFakturierung
If sumCurrenRow > 0 Then
preis = Math.Round(sumCurrenRow * rowBS("Bankspesen %") + 0.5, 2)
preis = CInt(Math.Round(sumCurrenRow * rowBS("Bankspesen %") + 0.5, MidpointRounding.AwayFromZero))
Else
preis = Math.Round(0 - sumCurrenRow * rowBS("Bankspesen %") + 0.5, 2)
preis = CInt(Math.Round(0 - sumCurrenRow * rowBS("Bankspesen %") + 0.5, MidpointRounding.AwayFromZero))
End If
Else