Dakosy Ankunftsanzeige, Offerten, Sendungen, etc.

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")
+
+        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
 
 
 

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"

VERAG_PROG_ALLGEMEIN/Classes/cOfferte.vb

@@ -978,6 +978,7 @@ Public Class cStandardofferten
         Me.LeistungsBez = LeistungsBez
         LOAD()
     End Sub
+
     Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OffertenNr", OffertenNr))
@@ -1085,5 +1086,28 @@ Public Class cStandardofferten
         Return ""
     End Function
 
+    Public Shared Sub updateBezeichnung_MULTILINGUAL(Währungscode As String, LeistungsNr As Integer, LeistungsBez As String, LeistungsBez_EN As String, LeistungsBez_RO As String, LeistungsBez_TR As String)
+
+
+        If Währungscode <> "" AndAlso LeistungsNr > 0 And LeistungsBez <> "" Then
+
+            Dim UPDATESTRING As String = ""
+
+            If LeistungsBez_EN <> "" Then UPDATESTRING &= " [LeistungsBez_EN] = '" & LeistungsBez_EN & "',"
+            If LeistungsBez_TR <> "" Then UPDATESTRING &= " [LeistungsBez_TR] = '" & LeistungsBez_TR & "',"
+            If LeistungsBez_RO <> "" Then UPDATESTRING &= " [LeistungsBez_RO] = '" & LeistungsBez_RO & "',"
+
+            If UPDATESTRING <> "" Then
+
+                Dim SQL As New SQL
+
+                SQL.doSQL("UPDATE [Standardofferten] SET " & UPDATESTRING & " aktualisiert = getDate() WHERE Währungscode='" & Währungscode & "' AND LeistungsNr=" & LeistungsNr & " AND LeistungsBez='" & LeistungsBez & "'", "FMZOLL")
+
+            End If
+        End If
+
+
+    End Sub
+
 End Class
 

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -95,6 +95,7 @@ Public Class cSendungen
 
     Property tblSnd_ATB_Nr As Object = Nothing
     Property tblSnd_ATB_T1 As Object = Nothing
+    Property tblSnd_T1_Frist As Object = Nothing
 
     Property tblSnd_Vorpapier As Object = Nothing
     Property tblSnd_Vorpapier_Pos As Object = Nothing
@@ -489,7 +490,7 @@ Public Class cSendungen
                     Me.tblSnd_Firma = SQL.checkNullReturnValue(dr.Item("tblSnd_Firma"), Nothing)
                     Me.tblSnd_Cluster = SQL.checkNullReturnValue(dr.Item("tblSnd_Cluster"), Nothing)
                     Me.tblSnd_ATBFakturieren = SQL.checkNullReturnValue(dr.Item("tblSnd_ATBFakturieren"), Nothing)
-
+                    Me.tblSnd_T1_Frist = SQL.checkNullReturnValue(dr.Item("tblSnd_T1_Frist"), Nothing)
 
                 End If