diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb index 5d1b580..20f8d5a 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb @@ -1167,7 +1167,7 @@ Public Class cDakosyEZA packst &= p.ezaWP_PackstueckArt & " " End If packst &= If(p.ezaWP_Warenbezeichnung, "") & vbNewLine - rohmasseTmp += If(p.ezaWP_Rohmasse, 0) + rohmasseTmp += If(p.ezaWP_Eigenmasse, 0) rechnungspreisTmp += If(p.ezaWP_Artikelpreis, 0) If cnt = 0 Then @@ -1289,7 +1289,7 @@ Public Class cDakosyEZA ' packst &= p.ezaWP_PackstueckArt & " " 'End If packst &= If(p.aesWP_Warenbezeichnung, "") & vbNewLine - rohmasseTmp += If(p.aesWP_Rohmasse, 0) + rohmasseTmp += If(p.aesWP_Eigenmasse, 0) 'rechnungspreisTmp += If(p.bet, 0) If cnt = 0 Then diff --git a/DAKOSY_Worker/cIMPORT_Codelisten.vb b/DAKOSY_Worker/cIMPORT_Codelisten.vb index 9345ea5..866667f 100644 --- a/DAKOSY_Worker/cIMPORT_Codelisten.vb +++ b/DAKOSY_Worker/cIMPORT_Codelisten.vb @@ -42,7 +42,8 @@ Public Class cIMPORT_Codelisten Using WC As New System.Net.WebClient() ' C0008_URL() WC.Encoding = ASCIIEncoding.UTF8 - Dim URL = cDY_Paramter.GET_PARAM_ByName("C0008_URL", TESTSYSTEM) + Dim URL = cDY_Paramter.GET_PARAM_ByName("C0008_URL", TESTSYSTEM, "VERAG") + If URL = String.Empty Then Return False MyData = WC.DownloadString(URL) @@ -91,7 +92,7 @@ Public Class cIMPORT_Codelisten Using WC As New System.Net.WebClient() ' C0010_URL() WC.Encoding = ASCIIEncoding.UTF8 - Dim URL = cDY_Paramter.GET_PARAM_ByName("C0010_URL", TESTSYSTEM) + Dim URL = cDY_Paramter.GET_PARAM_ByName("C0010_URL", TESTSYSTEM, "VERAG") If URL = String.Empty Then Return False MyData = WC.DownloadString(URL) @@ -139,7 +140,7 @@ Public Class cIMPORT_Codelisten Using WC As New System.Net.WebClient() ' C0008_URL() WC.Encoding = ASCIIEncoding.UTF8 - Dim URL = cDY_Paramter.GET_PARAM_ByName("C0017_URL", TESTSYSTEM) + Dim URL = cDY_Paramter.GET_PARAM_ByName("C0017_URL", TESTSYSTEM, "VERAG") If URL = String.Empty Then Return False ' MsgBox(URL) MyData = WC.DownloadString(URL) @@ -188,7 +189,7 @@ Public Class cIMPORT_Codelisten Using WC As New System.Net.WebClient() ' C0008_URL() WC.Encoding = ASCIIEncoding.UTF8 - Dim URL = cDY_Paramter.GET_PARAM_ByName("C0014_URL", TESTSYSTEM) + Dim URL = cDY_Paramter.GET_PARAM_ByName("C0014_URL", TESTSYSTEM, "VERAG") If URL = String.Empty Then Return False ' MsgBox(URL) MyData = WC.DownloadString(URL) @@ -237,7 +238,7 @@ Public Class cIMPORT_Codelisten Using WC As New System.Net.WebClient() ' C0008_URL() WC.Encoding = ASCIIEncoding.UTF8 - Dim URL = cDY_Paramter.GET_PARAM_ByName("C0013_URL", TESTSYSTEM) + Dim URL = cDY_Paramter.GET_PARAM_ByName("C0013_URL", TESTSYSTEM, "VERAG") If URL = String.Empty Then Return False ' MsgBox(URL) MyData = WC.DownloadString(URL) @@ -286,7 +287,7 @@ Public Class cIMPORT_Codelisten Using WC As New System.Net.WebClient() ' A0122_URL() WC.Encoding = ASCIIEncoding.UTF8 - Dim URL = cDY_Paramter.GET_PARAM_ByName("A0122_URL", TESTSYSTEM) + Dim URL = cDY_Paramter.GET_PARAM_ByName("A0122_URL", TESTSYSTEM, "VERAG") If URL = String.Empty Then Return False MyData = WC.DownloadString(URL) @@ -334,7 +335,7 @@ Public Class cIMPORT_Codelisten Using WC As New System.Net.WebClient() ' A0122_URL() WC.Encoding = ASCIIEncoding.UTF8 - Dim URL = cDY_Paramter.GET_PARAM_ByName("A0127_URL", TESTSYSTEM) + Dim URL = cDY_Paramter.GET_PARAM_ByName("A0127_URL", TESTSYSTEM, "VERAG") If URL = String.Empty Then Return False MyData = WC.DownloadString(URL) @@ -380,7 +381,7 @@ Public Class cIMPORT_Codelisten Using WC As New System.Net.WebClient() ' C0008_URL() WC.Encoding = ASCIIEncoding.UTF8 - Dim URL = cDY_Paramter.GET_PARAM_ByName("I0400_URL", TESTSYSTEM) + Dim URL = cDY_Paramter.GET_PARAM_ByName("I0400_URL", TESTSYSTEM, "VERAG") If URL = String.Empty Then Return False ' MsgBox(URL) MyData = WC.DownloadString(URL) @@ -429,7 +430,7 @@ Public Class cIMPORT_Codelisten Using WC As New System.Net.WebClient() ' C0008_URL() WC.Encoding = ASCIIEncoding.UTF8 - Dim URL = cDY_Paramter.GET_PARAM_ByName("I0200_URL", TESTSYSTEM) + Dim URL = cDY_Paramter.GET_PARAM_ByName("I0200_URL", TESTSYSTEM, "VERAG") If URL = String.Empty Then Return False ' MsgBox(URL) MyData = WC.DownloadString(URL) @@ -480,7 +481,7 @@ Public Class cIMPORT_Codelisten Using WC As New System.Net.WebClient() ' C0008_URL() WC.Encoding = ASCIIEncoding.UTF8 - Dim URL = cDY_Paramter.GET_PARAM_ByName("I0700_URL", TESTSYSTEM) + Dim URL = cDY_Paramter.GET_PARAM_ByName("I0700_URL", TESTSYSTEM, "VERAG") If URL = String.Empty Then Return False ' MsgBox(URL) MyData = WC.DownloadString(URL) diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index 395f80d..aba1a40 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -441,6 +441,7 @@ Public Class cZOLL_IMPORT If If(bezugsNr, "").ToString.Length > 4 Then Select Case bezugsNr.ToString.Substring(0, 4) Case "4803" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "7001" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 Case "4805" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 Case "4811" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 @@ -856,7 +857,7 @@ Public Class cZOLL_IMPORT ' Else ' cboNiederlassung.SelectedIndex = 0 Select Case SENDUNG.FilialenNr - Case 4803, 4809 + Case 4803, 4809, 7001 strManNl = "SUB" Case 4801 strManNl = "SUW" @@ -1004,7 +1005,7 @@ Public Class cZOLL_IMPORT ' Else ' cboNiederlassung.SelectedIndex = 0 Select Case SPEDITIONSBUCH.FilialenNr - Case 4803, 4809 + Case 4803, 4809, 7001 strManNl = "SUB" Case 4801 strManNl = "SUW" diff --git a/MDM_Worker/cPLOSE.vb b/MDM_Worker/cPLOSE.vb index b2b3d7a..6e2197a 100644 --- a/MDM_Worker/cPLOSE.vb +++ b/MDM_Worker/cPLOSE.vb @@ -8,6 +8,8 @@ Imports System.Data.SqlClient Property plose_RechnungsDatum As Object = Nothing ' VARCHAR(3) NULL, Property plose_RechnungsNr As Object = Nothing ' VARCHAR(3) NULL, + Property plose_SupplierRechnungsDatum As Object = Nothing ' VARCHAR(3) NULL, + Property plose_SupplierRechnungsNr As Object = Nothing ' VARCHAR(3) NULL, Property plose_RechnungsJahr As Object = Nothing ' VARCHAR(3) NULL, Property plose_Lieferant As Object = Nothing ' VARCHAR(3) NULL, Property plose_LieferantCode As Object = Nothing ' VARCHAR(3) NULL, @@ -52,6 +54,7 @@ Imports System.Data.SqlClient Property plose_Fakturiert As Boolean = False Property plose_FakturiertDatum As Object = Nothing + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Sub New() @@ -73,6 +76,8 @@ Imports System.Data.SqlClient list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_RechnungsDatum", plose_RechnungsDatum)) ' VARCHAR(3) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_RechnungsJahr", plose_RechnungsJahr)) ' VARCHAR(3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_SupplierRechnungsDatum", plose_SupplierRechnungsDatum)) ' VARCHAR(3) NULL, + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_SupplierRechnungsNr", plose_SupplierRechnungsNr)) ' VARCHAR(3) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_RechnungsNr", plose_RechnungsNr)) ' VARCHAR(3) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_Lieferant", plose_Lieferant)) ' VARCHAR(3) NULL, list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("plose_LieferantCode", plose_LieferantCode)) ' VARCHAR(3) NULL, @@ -233,17 +238,83 @@ Imports System.Data.SqlClient Return SQL.doSQL(sqlstr, "FMZOLL") End Function - Public Shared Function GET_Antraege(von As Date, bis As Date, KundenNr As Integer, Optional Archiv As Object = Nothing) As List(Of cPLOSE_USTV_ANTR) + Public Shared Function GET_Antraege(von As Date, bis As Date, KundenNr As Integer, Land As String, Optional Archiv As Object = Nothing) As List(Of cPLOSE_USTV_ANTR) + Dim LIST As New List(Of cPLOSE_USTV_ANTR) + + GET_Antraege_PLOSE(LIST, von, bis, KundenNr, Land, Archiv) + GET_Antraege_ByLieferantCode(LIST, "'90'", von, bis, KundenNr, Land, Archiv) 'SOFICO + + Return LIST + End Function + + + Public Shared Function GET_Antraege_ByLieferantCode(ByRef LIST As List(Of cPLOSE_USTV_ANTR), LieferantCode As String, von As Date, bis As Date, KundenNr As Integer, Land As String, Optional Archiv As Object = Nothing) As Boolean + Try + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + Using cmd As New SqlCommand("SELECT [plose_SupplierRechnungsDatum],[plose_SupplierRechnungsNr],[plose_Lieferant],[plose_LieferantCode],sum([plose_NettobetragWaehrungAbbuchung])[plose_NettobetragWaehrungAbbuchung],sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] ,sum([plose_BruttobetragWaehrungAbbuchung] )[plose_BruttobetragWaehrungAbbuchung], [plose_WaehrungAbbuchung] + ,sum([plose_NettobetragTransaktion])[plose_NettobetragTransaktion],sum([plose_MWSTBetrag])[plose_MWSTBetrag] ,sum([plose_BruttobetragTransaktion] )[plose_BruttobetragTransaktion] + FROM [tblPLOSE_Details] + INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer + INNER JOIN [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode] + where cast(plose_SupplierRechnungsDatum as date) between @von and @bis and AdressenNr=@AdressenNr + AND plose_LieferantCode IN (" & LieferantCode & ") + AND plp_Land ='" & Land & "' + " & If(Archiv IsNot Nothing, " AND plose_Archiv=@Archiv ", "") & " + group by [plose_SupplierRechnungsDatum],[plose_SupplierRechnungsNr],[plose_LieferantCode],[plose_Lieferant],[plose_WaehrungAbbuchung] + having sum(plose_MWSTBetrag)>0 + ", conn) + + cmd.Parameters.AddWithValue("@von", von) + cmd.Parameters.AddWithValue("@bis", bis) + cmd.Parameters.AddWithValue("@AdressenNr", KundenNr) + If Archiv IsNot Nothing Then cmd.Parameters.AddWithValue("@Archiv", If(Archiv, 1, 0)) + + Dim dr = cmd.ExecuteReader() + While dr.Read + + Dim cPLOSE_USTV_ANT As New cPLOSE_USTV_ANTR + cPLOSE_USTV_ANT.plose_RechnungsDatum = dr.Item("plose_SupplierRechnungsDatum") + cPLOSE_USTV_ANT.plose_RechnungsNr = dr.Item("plose_SupplierRechnungsNr") + cPLOSE_USTV_ANT.plose_Lieferant = dr.Item("plose_Lieferant") + cPLOSE_USTV_ANT.plose_LieferantCode = dr.Item("plose_LieferantCode") + cPLOSE_USTV_ANT.plose_NettobetragTransaktion = dr.Item("plose_NettobetragTransaktion") + cPLOSE_USTV_ANT.plose_MWSTBetrag = dr.Item("plose_MWSTBetrag") + cPLOSE_USTV_ANT.plose_BruttobetragTransaktion = dr.Item("plose_BruttobetragTransaktion") + cPLOSE_USTV_ANT.plose_NettobetragWaehrungAbbuchung = dr.Item("plose_NettobetragWaehrungAbbuchung") + cPLOSE_USTV_ANT.plose_MWSTBetragWaehrungAbbuchung = dr.Item("plose_MWSTBetragWaehrungAbbuchung") + cPLOSE_USTV_ANT.plose_BruttobetragWaehrungAbbuchung = dr.Item("plose_BruttobetragWaehrungAbbuchung") + cPLOSE_USTV_ANT.plose_WaehrungAbbuchung = dr.Item("plose_WaehrungAbbuchung") + + LIST.Add(cPLOSE_USTV_ANT) + + End While + dr.Close() + + End Using + End Using + Return True + Catch ex As Exception + MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + End Try + Return False + + End Function + Public Shared Function GET_Antraege_PLOSE(ByRef LIST As List(Of cPLOSE_USTV_ANTR), von As Date, bis As Date, KundenNr As Integer, Land As String, Optional Archiv As Object = Nothing) As Boolean Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim LIST As New List(Of cPLOSE_USTV_ANTR) Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() Using cmd As New SqlCommand("SELECT [plose_RechnungsDatum],[plose_RechnungsNr],[plose_Lieferant],[plose_LieferantCode],sum([plose_NettobetragWaehrungAbbuchung])[plose_NettobetragWaehrungAbbuchung],sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] ,sum([plose_BruttobetragWaehrungAbbuchung] )[plose_BruttobetragWaehrungAbbuchung], [plose_WaehrungAbbuchung] ,sum([plose_NettobetragTransaktion])[plose_NettobetragTransaktion],sum([plose_MWSTBetrag])[plose_MWSTBetrag] ,sum([plose_BruttobetragTransaktion] )[plose_BruttobetragTransaktion] - FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer - where cast(plose_RechnungsDatum as date) between @von and @bis and AdressenNr=@AdressenNr - " & If(Archiv IsNot Nothing, " AND plose_Archiv=@Archiv ", "") & " + FROM [tblPLOSE_Details] + INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer + INNER JOIN [tblPLOSE_Produktbeschreibung] ON [plp_ProductCode]=[plose_ProduktCode] + where cast(plose_RechnungsDatum as date) between @von and @bis and AdressenNr=@AdressenNr + AND plose_LieferantCode IN (0,7) + AND plp_Land ='" & Land & "' + " & If(Archiv IsNot Nothing, " AND plose_Archiv=@Archiv ", "") & " group by [plose_RechnungsDatum],[plose_RechnungsNr],[plose_LieferantCode],[plose_Lieferant],[plose_WaehrungAbbuchung] having sum(plose_MWSTBetrag)>0 ", conn) @@ -276,15 +347,69 @@ Imports System.Data.SqlClient End Using End Using - Return LIST + Return True Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) End Try - Return Nothing + Return False End Function + + 'Public Shared Function GET_Antraege(von As Date, bis As Date, KundenNr As Integer, Optional Archiv As Object = Nothing) As List(Of cPLOSE_USTV_ANTR) + ' Try + ' Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + ' Dim LIST As New List(Of cPLOSE_USTV_ANTR) + ' Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() + ' Using cmd As New SqlCommand("SELECT [plose_RechnungsDatum],[plose_RechnungsNr],[plose_Lieferant],[plose_LieferantCode],sum([plose_NettobetragWaehrungAbbuchung])[plose_NettobetragWaehrungAbbuchung],sum([plose_MWSTBetragWaehrungAbbuchung])[plose_MWSTBetragWaehrungAbbuchung] ,sum([plose_BruttobetragWaehrungAbbuchung] )[plose_BruttobetragWaehrungAbbuchung], [plose_WaehrungAbbuchung] + ' ,sum([plose_NettobetragTransaktion])[plose_NettobetragTransaktion],sum([plose_MWSTBetrag])[plose_MWSTBetrag] ,sum([plose_BruttobetragTransaktion] )[plose_BruttobetragTransaktion] + ' FROM [tblPLOSE_Details] INNER JOIN Adressen on PLOSEKundenNr=plose_POLSEKundennummer + ' where cast(plose_RechnungsDatum as date) between @von and @bis and AdressenNr=@AdressenNr + ' " & If(Archiv IsNot Nothing, " AND plose_Archiv=@Archiv ", "") & " + ' group by [plose_RechnungsDatum],[plose_RechnungsNr],[plose_LieferantCode],[plose_Lieferant],[plose_WaehrungAbbuchung] + ' having sum(plose_MWSTBetrag)>0 + ' ", conn) + + ' cmd.Parameters.AddWithValue("@von", von) + ' cmd.Parameters.AddWithValue("@bis", bis) + ' cmd.Parameters.AddWithValue("@AdressenNr", KundenNr) + ' If Archiv IsNot Nothing Then cmd.Parameters.AddWithValue("@Archiv", If(Archiv, 1, 0)) + + ' Dim dr = cmd.ExecuteReader() + ' While dr.Read + + ' Dim cPLOSE_USTV_ANT As New cPLOSE_USTV_ANTR + ' cPLOSE_USTV_ANT.plose_RechnungsDatum = dr.Item("plose_RechnungsDatum") + ' cPLOSE_USTV_ANT.plose_RechnungsNr = dr.Item("plose_RechnungsNr") + ' cPLOSE_USTV_ANT.plose_Lieferant = dr.Item("plose_Lieferant") + ' cPLOSE_USTV_ANT.plose_LieferantCode = dr.Item("plose_LieferantCode") + ' cPLOSE_USTV_ANT.plose_NettobetragTransaktion = dr.Item("plose_NettobetragTransaktion") + ' cPLOSE_USTV_ANT.plose_MWSTBetrag = dr.Item("plose_MWSTBetrag") + ' cPLOSE_USTV_ANT.plose_BruttobetragTransaktion = dr.Item("plose_BruttobetragTransaktion") + ' cPLOSE_USTV_ANT.plose_NettobetragWaehrungAbbuchung = dr.Item("plose_NettobetragWaehrungAbbuchung") + ' cPLOSE_USTV_ANT.plose_MWSTBetragWaehrungAbbuchung = dr.Item("plose_MWSTBetragWaehrungAbbuchung") + ' cPLOSE_USTV_ANT.plose_BruttobetragWaehrungAbbuchung = dr.Item("plose_BruttobetragWaehrungAbbuchung") + ' cPLOSE_USTV_ANT.plose_WaehrungAbbuchung = dr.Item("plose_WaehrungAbbuchung") + + ' LIST.Add(cPLOSE_USTV_ANT) + + ' End While + ' dr.Close() + + ' End Using + ' End Using + ' Return LIST + ' Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace) + ' End Try + ' Return Nothing + + 'End Function + + + Public Shared Function UPDATE_ARCHIV(von As Date, bis As Date, KundenNr As Integer) As Boolean Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL diff --git a/MailSender/ClosedXML.dll b/MailSender/ClosedXML.dll deleted file mode 100644 index e834270..0000000 Binary files a/MailSender/ClosedXML.dll and /dev/null differ diff --git a/MailSender/MAILSender.vb b/MailSender/MAILSender.vb index e464a9f..23ec639 100644 --- a/MailSender/MAILSender.vb +++ b/MailSender/MAILSender.vb @@ -73,7 +73,7 @@ Module Mail ' PARAM = "NCTSLIST_TOBB" ' PARAM = "NCTSLIST_TOBB" '------------------------------------------------------------------------------------ - ' PARAM = "MDM_Zollbuero_Verguetung" + ' PARAM = "KD_OP_Kreditlimit" 'Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG("VERAG/ATILLA", "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 ", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518 '", CDate("07.06.2021 00:00:00"), CDate("07.06.2021 23:59:59"), True) @@ -90,11 +90,11 @@ Module Mail End If Dim cnt = 0 ' MsgBox(DoesProcessExists("MailSender")) - While DoesProcessExists("MailSender") Or cnt > 20 - System.Console.WriteLine("MailSender wurde nicht beendet, warten ...") - Threading.Thread.Sleep(1000) - cnt += 1 - End While + 'While DoesProcessExists("MailSender") Or cnt > 20 + ' System.Console.WriteLine("MailSender wurde nicht beendet, warten ...") + ' Threading.Thread.Sleep(1000) + ' cnt += 1 + 'End While If cnt >= 20 Then System.Console.WriteLine("MailSender konnte nicht gestartet werden, da eine Insatanz noch läuft...") Else @@ -140,6 +140,11 @@ Module Mail If SendEmail_OP5000("IMEX", "'TR'", {"mario.hoefer@imex-group.at"}, {"viktoria.leirich@imex-group.at", "verimex@verimex360.com"}, {"al@verag.ag"}, "Kunden TR - Offene Rechnungen - IMEX") Then System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") End If + Case "KD_OP_Kreditlimit" + System.Console.WriteLine("OPTION erkannt: KD_OP_Kreditlimit _ Erstellt eine OP Liste von Kunden mit Kreditlimit oder VK-Kunden.") + If SendEmail_OPKreditlimit({"as@verag.ag"}, {}, {"al@verag.ag"}, "Kunden - Offene Rechnungen - ACHTUNG: nur mit erfasstem Kreditlimit") Then + System.Console.WriteLine("Vorgang erfolgreich abgeschlossen ...") + End If Case "NCTSLIST_TOBB" System.Console.WriteLine("OPTION erkannt: NCTSLIST_TOBB _ Erstellt eine Liste der Versandscheine mit TOBB Bürgschaft.") @@ -248,15 +253,15 @@ Module Mail System.Console.WriteLine("Programm beendet in 1") Threading.Thread.Sleep(1000) - + Exit Sub Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) - + Exit Sub End Try End Sub Sub sendTOBB(FirmaTmp, datVon, datBis) - Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(FirmaTmp, "TOBB - 15TR0004000020917 / 12TR0004000004665 / 17TR0004000032349 / 17TR0004000029518 / 21TR0004000079552 / 21TR0004000078157 / 21TR0004000092350 / 20TR0004000069756 / 21TR0004000090364", " '12TR0004000004665','15TR0004000020917','17TR0004000032349','17TR0004000029518','21TR0004000079552','21TR0004000078157','21TR0004000092350', '20TR0004000069756', '21TR0004000090364'", datVon, datBis, True) + Dim _erg = VERAG_PROG_ALLGEMEIN.cNCTS_Helper.getXLS_FremdBRG(FirmaTmp, "TOBB - " & VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSlashList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.TOBB), VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.getSQLList(VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.TOBB), datVon, datBis, True) Dim _list As New List(Of String) Dim addbetreff = "" Select Case _erg @@ -832,6 +837,98 @@ Module Mail + System.Console.WriteLine("E-Mail gesendet.") + ' MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information") + System.Console.WriteLine("Erfolgreich!") + Return True + Else + System.Console.WriteLine(excel) + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + + Private Function SendEmail_OPKreditlimit(Mail_to() As String, Mail_cc() As String, Mail_bcc() As String, Mail_Subject As String) As Boolean + ' send() + ' Exit Function + Dim Msg As New MailMessage + Dim myCredentials As New System.Net.NetworkCredential + 'myCredentials.UserName = "al@verag.ag" + 'myCredentials.Password = "Luxandreas#2" + + ' myCredentials.UserName = "al@verag.ag" + ' myCredentials.Password = "verag#2" + + 'myCredentials.UserName = "al@verag.ag" + 'myCredentials.Password = "verag#2" + myCredentials.UserName = "support@verag.ag" + myCredentials.Password = supportPWD + + + ' myCredentials.UserName = "testmail@verag.ag" + ' myCredentials.Password = "testmail" + Msg.IsBodyHtml = False + Dim mySmtpsvr As New SmtpClient() + ' mySmtpsvr.Host = "192.168.0.107" 'bei web.de + ' mySmtpsvr.Port = 25 '587 '25 + mySmtpsvr.Host = "owa.verag.ag" + mySmtpsvr.Port = 587 '25 '587 '25 + + mySmtpsvr.UseDefaultCredentials = False + mySmtpsvr.Credentials = myCredentials + System.Console.WriteLine("E-Mail Daten initialisiert...") + Try + Dim datum As String = Now.AddDays(-1).ToShortDateString + System.Console.WriteLine("Erstelle EXCEL...") + Dim excel As String = genEXCEL_OPKreditlimit() + + + System.Console.WriteLine("EXCEL erstellt...") + If excel <> "" And Not excel.StartsWith("ERROR: ") Then + + System.Console.WriteLine("Sende E-Mail...") + Msg.From = New MailAddress("support@verag.ag") + + + For Each m In Mail_to : Msg.To.Add(m) : Next + For Each m In Mail_cc : Msg.CC.Add(m) : Next + For Each m In Mail_bcc : Msg.Bcc.Add(m) : Next + Msg.Subject = Mail_Subject + + + + + ' Msg.To.Add("al@verag.ag") + Msg.Body = "Anbei befindet sich die Liste der Kunden mit einem offenen Rechnungsbetrag über dem eingegebenen Kreditlimit " & vbNewLine & vbNewLine & "ACHTUNG: Kunden ohne hinterlegten Kreditlimit sind nciht in der Liste beinhaltet." & vbNewLine & vbNewLine & "Stand: " & Now.ToShortDateString & " " & Now.ToShortTimeString & vbNewLine & vbNewLine & vbNewLine & "Automatisch generiertes E-Mail." + + Dim attachment As Attachment = New Attachment(File.OpenRead(excel), "Kundenliste.xlsx") + + Msg.Attachments.Add(attachment) + + Try + mySmtpsvr.Send(Msg) + Catch ex As Exception + Try + mySmtpsvr.Port = 25 + mySmtpsvr.Send(Msg) + Catch ex2 As Exception + Try + mySmtpsvr.Host = "192.168.0.107" + mySmtpsvr.Port = 25 + mySmtpsvr.Send(Msg) + + Catch ex3 As Exception + MsgBox(ex3.Message & ex3.StackTrace) + Return False + End Try + End Try + End Try + + + System.Console.WriteLine("E-Mail gesendet.") ' MsgBox("E-Mail gesendet.", MsgBoxStyle.Information, Title:="Information") System.Console.WriteLine("Erfolgreich!") @@ -1415,6 +1512,46 @@ Module Mail End Function + Public Function genEXCEL_OPKreditlimit() As String + Try + + 'Dim sqlstr = "SELECT [AdressenNr],Ordnungsbegriff,Kreditlimit,sum([Offene Posten].Bruttobetrag) as OP_Saldo + ' FROM [VERAG].[dbo].[Adressen] + ' inner join Kunden on KundenNr=AdressenNr + ' inner join [Offene Posten] on KundenNrZentrale=[Offene Posten].Kontonummer + ' where Kreditlimit<>2600 + ' and (LEN(Adressennr)=6 and AdressenNr not like '40%') + ' group by [AdressenNr],Ordnungsbegriff,Kreditlimit + ' having sum([Offene Posten].Bruttobetrag) >Kreditlimit" + + Dim sqlstr = " SELECT [AdressenNr],Ordnungsbegriff, Kreditlimit ,dbo.fn_ConvertNumber(OP_Saldo, 1031, 2) as OP_Saldo, Vorauskasse, dbo.fn_ConvertNumber(OP_Faellig, 1031, 2)OP_Fällig + FROM (SELECT [AdressenNr],Ordnungsbegriff, CASE WHEN kunden.Vorkasse =1 then '' ELSE CONVERT(varchar, CAST(Kreditlimit AS money), 1) END AS Kreditlimit , (sum([Offene Posten].Bruttobetrag)) as OP_Saldo, CASE WHEN kunden.Vorkasse =1 then 'JA' ELSE 'NEIN' END Vorauskasse + , SUM(case when [Offene Posten].Fälligkeitsdatum<=getdate() then [Offene Posten].Bruttobetrag ELSE 0 end) as OP_Faellig + FROM [VERAG].[dbo].[Adressen] + inner join Kunden on KundenNr=AdressenNr + inner join [Offene Posten] on KundenNrZentrale=[Offene Posten].Kontonummer + inner join Filialen on filialen.filialenNr=Kunden.FilialenNr + where ((Kreditlimit<>2600 and Kreditlimit<>0) OR kunden.Vorkasse =1) + and (LEN(Adressennr)=6 and AdressenNr not like '40%') + and filialen.Firma IN ('VERAG','ATILLA') and filialen.filialenNr<>8001 + group by [AdressenNr],Ordnungsbegriff,Kreditlimit ,kunden.Vorkasse + having sum([Offene Posten].Bruttobetrag) >Kreditlimit + ) + AS T1 + WHERE cast (OP_Faellig as float) > 5000 + order by OP_Faellig desc" + + Dim dt As DataTable = loadDgvBySqlFMZOLL(sqlstr) + System.Console.WriteLine("Vorhandene Datensätze: " & dt.Rows.Count) + genExcel(dt) + + Return sPath & "TMP.xlsx" + + Catch ex As Exception + ' MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) + Return "ERROR: " & ex.Message + End Try + End Function Public Function genEXCEL_TR_ATILLA(LandEinschr) As String Try diff --git a/MailSender/MailSender.vbproj b/MailSender/MailSender.vbproj index 54dfd97..17c17dd 100644 --- a/MailSender/MailSender.vbproj +++ b/MailSender/MailSender.vbproj @@ -50,10 +50,6 @@ On - - False - ..\..\..\dll\closedxml\ClosedXML.dll - C:\Program Files (x86)\Open XML SDK\V2.5\lib\DocumentFormat.OpenXml.dll True @@ -137,9 +133,6 @@ Always - - - @@ -153,6 +146,11 @@ ADMIN + + + 0.95.4 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + \ No newline at end of file diff --git a/UID/usrCntlAPI.vb b/UID/usrCntlAPI.vb new file mode 100644 index 0000000..ef34595 --- /dev/null +++ b/UID/usrCntlAPI.vb @@ -0,0 +1,309 @@ +Imports System.ComponentModel + +Public Class usrCntlAPI + + Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) + Dim srcTAG As Date = CDate(Now.ToShortDateString) + + Dim JAHR As Date = CDate("01.01." & Now.Year) + + Private Sub usrCntlAPI_Load(sender As Object, e As EventArgs) Handles Me.Load + txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).txtAbfertDatBisToShortDateString + txtAbfertDatBis.Text = Now.ToShortDateString + + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + + + kdtxtKunde.initKdBox(Me.FindForm) ' initKdAbsender() + + + cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + + + cboDatum.Items.Clear() + cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("API-Datum", "ADat")) + cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Durchführungsdatum", "DDat")) + cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Error-Datum", "EDat")) + cboDatum.changeItem("RDat") + + cboInOut.Items.Clear() + cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IN", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN)) + cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OUT", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT)) + cboInOut.changeItem("") + + + cboType.Items.Clear() + cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FTP", VERAG_PROG_ALLGEMEIN.cAPI_Type.FTP)) + cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL", VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL)) + cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("REST", VERAG_PROG_ALLGEMEIN.cAPI_Type.REST)) + cboType.changeItem("") + + + cboAPIArt.Items.Clear() + cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_STATUSMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL)) + cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_BELEGMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL)) + cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG_OUT_EZA", VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_EZA)) + cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG_OUT_NCTS", VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_NCTS)) + cboAPIArt.changeItem("") + + + + End Sub + + Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged + txtAbfertDat._value = CDate(sender.value).ToShortDateString + End Sub + + Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged + txtAbfertDatBis._value = CDate(sender.value).ToShortDateString + End Sub + + Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click + initBtns("Monat") + End Sub + Sub initBtns(MonatJahr) + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + Select Case MonatJahr + Case "Monat" + DateTimePicker1.Value = MONAT + DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1) + Case "Jahr" + ' If cbxGeschaftsjahr.Checked Then + 'DateTimePicker1.Value = JAHR.AddMonths(1) + ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) + ' Else + DateTimePicker1.Value = JAHR + DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1) + 'End If + Case "Tag" + ' If cbxGeschaftsjahr.Checked Then + 'DateTimePicker1.Value = JAHR.AddMonths(1) + ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) + ' Else + DateTimePicker1.Value = srcTAG + DateTimePicker2.Value = srcTAG + If srcTAG = Now.ToShortDateString Then + Button5.Text = "Heute" + ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then + Button5.Text = "Gestern" + ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then + Button5.Text = "Vorgestern" + Else + Button5.Text = srcTAG.ToString("dd.MM") + End If + + 'End If + Case "" + DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year) + DateTimePicker2.Value = Now + End Select + + End Sub + + Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click + initBtns("Jahr") + End Sub + + Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click + MONAT = MONAT.AddMonths(1) + initBtns("Monat") + End Sub + + Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click + MONAT = MONAT.AddMonths(-1) + initBtns("Monat") + End Sub + + Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click + JAHR = JAHR.AddYears(1) + initBtns("Jahr") + End Sub + + Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click + JAHR = JAHR.AddYears(-1) + initBtns("Jahr") + End Sub + + + + Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click + Me.Cursor = Cursors.WaitCursor + + Dim sqlstr As String = "" + Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") + sqlstr &= "SELECT " & TopMax & " api_id, [api_apiArt],[api_apiUArt],[api_apiZollStatus],[api_InOut],[api_datetime],[api_status],[api_fehlversuch],[api_progName],[api_progVersion],[api_Type],[api_EMail],[api_filepathSource],[api_filepathDestination],[api_Firma],[api_Username],[api_Partnersystem],[api_Vorsystem],[api_KundenNr],[api_AvisoId],[api_SendungsId],[api_FilialenNr],[api_AbfertigungsNr],[api_BezugsNr],[api_Zollbelegnummer],[api_finTstmp] + FROM [tblAPI] WHERE 1=1 " + + With DataGridView + ' .DataSource = myTable + .SET_SQL(sqlstr & getRechnungsAusgangWhere() & " ORDER BY api_datetime DESC", "ADMIN", getSpedbuchList) + .LOAD() + + If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub + .RowHeadersVisible = False + .ReadOnly = True + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + .MultiSelect = False + + .Columns("api_id").Visible = False + + '.Columns("RechnungsNr").Width = 70 + '.Columns("RechnungsNr").HeaderText = "Rechnugs-Nr" + '.Columns("RechnungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("RechnungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + + '.Columns("RechnungsDatum").Width = 100 + '.Columns("RechnungsDatum").HeaderText = "Rg-Dat." + '.Columns("RechnungsDatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("RechnungsDatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + + '.Columns("Sammelrechnung").Width = 45 + '.Columns("Sammelrechnung").HeaderText = "SR" + + '.Columns("FilialenNr").Width = 45 + '.Columns("FilialenNr").HeaderText = "Filiale" + '.Columns("FilialenNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("AbfertigungsNr").Width = 70 + '.Columns("AbfertigungsNr").HeaderText = "Abf-Nr" + '.Columns("AbfertigungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("UnterNr").Width = 45 + '.Columns("UnterNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("UnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("Abfertigungsdatum").Width = 100 + '.Columns("Abfertigungsdatum").HeaderText = "Abf-Dat." + '.Columns("Abfertigungsdatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("Abfertigungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + + '.Columns("RechnungAn").MinimumWidth = 150 + '.Columns("RechnungAn").HeaderText = "Rechnung an" + '.Columns("RechnungAn").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + ''.Columns("Absender").MinimumWidth = 150 + ''.Columns("Absender").HeaderText = "Absender" + ''.Columns("Absender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + '.Columns("Vermittler").MinimumWidth = 150 + '.Columns("Vermittler").HeaderText = "Auftraggeber" + '.Columns("Vermittler").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + ''.Columns("Empfänger").MinimumWidth = 150 + ''.Columns("Empfänger").HeaderText = "Empfänger" + ''.Columns("Empfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + '.Columns("LKW Kennzeichen").Width = 120 + '.Columns("LKW Kennzeichen").HeaderText = "LKW Kennzeichen" + + '.Columns("Sachbearbeiter").MinimumWidth = 100 + '.Columns("Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + '.Columns("SteuerpflichtigerGesamtbetrag").Width = 120 + '.Columns("SteuerpflichtigerGesamtbetrag").HeaderText = "Betrag (stpfl.)" + '.Columns("SteuerpflichtigerGesamtbetrag").DefaultCellStyle.Format = "N2" + '.Columns("SteuerfreierGesamtbetrag").Width = 120 + '.Columns("SteuerfreierGesamtbetrag").HeaderText = "Betrag (stfr.)" + '.Columns("SteuerfreierGesamtbetrag").DefaultCellStyle.Format = "N2" + + + lblErgebnis.Text = "Ergebnisse: " & .RowCount + End With + + Me.Cursor = Cursors.Default + End Sub + + Function getRechnungsAusgangWhere() As String + Dim sqlstr = "" + If kdtxtKunde.Text <> "" And IsNumeric(kdtxtKunde.Text) Then sqlstr &= " AND [api_KundenNr] LIKE @Kunde " + + + If cboDatum._value = "ADat" Then + If txtAbfertDat.Text <> "" Then + If txtAbfertDatBis.Text <> "" Then + sqlstr &= " AND ([api_datetime] BETWEEN @Datum_von AND @Datum_bis ) " + Else + sqlstr &= " AND ([api_datetime] BETWEEN @Datum_von AND @Datum_von ) " + End If + End If + ElseIf cboDatum._value = "DDat" Then + If txtAbfertDat.Text <> "" Then + If txtAbfertDatBis.Text <> "" Then + sqlstr &= " AND ([api_finTstmp] BETWEEN @Datum_von AND @Datum_bis ) " + Else + sqlstr &= " AND ([api_finTstmp] BETWEEN @Datum_von AND @Datum_von ) " + End If + End If + ElseIf cboDatum._value = "EDat" Then + If txtAbfertDat.Text <> "" Then + If txtAbfertDatBis.Text <> "" Then + sqlstr &= " AND ([api_errTstmp] BETWEEN @Datum_von AND @Datum_bis ) " + Else + sqlstr &= " AND ([api_errTstmp] BETWEEN @Datum_von AND @Datum_von ) " + End If + End If + End If + + + If txtAbfertigungsnummer.Text <> "" Then + If txtAbfertigungsnummerBis.Text <> "" Then + sqlstr &= " AND ([api_AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis) " + Else + sqlstr &= " AND [api_AbfertigungsNr] LIKE @AbfertigungsNr " + End If + End If + + If cboFiliale._value <> "" Then sqlstr &= " AND [api_FilialenNr] LIKE @FilialenNr " + + If txtAPIUArt.Text <> "" Then sqlstr &= " AND [api_apiUArt] LIKE @UArt " + + If cboAPIArt._value <> "" Then sqlstr &= " AND [api_apiArt] LIKE @APIArt " + If cboType._value <> "" Then sqlstr &= " AND [api_Type] LIKE @APIType " + If cboInOut._value <> "" Then sqlstr &= " AND [api_InOut] LIKE @APIInOut " + + If txtAvisoId.Text <> "" Then sqlstr &= " AND [api_AvisoId] LIKE @AvisoId " + If txtSendungsId.Text <> "" Then sqlstr &= " AND [api_SendungsId] LIKE @SendungsId " + If txtZollBelegNr.Text <> "" Then sqlstr &= " AND [api_Zollbelegnummer] LIKE @ZollBelegNr " + If txtBezugsNr.Text <> "" Then sqlstr &= " AND [api_BezugsNr] LIKE @BezugsNr " + + + Return sqlstr + End Function + + Function getSpedbuchList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunde", kdtxtKunde.KdNr_value)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_von", txtAbfertDat.Text & " 00:00:00")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_bis", txtAbfertDatBis.Text & " 23:59:59")) + If txtAbfertigungsnummerBis.Text <> "" Then + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", ""))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr_bis", txtAbfertigungsnummerBis.Text.Replace("*", ""))) + Else + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%"))) + End If + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UArt", txtAPIUArt.Text.Replace("*", "%").ToUpper)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIArt", cboAPIArt._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIType", cboType._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIInOut", cboInOut._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoId", txtAvisoId.Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungsId", txtSendungsId.Text)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ZollBelegNr", txtZollBelegNr.Text.Replace("*", "%").ToUpper)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("BezugsNr", txtBezugsNr.Text.Replace("*", "%").ToUpper)) + Return list + + End Function + + Private Sub txtAbfertigungsnummer_TextChanged(sender As Object, e As EventArgs) Handles txtAbfertigungsnummer.TextChanged + txtAbfertigungsnummerBis.Enabled = (txtAbfertigungsnummer.Text <> "") + + End Sub +End Class diff --git a/UID/usrCntlERS.Designer.vb b/UID/usrCntlERS.Designer.vb new file mode 100644 index 0000000..89ccd99 --- /dev/null +++ b/UID/usrCntlERS.Designer.vb @@ -0,0 +1,933 @@ + +Partial Class usrCntlERS + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Me.SplitContainer = New System.Windows.Forms.SplitContainer() + Me.pnlSearch = New System.Windows.Forms.Panel() + Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() + Me.Label9 = New System.Windows.Forms.Label() + Me.kdtxtKunde = New VERAG_PROG_ALLGEMEIN.KdSearchBox() + Me.txtAPIUArt = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.cboAPIArt = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label7 = New System.Windows.Forms.Label() + Me.cboType = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label6 = New System.Windows.Forms.Label() + Me.cboInOut = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.Label3 = New System.Windows.Forms.Label() + Me.Label34 = New System.Windows.Forms.Label() + Me.Label35 = New System.Windows.Forms.Label() + Me.txtSendungsId = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAvisoId = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Button7 = New System.Windows.Forms.Button() + Me.Button6 = New System.Windows.Forms.Button() + Me.Button5 = New System.Windows.Forms.Button() + Me.btnSuche = New System.Windows.Forms.Button() + Me.txtAbfertDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label23 = New System.Windows.Forms.Label() + Me.btnJahr = New System.Windows.Forms.Button() + Me.btnBisJahr = New System.Windows.Forms.Button() + Me.btnVonJahr = New System.Windows.Forms.Button() + Me.btnMonat = New System.Windows.Forms.Button() + Me.btnBisMonat = New System.Windows.Forms.Button() + Me.btnVonMonat = New System.Windows.Forms.Button() + Me.txtAbfertDatBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label26 = New System.Windows.Forms.Label() + Me.DateTimePicker2 = New System.Windows.Forms.DateTimePicker() + Me.Label27 = New System.Windows.Forms.Label() + Me.Label13 = New System.Windows.Forms.Label() + Me.cboFiliale = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label1 = New System.Windows.Forms.Label() + Me.Label2 = New System.Windows.Forms.Label() + Me.txtAbfertigungsnummerBis = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtAbfertigungsnummer = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() + Me.cboDatum = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.pnlAnzeige = New System.Windows.Forms.Panel() + Me.DataGridView = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.Panel1 = New System.Windows.Forms.Panel() + Me.lblErgebnis = New System.Windows.Forms.Label() + Me.Label4 = New System.Windows.Forms.Label() + Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Panel2 = New System.Windows.Forms.Panel() + Me.Panel3 = New System.Windows.Forms.Panel() + Me.Button10 = New System.Windows.Forms.Button() + Me.Button11 = New System.Windows.Forms.Button() + CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer.Panel1.SuspendLayout() + Me.SplitContainer.Panel2.SuspendLayout() + Me.SplitContainer.SuspendLayout() + Me.pnlSearch.SuspendLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainer1.Panel1.SuspendLayout() + Me.SplitContainer1.SuspendLayout() + Me.pnlAnzeige.SuspendLayout() + CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit() + Me.Panel1.SuspendLayout() + Me.SuspendLayout() + ' + 'SplitContainer + ' + Me.SplitContainer.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer.FixedPanel = System.Windows.Forms.FixedPanel.Panel1 + Me.SplitContainer.IsSplitterFixed = True + Me.SplitContainer.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer.Name = "SplitContainer" + Me.SplitContainer.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer.Panel1 + ' + Me.SplitContainer.Panel1.Controls.Add(Me.pnlSearch) + ' + 'SplitContainer.Panel2 + ' + Me.SplitContainer.Panel2.Controls.Add(Me.pnlAnzeige) + Me.SplitContainer.Size = New System.Drawing.Size(1020, 687) + Me.SplitContainer.SplitterDistance = 150 + Me.SplitContainer.SplitterWidth = 2 + Me.SplitContainer.TabIndex = 3 + ' + 'pnlSearch + ' + Me.pnlSearch.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink + Me.pnlSearch.BackColor = System.Drawing.Color.White + Me.pnlSearch.Controls.Add(Me.SplitContainer1) + Me.pnlSearch.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlSearch.Location = New System.Drawing.Point(0, 0) + Me.pnlSearch.Name = "pnlSearch" + Me.pnlSearch.Size = New System.Drawing.Size(1020, 150) + Me.pnlSearch.TabIndex = 0 + ' + 'SplitContainer1 + ' + Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill + Me.SplitContainer1.FixedPanel = System.Windows.Forms.FixedPanel.Panel1 + Me.SplitContainer1.Location = New System.Drawing.Point(0, 0) + Me.SplitContainer1.Name = "SplitContainer1" + Me.SplitContainer1.Orientation = System.Windows.Forms.Orientation.Horizontal + ' + 'SplitContainer1.Panel1 + ' + Me.SplitContainer1.Panel1.Controls.Add(Me.Label9) + Me.SplitContainer1.Panel1.Controls.Add(Me.kdtxtKunde) + Me.SplitContainer1.Panel1.Controls.Add(Me.txtAPIUArt) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label8) + Me.SplitContainer1.Panel1.Controls.Add(Me.cboAPIArt) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label7) + Me.SplitContainer1.Panel1.Controls.Add(Me.cboType) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label6) + Me.SplitContainer1.Panel1.Controls.Add(Me.cboInOut) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label5) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label3) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label34) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label35) + Me.SplitContainer1.Panel1.Controls.Add(Me.txtSendungsId) + Me.SplitContainer1.Panel1.Controls.Add(Me.txtAvisoId) + Me.SplitContainer1.Panel1.Controls.Add(Me.Button7) + Me.SplitContainer1.Panel1.Controls.Add(Me.Button6) + Me.SplitContainer1.Panel1.Controls.Add(Me.Button5) + Me.SplitContainer1.Panel1.Controls.Add(Me.btnSuche) + Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertDat) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label23) + Me.SplitContainer1.Panel1.Controls.Add(Me.btnJahr) + Me.SplitContainer1.Panel1.Controls.Add(Me.btnBisJahr) + Me.SplitContainer1.Panel1.Controls.Add(Me.btnVonJahr) + Me.SplitContainer1.Panel1.Controls.Add(Me.btnMonat) + Me.SplitContainer1.Panel1.Controls.Add(Me.btnBisMonat) + Me.SplitContainer1.Panel1.Controls.Add(Me.btnVonMonat) + Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertDatBis) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label26) + Me.SplitContainer1.Panel1.Controls.Add(Me.DateTimePicker2) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label27) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label13) + Me.SplitContainer1.Panel1.Controls.Add(Me.cboFiliale) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label1) + Me.SplitContainer1.Panel1.Controls.Add(Me.Label2) + Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertigungsnummerBis) + Me.SplitContainer1.Panel1.Controls.Add(Me.txtAbfertigungsnummer) + Me.SplitContainer1.Panel1.Controls.Add(Me.DateTimePicker1) + Me.SplitContainer1.Panel1.Controls.Add(Me.cboDatum) + Me.SplitContainer1.Panel2Collapsed = True + Me.SplitContainer1.Size = New System.Drawing.Size(1020, 150) + Me.SplitContainer1.SplitterDistance = 125 + Me.SplitContainer1.TabIndex = 0 + ' + 'Label9 + ' + Me.Label9.AutoSize = True + Me.Label9.Location = New System.Drawing.Point(14, 92) + Me.Label9.Name = "Label9" + Me.Label9.Size = New System.Drawing.Size(74, 13) + Me.Label9.TabIndex = 47 + Me.Label9.Text = "Kunde (KdNr):" + ' + 'kdtxtKunde + ' + Me.kdtxtKunde._AlleFirmenCLUSTER = False + Me.kdtxtKunde._AllowSetValue = True + Me.kdtxtKunde._autoSizeGross = False + Me.kdtxtKunde._display_Name1 = False + Me.kdtxtKunde._displayAVISO_Email = False + Me.kdtxtKunde._displayFullName = False + Me.kdtxtKunde._displayWoelflKd = False + Me.kdtxtKunde._hideIfListEmpty = True + Me.kdtxtKunde._loadKdData = False + Me.kdtxtKunde._UseFIRMA = "" + Me.kdtxtKunde._ValueKdAndName = True + Me.kdtxtKunde.dgvpos = "LEFT" + Me.kdtxtKunde.KdName = "" + Me.kdtxtKunde.KdNr = "-1" + Me.kdtxtKunde.kdNrField = Nothing + Me.kdtxtKunde.KdNrNullInt = Nothing + Me.kdtxtKunde.Location = New System.Drawing.Point(94, 89) + Me.kdtxtKunde.Name = "kdtxtKunde" + Me.kdtxtKunde.nurAktive = False + Me.kdtxtKunde.searchActive = True + Me.kdtxtKunde.Size = New System.Drawing.Size(214, 20) + Me.kdtxtKunde.TabIndex = 48 + Me.kdtxtKunde.TIMER_SEARCH = True + Me.kdtxtKunde.usrcntl = Nothing + ' + 'txtAPIUArt + ' + Me.txtAPIUArt._DateTimeOnly = False + Me.txtAPIUArt._numbersOnly = False + Me.txtAPIUArt._numbersOnlyKommastellen = "" + Me.txtAPIUArt._Prozent = False + Me.txtAPIUArt._ShortDateNew = False + Me.txtAPIUArt._ShortDateOnly = False + Me.txtAPIUArt._TimeOnly = False + Me.txtAPIUArt._value = Nothing + Me.txtAPIUArt._Waehrung = False + Me.txtAPIUArt._WaehrungZeichen = True + Me.txtAPIUArt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAPIUArt.ForeColor = System.Drawing.Color.Black + Me.txtAPIUArt.Location = New System.Drawing.Point(720, 30) + Me.txtAPIUArt.MaxLineLength = -1 + Me.txtAPIUArt.MaxLines_Warning = "" + Me.txtAPIUArt.MaxLines_Warning_Label = Nothing + Me.txtAPIUArt.Name = "txtAPIUArt" + Me.txtAPIUArt.Size = New System.Drawing.Size(99, 20) + Me.txtAPIUArt.TabIndex = 46 + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(717, 14) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(62, 13) + Me.Label8.TabIndex = 45 + Me.Label8.Text = "Unter-Art:" + ' + 'cboAPIArt + ' + Me.cboAPIArt._allowedValuesFreiText = Nothing + Me.cboAPIArt._allowFreiText = False + Me.cboAPIArt._value = "" + Me.cboAPIArt.DropDownWidth = 250 + Me.cboAPIArt.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboAPIArt.FormattingEnabled = True + Me.cboAPIArt.Location = New System.Drawing.Point(542, 30) + Me.cboAPIArt.Name = "cboAPIArt" + Me.cboAPIArt.Size = New System.Drawing.Size(172, 22) + Me.cboAPIArt.TabIndex = 44 + ' + 'Label7 + ' + Me.Label7.AutoSize = True + Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label7.Location = New System.Drawing.Point(539, 12) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(47, 13) + Me.Label7.TabIndex = 43 + Me.Label7.Text = "API-Art" + ' + 'cboType + ' + Me.cboType._allowedValuesFreiText = Nothing + Me.cboType._allowFreiText = False + Me.cboType._value = "" + Me.cboType.DropDownWidth = 250 + Me.cboType.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboType.FormattingEnabled = True + Me.cboType.Location = New System.Drawing.Point(419, 30) + Me.cboType.Name = "cboType" + Me.cboType.Size = New System.Drawing.Size(105, 22) + Me.cboType.TabIndex = 42 + ' + 'Label6 + ' + Me.Label6.AutoSize = True + Me.Label6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label6.Location = New System.Drawing.Point(416, 12) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(35, 13) + Me.Label6.TabIndex = 41 + Me.Label6.Text = "Type" + ' + 'cboInOut + ' + Me.cboInOut._allowedValuesFreiText = Nothing + Me.cboInOut._allowFreiText = False + Me.cboInOut._value = "" + Me.cboInOut.DropDownWidth = 250 + Me.cboInOut.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboInOut.FormattingEnabled = True + Me.cboInOut.Location = New System.Drawing.Point(333, 30) + Me.cboInOut.Name = "cboInOut" + Me.cboInOut.Size = New System.Drawing.Size(80, 22) + Me.cboInOut.TabIndex = 40 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label5.Location = New System.Drawing.Point(330, 12) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(52, 13) + Me.Label5.TabIndex = 39 + Me.Label5.Text = "IN/OUT" + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label3.Location = New System.Drawing.Point(330, 66) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(80, 13) + Me.Label3.TabIndex = 38 + Me.Label3.Text = "Aviso Daten:" + ' + 'Label34 + ' + Me.Label34.AutoSize = True + Me.Label34.Location = New System.Drawing.Point(330, 115) + Me.Label34.Name = "Label34" + Me.Label34.Size = New System.Drawing.Size(67, 13) + Me.Label34.TabIndex = 37 + Me.Label34.Text = "SendungsId:" + ' + 'Label35 + ' + Me.Label35.AutoSize = True + Me.Label35.Location = New System.Drawing.Point(330, 89) + Me.Label35.Name = "Label35" + Me.Label35.Size = New System.Drawing.Size(45, 13) + Me.Label35.TabIndex = 34 + Me.Label35.Text = "AvisoId:" + ' + 'txtSendungsId + ' + Me.txtSendungsId._DateTimeOnly = False + Me.txtSendungsId._numbersOnly = True + Me.txtSendungsId._numbersOnlyKommastellen = "" + Me.txtSendungsId._Prozent = False + Me.txtSendungsId._ShortDateNew = False + Me.txtSendungsId._ShortDateOnly = False + Me.txtSendungsId._TimeOnly = False + Me.txtSendungsId._value = "" + Me.txtSendungsId._Waehrung = False + Me.txtSendungsId._WaehrungZeichen = True + Me.txtSendungsId.Enabled = False + Me.txtSendungsId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtSendungsId.ForeColor = System.Drawing.Color.Black + Me.txtSendungsId.Location = New System.Drawing.Point(399, 112) + Me.txtSendungsId.MaxLineLength = -1 + Me.txtSendungsId.MaxLines_Warning = "" + Me.txtSendungsId.MaxLines_Warning_Label = Nothing + Me.txtSendungsId.Name = "txtSendungsId" + Me.txtSendungsId.Size = New System.Drawing.Size(125, 20) + Me.txtSendungsId.TabIndex = 36 + ' + 'txtAvisoId + ' + Me.txtAvisoId._DateTimeOnly = False + Me.txtAvisoId._numbersOnly = True + Me.txtAvisoId._numbersOnlyKommastellen = "" + Me.txtAvisoId._Prozent = False + Me.txtAvisoId._ShortDateNew = False + Me.txtAvisoId._ShortDateOnly = False + Me.txtAvisoId._TimeOnly = False + Me.txtAvisoId._value = "" + Me.txtAvisoId._Waehrung = False + Me.txtAvisoId._WaehrungZeichen = True + Me.txtAvisoId.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAvisoId.ForeColor = System.Drawing.Color.Black + Me.txtAvisoId.Location = New System.Drawing.Point(399, 86) + Me.txtAvisoId.MaxLineLength = -1 + Me.txtAvisoId.MaxLines_Warning = "" + Me.txtAvisoId.MaxLines_Warning_Label = Nothing + Me.txtAvisoId.Name = "txtAvisoId" + Me.txtAvisoId.Size = New System.Drawing.Size(125, 20) + Me.txtAvisoId.TabIndex = 35 + ' + 'Button7 + ' + Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button7.ForeColor = System.Drawing.Color.Black + Me.Button7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.Location = New System.Drawing.Point(274, 4) + Me.Button7.Margin = New System.Windows.Forms.Padding(0) + Me.Button7.Name = "Button7" + Me.Button7.Size = New System.Drawing.Size(34, 23) + Me.Button7.TabIndex = 12 + Me.Button7.Text = ">>" + Me.Button7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button7.UseVisualStyleBackColor = True + ' + 'Button6 + ' + Me.Button6.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button6.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button6.ForeColor = System.Drawing.Color.Black + Me.Button6.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.Location = New System.Drawing.Point(155, 4) + Me.Button6.Margin = New System.Windows.Forms.Padding(0) + Me.Button6.Name = "Button6" + Me.Button6.Size = New System.Drawing.Size(34, 23) + Me.Button6.TabIndex = 8 + Me.Button6.Text = "<<" + Me.Button6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button6.UseVisualStyleBackColor = True + ' + 'Button5 + ' + Me.Button5.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button5.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.Button5.ForeColor = System.Drawing.Color.Black + Me.Button5.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button5.Location = New System.Drawing.Point(188, 4) + Me.Button5.Margin = New System.Windows.Forms.Padding(0) + Me.Button5.Name = "Button5" + Me.Button5.Size = New System.Drawing.Size(87, 23) + Me.Button5.TabIndex = 10 + Me.Button5.Text = "Heute" + Me.Button5.UseVisualStyleBackColor = True + ' + 'btnSuche + ' + Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnSuche.Location = New System.Drawing.Point(850, 9) + Me.btnSuche.Name = "btnSuche" + Me.btnSuche.Size = New System.Drawing.Size(162, 52) + Me.btnSuche.TabIndex = 28 + Me.btnSuche.Text = "Ergebnisse laden" + Me.btnSuche.UseVisualStyleBackColor = True + ' + 'txtAbfertDat + ' + Me.txtAbfertDat._DateTimeOnly = False + Me.txtAbfertDat._numbersOnly = False + Me.txtAbfertDat._numbersOnlyKommastellen = "" + Me.txtAbfertDat._Prozent = False + Me.txtAbfertDat._ShortDateNew = False + Me.txtAbfertDat._ShortDateOnly = True + Me.txtAbfertDat._TimeOnly = False + Me.txtAbfertDat._value = "" + Me.txtAbfertDat._Waehrung = False + Me.txtAbfertDat._WaehrungZeichen = True + Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black + Me.txtAbfertDat.Location = New System.Drawing.Point(43, 34) + Me.txtAbfertDat.MaxLength = 10 + Me.txtAbfertDat.MaxLineLength = -1 + Me.txtAbfertDat.MaxLines_Warning = "" + Me.txtAbfertDat.MaxLines_Warning_Label = Nothing + Me.txtAbfertDat.Name = "txtAbfertDat" + Me.txtAbfertDat.Size = New System.Drawing.Size(63, 20) + Me.txtAbfertDat.TabIndex = 1 + ' + 'Label23 + ' + Me.Label23.AutoSize = True + Me.Label23.Location = New System.Drawing.Point(14, 62) + Me.Label23.Name = "Label23" + Me.Label23.Size = New System.Drawing.Size(23, 13) + Me.Label23.TabIndex = 5 + Me.Label23.Text = "bis:" + ' + 'btnJahr + ' + Me.btnJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnJahr.ForeColor = System.Drawing.Color.Black + Me.btnJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnJahr.Location = New System.Drawing.Point(188, 56) + Me.btnJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnJahr.Name = "btnJahr" + Me.btnJahr.Size = New System.Drawing.Size(87, 23) + Me.btnJahr.TabIndex = 18 + Me.btnJahr.Text = "2016" + Me.btnJahr.UseVisualStyleBackColor = True + ' + 'btnBisJahr + ' + Me.btnBisJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisJahr.ForeColor = System.Drawing.Color.Black + Me.btnBisJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.Location = New System.Drawing.Point(274, 56) + Me.btnBisJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisJahr.Name = "btnBisJahr" + Me.btnBisJahr.Size = New System.Drawing.Size(34, 23) + Me.btnBisJahr.TabIndex = 19 + Me.btnBisJahr.Text = ">>" + Me.btnBisJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisJahr.UseVisualStyleBackColor = True + ' + 'btnVonJahr + ' + Me.btnVonJahr.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonJahr.ForeColor = System.Drawing.Color.Black + Me.btnVonJahr.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.Location = New System.Drawing.Point(155, 56) + Me.btnVonJahr.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonJahr.Name = "btnVonJahr" + Me.btnVonJahr.Size = New System.Drawing.Size(34, 23) + Me.btnVonJahr.TabIndex = 17 + Me.btnVonJahr.Text = "<<" + Me.btnVonJahr.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonJahr.UseVisualStyleBackColor = True + ' + 'btnMonat + ' + Me.btnMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnMonat.ForeColor = System.Drawing.Color.Black + Me.btnMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnMonat.Location = New System.Drawing.Point(188, 30) + Me.btnMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnMonat.Name = "btnMonat" + Me.btnMonat.Size = New System.Drawing.Size(87, 23) + Me.btnMonat.TabIndex = 15 + Me.btnMonat.Text = "September" + Me.btnMonat.UseVisualStyleBackColor = True + ' + 'btnBisMonat + ' + Me.btnBisMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnBisMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnBisMonat.ForeColor = System.Drawing.Color.Black + Me.btnBisMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.Location = New System.Drawing.Point(274, 30) + Me.btnBisMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnBisMonat.Name = "btnBisMonat" + Me.btnBisMonat.Size = New System.Drawing.Size(34, 23) + Me.btnBisMonat.TabIndex = 16 + Me.btnBisMonat.Text = ">>" + Me.btnBisMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnBisMonat.UseVisualStyleBackColor = True + ' + 'btnVonMonat + ' + Me.btnVonMonat.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.btnVonMonat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!) + Me.btnVonMonat.ForeColor = System.Drawing.Color.Black + Me.btnVonMonat.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.Location = New System.Drawing.Point(155, 30) + Me.btnVonMonat.Margin = New System.Windows.Forms.Padding(0) + Me.btnVonMonat.Name = "btnVonMonat" + Me.btnVonMonat.Size = New System.Drawing.Size(34, 23) + Me.btnVonMonat.TabIndex = 14 + Me.btnVonMonat.Text = "<<" + Me.btnVonMonat.TextAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.btnVonMonat.UseVisualStyleBackColor = True + ' + 'txtAbfertDatBis + ' + Me.txtAbfertDatBis._DateTimeOnly = False + Me.txtAbfertDatBis._numbersOnly = False + Me.txtAbfertDatBis._numbersOnlyKommastellen = "" + Me.txtAbfertDatBis._Prozent = False + Me.txtAbfertDatBis._ShortDateNew = False + Me.txtAbfertDatBis._ShortDateOnly = True + Me.txtAbfertDatBis._TimeOnly = False + Me.txtAbfertDatBis._value = "" + Me.txtAbfertDatBis._Waehrung = False + Me.txtAbfertDatBis._WaehrungZeichen = True + Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black + Me.txtAbfertDatBis.Location = New System.Drawing.Point(43, 59) + Me.txtAbfertDatBis.MaxLength = 10 + Me.txtAbfertDatBis.MaxLineLength = -1 + Me.txtAbfertDatBis.MaxLines_Warning = "" + Me.txtAbfertDatBis.MaxLines_Warning_Label = Nothing + Me.txtAbfertDatBis.Name = "txtAbfertDatBis" + Me.txtAbfertDatBis.Size = New System.Drawing.Size(63, 20) + Me.txtAbfertDatBis.TabIndex = 3 + ' + 'Label26 + ' + Me.Label26.AutoSize = True + Me.Label26.Location = New System.Drawing.Point(649, 115) + Me.Label26.Name = "Label26" + Me.Label26.Size = New System.Drawing.Size(23, 13) + Me.Label26.TabIndex = 30 + Me.Label26.Text = "bis:" + ' + 'DateTimePicker2 + ' + Me.DateTimePicker2.CustomFormat = "''" + Me.DateTimePicker2.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker2.Location = New System.Drawing.Point(43, 59) + Me.DateTimePicker2.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker2.Name = "DateTimePicker2" + Me.DateTimePicker2.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker2.Size = New System.Drawing.Size(92, 20) + Me.DateTimePicker2.TabIndex = 4 + ' + 'Label27 + ' + Me.Label27.AutoSize = True + Me.Label27.Location = New System.Drawing.Point(649, 89) + Me.Label27.Name = "Label27" + Me.Label27.Size = New System.Drawing.Size(28, 13) + Me.Label27.TabIndex = 21 + Me.Label27.Text = "von:" + ' + 'Label13 + ' + Me.Label13.AutoSize = True + Me.Label13.Location = New System.Drawing.Point(14, 38) + Me.Label13.Name = "Label13" + Me.Label13.Size = New System.Drawing.Size(28, 13) + Me.Label13.TabIndex = 13 + Me.Label13.Text = "von:" + ' + 'cboFiliale + ' + Me.cboFiliale._allowedValuesFreiText = Nothing + Me.cboFiliale._allowFreiText = False + Me.cboFiliale._value = "" + Me.cboFiliale.DropDownWidth = 250 + Me.cboFiliale.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboFiliale.FormattingEnabled = True + Me.cboFiliale.Location = New System.Drawing.Point(542, 84) + Me.cboFiliale.Name = "cboFiliale" + Me.cboFiliale.Size = New System.Drawing.Size(104, 22) + Me.cboFiliale.TabIndex = 20 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label1.Location = New System.Drawing.Point(539, 66) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(40, 13) + Me.Label1.TabIndex = 6 + Me.Label1.Text = "Filiale" + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label2.Location = New System.Drawing.Point(649, 66) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(121, 13) + Me.Label2.TabIndex = 7 + Me.Label2.Text = "Abfertigungsnummer" + ' + 'txtAbfertigungsnummerBis + ' + Me.txtAbfertigungsnummerBis._DateTimeOnly = False + Me.txtAbfertigungsnummerBis._numbersOnly = False + Me.txtAbfertigungsnummerBis._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummerBis._Prozent = False + Me.txtAbfertigungsnummerBis._ShortDateNew = False + Me.txtAbfertigungsnummerBis._ShortDateOnly = False + Me.txtAbfertigungsnummerBis._TimeOnly = False + Me.txtAbfertigungsnummerBis._value = Nothing + Me.txtAbfertigungsnummerBis._Waehrung = False + Me.txtAbfertigungsnummerBis._WaehrungZeichen = True + Me.txtAbfertigungsnummerBis.Enabled = False + Me.txtAbfertigungsnummerBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertigungsnummerBis.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsnummerBis.Location = New System.Drawing.Point(683, 112) + Me.txtAbfertigungsnummerBis.MaxLineLength = -1 + Me.txtAbfertigungsnummerBis.MaxLines_Warning = "" + Me.txtAbfertigungsnummerBis.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummerBis.Name = "txtAbfertigungsnummerBis" + Me.txtAbfertigungsnummerBis.Size = New System.Drawing.Size(136, 20) + Me.txtAbfertigungsnummerBis.TabIndex = 23 + ' + 'txtAbfertigungsnummer + ' + Me.txtAbfertigungsnummer._DateTimeOnly = False + Me.txtAbfertigungsnummer._numbersOnly = False + Me.txtAbfertigungsnummer._numbersOnlyKommastellen = "" + Me.txtAbfertigungsnummer._Prozent = False + Me.txtAbfertigungsnummer._ShortDateNew = False + Me.txtAbfertigungsnummer._ShortDateOnly = False + Me.txtAbfertigungsnummer._TimeOnly = False + Me.txtAbfertigungsnummer._value = Nothing + Me.txtAbfertigungsnummer._Waehrung = False + Me.txtAbfertigungsnummer._WaehrungZeichen = True + Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black + Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(683, 86) + Me.txtAbfertigungsnummer.MaxLineLength = -1 + Me.txtAbfertigungsnummer.MaxLines_Warning = "" + Me.txtAbfertigungsnummer.MaxLines_Warning_Label = Nothing + Me.txtAbfertigungsnummer.Name = "txtAbfertigungsnummer" + Me.txtAbfertigungsnummer.Size = New System.Drawing.Size(136, 20) + Me.txtAbfertigungsnummer.TabIndex = 22 + ' + 'DateTimePicker1 + ' + Me.DateTimePicker1.CustomFormat = "''" + Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Custom + Me.DateTimePicker1.Location = New System.Drawing.Point(43, 34) + Me.DateTimePicker1.Margin = New System.Windows.Forms.Padding(0) + Me.DateTimePicker1.Name = "DateTimePicker1" + Me.DateTimePicker1.RightToLeft = System.Windows.Forms.RightToLeft.No + Me.DateTimePicker1.Size = New System.Drawing.Size(92, 20) + Me.DateTimePicker1.TabIndex = 2 + ' + 'cboDatum + ' + Me.cboDatum._allowedValuesFreiText = Nothing + Me.cboDatum._allowFreiText = False + Me.cboDatum._value = "" + Me.cboDatum.BackColor = System.Drawing.Color.White + Me.cboDatum.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboDatum.DropDownWidth = 250 + Me.cboDatum.FlatStyle = System.Windows.Forms.FlatStyle.Popup + Me.cboDatum.Font = New System.Drawing.Font("Microsoft Tai Le", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboDatum.FormattingEnabled = True + Me.cboDatum.Items.AddRange(New Object() {"Rechnungsdatum", "Abfertigungsdatum"}) + Me.cboDatum.Location = New System.Drawing.Point(17, 9) + Me.cboDatum.Name = "cboDatum" + Me.cboDatum.Size = New System.Drawing.Size(130, 22) + Me.cboDatum.TabIndex = 32 + ' + 'pnlAnzeige + ' + Me.pnlAnzeige.BackColor = System.Drawing.Color.White + Me.pnlAnzeige.Controls.Add(Me.DataGridView) + Me.pnlAnzeige.Controls.Add(Me.Panel1) + Me.pnlAnzeige.Dock = System.Windows.Forms.DockStyle.Fill + Me.pnlAnzeige.Location = New System.Drawing.Point(0, 0) + Me.pnlAnzeige.Name = "pnlAnzeige" + Me.pnlAnzeige.Size = New System.Drawing.Size(1020, 535) + Me.pnlAnzeige.TabIndex = 0 + ' + 'DataGridView + ' + Me.DataGridView.AKTUALISIERUNGS_INTERVALL = -1 + Me.DataGridView.AllowUserToAddRows = False + Me.DataGridView.AllowUserToDeleteRows = False + Me.DataGridView.AllowUserToOrderColumns = True + Me.DataGridView.AllowUserToResizeRows = False + Me.DataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.DataGridView.Dock = System.Windows.Forms.DockStyle.Fill + Me.DataGridView.Location = New System.Drawing.Point(0, 0) + Me.DataGridView.Name = "DataGridView" + Me.DataGridView.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.CellSelect + Me.DataGridView.Size = New System.Drawing.Size(1020, 491) + Me.DataGridView.TabIndex = 0 + ' + 'Panel1 + ' + Me.Panel1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Panel1.Controls.Add(Me.lblErgebnis) + Me.Panel1.Controls.Add(Me.Label4) + Me.Panel1.Controls.Add(Me.txtMaxSrch) + Me.Panel1.Controls.Add(Me.Panel2) + Me.Panel1.Controls.Add(Me.Panel3) + Me.Panel1.Controls.Add(Me.Button10) + Me.Panel1.Controls.Add(Me.Button11) + Me.Panel1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.Panel1.Location = New System.Drawing.Point(0, 491) + Me.Panel1.Name = "Panel1" + Me.Panel1.Size = New System.Drawing.Size(1020, 44) + Me.Panel1.TabIndex = 1 + ' + 'lblErgebnis + ' + Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.lblErgebnis.Location = New System.Drawing.Point(864, 25) + Me.lblErgebnis.Name = "lblErgebnis" + Me.lblErgebnis.Size = New System.Drawing.Size(152, 13) + Me.lblErgebnis.TabIndex = 45 + Me.lblErgebnis.Text = "Max:" + Me.lblErgebnis.TextAlign = System.Drawing.ContentAlignment.TopRight + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(930, 5) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(30, 13) + Me.Label4.TabIndex = 43 + Me.Label4.Text = "Max:" + ' + 'txtMaxSrch + ' + Me.txtMaxSrch._DateTimeOnly = False + Me.txtMaxSrch._numbersOnly = True + Me.txtMaxSrch._numbersOnlyKommastellen = "" + Me.txtMaxSrch._Prozent = False + Me.txtMaxSrch._ShortDateNew = False + Me.txtMaxSrch._ShortDateOnly = False + Me.txtMaxSrch._TimeOnly = False + Me.txtMaxSrch._value = "" + Me.txtMaxSrch._Waehrung = False + Me.txtMaxSrch._WaehrungZeichen = True + Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black + Me.txtMaxSrch.Location = New System.Drawing.Point(966, 2) + Me.txtMaxSrch.MaxLineLength = -1 + Me.txtMaxSrch.MaxLines_Warning = "" + Me.txtMaxSrch.MaxLines_Warning_Label = Nothing + Me.txtMaxSrch.Name = "txtMaxSrch" + Me.txtMaxSrch.Size = New System.Drawing.Size(51, 20) + Me.txtMaxSrch.TabIndex = 44 + Me.txtMaxSrch.Text = "1000" + Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right + ' + 'Panel2 + ' + Me.Panel2.Dock = System.Windows.Forms.DockStyle.Left + Me.Panel2.Location = New System.Drawing.Point(323, 0) + Me.Panel2.Name = "Panel2" + Me.Panel2.Size = New System.Drawing.Size(468, 42) + Me.Panel2.TabIndex = 6 + ' + 'Panel3 + ' + Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left + Me.Panel3.Location = New System.Drawing.Point(0, 0) + Me.Panel3.Name = "Panel3" + Me.Panel3.Size = New System.Drawing.Size(323, 42) + Me.Panel3.TabIndex = 5 + ' + 'Button10 + ' + Me.Button10.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button10.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center + Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button10.Location = New System.Drawing.Point(1117, 1) + Me.Button10.Name = "Button10" + Me.Button10.Size = New System.Drawing.Size(41, 34) + Me.Button10.TabIndex = 3 + Me.Button10.UseVisualStyleBackColor = True + ' + 'Button11 + ' + Me.Button11.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.Button11.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.Button11.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button11.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Button11.ForeColor = System.Drawing.Color.Black + Me.Button11.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button11.Location = New System.Drawing.Point(1164, 1) + Me.Button11.Name = "Button11" + Me.Button11.Size = New System.Drawing.Size(41, 34) + Me.Button11.TabIndex = 4 + Me.Button11.UseVisualStyleBackColor = True + ' + 'usrCntlERS + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.Controls.Add(Me.SplitContainer) + Me.Name = "usrCntlERS" + Me.Size = New System.Drawing.Size(1020, 687) + Me.SplitContainer.Panel1.ResumeLayout(False) + Me.SplitContainer.Panel2.ResumeLayout(False) + CType(Me.SplitContainer, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer.ResumeLayout(False) + Me.pnlSearch.ResumeLayout(False) + Me.SplitContainer1.Panel1.ResumeLayout(False) + Me.SplitContainer1.Panel1.PerformLayout() + CType(Me.SplitContainer1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainer1.ResumeLayout(False) + Me.pnlAnzeige.ResumeLayout(False) + CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).EndInit() + Me.Panel1.ResumeLayout(False) + Me.Panel1.PerformLayout() + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents SplitContainer As SplitContainer + Friend WithEvents pnlSearch As Panel + Friend WithEvents SplitContainer1 As SplitContainer + Friend WithEvents Label34 As Label + Friend WithEvents Label35 As Label + Friend WithEvents txtSendungsId As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAvisoId As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Button7 As Button + Friend WithEvents Button6 As Button + Friend WithEvents Button5 As Button + Friend WithEvents btnSuche As Button + Friend WithEvents txtAbfertDat As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label23 As Label + Friend WithEvents btnJahr As Button + Friend WithEvents btnBisJahr As Button + Friend WithEvents btnVonJahr As Button + Friend WithEvents btnMonat As Button + Friend WithEvents btnBisMonat As Button + Friend WithEvents btnVonMonat As Button + Friend WithEvents txtAbfertDatBis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label26 As Label + Friend WithEvents DateTimePicker2 As DateTimePicker + Friend WithEvents Label27 As Label + Friend WithEvents Label13 As Label + Friend WithEvents cboFiliale As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label1 As Label + Friend WithEvents Label2 As Label + Friend WithEvents txtAbfertigungsnummerBis As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents txtAbfertigungsnummer As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents DateTimePicker1 As DateTimePicker + Friend WithEvents cboDatum As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents pnlAnzeige As Panel + Friend WithEvents DataGridView As VERAG_PROG_ALLGEMEIN.MyDatagridview + Friend WithEvents Panel1 As Panel + Friend WithEvents Label4 As Label + Friend WithEvents txtMaxSrch As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Panel2 As Panel + Friend WithEvents Panel3 As Panel + Friend WithEvents Button10 As Button + Friend WithEvents Button11 As Button + Friend WithEvents Label3 As Label + Friend WithEvents txtAPIUArt As VERAG_PROG_ALLGEMEIN.MyTextBox + Friend WithEvents Label8 As Label + Friend WithEvents cboAPIArt As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label7 As Label + Friend WithEvents cboType As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label6 As Label + Friend WithEvents cboInOut As VERAG_PROG_ALLGEMEIN.MyComboBox + Friend WithEvents Label5 As Label + Friend WithEvents Label9 As Label + Friend WithEvents kdtxtKunde As VERAG_PROG_ALLGEMEIN.KdSearchBox + Friend WithEvents lblErgebnis As Label +End Class diff --git a/UID/usrCntlERS.resx b/UID/usrCntlERS.resx new file mode 100644 index 0000000..732373b --- /dev/null +++ b/UID/usrCntlERS.resx @@ -0,0 +1,123 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + \ No newline at end of file diff --git a/UID/usrCntlERS.vb b/UID/usrCntlERS.vb new file mode 100644 index 0000000..525400f --- /dev/null +++ b/UID/usrCntlERS.vb @@ -0,0 +1,301 @@ +Imports System.ComponentModel + +Public Class usrCntlERS + + Dim MONAT As Date = CDate("01." & Now.Month & "." & Now.Year) '.AddMonths(-1) + Dim srcTAG As Date = CDate(Now.ToShortDateString) + + Dim JAHR As Date = CDate("01.01." & Now.Year) + + Private Sub usrCntlAPI_Load(sender As Object, e As EventArgs) Handles Me.Load + txtAbfertDat.Text = Now.ToShortDateString 'CDate("01." & Now.ToString("MM.yyyy")).AddMonths(-1).txtAbfertDatBisToShortDateString + txtAbfertDatBis.Text = Now.ToShortDateString + + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + + + kdtxtKunde.initKdBox(Me.FindForm) ' initKdAbsender() + + + cboFiliale.fillWithSQL("SELECT FilialenNr, Grenzstelle FROM Filialen WHERE Fil_Status='A' ORDER BY FilialenNr ", True, "FMZOLL", True) + + + cboDatum.Items.Clear() + cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("API-Datum", "ADat")) + cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Durchführungsdatum", "DDat")) + cboDatum.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Error-Datum", "EDat")) + cboDatum.changeItem("RDat") + + cboInOut.Items.Clear() + cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IN", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.IN)) + cboInOut.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("OUT", VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT)) + cboInOut.changeItem("") + + + cboType.Items.Clear() + cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FTP", VERAG_PROG_ALLGEMEIN.cAPI_Type.FTP)) + cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MAIL", VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL)) + cboType.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("REST", VERAG_PROG_ALLGEMEIN.cAPI_Type.REST)) + cboType.changeItem("") + + + cboAPIArt.Items.Clear() + cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_STATUSMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_STATUSMAIL)) + cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AVISO_OUT_BELEGMAIL", VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL)) + cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG_OUT_EZA", VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_EZA)) + cboAPIArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG_OUT_NCTS", VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_NCTS)) + cboAPIArt.changeItem("") + + + + End Sub + + Private Sub DateTimePicker1_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker1.ValueChanged + txtAbfertDat._value = CDate(sender.value).ToShortDateString + End Sub + + Private Sub DateTimePicker2_ValueChanged(sender As Object, e As EventArgs) Handles DateTimePicker2.ValueChanged + txtAbfertDatBis._value = CDate(sender.value).ToShortDateString + End Sub + + Private Sub btnMonat_Click(sender As Object, e As EventArgs) Handles btnMonat.Click + initBtns("Monat") + End Sub + Sub initBtns(MonatJahr) + btnMonat.Text = MONAT.ToString("MMMM") + btnJahr.Text = JAHR.Year + Select Case MonatJahr + Case "Monat" + DateTimePicker1.Value = MONAT + DateTimePicker2.Value = MONAT.AddMonths(1).AddDays(-1) + Case "Jahr" + ' If cbxGeschaftsjahr.Checked Then + 'DateTimePicker1.Value = JAHR.AddMonths(1) + ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) + ' Else + DateTimePicker1.Value = JAHR + DateTimePicker2.Value = JAHR.AddYears(1).AddDays(-1) + 'End If + Case "Tag" + ' If cbxGeschaftsjahr.Checked Then + 'DateTimePicker1.Value = JAHR.AddMonths(1) + ' DateTimePicker2.Value = JAHR.AddYears(1).AddMonths(1).AddDays(-1) + ' Else + DateTimePicker1.Value = srcTAG + DateTimePicker2.Value = srcTAG + If srcTAG = Now.ToShortDateString Then + Button5.Text = "Heute" + ElseIf srcTAG = Now.AddDays(-1).ToShortDateString Then + Button5.Text = "Gestern" + ElseIf srcTAG = Now.AddDays(-2).ToShortDateString Then + Button5.Text = "Vorgestern" + Else + Button5.Text = srcTAG.ToString("dd.MM") + End If + + 'End If + Case "" + DateTimePicker1.Value = ("01." & Now.Month & "." & Now.Year) + DateTimePicker2.Value = Now + End Select + + End Sub + + Private Sub btnJahr_Click(sender As Object, e As EventArgs) Handles btnJahr.Click + initBtns("Jahr") + End Sub + + Private Sub btnBisMonat_Click(sender As Object, e As EventArgs) Handles btnBisMonat.Click + MONAT = MONAT.AddMonths(1) + initBtns("Monat") + End Sub + + Private Sub btnVonMonat_Click(sender As Object, e As EventArgs) Handles btnVonMonat.Click + MONAT = MONAT.AddMonths(-1) + initBtns("Monat") + End Sub + + Private Sub btnBisJahr_Click(sender As Object, e As EventArgs) Handles btnBisJahr.Click + JAHR = JAHR.AddYears(1) + initBtns("Jahr") + End Sub + + Private Sub btnVonJahr_Click(sender As Object, e As EventArgs) Handles btnVonJahr.Click + JAHR = JAHR.AddYears(-1) + initBtns("Jahr") + End Sub + + + + Private Sub btnSuche_Click(sender As Object, e As EventArgs) Handles btnSuche.Click + Me.Cursor = Cursors.WaitCursor + + Dim sqlstr As String = "" + Dim TopMax = If(IsNumeric(txtMaxSrch.Text), " TOP " & txtMaxSrch.Text, "") + sqlstr &= "SELECT " & TopMax & " api_id, [api_apiArt],[api_apiUArt],[api_apiZollStatus],[api_InOut],[api_datetime],[api_status],[api_fehlversuch],[api_progName],[api_progVersion],[api_Type],[api_EMail],[api_filepathSource],[api_filepathDestination],[api_Firma],[api_Username],[api_Partnersystem],[api_Vorsystem],[api_KundenNr],[api_AvisoId],[api_SendungsId],[api_FilialenNr],[api_AbfertigungsNr],[api_BezugsNr],[api_Zollbelegnummer],[api_finTstmp] + FROM [tblAPI] WHERE 1=1 " + + With DataGridView + ' .DataSource = myTable + .SET_SQL(sqlstr & getRechnungsAusgangWhere() & " ORDER BY Rechnungsdatum, RK_ID", "FMZOLL", getSpedbuchList) + .LOAD() + + If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub + .RowHeadersVisible = False + .ReadOnly = True + .SelectionMode = DataGridViewSelectionMode.FullRowSelect + .MultiSelect = False + + .Columns("api_id").Visible = False + + '.Columns("RechnungsNr").Width = 70 + '.Columns("RechnungsNr").HeaderText = "Rechnugs-Nr" + '.Columns("RechnungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("RechnungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + + '.Columns("RechnungsDatum").Width = 100 + '.Columns("RechnungsDatum").HeaderText = "Rg-Dat." + '.Columns("RechnungsDatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("RechnungsDatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + + '.Columns("Sammelrechnung").Width = 45 + '.Columns("Sammelrechnung").HeaderText = "SR" + + '.Columns("FilialenNr").Width = 45 + '.Columns("FilialenNr").HeaderText = "Filiale" + '.Columns("FilialenNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("AbfertigungsNr").Width = 70 + '.Columns("AbfertigungsNr").HeaderText = "Abf-Nr" + '.Columns("AbfertigungsNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("AbfertigungsNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("UnterNr").Width = 45 + '.Columns("UnterNr").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("UnterNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("Abfertigungsdatum").Width = 100 + '.Columns("Abfertigungsdatum").HeaderText = "Abf-Dat." + '.Columns("Abfertigungsdatum").HeaderCell.Style.Alignment = DataGridViewContentAlignment.TopCenter + '.Columns("Abfertigungsdatum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter + + '.Columns("RechnungAn").MinimumWidth = 150 + '.Columns("RechnungAn").HeaderText = "Rechnung an" + '.Columns("RechnungAn").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + ''.Columns("Absender").MinimumWidth = 150 + ''.Columns("Absender").HeaderText = "Absender" + ''.Columns("Absender").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + '.Columns("Vermittler").MinimumWidth = 150 + '.Columns("Vermittler").HeaderText = "Auftraggeber" + '.Columns("Vermittler").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + ''.Columns("Empfänger").MinimumWidth = 150 + ''.Columns("Empfänger").HeaderText = "Empfänger" + ''.Columns("Empfänger").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + '.Columns("LKW Kennzeichen").Width = 120 + '.Columns("LKW Kennzeichen").HeaderText = "LKW Kennzeichen" + + '.Columns("Sachbearbeiter").MinimumWidth = 100 + '.Columns("Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill + + '.Columns("SteuerpflichtigerGesamtbetrag").Width = 120 + '.Columns("SteuerpflichtigerGesamtbetrag").HeaderText = "Betrag (stpfl.)" + '.Columns("SteuerpflichtigerGesamtbetrag").DefaultCellStyle.Format = "N2" + '.Columns("SteuerfreierGesamtbetrag").Width = 120 + '.Columns("SteuerfreierGesamtbetrag").HeaderText = "Betrag (stfr.)" + '.Columns("SteuerfreierGesamtbetrag").DefaultCellStyle.Format = "N2" + + + lblErgebnis.Text = "Ergebnisse: " & .RowCount + End With + + Me.Cursor = Cursors.Default + End Sub + + Function getRechnungsAusgangWhere() As String + Dim sqlstr = "" + If kdtxtKunde.Text <> "" And IsNumeric(kdtxtKunde.Text) Then sqlstr &= " AND [api_KundenNr] LIKE @Kunde " + + + If cboDatum._value = "ADat" Then + If txtAbfertDat.Text <> "" Then + If txtAbfertDatBis.Text <> "" Then + sqlstr &= " AND ([api_datetime] BETWEEN @Datum_von AND @Datum_bis ) " + Else + sqlstr &= " AND ([api_datetime] BETWEEN @Datum_von AND @Datum_von ) " + End If + End If + ElseIf cboDatum._value = "DDat" Then + If txtAbfertDat.Text <> "" Then + If txtAbfertDatBis.Text <> "" Then + sqlstr &= " AND ([api_finTstmp] BETWEEN @Datum_von AND @Datum_bis ) " + Else + sqlstr &= " AND ([api_finTstmp] BETWEEN @Datum_von AND @Datum_von ) " + End If + End If + ElseIf cboDatum._value = "EDat" Then + If txtAbfertDat.Text <> "" Then + If txtAbfertDatBis.Text <> "" Then + sqlstr &= " AND ([api_errTstmp] BETWEEN @Datum_von AND @Datum_bis ) " + Else + sqlstr &= " AND ([api_errTstmp] BETWEEN @Datum_von AND @Datum_von ) " + End If + End If + End If + + + If txtAbfertigungsnummer.Text <> "" Then + If txtAbfertigungsnummerBis.Text <> "" Then + sqlstr &= " AND ([api_AbfertigungsNr] BETWEEN @AbfertigungsNr AND @AbfertigungsNr_bis) " + Else + sqlstr &= " AND [api_AbfertigungsNr] LIKE @AbfertigungsNr " + End If + End If + + If cboFiliale._value <> "" Then sqlstr &= " AND [api_FilialenNr] LIKE @FilialenNr " + + If txtAPIUArt.Text <> "" Then sqlstr &= " AND [api_apiUArt] LIKE @UArt " + + If cboAPIArt._value <> "" Then sqlstr &= " AND [api_apiArt] LIKE @APIArt " + If cboType._value <> "" Then sqlstr &= " AND [api_Type] LIKE @APIType " + If cboInOut._value <> "" Then sqlstr &= " AND [api_InOut] LIKE @APIInOut " + + If txtAvisoId.Text <> "" Then sqlstr &= " AND [api_AvisoId] LIKE @AvisoId " + If txtSendungsId.Text <> "" Then sqlstr &= " AND [api_SendungsId] LIKE @SendungsId " + + + + Return sqlstr + End Function + + Function getSpedbuchList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + + Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Kunde", kdtxtKunde.KdNr_value)) + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_von", txtAbfertDat.Text & " 00:00:00")) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Datum_bis", txtAbfertDatBis.Text & " 23:59:59")) + If txtAbfertigungsnummerBis.Text <> "" Then + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", ""))) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr_bis", txtAbfertigungsnummerBis.Text.Replace("*", ""))) + Else + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AbfertigungsNr", txtAbfertigungsnummer.Text.Replace("*", "%"))) + End If + + + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FilialenNr", cboFiliale._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UArt", txtAPIUArt.Text.Replace("*", "%").ToUpper)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIArt", cboAPIArt._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIType", cboType._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("APIInOut", cboInOut._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("AvisoId", txtAvisoId._value)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SendungsId", txtSendungsId._value)) + Return list + + End Function +End Class diff --git a/initATLASAufschubkonten/RoutineManager.vbproj b/initATLASAufschubkonten/RoutineManager.vbproj index 044ab5c..81da28f 100644 --- a/initATLASAufschubkonten/RoutineManager.vbproj +++ b/initATLASAufschubkonten/RoutineManager.vbproj @@ -71,6 +71,10 @@ x64 + + False + ..\..\..\AVISO\Aviso\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll + False C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 7.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.Forms.Viewer.dll @@ -147,6 +151,12 @@ + + frmInfo.vb + + + Form + frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb @@ -212,6 +222,9 @@ + + frmInfo.vb + frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb diff --git a/initATLASAufschubkonten/VERAG_Interface/cVERAG_Interface.vb b/initATLASAufschubkonten/VERAG_Interface/cVERAG_Interface.vb index 60c169b..2862608 100644 --- a/initATLASAufschubkonten/VERAG_Interface/cVERAG_Interface.vb +++ b/initATLASAufschubkonten/VERAG_Interface/cVERAG_Interface.vb @@ -3,10 +3,13 @@ Public Class cVERAG_InterfaceSharedObjects Property FTP_Path As String = "" Property CooName As String = "" + Property toSystem As String = "" ' Wo tatsächlcih hingeschikt wird, auch bei TOBB ist dieser Wert "VERAG", wenn eine Kopie an VERAG gesendet werden soll... - Sub New(FTP_Path, CooName) + Sub New(FTP_Path, CooName, Optional toSystem = Nothing) Me.FTP_Path = FTP_Path Me.CooName = CooName + Me.toSystem = If(toSystem, CooName) 'Default ist toSystem + End Sub End Class diff --git a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb index 12470b2..dc80a75 100644 --- a/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb +++ b/initATLASAufschubkonten/VERAG_Interface/cVERAG_out_ncts.vb @@ -110,6 +110,7 @@ If getFTP_Paths(GRN, IF_Obj) Then For Each o In IF_Obj + Select Case o.CooName 'Case "EKOL", "TOBB" ' 'Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_1(NCTS_TMP, DY_TMP, UniqueId) @@ -137,7 +138,7 @@ Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId, getTOBBKdnr) If NCTS_VERAG_OUT IsNot Nothing Then copyNCTSToFTP_V2_0_2(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) Else - VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("TOBB: KEINE KDNR | BezugsNr: " & NCTS_TMP.ncts_ObjectName & vbNewLine & getTOBBDetails, "", System.Reflection.MethodInfo.GetCurrentMethod.Name, , "BezugsNr: " & NCTS_TMP.ncts_ObjectName & " (DAKOSY)") + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("TOBB: KEINE KDNR | BezugsNr: " & NCTS_TMP.ncts_ObjectName & vbNewLine & getTOBBDetails(), "", System.Reflection.MethodInfo.GetCurrentMethod.Name, , "BezugsNr: " & NCTS_TMP.ncts_ObjectName & " (DAKOSY)") End If Case Else Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_2(NCTS_TMP, DY_TMP, UniqueId) @@ -306,11 +307,11 @@ End Function Shared Sub copyNCTSToFTP(ByRef NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, IF_Obj As cVERAG_InterfaceSharedObjects, ByRef vorsystem As String, ByRef filePath As String, ByRef destFile As String, ByRef UniqueId As String, Optional checkAlreadyProvided As Boolean = True, ByRef Optional found As Boolean = False) - If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then + If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, checkAlreadyProvided) Then If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile) If IO.File.Exists(destFile) Then - insertFTPLOG(destFile, IF_Obj.CooName, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem) + insertFTPLOG(destFile, NCTS_VERAG_OUT.Company, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, NCTS_VERAG_OUT.ProcessData.MRN) found = True Else Try @@ -325,11 +326,11 @@ End Sub Shared Sub copyNCTSToFTP_V2_0_1(ByRef NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts, IF_Obj As cVERAG_InterfaceSharedObjects, ByRef vorsystem As String, ByRef filePath As String, ByRef destFile As String, ByRef UniqueId As String, Optional checkAlreadyProvided As Boolean = True, ByRef Optional found As Boolean = False) - If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then + If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, checkAlreadyProvided) Then If genXMLFile_V2_0_1(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile) If IO.File.Exists(destFile) Then - insertFTPLOG(destFile, IF_Obj.CooName, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem) + insertFTPLOG(destFile, NCTS_VERAG_OUT.Company, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, NCTS_VERAG_OUT.ProcessData.MRN) found = True Else Try @@ -345,11 +346,11 @@ Shared Sub copyNCTSToFTP_V2_0_2(ByRef NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_2.VERAG_out_ncts, IF_Obj As cVERAG_InterfaceSharedObjects, ByRef vorsystem As String, ByRef filePath As String, ByRef destFile As String, ByRef UniqueId As String, Optional checkAlreadyProvided As Boolean = True, ByRef Optional found As Boolean = False) - If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then + If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, checkAlreadyProvided) Then If genXMLFile_V2_0_2(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile) If IO.File.Exists(destFile) Then - insertFTPLOG(destFile, IF_Obj.CooName, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem) + insertFTPLOG(destFile, NCTS_VERAG_OUT.Company, NCTS_VERAG_OUT.ProcessData.ReferenzNumber, NCTS_VERAG_OUT.ProcessData.ProcedureCode, NCTS_VERAG_OUT.ProcessData.Status, vorsystem, IF_Obj.toSystem, NCTS_VERAG_OUT.ProcessData.MRN) found = True Else Try @@ -482,18 +483,31 @@ IF_Obj = New List(Of cVERAG_InterfaceSharedObjects) Try + If VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.TOBB.Contains(GRN) Then 'TOBB + If cVERAG_Interface_Settings.acticeInterface_TOBB Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TOBB\OUT\", "TOBB")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\TOBB\" & Now.ToString("yyyyMM") & "\", "TOBB", "VERAG")) + End If + If VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.OREGON.Contains(GRN) Then 'OREGON + If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", "OREGON")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\OREGON\" & Now.ToString("yyyyMM") & "\", "OREGON", "VERAG")) + End If + If VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.VERAG.Contains(GRN) Then 'VERAG + If cVERAG_Interface_Settings.acticeInterface_VERAG Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", "VERAG")) + End If + If VERAG_PROG_ALLGEMEIN.cNCTS_GUARANTEES.OREGON.Contains(GRN) Then 'IMEX + If cVERAG_Interface_Settings.acticeInterface_IMEX Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\IMEX\", "IMEX", "VERAG")) + End If - Select Case GRN - Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" - If cVERAG_Interface_Settings.acticeInterface_TOBB Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TOBB\OUT\", "TOBB")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\TOBB\", "TOBB")) - Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153", "21DE0000000079716" - If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", "OREGON")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\OREGON\", "OREGON")) - Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG - If cVERAG_Interface_Settings.acticeInterface_VERAG Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", "VERAG")) - Case "16AT520000G000VA6" 'IMEX - If cVERAG_Interface_Settings.acticeInterface_IMEX Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\IMEX\", "IMEX")) - Case Else - End Select + + 'Select Case GRN + ' Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518", "21TR0004000079552", "21TR0004000078157", "21TR0004000092350", "20TR0004000069756", "21TR0004000090364" + ' If cVERAG_Interface_Settings.acticeInterface_TOBB Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TOBB\OUT\", "TOBB")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\TOBB\", "TOBB")) + ' Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520", "15TR0004000020500", "ITTR0000000000153", "21DE0000000079716" + ' If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", "OREGON")) : IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\datenarchiv\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\OREGON\", "OREGON")) + ' Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG + ' If cVERAG_Interface_Settings.acticeInterface_VERAG Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\VERAG\", "VERAG")) + ' Case "16AT520000G000VA6" 'IMEX + ' If cVERAG_Interface_Settings.acticeInterface_IMEX Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects(VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "DAKOSY\ECHTSYSTEM\FTP\IMEX\", "IMEX")) + ' Case Else + 'End Select If cVERAG_Interface_Settings.acticeInterface_EKOL AndAlso isFTP_EKOL_NCTS() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\EKOL\OUT\", "EKOL")) If cVERAG_Interface_Settings.acticeInterface_GASTONSCHUL_OUT AndAlso ifGASTON_SCHUL() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\GASTON_SCHUL\OUT\", "GASTON_SCHUL")) @@ -604,9 +618,10 @@ Shared Function alreadyProvidedInInterface(ReferenzNumber As String, ProcedureCode As String, Status As String, vorsystem As String, ftp_CooName As String, Optional checkAlreadyProvided As Boolean = True) As Boolean If Not checkAlreadyProvided Then Return False ' wenn es nicht geprüft werden soll, dann wird "Nicht bereitgestellt" zurückgegeben + Try - 'Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath, ftp_user, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "','" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "','" & NCTS_VERAG_OUT.ProcessData.Status & "','')", "FMZOLL") - If SQL.getValueTxtBySql("SELECT count(*) FROM [tblFTP_Log] where [ftp_BezugsNr]='" & ReferenzNumber & "' AND [ftp_art]='" & ProcedureCode & "' AND [ftp_status]='" & Status & "' AND [ftp_vorsystem]='" & vorsystem & "' AND [ftp_CooName]='" & ftp_CooName & "' ", "FMZOLL",,, 0) = 0 Then + ' If SQL.getValueTxtBySql("SELECT count(*) FROM [tblFTP_Log] where [ftp_BezugsNr]='" & ReferenzNumber & "' AND [ftp_art]='" & ProcedureCode & "' AND [ftp_status]='" & Status & "' AND [ftp_vorsystem]='" & vorsystem & "' AND [ftp_CooName]='" & ftp_CooName & "' ", "FMZOLL",,, 0) = 0 Then + If SQL.getValueTxtBySql("SELECT count(*) FROM tblAPI where [api_bezugsnr]='" & ReferenzNumber & "' AND [api_apiUArt]='" & ProcedureCode & "' AND api_apiZollStatus='" & Status & "' AND api_Vorsystem='" & vorsystem & "' AND api_Partnersystem='" & ftp_CooName & "' ", "ADMIN",,, 0) = 0 Then Return False End If Catch ex As Exception @@ -723,15 +738,15 @@ VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.ncts_Befoerderungsmittel_KennzeichenAbgang, "") VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.ncts_AbgangsDienststellennummer, "") VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.ncts_BestimmungsstelleDienststellennummer, "") - VERAG_NCTS.NCTS_Data.DepartureCountry = If(NCTS_TMP.ncts_VersendungsLandCode, "") - VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.ncts_BestimmungslandCode, "") + VERAG_NCTS.NCTS_Data.DepartureCountry = If(NCTS_TMP.ncts_VersendungsLandCode, "").replace("SRB", "RS") + VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.ncts_BestimmungslandCode, "").replace("SRB", "RS") 'Versender VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ncts_Versender_Name, "") VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ncts_Versender_EORI, "") VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "") 'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.vers, "") - VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ncts_Versender_Land, "") + VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ncts_Versender_Land, "").replace("SRB", "RS") VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ncts_Versender_PLZ, "") VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ncts_Versender_StrasseHausnummer, "") VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ncts_Versender_Ort, "") @@ -741,7 +756,7 @@ VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ncts_Empfaenger_EORI, "") VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") 'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.vers, "") - VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ncts_Empfaenger_Land, "") + VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ncts_Empfaenger_Land, "").replace("SRB", "RS") VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ncts_Empfaenger_PLZ, "") VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ncts_Empfaenger_StrasseHausnummer, "") VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ncts_Empfaenger_Ort, "") @@ -751,7 +766,7 @@ VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ncts_SumA_Befoerderer_EORI, "") VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_SumA_Befoerderer_NLNR, "") 'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.vers, "") - VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ncts_SumA_Befoerderer_Land, "") + VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ncts_SumA_Befoerderer_Land, "").replace("SRB", "RS") VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ncts_SumA_Befoerderer_PLZ, "") VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ncts_SumA_Befoerderer_StrasseHausnummer, "") VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ncts_SumA_Befoerderer_Ort, "") @@ -864,15 +879,15 @@ VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.ncts_Befoerderungsmittel_KennzeichenAbgang, "") VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.ncts_AbgangsDienststellennummer, "") VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.ncts_BestimmungsstelleDienststellennummer, "") - VERAG_NCTS.NCTS_Data.DepartureCountry = If(NCTS_TMP.ncts_VersendungsLandCode, "") - VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.ncts_BestimmungslandCode, "") + VERAG_NCTS.NCTS_Data.DepartureCountry = If(NCTS_TMP.ncts_VersendungsLandCode, "").replace("SRB", "RS") + VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.ncts_BestimmungslandCode, "").replace("SRB", "RS") 'Versender VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ncts_Versender_Name, "") VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ncts_Versender_EORI, "") VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "") 'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.vers, "") - VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ncts_Versender_Land, "") + VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ncts_Versender_Land, "").replace("SRB", "RS") VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ncts_Versender_PLZ, "") VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ncts_Versender_StrasseHausnummer, "") VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ncts_Versender_Ort, "") @@ -882,7 +897,7 @@ VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ncts_Empfaenger_EORI, "") VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") 'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.vers, "") - VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ncts_Empfaenger_Land, "") + VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ncts_Empfaenger_Land, "").replace("SRB", "RS") VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ncts_Empfaenger_PLZ, "") VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ncts_Empfaenger_StrasseHausnummer, "") VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ncts_Empfaenger_Ort, "") @@ -896,7 +911,7 @@ VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "") VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "") VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(AD.UstIdKz, "") & If(AD.UstIdNr, "") - VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "") + VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "").replace("SRB", "RS") VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "") VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "") VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "") @@ -906,7 +921,7 @@ VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ncts_SumA_Befoerderer_EORI, "") VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_SumA_Befoerderer_NLNR, "") 'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.vers, "") - VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ncts_SumA_Befoerderer_Land, "") + VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ncts_SumA_Befoerderer_Land, "").replace("SRB", "RS") VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ncts_SumA_Befoerderer_PLZ, "") VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ncts_SumA_Befoerderer_StrasseHausnummer, "") VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ncts_SumA_Befoerderer_Ort, "") @@ -1128,15 +1143,15 @@ VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.ncts_Befoerderungsmittel_KennzeichenAbgang, "") VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.ncts_AbgangsDienststellennummer, "") VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.ncts_BestimmungsstelleDienststellennummer, "") - VERAG_NCTS.NCTS_Data.DepartureCountry = If(NCTS_TMP.ncts_VersendungsLandCode, "") - VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.ncts_BestimmungslandCode, "") + VERAG_NCTS.NCTS_Data.DepartureCountry = If(NCTS_TMP.ncts_VersendungsLandCode, "").replace("SRB", "RS") + VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.ncts_BestimmungslandCode, "").replace("SRB", "RS") 'Versender VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ncts_Versender_Name, "") VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ncts_Versender_EORI, "") VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "") 'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.vers, "") - VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ncts_Versender_Land, "") + VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ncts_Versender_Land, "").replace("SRB", "RS") VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ncts_Versender_PLZ, "") VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ncts_Versender_StrasseHausnummer, "") VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ncts_Versender_Ort, "") @@ -1146,7 +1161,7 @@ VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ncts_Empfaenger_EORI, "") VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") 'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.vers, "") - VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ncts_Empfaenger_Land, "") + VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ncts_Empfaenger_Land, "").replace("SRB", "RS") VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ncts_Empfaenger_PLZ, "") VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ncts_Empfaenger_StrasseHausnummer, "") VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ncts_Empfaenger_Ort, "") @@ -1160,7 +1175,7 @@ VERAG_NCTS.NCTS_Data.Carrier.EORI = If(KD.EORITIN, "") VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(KD.EORITIN_NL, "") VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(AD.UstIdKz, "") & If(AD.UstIdNr, "") - VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "") + VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(AD.LandKz, "").replace("SRB", "RS") VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(AD.PLZ, "") VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(AD.Straße, "") VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(AD.Ort, "") @@ -1171,7 +1186,7 @@ VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ncts_SumA_Befoerderer_EORI, "") VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_SumA_Befoerderer_NLNR, "") 'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.vers, "") - VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ncts_SumA_Befoerderer_Land, "") + VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ncts_SumA_Befoerderer_Land, "").replace("SRB", "RS") VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ncts_SumA_Befoerderer_PLZ, "") VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ncts_SumA_Befoerderer_StrasseHausnummer, "") VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ncts_SumA_Befoerderer_Ort, "") @@ -2358,14 +2373,47 @@ End Function - Shared Function insertFTPLOG(filePath As String, user As String, ReferenzNumber As String, ProcedureCode As String, Status As String, vorsystem As String) - Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & ReferenzNumber & "','" & ProcedureCode & "','" & Status & "','" & vorsystem & "')", "FMZOLL") + Shared Function insertFTPLOG(filePath As String, Firma As String, ReferenzNumber As String, ProcedureCode As String, Status As String, vorsystem As String, partnersystem As String, MRN As String) + + Dim API As New VERAG_PROG_ALLGEMEIN.cAPI + + API.api_InOut = VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT + API.api_Type = VERAG_PROG_ALLGEMEIN.cAPI_Type.FTP + API.api_apiArt = VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_NCTS + API.api_Vorsystem = vorsystem + API.api_Partnersystem = partnersystem + API.api_Zollbelegnummer = MRN + API.api_Firma = Firma + API.api_apiUArt = ProcedureCode + API.api_BezugsNr = ReferenzNumber + API.api_filepathDestination = filePath + API.api_apiZollStatus = Status + + If GLO_AVISO IsNot Nothing Then API.api_AvisoId = GLO_AVISO.AvisoID + If GLO_SND IsNot Nothing Then API.api_SendungsId = GLO_SND.tblSnd_SendungID + API.SAVE() + API.UPDTAE_OK() + ' Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & ReferenzNumber & "','" & ProcedureCode & "','" & Status & "','" & vorsystem & "')", "FMZOLL") End Function - Shared Function insertFTPLOG(filePath, user, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem) - Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & ftp_BezugsNr & "','" & ftp_art & "','" & ftp_status & "','" & ftp_vorsystem & "')", "FMZOLL") - End Function + 'Shared Function insertFTPLOG(filePath, user, ftp_BezugsNr, ftp_art, ftp_status, ftp_vorsystem) + ' Dim API As New VERAG_PROG_ALLGEMEIN.cAPI + + ' API.api_InOut = VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT + ' API.api_Type = VERAG_PROG_ALLGEMEIN.cAPI_Type.FTP + ' API.api_apiArt = VERAG_PROG_ALLGEMEIN.cAPI_ART.VERAG_OUT_NCTS + ' API.api_Vorsystem = vorsystem + ' API.api_apiUArt = ProcedureCode + ' API.api_BezugsNr = ReferenzNumber + ' API.api_filepathDestination = filePath + ' API.api_apiZollStatus = Status + ' If GLO_AVISO IsNot Nothing Then API.api_AvisoId = GLO_AVISO.AvisoID + ' If GLO_SND IsNot Nothing Then API.api_SendungsId = GLO_SND.tblSnd_SendungID + ' API.SAVE() + + ' Return SQL.doSQL("INSERT INTO tblFTP_Log (ftp_filepath,ftp_user,ftp_BezugsNr,ftp_art,ftp_status,ftp_vorsystem) VALUES ('" & filePath & "','" & user & "','" & ftp_BezugsNr & "','" & ftp_art & "','" & ftp_status & "','" & ftp_vorsystem & "')", "FMZOLL") + 'End Function End Class @@ -2374,11 +2422,11 @@ Class cGASTON_SCHUL_Interface Shared Sub copyNCTSToFTP_V1_0_0(ByRef GS_OUT As VERAG_PROG_ALLGEMEIN.agsCustomsExchange.exchangeRequestType, IF_Obj As cVERAG_InterfaceSharedObjects, ByRef vorsystem As String, ByRef filePath As String, ByRef destFile As String, ByRef UniqueId As String, Optional checkAlreadyProvided As Boolean = True, ByRef Optional found As Boolean = False) - If GS_OUT IsNot Nothing AndAlso Not cVERAG_out_ncts.alreadyProvidedInInterface(GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem, IF_Obj.CooName, checkAlreadyProvided) Then + If GS_OUT IsNot Nothing AndAlso Not cVERAG_out_ncts.alreadyProvidedInInterface(GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem, IF_Obj.toSystem, checkAlreadyProvided) Then If genXMLFile_V1_0_0(GS_OUT, filePath, vorsystem, UniqueId) <> "" Then frmStartOptions.copyFile(filePath, IF_Obj.FTP_Path, destFile) If IO.File.Exists(destFile) Then - cVERAG_out_ncts.insertFTPLOG(destFile, IF_Obj.CooName, GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem) + cVERAG_out_ncts.insertFTPLOG(destFile, "VERAG", GS_OUT.movementReferenceNumber, "OUT", "0", vorsystem, IF_Obj.toSystem, GS_OUT.movementReferenceNumber) found = True Else Try diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 54231ed..bc6db57 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -10,7 +10,7 @@ Public Class frmDYNachrichtenVerarbeitung Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim allowClose = False ' Dim DY_PFAD = "C:\Users\DEVELOPER1\Desktop\test\TEST\" - + Public Event EV_FINISHED() Dim VERARBEITUNGS_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Einarbeitung\" Dim ZIEL_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_Ablage\" Dim ERROR_PFAD = "" '"C:\Users\DEVELOPER1\Desktop\test\TEST\Nachrichtendaten_ERROR\" @@ -78,6 +78,11 @@ Public Class frmDYNachrichtenVerarbeitung Me.Enabled = False Try Label5.Visible = True + If ListBox3.Items.Count = 0 Then + Label6.Text = "Keine Daten zum Einlesen vorhanden." + Label6.Visible = True + Exit Sub + End If DatenEinlesen() '<<<<---------------------- @@ -191,11 +196,7 @@ Public Class frmDYNachrichtenVerarbeitung VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL - If ListBox3.Items.Count = 0 Then - Label6.Text = "Keine Daten zum Einlesen vorhanden." - Label6.Visible = True - Exit Sub - End If + For Each d In getFilesInOrder() 'System.IO.Directory.GetFiles(VERARBEITUNGS_PFAD,,) Try @@ -206,8 +207,9 @@ Public Class frmDYNachrichtenVerarbeitung Dim statusTMP As DAKOSY_Worker.cDakosy_Statusmeldungen = Nothing Dim fi As FileInfo = New FileInfo(d) - If Not fi.Name.StartsWith(".") Then - + If Not fi.Name.StartsWith(".") And Not fi.Name.StartsWith("lock_") Then + d = frmStartOptions.lockFile(d) + fi = New FileInfo(d) ' EDIFACT ' If fi.Extension = ".edi" Then Dim alreadyMoved = False @@ -4388,7 +4390,7 @@ Public Class frmDYNachrichtenVerarbeitung 'Case "4801" ' firma = "DURMAZ" ' niederlassung = "SBG" - Case "4803", "5003", "5103", "5303", "4805", "4811" + Case "4803", "5003", "5103", "5303", "4805", "4811", "7001" firma = "VERAG" Case "5601" firma = "UNISPED" @@ -5403,6 +5405,10 @@ Public Class frmDYNachrichtenVerarbeitung End If If EZA.EinzelAbgabenbescheid.KopfDaten IsNot Nothing Then + If EZA.EinzelAbgabenbescheid.KopfDaten.Bearbeiter IsNot Nothing Then + zoellner = EZA.EinzelAbgabenbescheid.KopfDaten.Bearbeiter + End If + If EZA.EinzelAbgabenbescheid.KopfDaten.Registriernummer IsNot Nothing Then regNr = EZA.EinzelAbgabenbescheid.KopfDaten.Registriernummer End If @@ -5436,10 +5442,9 @@ Public Class frmDYNachrichtenVerarbeitung - End If - If readEZA_Abgabenbescheid009 <> "" Then 'BEZUGSNR vorhanden + If readEZA_Abgabenbescheid009 <> "" Then 'BEZUGSNR vorhanden STATUS.dySt_BezugsNr = readEZA_Abgabenbescheid009 STATUS.dySt_artMitteilung = "AB" STATUS.dySt_dyArt = "EZA" '"EZA" 'T1/T2 @@ -6185,14 +6190,33 @@ Public Class frmDYNachrichtenVerarbeitung Private Sub frmDYNachrichtenVerarbeitung_Shown(sender As Object, e As EventArgs) Handles Me.Shown - If allowClose Then - Me.Refresh() - Button2.PerformClick() - Button1.PerformClick() - - System.Threading.Thread.Sleep(2000) + If allowClose Then ' AUTOMATIK + Try + 'Daten von Server laden: + ' Me.Refresh() + ' Me.Enabled = False + ' Label9.Visible = True + ' Dim cnt = getNachrichtenDatenFromDakosy() + getNachrichtenDatenFromDakosy() + ' Label9.Text = cnt & " Datensätze empfangen." + ' Label5.Visible = True + ' Me.Refresh() + 'Daten einlesen: + DatenEinlesen() + If dsNichtErkannt > 0 Then + ' Label6.Text = dsNichtErkannt & " Datensätze nicht " & vbNewLine & "erkannt." + ' Label6.Visible = True + End If + ' Me.Refresh() + RaiseEvent EV_FINISHED() 'Steigt hier schon aus + System.Threading.Thread.Sleep(2000) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & Dateiname, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Me.Enabled = True + Me.Dispose() Me.Close() End If End Sub diff --git a/initATLASAufschubkonten/frmInfo.Designer.vb b/initATLASAufschubkonten/frmInfo.Designer.vb new file mode 100644 index 0000000..b0c5e5b --- /dev/null +++ b/initATLASAufschubkonten/frmInfo.Designer.vb @@ -0,0 +1,53 @@ + _ +Partial Class frmInfo + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.Label1 = New System.Windows.Forms.Label() + Me.SuspendLayout() + ' + 'Label1 + ' + Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!) + Me.Label1.ForeColor = System.Drawing.Color.White + Me.Label1.Location = New System.Drawing.Point(13, 12) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(206, 17) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "Working..." + ' + 'frmInfo + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.BackColor = System.Drawing.SystemColors.ActiveCaptionText + Me.ClientSize = New System.Drawing.Size(295, 41) + Me.Controls.Add(Me.Label1) + Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow + Me.Name = "frmInfo" + Me.Text = "Routine Manager" + Me.ResumeLayout(False) + + End Sub + + Friend WithEvents Label1 As Label +End Class diff --git a/initATLASAufschubkonten/frmInfo.resx b/initATLASAufschubkonten/frmInfo.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/initATLASAufschubkonten/frmInfo.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/initATLASAufschubkonten/frmInfo.vb b/initATLASAufschubkonten/frmInfo.vb new file mode 100644 index 0000000..f00980c --- /dev/null +++ b/initATLASAufschubkonten/frmInfo.vb @@ -0,0 +1,16 @@ +Public Class frmInfo + Dim ueberschrift + Sub New(ueberschrift) + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + Me.ueberschrift = ueberschrift + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + + End Sub + + Private Sub frmInfo_Load(sender As Object, e As EventArgs) Handles Me.Load + Me.Text = ueberschrift + End Sub +End Class \ No newline at end of file diff --git a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb index 7a552fd..9ec7d5a 100644 --- a/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmMDMNachrichtenVerarbeitung.vb @@ -585,12 +585,23 @@ Public Class frmMDMNachrichtenVerarbeitung PLOSE.plose_ProduktCode = SQL.isleernothing(currentRow(34)) PLOSE.plose_ReferenzenBuchungMaut = SQL.isleernothing(currentRow(35)) + If currentRow.Length > 36 Then PLOSE.plose_SupplierRechnungsNr = SQL.isleernothing(currentRow(36)) + If currentRow.Length > 37 AndAlso currentRow(37).ToString.Length = 8 Then + Dim datumParse = DateTime.ParseExact(currentRow(37), "yyyyMMdd", Nothing) + PLOSE.plose_SupplierRechnungsDatum = datumParse + End If + + If If(PLOSE.plose_SupplierRechnungsNr, "").contains("-SFC-") Then ' SOFICO + PLOSE.plose_LieferantCode = "90" + PLOSE.plose_Lieferant = SQL.DLookup("pl_Bezeichnung", "tblPLOSE_Lieferant", " [pl_LieferantCode]='" & PLOSE.plose_LieferantCode & "' ", "FMZOLL", "") + End If + '''''''''''' If PLOSE.SAVE() Then - End If + End If - End If + End If End Select cnt += 1 diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index 012d8ae..c24d152 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -25,13 +25,19 @@ Partial Class frmStartOptions Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Me.pnl = New System.Windows.Forms.Panel() + Me.LinkLabel36 = New System.Windows.Forms.LinkLabel() + Me.Button13 = New System.Windows.Forms.Button() + Me.Button12 = New System.Windows.Forms.Button() Me.cbxSyskaWdh = New System.Windows.Forms.CheckBox() + Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.Button10 = New System.Windows.Forms.Button() Me.piceZollAnh = New System.Windows.Forms.PictureBox() + Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.lblEZOLLDat = New System.Windows.Forms.LinkLabel() Me.Button6 = New System.Windows.Forms.Button() Me.CheckBox6 = New System.Windows.Forms.CheckBox() Me.Button7 = New System.Windows.Forms.Button() + Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox7 = New System.Windows.Forms.CheckBox() Me.Label16 = New System.Windows.Forms.Label() Me.LinkLabel33 = New System.Windows.Forms.LinkLabel() @@ -40,6 +46,7 @@ Partial Class frmStartOptions Me.Button4 = New System.Windows.Forms.Button() Me.CheckBox5 = New System.Windows.Forms.CheckBox() Me.Button3 = New System.Windows.Forms.Button() + Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.CheckBox4 = New System.Windows.Forms.CheckBox() Me.Label13 = New System.Windows.Forms.Label() Me.CheckBox3 = New System.Windows.Forms.CheckBox() @@ -101,6 +108,15 @@ Partial Class frmStartOptions Me.Label7 = New System.Windows.Forms.Label() Me.LinkLabel27 = New System.Windows.Forms.LinkLabel() Me.Label6 = New System.Windows.Forms.Label() + Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) + Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() + Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.LinkLabel34 = New System.Windows.Forms.LinkLabel() Me.LinkLabel35 = New System.Windows.Forms.LinkLabel() @@ -117,6 +133,7 @@ Partial Class frmStartOptions Me.cbxKd = New System.Windows.Forms.CheckBox() Me.Button9 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() + Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.PictureBox12 = New System.Windows.Forms.PictureBox() Me.LinkLabel20 = New System.Windows.Forms.LinkLabel() Me.PictureBox11 = New System.Windows.Forms.PictureBox() @@ -132,22 +149,9 @@ Partial Class frmStartOptions Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() - Me.Button12 = New System.Windows.Forms.Button() - Me.txtSyskaWdhDateiname = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtEZOLLAnhDat = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.cboSYSKAFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.cboBMDUnispedFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.dgvMRN = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) - Me.clmnMRN = New System.Windows.Forms.DataGridViewTextBoxColumn() - Me.txtVRGOut_MRN = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_FilialenNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtVRGOut_AbfertigungsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOutEZA_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Button13 = New System.Windows.Forms.Button() + Me.MyTextBox2 = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.Label18 = New System.Windows.Forms.Label() + Me.Label19 = New System.Windows.Forms.Label() Me.pnl.SuspendLayout() CType(Me.piceZollAnh, System.ComponentModel.ISupportInitialize).BeginInit() Me.tbcntr.SuspendLayout() @@ -165,18 +169,22 @@ Partial Class frmStartOptions Me.TabPage2.SuspendLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage3.SuspendLayout() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl ' Me.pnl.BackColor = System.Drawing.Color.White Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle + Me.pnl.Controls.Add(Me.Label19) + Me.pnl.Controls.Add(Me.Label18) + Me.pnl.Controls.Add(Me.MyTextBox2) + Me.pnl.Controls.Add(Me.LinkLabel36) Me.pnl.Controls.Add(Me.Button13) Me.pnl.Controls.Add(Me.Button12) Me.pnl.Controls.Add(Me.cbxSyskaWdh) @@ -231,6 +239,41 @@ Partial Class frmStartOptions Me.pnl.Size = New System.Drawing.Size(861, 827) Me.pnl.TabIndex = 0 ' + 'LinkLabel36 + ' + Me.LinkLabel36.AutoSize = True + Me.LinkLabel36.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel36.Location = New System.Drawing.Point(15, 189) + Me.LinkLabel36.Name = "LinkLabel36" + Me.LinkLabel36.Size = New System.Drawing.Size(117, 13) + Me.LinkLabel36.TabIndex = 62 + Me.LinkLabel36.TabStop = True + Me.LinkLabel36.Text = "UID-Prüfung UNISPED" + ' + 'Button13 + ' + Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button13.Location = New System.Drawing.Point(559, 343) + Me.Button13.Name = "Button13" + Me.Button13.Size = New System.Drawing.Size(197, 24) + Me.Button13.TabIndex = 61 + Me.Button13.Text = "OP --> VERAG" + Me.Button13.UseVisualStyleBackColor = True + ' + 'Button12 + ' + Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button12.Location = New System.Drawing.Point(559, 320) + Me.Button12.Name = "Button12" + Me.Button12.Size = New System.Drawing.Size(197, 24) + Me.Button12.TabIndex = 60 + Me.Button12.Text = "Risiko --> Syska" + Me.Button12.UseVisualStyleBackColor = True + ' 'cbxSyskaWdh ' Me.cbxSyskaWdh.AutoSize = True @@ -242,6 +285,28 @@ Partial Class frmStartOptions Me.cbxSyskaWdh.Text = "Buchungen wiederh." Me.cbxSyskaWdh.UseVisualStyleBackColor = True ' + 'txtSyskaWdhDateiname + ' + Me.txtSyskaWdhDateiname._DateTimeOnly = False + Me.txtSyskaWdhDateiname._numbersOnly = False + Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" + Me.txtSyskaWdhDateiname._Prozent = False + Me.txtSyskaWdhDateiname._ShortDateNew = False + Me.txtSyskaWdhDateiname._ShortDateOnly = False + Me.txtSyskaWdhDateiname._TimeOnly = False + Me.txtSyskaWdhDateiname._value = "" + Me.txtSyskaWdhDateiname._Waehrung = False + Me.txtSyskaWdhDateiname._WaehrungZeichen = True + Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black + Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(687, 295) + Me.txtSyskaWdhDateiname.MaxLength = 50 + Me.txtSyskaWdhDateiname.MaxLineLength = -1 + Me.txtSyskaWdhDateiname.MaxLines_Warning = "" + Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing + Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" + Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) + Me.txtSyskaWdhDateiname.TabIndex = 58 + ' 'Button10 ' Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat @@ -266,6 +331,28 @@ Partial Class frmStartOptions Me.piceZollAnh.TabStop = False Me.piceZollAnh.Visible = False ' + 'txtEZOLLAnhDat + ' + Me.txtEZOLLAnhDat._DateTimeOnly = False + Me.txtEZOLLAnhDat._numbersOnly = False + Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" + Me.txtEZOLLAnhDat._Prozent = False + Me.txtEZOLLAnhDat._ShortDateNew = True + Me.txtEZOLLAnhDat._ShortDateOnly = False + Me.txtEZOLLAnhDat._TimeOnly = False + Me.txtEZOLLAnhDat._value = "" + Me.txtEZOLLAnhDat._Waehrung = False + Me.txtEZOLLAnhDat._WaehrungZeichen = True + Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black + Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 190) + Me.txtEZOLLAnhDat.MaxLength = 10 + Me.txtEZOLLAnhDat.MaxLineLength = -1 + Me.txtEZOLLAnhDat.MaxLines_Warning = "" + Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing + Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" + Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) + Me.txtEZOLLAnhDat.TabIndex = 55 + ' 'lblEZOLLDat ' Me.lblEZOLLDat.AutoSize = True @@ -314,6 +401,17 @@ Partial Class frmStartOptions Me.Button7.Text = "Buchungen --> Syska" Me.Button7.UseVisualStyleBackColor = True ' + 'cboSYSKAFirma + ' + Me.cboSYSKAFirma._allowedValuesFreiText = Nothing + Me.cboSYSKAFirma._allowFreiText = False + Me.cboSYSKAFirma._value = "" + Me.cboSYSKAFirma.FormattingEnabled = True + Me.cboSYSKAFirma.Location = New System.Drawing.Point(559, 276) + Me.cboSYSKAFirma.Name = "cboSYSKAFirma" + Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) + Me.cboSYSKAFirma.TabIndex = 51 + ' 'CheckBox7 ' Me.CheckBox7.AutoSize = True @@ -406,6 +504,17 @@ Partial Class frmStartOptions Me.Button3.Text = "Buchungen --> BMD" Me.Button3.UseVisualStyleBackColor = True ' + 'cboBMDUnispedFirma + ' + Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing + Me.cboBMDUnispedFirma._allowFreiText = False + Me.cboBMDUnispedFirma._value = "" + Me.cboBMDUnispedFirma.FormattingEnabled = True + Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 276) + Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" + Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) + Me.cboBMDUnispedFirma.TabIndex = 42 + ' 'CheckBox4 ' Me.CheckBox4.AutoSize = True @@ -1138,6 +1247,153 @@ Partial Class frmStartOptions Me.Label6.TabIndex = 0 Me.Label6.Text = "VERAG IN" ' + 'dgvMRN + ' + Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 + Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize + Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) + Me.dgvMRN.Location = New System.Drawing.Point(637, 63) + Me.dgvMRN.Name = "dgvMRN" + Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect + Me.dgvMRN.Size = New System.Drawing.Size(207, 134) + Me.dgvMRN.TabIndex = 75 + ' + 'clmnMRN + ' + Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill + Me.clmnMRN.HeaderText = "MRN" + Me.clmnMRN.Name = "clmnMRN" + ' + 'txtVRGOut_MRN + ' + Me.txtVRGOut_MRN._DateTimeOnly = False + Me.txtVRGOut_MRN._numbersOnly = False + Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" + Me.txtVRGOut_MRN._Prozent = False + Me.txtVRGOut_MRN._ShortDateNew = False + Me.txtVRGOut_MRN._ShortDateOnly = False + Me.txtVRGOut_MRN._TimeOnly = False + Me.txtVRGOut_MRN._value = "" + Me.txtVRGOut_MRN._Waehrung = False + Me.txtVRGOut_MRN._WaehrungZeichen = False + Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) + Me.txtVRGOut_MRN.MaxLineLength = -1 + Me.txtVRGOut_MRN.MaxLines_Warning = "" + Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" + Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_MRN.TabIndex = 73 + ' + 'txtVRGOut_FilialenNr + ' + Me.txtVRGOut_FilialenNr._DateTimeOnly = False + Me.txtVRGOut_FilialenNr._numbersOnly = False + Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_FilialenNr._Prozent = False + Me.txtVRGOut_FilialenNr._ShortDateNew = False + Me.txtVRGOut_FilialenNr._ShortDateOnly = False + Me.txtVRGOut_FilialenNr._TimeOnly = False + Me.txtVRGOut_FilialenNr._value = "" + Me.txtVRGOut_FilialenNr._Waehrung = False + Me.txtVRGOut_FilialenNr._WaehrungZeichen = False + Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) + Me.txtVRGOut_FilialenNr.MaxLineLength = -1 + Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" + Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_FilialenNr.Multiline = True + Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" + Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) + Me.txtVRGOut_FilialenNr.TabIndex = 71 + ' + 'txtVRGOut_AbfertigungsNr + ' + Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnly = False + Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_AbfertigungsNr._Prozent = False + Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False + Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False + Me.txtVRGOut_AbfertigungsNr._TimeOnly = False + Me.txtVRGOut_AbfertigungsNr._value = "" + Me.txtVRGOut_AbfertigungsNr._Waehrung = False + Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False + Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) + Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" + Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_AbfertigungsNr.Multiline = True + Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" + Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) + Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 + ' + 'MyComboBox2 + ' + Me.MyComboBox2._allowedValuesFreiText = Nothing + Me.MyComboBox2._allowFreiText = False + Me.MyComboBox2._value = "" + Me.MyComboBox2.FormattingEnabled = True + Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) + Me.MyComboBox2.Name = "MyComboBox2" + Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox2.TabIndex = 64 + ' + 'txtVRGOutEZA_BezugsNr + ' + Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnly = False + Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOutEZA_BezugsNr._Prozent = False + Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False + Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False + Me.txtVRGOutEZA_BezugsNr._TimeOnly = False + Me.txtVRGOutEZA_BezugsNr._value = "" + Me.txtVRGOutEZA_BezugsNr._Waehrung = False + Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False + Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) + Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOutEZA_BezugsNr.Multiline = True + Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" + Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) + Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 + ' + 'MyComboBox1 + ' + Me.MyComboBox1._allowedValuesFreiText = Nothing + Me.MyComboBox1._allowFreiText = False + Me.MyComboBox1._value = "" + Me.MyComboBox1.FormattingEnabled = True + Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) + Me.MyComboBox1.Name = "MyComboBox1" + Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) + Me.MyComboBox1.TabIndex = 4 + ' + 'txtVRGOut_BezugsNr + ' + Me.txtVRGOut_BezugsNr._DateTimeOnly = False + Me.txtVRGOut_BezugsNr._numbersOnly = False + Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" + Me.txtVRGOut_BezugsNr._Prozent = False + Me.txtVRGOut_BezugsNr._ShortDateNew = False + Me.txtVRGOut_BezugsNr._ShortDateOnly = False + Me.txtVRGOut_BezugsNr._TimeOnly = False + Me.txtVRGOut_BezugsNr._value = "" + Me.txtVRGOut_BezugsNr._Waehrung = False + Me.txtVRGOut_BezugsNr._WaehrungZeichen = False + Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red + Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) + Me.txtVRGOut_BezugsNr.MaxLineLength = -1 + Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" + Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing + Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" + Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) + Me.txtVRGOut_BezugsNr.TabIndex = 5 + ' 'TabPage3 ' Me.TabPage3.Controls.Add(Me.LinkLabel34) @@ -1317,6 +1573,28 @@ Partial Class frmStartOptions Me.Label3.TabIndex = 14 Me.Label3.Text = "Routine Manager IMEX" ' + 'MyTextBox1 + ' + Me.MyTextBox1._DateTimeOnly = False + Me.MyTextBox1._numbersOnly = True + Me.MyTextBox1._numbersOnlyKommastellen = "" + Me.MyTextBox1._Prozent = False + Me.MyTextBox1._ShortDateNew = False + Me.MyTextBox1._ShortDateOnly = False + Me.MyTextBox1._TimeOnly = False + Me.MyTextBox1._value = "100000" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(151, 132) + Me.MyTextBox1.MaxLineLength = -1 + Me.MyTextBox1.MaxLines_Warning = "" + Me.MyTextBox1.MaxLines_Warning_Label = Nothing + Me.MyTextBox1.Name = "MyTextBox1" + Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox1.TabIndex = 11 + Me.MyTextBox1.Text = "100000" + ' 'PictureBox12 ' Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) @@ -1485,264 +1763,44 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' - 'Button12 + 'MyTextBox2 ' - Me.Button12.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button12.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button12.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button12.Location = New System.Drawing.Point(559, 320) - Me.Button12.Name = "Button12" - Me.Button12.Size = New System.Drawing.Size(197, 24) - Me.Button12.TabIndex = 60 - Me.Button12.Text = "Risiko --> Syska" - Me.Button12.UseVisualStyleBackColor = True + Me.MyTextBox2._DateTimeOnly = False + Me.MyTextBox2._numbersOnly = True + Me.MyTextBox2._numbersOnlyKommastellen = "" + Me.MyTextBox2._Prozent = False + Me.MyTextBox2._ShortDateNew = False + Me.MyTextBox2._ShortDateOnly = False + Me.MyTextBox2._TimeOnly = False + Me.MyTextBox2._value = "" + Me.MyTextBox2._Waehrung = False + Me.MyTextBox2._WaehrungZeichen = True + Me.MyTextBox2.ForeColor = System.Drawing.Color.Red + Me.MyTextBox2.Location = New System.Drawing.Point(151, 152) + Me.MyTextBox2.MaxLineLength = -1 + Me.MyTextBox2.MaxLines_Warning = "" + Me.MyTextBox2.MaxLines_Warning_Label = Nothing + Me.MyTextBox2.Name = "MyTextBox2" + Me.MyTextBox2.Size = New System.Drawing.Size(53, 20) + Me.MyTextBox2.TabIndex = 63 ' - 'txtSyskaWdhDateiname + 'Label18 ' - Me.txtSyskaWdhDateiname._DateTimeOnly = False - Me.txtSyskaWdhDateiname._numbersOnly = False - Me.txtSyskaWdhDateiname._numbersOnlyKommastellen = "" - Me.txtSyskaWdhDateiname._Prozent = False - Me.txtSyskaWdhDateiname._ShortDateNew = False - Me.txtSyskaWdhDateiname._ShortDateOnly = False - Me.txtSyskaWdhDateiname._TimeOnly = False - Me.txtSyskaWdhDateiname._value = "" - Me.txtSyskaWdhDateiname._Waehrung = False - Me.txtSyskaWdhDateiname._WaehrungZeichen = True - Me.txtSyskaWdhDateiname.ForeColor = System.Drawing.Color.Black - Me.txtSyskaWdhDateiname.Location = New System.Drawing.Point(687, 295) - Me.txtSyskaWdhDateiname.MaxLength = 50 - Me.txtSyskaWdhDateiname.MaxLineLength = -1 - Me.txtSyskaWdhDateiname.MaxLines_Warning = "" - Me.txtSyskaWdhDateiname.MaxLines_Warning_Label = Nothing - Me.txtSyskaWdhDateiname.Name = "txtSyskaWdhDateiname" - Me.txtSyskaWdhDateiname.Size = New System.Drawing.Size(136, 20) - Me.txtSyskaWdhDateiname.TabIndex = 58 + Me.Label18.AutoSize = True + Me.Label18.Location = New System.Drawing.Point(206, 135) + Me.Label18.Name = "Label18" + Me.Label18.Size = New System.Drawing.Size(27, 13) + Me.Label18.TabIndex = 64 + Me.Label18.Text = "Max" ' - 'txtEZOLLAnhDat + 'Label19 ' - Me.txtEZOLLAnhDat._DateTimeOnly = False - Me.txtEZOLLAnhDat._numbersOnly = False - Me.txtEZOLLAnhDat._numbersOnlyKommastellen = "" - Me.txtEZOLLAnhDat._Prozent = False - Me.txtEZOLLAnhDat._ShortDateNew = True - Me.txtEZOLLAnhDat._ShortDateOnly = False - Me.txtEZOLLAnhDat._TimeOnly = False - Me.txtEZOLLAnhDat._value = "" - Me.txtEZOLLAnhDat._Waehrung = False - Me.txtEZOLLAnhDat._WaehrungZeichen = True - Me.txtEZOLLAnhDat.ForeColor = System.Drawing.Color.Black - Me.txtEZOLLAnhDat.Location = New System.Drawing.Point(408, 190) - Me.txtEZOLLAnhDat.MaxLength = 10 - Me.txtEZOLLAnhDat.MaxLineLength = -1 - Me.txtEZOLLAnhDat.MaxLines_Warning = "" - Me.txtEZOLLAnhDat.MaxLines_Warning_Label = Nothing - Me.txtEZOLLAnhDat.Name = "txtEZOLLAnhDat" - Me.txtEZOLLAnhDat.Size = New System.Drawing.Size(87, 20) - Me.txtEZOLLAnhDat.TabIndex = 55 - ' - 'cboSYSKAFirma - ' - Me.cboSYSKAFirma._allowedValuesFreiText = Nothing - Me.cboSYSKAFirma._allowFreiText = False - Me.cboSYSKAFirma._value = "" - Me.cboSYSKAFirma.FormattingEnabled = True - Me.cboSYSKAFirma.Location = New System.Drawing.Point(559, 276) - Me.cboSYSKAFirma.Name = "cboSYSKAFirma" - Me.cboSYSKAFirma.Size = New System.Drawing.Size(129, 21) - Me.cboSYSKAFirma.TabIndex = 51 - ' - 'cboBMDUnispedFirma - ' - Me.cboBMDUnispedFirma._allowedValuesFreiText = Nothing - Me.cboBMDUnispedFirma._allowFreiText = False - Me.cboBMDUnispedFirma._value = "" - Me.cboBMDUnispedFirma.FormattingEnabled = True - Me.cboBMDUnispedFirma.Location = New System.Drawing.Point(268, 276) - Me.cboBMDUnispedFirma.Name = "cboBMDUnispedFirma" - Me.cboBMDUnispedFirma.Size = New System.Drawing.Size(124, 21) - Me.cboBMDUnispedFirma.TabIndex = 42 - ' - 'dgvMRN - ' - Me.dgvMRN.AKTUALISIERUNGS_INTERVALL = -1 - Me.dgvMRN.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - Me.dgvMRN.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.clmnMRN}) - Me.dgvMRN.Location = New System.Drawing.Point(637, 63) - Me.dgvMRN.Name = "dgvMRN" - Me.dgvMRN.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect - Me.dgvMRN.Size = New System.Drawing.Size(207, 134) - Me.dgvMRN.TabIndex = 75 - ' - 'clmnMRN - ' - Me.clmnMRN.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill - Me.clmnMRN.HeaderText = "MRN" - Me.clmnMRN.Name = "clmnMRN" - ' - 'txtVRGOut_MRN - ' - Me.txtVRGOut_MRN._DateTimeOnly = False - Me.txtVRGOut_MRN._numbersOnly = False - Me.txtVRGOut_MRN._numbersOnlyKommastellen = "" - Me.txtVRGOut_MRN._Prozent = False - Me.txtVRGOut_MRN._ShortDateNew = False - Me.txtVRGOut_MRN._ShortDateOnly = False - Me.txtVRGOut_MRN._TimeOnly = False - Me.txtVRGOut_MRN._value = "" - Me.txtVRGOut_MRN._Waehrung = False - Me.txtVRGOut_MRN._WaehrungZeichen = False - Me.txtVRGOut_MRN.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_MRN.Location = New System.Drawing.Point(359, 84) - Me.txtVRGOut_MRN.MaxLineLength = -1 - Me.txtVRGOut_MRN.MaxLines_Warning = "" - Me.txtVRGOut_MRN.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_MRN.Name = "txtVRGOut_MRN" - Me.txtVRGOut_MRN.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_MRN.TabIndex = 73 - ' - 'txtVRGOut_FilialenNr - ' - Me.txtVRGOut_FilialenNr._DateTimeOnly = False - Me.txtVRGOut_FilialenNr._numbersOnly = False - Me.txtVRGOut_FilialenNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_FilialenNr._Prozent = False - Me.txtVRGOut_FilialenNr._ShortDateNew = False - Me.txtVRGOut_FilialenNr._ShortDateOnly = False - Me.txtVRGOut_FilialenNr._TimeOnly = False - Me.txtVRGOut_FilialenNr._value = "" - Me.txtVRGOut_FilialenNr._Waehrung = False - Me.txtVRGOut_FilialenNr._WaehrungZeichen = False - Me.txtVRGOut_FilialenNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_FilialenNr.Location = New System.Drawing.Point(398, 176) - Me.txtVRGOut_FilialenNr.MaxLineLength = -1 - Me.txtVRGOut_FilialenNr.MaxLines_Warning = "" - Me.txtVRGOut_FilialenNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_FilialenNr.Multiline = True - Me.txtVRGOut_FilialenNr.Name = "txtVRGOut_FilialenNr" - Me.txtVRGOut_FilialenNr.Size = New System.Drawing.Size(56, 21) - Me.txtVRGOut_FilialenNr.TabIndex = 71 - ' - 'txtVRGOut_AbfertigungsNr - ' - Me.txtVRGOut_AbfertigungsNr._DateTimeOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnly = False - Me.txtVRGOut_AbfertigungsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_AbfertigungsNr._Prozent = False - Me.txtVRGOut_AbfertigungsNr._ShortDateNew = False - Me.txtVRGOut_AbfertigungsNr._ShortDateOnly = False - Me.txtVRGOut_AbfertigungsNr._TimeOnly = False - Me.txtVRGOut_AbfertigungsNr._value = "" - Me.txtVRGOut_AbfertigungsNr._Waehrung = False - Me.txtVRGOut_AbfertigungsNr._WaehrungZeichen = False - Me.txtVRGOut_AbfertigungsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_AbfertigungsNr.Location = New System.Drawing.Point(453, 176) - Me.txtVRGOut_AbfertigungsNr.MaxLineLength = -1 - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning = "" - Me.txtVRGOut_AbfertigungsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_AbfertigungsNr.Multiline = True - Me.txtVRGOut_AbfertigungsNr.Name = "txtVRGOut_AbfertigungsNr" - Me.txtVRGOut_AbfertigungsNr.Size = New System.Drawing.Size(137, 21) - Me.txtVRGOut_AbfertigungsNr.TabIndex = 70 - ' - 'MyComboBox2 - ' - Me.MyComboBox2._allowedValuesFreiText = Nothing - Me.MyComboBox2._allowFreiText = False - Me.MyComboBox2._value = "" - Me.MyComboBox2.FormattingEnabled = True - Me.MyComboBox2.Location = New System.Drawing.Point(298, 252) - Me.MyComboBox2.Name = "MyComboBox2" - Me.MyComboBox2.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox2.TabIndex = 64 - ' - 'txtVRGOutEZA_BezugsNr - ' - Me.txtVRGOutEZA_BezugsNr._DateTimeOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnly = False - Me.txtVRGOutEZA_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOutEZA_BezugsNr._Prozent = False - Me.txtVRGOutEZA_BezugsNr._ShortDateNew = False - Me.txtVRGOutEZA_BezugsNr._ShortDateOnly = False - Me.txtVRGOutEZA_BezugsNr._TimeOnly = False - Me.txtVRGOutEZA_BezugsNr._value = "" - Me.txtVRGOutEZA_BezugsNr._Waehrung = False - Me.txtVRGOutEZA_BezugsNr._WaehrungZeichen = False - Me.txtVRGOutEZA_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOutEZA_BezugsNr.Location = New System.Drawing.Point(359, 252) - Me.txtVRGOutEZA_BezugsNr.MaxLineLength = -1 - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOutEZA_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOutEZA_BezugsNr.Multiline = True - Me.txtVRGOutEZA_BezugsNr.Name = "txtVRGOutEZA_BezugsNr" - Me.txtVRGOutEZA_BezugsNr.Size = New System.Drawing.Size(153, 21) - Me.txtVRGOutEZA_BezugsNr.TabIndex = 65 - ' - 'MyComboBox1 - ' - Me.MyComboBox1._allowedValuesFreiText = Nothing - Me.MyComboBox1._allowFreiText = False - Me.MyComboBox1._value = "" - Me.MyComboBox1.FormattingEnabled = True - Me.MyComboBox1.Location = New System.Drawing.Point(298, 62) - Me.MyComboBox1.Name = "MyComboBox1" - Me.MyComboBox1.Size = New System.Drawing.Size(62, 21) - Me.MyComboBox1.TabIndex = 4 - ' - 'txtVRGOut_BezugsNr - ' - Me.txtVRGOut_BezugsNr._DateTimeOnly = False - Me.txtVRGOut_BezugsNr._numbersOnly = False - Me.txtVRGOut_BezugsNr._numbersOnlyKommastellen = "" - Me.txtVRGOut_BezugsNr._Prozent = False - Me.txtVRGOut_BezugsNr._ShortDateNew = False - Me.txtVRGOut_BezugsNr._ShortDateOnly = False - Me.txtVRGOut_BezugsNr._TimeOnly = False - Me.txtVRGOut_BezugsNr._value = "" - Me.txtVRGOut_BezugsNr._Waehrung = False - Me.txtVRGOut_BezugsNr._WaehrungZeichen = False - Me.txtVRGOut_BezugsNr.ForeColor = System.Drawing.Color.Red - Me.txtVRGOut_BezugsNr.Location = New System.Drawing.Point(359, 62) - Me.txtVRGOut_BezugsNr.MaxLineLength = -1 - Me.txtVRGOut_BezugsNr.MaxLines_Warning = "" - Me.txtVRGOut_BezugsNr.MaxLines_Warning_Label = Nothing - Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" - Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(153, 20) - Me.txtVRGOut_BezugsNr.TabIndex = 5 - ' - 'MyTextBox1 - ' - Me.MyTextBox1._DateTimeOnly = False - Me.MyTextBox1._numbersOnly = True - Me.MyTextBox1._numbersOnlyKommastellen = "" - Me.MyTextBox1._Prozent = False - Me.MyTextBox1._ShortDateNew = False - Me.MyTextBox1._ShortDateOnly = False - Me.MyTextBox1._TimeOnly = False - Me.MyTextBox1._value = "100000" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(151, 132) - Me.MyTextBox1.MaxLineLength = -1 - Me.MyTextBox1.MaxLines_Warning = "" - Me.MyTextBox1.MaxLines_Warning_Label = Nothing - Me.MyTextBox1.Name = "MyTextBox1" - Me.MyTextBox1.Size = New System.Drawing.Size(53, 20) - Me.MyTextBox1.TabIndex = 11 - Me.MyTextBox1.Text = "100000" - ' - 'Button13 - ' - Me.Button13.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button13.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button13.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button13.Location = New System.Drawing.Point(559, 343) - Me.Button13.Name = "Button13" - Me.Button13.Size = New System.Drawing.Size(197, 24) - Me.Button13.TabIndex = 61 - Me.Button13.Text = "OP --> VERAG" - Me.Button13.UseVisualStyleBackColor = True + Me.Label19.AutoSize = True + Me.Label19.Location = New System.Drawing.Point(205, 155) + Me.Label19.Name = "Label19" + Me.Label19.Size = New System.Drawing.Size(67, 13) + Me.Label19.TabIndex = 65 + Me.Label19.Text = "Tage zurück" ' 'frmStartOptions ' @@ -1777,13 +1835,13 @@ Partial Class frmStartOptions Me.TabPage2.PerformLayout() CType(Me.PictureBox15, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() CType(Me.PictureBox12, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox11, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox10, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.PictureBox9, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.dgvMRN, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -1911,4 +1969,8 @@ Partial Class frmStartOptions Friend WithEvents Button11 As Button Friend WithEvents Button12 As Button Friend WithEvents Button13 As Button + Friend WithEvents LinkLabel36 As LinkLabel + Friend WithEvents Label19 As Label + Friend WithEvents Label18 As Label + Friend WithEvents MyTextBox2 As VERAG_PROG_ALLGEMEIN.MyTextBox End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 1cb6d9d..531b209 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -140,6 +140,102 @@ WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= @@ -433,102 +529,9 @@ True - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - + + True + AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index 1017a6a..eab53ea 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -39,6 +39,9 @@ Public Class frmStartOptions Private Sub frmStartOptions_Load(sender As Object, e As EventArgs) Handles Me.Load timer.Interval = 2500 + VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "ROUTINE_MANAGER" + VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = 17 + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False MyComboBox1.Items.Clear() @@ -69,9 +72,9 @@ Public Class frmStartOptions txtEZOLLAnhDat._value = Now.ToShortDateString - Dim PARAM = "" + Dim PARAM = "INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS" Dim parameter() As String = Environment.GetCommandLineArgs().ToArray - If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 de r Pfad zum programm ist + If (parameter.Count - 1) >= 1 Then 'Höher als 1 weil der index 0 der Pfad zum programm ist PARAM = parameter(1) 'For i = 1 To parameter.Count - 1 ' 'If parameter(i) = "HISTORY" Then PARAM = True @@ -81,61 +84,67 @@ Public Class frmStartOptions 'Standart-Errorverhalten ist MAIL VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL + If PARAM <> "" Then + 'LOG + End If Select Case PARAM Case "BRG_AUFSCHUB" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim f As New frmRoutineManager("ALL", True) - Me.Visible = False + ' Me.Visible = False f.Show() AddHandler f.FormClosed, AddressOf closeMe Case "BRG_AUFSCHUB_HISTORY" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim f As New frmRoutineManager("ALL", True, True) - Me.Visible = False + ' Me.Visible = False f.Show() AddHandler f.FormClosed, AddressOf closeMe Case "DY_EINARBEITUNG" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Dim f As New frmDYNachrichtenVerarbeitung(True) - Me.Visible = False + 'Me.Visible = False ' irgend ein Grund f.Show() AddHandler f.FormClosed, AddressOf closeMe Case "DY_EINARBEITUNG_PROD" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim f As New frmDYNachrichtenVerarbeitung(True) - Me.Visible = False + ' Me.Visible = False ' irgend ein Grund f.Show() + AddHandler f.EV_FINISHED, AddressOf closeMe AddHandler f.FormClosed, AddressOf closeMe Case "NCTSTR_EINARBEITUNG_TEST" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Dim f As New frmTRNCTS_NachrichtenVerarbeitung(True) - Me.Visible = False + ' Me.Visible = False f.Show() AddHandler f.FormClosed, AddressOf closeMe Case "NCTSTR_EINARBEITUNG_PROD" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim f As New frmTRNCTS_NachrichtenVerarbeitung(True) - Me.Visible = False + ' Me.Visible = False f.Show() AddHandler f.FormClosed, AddressOf closeMe Case "NCTSTR_EINARBEITUNG_OREGON_TEST" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Dim f As New frmTRNCTS_NachrichtenVerarbeitung_OREGON(True) - Me.Visible = False + ' Me.Visible = False f.Show() AddHandler f.FormClosed, AddressOf closeMe Case "NCTSTR_EINARBEITUNG_OREGON_PROD" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim f As New frmTRNCTS_NachrichtenVerarbeitung_OREGON(True) - Me.Visible = False + ' Me.Visible = False f.Show() AddHandler f.FormClosed, AddressOf closeMe Case "UPDATE_SMS" + Dim f As New frmInfo(PARAM) + f.Show() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" UPDATE_SMS() @@ -144,30 +153,33 @@ Public Class frmStartOptions VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Dim f As New frmDYNachrichtenVerarbeitung(True) - Me.Visible = False + ' Me.Visible = False f.Show() + AddHandler f.EV_FINISHED, AddressOf closeMe AddHandler f.FormClosed, AddressOf closeMe Case "MDM_EINARBEITUNG" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim f As New frmMDMNachrichtenVerarbeitung(True) - Me.Visible = False + ' Me.Visible = False f.Show() AddHandler f.FormClosed, AddressOf closeMe Case "TC_EINARBEITUNG" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True Dim f As New frmTCNachrichtenVerarbeitung(True) - Me.Visible = False + ' Me.Visible = False f.Show() AddHandler f.FormClosed, AddressOf closeMe Case "TC_EINARBEITUNG_PROD" VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim f As New frmTCNachrichtenVerarbeitung(True) - Me.Visible = False + ' Me.Visible = False f.Show() AddHandler f.FormClosed, AddressOf closeMe Case "DY_CODELISTEN" ' TEST & PROD + Dim f As New frmInfo(PARAM) + f.Show() AddHandler Me.Shown, Sub() Me.Refresh() DAKOSY_Worker.cIMPORT_Codelisten.IMPORT("C0008", True) @@ -182,28 +194,42 @@ Public Class frmStartOptions closeMe() End Sub Case "KD_DATA_DAKOSY" + Dim f As New frmInfo(PARAM) + f.Show() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False DAKOSY_Worker.cDakosyFunftions.sendData() closeMe() Case "EZT_Bundesanzeiger_Importcodenummern" + Dim f As New frmInfo(PARAM) + f.Show() getETZBundesanzeiger_ImportCodenummern() closeMe() Case "EZB_Waehrungskurse" + Dim f As New frmInfo(PARAM) + f.Show() getEZB_Waehrungskurse() closeMe() Case "EZB_Waehrungskurse90D" + Dim f As New frmInfo(PARAM) + f.Show() getEZB_Waehrungskurse90D() closeMe() Case "UID_Pruefung" + Dim f As New frmInfo(PARAM) + f.Show() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False getUID_Pruefung(MyTextBox1.Text) closeMe() Case "SDL_GUELTISBIS" + Dim f As New frmInfo(PARAM) + f.Show() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.SDL_Functions.SDL_GueltigBis_UTA_IDS() closeMe() Case "zoll_mail_attach" + Dim f As New frmInfo(PARAM) + f.Show() Dim pfad = "" Dim betreff = "" Dim von = "" @@ -215,7 +241,10 @@ Public Class frmStartOptions If (parameter.Count - 1) >= 5 Then von = parameter(5) VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - If von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then + + If von.Contains("@q8.com") Or betreff.Contains("IDSPRD: Platts Price Report") Then + importFileFromIDSMailAnhang(pfad, betreff) + ElseIf von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then importFileFromMICMailAnhang(pfad, betreff) Else importFileFromDyMailAnhang(pfad, betreff) @@ -224,17 +253,37 @@ Public Class frmStartOptions closeMe() Case "ezoll_anhaenge" + Dim f As New frmInfo(PARAM) + f.Show() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False importFileFromEZOLL(Now) closeMe() - '-----------IMEX--------------- + + + Case "INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS" + Dim f As New frmInfo(PARAM) + f.Show() + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + + INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS() + + closeMe() + + + '-----------IMEX--------------- Case "IMEX_DVO_KUNDEN_BU" + Dim f As New frmInfo(PARAM) + f.Show() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cDVO_Interface.genStammdatenANSI(False, True, True) closeMe() Case "SYSKA_DATEN_BU" + Dim f As New frmInfo(PARAM) + f.Show() + + 'FIBI Daten bereitstellen: VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(1, False) VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(1, False) @@ -251,23 +300,32 @@ Public Class frmStartOptions VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Stammdaten(19, False) VERAG_PROG_ALLGEMEIN.cSyska_Interface.genDatensatz_Buchungen(19, False) - 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL() - 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO() + 'Offene Posten übernehmen: + VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL() + + 'Risiko in FiBu eintragen: + VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO() closeMe() Case "SYSKA_RISIKO" + Dim f As New frmInfo(PARAM) + f.Show() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO() closeMe() Case "SYSKA_OP_EINLESEN" + Dim f As New frmInfo(PARAM) + f.Show() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL() closeMe() Case "UNISPED_BMD" + Dim f As New frmInfo(PARAM) + f.Show() VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cBMD_Interface.genDatensatzCSV_ALL(False, False) 'Kunden noch nicht closeMe() @@ -279,6 +337,34 @@ Public Class frmStartOptions End Select End Sub + Function INSERT_BENACHRICHTIGUNG_VERMERKE_TEAMS() As Boolean + Try + + Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Dim DT = SQL.loadDgvBySql(" + SELECT * FROM ( + SELECT Vermerke.*, CASE WHEN tblSnd_TeamId IS NULL THEN (SELECT TeamId from ADMIN.dbo.tblMitarbeiter WHERE mit_id=MitarbeiterId) ELSE tblSnd_TeamId END as tblSnd_TeamId,Firma + FROM [Aviso] inner join tblSendungen on [Aviso].AvisoID=tblSnd_AvisoID inner join Vermerke on Vermerke.SendungID=tblSnd_SendungID + where Status NOT IN (1,2) and Vermerke.VermerkeCode=13 + and VermerkIDAufgehoben is null + and DATEDIFF(HOUR,Vermerke.Datum,getdate())>24 + ) as T1 where tblSnd_TeamId is not null + and tblSnd_TeamId=1 + ", "AVISO") + If DT IsNot Nothing Then + For Each r In DT.Rows + VERAG_PROG_ALLGEMEIN.cAvisoBenachrichtigungen.INSERT_BENACHRICHTIGUNG(r("AvisoId"), r("SendungId"), 5, "T", r("tblSnd_TeamId"), "Reminder: " & r("hinweis_vermerk"), 0,, , r("VermerkID"), r("VermerkeCode"), r("Firma")) + Next + End If + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + + Return False + + End Try + End Function Function importFileFromEZOLL(datum As Date) As Boolean Try @@ -366,6 +452,7 @@ Public Class frmStartOptions Dim DY As New DAKOSY_Worker.cDakosy_Zollanmeldungen(dy_id) If DY.dy_SendungsId IsNot Nothing AndAlso CInt(DY.dy_SendungsId) > 0 Then + doMailZollbeleg(pfad, art, DY.dy_SendungsId, DY.dy_BezugsNr) End If @@ -381,6 +468,7 @@ Public Class frmStartOptions If dy_SendungsId IsNot Nothing AndAlso CInt(dy_SendungsId) > 0 Then Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId) Dim list As New List(Of Integer) + sendMailZollbeleg(pfad, SND.tblSnd_EmpfaengerKdNr, art, list, BezugsNr, SND, SND.getKdAtrNr("EMPFAENGER")) sendMailZollbeleg(pfad, SND.tblSnd_AbsenderKdNr, art, list, BezugsNr, SND, "") sendMailZollbeleg(pfad, SND.tblSnd_FrachtfuehrerKdNr, art, list, BezugsNr, SND, SND.getKdAtrNr("FRAECHTER")) @@ -427,8 +515,9 @@ Public Class frmStartOptions pfadList.Add(pfad) Dim KD As New VERAG_PROG_ALLGEMEIN.cKunde(KundenNr) Dim KD_ERW As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(KundenNr) - If KD_ERW IsNot Nothing AndAlso KD IsNot Nothing AndAlso KD.EmailFreigabe Then - If KD_ERW.EmailFreigabe_Art = "BLG" Or art = "AVM" Or art = "ZNV" Then ' Bei AVM ist es immer nach Freigabe, auch ZNV + + If KD_ERW IsNot Nothing AndAlso KD IsNot Nothing Then ' AndAlso KD.EmailFreigabe Then + If KD_ERW.EmailFreigabe_Art = "BLG" Or KD_ERW.EmailFreigabe_Export_Art = "BLG" Or (art = "AVM" And KD_ERW.Email_AVM) Or (art = "ABD" And (KD_ERW.EmailFreigabe_ABDPDF Or KD_ERW.EmailFreigabe_Export_Art = "BLG")) Or art = "ZNV" Then ' Bei AVM ist es immer nach Freigabe, auch ZNV Dim Standort = "SUB" Select Case SND.FilialenNr Case "5501" : Standort = "IMX" @@ -473,7 +562,27 @@ Public Class frmStartOptions Dim EMails_BCC As String = "" Dim Emails_list_sent As New VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigungList - VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KundenNr, 2, EMails, EMails_CC, EMails_BCC, Emails_list_sent) + + Dim Mail_Art = -1 + Select Case art + Case "AVM", "ABD" 'Export + Mail_Art = 4 ' Freigabe Export + + If EMails_BCC = "" Then + EMails_BCC = "al@verag.ag" + Else + EMails_BCC &= ";al@verag.ag" + End If + Case Else + Mail_Art = 2 + End Select + Select Case SND.tblSnd_Abfertigungsart_ID + Case 6, 7, 33, 34, 37, 40, 43 + Mail_Art = 4 ' Freigabe Export + End Select + + + VERAG_PROG_ALLGEMEIN.cEmailBenachrichtigung.eMails_einlesen(KundenNr, Mail_Art, EMails, EMails_CC, EMails_BCC, Emails_list_sent) ' body = body.Replace("%Platzhalter%", "E-Mails: " & EMails & " CC: " & EMails_CC & " BCC:" & EMails_BCC) body = body.Replace("%Platzhalter%", "") @@ -489,38 +598,73 @@ Public Class frmStartOptions 'EMails_BCC = "" '!!!!!!!!!!!!!!!!!!!!!!!!!! - If EMails_BCC = "" Then - EMails_BCC = "al@verag.ag" - Else - EMails_BCC &= ";al@verag.ag" - End If + 'If EMails_BCC = "" Then + ' EMails_BCC = "al@verag.ag" + 'Else + ' EMails_BCC &= ";al@verag.ag" + 'End If + + + Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.AVISO_OUT_BELEGMAIL, art,,, KundenNr, SND.tblSnd_AvisoID, SND.tblSnd_SendungID, SND.FilialenNr, SND.AbfertigungsNr) + + API.api_EMail = EMails + API.api_EMailCC = EMails_CC + API.api_EMailBCC = EMails_BCC + API.api_EMailSubject = betreff + API.api_EMailText = body + API.api_EMailAttCnt = pfadList.Count Select Case art Case "STB" If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid " & BezugsNr) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then + API.UPDTAE_OK() + insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46) + Else + API.UPDTAE_ERR() + End If End If Case "VBD" - If KD_ERW.EmailFreigabe_VBDPDF Then + If (KD_ERW.EmailFreigabe_Export And KD_ERW.EmailFreigabe_Export_Art = "BLG") Or KD_ERW.EmailFreigabe_VBDPDF Then betreff = betreff.Replace("%Zollbeleg%", "Versandbegleitdokument " & BezugsNr) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) - End If - Case "ABD" - If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then - betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & BezugsNr) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) - End If - Case "AVM" - If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then - betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then + API.UPDTAE_OK() + insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46) + Else + API.UPDTAE_ERR() + End If End If Case "ZNV" If KD_ERW.EmailFreigabe_SteuerbescheidPDF Then betreff = betreff.Replace("%Zollbeleg%", "Abgabenbescheid ZNV " & BezugsNr) - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then + API.UPDTAE_OK() + insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46) + Else + API.UPDTAE_ERR() + End If + End If + Case "ABD" + If KD_ERW.EmailFreigabe_Export Or KD_ERW.EmailFreigabe_ABDPDF Then + betreff = betreff.Replace("%Zollbeleg%", "Ausfuhrbegleitdokument " & BezugsNr) + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then + API.UPDTAE_OK() + insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46) + Else + API.UPDTAE_ERR() + End If + End If + Case "AVM" + If KD_ERW.EmailFreigabe_Export Or KD_ERW.Email_AVM Then + betreff = betreff.Replace("%Zollbeleg%", "Ausgangsvermerk " & BezugsNr) + If VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(EMails, betreff, body, getAbsenderEmail(FirmaTmp), False, False, EMails_CC, EMails_BCC, pfadList) Then + API.UPDTAE_OK() + insertSendungsVermerk(SND.tblSnd_SendungID, SND.tblSnd_AvisoID, "Zollbeleg '" & art & "' gesendet an: " & EMails, 46) + Else + API.UPDTAE_ERR() + End If End If End Select @@ -534,6 +678,30 @@ Public Class frmStartOptions End Try End Sub + + Shared Sub insertSendungsVermerk(SendungID As Integer, AvisoID As Integer, Text As String, VermerkCodeId As Integer, Optional Beschreibung As String = "", Optional VorauskasseId As Object = Nothing, Optional addAuto As Boolean = False) + 'Daten zuweisen und speichern + Dim myVermerk As New VERAG_PROG_ALLGEMEIN.cVermerk + myVermerk.VermerkID = 0 + myVermerk.AvisoID = AvisoID + myVermerk.Datum = Now + myVermerk.Mitarbeiter = "(AUTO)" + myVermerk.MitarbeiterId = -1 + myVermerk.Hinweis_Vermerk = Text + myVermerk.VermerkCodeId = VermerkCodeId + myVermerk.SendungID = SendungID + If VorauskasseId IsNot Nothing AndAlso VorauskasseId IsNot DBNull.Value Then myVermerk.VorauskasseId = VorauskasseId + myVermerk.VermerkArt = "S" + Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL + + VermerkeDAL.SpeichernVermerk(myVermerk) + + If myVermerk.VermerkCodeId = 18 Then + VermerkeDAL.UpdateLKW(myVermerk.AvisoID, False) + End If + + End Sub + Public Shared Function getAbsenderEmail(Optional FirmaTmp = "") As String Select Case If(FirmaTmp = "", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, FirmaTmp) Case "IMEX" : Return "noreply@imex-group.at" @@ -724,6 +892,128 @@ Public Class frmStartOptions VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) End Try + End Sub + Sub importFileFromIDSMailAnhang(pfad, betreff) + + Try + Dim sql As New VERAG_PROG_ALLGEMEIN.SQL + Dim DS As VERAG_PROG_ALLGEMEIN.cDATENSERVER = Nothing + + If betreff.contains("IDSPRD: Platts Price Report") Then + + Dim ZIEL_PFAD = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getRootDir() & "IDS\IDS_XLS\Platts_Price_Report\" & Now.Year & "\" + If Not IO.Directory.Exists(ZIEL_PFAD) Then IO.Directory.CreateDirectory(ZIEL_PFAD) + + Dim destFull = "" + moveFile(pfad, ZIEL_PFAD, destFull) + + Dim Excel1 As Object 'New Microsoft.Office.Interop.Excel.Application + Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet + Excel1 = CreateObject("Excel.Application") + Dim txt As String + Dim Datei As Object 'as WorkBook + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(destFull, "00", System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + + Dim DT_PLATTS As New DataTable() + + DT_PLATTS.Columns.Add("IsoCode") + DT_PLATTS.Columns.Add("Outlet") + DT_PLATTS.Columns.Add("Group Description") + DT_PLATTS.Columns.Add("Product") + DT_PLATTS.Columns.Add("Price Period Start") + DT_PLATTS.Columns.Add("Price Period End") + DT_PLATTS.Columns.Add("Excise") + DT_PLATTS.Columns.Add("Netprice") + DT_PLATTS.Columns.Add("Currency") + Try + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TEST 1 " & destFull, "*AUTO*",,,,,, ) + + With Excel1 + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TEST 1.1", "*AUTO*",,,,,, ) + + Datei = .Workbooks.Open(destFull,, True) 'Anpassen + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TEST 1.2", "*AUTO*",,,,,, ) + 'Try + ' Datei = .Workbooks.Open(destFull,, True) 'Anpassen + 'Catch ex As Exception + ' System.Threading.Thread.Sleep(5000) ' 5 Sek. warten --> noch Zugriff vom Erstellen? + ' Datei = .Workbooks.Open(destFull,, True) + 'End Try + + Blatt = Datei.Worksheets(1) 'Anpassen + + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TEST 1.3", "*AUTO*",,,,,, ) + 'Excel1.Workbooks.Open(destFull) + 'Excel1.Visible = True ....wers braucht ? + + Dim zeile = 12 + 'txt ="" + + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "TEST 2: " & Blatt.Range("A" & zeile), "*AUTO*",,,,,, ) + + While zeile <= 10000 AndAlso Blatt.Range("A" & zeile) IsNot Nothing AndAlso Blatt.Range("A" & zeile) <> "" + + If Blatt.Range("A" & zeile).Value.ToString.Contains("Austria") Then + + DT_PLATTS.Rows.Add({Blatt.Range("A" & zeile).Value, Blatt.Range("B" & zeile).Value, Blatt.Range("C" & zeile).Value, Blatt.Range("D" & zeile).Value, Blatt.Range("E" & zeile).Value, Blatt.Range("F" & zeile).Value, Blatt.Range("H" & zeile).Value, Blatt.Range("I" & zeile).Value, Blatt.Range("J" & zeile).Value}) + + + End If + + + + zeile += 1 + + End While + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "zeile: " & zeile, "*AUTO*",,,,,, ) + + + End With + + + 'NEUE EXCEL GENEREITER, PREISE ANPASSEN, MAIL SENDEN + If DT_PLATTS.Rows.Count > 0 Then + Dim XLS_PAth = destFull.Replace(".xls", "_NEW.xls") + Dim XLS_Tmp = "" + VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(DT_PLATTS,,,,, False, XLS_Tmp) + If XLS_Tmp <> "" Then + IO.File.Move(XLS_Tmp, XLS_PAth) ' Verschiebt die Datei + + VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "IDSPRD: Platts Price Report", "*AUTO*",,,,,, {XLS_PAth}) + + End If + End If + + Excel1.Workbooks.Close + System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Excel1) + System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Blatt) + Excel1 = Nothing + Blatt = Nothing + GC.Collect() + + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + + Try + Excel1.Workbooks.Close + System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Excel1) + System.Runtime.InteropServices.Marshal.FinalReleaseComObject(Blatt) + Excel1 = Nothing + Blatt = Nothing + GC.Collect() + + Catch ex2 As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex2.Message, ex2.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + End Try + End Try + + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodBase.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL) + End Try + End Sub Public Function FileInUse(ByVal sFile As String) As Boolean If System.IO.File.Exists(sFile) Then @@ -936,6 +1226,7 @@ Public Class frmStartOptions Dim destFull = "" moveFile(pfad, ZIEL_PFAD, destFull) + If DS.insertDataToDATENSERVER(destFull) Then If IsNumeric(dy_id) AndAlso dy_id > 0 Then sql.doSQL("UPDATE tblDakosy_Zollanmeldungen SET dy_VBD_dsId='" & DS.da_id & "' where dy_id='" & dy_id & "'", "FMZOLL") @@ -1265,17 +1556,49 @@ Public Class frmStartOptions End Sub - Public Function moveFile(file, toDirectory, Optional ByRef dest = "") - If Not IO.File.Exists(file) Then Return False - If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory) - dest = toDirectory & cut_file(file) - If IO.File.Exists(dest) Then - dest = toDirectory & Now.ToString("yyMMdd_HHmmss.fff_") & cut_file(file) - End If - IO.File.Move(file, dest) ' Verschiebt die Datei - Return True + Public Function moveFile(file, toDirectory, Optional ByRef dest = "") ', Optional unlockFile = True) + Try + If Not IO.File.Exists(file) Then Return False + If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory) + dest = toDirectory & cut_file(file).Replace("lock_", "") + If IO.File.Exists(dest) Then + dest = toDirectory & Now.ToString("yyMMdd_HHmmss.fff_") & cut_file(file).Replace("lock_", "") + End If + IO.File.Move(file, dest) ' Verschiebt die Datei + Return True + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + Public Function lockFile(file) As String + Try + If Not IO.File.Exists(file) Then Return file + If file.ToString.Contains("lock_") Then Return file + Dim FIO As New FileInfo(file) + Dim dest = FIO.Directory.FullName & "\lock_" & FIO.Name + If IO.File.Exists(dest) Then Return file + IO.File.Move(file, dest) ' Verschiebt die Datei + Return dest + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return file End Function + Public Function unlockFile(file) As String + Try + Dim dest = file.ToString.Replace("\lock_", "") + If Not IO.File.Exists(file) Then Return False + If Not IO.File.Exists(dest) Then Return False + + IO.File.Move(file, dest) ' Verschiebt die Datei + Return dest + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & "Datei: " & file, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return file + End Function Public Function moveFile_DateBack(file, toDirectory, Optional ByRef dest = "") If Not IO.File.Exists(file) Then Return False If Not IO.Directory.Exists(toDirectory) Then IO.Directory.CreateDirectory(toDirectory) @@ -1411,11 +1734,12 @@ Public Class frmStartOptions End Function - Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "") As Boolean + Function getUID_Pruefung(maxAnz As Integer, Mail_FIMRA As String, Mail_betreff As String, Mail_To As String, Optional Mail_CC As String = "", Optional Mail_BCC As String = "", Optional TageZurueck As String = "") As Boolean Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Try VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = Mail_FIMRA - Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False) + Dim dateBack = If(TageZurueck <> "", CDate(Now.ToString("01.MM.yyyy")).AddDays(TageZurueck * -1), CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1)) + Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(dateBack, True, False, maxAnz, False) If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False) If PDF <> "" Then @@ -1439,89 +1763,89 @@ Public Class frmStartOptions End Try End Function - Function getUID_PruefungVERAG(maxAnz As Integer) As Boolean - Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Try - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" - Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False) - If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False) - If PDF <> "" Then - Dim list As New List(Of String) - list.Add(PDF) - Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.
Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. " - Body &= "
Ungültige UID-Nummern bitte manuell bearbeiten!" - Body &= "

Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString - Body &= "

Automatisch generiertes E-Mail." + 'Function getUID_PruefungVERAG(maxAnz As Integer) As Boolean + ' Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Try + ' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" + ' Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False) + ' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + ' Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False) + ' If PDF <> "" Then + ' Dim list As New List(Of String) + ' list.Add(PDF) + ' Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.
Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. " + ' Body &= "
Ungültige UID-Nummern bitte manuell bearbeiten!" + ' Body &= "

Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString + ' Body &= "

Automatisch generiertes E-Mail." - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("kb@verag.ag", "UID Prüfung VERAG", Body,,, False, "al@verag.ag",, list) - ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list) - End If - End If - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp - Return True - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp - MsgBox(ex.Message & ex.StackTrace) - Return False - End Try - End Function - Function getUID_PruefungIMEX(maxAnz As Integer) As Boolean - Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Try - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" + ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("kb@verag.ag", "UID Prüfung VERAG", Body,,, False, "al@verag.ag",, list) + ' ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list) + ' End If + ' End If + ' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp + ' Return True + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp + ' MsgBox(ex.Message & ex.StackTrace) + ' Return False + ' End Try + 'End Function + 'Function getUID_PruefungIMEX(maxAnz As Integer) As Boolean + ' Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Try + ' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" - Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False) - If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False) - If PDF <> "" Then - Dim list As New List(Of String) - list.Add(PDF) - Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.
Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. " - Body &= "
Ungültige UID-Nummern bitte manuell bearbeiten!" - Body &= "

Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString - Body &= "

Automatisch generiertes E-Mail." + ' Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False) + ' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + ' Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False) + ' If PDF <> "" Then + ' Dim list As New List(Of String) + ' list.Add(PDF) + ' Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.
Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. " + ' Body &= "
Ungültige UID-Nummern bitte manuell bearbeiten!" + ' Body &= "

Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString + ' Body &= "

Automatisch generiertes E-Mail." - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("Viktoria.Leirich@imex-group.at;kb@verag.ag", "UID Prüfung IMEX", Body,,, False, "al@verag.ag",, list) - ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list) - End If - End If - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp - Return True - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp - MsgBox(ex.Message & ex.StackTrace) - Return False - End Try - End Function - Function getUID_PruefungAMBAR(maxAnz As Integer) As Boolean - Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA - Try - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" + ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("Viktoria.Leirich@imex-group.at;kb@verag.ag", "UID Prüfung IMEX", Body,,, False, "al@verag.ag",, list) + ' ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list) + ' End If + ' End If + ' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp + ' Return True + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp + ' MsgBox(ex.Message & ex.StackTrace) + ' Return False + ' End Try + 'End Function + 'Function getUID_PruefungAMBAR(maxAnz As Integer) As Boolean + ' Dim firmatmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + ' Try + ' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "AMBAR" - Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False) - If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then - Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False) - If PDF <> "" Then - Dim list As New List(Of String) - list.Add(PDF) - Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.
Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. " - Body &= "
Ungültige UID-Nummern bitte manuell bearbeiten!" - Body &= "

Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString - Body &= "

Automatisch generiertes E-Mail." + ' Dim dt = VERAG_PROG_ALLGEMEIN.cUIDPruefung.doUIDPruefungALL(CDate(Now.ToString("01.MM.yyyy")).AddMonths(-1), True, False, maxAnz, False) + ' If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + ' Dim PDF = VERAG_PROG_ALLGEMEIN.cProgramFunctions.genExcelFromDT_NEW(dt,,,,, False) + ' If PDF <> "" Then + ' Dim list As New List(Of String) + ' list.Add(PDF) + ' Dim Body = "Anbei befinden sich die Auflistung der geprüfen UID-Nummern.
Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. " + ' Body &= "
Ungültige UID-Nummern bitte manuell bearbeiten!" + ' Body &= "

Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString + ' Body &= "

Automatisch generiertes E-Mail." - VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("kb@verag.ag", "UID Prüfung AMBAR", Body,,, False, "al@verag.ag",, list) - ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list) - End If - End If - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp - Return True - Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp - MsgBox(ex.Message & ex.StackTrace) - Return False - End Try - End Function + ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("kb@verag.ag", "UID Prüfung AMBAR", Body,,, False, "al@verag.ag",, list) + ' ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail("al@verag.ag", "UID Prüfung", Body,,, False, ,, list) + ' End If + ' End If + ' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp + ' Return True + ' Catch ex As Exception + ' VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = firmatmp + ' MsgBox(ex.Message & ex.StackTrace) + ' Return False + ' End Try + 'End Function Function getEZB_Waehrungskurse90D() As Boolean Dim MyData As String = "" @@ -1791,7 +2115,8 @@ Public Class frmStartOptions Private Sub LinkLabel20_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel20.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Dim bool = getUID_PruefungVERAG(MyTextBox1.Text) + Dim bool = getUID_Pruefung(MyTextBox1.Text, "VERAG", "UID Prüfung VERAG", "as@verag.ag;ih@verag.ag;kb@verag.ag", "al@verag.ag",, MyTextBox2._value) + 'Dim bool = getUID_PruefungVERAG(MyTextBox1.Text) showPic(bool, PictureBox12) End Sub @@ -2195,12 +2520,13 @@ Public Class frmStartOptions Private Sub LinkLabel32_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel32.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Dim bool = getUID_PruefungIMEX(MyTextBox1.Text) + ' Dim bool = getUID_PruefungIMEX(MyTextBox1.Text) + Dim bool = getUID_Pruefung(MyTextBox1.Text, "IMEX", "UID Prüfung IMEX", "Viktoria.Leirich@imex-group.at;as@verag.ag;kb@verag.ag", "al@verag.ag",, MyTextBox2._value) showPic(bool, PictureBox12) End Sub Private Sub LinkLabel33_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel33.LinkClicked VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False - Dim bool = getUID_PruefungAMBAR(MyTextBox1.Text) + Dim bool = getUID_Pruefung(MyTextBox1.Text, "AMBAR", "UID Prüfung AMBAR", "as@verag.ag", "al@verag.ag",, MyTextBox2._value) showPic(bool, PictureBox12) End Sub @@ -2211,11 +2537,15 @@ Public Class frmStartOptions Function UPDATE_SMS() As Boolean Try Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL - Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSMS where sms_Status not IN(3,4) and sms_MessageIds is not null and sms_MessageIds not like 'https://api.esendex.com/%' AND sms_Datum>DATEADD(DAY,-2, GETDATE())", "FMZOLL") + Dim dt As DataTable = SQL.loadDgvBySql("SELECT * FROM tblSMS where sms_Status not IN(3,4) and (CASE sms_art WHEN 'WHATSAPP' THEN whatsApp_gatewayId ELSE sms_MessageIds END) is not null and isnull(sms_MessageIds,'') not like 'https://api.esendex.com/%' AND sms_Datum>DATEADD(DAY,-2, GETDATE())", "FMZOLL") If dt IsNot Nothing Then For Each r In dt.Rows Dim cSMS As New VERAG_PROG_ALLGEMEIN.cSMS(r("sms_id")) - cSMS.checkSMSStatus(True) + + Select Case cSMS.sms_art + Case "WHATSAPP" : cSMS.checkWhatsAppStatus(True) + Case "SMS" : cSMS.checkSMSStatus(True) + End Select Next End If Return True @@ -2248,7 +2578,29 @@ Public Class frmStartOptions End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click - doExcelImportNCTS_FREMD(InputBox("Eing:",, "F:\mic2.xlsx")) + Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" + FO.initValues() + + If FO.Call_Web_Service_MethodUID_Login_NEU2020() = 0 Then + Dim UID_ERG = FO.Call_Web_Service_MethodUID_Abfrage_NEU2020(759181) + + If UID_ERG IsNot Nothing Then + + Select Case UID_ERG.uid_valid + Case 1 : MsgBox("UID-Nr. GÜLTIG - OK") + Case 0 : MsgBox("UID-Nr. UNGÜLTIG") + End Select + End If + End If + + FO.Call_Web_Service_MethodUID_Logout_NEU2020() + + + ' VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService.Call_Web_Service_MethodUID_Abfrage_NEU2020("DE115311033") + + + 'doExcelImportNCTS_FREMD(InputBox("Eing:",, "F:\mic2.xlsx")) 'Dim list As New List(Of Integer) 'Dim DY As New DAKOSY_Worker.cDakosy_Zollanmeldungen(572237) 'Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(DY.dy_SendungsId) @@ -2287,12 +2639,33 @@ Public Class frmStartOptions End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click - VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(123456) - VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(123456) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(401026) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(401516) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(203203) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(202888) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(101001) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(402155) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(402055) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(300405) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(202766) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(203252) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(401454) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(202479) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(402162) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(401729) + 'VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO(202811) + + VERAG_PROG_ALLGEMEIN.cSyska_Interface.UPDATE_FIBU_RISIKO() End Sub Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL() End Sub + + Private Sub LinkLabel36_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel36.LinkClicked + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Dim bool = getUID_Pruefung(MyTextBox1.Text, "UNISPED", "UID Prüfung UNISPED", "al@verag.ag", "al@verag.ag",, MyTextBox2._value) + showPic(bool, PictureBox12) + End Sub End Class \ No newline at end of file