div. Änderungen

2026-03-18 10:19:52 +01:00
parent 72a2def23b
commit b143e5bf13
23 changed files with 1254 additions and 501 deletions
--- a/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/ATLAS/Verwahrung/usrCntlATLAS_AnkunftsAnzeige.vb
@@ -5,25 +5,19 @@ Imports VERAG_PROG_ALLGEMEIN
 Public Class usrCntlATLAS_AnkunftsAnzeige

    Property ALLG As usrCntlATLAS_AnkunftsAnzeige
-    'Property FilialeNr As Integer
-    ' Property AbfertigungsNr As Integer
-
-    ' Property BezugsNr As String = ""
-    ' Property AvisoId As Integer
-    'Property SENDUNGS_ID As Integer
    Property AVISO As VERAG_PROG_ALLGEMEIN.cAviso
    Property SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen
    Dim sentToDakosy = False

    Dim GesamtsicherheitREF As cGesamtsicherheitsReferenz
    Dim Standort As String = ""
-
+    Dim gsnr As Integer = -1

    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)
+    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)
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

@@ -33,6 +27,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige

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



@@ -114,16 +109,30 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
                Dim FIRMA_DY = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
                FIRMA_DY = DAKOSY_Worker.cDakosyFunftions.getFirma_DY(SENDUNG.FilialenNr, Me.FindForm)

+                If txtDyMandant.Text = "VERG" And FIRMA_DY = "IMEX" Then 'IMEX verwendet VERAG-Gestellungskonto!!!
+                    FIRMA_DY = "VERAG"
+                End If
+
                Dim saveFile = ""

+                Dim BezugsNrBez As String = ""

-                If generateEingangsanzeigeNCTSDE_003(AVISO, SENDUNG, lblBezugsnummer.Text, saveFile, cboDakosyAction._value, FIRMA_DY, cboStammreferenz._value) Then
+                If lblBezugsnummer.Text.Length > 23 Then
+                    BezugsNrBez = lblBezugsnummer.Text.Substring(0, 23) 'Z. Zt. begrenzt auf 22 Stellen, weil Aufnahme in ATLAS beschränkt!
+                Else
+                    BezugsNrBez = lblBezugsnummer.Text
+                End If
+
+
+                If generateEingangsanzeigeNCTSDE_003(AVISO, SENDUNG, BezugsNrBez, lblBezugsnummer.Text, saveFile, cboDakosyAction._value, FIRMA_DY, cboStammreferenz._value) Then
                    If saveFile <> "" Then
-                        If cDakosyFunftions.send_Data_To_Dakosy_FTP(saveFile, lblBezugsnummer.Text, dy_Id, FIRMA_DY) Then
-                            'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_03)
+
+                        '-------------------------------------------------------
+
+                        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)
+                            createGesamtsicherheitDummy(GesamtsicherheitREF, Standort, txtWarenort.Text, gsnr)
                        Else
                            'DAKOSY_Worker.cDakosy_Statusmeldungen.InsertStatusMeldung(DY_ANM, DAKOSY_Worker.cDY_Statusliste.S_09)
                            MsgBox("Sendefehler!")
@@ -132,12 +141,12 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
                End If
            End If

-            ' DY_ANM.UPDATE_DATA()
+                ' DY_ANM.UPDATE_DATA()

-            'Beim Senden soll die Sendung überhnommen + tblSnd_VG_MA gesetzt werden --> damit gleich gesehen wird, dass der Akt in Bearbeitung ist.
-            ' DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId)
+                'Beim Senden soll die Sendung überhnommen + tblSnd_VG_MA gesetzt werden --> damit gleich gesehen wird, dass der Akt in Bearbeitung ist.
+                ' DY_ANM.UPDATE_AVISO_SND(DY_ANM.dy_SendungsId)

-            Me.FindForm.Close()
+                Me.FindForm.Close()
        End If
        Me.Cursor = Cursors.Default
    End Sub
@@ -145,7 +154,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige



-    Shared Function generateEingangsanzeigeNCTSDE_003(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen, ByVal Bezugsnummer As String, ByRef saveFile As String, DY_ACTION As String, FIRMA_DY As String, Optional BezugsnummerVorblendung As String = "") As Boolean
+    Shared Function generateEingangsanzeigeNCTSDE_003(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SND As VERAG_PROG_ALLGEMEIN.cSendungen, ByVal Bezugsnummer As String, ByVal BezugsnummerALIAS As String, ByRef saveFile As String, DY_ACTION As String, FIRMA_DY As String, Optional BezugsnummerVorblendung As String = "") As Boolean
        Dim Interface_VERSION = "003"
        Dim ObjectAktion = DY_ACTION
        ' Dim BezugsnummerVorblendung = "AA_NCTS_DE_ZE_WO_MITTICH"
@@ -168,7 +177,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
        XML.EinzelEingangsanzeige.ObjektIdentifizierung = New EingangsanzeigeNCTSDE_003.ObjektIdentifizierungEATyp
        XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektName = Bezugsnummer

