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,6 +642,9 @@ 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
@@ -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,12 +838,12 @@ 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 &= "<table border=1>"
@@ -849,7 +866,54 @@ Anzeige:
                 TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
                 Return TextHTMLtable
 
-        Else
+
+            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
 
@@ -873,9 +937,7 @@ Anzeige:
                 TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
                 Return TextHTMLtable
 
-        End If
+        End Select
-
-
 
 
     End Function