cWorker-Verwahrung
This commit is contained in:
@@ -400,7 +400,6 @@ Anzeige:
|
|||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
'----------------------------------------------------------------
|
'----------------------------------------------------------------
|
||||||
|
|
||||||
FORM.addDGVEinarbeitung("VW: Bekanntgabe Massnahme", regNR)
|
FORM.addDGVEinarbeitung("VW: Bekanntgabe Massnahme", regNR)
|
||||||
@@ -417,86 +416,91 @@ Anzeige:
|
|||||||
|
|
||||||
Dim BezugsNr = readVW_SumAVerwahrungsinfo
|
Dim BezugsNr = readVW_SumAVerwahrungsinfo
|
||||||
|
|
||||||
If VeralteteWeitereRegistriernummer = "" Then Return False
|
Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||||
|
|
||||||
Dim filiale As String = ""
|
Try
|
||||||
Dim abfertigungsnummer = ""
|
|
||||||
Dim Standort As String = ""
|
|
||||||
Dim Vorpapiernummer = ""
|
|
||||||
Dim laufnummer As Integer = -1
|
|
||||||
|
|
||||||
Dim parts() As String = VorpapiernummerInput.Split("-"c)
|
If Not originalTestSetting Then
|
||||||
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||||
If parts.Length = 2 Then
|
|
||||||
Vorpapiernummer = parts(0)
|
|
||||||
Integer.TryParse(parts(1), laufnummer)
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
If BezugsNr.Length > 4 AndAlso IsNumeric(BezugsNr.Substring(0, 4)) Then
|
|
||||||
If BezugsNr.Length > 4 Then
|
|
||||||
filiale = BezugsNr.Substring(0, 4)
|
|
||||||
End If
|
|
||||||
If BezugsNr.Length >= 14 Then
|
|
||||||
abfertigungsnummer = BezugsNr.Substring(5, 8)
|
|
||||||
End If
|
|
||||||
End If
|
|
||||||
|
|
||||||
If Vorpapiernummer <> "" Then
|
|
||||||
If Vorpapiernummer.Length > 18 Then
|
|
||||||
Vorpapiernummer = Vorpapiernummer.ToString.Substring(0, 18)
|
|
||||||
End If
|
|
||||||
Dim dtSendungsInfo As New DataTable
|
|
||||||
dtSendungsInfo = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr] FROM [dbo].[tblSendungen] where tblSnd_ATB_T1 = '" & Vorpapiernummer & "'", "AVISO")
|
|
||||||
|
|
||||||
If dtSendungsInfo.Rows.Count > 0 Then
|
|
||||||
filiale = dtSendungsInfo.Rows(0).Item("FilialenNr")
|
|
||||||
abfertigungsnummer = dtSendungsInfo.Rows(0).Item("AbfertigungsNr")
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
Select Case filiale
|
If VeralteteWeitereRegistriernummer = "" Then Return False
|
||||||
Case "4803", "4809"
|
|
||||||
Standort = "VERAG AG"
|
Dim filiale As String = ""
|
||||||
Case "4810", "5103", "5901"
|
Dim abfertigungsnummer = ""
|
||||||
Standort = "VERAG GmbH"
|
Dim Standort As String = ""
|
||||||
Case "5501"
|
Dim Vorpapiernummer = ""
|
||||||
Standort = "IMEX"
|
Dim laufnummer As Integer = -1
|
||||||
Case Else
|
|
||||||
Return False
|
Dim parts() As String = VorpapiernummerInput.Split("-"c)
|
||||||
End Select
|
|
||||||
|
If parts.Length = 2 Then
|
||||||
|
Vorpapiernummer = parts(0)
|
||||||
|
Integer.TryParse(parts(1), laufnummer)
|
||||||
|
End If
|
||||||
|
|
||||||
|
|
||||||
Dim dy_SendungsId = VWI.Transaktion.IOReferenz
|
If BezugsNr.Length > 4 AndAlso IsNumeric(BezugsNr.Substring(0, 4)) Then
|
||||||
|
If BezugsNr.Length > 4 Then
|
||||||
|
filiale = BezugsNr.Substring(0, 4)
|
||||||
|
End If
|
||||||
|
If BezugsNr.Length >= 14 Then
|
||||||
|
abfertigungsnummer = BezugsNr.Substring(5, 8)
|
||||||
|
End If
|
||||||
|
End If
|
||||||
|
|
||||||
If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then
|
If Vorpapiernummer <> "" Then
|
||||||
|
If Vorpapiernummer.Length > 18 Then
|
||||||
|
Vorpapiernummer = Vorpapiernummer.ToString.Substring(0, 18)
|
||||||
|
End If
|
||||||
|
Dim dtSendungsInfo As New DataTable
|
||||||
|
dtSendungsInfo = SQL.loadDgvBySql("SELECT [FilialenNr],[AbfertigungsNr],[UnterNr] FROM [dbo].[tblSendungen] where tblSnd_ATB_T1 = '" & Vorpapiernummer & "'", "AVISO")
|
||||||
|
|
||||||
Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(filiale, abfertigungsnummer)
|
If dtSendungsInfo.Rows.Count > 0 Then
|
||||||
|
filiale = dtSendungsInfo.Rows(0).Item("FilialenNr")
|
||||||
|
abfertigungsnummer = dtSendungsInfo.Rows(0).Item("AbfertigungsNr")
|
||||||
|
End If
|
||||||
|
|
||||||
If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
|
|
||||||
|
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
Select Case filiale
|
||||||
|
Case "4803", "4809"
|
||||||
|
Standort = "VERAG AG"
|
||||||
|
Case "4810", "5103", "5901"
|
||||||
|
Standort = "VERAG GmbH"
|
||||||
|
Case "5501"
|
||||||
|
Standort = "IMEX"
|
||||||
|
Case Else
|
||||||
|
Return False
|
||||||
|
End Select
|
||||||
|
|
||||||
Dim existingEntries As DataTable
|
|
||||||
existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO")
|
|
||||||
If existingEntries.Rows.Count = 0 Then
|
|
||||||
existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO")
|
|
||||||
End If
|
|
||||||
|
|
||||||
If existingEntries.Rows.Count > 0 Then
|
Dim dy_SendungsId = VWI.Transaktion.IOReferenz
|
||||||
|
|
||||||
Dim zubehandelndeGS As Boolean = existingEntries.AsEnumerable().
|
If filiale <> "" AndAlso abfertigungsnummer <> "" AndAlso IsNumeric(filiale) AndAlso IsNumeric(abfertigungsnummer) Then
|
||||||
Any(Function(r_entry)
|
|
||||||
Return Not r_entry.IsNull("gs_posNr") AndAlso r_entry.Field(Of Integer)("gs_posNr") = laufnummer AndAlso Not r_entry.IsNull("gs_VeralteteWeitereRegistriernummer") AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") <> "" AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") = VeralteteWeitereRegistriernummer
|
|
||||||
End Function)
|
|
||||||
|
|
||||||
If zubehandelndeGS Then
|
Dim SND = VERAG_PROG_ALLGEMEIN.cSendungen.LOADByFilialenNrAbfertigungsNr(filiale, abfertigungsnummer)
|
||||||
Return True 'bereits behandelt ->
|
|
||||||
|
If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
|
||||||
|
|
||||||
|
Dim existingEntries As DataTable
|
||||||
|
existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where [gs_ATBNr] = '" & Vorpapiernummer & "' order by gs_datum desc", "AVISO")
|
||||||
|
If existingEntries.Rows.Count = 0 Then
|
||||||
|
existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or (gs_avisoId = " & SND.tblSnd_AvisoID & ") order by gs_datum desc", "AVISO")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim urspringsSicherheit As cSicherheiten
|
If existingEntries.Rows.Count > 0 Then
|
||||||
|
|
||||||
Try
|
Dim zubehandelndeGS As Boolean = existingEntries.AsEnumerable().
|
||||||
|
Any(Function(r_entry)
|
||||||
|
Return Not r_entry.IsNull("gs_posNr") AndAlso r_entry.Field(Of Integer)("gs_posNr") = laufnummer AndAlso Not r_entry.IsNull("gs_VeralteteWeitereRegistriernummer") AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") <> "" AndAlso r_entry.Field(Of String)("gs_VeralteteWeitereRegistriernummer") = VeralteteWeitereRegistriernummer
|
||||||
|
End Function)
|
||||||
|
|
||||||
|
If zubehandelndeGS Then
|
||||||
|
Return True 'bereits behandelt ->
|
||||||
|
End If
|
||||||
|
|
||||||
|
Dim urspringsSicherheit As cSicherheiten
|
||||||
Dim rows = existingEntries.Select("gs_freitext = 'DAKOSY DUMMY' AND gs_posNr = 0")
|
Dim rows = existingEntries.Select("gs_freitext = 'DAKOSY DUMMY' AND gs_posNr = 0")
|
||||||
|
|
||||||
If rows.Length > 0 Then
|
If rows.Length > 0 Then
|
||||||
@@ -646,24 +650,23 @@ Anzeige:
|
|||||||
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.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungseingang aus DAKOSY - " & Now().ToShortDateString, InfoText,,,,, "d.breimaier@verag.ag")
|
||||||
End If
|
End If
|
||||||
|
|
||||||
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
||||||
Return True
|
Return True
|
||||||
|
|
||||||
Catch ex As Exception
|
End If
|
||||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
||||||
Return False
|
|
||||||
|
|
||||||
Finally
|
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
||||||
End Try
|
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End If
|
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
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@@ -672,155 +675,152 @@ Anzeige:
|
|||||||
|
|
||||||
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)
|
||||||
|
|
||||||
If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
|
Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||||
|
|
||||||
If regNR <> "" AndAlso veralteteregNR <> "" Then
|
Try
|
||||||
|
|
||||||
|
If Not originalTestSetting Then
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||||
|
End If
|
||||||
|
|
||||||
|
If posErledigung IsNot Nothing AndAlso posErledigung.Rows.Count > 0 Then
|
||||||
|
|
||||||
|
If regNR <> "" AndAlso veralteteregNR <> "" Then
|
||||||
|
|
||||||
|
For Each POS As DataRow In posErledigung.Rows
|
||||||
|
|
||||||
|
Dim MRNNR As String = ""
|
||||||
|
Dim existingEntryID As Integer = 0
|
||||||
|
|
||||||
|
|
||||||
For Each POS As DataRow In posErledigung.Rows
|
If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then
|
||||||
|
|
||||||
Dim MRNNR As String = ""
|
Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos")))
|
||||||
Dim existingEntryID As Integer = 0
|
|
||||||
|
|
||||||
|
If MRNNR <> POS.Item("IDRegNrSumA") Then
|
||||||
|
MRNNR = POS.Item("IDRegNrSumA")
|
||||||
|
|
||||||
If Not IsDBNull(POS("IDRegNrSumA")) AndAlso POS("IDRegNrSumA").ToString <> "" Then
|
Dim firmaID = -1
|
||||||
|
|
||||||
Dim POSNr As Integer = If(IsDBNull(POS("IDRegNrSumAPos")), 0, CInt(POS("IDRegNrSumAPos")))
|
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 MRNNR <> POS.Item("IDRegNrSumA") Then
|
If dtGesamtsicherheit.Rows.Count > 0 Then
|
||||||
MRNNR = POS.Item("IDRegNrSumA")
|
|
||||||
|
|
||||||
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")
|
|
||||||
|
|
||||||
If dtGesamtsicherheit.Rows.Count > 0 Then
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Try
|
|
||||||
|
|
||||||
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
|
If rows.Length > 0 Then
|
||||||
Exit Sub 'bereits vorhanden
|
Exit Sub 'bereits vorhanden
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort"))
|
Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(gs_row("gs_standort"))
|
||||||
Dim saldo As Double = GesSichRef.CalcSaldo()
|
Dim saldo As Double = GesSichRef.CalcSaldo()
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
Dim Warenwert As Double = 0
|
Dim Warenwert As Double = 0
|
||||||
Dim Sicherheitsbetrag As Double = 0
|
Dim Sicherheitsbetrag As Double = 0
|
||||||
|
|
||||||
'Berechnung Warenwert und Sicherheitsbetrag aus Sendung
|
'Berechnung Warenwert und Sicherheitsbetrag aus Sendung
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
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")
|
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
|
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||||
|
|
||||||
If dtVorpapiere.Rows.Count > 0 Then
|
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 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)
|
Dim row = rowsVorp(0)
|
||||||
Warenwert = CDbl(row("tblSnd_Warenwert"))
|
Warenwert = CDbl(row("tblSnd_Warenwert"))
|
||||||
Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100))
|
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
|
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, "")
|
'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
|
||||||
|
|
||||||
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")
|
If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden!
|
||||||
End If
|
Dim dt As New DataTable
|
||||||
|
|
||||||
Dim SicherheitsPos As New cGesamtsicherheitsPositionen()
|
If Not dt.Columns.Contains("anzahlPackstuecke") Then
|
||||||
With SicherheitsPos
|
dt.Columns.Add("MRN", GetType(String))
|
||||||
.gsp_gsId = gs_row("gs_gsId")
|
dt.Columns.Add("LKW_ID", GetType(String))
|
||||||
'.gsp_gspPosId = CInt(POSNr)
|
dt.Columns.Add("anzahlPackstuecke", GetType(Integer))
|
||||||
.gsp_gspPosId = gs_row.Item("gs_posNr")
|
dt.Columns.Add("StornierungKZ", GetType(String))
|
||||||
.gsp_warenwert = Warenwert
|
dt.Columns.Add("AnzahlStückErledigt", GetType(Integer))
|
||||||
.gsp_sicherheitsbetrag = Sicherheitsbetrag
|
End If
|
||||||
.gsp_freitext = "DASKOY-IMPORT"
|
|
||||||
.gsp_filialenNr = gs_row("gs_filialenNr")
|
Dim ro As DataRow = dt.NewRow
|
||||||
.gsp_art = "CLOSE"
|
ro("MRN") = gs_row.Item("gs_MRNNr")
|
||||||
.gsp_gsNr = gs_row("gs_gsnr")
|
ro("LKW_ID") = gs_row.Item("gs_avisoId")
|
||||||
.gsp_abfertigungsNr = gs_row("gs_abfertigungsnr")
|
ro("anzahlPackstuecke") = anzahlPackstuecke
|
||||||
.gsp_datum = EZA.EinzelSumAErledigungsinformation.ObjektIdentifizierung.ZeitpunktNachrichteneingang
|
ro("AnzahlStückErledigt") = AnzahlStückErledigt
|
||||||
.gsp_erstellungsdatum = DateTime.Now
|
ro("StornierungKZ") = StornierungKz
|
||||||
.gsp_ust = gs_row("gs_ust")
|
dt.Rows.Add(ro)
|
||||||
.gsp_ATCNr = veralteteregNR
|
|
||||||
.gsp_MRNNr = regNR
|
|
||||||
.gsp_avisoId = gs_row("gs_avisoID")
|
|
||||||
.gsp_systemuser = "DAKOSY-AUTO"
|
|
||||||
End With
|
|
||||||
|
|
||||||
|
|
||||||
SicherheitsPos.SAVE()
|
Dim InfoText As String = createInfoMail(MRNNR, dt, "")
|
||||||
GesSichRef.CalcSaldo()
|
|
||||||
|
|
||||||
If sendInfoMail Then
|
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")
|
||||||
Dim InfoText2 As String = createInfoMail(gs_row.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos)
|
End If
|
||||||
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
|
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
|
||||||
|
|
||||||
|
|
||||||
'VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
SicherheitsPos.SAVE()
|
||||||
|
GesSichRef.CalcSaldo()
|
||||||
|
|
||||||
Catch ex As Exception
|
If sendInfoMail Then
|
||||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
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
|
||||||
|
|
||||||
Finally
|
End If
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
||||||
End Try
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
|
Next
|
||||||
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
Next
|
|
||||||
|
|
||||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
|
||||||
|
|
||||||
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
|
||||||
|
End Try
|
||||||
|
|
||||||
|
|
||||||
End If
|
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
Public Shared Function AddNewGesamtSichNr() As Integer
|
Public Shared Function AddNewGesamtSichNr() As Integer
|
||||||
|
|||||||
Reference in New Issue
Block a user