startOpt

initATLASAufschubkonten/frmStartOptions.vb

@@ -79,6 +79,7 @@ Public Class frmStartOptions
         txtUTAYear.Text = Now.Year
         txtIDSYear.Text = Now.Year
         txtGJ_UNISPED.Text = Now.Year
+        txtUTADate.Text = Today.ToShortDateString
 
         txtEZOLLAnhDat._value = Now.ToShortDateString
 
@@ -5487,4 +5488,21 @@ Public Class frmStartOptions
 
     End Sub
 
+    Private Sub lblUTAPDFvollst_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblUTAPDFvollst.LinkClicked
+
+
+        Dim fehlendeRechnungen As Integer = 0
+
+        fehlendeRechnungen = CInt((New SQL).getValueTxtBySql("select count(distinct(tblUTAImportNew.Abrechnungsnummer)) as Anzahl from tblUTAImportNew where daId is null and cast([Rechnungsdatum] as Date) = '" & txtUTADate.Text & "'", "FMZOLL"))
+
+        If fehlendeRechnungen > 0 Then
+
+            Dim hint As String = ""
+            If fehlendeRechnungen < 10 Then
+                hint &= (New SQL).getValueTxtBySql("select distinct(Rechnungsnummer_pro_Lieferland) from tblUTAImportNew where daId is null and cast(Rechnungsdatum as Date) = '" & txtUTADate.Text & "'", "FMZOLL")
+            End If
+            MsgBox("Es fehlen " & fehlendeRechnungen & " PDF-Rechnungen in der Datenbank!" & vbNewLine & "Diese Dokumente (von Rechnung " & txtUTADate.Text & ") müssen nachgeladen werden (bitte an Administrator wenden)." & IIf(hint <> "", vbNewLine & hint, ""))
+        End If
+
+    End Sub
 End Class