edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cWorker

Browse Source
This commit is contained in:
d.breimaier
2026-03-13 15:04:24 +01:00
parent 88a6be4cd8
commit 9fb908f07b
1 changed files with 22 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
initATLASAufschubkonten/cWorker_Verwahrung.vb
View File

@@ -479,9 +479,10 @@ Anzeige:
If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then If SND IsNot Nothing AndAlso SND.tblSnd_Abfertigungsart_ID = 44 Then
Dim existingEntries As DataTable 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 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 End If
If existingEntries.Rows.Count > 0 Then If existingEntries.Rows.Count > 0 Then
@@ -496,10 +497,12 @@ Anzeige:
End If End If
Dim urspringsSicherheit As cSicherheiten 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 If rows.Length > 0 Then
Dim row = rows(0) Dim row = rows(0)
'urspringsSicherheit = New cSicherheiten(row("gs_gsId"), row("gs_posNr"))
urspringsSicherheit = New cSicherheiten(row("gs_gsId"), row("gs_posNr")) urspringsSicherheit = New cSicherheiten(row("gs_gsId"), row("gs_posNr"))
Else Else
Return False 'kein Dummy-Eintrag Return False 'kein Dummy-Eintrag
@@ -532,29 +535,38 @@ Anzeige:
FreitextInfo = "DAKOSY-IMPORT" FreitextInfo = "DAKOSY-IMPORT"
End If End If
newSicherheit.gs_freitext = FreitextInfo
newSicherheit.gs_MRNNr = RegistriernummerATLAS
newSicherheit.gs_standort = urspringsSicherheit.gs_standort newSicherheit.gs_standort = urspringsSicherheit.gs_standort
newSicherheit.gs_datum = urspringsSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang newSicherheit.gs_datum = urspringsSicherheit.gs_datum 'VWI.EinzelSumAVerwahrungsinfo.ObjektIdentifizierung.ZeitpunktNachrichteneingang
newSicherheit.gs_erstellungsdatum = Now() newSicherheit.gs_erstellungsdatum = Now()
newSicherheit.gs_posNr = laufnummer newSicherheit.gs_posNr = laufnummer
newSicherheit.gs_freitext = FreitextInfo
newSicherheit.gs_MRNNr = RegistriernummerATLAS
newSicherheit.gs_abfertigungsnr = abfertigungsnummer newSicherheit.gs_abfertigungsnr = abfertigungsnummer
newSicherheit.gs_filialenNr = filiale newSicherheit.gs_filialenNr = filiale
newSicherheit.gs_posNr = laufnummer
newSicherheit.gs_LKWKZ = urspringsSicherheit.gs_LKWKZ newSicherheit.gs_LKWKZ = urspringsSicherheit.gs_LKWKZ
newSicherheit.gs_zollsatz = urspringsSicherheit.gs_zollsatz newSicherheit.gs_zollsatz = urspringsSicherheit.gs_zollsatz
If laufnummer = 1 Then
newSicherheit.gs_warenwert = urspringsSicherheit.gs_warenwert newSicherheit.gs_warenwert = urspringsSicherheit.gs_warenwert
newSicherheit.gs_sicherheitsbetrag = urspringsSicherheit.gs_sicherheitsbetrag newSicherheit.gs_sicherheitsbetrag = urspringsSicherheit.gs_sicherheitsbetrag
Else
newSicherheit.gs_warenwert = 0
newSicherheit.gs_sicherheitsbetrag = 0
End If
newSicherheit.gs_art = "OPEN" newSicherheit.gs_art = "OPEN"
newSicherheit.gs_saldo = saldo newSicherheit.gs_saldo = saldo
newSicherheit.gs_avisoId = urspringsSicherheit.gs_avisoId newSicherheit.gs_avisoId = urspringsSicherheit.gs_avisoId
newSicherheit.gs_warenort = urspringsSicherheit.gs_warenort newSicherheit.gs_warenort = urspringsSicherheit.gs_warenort
newSicherheit.gs_posSubNr = 1 newSicherheit.gs_dakoyimport = True
Dim gsid = newSicherheit.SAVEOBJECT() 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 'wechsel des Sicherheitsbetrags und Warenwert von Dummypos auf erste Produkivposition
urspringsSicherheit.gs_warenwert = 0 urspringsSicherheit.gs_warenwert = 0
urspringsSicherheit.gs_sicherheitsbetrag = 0 urspringsSicherheit.gs_sicherheitsbetrag = 0