Verwahrung fix

initATLASAufschubkonten/cWorker_Verwahrung.vb

@@ -138,6 +138,7 @@ Anzeige:
 
             Dim MRN_Eledigungsvorgang = ""
             Dim MRN_Eledigungsvorgang_veraltet = ""
+            Dim MRN_Sonstige_Nr = ""
             Dim ArtErledigung = ""
 
             Dim zp As Object = Nothing
@@ -173,6 +174,10 @@ Anzeige:
                             MRN_Eledigungsvorgang_veraltet = VWI.EinzelSumAErledigungsinformation.KopfDaten.VeralteteWeitereNachweise
                         End If
 
+                        If VWI.EinzelSumAErledigungsinformation.KopfDaten.SonstigeNummer IsNot Nothing Then
+                            MRN_Sonstige_Nr = VWI.EinzelSumAErledigungsinformation.KopfDaten.SonstigeNummer
+                        End If
+
 
 
                         If VWI.EinzelSumAErledigungsinformation.KopfDaten.ArtErledigung IsNot Nothing Then
@@ -180,6 +185,11 @@ Anzeige:
                         End If
 
 
+                        If MRN_Eledigungsvorgang = "" AndAlso MRN_Sonstige_Nr <> "" Then
+                            MRN_Eledigungsvorgang = MRN_Sonstige_Nr
+                        End If
+
+
                         If VWI.EinzelSumAErledigungsinformation.Position IsNot Nothing Then
                             For Each POS In VWI.EinzelSumAErledigungsinformation.Position
                                 If POS.Positionsnummer IsNot Nothing AndAlso posErledigung IsNot Nothing Then
@@ -227,7 +237,7 @@ Anzeige:
                 'rechte SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
 
                 If saveAbschreibung Then
-                    saveVerwahrungsAusgang(MRN_Eledigungsvorgang, posErledigung, MRN_Eledigungsvorgang_veraltet, zp, sendMail, testlauf,, "SumAErledigung")
+                    saveVerwahrungsAusgang(MRN_Eledigungsvorgang, posErledigung, MRN_Eledigungsvorgang_veraltet, zp, sendMail, testlauf,, "SumAErledigung", MRN_Sonstige_Nr)
 
 Anzeige:
 
@@ -256,7 +266,6 @@ Anzeige:
             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 zp As Object = Nothing
 
@@ -828,7 +837,7 @@ Anzeige:
 
     End Function
 
-    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 = "")
+    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 = "", Optional sonstigeMRNNr As String = "")
 
         Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
 
@@ -857,7 +866,7 @@ Anzeige:
 
                                 Dim StringSub As String = ""
                                 If MRN_Erledigung <> "" Then
-                                    StringSub = "or [gs_VeralteteWeitereRegistriernummer] = '" & MRN_Erledigung & "'"
+                                    StringSub = " or [gs_VeralteteWeitereRegistriernummer] = '" & MRN_Erledigung & "'"
                                 Else
 
                                 End If
@@ -990,7 +999,7 @@ Anzeige:
 
 
                                     If sendInfoMail Then
-                                        Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS)
+                                        Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS, sonstigeMRNNr)
                                         VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY " & zusätzlicheInfo & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
                                     End If
 
@@ -1032,7 +1041,7 @@ Anzeige:
         Return 0
     End Function
 
-    Public Shared Function createInfoMail(regNR As String, dt As DataTable, typ As String, Optional GS As cSicherheiten = Nothing, Optional GSPOS As cGesamtsicherheitsPositionen = Nothing, Optional isNCTS As Boolean = False) As String
+    Public Shared Function createInfoMail(regNR As String, dt As DataTable, typ As String, Optional GS As cSicherheiten = Nothing, Optional GSPOS As cGesamtsicherheitsPositionen = Nothing, Optional isNCTS As Boolean = False, Optional sonstigeMRNNR As String = "") As String
 
         Dim TextHTMLtable As String
 
@@ -1089,19 +1098,20 @@ Anzeige:
                 TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine
 
                 TextHTMLtable &= "<table border=1>"
-                TextHTMLtable &= "<tr><td>PosNr</td><td>MRN</td><td>ATC</td><td>AVISOID</td></tr>"
+                TextHTMLtable &= "<tr><td>PosNr</td><td>MRN</td><td>ATC</td>" & IIf(sonstigeMRNNR <> "", "<td>sonstige MRN</td>", "") & "<td>AVISOID</td></tr>"
 
                 If GSPOS IsNot Nothing Then
                     TextHTMLtable &= "<tr>"
                     TextHTMLtable &= "<td><b>" & GSPOS.gsp_gspPosId & "</b></td>"
                     TextHTMLtable &= "<td><b>" & GSPOS.gsp_MRNNr & "</b></td>"
                     TextHTMLtable &= "<td><b>" & GSPOS.gsp_ATCNr & "</b></td>"
+                    If sonstigeMRNNR <> "" Then TextHTMLtable &= "<td><b>" & sonstigeMRNNR & "</b></td>"
                     TextHTMLtable &= "<td><b>" & GSPOS.gsp_avisoId & "</b></td>"
-                    TextHTMLtable &= "</tr>"
+                        TextHTMLtable &= "</tr>"
-                End If
+                    End If
 
 
-                TextHTMLtable &= "</table>"
+                    TextHTMLtable &= "</table>"
 
                 TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
                 Return TextHTMLtable