merge

2024-11-04 15:14:04 +01:00
parent 631b988378 a1eff7cc76
commit 49948e6498
6 changed files with 767 additions and 559 deletions
--- a/Aviso/frmGesamtsicherheitenNEU.vb
+++ b/Aviso/frmGesamtsicherheitenNEU.vb
@@ -633,8 +633,6 @@ Public Class frmGesamtsicherheitenNEU
            End If


-
-
            If checkNothingValue(txtSicherheitSicherheitsbetrag.Text, "Double") IsNot Nothing Then
                Dim sichBetr As Double = Double.Parse(txtSicherheitSicherheitsbetrag.Text)
                If checkSaldo(sichBetr, True) = False Then Exit Sub
--- a/Aviso/frmSendungsdetailsNEU.Designer.vb
+++ b/Aviso/frmSendungsdetailsNEU.Designer.vb
--- a/Aviso/frmSendungsdetailsNEU.vb
+++ b/Aviso/frmSendungsdetailsNEU.vb
@@ -406,6 +406,7 @@ Public Class frmSendungsdetailsNEU
    Private Sub frmSendungsdetails_Load(sender As Object, e As EventArgs) Handles Me.Load
        VERAG_PROG_ALLGEMEIN.cAllgemein._TRANSLATE(Me)
        Button23.Visible = True
+        btnWWberechnen.Visible = False

        If UNBOUND Then
            FlowLayoutPanel.Visible = False
@@ -542,19 +543,19 @@ Public Class frmSendungsdetailsNEU
                                             If AVISO IsNot Nothing Then

                                                 If it.Tag.ToString = "???" Then
-                                                 SAVE_ME()
-                                                 AVISO.Grenzstelle = "???"
-                                                 AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
-                                                 cGlobal.Aktive_ID = AvisoId
-                                                 Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
-                                                 Dim f As New frmEintragAviso
-                                                 f.ShowDialog(frmGrayOut)
-                                                 frmGrayOut.Close()
-                                                 AVISO = AvisoDAL.LesenAviso(AvisoId, "")
-                                             Else
-                                                 SAVE_ME()
-                                                 AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
-                                             End If
+                                                     SAVE_ME()
+                                                     AVISO.Grenzstelle = "???"
+                                                     AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
+                                                     cGlobal.Aktive_ID = AvisoId
+                                                     Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                                                     Dim f As New frmEintragAviso
+                                                     f.ShowDialog(frmGrayOut)
+                                                     frmGrayOut.Close()
+                                                     AVISO = AvisoDAL.LesenAviso(AvisoId, "")
+                                                 Else
+                                                     SAVE_ME()
+                                                     AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
+                                                 End If
                                                 Me.initDataBinding()

                                             End If
@@ -1549,6 +1550,9 @@ Public Class frmSendungsdetailsNEU
                    End If

                    pnlT1.Controls.Add(usrcntl_ATB)
+
+                    btnWWberechnen.Visible = True
+
            End Select

            cboAbfertigungsart_SelectedIndexChanged(cboAbfertigungsart, New EventArgs)
@@ -1671,16 +1675,16 @@ Public Class frmSendungsdetailsNEU

            'Übergangsphase Aviso/Sendung
            If txtAvisierer.Text = "" And txtAvisierer.Enabled Then 'And (VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Or VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERIMEX") Then
-            If AVISO.Auftraggeber_KdNr > -1 Then
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
-                    txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
+                If AVISO.Auftraggeber_KdNr > -1 Then
+                    If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
+                        txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
+                    End If
+                Else
+                    txtAvisierer.KdNr_value = -1
+                    txtAvisiererKdNr.Text = ""
+                    txtAvisierer.Text = AVISO.Auftraggeber
                End If
-            Else
-                txtAvisierer.KdNr_value = -1
-                txtAvisiererKdNr.Text = ""
-                txtAvisierer.Text = AVISO.Auftraggeber
            End If
-        End If


            'Übergangsphase Aviso/Sendung
@@ -3108,7 +3112,7 @@ Public Class frmSendungsdetailsNEU
        If cbxFremdspedition.Checked Then
            sperren = True
        ElseIf cboAbfertigungsart._value = "44" Then
-              sperren = False
+            sperren = False
        Else
            If cboFiliale._value <> "" Then
                Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
@@ -4194,7 +4198,7 @@ Public Class frmSendungsdetailsNEU



