From df0107f902f51aaba70e43200f59aa50d541f50c Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Fri, 26 May 2023 15:14:14 +0200 Subject: [PATCH] RedBull Auswertung. --- MailSender/MAILSender.vb | 22 ++++++++-------------- 1 file changed, 8 insertions(+), 14 deletions(-) diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index b72dbaa..0b6f644 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("d.breimaier@verag.ag", KdNr, von, bis) Then 'für Andreas Details + If SendEmail_RED_BULL("customs.documents.ata@redbull.com", KdNr, von, bis) Then 'für Andreas Details System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") End If Case "QS_AUFTEILUNG" @@ -1351,26 +1351,20 @@ Module Mail Dim KUNDENADR = New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr) Dim sqlstr As String = "" - 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 &= "SELECT cast([Abfertigungsdatum] as date) [Abfertigungsdatum], [BelegNr] [CNR/MRN] ,Abfertigungsbezeichnung,case when [AtlasBezNrEZA] <> '' Then [AtlasBezNrEZA] ELSE [AtlasBezNrNCTS] END as BezugsNr,[LKW Kennzeichen] , case when [AtlasBezNrEZA] <> '' Then EZA.eza_VersendungsLandCode else NCTS.ncts_VersendungsLandCode End as VersendungsLand , case when [AtlasBezNrEZA] <> '' Then EZA.eza_Bestimmungsland else NCTS.ncts_BestimmungslandCode End as Bestimmungsland,[Absender],[Empfänger],[Packstücke] ,[Rohmasse] , case when [AtlasBezNrEZA] <> '' Then " + sqlstr &= "(SELECT ezaWP_WarennummerEZT+ ', ' FROM [tblDakosy_EZA_Warenposition] As T2 WHERE T2.ezaWP_EzaId = EZA.eza_id ORDER BY ezaWP_WarennummerEZT 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 CustomsTariffNr" + 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 CodeOfCostumsProcedure" 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 &= " 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 &= " left join Abfertigungsarten as ABF on ABF.[Abfertigungsart] = SPB.[Abfertigungsart]" 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, "Report Data_" & KUNDENADR.FullName & "_" & von.ToShortDateString & "-" & bis.ToShortDateString) + Dim filepath = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False, "Report Data_" & KUNDENADR.FullName & "_" & von.ToShortDateString & "-" & bis.ToShortDateString) If filepath = "" Then Return "ERROR 01: Fehler beim Erzeugen des XLS." Return filepath