66 lines
2.5 KiB
VB.net
66 lines
2.5 KiB
VB.net
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 |