Merge branch 'master' of https://dev.azure.com/VeragAG/_git/AVISO

Aviso/frmGesamtsicherheitenMenuNEU.vb

@@ -34,7 +34,7 @@ Public Class frmGesamtsicherheitenMenuNEU
 
 
         cbxStandort.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
-        cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1' AND [wo_firma] = '" & firmaId & "' ORDER BY [wo_reihenfolge]  ", True, "AVISO", True)
+        cbxWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] ='1'  ORDER BY [wo_reihenfolge]  ", True, "AVISO", True) 'AND [wo_firma] = '" & firmaId & "'
         cbxWarenort.DropDownWidth = 150
 
         Me.Text = "Gesamtsicherheiten " & Standort

Aviso/frmGesamtsicherheitenNEU.vb

@@ -75,7 +75,7 @@ Public Class frmGesamtsicherheitenNEU
             panOverlay.Visible = True
 
             cboFiliale.fillWithSQL("SELECT FilialenNr, cast(FilialenNr as varchar(4)) + ' ' + Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True)
-            cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1 AND [wo_firma] = " & firmaId & " AND wo_ze = 1  ORDER BY [wo_reihenfolge]  ", True, "AVISO", True)
+            cboWarenort.fillWithSQL("SELECT [wo_warenort],CONCAT([wo_bezeichnung],' - ' ,[wo_knnr]) FROM [tblWarenorte] WHERE [wo_aktiv] = 1  AND wo_ze = 1  ORDER BY [wo_reihenfolge]  ", True, "AVISO", True) 'AND [wo_firma] = " & firmaId & "
 
             If datum = Nothing Then datum = Date.Now
             nextGessicherheitID = -1

Aviso/frmSendungsdetailsNEU.vb

@@ -7411,48 +7411,15 @@ Public Class frmSendungsdetailsNEU
         End If
 
 
-        If Math.Round(calcWarenwerte, 2) <> Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2) Then
+        If Math.Round(calcWarenwerte, 2) <> Math.Round(SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert, 2) AndAlso SENDUNG_LIST(CURRENT_INDEX).tblSnd_Warenwert <> "" 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 = ""
+            txtWarenwert.Text = Math.Round(calcWarenwerte, 2)
-
+            If txtWarenwertWaehrung._value = "" Then
-
+                txtWarenwertWaehrung._value = "EUR"
-            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
 
 

Aviso/usrCntlSND_ATBGestellung.vb

@@ -38,6 +38,33 @@ Public Class usrCntlSND_ATBGestellung
 
             If Not IsNumeric(SND.AbfertigungsNr) OrElse CInt(SND.AbfertigungsNr) < 100000 Then MsgBox("Abfertigungsnummer angeben!") : Exit Sub
             If If(SND.tblSnd_ATB_T1, "") = "" Then MsgBox("MRN (Gestellung) angeben!") : Exit Sub
+
+            Dim Standort As String = ""
+
+            Select Case SND.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 MsgBox("Verwahrungsreferenz kann nicht ermittelt werden!") : Exit Sub
+
+            Dim saldo = CDbl(GesSichRef.CalcSaldo())
+            If SND.tblSnd_Warenwert > saldo Then
+                If MsgBox("Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert: " & SND.tblSnd_Warenwert & " übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub
+            End If
+
             Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"))
             frMZA.Show()
             AddHandler frMZA.FormClosed, Sub()

Aviso/usrcntlAktDetails.vb

@@ -1329,7 +1329,7 @@ Public Class usrcntlAktDetails
             For Each r As DataGridViewRow In gridvermerke.Rows
                 '  If r.Cells("VermerkeOptions").GetType.Name = "DataGridViewLinkCell" Then
                 Dim optionCell As DataGridViewLinkCell = DirectCast(r.Cells("VermerkeOptions"), DataGridViewLinkCell)
-                If CBool(r.Cells("Hervorheben").Value) Then
+                If gridvermerke.Columns.Contains("Hervorheben") AndAlso CBool(r.Cells("Hervorheben").Value) Then
                     'r.DefaultCellStyle.BackColor = Color.Firebrick
                     'r.DefaultCellStyle.ForeColor = Color.White
                     r.DefaultCellStyle.BackColor = Color.Yellow
@@ -1543,7 +1543,8 @@ 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 (gridVermerke.Columns.Contains("Hervorheben") AndAlso (r.Cells("Hervorheben") IsNot Nothing AndAlso r.Cells("Hervorheben").Value = "1") Or (gridVermerke.Columns.Contains("VermerkeOptions") AndAlso r.Cells("VermerkeOptions") IsNot Nothing AndAlso r.Cells("VermerkeOptions").Value <> "")) AndAlso Not r.Displayed Then
                                 picArrowDown.Visible = True
                             End If
                         End If