-                            Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value)
+                        Dim docPath = VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(dgvAnhang.SelectedRows(0).Cells("anh_docId").Value)
                        If Not File.Exists(docPath) Then
                            MsgBox("Die Datei existiert nicht!")
                        Else
@@ -7030,9 +7034,9 @@ Public Class frmSendungsdetailsNEU


                        If lblGrenze.Text <> "" Then
-                                    TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
-                                    Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", lblGrenze.Text.Replace(vbCrLf, " "))
-                                End If
+                            TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
+                            Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", lblGrenze.Text.Replace(vbCrLf, " "))
+                        End If

                        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger IsNot Nothing Then
                            Mail.Subject = Mail.Subject.Replace("%Empfaenger%", SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger)
@@ -7069,11 +7073,11 @@ Public Class frmSendungsdetailsNEU
                        Mail.Subject = Mail.Subject.Replace("%AbfertigungsNr%", "")
                        Mail.Subject = Mail.Subject.Replace("%Absender%", "")
                        Mail.Subject = Mail.Subject.Replace("%Gewicht%", "")
-                            Mail.Subject = Mail.Subject.Replace("%ImEx%", "")
-                            Mail.Subject = Mail.Subject.Replace("%Zollstelle%", "")
+                        Mail.Subject = Mail.Subject.Replace("%ImEx%", "")
+                        Mail.Subject = Mail.Subject.Replace("%Zollstelle%", "")


-                            TextHTML = TextHTML.Replace("%LKW%", "")
+                        TextHTML = TextHTML.Replace("%LKW%", "")
                        TextHTML = TextHTML.Replace("%LKWKennzeichen%", "")
                        TextHTML = TextHTML.Replace("%Empfaenger%", "")
                        TextHTML = TextHTML.Replace("%VAR-GRENZE%", "")
@@ -7082,10 +7086,10 @@ Public Class frmSendungsdetailsNEU
                        TextHTML = TextHTML.Replace("%AbfertigungsNr%", "")
                        TextHTML = TextHTML.Replace("%Absender%", "")
                        TextHTML = TextHTML.Replace("%Gewicht%", "")
-                            TextHTML = TextHTML.Replace("%ImEx%", "")
-                            TextHTML = TextHTML.Replace("%Zollstelle%", "")
+                        TextHTML = TextHTML.Replace("%ImEx%", "")
+                        TextHTML = TextHTML.Replace("%Zollstelle%", "")

-                            For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
+                        For Each anh As DataGridViewRow In dgvAnhang.SelectedRows
                            Mail.Attachments.Add(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(anh.Cells("anh_docId").Value), Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
                        Next

@@ -7364,4 +7368,93 @@ Public Class frmSendungsdetailsNEU
            Panel22.BackColor = Color.FromArgb(255, 255, 192)
        End If
    End Sub
+
+    Private Sub btnWWberechnen_Click(sender As Object, e As EventArgs) Handles btnWWberechnen.Click
+        Dim calcWarenwerte As Double = 0
+        Dim vorpT1 = usrcntl_ATB.txtATBT1.Text
+
+        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung = "" Then
+            txtWarenwertWaehrung.SET_VALUE("EUR")
+            SAVE_ME()
+        End If
+
+        If vorpT1 = "" Then
+            MsgBox("Vorpapier/T1 muss eingetragen werden!")
+            usrcntl_ATB.txtATBT1.Focus()
+            Exit Sub
+        End If
+
+        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_WarenwertWaehrung <> "EUR" Then
+            MsgBox("Warenwert darf nur in EUR angegeben werden")
+            Exit Sub
+        End If
+
+
+
+        For Each s As cSendungen In SENDUNG_LIST
+            'nur Betrag EUR
+            If s.tblSnd_Vorpapier = vorp Then
+                If s.tblSnd_WarenwertWaehrung = "EUR" AndAlso s.tblSnd_Warenwert > 0 AndAlso s.FilialenNr = SENDUNG_LIST(CURRENT_INDEX).FilialenNr Then
+                    calcWarenwerte += s.tblSnd_Warenwert
+                Else
+                    MsgBox("Bei Sendung " & s.AbfertigungsNr & " ist der Warenwert nicht in EUR angegeben!")
+                    Exit Sub
+                End If
+
+            End If
+
+        Next
+
+        If SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert Is Nothing Then
+            SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert = Math.Round(calcWarenwerte, 2)
+            SAVE_ME()
+        End If
+
+
+        If Math.Round(calcWarenwerte, 2) <> Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2) Then
+            MsgBox("Warenwert für Gestellung stimmt nicht überein!" & vbNewLine & "Berechnerter Warenwert: " & Math.Round(calcWarenwerte, 2) & vbNewLine & "Eingetragener Warenwert: " & Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2), MsgBoxStyle.Critical)
+
+        Else
+
+            Dim Standort As String = ""
+
+
+            Select Case SENDUNG_LIST(CURRENT_INDEX).FilialenNr
+                Case 4803, 4809
+                    Standort = "VERAG AG"
+                Case 5601
+                    Standort = "Unisped GmbH"
+                Case 5701
+                    Standort = "AMBAR"
+                Case 4810,
+                    Standort = "VERAG GmbH"
+                Case 5103
+                    Standort = "VERAG CS"
+                Case 5501
+                    Standort = "IMEX"
+
+            End Select
+
+
+
+            Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cGesamtsicherheitsReferenz(Standort)
+
+            If GesSichRef Is Nothing Then
+                Exit Sub
+            End If
+
+            Dim saldo = GesSichRef.CalcSaldo()
+            If calcWarenwerte > saldo Then
+                MsgBox("Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert: " & calcWarenwerte & " übersteigt den vorhandenen Saldo von: " & saldo, MsgBoxStyle.Critical)
+            Else
+                MsgBox("Gestellung kann durchgeführt werden!")
+            End If
+
+
+
+
+        End If
+
+
+    End Sub
 End Class
