merge

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

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()
+                                                     SAVE_ME()
-                                                 AVISO.Grenzstelle = "???"
+                                                     AVISO.Grenzstelle = "???"
-                                                 AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
+                                                     AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
-                                                 cGlobal.Aktive_ID = AvisoId
+                                                     cGlobal.Aktive_ID = AvisoId
-                                                 Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
+                                                     Dim frmGrayOut = VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO.grayoutForm()
-                                                 Dim f As New frmEintragAviso
+                                                     Dim f As New frmEintragAviso
-                                                 f.ShowDialog(frmGrayOut)
+                                                     f.ShowDialog(frmGrayOut)
-                                                 frmGrayOut.Close()
+                                                     frmGrayOut.Close()
-                                                 AVISO = AvisoDAL.LesenAviso(AvisoId, "")
+                                                     AVISO = AvisoDAL.LesenAviso(AvisoId, "")
-                                             Else
+                                                 Else
-                                                 SAVE_ME()
+                                                     SAVE_ME()
-                                                 AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
+                                                     AvisoStatusFunctions.ummeldenAVISO(AVISO, it.Tag.ToString)
-                                             End If
+                                                 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 AVISO.Auftraggeber_KdNr > -1 Then
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
+                    If VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromKdNr(AVISO.Auftraggeber_KdNr) = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(cboFiliale._value) Then
-                    txtAvisierer.KdNr = AVISO.Auftraggeber_KdNr
+                        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>")
+                            TextHTML = TextHTML.Replace("%VAR-GRENZE%", lblGrenze.Text & "<br>")
-                                    Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", lblGrenze.Text.Replace(vbCrLf, " "))
+                            Mail.Subject = Mail.Subject.Replace("%VAR-GRENZE%", lblGrenze.Text.Replace(vbCrLf, " "))
-                                End If
+                        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("%ImEx%", "")
-                            Mail.Subject = Mail.Subject.Replace("%Zollstelle%", "")
+                        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("%ImEx%", "")
-                            TextHTML = TextHTML.Replace("%Zollstelle%", "")
+                        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

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

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

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