Merge branch 'newMaster2024' of https://git.it.verag.ag/edv/SDL into newMaster2024

2026-03-05 13:27:06 +01:00
parent 8f14b22419 95665ad22f
commit 1163bf6cea
7 changed files with 159 additions and 10 deletions
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb
@@ -1,4 +1,6 @@
-Imports DAKOSY_Worker
+Imports System.Windows.Media.Animation
+Imports DAKOSY_Worker
+Imports VERAG_PROG_ALLGEMEIN

 Public Class usrCntlATLAS_AnkunftsAnzeige

@@ -13,12 +15,15 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
    Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
    Dim sentToDakosy = False

+    Dim GesamtsicherheitREF As cGesamtsicherheitsReferenz
+    Dim Standort As String = ""
+

    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)
+    Sub New(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen, FIRMA_DY As String, GesamtsicherheitREF As cGesamtsicherheitsReferenz, Standort As String)
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

@@ -26,6 +31,9 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
        Me.SENDUNG = SENDUNG
        Me.FIRMA_DY = FIRMA_DY

+        Me.GesamtsicherheitREF = GesamtsicherheitREF
+        Me.Standort = Standort
+


        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
@@ -63,7 +71,25 @@ Public Class usrCntlATLAS_AnkunftsAnzeige

        cboStammreferenz.fillWithSQL("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='AA'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "')  and dySr_visible=1", False, "FMZOLL", True)
        '   MsgBox("SELECT [dySr_Stammreferenz],[dySr_Bezeichnung] FROM [tblDakosy_Stammreferenzen] WHERE dySr_Land='DE' AND dySr_Verfahren='AA'  and dySr_dy_Mandant='" & txtDyMandant.Text & "'  and dySr_dy_Niederlassung IN ('','" & txtDyNiederlassung.Text & "')  and dySr_visible=1")
-        cboStammreferenz.changeItem("")
+
+        Select Case Standort
+            Case "VERAG GmbH"
+                For i As Integer = 0 To cboStammreferenz.Items.Count - 1
+                    If cboStammreferenz.Items(i).ToString().Contains("MITTICH") Then
+                        cboStammreferenz.SelectedIndex = i
+                        Exit For
+                    End If
+                Next
+
+
+            Case Else
+
+                cboStammreferenz.changeItem("")
+        End Select
+
+
+
+
        If cboStammreferenz.Items.Count = 2 Then
            cboStammreferenz.SelectedIndex = 1
        End If
@@ -107,6 +133,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
                            'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
                            If SENDUNG IsNot Nothing Then SENDUNG.SET_VGMA() ' MA Vorgeschrieben in Sendung setzen.
                            MsgBox("Gesendet!")
+                            createGesamtsicherheitDummy(GesamtsicherheitREF, Standort)
                        Else
                            'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
                            MsgBox("Sendefehler!")
@@ -182,7 +209,60 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
        Return True
    End Function

+    Private Function createGesamtsicherheitDummy(GesSichRef, Standort)

+        Try
+
+            Dim SQL As New SQL
+
+            Dim OPEN As New cSicherheiten()
+            Dim firmaId As Integer = -1
+
+            Select Case Standort
+                Case "Verag GmbH"
+                    firmaId = 2
+                Case "Verag AG"
+                    firmaId = 1
+                Case "Unisped GmbH"
+                    firmaId = 21
+                Case "AMBAR GmbH"
+                    firmaId = 24
+                Case "Verag CS"
+                    firmaId = 11
+                Case "IMEX"
+                    firmaId = 20
+
+            End Select
+
+            With OPEN
+                .gs_gsNr = SQL.getValueTxtBySql("select MAX([gs_gsNr]) + 1 as MaxGesSich from tblGesamtsicherheit", "AVISO")
+                .gs_ATBNr = SENDUNG.tblSnd_ATB_T1
+                .gs_posNr = 1
+                .gs_MRNNr = ""
+                .gs_posSubNr = 1
+                .gs_datum = Today()
+                .gs_warenwert = SENDUNG.tblSnd_Warenwert
+                .gs_sicherheitsbetrag = Math.Round(SENDUNG.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100))
+                .gs_standort = Me.Standort
+                .gs_art = "OPEN"
+                .gs_erstellungsdatum = CDate(DateTime.Now)
+                .gs_freitext = "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()
+
+            End With
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+
+    End Function



--- a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
@@ -1,4 +1,5 @@
 Imports DAKOSY_Worker
+Imports VERAG_PROG_ALLGEMEIN

 Public Class frmZollanmeldung
    Dim ART As String = ""
@@ -19,6 +20,10 @@ Public Class frmZollanmeldung

    Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing

+    Dim GesamtsicherheitREF As cGesamtsicherheitsReferenz = Nothing
+    Dim Standort As String = ""
+
+

    Sub New(ART As String, DY As DAKOSY_Worker.cDakosy_Zollanmeldungen, Optional ZOLL_SYSTEM As String = "DAKOSY") ', JAHR As Integer) ', Optional ZA = Nothing)

@@ -72,6 +77,39 @@ 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 ZOLL_SYSTEM As String = "DAKOSY") ', Optional ZA = Nothing)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        '  If DY Is Nothing Then DY = New DAKOSY_Worker.cDakosy_Zollanmeldungen
+
+        Me.DY = DY
+        Me.AVISO = AVISO
+        Me.ART = ART
+        Me.SENDUNG = SENDUNG
+        Me.JAHR = JAHR
+        Me.ZOLL_SYSTEM = ZOLL_SYSTEM
+
+        Me.GesamtsicherheitREF = GesamtsicherheitREF
+        Me.Standort = Standort
+
+        If SENDUNG IsNot Nothing Then
+            Me.FilialenNr = SENDUNG.FilialenNr
+            Me.AbfertigungsNr = SENDUNG.AbfertigungsNr
+        End If
+        ' If ZA IsNot Nothing Then
+        'Select Case ZA.GetType.ToString
+        '     Case GetType(DAKOSY_Worker.cDakosyNCTSOut).ToString : NCTS = ZA
+        '      Case GetType(DAKOSY_Worker.cDakosyAES).ToString : AES = ZA
+        '  End Select
+        '   End If
+
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+

    Private Sub frmZollanmeldung_Load(sender As Object, e As EventArgs) Handles Me.Load

@@ -210,7 +248,7 @@ Public Class frmZollanmeldung
                        End If

                    Case "AA" 'AnkunftsAnzeige
-                        Dim usrcntl As New usrCntlATLAS_AnkunftsAnzeige(AVISO, SENDUNG, FIRMA_DY)
+                        Dim usrcntl As New usrCntlATLAS_AnkunftsAnzeige(AVISO, SENDUNG, FIRMA_DY, GesamtsicherheitRef, Standort)
                        usrcntl.Dock = DockStyle.Fill
                        Me.pnl.Controls.Add(usrcntl)
                        Me.Text = "AnkunftsAnzeige - Verwahrung"