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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.7.7")> <Assembly: AssemblyVersion("1.3.7.9")>
<Assembly: AssemblyFileVersion("1.3.7.7")> <Assembly: AssemblyFileVersion("1.3.7.9")>

7
SDL/kunden/usrCntlCBAM.vb
View File

@@ -1,9 +1,4 @@
 Public Class usrCntlCBAM
Imports javax.xml.bind.annotation
Imports VERAG_PROG_ALLGEMEIN.agsCustomsExchange
Public Class usrCntlCBAM
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Public kdnr = -1 Public kdnr = -1

4
SDL/seriendruck/usrCntlFakturierung.vb
View File

@@ -709,9 +709,9 @@ Public Class usrcntlFakturierung
If sumCurrenRow > 0 Then 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 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 End If
Else Else

13
VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
View File

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