Plose, Mailsender

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