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

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"
@@ -231,32 +233,61 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
                     firmaId = 11
                 Case "IMEX"
                     firmaId = 20
-
             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_ATBNr = txtMRN._value
-                .gs_posNr = 1
+                .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_datum = DateTime.Now
-                .gs_freitext = "DUMMY"
+                .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 = "" 'mappe Warenort von DAKOSY Stammreferenz -> cboStammreferenz
+                .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

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
 

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

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

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