AVISO, etc.

Aviso/usrCntlSND_ATBGestellung.vb

@@ -13,6 +13,7 @@ Public Class usrCntlSND_ATBGestellung
 
     Dim AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
     Dim SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
+    Dim gsnr_global As Integer = -1
 
     Sub New(AVISO, SND)
 
@@ -34,11 +35,25 @@ Public Class usrCntlSND_ATBGestellung
 
         Dim f As frmSendungsdetailsNEU = Me.FindForm
         If f.SAVE_ME() Then
+
             SND = f.SENDUNG_LIST(f.CURRENT_INDEX)
 
             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
 
+            If SND.tblSnd_T1_Frist IsNot Nothing AndAlso IsDate(SND.tblSnd_T1_Frist) Then
+                If CDate(SND.tblSnd_T1_Frist) <= Today() Then
+                    '-> OK
+                Else
+                    MsgBox("T1 Frist ist abgelaufen!")
+                    Exit Sub
+                End If
+            Else
+                MsgBox("T1 Frist muss befüllt werden")
+                Exit Sub
+
+            End If
+
             Dim Standort As String = ""
 
             Select Case SND.FilialenNr
@@ -81,13 +96,20 @@ Public Class usrCntlSND_ATBGestellung
             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
+
+            Dim sicherheitsbertrag As Double = SND.tblSnd_Warenwert * (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
             End If
 
-            Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"))
+            Dim frMZA As New SDL.frmZollanmeldung("AA", Nothing, AVISO, SND, Now.ToString("yy"), GesSichRef, Standort)
+
             frMZA.Show()
+
+
             AddHandler frMZA.FormClosed, Sub()
+                                             initGesamtsicherheiten()
                                              '     initdgvZollAnmeldungen()
                                          End Sub
         Else
@@ -115,7 +137,7 @@ Public Class usrCntlSND_ATBGestellung
             End If
         End If
 
-        'falls nicht gefunden, 2 Schritt -> Gestellung nach AVISO ID, oder Aberftigungsnrand FilialNr
+        'falls nicht gefunden, 2 Schritt -> Gestellung nach AVISO ID, oder Aberftigungsnr and FilialNr
         If gsnr = 0 Then
             Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc"
             dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
@@ -124,13 +146,13 @@ Public Class usrCntlSND_ATBGestellung
             End If
         End If
 
-
+        gsnr_global = gsnr
 
         If gsnr > 0 Then
 
             Dim gessicherheit As New cSicherheiten(gsnr)
             Dim GesSichRef = New VERAG_PROG_ALLGEMEIN.cAufschubKonten(gessicherheit.gs_standort)
-            Dim frm As New frmGesamtsicherheitenNEU
+            Dim frm As New frmGesamtsicherheitenNEU()
 
             Select Case gessicherheit.gs_standort
                 Case "Verag GmbH"
@@ -243,6 +265,58 @@ Public Class usrCntlSND_ATBGestellung
 
     End Sub
 
+    Private Sub usrCntlSND_ATBGestellung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+
+        initGesamtsicherheiten()
+
+    End Sub
+
+
+    Private Sub initGesamtsicherheiten()
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim gsnr As Integer = 0
+        Dim sqlWhere = ""
+
+        Dim dt As New DataTable
+
+        If SND.tblSnd_ATB_T1 IsNot Nothing Then txtATBT1.Text = SND.tblSnd_ATB_T1.ToString
+
+        '1.Schritt -> Gestellung nach aktuellster ATB-NR
+        If txtATBT1.Text <> "" Then
+            Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where [gs_ATBNr] = '" & txtATBT1.Text & "' order by gs_datum desc"
+            dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
+            If dt.Rows.Count > 0 Then
+                gsnr = dt.Rows(0).Item("gs_gsNr")
+            End If
+        End If
+
+        'falls nicht gefunden, 2 Schritt -> Gestellung nach AVISO ID, oder Aberftigungsnr and FilialNr
+        If gsnr = 0 Then
+            Dim SQLString As String = "Select top (1) gs_gsNr from [tblGesamtsicherheit] where ([gs_filialenNr] = '" & SND.FilialenNr & "' and [gs_abfertigungsNr] = " & SND.AbfertigungsNr & " ) or gs_avisoId = '" & SND.tblSnd_AvisoID & "' order by gs_datum desc"
+            dt = SQL.loadDgvBySql(SQLString, "AVISO", 100, True)
+            If dt.Rows.Count > 0 Then
+                gsnr = dt.Rows(0).Item("gs_gsNr")
+            End If
+        End If
+
+        gsnr_global = gsnr
+
+        If gsnr_global > 0 Then
+
+            btnGesSicherheit.Enabled = True
+            Button1.Enabled = False
+        Else
+            btnGesSicherheit.Enabled = False
+            Button1.Enabled = True
+
+        End If
+
+    End Sub
+
+    Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged
+        txtT1Datum._value = CDate(sender.value).ToShortDateString
+    End Sub
 
 
     'Public Sub setValues()