REST

VERAG_REST_SERVER/Controllers/ATEZ/ATEZController CBAM.vb

@@ -0,0 +1,66 @@
+Imports Microsoft.Web.Http
+
+
+Namespace ApiController.Controllers
+
+
+    Public Class ATEZControllerCBAM
+        Inherits System.Web.Http.ApiController
+
+        ''' <summary>
+        ''' Delivers the CBAM-Data
+        ''' Currently only data for DE and Q3 2024 available.
+        ''' </summary>
+        ''' 
+        ''' <returns>Base64 String with CBAM-Data</returns>
+        ''' 
+        ''' <response code="200">Request OK and returns CBAM Data as Base64 String</response>
+        ''' <response code="400">Returns Parameter are not valid</response>
+        ''' 
+        <ApiVersion("001")>
+        <System.Web.Http.Route("api/v{version:apiVersion}/cbam")>
+        <BasicAuthentication>
+        Public Function getCBAM(ByVal Firma As String, country As String, Year As Integer, Quarter As Integer, DirectRepresenation As Boolean) As String
+            Dim Teilnehmner = ""
+            Dim von As Date
+            Dim bis As Date
+            Select Case Firma
+                Case "VERAG" : Teilnehmner = "SUB"
+                Case "IMEX" : Teilnehmner = "IME"
+                Case "UNISPED" : Teilnehmner = "UNAT"
+            End Select
+
+            Select Case Quarter
+                Case 1 : von = New Date("01.01." & Year) : bis = New Date("30.03" & Year)
+                Case 2 : von = New Date("01.04." & Year) : bis = New Date("30.06" & Year)
+                Case 3 : von = New Date("01.07." & Year) : bis = New Date("30.09" & Year)
+                Case 4 : von = New Date("01.10." & Year) : bis = New Date("31.12" & Year)
+            End Select
+
+            'country aktuell nur DE -> Weil aktuell nur DAKOSY-Datensätzr
+            'Year aktuell nur 2024 Datensätze
+            'Quartal aktuell nur q3 Datensätze
+
+            Dim where = "where 1 = 1 "
+            If Teilnehmner <> "" Then where &= "and Teilnehmer =" & Teilnehmner
+            where &= "and [Vertreter_des_Anmelders] = " & IIf(DirectRepresenation, "1", "2")
+            where &= "and [Überlassungsdatum] is between" & von & " and " & bis
+
+            Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+            Dim sqlString = "select * from tbl_DY_Zollmeldungen_Import " & where
+
+
+
+            Dim dt As DataTable = sql.loadDgvBySql(sqlString, "AVISO")
+            If dt.Rows.Count > 0 Then
+
+                Dim Bytes = System.IO.File.ReadAllBytes(VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt))
+                Return Convert.ToBase64String(Bytes)
+
+            End If
+
+        End Function
+
+    End Class
+
+End Namespace