--- a/Aviso/usrCntlSND_ATBGestellung.Designer.vb
+++ b/Aviso/usrCntlSND_ATBGestellung.Designer.vb
@@ -23,6 +23,7 @@ Partial Class usrCntlSND_ATBGestellung
    <System.Diagnostics.DebuggerStepThrough()>
    Private Sub InitializeComponent()
        Me.pnlT1 = New System.Windows.Forms.Panel()
+        Me.btnGesSicherheit = New System.Windows.Forms.Button()
        Me.Button1 = New System.Windows.Forms.Button()
        Me.cbxATBFakturieren = New System.Windows.Forms.CheckBox()
        Me.txtATBNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -36,6 +37,7 @@ Partial Class usrCntlSND_ATBGestellung
        '
        'pnlT1
        '
+        Me.pnlT1.Controls.Add(Me.btnGesSicherheit)
        Me.pnlT1.Controls.Add(Me.Button1)
        Me.pnlT1.Controls.Add(Me.cbxATBFakturieren)
        Me.pnlT1.Controls.Add(Me.txtATBNr)
@@ -49,6 +51,15 @@ Partial Class usrCntlSND_ATBGestellung
        Me.pnlT1.Size = New System.Drawing.Size(549, 101)
        Me.pnlT1.TabIndex = 0
        '
+        'btnGesSicherheit
+        '
+        Me.btnGesSicherheit.Location = New System.Drawing.Point(417, 3)
+        Me.btnGesSicherheit.Name = "btnGesSicherheit"
+        Me.btnGesSicherheit.Size = New System.Drawing.Size(113, 49)
+        Me.btnGesSicherheit.TabIndex = 25
+        Me.btnGesSicherheit.Text = "Gesamtsicherheit (Verwahrung)"
+        Me.btnGesSicherheit.UseVisualStyleBackColor = True
+        '
        'Button1
        '
        Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
@@ -192,5 +203,6 @@ Partial Class usrCntlSND_ATBGestellung
    Friend WithEvents Label4 As Label
    Friend WithEvents txtATBNr As VERAG_PROG_ALLGEMEIN.MyTextBox
    Friend WithEvents cbxATBFakturieren As CheckBox
+    Friend WithEvents btnGesSicherheit As Button
    Friend WithEvents Button1 As Button
 End Class
--- a/Aviso/usrCntlSND_ATBGestellung.vb
+++ b/Aviso/usrCntlSND_ATBGestellung.vb
@@ -1,8 +1,14 @@
 Imports DAKOSY_Worker
 Imports SDL

+Imports VERAG_PROG_ALLGEMEIN
+
+
 Public Class usrCntlSND_ATBGestellung

+    Dim _SendungsId As Object
+    Public firmaId As Integer
+
    'Public NCTS_GA As VERAG_PROG_ALLGEMEIN.cNCTSGestellungsadressen

    Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
@@ -10,6 +16,7 @@ Public Class usrCntlSND_ATBGestellung

    Sub New(AVISO, SND)

+
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

