Merge branch 'master' of https://git.it.verag.ag/edv/AVISO

Aviso/Benachrichtigung/frmAvisoWeiterleiten.vb

@@ -330,8 +330,15 @@ Public Class frmAvisoWeiterleiten
                 Next
             End If
         ElseIf sender Is Button2 Then
-            addBtn(flpFirma, "W", "FO_WIHD", "KÖRFEZ 61", True, "VERAG")
+
-            addBtn(flpFirma, "W", "WO_MERIS", "MERIS", True, "VERAG")
+
+            Dim dt As DataTable = SQL.loadDgvBySql("SELECT grz_Grenzstelle, grz_Bezeichnung, grz_Firma  FROM tblGrenzstelle WHERE grz_FreigabeWeb = 1 and grz_Firma is not null order by grz_Grenzstelle", "AVISO")
+            If dt IsNot Nothing Then
+                For Each t In dt.Rows
+                    addBtn(flpFirma, "W", t("grz_Grenzstelle"), t("grz_Bezeichnung"), True, t("grz_Firma"))
+                Next
+            End If
+
 
         End If
 

Aviso/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("4.2.5.5")>
+<Assembly: AssemblyVersion("4.2.5.6")>
-<Assembly: AssemblyFileVersion("4.2.5.5")>
+<Assembly: AssemblyFileVersion("4.2.5.6")>

Aviso/usrCntlSND_ATBGestellung.vb

@@ -33,6 +33,7 @@ Public Class usrCntlSND_ATBGestellung
 
         Me.Refresh()
         Me.Cursor = Cursors.WaitCursor
+        Dim WarenwertEUR As Double = 0
 
         Dim f As frmSendungsdetailsNEU = Me.FindForm
         If f.SAVE_ME() Then
@@ -45,6 +46,13 @@ Public Class usrCntlSND_ATBGestellung
 
             If (SND.tblSnd_WarenwertWaehrung) Is Nothing Then MsgBox("Währungseinheit angeben!") : Exit Sub
 
+            If SND.tblSnd_WarenwertWaehrung <> "EUR" Then
+                Dim kurs As New cEZB_Waehrungskurse(SND.tblSnd_WarenwertWaehrung)
+                WarenwertEUR = Math.Round(kurs.EXCHANGE_CURTOEUR(SND.tblSnd_Warenwert, SND.tblSnd_WarenwertWaehrung, CDate(Today)), 2)
+            Else
+                WarenwertEUR = SND.tblSnd_Warenwert
+            End If
+
             If If(SND.tblSnd_ATB_T1, "") = "" Then MsgBox("MRN (Gestellung) angeben!") : Exit Sub
 
             If SND.tblSnd_T1_Frist IsNot Nothing AndAlso IsDate(SND.tblSnd_T1_Frist) Then
@@ -60,6 +68,12 @@ Public Class usrCntlSND_ATBGestellung
 
             End If
 
+            If WarenwertEUR = 0 Then
+                MsgBox("Warenwert in EUR ist mit 0 angegeben!")
+                Exit Sub
+
+            End If
+
             Dim Standort As String = ""
 
             Select Case SND.FilialenNr
@@ -103,13 +117,13 @@ Public Class usrCntlSND_ATBGestellung
 
             Dim saldo = CDbl(GesSichRef.CalcSaldo())
 
-            Dim sicherheitsbertrag As Double = SND.tblSnd_Warenwert * (GesSichRef.gsr_zollsatz / 100)
+            Dim sicherheitsbertrag As Double = WarenwertEUR * (GesSichRef.gsr_zollsatz / 100)
 
             If sicherheitsbertrag > saldo Then
-                If MsgBox("Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert: " & SND.tblSnd_Warenwert & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") übersteigt den vorhandenen Sicherheitssaldo von: " & saldo & vbNewLine & "Trotzdem fortfahren", vbYesNoCancel) <> vbYes Then Exit Sub
+                If MsgBox("Gestellung kann NICHT durchgeführt werden!" & vbNewLine & "Eingetragener Warenwert in EUR: " & WarenwertEUR & " (Sicherheitsbetrag: " & sicherheitsbertrag & ") ü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"), GesSichRef, Standort, gsnr_proLKW_global)
+            Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"), GesSichRef, Standort, WarenwertEUR, gsnr_proLKW_global)
 
             frMZA.Show()
 

Aviso/usrcntlAktDetails.vb

@@ -962,6 +962,7 @@ Public Class usrcntlAktDetails
                         If Not IsDBNull(row.Cells("anh_markiert").Value) Then
                             If row.Cells("anh_markiert").Value Then row.DefaultCellStyle.BackColor = Color.Yellow
                         End If
+
                     Next
 
                 End With
@@ -1339,8 +1340,13 @@ Public Class usrcntlAktDetails
                                     If Not existCodeInGridVermerke_VK(gridvermerke, r.Cells("VorauskasseId").Value) Then
                                         optionCell.Value = paarBez
                                         optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk '" & paarBez & "' einzutragen."
+
+                                        If Not existCodeInGridVermerke_UeberweisungsbelegErhalten(gridvermerke, r.Cells("VorauskasseId").Value) Then
+                                            r.DefaultCellStyle.BackColor = Color.Yellow 'gelb markiert, nur wenn Überweisungsbeleg noch nicht erhalten!
+                                        End If
+
                                     End If
-                                Else
+                                    Else
                                     If Not existCodeInGridVermerke_VK_OLD(gridvermerke, r.Cells("SendungID").Value) Then
                                         optionCell.Value = paarBez
                                         optionCell.ToolTipText = "Klicken Sie hier, um den Vermerk '" & paarBez & "' einzutragen."
@@ -1444,6 +1450,23 @@ Public Class usrcntlAktDetails
         Return False
     End Function
 
+    Shared Function existCodeInGridVermerke_UeberweisungsbelegErhalten(gridVermerke As DataGridView, VorauskasseId As Object) As Boolean
+
+        For Each r As DataGridViewRow In gridVermerke.Rows
+            If r.Cells("Geloescht").Value = False Then
+                Select Case If(DirectCast(r.Cells("VermerkeCode"), DataGridViewTextBoxCell).Value.ToString, "")
+                    Case 79
+                        If DirectCast(r.Cells("VorauskasseId"), DataGridViewTextBoxCell).Value.ToString = CStr(VorauskasseId) Then
+                            Return True
+                        End If
+                End Select
+            End If
+        Next
+        Return False
+    End Function
+
+
+
 
     Shared Function existCodeInGridVermerke_VK_OLD(gridVermerke As DataGridView, SendungID As Object) As Boolean