From 82e54fcef2cfd6ecefd56ec344fc73f4f9288952 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 17 Mar 2026 15:05:50 +0100 Subject: [PATCH] fix Worker --- DAKOSY_Worker/cZOLL_IMPORT.vb | 1 + initATLASAufschubkonten/cWorker_NCTS.vb | 11 ++++++----- initATLASAufschubkonten/cWorker_Verwahrung.vb | 17 ++++++++++------- 3 files changed, 17 insertions(+), 12 deletions(-) diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index edc15d0..d4e4741 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -523,6 +523,7 @@ Public Class cZOLL_IMPORT Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 Case "7001" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + ' Case "5601" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803 'filialeBez SUB, NKD, WAI,.-.. End Select diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index 910c86d..c34c1aa 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -4719,12 +4719,13 @@ Public Class cWorker_NCTS ) ).ToArray() + If rowsVorp.Length > 0 Then - - Dim row = rowsVorp(0) - If POSNr = posNr_temp Then - Warenwert = CDbl(row("tblSnd_Warenwert")) - Sicherheitsbetrag = System.Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100), 2) + Dim row = rowsVorp(0) + If POSNr = posNr_temp Then + Warenwert = CDbl(row("tblSnd_Warenwert")) + Sicherheitsbetrag = System.Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100), 2) + End If End If End If diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index e9ee26d..fac05d8 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -754,18 +754,21 @@ Anzeige: ) ).ToArray() - Dim row = rowsVorp(0) - If POSNr = posNr_temp Then - Warenwert = CDbl(row("tblSnd_Warenwert")) - Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100), 2) - End If + If rowsVorp.Length > 0 Then + Dim row = rowsVorp(0) + If POSNr = posNr_temp Then + Warenwert = CDbl(row("tblSnd_Warenwert")) + Sicherheitsbetrag = Math.Round(Warenwert * (GesSichRef.gsr_zollsatz / 100), 2) + End If + + End If End If - 'Dim dtSendungen = SQL.loadDgvBySql("SELECT") - Dim anzahlPackstuecke As Integer = -1 + '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