cDatenbank, StartOptions, etc.
This commit is contained in:
@@ -10,6 +10,7 @@ Public Class cWorker_Verwahrung
|
||||
Public Const SEND As String = "DAKOSY-WAITING"
|
||||
Public Const IMPORTED As String = "DAKOSY-IMPORTED"
|
||||
Public Const USER As String = "DAKOSY-AUTO"
|
||||
Public Const NOTCOMPLETED As String = "DAKOSY-NOT-COMPLETED"
|
||||
End Class
|
||||
|
||||
|
||||
@@ -709,7 +710,7 @@ Anzeige:
|
||||
|
||||
End Function
|
||||
|
||||
Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, nachrichtenDatum As Date, sendInfoMail As Boolean, testlauf As Boolean, Optional isNCTS As Boolean = False, Optional sicherheitsbetragInput As Double = 0)
|
||||
Shared Sub saveVerwahrungsAusgang(regNR As String, posErledigung As DataTable, veralteteregNR As String, nachrichtenDatum As Date, sendInfoMail As Boolean, testlauf As Boolean, Optional isNCTS As Boolean = False)
|
||||
|
||||
Dim originalTestSetting As Boolean = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
|
||||
|
||||
@@ -721,6 +722,7 @@ Anzeige:
|
||||
|
||||
For Each POS As DataRow In posErledigung.Rows
|
||||
|
||||
Dim isCompletelyFinished As Boolean = True
|
||||
Dim MRNNR As String = ""
|
||||
Dim existingEntryID As Integer = 0
|
||||
|
||||
@@ -743,20 +745,7 @@ Anzeige:
|
||||
|
||||
Dim gs_row As Array = Nothing
|
||||
|
||||
'Dim gs_row As DataRow = dtGesamtsicherheit.Rows(0)
|
||||
|
||||
'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
|
||||
'End If
|
||||
|
||||
If isNCTS Then
|
||||
'gs_row = dtGesamtsicherheit.Select("gs_posSubNr = " & POSNr & "")
|
||||
gs_row = dtGesamtsicherheit.Select("gs_posSubNr = " & POSNr & " AND isnull(gsp_MRNNr,'') = ''")
|
||||
Else
|
||||
gs_row = dtGesamtsicherheit.Select("gs_posSubNr = " & POSNr & " AND isnull(gsp_MRNNr,'') = ''")
|
||||
End If
|
||||
gs_row = dtGesamtsicherheit.Select("gs_posSubNr = " & POSNr & " AND isnull(gsp_MRNNr,'') = ''")
|
||||
|
||||
If gs_row.Length = 0 Then
|
||||
Continue For
|
||||
@@ -814,7 +803,7 @@ Anzeige:
|
||||
|
||||
If anzahlPackstuecke > 0 AndAlso anzahlPackstuecke <> AnzahlStückErledigt Then 'Hinweismeldung, wenn nicht alle erledigt wurden!
|
||||
Dim dt As New DataTable
|
||||
|
||||
isCompletelyFinished = False
|
||||
If Not dt.Columns.Contains("anzahlPackstuecke") Then
|
||||
dt.Columns.Add("MRN", GetType(String))
|
||||
dt.Columns.Add("LKW_ID", GetType(String))
|
||||
@@ -837,44 +826,51 @@ Anzeige:
|
||||
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 = gsrightRow("gs_gsId")
|
||||
'.gsp_gspPosId = CInt(POSNr)
|
||||
With SicherheitsPos
|
||||
.gsp_gsId = gsrightRow("gs_gsId")
|
||||
.gsp_gspPosId = gsrightRow.Item("gs_posNr")
|
||||
.gsp_warenwert = Warenwert
|
||||
.gsp_sicherheitsbetrag = Sicherheitsbetrag
|
||||
.gsp_freitext = DAKOSY_STATUS.IMPORTED
|
||||
.gsp_warenwert = IIf(isCompletelyFinished, Warenwert, 0)
|
||||
.gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0)
|
||||
.gsp_freitext = IIf(isCompletelyFinished, DAKOSY_STATUS.IMPORTED, DAKOSY_STATUS.NOTCOMPLETED)
|
||||
.gsp_filialenNr = gsrightRow("gs_filialenNr")
|
||||
.gsp_art = "CLOSE"
|
||||
.gsp_gsNr = gsrightRow("gs_gsnr")
|
||||
.gsp_abfertigungsNr = gsrightRow("gs_abfertigungsnr")
|
||||
.gsp_datum = nachrichtenDatum
|
||||
.gsp_erstellungsdatum = DateTime.Now
|
||||
.gsp_ust = gsrightRow("gs_ust")
|
||||
.gsp_gsNr = gsrightRow("gs_gsnr")
|
||||
.gsp_abfertigungsNr = gsrightRow("gs_abfertigungsnr")
|
||||
.gsp_datum = nachrichtenDatum
|
||||
.gsp_erstellungsdatum = DateTime.Now
|
||||
.gsp_ust = gsrightRow("gs_ust")
|
||||
|
||||
If Not isNCTS Then
|
||||
.gsp_ATCNr = IIf(veralteteregNR = "", MRNNR, veralteteregNR)
|
||||
.gsp_MRNNr = IIf(regNR = "", MRNNR, regNR)
|
||||
Else
|
||||
.gsp_ATCNr = ""
|
||||
.gsp_MRNNr = IIf(regNR = "", MRNNR.Trim(), regNR.Trim())
|
||||
If isCompletelyFinished Then
|
||||
If Not isNCTS Then
|
||||
.gsp_ATCNr = IIf(veralteteregNR = "", MRNNR, veralteteregNR)
|
||||
.gsp_MRNNr = IIf(regNR = "", MRNNR, regNR)
|
||||
Else
|
||||
.gsp_ATCNr = ""
|
||||
.gsp_MRNNr = IIf(regNR = "", MRNNR.Trim(), regNR.Trim())
|
||||
End If
|
||||
End If
|
||||
|
||||
.gsp_avisoId = gsrightRow("gs_avisoID")
|
||||
.gsp_systemuser = "DAKOSY-AUTO"
|
||||
.gsp_EH_Anzahl = AnzahlStückErledigt
|
||||
.gsp_systemuser = "DAKOSY-AUTO"
|
||||
.gsp_EH_Anzahl = AnzahlStückErledigt
|
||||
|
||||
End With
|
||||
End With
|
||||
|
||||
|
||||
SicherheitsPos.SAVE()
|
||||
GesSichRef.CalcSaldo()
|
||||
SicherheitsPos.SAVE()
|
||||
GesSichRef.CalcSaldo()
|
||||
|
||||
|
||||
If sendInfoMail Then
|
||||
Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY " & IIf(isNCTS, "T1 ", "") & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
|
||||
End If
|
||||
Dim InfoText2 As String = createInfoMail(gsrightRow.Item("gs_MRNNr"), Nothing, "VW-AUSGANG",, SicherheitsPos, isNCTS)
|
||||
VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("verwahrung@verag.ag", IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "TEST-", "") & "Verwahrungsausgang aus DAKOSY " & IIf(isNCTS, "T1 ", "") & " - " & Now().ToShortDateString, InfoText2,,,,, "d.breimaier@verag.ag")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user