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

7
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

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

13
VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
View File

@@ -247,6 +247,8 @@ Public Class cIDS
Else
Try
Dim ymd = isleernothing((currentRow(0)))
Dim cc = isleernothing((currentRow(1)))
@@ -254,9 +256,10 @@ Public Class cIDS
Dim occ = isleernothing((currentRow(5)))
Dim oc = isleernothing((currentRow(6)))
Dim ptc = isleernothing((currentRow(7)))
Dim ids As New cIDS(ymd, pyn, cc, occ, oc, ptc)
Dim avprive = isleernothing((currentRow(12)))
With ids
.YearMonthDay = isleernothing((currentRow(0)))
.CustomerCode = isleernothing((currentRow(1)))
@@ -270,13 +273,19 @@ Public Class cIDS
.AmminclVAT = isleernothing((currentRow(9)))
.TotalNetAmount = isleernothing((currentRow(10)))
.VATAmount = isleernothing((currentRow(11)))
.avpriceexclVAT = isleernothing((currentRow(12)))
.avpriceexclVAT = IIf(avprive <> "" AndAlso IsNumeric(avprive), avprive, 0)
.VRNumber = isleernothing((currentRow(13)))
.OBONumber = isleernothing((currentRow(14)))
Console.WriteLine("IDS: " & isleernothing((currentRow(1))) & " - " & lngRecordCount & " - " & isleernothing((currentRow(10))))
.SAVE()
End With
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
End If
Loop