Sendungen, Dakosy VW

initATLASAufschubkonten/cWorker_Verwahrung.vb

@@ -1,4 +1,5 @@
-Imports VERAG_PROG_ALLGEMEIN
+Imports com.sun.xml.internal.rngom
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class cWorker_Verwahrung
     Public Shared Dateiname = ""
@@ -543,8 +544,8 @@ Anzeige:
                             newSicherheit.gs_filialenNr = filiale
                             newSicherheit.gs_LKWKZ = urspringsSicherheit.gs_LKWKZ
                             newSicherheit.gs_zollsatz = urspringsSicherheit.gs_zollsatz
-                            newSicherheit.gs_warenwert = 0
+                            newSicherheit.gs_warenwert = urspringsSicherheit.gs_warenwert
-                            newSicherheit.gs_sicherheitsbetrag = 0
+                            newSicherheit.gs_sicherheitsbetrag = urspringsSicherheit.gs_sicherheitsbetrag
                             newSicherheit.gs_art = "OPEN"
                             newSicherheit.gs_saldo = saldo
                             newSicherheit.gs_avisoId = urspringsSicherheit.gs_avisoId
@@ -554,6 +555,13 @@ Anzeige:
 
                             Dim gsid = newSicherheit.SAVEOBJECT()
 
+                            If gsid > 0 Then
+                                'wechsel des Sicherheitsbetrags und Warenwert von Dummypos auf erste Produkivposition
+                                urspringsSicherheit.gs_warenwert = 0
+                                urspringsSicherheit.gs_sicherheitsbetrag = 0
+                                urspringsSicherheit.SAVE()
+                            End If
+
                             Dim CLOSED_DUMMY = New cGesamtsicherheitsPositionen(gsid, laufnummer)
 
 
@@ -634,9 +642,12 @@ Anzeige:
                             End If
 
 
+                            Dim InfoText As String = createInfoMail(RegistriernummerATLAS, 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")
 
-                                'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+
-                                Return True
+                            'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+                            Return True
 
                         Catch ex As Exception
                             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -779,6 +790,11 @@ Anzeige:
 
                                     SicherheitsPos.SAVE()
                                     GesSichRef.CalcSaldo()
+
+
+                                    Dim InfoText2 As String = createInfoMail(gs_row.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos)
+                                    VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
+
                                     'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
 
                                 Catch ex As Exception
@@ -801,6 +817,7 @@ Anzeige:
 
             End If
 
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
 
         End If
     End Sub
@@ -821,61 +838,106 @@ Anzeige:
     End Function
 
 
-    Public Shared Function createInfoMail(regNR As String, dt As DataTable, typ As String) 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) As String
 
         Dim TextHTMLtable As String
 
-        If typ = "MASSNAHME-DAKOSY" Then
+        Select Case typ
+            Case "MASSNAHME-DAKOSY"
+                TextHTMLtable &= "Bei " & regNR & " wurden eine Zoll-Maßnahme ausgelöst." & vbNewLine & vbNewLine & vbNewLine
 
-            TextHTMLtable &= "Bei " & regNR & " wurden eine Zoll-Maßnahme ausgelöst." & vbNewLine & vbNewLine & vbNewLine
+                TextHTMLtable &= "<table border=1>"
+                TextHTMLtable &= "<tr><td>Code</td><td>Text</td><td>NichtzustellbarKz</td><td>PackstueckAnzahl</td><td>PackstueckArt</td></tr>"
 
-            TextHTMLtable &= "<table border=1>"
+                For Each r As DataRow In dt.Rows
-            TextHTMLtable &= "<tr><td>Code</td><td>Text</td><td>NichtzustellbarKz</td><td>PackstueckAnzahl</td><td>PackstueckArt</td></tr>"
 
-            For Each r As DataRow In dt.Rows
+                    TextHTMLtable &= "<tr>"
+                    TextHTMLtable &= "<td><b>" & r.Item("MassnahmeCode") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("MassnahmeText") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("MassnahmeNichtzustellbarKz") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("PackstueckAnzahl") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("PackstueckArt") & "</b></td>"
+                    TextHTMLtable &= "</tr>"
 
