API-Filter, Sendungsdetails, etc.

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -6,6 +6,7 @@ Public Class frmFaktSammelRgDrucken
     Dim Firma = 1
     Dim loaded = False
     Dim dTLANDEU As New DataTable
+    Dim automailversand As Boolean = False
 
     Sub New()
 
@@ -58,7 +59,7 @@ Public Class frmFaktSammelRgDrucken
             Case 7 : txtZeitraumBis.Text = Now.ToShortDateString : lblSB.Visible = True : cboSB.Visible = True : cboSB.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME)
         End Select
 
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then cbxAUTOMail.Visible = True : pnlAUTOMailversand.Visible = True
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTOMAILVERSAND", "SDL") Then cbxAUTOMail.Visible = True : pnlAUTOMailversand.Visible = True : automailversand = True
 
         initDGV()
 
@@ -215,7 +216,7 @@ Public Class frmFaktSammelRgDrucken
                     .Columns("RENR").Visible = False
                 End If
 
-                If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+                If automailversand Then
                     .Columns("RENR").Visible = True
                 End If
 

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -547,7 +547,7 @@ Public Class usrCntlFaktAbrechnung
             FirmaTmp = "VERAG360"
         End If
 
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AUTOMAILVERSAND", "SDL") Then
             cbxAUTOMailversand.Visible = True
         End If
 
@@ -5697,12 +5697,12 @@ mwst:
 
             End If
 
-            If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+        '    If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-            'Button8.Enabled = Not enableAUTOMAIL
+        '    'Button8.Enabled = Not enableAUTOMAIL
-            'Button9.Enabled = Not enableAUTOMAIL
+        '    'Button9.Enabled = Not enableAUTOMAIL
-            'Button4.Enabled = Not enableAUTOMAIL
+        '    'Button4.Enabled = Not enableAUTOMAIL
-            'Button16.Enabled = Not enableAUTOMAIL
+        '    'Button16.Enabled = Not enableAUTOMAIL
-        End If
+        'End If
 
 
         Return enableAUTOMAIL

SDL/USTV/usrCntlUSTV.vb

@@ -1880,6 +1880,26 @@ Public Class usrCntlUSTV
 
                 If dt.Rows.Count > 0 Then
 
+
+                    Dim frm As New Form
+                    Dim dgv As New DataGridView()
+
+
+                    dgv.DataSource = dt
+                    If dgv IsNot Nothing Then
+                        frm.Size = New Size(1400, 1000)
+                        dgv.Size = New Size(frm.Size.Width - 50, frm.Size.Height - 50)
+                        dgv.Dock = DockStyle.Fill
+                        dgv.Anchor = AnchorStyles.Left
+                        dgv.Anchor = AnchorStyles.Top
+                        dgv.ReadOnly = True
+                        frm.Controls.Add(dgv)
+                        frm.StartPosition = FormStartPosition.CenterScreen
+                        frm.ShowDialog()
+                    End If
+
+
+
                     If vbYes = MsgBox("Es wurden " & dt.Rows.Count & " Datensätze erkannt. " & vbNewLine & "Sollen diese eingearbeitet werden?", vbYesNoCancel) Then
 
                         For Each r As DataRow In dt.Rows
@@ -1908,6 +1928,9 @@ Public Class usrCntlUSTV
                                 Dim UStV_ERS = New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen()
                                 UStV_ERS.UStVEr_ID = USTV_ANTRAG.getMaxPosNrErst()
                                 UStV_ERS.UStVEr_interneNr = USTV_ANTRAG.getMaxinternePosNrErst()
+                                UStV_ERS.UStVAn_ID = USTV_ANTRAG.UStVAn_ID
+
+
 
                             End If
 
@@ -1953,7 +1976,8 @@ Public Class usrCntlUSTV
 
         Catch ex As Exception
 
-            MessageBox.Show(ex.Message & Environment.NewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+
 
         End Try
 

VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb

@@ -118,7 +118,6 @@ Public Class cSendungen
     Property tblSnd_Cluster As Object = Nothing
     Property tblSnd_ATBFakturieren As Object = Nothing
 
-
     Public saveSachbearbeiter As Boolean = False
 
     Property ABRECHNUNG As New List(Of cSendungAbrechnung)