Laufzettel DTB, USTV Anpassungen, USTV Kundenstamm, Docs, Messanger DoubleBuffer

SDL/USTV/usrCntlUSTV.vb

@@ -6,14 +6,22 @@ Public Class usrCntlUSTV
 
 
     Dim kundenSQL As New kundenSQL
-    Dim SQL As New SQL
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim FUNC As New cProgramFunctions
     Dim aktbtn As String = ""
     Dim dgvInitWait As Boolean = False
+    Public kdNr As Integer = -1
 
-
-    Sub init()
+    Sub init(Optional kdNr = -1)
         pnlFilter.AutoScroll = False
+        '  MsgBox(kdNr)
+        If kdNr > 0 Then
+            Me.kdNr = kdNr
+            KdSearchBox1.KdNr = kdNr
+            KdSearchBox1.Enabled = False
+        End If
+
+        btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
 
         With dgvUSTV
             .ClearSelection()
@@ -114,6 +122,10 @@ Public Class usrCntlUSTV
     Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         ' btnFilter.Left = Panel4.Width - btnFilter.Width
         KdSearchBox1.initKdBox(Me.FindForm)
+        If kdNr > 0 Then
+            KdSearchBox1.KdNr = kdNr
+            KdSearchBox1.Enabled = False
+        End If
         init()
         cboJahr.Items.Clear()
         cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -194,4 +206,30 @@ Public Class usrCntlUSTV
             End If
         ' End If
     End Sub
+
+    Private Sub btnPLOSEAlle_Click(sender As Object, e As EventArgs) Handles btnPLOSEAlle.Click
+        Try
+            Me.Cursor = Cursors.WaitCursor
+            If KdSearchBox1.KdNr <= 0 Then Exit Sub
+            If cboJahr._value = "" Then Exit Sub
+            If cboJahrBis._value = "" Then Exit Sub
+
+            Dim cnt = SQL.getValueTxtBySql(" SELECT  COUNT(*)   FROM [tblUStVAntrag] where UStVAn_AntragEingereichtAm is null AND UStVAn_KuNr=" & KdSearchBox1.KdNr & "  AND UStVAn_ReDatVon>='01.01." & cboJahr._value & "' AND UStVAn_ReDatBis<='31.12." & cboJahrBis._value & "'", "FMZOLL")
+            If cnt = 0 Then MsgBox("Keine einreichbaren Anträge gefunden!") : Exit Sub
+
+            If vbYes = MsgBox("Es werden PLOSE Daten für " & cnt & " USTV-Anträge eingearbeitet. Möchten Sie fortfahren?", vbYesNoCancel) Then
+                For Each r As DataGridViewRow In dgvUSTV.Rows
+                    If r.Cells("UStVAn_AntragEingereichtAm").Value Is DBNull.Value Then ' OrElse r.Cells("UStVAn_AntragEingereichtAm").Value = "" Then
+                        'Dim Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & r.Cells("UStVAn_LandNr").Value & "'", "FMZOLL")
+                        frmMDM_USTVAntrag.loadUSTVFrom_PLOSE(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
+                    End If
+                Next
+            End If
+            init()
+            MsgBox("Fertig!")
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class