From 9fb908f07b83c516795291cc2c133847bfb317c3 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 13 Mar 2026 15:04:24 +0100 Subject: [PATCH] cWorker --- initATLASAufschubkonten/cWorker_Verwahrung.vb | 32 +++++++++++++------ 1 file changed, 22 insertions(+), 10 deletions(-) diff --git a/initATLASAufschubkonten/cWorker_Verwahrung.vb b/initATLASAufschubkonten/cWorker_Verwahrung.vb index 3e035f3..2a009e4 100644 --- a/initATLASAufschubkonten/cWorker_Verwahrung.vb +++ b/initATLASAufschubkonten/cWorker_Verwahrung.vb @@ -479,9 +479,10 @@ Anzeige: 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") + existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr, gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer, gs_ATBNr, gs_dakoyimport 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_posNr,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") + 'existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr,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") + existingEntries = (New SQL).loadDgvBySql("Select gs_gsnr, gs_gsId, gs_posNr,gs_freitext,gs_systemuser,gs_VeralteteWeitereRegistriernummer, gs_ATBNr, gs_dakoyimport from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) order by gs_datum desc", "AVISO") End If If existingEntries.Rows.Count > 0 Then @@ -496,10 +497,12 @@ Anzeige: End If Dim urspringsSicherheit As cSicherheiten - Dim rows = existingEntries.Select("gs_freitext = 'DAKOSY DUMMY' AND gs_posNr = 0") + Dim rows = existingEntries.Select("gs_dakoyimport = true AND [gs_ATBNr] = '" & Vorpapiernummer & "'") If rows.Length > 0 Then Dim row = rows(0) + 'urspringsSicherheit = New cSicherheiten(row("gs_gsId"), row("gs_posNr")) + urspringsSicherheit = New cSicherheiten(row("gs_gsId"), row("gs_posNr")) Else Return False 'kein Dummy-Eintrag @@ -532,29 +535,38 @@ Anzeige: FreitextInfo = "DAKOSY-IMPORT" End If - - newSicherheit.gs_freitext = FreitextInfo - newSicherheit.gs_MRNNr = RegistriernummerATLAS newSicherheit.gs_standort = urspringsSicherheit.gs_standort newSicherheit.gs_datum = urspringsSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang newSicherheit.gs_erstellungsdatum = Now() newSicherheit.gs_posNr = laufnummer + + newSicherheit.gs_freitext = FreitextInfo + newSicherheit.gs_MRNNr = RegistriernummerATLAS newSicherheit.gs_abfertigungsnr = abfertigungsnummer newSicherheit.gs_filialenNr = filiale + newSicherheit.gs_posNr = laufnummer newSicherheit.gs_LKWKZ = urspringsSicherheit.gs_LKWKZ newSicherheit.gs_zollsatz = urspringsSicherheit.gs_zollsatz - newSicherheit.gs_warenwert = urspringsSicherheit.gs_warenwert - newSicherheit.gs_sicherheitsbetrag = urspringsSicherheit.gs_sicherheitsbetrag + + If laufnummer = 1 Then + newSicherheit.gs_warenwert = urspringsSicherheit.gs_warenwert + newSicherheit.gs_sicherheitsbetrag = urspringsSicherheit.gs_sicherheitsbetrag + Else + newSicherheit.gs_warenwert = 0 + newSicherheit.gs_sicherheitsbetrag = 0 + + End If + newSicherheit.gs_art = "OPEN" newSicherheit.gs_saldo = saldo newSicherheit.gs_avisoId = urspringsSicherheit.gs_avisoId newSicherheit.gs_warenort = urspringsSicherheit.gs_warenort - newSicherheit.gs_posSubNr = 1 + newSicherheit.gs_dakoyimport = True Dim gsid = newSicherheit.SAVEOBJECT() - If gsid > 0 Then + If gsid > 0 AndAlso laufnummer = 1 Then 'wechsel des Sicherheitsbetrags und Warenwert von Dummypos auf erste Produkivposition urspringsSicherheit.gs_warenwert = 0 urspringsSicherheit.gs_sicherheitsbetrag = 0