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-26 15:14:14 +02:00
parent 33e6ff5a65
commit df0107f902
1 changed files with 8 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
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("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