Sendungen, Dakosy VW
This commit is contained in:
@@ -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_sicherheitsbetrag = 0
|
||||
newSicherheit.gs_warenwert = urspringsSicherheit.gs_warenwert
|
||||
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>"
|
||||
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
|
||||
|
||||
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>"
|
||||
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
|
||||
|
||||
Next
|
||||
TextHTMLtable &= "</table>"
|
||||
|
||||
TextHTMLtable &= "</table>"
|
||||
|
||||
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
|
||||
TextHTMLtable &= vbNewLine & vbNewLine & vbNewLine & "*Automatic generated e-mail*"
|
||||
Return TextHTMLtable
|
||||
|
||||
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user