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

9
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
@@ -1173,7 +1168,7 @@ Public Class usrCntlCBAM
End If End If
Me.Cursor = Cursors.Default 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 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

61
VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
View File

@@ -247,36 +247,45 @@ Public Class cIDS
Else Else
Try
Dim ymd = isleernothing((currentRow(0)))
Dim cc = isleernothing((currentRow(1)))
Dim pyn = isleernothing((currentRow(2)))
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 ymd = isleernothing((currentRow(0)))
Dim cc = isleernothing((currentRow(1)))
Dim pyn = isleernothing((currentRow(2)))
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)
With ids Dim avprive = isleernothing((currentRow(12)))
.YearMonthDay = isleernothing((currentRow(0)))
.CustomerCode = isleernothing((currentRow(1))) With ids
.Paymentsummarynumber = isleernothing((currentRow(2))) .YearMonthDay = isleernothing((currentRow(0)))
.CustomerName = isleernothing((currentRow(3))) .CustomerCode = isleernothing((currentRow(1)))
.OutletCountry = isleernothing((currentRow(4))) .Paymentsummarynumber = isleernothing((currentRow(2)))
.OutletCountryCode = isleernothing((currentRow(5))) .CustomerName = isleernothing((currentRow(3)))
.OutletCode = isleernothing((currentRow(6))) .OutletCountry = isleernothing((currentRow(4)))
.ProductTypeCode = isleernothing((currentRow(7))) .OutletCountryCode = isleernothing((currentRow(5)))
.TransactionVolume = isleernothing((currentRow(8))) .OutletCode = isleernothing((currentRow(6)))
.AmminclVAT = isleernothing((currentRow(9))) .ProductTypeCode = isleernothing((currentRow(7)))
.TotalNetAmount = isleernothing((currentRow(10))) .TransactionVolume = isleernothing((currentRow(8)))
.VATAmount = isleernothing((currentRow(11))) .AmminclVAT = isleernothing((currentRow(9)))
.avpriceexclVAT = isleernothing((currentRow(12))) .TotalNetAmount = isleernothing((currentRow(10)))
.VRNumber = isleernothing((currentRow(13))) .VATAmount = isleernothing((currentRow(11)))
.OBONumber = isleernothing((currentRow(14))) .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
Console.WriteLine("IDS: " & isleernothing((currentRow(1))) & " - " & lngRecordCount & " - " & isleernothing((currentRow(10))))
.SAVE()
End With
End If End If
Loop Loop