From 7149a63a9501ce20bd29b3670e69b644dc4e5068 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 24 Mar 2026 09:50:10 +0100 Subject: [PATCH] refactor verwahrungen --- initATLASAufschubkonten/cWorker_NCTS.vb | 8 +- initATLASAufschubkonten/cWorker_Verwahrung.vb | 127 ++++++++++-------- 2 files changed, 73 insertions(+), 62 deletions(-) diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index d155a82..cbc333a 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -4032,10 +4032,10 @@ Public Class cWorker_NCTS End If Dim ro As DataRow = posErledigung.NewRow - ro("LaufendeNummer") = SDGR.SequenceNumber - ro("IDRegNrSumA") = SDGR.RegistrationNumber - ro("IDRegNrSumAPos") = SDGR.GoodsItemNumber - ro("StueckzahlErledigte") = SDGR.NumberOfPackages + ro("LaufendeNummer") = SDGR.SequenceNumber 'Laufende Nummer der Position innerhalb des Beendigungsanteils SumA. Es handelt sich hier nicht um die Positionsnummer im Quellverfahren SumA. Diese ist ggf. im Feld "[Position SumA] Positionsnummer" eingetragen + ro("IDRegNrSumA") = SDGR.RegistrationNumber 'MRN des SumA-Vorgangs, der ganz oder teilweise erledigt werden soll. + ro("IDRegNrSumAPos") = SDGR.GoodsItemNumber 'Nummer der Position des Zugangs zum Quellverfahren Vorübergehende Verwahrung + ro("StueckzahlErledigte") = SDGR.NumberOfPackages 'Anzahl der zu erledigenden Packstücke oder bei unverpackten Waren die Anzahl der in der Anmeldung erfassten Gegenstände posErledigung.Rows.Add(ro) End If diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 2687989..a245715 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -19,9 +19,9 @@ Public Class cWorker_Verwahrung Try Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d) - Dim VorpapiernummerInput = "" - Dim RegistriernummerATLAS = "" - Dim VeralteteWeitereRegistriernummer = "" + Dim Vorpapiernummer = "" + Dim MRN_SUMA = "" + Dim MRN_SUMA_veraltet = "" Dim ankungsdatum As Object = Nothing Dim gestellungsdatum As Object = Nothing Dim posGestellung As New DataTable @@ -35,21 +35,21 @@ Public Class cWorker_Verwahrung End If If VWI.EinzelSumAVerwahrungsinfo.KopfDaten IsNot Nothing Then If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer IsNot Nothing Then - VorpapiernummerInput = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer + Vorpapiernummer = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Vorpapiernummer End If If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS IsNot Nothing Then - RegistriernummerATLAS = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS + MRN_SUMA = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.RegistriernummerATLAS 'MRN (SumA) End If If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.VeralteteWeitereRegistriernummer IsNot Nothing Then - VeralteteWeitereRegistriernummer = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.VeralteteWeitereRegistriernummer + MRN_SUMA_veraltet = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.VeralteteWeitereRegistriernummer End If If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum > "01.01.2000" Then - gestellungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum + gestellungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.GestellungDatum 'Datum der Anmeldung zur vorübergehenden Verwahrung End If If VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum > "01.01.2000" Then - ankungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum + ankungsdatum = VWI.EinzelSumAVerwahrungsinfo.KopfDaten.Ankunftsdatum '(erwartetes) Ankunftsdatum des Beförderungsmittels End If If VWI.EinzelSumAVerwahrungsinfo.Position IsNot Nothing Then @@ -59,7 +59,8 @@ Public Class cWorker_Verwahrung posGestellung.Columns.Add("PosNr", GetType(Integer)) posGestellung.Columns.Add("AnzPackst", GetType(Integer)) posGestellung.Columns.Add("PackstArt", GetType(String)) - posGestellung.Columns.Add("Rohmasse", GetType(Double)) + posGestellung.Columns.Add("Anmeldefrist", GetType(String)) 'Datum des Verwahrungsfristendes + posGestellung.Columns.Add("Rohmasse", GetType(Double)) 'Gewicht in kg posGestellung.Columns.Add("Warenbeschreibung", GetType(String)) posGestellung.Columns.Add("VerwahrerFirma", GetType(String)) posGestellung.Columns.Add("VerwahrerOrt", GetType(String)) @@ -69,6 +70,7 @@ Public Class cWorker_Verwahrung Dim ro As DataRow = posGestellung.NewRow ro("PosNr") = POS.Positionsnummer + ro("Anmeldefrist") = POS.Anmeldefrist ro("AnzPackst") = POS.PackstueckAnzahl ro("PackstArt") = POS.PackstueckArt ro("Rohmasse") = POS.Rohmasse @@ -92,7 +94,7 @@ Public Class cWorker_Verwahrung End If - If readVW_SumAVerwahrungsinfo <> "" And VorpapiernummerInput <> "" Then 'BEZUGSNR vorhanden + If readVW_SumAVerwahrungsinfo <> "" And Vorpapiernummer <> "" Then 'BEZUGSNR vorhanden Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit) STATUS.dySt_BezugsNr = readVW_SumAVerwahrungsinfo STATUS.dySt_artMitteilung = "VW_INFO" @@ -108,7 +110,7 @@ Public Class cWorker_Verwahrung 'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!! - If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, RegistriernummerATLAS, posGestellung, VorpapiernummerInput, VeralteteWeitereRegistriernummer, sendMail, testlauf) + If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, MRN_SUMA, posGestellung, Vorpapiernummer, MRN_SUMA_veraltet, sendMail, testlauf) Anzeige: @@ -131,9 +133,11 @@ Anzeige: Dim VWI As DAKOSY_Worker.SumAErledigungsinformation_005.SumAErledigungsinformationSISUMTyp = DAKOSY_Worker.SumAErledigungsinformation_005.SumAErledigungsinformationSISUMTyp.LoadFromFile(d) - Dim RegistriernummerATLAS = "" - Dim VeralteteWeitereRegistriernummer = "" - Dim VeralteteWeitereNachweise = "" + Dim MRN_SUMA = "" + Dim MRN_SUMA_veraltet = "" + + Dim MRN_Eledigungsvorgang = "" + Dim MRN_Eledigungsvorgang_veraltet = "" Dim ArtErledigung = "" Dim zp As Object = Nothing @@ -152,18 +156,25 @@ Anzeige: End If If VWI.EinzelSumAErledigungsinformation.KopfDaten IsNot Nothing Then - If VWI.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then - RegistriernummerATLAS = VWI.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise - End If - - If VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise IsNot Nothing Then - VeralteteWeitereNachweise = VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise + If VWI.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLAS IsNot Nothing Then + MRN_SUMA = VWI.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLAS 'MRN (SumA) End If If VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereRegistriernummer IsNot Nothing Then - VeralteteWeitereRegistriernummer = VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereRegistriernummer + MRN_SUMA_veraltet = VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereRegistriernummer 'Veraltete weitere Registriernummer -> läuft aus!! End If + + If VWI.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then + MRN_Eledigungsvorgang = VWI.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise 'MRN des Erledigungsvorgangs + End If + + If VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise IsNot Nothing Then + MRN_Eledigungsvorgang_veraltet = VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise + End If + + + If VWI.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung IsNot Nothing Then ArtErledigung = VWI.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung End If @@ -182,8 +193,8 @@ Anzeige: Dim ro As DataRow = posErledigung.NewRow ro("LaufendeNummer") = POS.Positionsnummer - ro("IDRegNrSumA") = RegistriernummerATLAS - ro("IDRegNrSumAPos") = POS.Positionsnummer + ro("IDRegNrSumA") = MRN_SUMA 'MRN (SumA) Zugehörige ATLAS - Registrierung. + ro("IDRegNrSumAPos") = POS.Positionsnummer 'Positionsnummer in der Summarischen Anmeldung ro("StornierungKz") = POS.StornierungKz ro("StueckzahlErledigte") = POS.StueckzahlErledigte posErledigung.Rows.Add(ro) @@ -200,7 +211,7 @@ Anzeige: End If - If readVW_SumAErledigungsinformation <> "" And RegistriernummerATLAS <> "" Then 'BEZUGSNR vorhanden + If readVW_SumAErledigungsinformation <> "" And MRN_SUMA <> "" Then 'BEZUGSNR vorhanden Dim STATUS As DAKOSY_Worker.cDakosy_Statusmeldungen = FORM.getStatusCheckTransID(VWI.Transaktion.IOReferenz, VWI.Transaktion.IODatumZeit) STATUS.dySt_BezugsNr = readVW_SumAErledigungsinformation STATUS.dySt_artMitteilung = "SUMA_Erledigung" @@ -216,7 +227,7 @@ Anzeige: 'rechte SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!! If saveAbschreibung Then - saveVerwahrungsAusgang(RegistriernummerATLAS, posErledigung, VeralteteWeitereRegistriernummer, zp, sendMail, testlauf,, "SumAErledigung") + saveVerwahrungsAusgang(MRN_Eledigungsvorgang, posErledigung, MRN_Eledigungsvorgang_veraltet, zp, sendMail, testlauf,, "SumAErledigung") Anzeige: @@ -243,15 +254,15 @@ Anzeige: Try Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d) + Dim ART = "" Dim RegistriernummerATLAS = "" Dim posErledigung As New DataTable - ' Dim details = "" - Dim zp As Object = Nothing - Dim regNR = "" + Dim division = "" - Dim veralteteregNR = "" + Dim MRN_Eledigungsvorgang = "" + Dim MRN_Eledigungsvorgang_veraltet = "" readEZA_SumAErledigungsinformationVorpapier_005 = "" If EZA IsNot Nothing Then @@ -276,10 +287,10 @@ Anzeige: ART = EZA.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung End If If EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise IsNot Nothing Then - regNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise + MRN_Eledigungsvorgang = EZA.EinzelSumAErledigungsinformation.KopfDaten.RegNrATLASWeitereNachweise 'MRN des Erledigungsvorgangs End If If EZA.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise IsNot Nothing Then - veralteteregNR = EZA.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise + MRN_Eledigungsvorgang_veraltet = EZA.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise 'Registriernummer des Erledigungsvorgangs -> läuft aus!! End If End If @@ -297,11 +308,11 @@ Anzeige: End If Dim ro As DataRow = posErledigung.NewRow - ro("LaufendeNummer") = POS.LaufendeNummer - ro("IDRegNrSumA") = POS.IDRegNrSumA - ro("IDRegNrSumAPos") = POS.IDRegNrSumAPos - ro("StornierungKz") = POS.StornierungKz - ro("StueckzahlErledigte") = POS.StueckzahlErledigte + ro("LaufendeNummer") = POS.LaufendeNummer 'Laufende Nummer der Erledigungsinformation + ro("IDRegNrSumA") = POS.IDRegNrSumA 'MRN (SumA) Zugehörige ATLAS - Registrierung. + ro("IDRegNrSumAPos") = POS.IDRegNrSumAPos 'Positionsnummer in der Summarischen Anmeldung + ro("StornierungKz") = POS.StornierungKz 'Kennzeichnung, dass eine Erledigung durch den Benutzer storniert wurde. + ro("StueckzahlErledigte") = POS.StueckzahlErledigte 'Anzahl der erledigten Packstücke posErledigung.Rows.Add(ro) End If @@ -331,7 +342,7 @@ Anzeige: 'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten If saveAbschreibung AndAlso ART <> "NCTS" Then 'bei NCTS wird der Ausgang über ein UeberlassungsmeldungNCTSDE aufgelöst!!!!!! - saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, zp, sendMail, testlauf,, "SumAErledigung-VP") + saveVerwahrungsAusgang(MRN_Eledigungsvorgang, posErledigung, MRN_Eledigungsvorgang_veraltet, zp, sendMail, testlauf,, "SumAErledigung-VP") Anzeige: @@ -527,7 +538,7 @@ Anzeige: - Shared Function saveVerwahrungseingang(readVW_SumAVerwahrungsinfo As String, VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp, RegistriernummerATLAS As String, posGestellung As DataTable, VorpapiernummerInput As String, VeralteteWeitereRegistriernummer As String, sendInfoMail As Boolean, testlauf As Boolean) + Shared Function saveVerwahrungseingang(readVW_SumAVerwahrungsinfo As String, VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp, MRN_SUMA As String, posGestellung As DataTable, VorpapiernummerInput As String, MRN_SUMA_veraltet As String, sendInfoMail As Boolean, testlauf As Boolean) Dim BezugsNr = readVW_SumAVerwahrungsinfo @@ -535,7 +546,7 @@ Anzeige: Try - If VeralteteWeitereRegistriernummer = "" Then Return False 'warum nochmals, kann das weg??? + 'If MRN_SUMA_veraltet = "" Then Return False 'warum nochmals, kann das weg??? Dim filiale As String = "" Dim abfertigungsnummer = "" @@ -611,7 +622,7 @@ Anzeige: Dim alt = If(r.IsNull("gs_VeralteteWeitereRegistriernummer"), "", r.Field(Of String)("gs_VeralteteWeitereRegistriernummer")) Dim mrn = If(r.IsNull("gs_MRNNr"), "", r.Field(Of String)("gs_MRNNr")) - Return alt = VeralteteWeitereRegistriernummer OrElse mrn = RegistriernummerATLAS + Return alt = MRN_SUMA_veraltet OrElse mrn = MRN_SUMA End Function) If zubehandelndeGSPOS Then @@ -644,8 +655,8 @@ Anzeige: 'Verwahrung ANSCHREIBUNG newSicherheit.gs_systemuser = DAKOSY_STATUS.USER - newSicherheit.gs_VeralteteWeitereRegistriernummer = VeralteteWeitereRegistriernummer 'wichtig für Zuweisung DAKOSY - newSicherheit.gs_MRNNr = RegistriernummerATLAS 'wichtig für Zuweisung DAKOSY + newSicherheit.gs_VeralteteWeitereRegistriernummer = MRN_SUMA_veraltet 'wichtig für Zuweisung DAKOSY + newSicherheit.gs_MRNNr = MRN_SUMA 'wichtig für Zuweisung DAKOSY newSicherheit.gs_gsNr = DUMMYSicherheit.gs_gsNr newSicherheit.gs_ATBNr = DUMMYSicherheit.gs_ATBNr @@ -727,7 +738,7 @@ Anzeige: Dim OPEN_DUMMY_SUBPOS As New cSicherheiten() With OPEN_DUMMY_SUBPOS .gs_systemuser = DAKOSY_STATUS.USER - .gs_VeralteteWeitereRegistriernummer = VeralteteWeitereRegistriernummer 'wichtig für Zuweisung DAKOSY + .gs_VeralteteWeitereRegistriernummer = MRN_SUMA_veraltet 'wichtig für Zuweisung DAKOSY .gs_gsNr = DUMMYSicherheit.gs_gsNr .gs_ATBNr = DUMMYSicherheit.gs_ATBNr If IsNumeric(posGestellung.Rows(i - 1).Item("AnzPackst")) Then @@ -738,7 +749,7 @@ Anzeige: .gs_gewicht = posGestellung.Rows(i - 1).Item("Rohmasse") End If .gs_freitext = posGestellung.Rows(i - 1).Item("PackstArt") - .gs_MRNNr = RegistriernummerATLAS + .gs_MRNNr = MRN_SUMA .gs_standort = DUMMYSicherheit.gs_standort .gs_datum = DUMMYSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang .gs_erstellungsdatum = Now() @@ -790,7 +801,7 @@ Anzeige: newSicherheit.rearangePosNrByDakosyLaufNr(newSicherheit.gs_gsNr, newSicherheit.gs_ATBNr) If sendInfoMail Then - Dim InfoText As String = createInfoMail(RegistriernummerATLAS, posGestellung, "VW-EINGANG", newSicherheit) + Dim InfoText As String = createInfoMail(MRN_SUMA, posGestellung, "VW-EINGANG", newSicherheit) VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag") End If @@ -817,7 +828,7 @@ Anzeige: End Function - Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, nachrichtenDatum As Date, sendInfoMail As Boolean, testlauf As Boolean, Optional isNCTS As Boolean = False, Optional zusätzlicheInfo As String = "") + Shared Sub saveVerwahrungsAusgang(MRN_Erledigung As String, posErledigung As DataTable, MRN_Erledigung_veraltet As String, nachrichtenDatum As Date, sendInfoMail As Boolean, testlauf As Boolean, Optional isNCTS As Boolean = False, Optional zusätzlicheInfo As String = "") Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM @@ -830,20 +841,20 @@ Anzeige: For Each POS As DataRow In posErledigung.Rows Dim isCompletelyFinished As Boolean = True - Dim MRNNR As String = "" + Dim MRN_SUMA As String = "" Dim existingEntryID As Integer = 0 - If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then + If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then 'MRN (SumA) Zugehörige ATLAS - Registrierung. - Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos"))) + Dim SUMA_POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos"))) 'Positionsnummer in der Summarischen Anmeldung - If MRNNR <> POS.Item("IDRegNrSumA") Then - MRNNR = POS.Item("IDRegNrSumA") + If MRN_SUMA <> POS.Item("IDRegNrSumA") Then + 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] = '" & MRNNR & "' and [gs_dakoyimport] = 1 order by gsp_gspPosId" + 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! Else - sqlString = "Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsId = gs.gs_gsId where ([gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' or [gs_MRNNr] = '" & regNR & "') and [gs_dakoyimport] = 1 order by gsp_gspPosId, gsp_MRNNr" + sqlString = "Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsId = gs.gs_gsId where ([gs_VeralteteWeitereRegistriernummer] = '" & MRN_SUMA & "' or [gs_MRNNr] = '" & MRN_Erledigung & "') and [gs_dakoyimport] = 1 order by gsp_gspPosId, gsp_MRNNr" End If Dim dtGesamtsicherheit = SQL.loadDgvBySql(sqlString, "AVISO") @@ -852,7 +863,7 @@ Anzeige: Dim gs_row As Array = Nothing - gs_row = dtGesamtsicherheit.Select("gs_posSubNr = " & POSNr & " AND isnull(gsp_MRNNr,'') = ''") + gs_row = dtGesamtsicherheit.Select("gs_posSubNr = " & SUMA_POSNr & " AND isnull(gsp_MRNNr,'') = ''") If gs_row.Length = 0 Then Continue For @@ -928,7 +939,7 @@ Anzeige: dt.Rows.Add(ro) - Dim InfoText As String = createInfoMail(MRNNR, dt, "") + Dim InfoText As String = createInfoMail(MRN_SUMA, dt, "") VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Erledigungsmeldung-DAKOSY fehlende Positionen - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag") End If @@ -954,11 +965,11 @@ Anzeige: .gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0) If isCompletelyFinished Then If Not isNCTS Then - .gsp_ATCNr = IIf(veralteteregNR = "", MRNNR, veralteteregNR) - .gsp_MRNNr = IIf(regNR = "", MRNNR, regNR) + .gsp_ATCNr = IIf(MRN_Erledigung_veraltet = "", MRN_SUMA, MRN_Erledigung_veraltet) + .gsp_MRNNr = IIf(MRN_Erledigung = "", MRN_SUMA, MRN_Erledigung) Else .gsp_ATCNr = "" - .gsp_MRNNr = IIf(regNR = "", MRNNR.Trim(), regNR.Trim()) + .gsp_MRNNr = IIf(MRN_Erledigung = "", MRN_SUMA.Trim(), MRN_Erledigung.Trim()) End If End If .gsp_avisoId = gsrightRow("gs_avisoID")