From e76c3f01a540ccdc47cb893848089c2b12aa5001 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 30 Mar 2026 14:28:06 +0200 Subject: [PATCH] Zollamneldungen, etc. --- SDL/Fakturierung/usrCntlFaktAbrechnung.vb | 2 +- .../Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb | 16 ++++++++-------- SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb | 6 ++++-- 3 files changed, 13 insertions(+), 11 deletions(-) diff --git a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb index 3577381b..77723158 100644 --- a/SDL/Fakturierung/usrCntlFaktAbrechnung.vb +++ b/SDL/Fakturierung/usrCntlFaktAbrechnung.vb @@ -5425,7 +5425,7 @@ mwst: Case 1, 3, 5, 7, 26, 28, 38, 39, 29, 66 Dim docID As Integer = IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, 13567402, 13638537) - Dim exists = dgv.Rows.Cast(Of DataGridViewRow)().Any(Function(r) Not r.IsNewRow AndAlso CInt(r.Cells("anh_docId").Value) = docID) + Dim exists = dgv.Rows.Cast(Of DataGridViewRow)().Any(Function(r) Not r.IsNewRow AndAlso CInt(r.Cells("clmnDsId").Value) = docID) If Not exists Then dgv.Rows.Add(1, "INFO", "CBAM-FLYER", docID, 0) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb index ef88eacf..fa3fb729 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb @@ -11,12 +11,13 @@ Public Class usrCntlATLAS_AnkunftsAnzeige Dim GesamtsicherheitREF As cGesamtsicherheitsReferenz Dim Standort As String = "" Dim gsnr As Integer = -1 + Dim WarenwertEUR As Double = 0 Property FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, FIRMA_DY As String, GesamtsicherheitREF As cGesamtsicherheitsReferenz, Standort As String, gsnr As Integer) + Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, FIRMA_DY As String, GesamtsicherheitREF As cGesamtsicherheitsReferenz, Standort As String, gsnr As Integer, WarenwertEUR As Double) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() @@ -27,6 +28,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige Me.GesamtsicherheitREF = GesamtsicherheitREF Me.Standort = Standort Me.gsnr = gsnr + Me.WarenwertEUR = WarenwertEUR @@ -76,8 +78,6 @@ Public Class usrCntlATLAS_AnkunftsAnzeige - - If cboStammreferenz.Items.Count = 2 Then cboStammreferenz.SelectedIndex = 1 End If @@ -135,7 +135,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, BezugsNrBez, dy_Id, FIRMA_DY) Then If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen. MsgBox("Gesendet!") - createGesamtsicherheitDummy(GesamtsicherheitREF, Standort, txtWarenort.Text, gsnr) + createGesamtsicherheitDummy(GesamtsicherheitREF, Standort, txtWarenort.Text, gsnr, WarenwertEUR) Else 'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09) MsgBox("Sendefehler!") @@ -211,7 +211,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige Return True End Function - Private Function createGesamtsicherheitDummy(GesSichRef, Standort, Warenort, gsnr) + Private Function createGesamtsicherheitDummy(GesSichRef As cGesamtsicherheitsReferenz, Standort As String, Warenort As String, gsnr As Integer, WarenwertEUR As Double) Try @@ -244,8 +244,8 @@ Public Class usrCntlATLAS_AnkunftsAnzeige .gs_MRNNr = "" .gs_posSubNr = Nothing .gs_datum = Today() - .gs_warenwert = SENDUNG.tblSnd_Warenwert - .gs_sicherheitsbetrag = Math.Round(SENDUNG.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100), 2) + .gs_warenwert = WarenwertEUR + .gs_sicherheitsbetrag = Math.Round(WarenwertEUR * (GesSichRef.gsr_zollsatz / 100), 2) .gs_standort = Me.Standort .gs_art = "OPEN" .gs_datum = DateTime.Now @@ -302,7 +302,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige CLOSED_DUMMY.SAVE() - GesSichRef.calcSaldo() + GesSichRef.CalcSaldo() Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) diff --git a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb index 8db9937d..4b482c1f 100644 --- a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb +++ b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb @@ -23,6 +23,7 @@ Public Class frmZollanmeldung Dim GesamtsicherheitREF As cGesamtsicherheitsReferenz = Nothing Dim Standort As String = "" Dim gsnr As Integer = -1 + Dim WarenwertEUR As Double = 0 @@ -78,7 +79,7 @@ Public Class frmZollanmeldung End Sub - Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, GesamtsicherheitREF As cGesamtsicherheitsReferenz, Standort As String, Optional gsnr As Integer = -1, Optional ZOLL_SYSTEM As String = "DAKOSY") ', Optional ZA = Nothing) + Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, JAHR As Integer, GesamtsicherheitREF As cGesamtsicherheitsReferenz, Standort As String, WarenwertEUR As Double, Optional gsnr As Integer = -1, Optional ZOLL_SYSTEM As String = "DAKOSY") ', Optional ZA = Nothing) ' Dieser Aufruf ist für den Designer erforderlich. InitializeComponent() @@ -94,6 +95,7 @@ Public Class frmZollanmeldung Me.GesamtsicherheitREF = GesamtsicherheitREF Me.Standort = Standort Me.gsnr = gsnr + Me.WarenwertEUR = WarenwertEUR If SENDUNG IsNot Nothing Then Me.FilialenNr = SENDUNG.FilialenNr @@ -250,7 +252,7 @@ Public Class frmZollanmeldung End If Case "AA" 'AnkunftsAnzeige - Dim usrcntl As New usrCntlATLAS_AnkunftsAnzeige(AVISO, SENDUNG, FIRMA_DY, GesamtsicherheitREF, Standort, gsnr) + Dim usrcntl As New usrCntlATLAS_AnkunftsAnzeige(AVISO, SENDUNG, FIRMA_DY, GesamtsicherheitREF, Standort, gsnr, WarenwertEUR) usrcntl.Dock = DockStyle.Fill Me.pnl.Controls.Add(usrcntl) Me.Text = "AnkunftsAnzeige - Verwahrung"