refactor verwahrungen
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -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")
|
||||
|
||||
Reference in New Issue
Block a user