From 33e6ff5a653be171e0050963c8f740be15eb3a83 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 23 May 2023 14:53:48 +0200 Subject: [PATCH] RedBull_Auswertung --- MailSender/MAILSender.vb | 33 +++++++++++++++++++-------------- 1 file changed, 19 insertions(+), 14 deletions(-) diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index 130b7b3..b72dbaa 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -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