-                TextHTMLtable &= "<tr>"
+                Next
-                TextHTMLtable &= "<td><b>" & r.Item("MassnahmeCode") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("MassnahmeText") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("MassnahmeNichtzustellbarKz") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("PackstueckAnzahl") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("PackstueckArt") & "</b></td>"
-                TextHTMLtable &= "</tr>"
 
-            Next
+                TextHTMLtable &= "</table>"
 
-            TextHTMLtable &= "</table>"
+                TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
-
+                Return TextHTMLtable
-            TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
-            Return TextHTMLtable
-
-        Else
-
-            TextHTMLtable &= "Bei " & regNR & " wurde nicht vollständig aufgelöst." & vbNewLine & vbNewLine & vbNewLine
-
-            TextHTMLtable &= "<table border=1>"
-            TextHTMLtable &= "<tr><td>MRN-Nr</td><td>LKW-ID</td><td>Packstücke gesamt</td><td>Packstücke erledigt</td><td>Stornierung KZ</td></tr>"
-
-            For Each r As DataRow In dt.Rows
-
-                TextHTMLtable &= "<tr>"
-                TextHTMLtable &= "<td><b>" & r.Item("MRN") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("LKW_ID") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("anzahlPackstuecke") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("AnzahlStückErledigt") & "</b></td>"
-                TextHTMLtable &= "<td><b>" & r.Item("StornierungKZ") & "</b></td>"
-                TextHTMLtable &= "</tr>"
-
-            Next
-
-            TextHTMLtable &= "</table>"
-
-            TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
-            Return TextHTMLtable
-
-        End If
 
 
+            Case "VW-EINGANG"
+
+                TextHTMLtable &= typ & " wurde aus DAKOSY generiert!" & vbNewLine & vbNewLine & vbNewLine
+
+                TextHTMLtable &= "<table border=1>"
+                TextHTMLtable &= "<tr><td>PosNr</td><td>Vorpapier</td><td>MRN</td><td>LKWID</td></tr>"
+
+                If GS IsNot Nothing Then
+                    TextHTMLtable &= "<tr>"
+                    TextHTMLtable &= "<td><b>" & GS.gs_posNr & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & GS.gs_ATBNr & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & GS.gs_MRNNr & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & GS.gs_avisoId & "</b></td>"
+                    TextHTMLtable &= "</tr>"
+
+                End If
+
+
+                TextHTMLtable &= "</table>"
+
+                TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
+                Return TextHTMLtable
+
+            Case "VW-AUSGANG"
+
+                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>"
+
+                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>"
+                    TextHTMLtable &= "<td><b>" & GSPOS.gsp_avisoId & "</b></td>"
+                    TextHTMLtable &= "</tr>"
+                End If
+
+
+                TextHTMLtable &= "</table>"
+
+                TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
+                Return TextHTMLtable
+
+
+            Case Else
+
+                TextHTMLtable &= "Bei " & regNR & " wurde nicht vollständig aufgelöst." & vbNewLine & vbNewLine & vbNewLine
+
+                TextHTMLtable &= "<table border=1>"
+                TextHTMLtable &= "<tr><td>MRN-Nr</td><td>LKW-ID</td><td>Packstücke gesamt</td><td>Packstücke erledigt</td><td>Stornierung KZ</td></tr>"
+
+                For Each r As DataRow In dt.Rows
+
+                    TextHTMLtable &= "<tr>"
+                    TextHTMLtable &= "<td><b>" & r.Item("MRN") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("LKW_ID") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("anzahlPackstuecke") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("AnzahlStückErledigt") & "</b></td>"
+                    TextHTMLtable &= "<td><b>" & r.Item("StornierungKZ") & "</b></td>"
+                    TextHTMLtable &= "</tr>"
+
+                Next
+
+                TextHTMLtable &= "</table>"
+
+                TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
+                Return TextHTMLtable
+
+        End Select
 
 
     End Function