Plose, Mailsender

2026-02-25 11:11:30 +01:00
parent e0490748f4
commit 3e13a40622
4 changed files with 174 additions and 3 deletions
--- a/initATLASAufschubkonten/frmStartOptions.Designer.vb
+++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb
@@ -380,6 +380,7 @@ Partial Class frmStartOptions
        Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.txtGJ_UNISPED = New VERAG_PROG_ALLGEMEIN.MyTextBox()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.btnCheckPDF_USTVA = New System.Windows.Forms.Button()
        Me.pnl.SuspendLayout()
        CType(Me.pbEmailscheck, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.PictureBox24, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -3392,6 +3393,7 @@ Partial Class frmStartOptions
        '
        'TabPage5
        '
+        Me.TabPage5.Controls.Add(Me.btnCheckPDF_USTVA)
        Me.TabPage5.Controls.Add(Me.cbxPloseNeu)
        Me.TabPage5.Controls.Add(Me.Label44)
        Me.TabPage5.Controls.Add(Me.cbxITalt)
@@ -5065,6 +5067,18 @@ Partial Class frmStartOptions
        Me.DataGridViewTextBoxColumn1.MinimumWidth = 8
        Me.DataGridViewTextBoxColumn1.Name = "DataGridViewTextBoxColumn1"
        '
+        'btnCheckPDF_USTVA
+        '
+        Me.btnCheckPDF_USTVA.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnCheckPDF_USTVA.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.btnCheckPDF_USTVA.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.btnCheckPDF_USTVA.Location = New System.Drawing.Point(656, 37)
+        Me.btnCheckPDF_USTVA.Name = "btnCheckPDF_USTVA"
+        Me.btnCheckPDF_USTVA.Size = New System.Drawing.Size(187, 38)
+        Me.btnCheckPDF_USTVA.TabIndex = 168
+        Me.btnCheckPDF_USTVA.Text = "Check PDF"
+        Me.btnCheckPDF_USTVA.UseVisualStyleBackColor = True
+        '
        'frmStartOptions
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -5504,4 +5518,5 @@ Partial Class frmStartOptions
    Friend WithEvents dgv_MDMEinarbeitung As VERAG_PROG_ALLGEMEIN.MyDatagridview
    Friend WithEvents PictureBox27 As PictureBox
    Friend WithEvents Button30 As Button
+    Friend WithEvents btnCheckPDF_USTVA As Button
 End Class
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -124,6 +124,11 @@ Public Class frmStartOptions

        'Standart-Errorverhalten ist MAIL
        VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.SQLGUIDE01_USED Then
+            lblRoutineManager.Text &= " UNLEASHED"
+        End If
+
        If PARAM <> "" Then
            'LOG
        End If
@@ -5772,7 +5777,7 @@ Public Class frmStartOptions
                    End If

                Next
-                MsgBox(i & " Rechnungspositionen wurden aktualisiert." & IIf((i < dtRE.Rows.Count), vbNewLine & " Zu den anderen " & dtRE.Rows.Count - i & " Rechnungen konnte keine Verknüpfung gefunden werden!", ""))
+                MsgBox(i & " Rechnungspositionen wurden aktualisiert." & IIf((i < dtRE.Rows.Count), vbNewLine & " Zu den anderen " & dtRE.Rows.Count - i & " Rechnungspositionen konnte keine Verknüpfung gefunden werden!", ""))
            End If
        Else
            MsgBox("Keine Rechnungen mit MRN-Präfix" & txtMRNPrefix.Text)
@@ -7264,7 +7269,7 @@ repeatRequest:
    Private Sub lblIDS_plauscheck_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblIDS_plauscheck.LinkClicked

        Dim IDS As cIDS
-        Dim dt = IDS.checkInvoices()
+        Dim dt = IDS.checkPDFInvoices()

        If dt.Rows.Count > 0 Then

@@ -7430,5 +7435,125 @@ repeatRequest:
        End If


+    End Sub
+
+    Private Sub btnCheckPDF_USTVA_Click(sender As Object, e As EventArgs) Handles btnCheckPDF_USTVA.Click
+
+        Dim USTVA_PDFS_AUS_DA As String = "select Replace(da_uOrdner3,'USTVA_','') as USTVA, da_id, da_date from tblDatenarchiv where da_uordner2 = 'MDM_DATEN' and da_uOrdner3 like 'USTVA_%' order by da_KundenNr,da_uOrdner3"
+
+        VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
+
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim dtRechnnungsdaten As DataTable = SQL.loadDgvBySql(USTVA_PDFS_AUS_DA, "FMZOLL")
+
+        Dim dt_falscheEintraege As New DataTable
+
+        If dtRechnnungsdaten.Rows.Count > 0 Then
+
+            dt_falscheEintraege.Columns.Add("daid", GetType(Integer))
+            dt_falscheEintraege.Columns.Add("id", GetType(Integer))
+            dt_falscheEintraege.Columns.Add("pos", GetType(Integer))
+            dt_falscheEintraege.Columns.Add("pos_new", GetType(Integer))
+            dt_falscheEintraege.Columns.Add("posAfterDaId", GetType(Integer))
+            dt_falscheEintraege.Columns.Add("Path", GetType(String))
+            dt_falscheEintraege.Columns.Add("deleted", GetType(Boolean))
+
+            For Each r As DataRow In dtRechnnungsdaten.Rows
+
+                Dim Bez As String = r.Item("USTVA")
+
+                Dim ID As String = Bez.Substring(0, Bez.IndexOf("_"))
+                Dim POS As String = Bez.Substring(Bez.IndexOf("_") + 1, Bez.Length - (Bez.IndexOf("_") + 1))
+
+                If IsNumeric(ID) AndAlso IsNumeric(POS) Then
+
+                    Dim cUSTVA As New cUSTVAntrag(CInt(ID))
+
+                    Dim cUSTVA_POS As New cUStVPositionen(CInt(ID), CInt(POS), CInt(POS))
+
+                    If Not cUSTVA.hasEntry Then
+
+                        Dim ROW As DataRow = dt_falscheEintraege.NewRow
+                        ROW("id") = ID
+                        ROW("pos") = -1
+                        ROW("daid") = r.Item("da_id")
+
+                        Dim DS As New cDATENSERVER(ROW("daid"))
+
+                        If DS.hasITEMS Then
+                            ROW("Path") = DS.GET_TOP1_PATH
+
+                            Dim exists = SQL.getValueTxtBySql("SELECT UStVPo_ID FROM [tblUStVPositionen] WHERE UStVPo_daId =" & r.Item("da_id") & " AND UStVPo_SchnittstellenNr <> 1", "FMZOLL",,, -1)
+                            If exists <= 0 Then 'OK-> löschen
+                                If DS.DELETE_COMPLETE() Then
+                                    ROW("deleted") = True
+                                End If
+                            Else
+                                ROW("deleted") = False
+                                ROW("pos_new") = exists
+                            End If
+
+                            dt_falscheEintraege.Rows.Add(ROW)
+                        End If
+
+
+                    ElseIf Not cUSTVA_POS.hasEntry Then
+
+                        Dim ROW As DataRow = dt_falscheEintraege.NewRow
+                        ROW("id") = ID
+                        ROW("pos") = POS
+                        ROW("daid") = r.Item("da_id")
+
+                        Dim DS As New cDATENSERVER(ROW("daid"))
+
+                        If DS.hasITEMS Then
+                            ROW("Path") = DS.GET_TOP1_PATH
+                            ROW("deleted") = False
+
+                            'check if daid nicht bei anderen POS verknüpft (wenn nicht, dann löschen!)
+                            Dim exists = SQL.getValueTxtBySql("SELECT UStVPo_ID FROM [tblUStVPositionen] WHERE UStVPo_daId =" & r.Item("da_id") & " AND UStVPo_SchnittstellenNr <> 1", "FMZOLL",,, -1)
+                            If exists <= 0 Then 'OK-> löschen
+                                If DS.DELETE_COMPLETE() Then
+                                    ROW("deleted") = True
+                                End If
+                            Else
+                                ROW("deleted") = False
+                                ROW("pos_new") = exists
+                            End If
+
+                        End If
+
+                        dt_falscheEintraege.Rows.Add(ROW)
+
+
+                    ElseIf Not IsDBNull(r.Item("da_date")) Then
+
+                        If cUSTVA_POS.UStVPo_Zeitstempel > CDate(r.Item("da_date")) Then
+
+                            Dim ROW As DataRow = dt_falscheEintraege.NewRow
+                            ROW("id") = ID
+                            ROW("pos") = POS
+                            ROW("daid") = r.Item("da_id")
+                            ROW("posAfterDaId") = 1
+                            ROW("deleted") = False
+
+                            dt_falscheEintraege.Rows.Add(ROW)
+                        End If
+
+
+                    End If
+
+                End If
+
+            Next
+
+            If dt_falscheEintraege.Rows.Count > 0 Then
+                VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt_falscheEintraege)
+            End If
+
+
+        End If
+
+
    End Sub
 End Class