Gestellungen, etc.
This commit is contained in:
@@ -1,5 +1,4 @@
|
||||
Imports com.sun.xml.internal.rngom
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class cWorker_Verwahrung
|
||||
Public Shared Dateiname = ""
|
||||
@@ -8,7 +7,7 @@ Public Class cWorker_Verwahrung
|
||||
|
||||
|
||||
|
||||
Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean, sendMail As Boolean) As String
|
||||
Shared Function readVW_SumAVerwahrungsinfo(FORM As frmDYNachrichtenVerarbeitung, d As String, saveVerwahrung As Boolean, sendMail As Boolean, testlauf As Boolean) As String
|
||||
Try
|
||||
|
||||
Dim VWI As DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp = DAKOSY_Worker.SumAVerwahrungsinfo_009.SumAVerwahrungsinfoSVTyp.LoadFromFile(d)
|
||||
@@ -101,7 +100,7 @@ Public Class cWorker_Verwahrung
|
||||
|
||||
'LINKE SEITE BEI GESAMTSICHERHEITEN!!!!!!!!!!!!!
|
||||
|
||||
If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, RegistriernummerATLAS, posGestellung, VorpapiernummerInput, VeralteteWeitereRegistriernummer, sendMail)
|
||||
If saveVerwahrung Then saveVerwahrungseingang(readVW_SumAVerwahrungsinfo, VWI, RegistriernummerATLAS, posGestellung, VorpapiernummerInput, VeralteteWeitereRegistriernummer, sendMail, testlauf)
|
||||
|
||||
|
||||
Anzeige:
|
||||
@@ -123,7 +122,7 @@ Anzeige:
|
||||
|
||||
|
||||
|
||||
Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean, sendMail As Boolean) As String
|
||||
Shared Function readEZA_SumAErledigungsinformationVorpapier_005(FORM As frmDYNachrichtenVerarbeitung, d As String, saveAbschreibung As Boolean, sendMail As Boolean, testlauf As Boolean) As String
|
||||
Try
|
||||
|
||||
Dim EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp = DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp.LoadFromFile(d)
|
||||
@@ -216,7 +215,7 @@ Anzeige:
|
||||
'Verwahrung ABSCHREIBUNG - rechte Seite bei Gesamtsicherheiten
|
||||
|
||||
If saveAbschreibung Then
|
||||
saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, EZA, sendMail)
|
||||
saveVerwahrungsAusgang(regNR, posErledigung, veralteteregNR, EZA, sendMail, testlauf)
|
||||
|
||||
Anzeige:
|
||||
|
||||
@@ -412,18 +411,14 @@ 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)
|
||||
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)
|
||||
|
||||
Dim BezugsNr = readVW_SumAVerwahrungsinfo
|
||||
|
||||
Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||
|
||||
Try
|
||||
|
||||
If Not originalTestSetting Then
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
End If
|
||||
|
||||
|
||||
If VeralteteWeitereRegistriernummer = "" Then Return False
|
||||
|
||||
@@ -586,9 +581,6 @@ Anzeige:
|
||||
|
||||
CLOSED_DUMMY.SAVE()
|
||||
|
||||
|
||||
'pro gestellungsposition bekommen wir eine SumAVerwahrungsinfo -> daher sind die Positionen innerhalb dieser info irrelevant (vorerst).
|
||||
|
||||
If posGestellung.Rows.Count > 1 Then
|
||||
If True Then
|
||||
For i As Integer = 2 To posGestellung.Rows.Count
|
||||
@@ -665,7 +657,7 @@ Anzeige:
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Finally
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = originalTestSetting
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||
End Try
|
||||
|
||||
|
||||
@@ -673,152 +665,152 @@ Anzeige:
|
||||
|
||||
End Function
|
||||
|
||||
Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp, sendInfoMail As Boolean)
|
||||
Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, EZA As DAKOSY_Worker.SumAErledigungsinformationVorpapier_005.SumAErledigungsinformationVorpapierSIVRPTyp, sendInfoMail As Boolean, testlauf As Boolean)
|
||||
|
||||
Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
|
||||
Try
|
||||
|
||||
If Not originalTestSetting Then
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
End If
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||
|
||||
|
||||
If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
|
||||
|
||||
If regNR <> "" AndAlso veralteteregNR <> "" Then
|
||||
'If regNR <> "" AndAlso veralteteregNR <> "" Then
|
||||
|
||||
For Each POS As DataRow In posErledigung.Rows
|
||||
For Each POS As DataRow In posErledigung.Rows
|
||||
|
||||
Dim MRNNR As String = ""
|
||||
Dim existingEntryID As Integer = 0
|
||||
Dim MRNNR 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
|
||||
|
||||
Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos")))
|
||||
Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos")))
|
||||
|
||||
If MRNNR <> POS.Item("IDRegNrSumA") Then
|
||||
MRNNR = POS.Item("IDRegNrSumA")
|
||||
If MRNNR <> POS.Item("IDRegNrSumA") Then
|
||||
MRNNR = POS.Item("IDRegNrSumA")
|
||||
|
||||
'Dim firmaID = -1
|
||||
'Dim firmaID = -1
|
||||
|
||||
Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' order by gsp_gspPosId", "AVISO")
|
||||
Dim dtGesamtsicherheit = SQL.loadDgvBySql("Select * From [tblGesamtsicherheit] as gs left join tblGesamtsicherheitsPositionen as pos on pos.gsp_gsnr = gs.gs_gsnr where [gs_VeralteteWeitereRegistriernummer] = '" & MRNNR & "' order by gsp_gspPosId", "AVISO")
|
||||
|
||||
If dtGesamtsicherheit.Rows.Count > 0 Then
|
||||
If dtGesamtsicherheit.Rows.Count > 0 Then
|
||||
|
||||
|
||||
Dim gs_row As DataRow = dtGesamtsicherheit.Rows(0)
|
||||
Dim gs_row As DataRow = dtGesamtsicherheit.Rows(0)
|
||||
|
||||
Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL")
|
||||
Dim rows = dtGesamtsicherheit.Select("gsp_gspPosId = " & gs_row("gs_posNr") & " AND gsp_MRNNr IS NOT NULL")
|
||||
|
||||
If rows.Length > 0 Then
|
||||
Exit Sub 'bereits vorhanden -> keine INFO
|
||||
If rows.Length > 0 Then
|
||||
Exit Sub 'bereits vorhanden -> keine INFO
|
||||
End If
|
||||
|
||||
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort"))
|
||||
Dim saldo As Double = GesSichRef.CalcSaldo()
|
||||
|
||||
|
||||
Dim Warenwert As Double = 0
|
||||
Dim Sicherheitsbetrag As Double = 0
|
||||
|
||||
'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten!
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim dtVorpapiere As DataTable = SQL.loadDgvBySql("SELECT tblSnd_Warenwert,tblSnd_WarenwertWaehrung,tblSnd_Vorpapier_Pos,tblSnd_Vorpapier2_Pos, tblSnd_Vorpapier3_Pos from tblSendungen where tblSnd_Vorpapier = '" & gs_row("gs_ATBNr") & "' Or tblSnd_Vorpapier2 = '" & gs_row("gs_ATBNr") & "' OR tblSnd_Vorpapier3 = '" & gs_row("gs_ATBNr") & "'", "AVISO")
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||
|
||||
|
||||
If dtVorpapiere.Rows.Count > 0 Then
|
||||
|
||||
Dim rowsVorp = dtVorpapiere.Select("tblSnd_Warenwert is not null AND (tblSnd_Vorpapier_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier2_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier3_Pos = '" & gs_row.Item("gs_posNr") & "')")
|
||||
|
||||
Dim row = rowsVorp(0)
|
||||
Warenwert = CDbl(row("tblSnd_Warenwert"))
|
||||
Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100))
|
||||
End If
|
||||
|
||||
|
||||
|
||||
'Dim dtSendungen = SQL.loadDgvBySql("SELECT")
|
||||
Dim anzahlPackstuecke As Integer = -1
|
||||
Dim AnzahlStückErledigt As Integer = If(IsDBNull(POS("StueckzahlErledigte")), 0, CInt(POS("StueckzahlErledigte")))
|
||||
Dim StornierungKz As String = If(IsDBNull(POS("StornierungKz")), "", POS("StornierungKz"))
|
||||
If gs_row.Item("gs_freitext") <> "" Then
|
||||
anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value)
|
||||
End If
|
||||
|
||||
If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden!
|
||||
Dim dt As New DataTable
|
||||
|
||||
If Not dt.Columns.Contains("anzahlPackstuecke") Then
|
||||
dt.Columns.Add("MRN", GetType(String))
|
||||
dt.Columns.Add("LKW_ID", GetType(String))
|
||||
dt.Columns.Add("anzahlPackstuecke", GetType(Integer))
|
||||
dt.Columns.Add("StornierungKZ", GetType(String))
|
||||
dt.Columns.Add("AnzahlStückErledigt", GetType(Integer))
|
||||
End If
|
||||
|
||||
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort"))
|
||||
Dim saldo As Double = GesSichRef.CalcSaldo()
|
||||
Dim ro As DataRow = dt.NewRow
|
||||
ro("MRN") = gs_row.Item("gs_MRNNr")
|
||||
ro("LKW_ID") = gs_row.Item("gs_avisoId")
|
||||
ro("anzahlPackstuecke") = anzahlPackstuecke
|
||||
ro("AnzahlStückErledigt") = AnzahlStückErledigt
|
||||
ro("StornierungKZ") = StornierungKz
|
||||
dt.Rows.Add(ro)
|
||||
|
||||
|
||||
Dim InfoText As String = createInfoMail(MRNNR, dt, "")
|
||||
|
||||
Dim Warenwert As Double = 0
|
||||
Dim Sicherheitsbetrag As Double = 0
|
||||
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
|
||||
|
||||
'Berechnung Warenwert und Sicherheitsbetrag aus Sendung -> immer aus den Produktivdaten!
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
Dim dtVorpapiere As DataTable = SQL.loadDgvBySql("SELECT tblSnd_Warenwert,tblSnd_WarenwertWaehrung,tblSnd_Vorpapier_Pos,tblSnd_Vorpapier2_Pos, tblSnd_Vorpapier3_Pos from tblSendungen where tblSnd_Vorpapier = '" & gs_row("gs_ATBNr") & "' Or tblSnd_Vorpapier2 = '" & gs_row("gs_ATBNr") & "' OR tblSnd_Vorpapier3 = '" & gs_row("gs_ATBNr") & "'", "AVISO")
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
|
||||
If dtVorpapiere.Rows.Count > 0 Then
|
||||
|
||||
Dim rowsVorp = dtVorpapiere.Select("tblSnd_Warenwert is not null AND (tblSnd_Vorpapier_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier2_Pos = '" & gs_row.Item("gs_posNr") & "' or tblSnd_Vorpapier3_Pos = '" & gs_row.Item("gs_posNr") & "')")
|
||||
|
||||
Dim row = rowsVorp(0)
|
||||
Warenwert = CDbl(row("tblSnd_Warenwert"))
|
||||
Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100))
|
||||
End If
|
||||
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
|
||||
With SicherheitsPos
|
||||
.gsp_gsId = gs_row("gs_gsId")
|
||||
'.gsp_gspPosId = CInt(POSNr)
|
||||
.gsp_gspPosId = gs_row.Item("gs_posNr")
|
||||
.gsp_warenwert = Warenwert
|
||||
.gsp_sicherheitsbetrag = Sicherheitsbetrag
|
||||
.gsp_freitext = "DASKOY-IMPORT"
|
||||
.gsp_filialenNr = gs_row("gs_filialenNr")
|
||||
.gsp_art = "CLOSE"
|
||||
.gsp_gsNr = gs_row("gs_gsnr")
|
||||
.gsp_abfertigungsNr = gs_row("gs_abfertigungsnr")
|
||||
.gsp_datum = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
|
||||
.gsp_erstellungsdatum = DateTime.Now
|
||||
.gsp_ust = gs_row("gs_ust")
|
||||
.gsp_ATCNr = IIf(veralteteregNR = "", MRNNR, veralteteregNR)
|
||||
.gsp_MRNNr = IIf(regNR = "", MRNNR, veralteteregNR)
|
||||
.gsp_avisoId = gs_row("gs_avisoID")
|
||||
.gsp_systemuser = "DAKOSY-AUTO"
|
||||
End With
|
||||
|
||||
|
||||
SicherheitsPos.SAVE()
|
||||
GesSichRef.CalcSaldo()
|
||||
|
||||
'Dim dtSendungen = SQL.loadDgvBySql("SELECT")
|
||||
Dim anzahlPackstuecke As Integer = -1
|
||||
Dim AnzahlStückErledigt As Integer = If(IsDBNull(POS("StueckzahlErledigte")), 0, CInt(POS("StueckzahlErledigte")))
|
||||
Dim StornierungKz As String = If(IsDBNull(POS("StornierungKz")), "", POS("StornierungKz"))
|
||||
If gs_row.Item("gs_freitext") <> "" Then
|
||||
anzahlPackstuecke = CInt(System.Text.RegularExpressions.Regex.Match(gs_row.Item("gs_freitext"), "\d+").Value)
|
||||
End If
|
||||
|
||||
If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden!
|
||||
Dim dt As New DataTable
|
||||
|
||||
If Not dt.Columns.Contains("anzahlPackstuecke") Then
|
||||
dt.Columns.Add("MRN", GetType(String))
|
||||
dt.Columns.Add("LKW_ID", GetType(String))
|
||||
dt.Columns.Add("anzahlPackstuecke", GetType(Integer))
|
||||
dt.Columns.Add("StornierungKZ", GetType(String))
|
||||
dt.Columns.Add("AnzahlStückErledigt", GetType(Integer))
|
||||
End If
|
||||
|
||||
Dim ro As DataRow = dt.NewRow
|
||||
ro("MRN") = gs_row.Item("gs_MRNNr")
|
||||
ro("LKW_ID") = gs_row.Item("gs_avisoId")
|
||||
ro("anzahlPackstuecke") = anzahlPackstuecke
|
||||
ro("AnzahlStückErledigt") = AnzahlStückErledigt
|
||||
ro("StornierungKZ") = StornierungKz
|
||||
dt.Rows.Add(ro)
|
||||
|
||||
|
||||
Dim InfoText As String = createInfoMail(MRNNR, 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
|
||||
|
||||
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
|
||||
With SicherheitsPos
|
||||
.gsp_gsId = gs_row("gs_gsId")
|
||||
'.gsp_gspPosId = CInt(POSNr)
|
||||
.gsp_gspPosId = gs_row.Item("gs_posNr")
|
||||
.gsp_warenwert = Warenwert
|
||||
.gsp_sicherheitsbetrag = Sicherheitsbetrag
|
||||
.gsp_freitext = "DASKOY-IMPORT"
|
||||
.gsp_filialenNr = gs_row("gs_filialenNr")
|
||||
.gsp_art = "CLOSE"
|
||||
.gsp_gsNr = gs_row("gs_gsnr")
|
||||
.gsp_abfertigungsNr = gs_row("gs_abfertigungsnr")
|
||||
.gsp_datum = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
|
||||
.gsp_erstellungsdatum = DateTime.Now
|
||||
.gsp_ust = gs_row("gs_ust")
|
||||
.gsp_ATCNr = veralteteregNR
|
||||
.gsp_MRNNr = regNR
|
||||
.gsp_avisoId = gs_row("gs_avisoID")
|
||||
.gsp_systemuser = "DAKOSY-AUTO"
|
||||
End With
|
||||
|
||||
|
||||
SicherheitsPos.SAVE()
|
||||
GesSichRef.CalcSaldo()
|
||||
|
||||
If sendInfoMail Then
|
||||
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")
|
||||
End If
|
||||
|
||||
If sendInfoMail Then
|
||||
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")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
|
||||
'End If
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
Finally
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = originalTestSetting
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = testlauf
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
@@ -916,7 +908,7 @@ Anzeige:
|
||||
|
||||
Case Else
|
||||
|
||||
TextHTMLtable &= "Bei " & regNR & " wurde nicht vollständig aufgelöst." & vbNewLine & vbNewLine & vbNewLine
|
||||
TextHTMLtable &= 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>"
|
||||
|
||||
Reference in New Issue
Block a user