-        If Bezugsnummer IsNot Nothing Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAliasname = Bezugsnummer
+        If BezugsnummerALIAS IsNot Nothing Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAliasname = BezugsnummerALIAS
        Dim ObjektAktion As New List(Of String) : ObjektAktion.Add(ObjectAktion)
        XML.EinzelEingangsanzeige.ObjektIdentifizierung.ObjektAktion = ObjektAktion
        If If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB, "") <> "" Then XML.EinzelEingangsanzeige.ObjektIdentifizierung.Bearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DAKOSY_SB
@@ -199,13 +208,15 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
        Return True
    End Function

-    Private Function createGesamtsicherheitDummy(GesSichRef, Standort, Warenort)
+    Private Function createGesamtsicherheitDummy(GesSichRef, Standort, Warenort, gsnr)

        Try

            Dim SQL As New SQL
-            Dim OPEN_DUMMY As New cSicherheiten()

+
+            Dim OPEN_DUMMY As New cSicherheiten()
+            Dim attachPosNrToExistingATB = False
            Dim firmaId As Integer = -1
            Dim LKW_ID As String = ""

@@ -225,11 +236,10 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
            End Select

            With OPEN_DUMMY
-                .gs_gsNr = SQL.getValueTxtBySql("select MAX([gs_gsNr]) + 1 as MaxGesSich from tblGesamtsicherheit", "AVISO")
                .gs_ATBNr = txtMRN._value
-                .gs_posNr = 0 'mit 0 angeben, da ansonten durch DAKOSY überschrieben
+                'mit 0 angeben, da ansonten durch DAKOSY überschrieben
                .gs_MRNNr = ""
-                .gs_posSubNr = 0
+                .gs_posSubNr = Nothing
                .gs_datum = Today()
                .gs_warenwert = SENDUNG.tblSnd_Warenwert
                .gs_sicherheitsbetrag = Math.Round(SENDUNG.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100), 2)
@@ -247,13 +257,27 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
                .gs_systemuser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
                .gs_warenort = Warenort
                .gs_LKWKZ = AVISO.LKW_Nr
+                .gs_dakoyimport = True
+                If gsnr > 0 Then
+                    .gs_gsNr = gsnr
+                    .gs_posNr = getLatestPosNr(gsnr, txtMRN._value)
+                    attachPosNrToExistingATB = True
+                Else
+                    .gs_gsNr = SQL.getValueTxtBySql("select MAX([gs_gsNr]) + 1 as MaxGesSich from tblGesamtsicherheit", "AVISO")
+                    .gs_posNr = 0
+                End If

            End With

            Dim indexGsId = OPEN_DUMMY.SAVEOBJECT()

-            Dim CLOSED_DUMMY = New cGesamtsicherheitsPositionen(indexGsId, 1)
+            Dim CLOSED_DUMMY As cGesamtsicherheitsPositionen

+            If attachPosNrToExistingATB Then
+                CLOSED_DUMMY = New cGesamtsicherheitsPositionen(indexGsId, OPEN_DUMMY.gs_posNr)
+            Else
+                CLOSED_DUMMY = New cGesamtsicherheitsPositionen(indexGsId, 1)
+            End If

            With CLOSED_DUMMY

@@ -285,6 +309,22 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
    End Function


+    Private Function getLatestPosNr(gs_gsnr As Integer, gs_ATBNr As String) As Integer
+        Dim posNr As Integer = 0
+        Dim sqlq As String = "Select MAX([gs_posNr]) As MaxPosNr from [tblGesamtsicherheit] where gs_gsnr = " & gs_gsnr & " And gs_ATBNR = '" & gs_ATBNr & "'"
+        Dim dt As New DataTable
+        dt = (New SQL).loadDgvBySql(sqlq, "AVISO", 100, True)
+
+        If (dt.Rows(0).Item(0) IsNot DBNull.Value) Then
+
+            posNr = dt.Rows(0).Item(0)
+
+        End If
+
+        Return posNr
+
+    End Function
+

    Private Sub MyCheckbox1_CheckedChanged(sender As Object, e As EventArgs) Handles MyCheckbox1.CheckedChanged
        Button1.Enabled = Not MyCheckbox1.Checked
--- a/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
+++ b/SDL/ZOLLSYSTEM/DAKOSY/frmZollanmeldung.vb
@@ -22,6 +22,7 @@ Public Class frmZollanmeldung

    Dim GesamtsicherheitREF As cGesamtsicherheitsReferenz = Nothing
    Dim Standort As String = ""
+    Dim gsnr As Integer = -1



@@ -77,7 +78,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 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, Optional gsnr As Integer = -1, Optional ZOLL_SYSTEM As String = "DAKOSY") ', Optional ZA = Nothing)

        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
@@ -92,6 +93,7 @@ Public Class frmZollanmeldung

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

        If SENDUNG IsNot Nothing Then
            Me.FilialenNr = SENDUNG.FilialenNr
@@ -248,7 +250,7 @@ Public Class frmZollanmeldung
                        End If

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