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

div. Änderungen, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-08-10 09:12:56 +02:00
parent 4caa0c2073
commit b88fb31cf1
7 changed files with 124 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -871,7 +871,7 @@ Anzeige:
MRN_SUMA = POS.Item("IDRegNrSumA")
Dim sqlString = ""
If isNCTS Then
sqlString = "Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsId = gs.gs_gsId where [gs_MRNNr] = '" & MRN_SUMA & "' and [gs_dakoyimport] = 1 order by gsp_gspPosId" 'dieser wird bei NCTS explizit angegeben!
sqlString = "Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsId = gs.gs_gsId where ([gs_MRNNr] = '" & MRN_SUMA & "' or [gs_VeralteteWeitereRegistriernummer] = '" & MRN_SUMA & "') and [gs_dakoyimport] = 1 order by gsp_gspPosId" 'dieser wird bei NCTS explizit angegeben!
Else
Dim StringSub As String = ""
@@ -944,9 +944,11 @@ Anzeige:
'Prüfung einbauen, ob es in dieser Gestellung bereits zu dieser ATB-Nr dieser Sicherheitsbetrag eingefügt wurde, dann einfach 0 einfügen-
If True Then
If dtGesamtsicherheit.AsEnumerable().Any(Function(r) r.Field(Of String)("gs_MRNNr") = MRN_SUMA AndAlso r.Field(Of Double)("gsp_Warenwert") = WarenwertEUR) Then
If dtGesamtsicherheit IsNot Nothing AndAlso dtGesamtsicherheit.AsEnumerable().Any(Function(r) Not IsDBNull(r("gs_MRNNr")) AndAlso Not IsDBNull(r("gsp_Warenwert")) AndAlso Convert.ToString(r("gs_MRNNr")) = MRN_SUMA AndAlso Convert.ToDecimal(r("gsp_Warenwert")) = Convert.ToDecimal(WarenwertEUR)) Then
Sicherheitsbetrag = 0
WarenwertEUR = 0
End If
End If
@@ -1041,15 +1043,22 @@ Anzeige:
SicherheitsPos.SAVE()
GesSichRef.CalcSaldo()
Dim differenz As Double = cSicherheiten.getDifferenz(gsrightRow("gs_gsnr"))
Dim differenz As Double = cSicherheiten.getDifferenz_alleAusgetragen(gsrightRow("gs_gsnr"))
Dim InfoDifferenz As String = "Austragung Sicherheitsbertrag."
If differenz <> 0 Then
If Math.Abs(differenz) <= 0.02 AndAlso Math.Abs(differenz) > 0 Then
InfoDifferenz = "Korrekt. Rundungsdiff. "
End If
If Math.Abs(differenz) <= 0.02 AndAlso Math.Abs(differenz) > 0 Then
Dim OPEN_RUNDIF As New cSicherheiten()
With OPEN_RUNDIF
.gs_gsNr = gsrightRow("gs_gsnr")
.gs_ATBNr = "Korrekt. Rundungsdiff. " & gsrightRow("gs_gsnr")
.gs_ATBNr = InfoDifferenz & gsrightRow("gs_gsnr")
.gs_MRNNr = ""
.gs_posNr = OPEN_RUNDIF.getLatestPosNr(OPEN_RUNDIF.gs_gsNr, OPEN_RUNDIF.gs_ATBNr) + 1
.gs_posSubNr = Nothing
@@ -1083,7 +1092,7 @@ Anzeige:
.gsp_abfertigungsNr = gsrightRow("gs_abfertigungsNr")
.gsp_datum = DateTime.Now
.gsp_erstellungsdatum = DateTime.Now
.gsp_MRNNr = "Korrekt. Rundungsdiff. " & gsrightRow("gs_gsnr")
.gsp_MRNNr = InfoDifferenz & gsrightRow("gs_gsnr")
.gsp_isPosRundungsdiff = True
.gsp_avisoId = gsrightRow("gs_avisoID")
.gsp_systemuser = DAKOSY_STATUS.USER
@@ -1094,16 +1103,17 @@ Anzeige:
End If
If sendInfoMail Then
Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr, gsrightRow)
Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-VWA", GesSichRef.brgakto_firmaID)
If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2, "NoReply@verag.ag")
Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr, gsrightRow)
Dim empfaenger = cMitarbeiter.GetEMailRecipientForEmailNotification("DAKOSY-VWA", GesSichRef.brgakto_firmaID)
If empfaenger <> "" Then VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(empfaenger, GesSichRef.brgakto_gs_standort & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, " TEST-", " ") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2, "NoReply@verag.ag")
End If
End If
End If
End If
End If
Next

2
initATLASAufschubkonten/frmStartOptions.vb
View File

@@ -6,8 +6,6 @@ Imports System.Security.Cryptography.X509Certificates
Imports System.Text
Imports System.Threading
Imports System.Xml
Imports com.sun.org.apache.xpath.internal.operations
Imports Confluent.Kafka
Imports iTextSharp.text
Imports javax
Imports MDM_Worker