@@ -40,10 +47,96 @@ Public Class usrCntlSND_ATBGestellung
            MsgBox("Fehler beim Speichern. Ankunftsanzeige abgebrochen.")
        End If
        Me.Cursor = Cursors.Default
+    End Sub
+
+
+    Private Sub btnGesSicherheit_Click(sender As Object, e As EventArgs) Handles btnGesSicherheit.Click
+
+        If txtATBT1.Text <> "" Then
+
+            Dim Standort = ""
+
+            Select Case SND.FilialenNr
+                Case 4803, 4809
+                    Standort = "VERAG AG" : firmaId = 1
+                Case 5601
+                    Standort = "Unisped GmbH" : firmaId = 21
+                Case 5701
+                    Standort = "AMBAR" : firmaId = 24
+                Case 4810,
+                    Standort = "VERAG GmbH" : firmaId = 1
+                Case 5103
+                    Standort = "VERAG CS" : firmaId = 11
+                Case 5501
+                    Standort = "IMEX" : firmaId = 20
+
+            End Select
+
+
+            Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(Standort)
+
+            If GesSichRef Is Nothing Then
+                Exit Sub
+            End If
+
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+            Dim gsid As Integer = 0
+            Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & txtATBT1.Text & "' or ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' "
+
+
+
+            Dim dt As New DataTable
+            dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
+            If dt.Rows.Count > 0 Then
+                gsid = dt.Rows(0).Item("gs_gsNr")
+            End If
+
+            Dim frm As New frmGesamtsicherheitenNEU
+
+            If gsid > 0 Then
+                Dim gessicherheit As New cSicherheiten(gsid)
+                With frm
+                    .currentGesSichRef = GesSichRef
+                    .gessicherheitID = gessicherheit.gs_gsId
+                    .Standort = Standort
+                    .FilialNummer = gessicherheit.gs_filialenNr
+                    .Abfertigungsnummer = gessicherheit.gs_abfertigungsnr
+                    .warenortID = gessicherheit.gs_warenort
+                    .LKWKZ = gessicherheit.gs_LKWKZ
+                    .firmaId = firmaId
+                End With
+
+                AddHandler frm.FormClosing, Function()
+                                                GesSichRef.CalcSaldo()
+                                                Me.BringToFront()
+                                            End Function
+                frm.Show()
+            Else
+
+
+                With frm
+                    .currentGesSichRef = GesSichRef
+                    .Standort = Standort
+                    .datum = Date.Now
+                    .Neu = True
+                    .FilialNummer = SND.FilialenNr
+                    .Abfertigungsnummer = SND.AbfertigungsNr
+                    .firmaId = firmaId
+                End With
+                AddHandler frm.FormClosing, Function()
+                                                GesSichRef.CalcSaldo()
+                                                Me.BringToFront()
+                                            End Function
+                frm.Show(Me)
+
+            End If
+
+        End If

    End Sub


+
    'Public Sub setValues()
    '    txtATBT1.Text = If(NCTS_GA.nga_name, "")
    '    txtT1VerzollungsadresseStrasse.Text = If(NCTS_GA.nga_strasse, "")
--- a/Aviso/usrcntlAktDetails.vb
+++ b/Aviso/usrcntlAktDetails.vb
@@ -1533,8 +1533,8 @@ Public Class usrcntlAktDetails
    End Sub

    Sub ArrowDown_ShowHide()
-        If isFailureShown Then Exit Sub
        picArrowDown.Visible = False
+        If isFailureShown Then Exit Sub
        If dgvSendungen.RowCount = 0 Then Exit Sub
        Select Case tbcntlVermerke.SelectedIndex
            Case 0, 1, 2
@@ -1543,7 +1543,7 @@ Public Class usrcntlAktDetails
                    For Each r As DataGridViewRow In gridVermerke.Rows
                        If r.Displayed Then showFirst = True
                        If showFirst Then
-                            If (r.Cells("Hervorheben") IsNot Nothing AndAlso r.Cells("Hervorheben").Value = "1" Or r.Cells("VermerkeOptions") IsNot Nothing AndAlso r.Cells("VermerkeOptions").Value <> "") AndAlso Not r.Displayed Then
+                            If ((r.Cells("Hervorheben") IsNot Nothing AndAlso r.Cells("Hervorheben").Value = "1") Or (r.Cells("VermerkeOptions") IsNot Nothing AndAlso r.Cells("VermerkeOptions").Value <> "")) AndAlso Not r.Displayed Then
                                picArrowDown.Visible = True
                            End If
                        End If