edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

RedBull_Auswertung

Browse Source
This commit is contained in:
d.breimaier
2023-05-23 14:53:48 +02:00
parent 3492492c3f
commit 33e6ff5a65
1 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
MailSender/MAILSender.vb
View File

@@ -202,7 +202,7 @@ Module Mail
Dim KdNr As String = "756313"
System.Console.WriteLine("OPTION erkannt: RED_BULL _ Erstellt eine monaltiche Auswertung der DAKSOY-Abfertigungen für RED_BULL.")
System.Console.WriteLine("Auswertung Details gestartet...")
If SendEmail_RED_BULL("al@verag.ag", KdNr, von, bis) Then 'für Andreas Details
If SendEmail_RED_BULL("d.breimaier@verag.ag", KdNr, von, bis) Then 'für Andreas Details
System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...")
End If
Case "QS_AUFTEILUNG"
@@ -537,7 +537,7 @@ Module Mail
Dim anhenge As New List(Of String)
anhenge.Add(excel)
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mailto, Subject, Body,,, False,, "al@verag.ag", anhenge) Then
If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(Mailto, Subject, Body,,, False,, "d.breimaier@verag.ag", anhenge) Then
System.Console.WriteLine("E-Mail gesendet.")
System.Console.WriteLine("Erfolgreich!")
Else
@@ -1348,24 +1348,29 @@ Module Mail
Public Function genEXCEL_RED_BULL(KdNr As String, von As Date, bis As Date) As String
Try
Dim KUNDENADR = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr)
Dim sqlstr As String = ""
sqlstr &= " SELECT XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX"
sqlstr &= " "
sqlstr &= " "
sqlstr &= " "
sqlstr &= " "
sqlstr &= " "
sqlstr &= " "
sqlstr &= " SELECT [FilialenNr],[AbfertigungsNr],[Abfertigungsdatum],[BelegNr] [CNR/MRN],[LKW Kennzeichen],[Absender],[Versendungsland] AbsenderLand,[Empfänger],(select lah.LandKz FROM Adressen inner join [Währungstabelle] on [Währungstabelle] .LandKz=Adressen.LandKz inner join [Länderverzeichnis für die Außenhandelsstatistik] as lah on Währungstabelle.Währungsschlüssel= lah.[LandNr] where AdressenNr=EmpfängerKundenNr)[EmpfängerLand],[Packstücke]"
sqlstr &= ",[Rohmasse],[Abfertigungsart],[Abfertigungsanzahl],[AtlasBezNrEZA],[AtlasBezNrNCTS] ,isnull([AtlasBezNrAES],'')[AtlasBezNrAES],Zollsystem"
sqlstr &= ", case when [AtlasBezNrEZA] <> '' Then EZA.eza_Trans_DatumZeit else NCTS.ncts_Trans_DatumZeit End as ATLAS_DateOfDispatch"
sqlstr &= ", case when [AtlasBezNrEZA] <> '' Then EZA.eza_ANR else NCTS.ncts_MRN End as ATLAS_MRN"
sqlstr &= ", case when [AtlasBezNrEZA] <> '' Then (SELECT isnull(ADR.ezaAd_NameFirma1,'') FROM [tblDakosy_EZA_Adressen] as ADR WHERE EZA.eza_id=ADR.ezaAd_EZAId and ADR.ezaAd_AdressTyp='CN') else NCTS.ncts_Empfaenger_Name End as ATLAS_Empfaenger"
sqlstr &= ", case when [AtlasBezNrEZA] <> '' Then (SELECT isnull(ADR.ezaAd_NameFirma1,'') FROM [tblDakosy_EZA_Adressen] as ADR WHERE EZA.eza_id=ADR.ezaAd_EZAId and ADR.ezaAd_AdressTyp='CZ') else NCTS.ncts_Versender_Name End as ATLAS_Versender"
sqlstr &= ", case when [AtlasBezNrEZA] <> '' Then EZA.eza_Bestimmungsland else NCTS.ncts_BestimmungslandCode End as ATLAS_Empfängerland"
sqlstr &= ", case when [AtlasBezNrEZA] <> '' Then EZA.eza_VersendungsLandCode else NCTS.ncts_VersendungsLandCode End as ATLAS_Versendungsland"
sqlstr &= " ,case when [AtlasBezNrEZA] <> '' Then (SELECT ezaWP_BeguenstigungBenatragtCode + ', ' FROM [tblDakosy_EZA_Warenposition] As T2 WHERE T2.ezaWP_EzaId = EZA.eza_id ORDER BY ezaWP_BeguenstigungBenatragtCode FOR XML PATH (''), TYPE) else (SELECT nctsWP_Warennummer + ', ' FROM [tblDakosy_NCTSOut_Warenposition] As T2 WHERE T2.nctsWP_NctsId = NCTS.ncts_Id ORDER BY nctsWP_Warennummer FOR XML PATH (''), TYPE) End as ATLAS_CustomsTariffNr_Position"
sqlstr &= ", case when [AtlasBezNrEZA] <> '' Then (SELECT ezaWP_AnmeldeVErfahren + ', ' FROM [tblDakosy_EZA_Warenposition] As T2 WHERE T2.ezaWP_EzaId = EZA.eza_id ORDER BY ezaWP_AnmeldeVErfahren FOR XML PATH (''), TYPE) else NCTS.ncts_ArtAnmeldung End as ATLAS_CodeOfCostumsProcedure_Position"
sqlstr &= " From [VERAG].[dbo].[Speditionsbuch] as SPB"
sqlstr &= " Left Join tblDakosy_NCTSOut as NCTS on NCTS.ncts_ObjectName = SPB.AtlasBezNrNCTS"
sqlstr &= " Left Join tblDakosy_EZA as EZA on EZA.eza_ObjectName = SPB.AtlasBezNrEZA"
sqlstr &= " where (VermittlerKundenNr='" & KdNr & "' OR EmpfängerKundenNr='" & KdNr & "')"
sqlstr &= " and Abfertigungsdatum between '" & von.ToShortDateString & "' and '" & bis.ToShortDateString & "'"
Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr)
Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"H:I"},,,, False, "Zollanmeldungen_" & EORI & "_" & von.ToShortDateString & "-" & bis.ToShortDateString)
Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt, {"H:I"},,,, False, "Report Data_" & KUNDENADR.FullName & "_" & von.ToShortDateString & "-" & bis.ToShortDateString)
If filepath = "" Then Return "ERROR 01: Fehler beim Erzeugen des XLS."
Return filepath