From 6f30c0230cb337e96a4cc8af7042188bf8985be5 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 24 Mar 2026 08:11:22 +0100 Subject: [PATCH] cWorker, dakosyEinarbeitung, etc. --- DAKOSY_Worker/cImporter_TelotecToVERAG.vb | 3 +- initATLASAufschubkonten/cWorker_Verwahrung.vb | 46 ++++++++----------- .../frmDYNachrichtenVerarbeitung.vb | 15 ++---- 3 files changed, 24 insertions(+), 40 deletions(-) diff --git a/DAKOSY_Worker/cImporter_TelotecToVERAG.vb b/DAKOSY_Worker/cImporter_TelotecToVERAG.vb index 8a4b89e..b97e1a6 100644 --- a/DAKOSY_Worker/cImporter_TelotecToVERAG.vb +++ b/DAKOSY_Worker/cImporter_TelotecToVERAG.vb @@ -1,5 +1,4 @@ -Imports System.Data.SqlClient -Imports System.Reflection +Imports System.Reflection Imports java.lang Imports TELOTEC_Worker Imports VERAG_PROG_ALLGEMEIN diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 7b7360a..714ae16 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -198,7 +198,6 @@ Anzeige: Next - End If End If @@ -427,8 +426,7 @@ Anzeige: Try - - If VeralteteWeitereRegistriernummer = "" Then Return False + If VeralteteWeitereRegistriernummer = "" Then Return False 'warum nochmals, kann das weg??? Dim filiale As String = "" Dim abfertigungsnummer = "" @@ -828,21 +826,23 @@ Anzeige: - Dim SicherheitsPos As New cGesamtsicherheitsPositionen() - With SicherheitsPos - .gsp_gsId = gsrightRow("gs_gsId") - .gsp_gspPosId = gsrightRow.Item("gs_posNr") - .gsp_warenwert = IIf(isCompletelyFinished, Warenwert, 0) - .gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0) - .gsp_freitext = IIf(isCompletelyFinished, DAKOSY_STATUS.IMPORTED, DAKOSY_STATUS.NOTCOMPLETED) + Dim SicherheitsPos As New cGesamtsicherheitsPositionen(gsrightRow("gs_gsId"), gsrightRow.Item("gs_posNr")) + With SicherheitsPos + '.gsp_gsId = gsrightRow("gs_gsId") + '.gsp_gspPosId = gsrightRow.Item("gs_posNr") .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") + .gsp_EH_Anzahl += AnzahlStückErledigt + If .gsp_EH_Anzahl = CInt(gsrightRow.Item("gs_EH_Anzahl")) Then isCompletelyFinished = True 'wenn alle Teile da sind, dann komplett! + .gsp_freitext = IIf(isCompletelyFinished, DAKOSY_STATUS.IMPORTED, DAKOSY_STATUS.NOTCOMPLETED) + .gsp_warenwert = IIf(isCompletelyFinished, Warenwert, 0) + .gsp_sicherheitsbetrag = IIf(isCompletelyFinished, Sicherheitsbetrag, 0) If isCompletelyFinished Then If Not isNCTS Then .gsp_ATCNr = IIf(veralteteregNR = "", MRNNR, veralteteregNR) @@ -852,12 +852,9 @@ Anzeige: .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 - - End With + .gsp_systemuser = "DAKOSY-AUTO" + End With SicherheitsPos.SAVE() @@ -865,12 +862,9 @@ Anzeige: 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 diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index ea4178f..d7a4e1e 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -342,7 +342,7 @@ Public Class frmDYNachrichtenVerarbeitung 'NCTS: Ueberlassungsmeldung If Not found And cGetMsgType.isNCTS_Ueberlassungsmeldung(doc, VERSION) Then Select Case VERSION - Case "009" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung009(Me, d, statusTMP, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True 'NEU + Case "009" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung009(Me, d, statusTMP, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True ' --> TEIL DER VERWAHRUNG - RECHTE SEITE If cWorker_NCTS.readNCTS004_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True ' If Not found Then If cWorker_NCTS.readNCTS_Ueberlassungsmeldung008(Me, d, statusTMP) <> "" Then found = True Case "007" : If cWorker_NCTS.readNCTS_Ueberlassungsmeldung007(Me, d, statusTMP) <> "" Then found = True ': MsgBox("005!") @@ -410,16 +410,7 @@ Public Class frmDYNachrichtenVerarbeitung If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then Select Case VERSION Case False - Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True - End Select - End If - - - 'VW: UngueltigkeitSicherheitenNCTSDE - If Not found And cGetMsgType.isNCTS_SumAVerwahrungsinfo(doc, VERSION) Then - Select Case VERSION - Case False - Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True + Case Else : If cWorker_Verwahrung.readVW_SumAVerwahrungsinfo(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True '--> TEIL DER VERWAHRUNG - LINKE SEITE End Select End If @@ -427,7 +418,7 @@ Public Class frmDYNachrichtenVerarbeitung 'VW: SumAErledigungsinformationVorpapier If Not found And cGetMsgType.isEZA_SumAErledigungsinformationVorpapier(doc, VERSION) Then Select Case VERSION - Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True ' --> TEIL DER VERWAHRUNG + Case "005" : If cWorker_Verwahrung.readEZA_SumAErledigungsinformationVorpapier_005(Me, d, saveVerwahrung, sendMail, GESTELLUNG_TESTLAUF) <> "" Then found = True ' --> TEIL DER VERWAHRUNG - RECHTE SEITE Case "004" : If readEZA_SumAErledigungsinformationVorpapier_004(d) <> "" Then found = True Case Else : If readEZA_SumAErledigungsinformationVorpapier(d) <> "" Then found = True End Select