asfinag, Proced. etc.

UID/usrctlProcedures.vb

@@ -11,8 +11,9 @@ Imports System.Xml.Serialization
 Imports Chilkat
 Imports Confluent.Kafka
 Imports DAKOSY_Worker
+Imports DAKOSY_Worker.FreierVerkehrAktVeredelUmwandlung_004
 Imports GrapeCity
-Imports iTextSharp.text.pdf
+Imports itextsharp.text.pdf
 Imports Microsoft.Office.Interop
 Imports PdfSharp.Drawing
 Imports PdfSharp.Pdf
@@ -587,7 +588,7 @@ Public Class usrctlProcedures
             For Each file As String In System.IO.Directory.GetFiles("C:\Users\DEVELOPER1\Desktop\Verpfl\Fahrer_NCTS_Verpflichtungserklärungen\") ' Ermittelt alle Dateien des Ordners 
                 Try
 
-                    Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader(file)
+                    Dim pdf As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader(file)
                     Dim stamper = New PdfStamper(pdf, New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Create))
                     Dim f = stamper.AcroFields
 
@@ -649,7 +650,7 @@ Public Class usrctlProcedures
         Return file
     End Function
     Sub pdf2()
-        Dim pdf As iTextSharp.text.pdf.PdfReader = New iTextSharp.text.pdf.PdfReader("C:\Users\DEVELOPER1\Desktop\Verpfl\test.pdf")
+        Dim pdf As itextsharp.text.pdf.PdfReader = New itextsharp.text.pdf.PdfReader("C:\Users\DEVELOPER1\Desktop\Verpfl\test.pdf")
 
 
         Using fw As New FileStream("C:\Users\DEVELOPER1\Desktop\Verpfl\tmp.pdf", FileMode.Open)
@@ -3682,7 +3683,7 @@ Public Class usrctlProcedures
                                                 DYIMPORT.Shipmentnummer = isleernothing((currentRow(138)))
                                                 DYIMPORT.Importstatus = isleernothing((currentRow(139)))
                                                 DYIMPORT.Importdate = Now()
-                                                DYIMPORT.Importfile = fd.FileName
+                                                DYIMPORT.Importfile = System.IO.Path.GetFileName(fd.FileName)
                                                 If DYIMPORT.SAVE() Then
                                                     TextBox10.Text &= DYIMPORT.Id & vbNewLine
                                                     If Not savedDY Then savedDY = True
@@ -3694,7 +3695,7 @@ Public Class usrctlProcedures
                                             If cnt Mod 10 = 0 Then
                                                 Application.DoEvents()
 
-                                                Label10.Text = (cnt + 1)
+                                                lblDakosyImport.Text = (cnt + 1)
                                             End If
 
                                         End If
@@ -4258,6 +4259,50 @@ Public Class usrctlProcedures
 
     End Sub
 
+    Private Sub Button52_Click(sender As Object, e As EventArgs) Handles Button52.Click
+
+        Dim dt As DataTable = SQL.loadDgvBySql("WITH Monate AS (
+    SELECT CAST('" & dtp_von.Value & "' AS DATE) AS MonatStart
+    UNION ALL
+    SELECT DATEADD(MONTH, 1, MonatStart)
+    FROM Monate
+    WHERE MonatStart < '" & dtpbis.Value & "'
+),
+Daten AS (
+    SELECT 
+        Teilnehmer,
+        YEAR(Überlassungsdatum) AS Jahr,
+        MONTH(Überlassungsdatum) AS Monat,
+        COUNT(*) AS DS_Anzahl
+    FROM [AVISO].[dbo].[tbl_DY_Zollmeldungen_Import]
+    WHERE Überlassungsdatum IS NOT NULL
+    GROUP BY Teilnehmer, YEAR(Überlassungsdatum), MONTH(Überlassungsdatum)
+),
+TeilnehmerListe AS (
+    SELECT DISTINCT Teilnehmer
+    FROM [AVISO].[dbo].[tbl_DY_Zollmeldungen_Import]
+)
+SELECT
+    t.Teilnehmer,
+    YEAR(m.MonatStart) AS Jahr,
+    MONTH(m.MonatStart) AS Monat,
+    ISNULL(d.DS_Anzahl, 0) AS DS_Anzahl
+FROM Monate m
+CROSS JOIN TeilnehmerListe t
+LEFT JOIN Daten d
+    ON d.Teilnehmer = t.Teilnehmer
+    AND d.Jahr = YEAR(m.MonatStart)
+    AND d.Monat = MONTH(m.MonatStart)
+ORDER BY Jahr DESC, Monat DESC, Teilnehmer DESC
+OPTION (MAXRECURSION 1000);", "AVISO") '
+
+
+        cProgramFunctions.genExcelFromDT_NEW(dt)
+
+
+
+    End Sub
+
 
 
     'Private Sub Button26_Click(sender As Object, e As EventArgs)