From 6cf3ed1763d2b1a43b071e5640bee40970f10547 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 9 Mar 2026 13:24:20 +0100 Subject: [PATCH 1/3] Ankunft, etc, --- .../usrCntlATLAS_AnkunftsAnzeige.vb | 50 +++++++++++++++---- .../Classes/cGesamtsicherheitsPositionen.vb | 2 + VERAG_PROG_ALLGEMEIN/cSicherheiten.vb | 2 + 3 files changed, 45 insertions(+), 9 deletions(-) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb index f8b987e9..acbb05d4 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb @@ -215,8 +215,10 @@ Public Class usrCntlATLAS_AnkunftsAnzeige Dim SQL As New SQL - Dim OPEN As New cSicherheiten() + Dim OPEN_DUMMY As New cSicherheiten() + Dim firmaId As Integer = -1 + Dim LKW_ID As String = "" Select Case Standort Case "Verag GmbH" @@ -234,29 +236,59 @@ Public Class usrCntlATLAS_AnkunftsAnzeige End Select - With OPEN + With OPEN_DUMMY .gs_gsNr = SQL.getValueTxtBySql("select MAX([gs_gsNr]) + 1 as MaxGesSich from tblGesamtsicherheit", "AVISO") - .gs_ATBNr = SENDUNG.tblSnd_ATB_T1 - .gs_posNr = 1 + .gs_ATBNr = txtMRN._value + .gs_posNr = 0 'mit 0 angeben, da ansonten durch DAKOSY überschrieben .gs_MRNNr = "" - .gs_posSubNr = 1 + .gs_posSubNr = 0 .gs_datum = Today() .gs_warenwert = SENDUNG.tblSnd_Warenwert - .gs_sicherheitsbetrag = Math.Round(SENDUNG.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100)) + .gs_sicherheitsbetrag = Math.Round(SENDUNG.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100), 2) .gs_standort = Me.Standort .gs_art = "OPEN" - .gs_erstellungsdatum = CDate(DateTime.Now) - .gs_freitext = "DUMMY" + .gs_datum = DateTime.Now + .gs_erstellungsdatum = DateTime.Now + .gs_freitext = "DAKOSY DUMMY" .gs_saldo = GesSichRef.gsr_Saldo .gs_atr = "0" .gs_zollsatz = GesSichRef.gsr_zollsatz .gs_avisoId = AVISO.AvisoID .gs_filialenNr = SENDUNG.FilialenNr .gs_abfertigungsnr = SENDUNG.AbfertigungsNr - .SAVE() + .gs_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + .gs_warenort = "" + .gs_LKWKZ = AVISO.LKW_Nr End With + Dim indexGsId = OPEN_DUMMY.SAVEOBJECT() + + Dim CLOSED_DUMMY = New cGesamtsicherheitsPositionen(indexGsId, 1) + + + With CLOSED_DUMMY + + .gsp_gsNr = OPEN_DUMMY.gs_gsNr + .gsp_warenwert = 0 ' = 0 wichtig + .gsp_sicherheitsbetrag = 0 ' = 0 wichtig + .gsp_filialenNr = OPEN_DUMMY.gs_filialenNr + .gsp_art = "CLOSE" + .gsp_abfertigungsNr = OPEN_DUMMY.gs_abfertigungsnr + .gsp_erstellungsdatum = DateTime.Now + .gsp_datum = DateTime.Now + .gsp_ust = "" + .gsp_freitext = OPEN_DUMMY.gs_freitext + .gsp_avisoId = OPEN_DUMMY.gs_avisoId + .gsp_gsNr = OPEN_DUMMY.gs_gsNr + .gsp_gspPosId = OPEN_DUMMY.gs_posNr + .gsp_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME + End With + + CLOSED_DUMMY.SAVE() + + GesSichRef.calcSaldo() + Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb index 873a2826..6def07fc 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cGesamtsicherheitsPositionen.vb @@ -15,6 +15,7 @@ Public Class cGesamtsicherheitsPositionen Property gsp_filialenNr As Object = Nothing Property gsp_abfertigungsNr As Object = Nothing Property gsp_ATCNr As String + Property gsp_MRNNr As String Property gsp_erstellungsdatum As DateTime Property gsp_isPosRundungsdiff As Boolean @@ -56,6 +57,7 @@ Public Class cGesamtsicherheitsPositionen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_isPosRundungsdiff", gsp_isPosRundungsdiff)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_systemuser", gsp_systemuser)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_zuletztgeandert", gsp_zuletztgeandert)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gsp_MRNNr", gsp_MRNNr)) Return list diff --git a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb index 19438430..a20cdce8 100644 --- a/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb +++ b/VERAG_PROG_ALLGEMEIN/cSicherheiten.vb @@ -29,6 +29,7 @@ Public Class cSicherheiten Property gs_systemuser As Object = Nothing Property gs_MRNNr As Object = Nothing Property gs_posSubNr As Object = Nothing + Property gs_VeralteteWeitereRegistriernummer As Object = Nothing Public hasEntry = False @@ -83,6 +84,7 @@ Public Class cSicherheiten list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_zuletztgeandert", gs_zuletztgeandert)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_systemuser", gs_systemuser)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_MRNNr", gs_MRNNr)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_VeralteteWeitereRegistriernummer", gs_VeralteteWeitereRegistriernummer)) If Not WithoutPosSubNr Then list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("gs_posSubNr", gs_posSubNr)) Return list From e7cc96480b2272198d6db5019e867f21ae0a673a Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 9 Mar 2026 16:47:20 +0100 Subject: [PATCH 2/3] Sendungen, Dakosy VW --- VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb index d32be34e..3dd38f8e 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb +++ b/VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb @@ -721,6 +721,7 @@ Public Class cSendungen list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Firma", tblSnd_Firma)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Cluster", tblSnd_Cluster)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATBFakturieren", tblSnd_ATBFakturieren)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_T1_Frist", tblSnd_T1_Frist)) 'End If Return list From 353ba63f892d9466b78ea7f277b8e39b05865d62 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 10 Mar 2026 13:46:09 +0100 Subject: [PATCH 3/3] Anzeige ATLAS (DAKOSY), Fiskal --- .../DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb | 3 +-- SDL/kunden/usrcntlFiskaluebersicht.vb | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb index acbb05d4..19d5c3e2 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb @@ -233,7 +233,6 @@ Public Class usrCntlATLAS_AnkunftsAnzeige firmaId = 11 Case "IMEX" firmaId = 20 - End Select With OPEN_DUMMY @@ -257,7 +256,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige .gs_filialenNr = SENDUNG.FilialenNr .gs_abfertigungsnr = SENDUNG.AbfertigungsNr .gs_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME - .gs_warenort = "" + .gs_warenort = "" 'mappe Warenort von DAKOSY Stammreferenz -> cboStammreferenz .gs_LKWKZ = AVISO.LKW_Nr End With diff --git a/SDL/kunden/usrcntlFiskaluebersicht.vb b/SDL/kunden/usrcntlFiskaluebersicht.vb index 38e3939a..e46eaa9f 100644 --- a/SDL/kunden/usrcntlFiskaluebersicht.vb +++ b/SDL/kunden/usrcntlFiskaluebersicht.vb @@ -681,7 +681,7 @@ Public Class usrcntlFiskaluebersicht Private Sub getFields() fk.FK_Land = cbxLand._value - fk.FK_Art = cbxLand._value + fk.FK_Art = cbxArt._value If BA IsNot Nothing Then fk.FK_Bonitaet = BA.ba_id