neu
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -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)
|
||||
|
||||
@@ -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"
|
||||
|
||||
@@ -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,16 +238,82 @@ 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
|
||||
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
|
||||
@@ -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
|
||||
|
||||
Binary file not shown.
@@ -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
|
||||
|
||||
|
||||
@@ -50,10 +50,6 @@
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="ClosedXML, Version=0.76.0.0, Culture=neutral, PublicKeyToken=fd1eb21b62ae805b, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\dll\closedxml\ClosedXML.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="DocumentFormat.OpenXml">
|
||||
<HintPath>C:\Program Files (x86)\Open XML SDK\V2.5\lib\DocumentFormat.OpenXml.dll</HintPath>
|
||||
<Private>True</Private>
|
||||
@@ -137,9 +133,6 @@
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="ClosedXML.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<WCFMetadata Include="Service References\" />
|
||||
</ItemGroup>
|
||||
@@ -153,6 +146,11 @@
|
||||
<Name>ADMIN</Name>
|
||||
</ProjectReference>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<PackageReference Include="ClosedXML">
|
||||
<Version>0.95.4</Version>
|
||||
</PackageReference>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
|
||||
@@ -557,6 +557,18 @@
|
||||
<Compile Include="Programme\usrCntlProgramme.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="usrCntlERS.Designer.vb">
|
||||
<DependentUpon>usrCntlERS.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="usrCntlERS.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="usrCntlAPI.Designer.vb">
|
||||
<DependentUpon>usrCntlAPI.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="usrCntlAPI.vb">
|
||||
<SubType>UserControl</SubType>
|
||||
</Compile>
|
||||
<Compile Include="usrCntlWelcome.Designer.vb">
|
||||
<DependentUpon>usrCntlWelcome.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -723,6 +735,12 @@
|
||||
<EmbeddedResource Include="Programme\usrCntlProgramme.resx">
|
||||
<DependentUpon>usrCntlProgramme.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="usrCntlERS.resx">
|
||||
<DependentUpon>usrCntlERS.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="usrCntlAPI.resx">
|
||||
<DependentUpon>usrCntlAPI.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="usrCntlWelcome.resx">
|
||||
<DependentUpon>usrCntlWelcome.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
@@ -1132,6 +1132,9 @@ Public Class cOptionenDAL
|
||||
' USERBER = dr.Item("ber_sicherheitsstufe")
|
||||
|
||||
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.PROGNAME = "ADMIN_TOOLS"
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.PROGID = 1
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.PROGVERSION = My.Resources.Version
|
||||
|
||||
'VERAG_PROG_ALLGEMEIN.cAllgemein.USRBER = CInt(dr.Item("ber_sicherheitsstufe"))
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = CInt(dr.Item("mit_id"))
|
||||
|
||||
35
UID/frmMain.Designer.vb
generated
35
UID/frmMain.Designer.vb
generated
@@ -44,6 +44,8 @@ Partial Class frmMain
|
||||
Me.btnMitarbeiter = New System.Windows.Forms.Button()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -94,8 +96,10 @@ Partial Class frmMain
|
||||
'
|
||||
'pnlMain
|
||||
'
|
||||
Me.pnlMain.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
|
||||
Or System.Windows.Forms.AnchorStyles.Left) _
|
||||
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.pnlMain.BackColor = System.Drawing.Color.White
|
||||
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.pnlMain.Location = New System.Drawing.Point(137, 70)
|
||||
Me.pnlMain.Name = "pnlMain"
|
||||
Me.pnlMain.Size = New System.Drawing.Size(1026, 801)
|
||||
@@ -104,6 +108,8 @@ Partial Class frmMain
|
||||
'Panel3
|
||||
'
|
||||
Me.Panel3.BackColor = System.Drawing.Color.White
|
||||
Me.Panel3.Controls.Add(Me.Button3)
|
||||
Me.Panel3.Controls.Add(Me.Button2)
|
||||
Me.Panel3.Controls.Add(Me.btnHomepage)
|
||||
Me.Panel3.Controls.Add(Me.Button1)
|
||||
Me.Panel3.Controls.Add(Me.btnUpdate)
|
||||
@@ -243,6 +249,30 @@ Partial Class frmMain
|
||||
Me.PictureBox1.TabIndex = 31
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button2.Location = New System.Drawing.Point(12, 241)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(94, 33)
|
||||
Me.Button2.TabIndex = 39
|
||||
Me.Button2.Text = "API"
|
||||
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
|
||||
Me.Button3.Location = New System.Drawing.Point(12, 280)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(94, 33)
|
||||
Me.Button3.TabIndex = 40
|
||||
Me.Button3.Text = "ERS"
|
||||
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmMain
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
@@ -283,5 +313,6 @@ Partial Class frmMain
|
||||
Friend WithEvents btnUpdate As System.Windows.Forms.Button
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents btnHomepage As System.Windows.Forms.Button
|
||||
|
||||
Friend WithEvents Button3 As Button
|
||||
Friend WithEvents Button2 As Button
|
||||
End Class
|
||||
|
||||
@@ -29,6 +29,8 @@ Public Class frmMain
|
||||
Button1.Enabled = False
|
||||
btnHomepage.Enabled = False
|
||||
Button6.Enabled = False
|
||||
Button2.Enabled = False
|
||||
Button3.Enabled = False
|
||||
|
||||
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("frmDienstplan", Me) Then
|
||||
btnDienstplan.Enabled = True
|
||||
@@ -44,6 +46,8 @@ Public Class frmMain
|
||||
btnSchulungen.Enabled = True
|
||||
btnDienstplan.Enabled = True
|
||||
Button1.Enabled = True
|
||||
Button2.Enabled = True
|
||||
Button3.Enabled = True
|
||||
btnHomepage.Enabled = True
|
||||
Button6.Enabled = True
|
||||
End If
|
||||
@@ -193,6 +197,19 @@ Public Class frmMain
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrCntlAPI
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
usrCntl.Dock = DockStyle.Fill
|
||||
button_Click(sender)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
|
||||
clrPnlMain()
|
||||
Dim usrCntl As New usrCntlERS
|
||||
pnlMain.Controls.Add(usrCntl)
|
||||
usrCntl.Dock = DockStyle.Fill
|
||||
button_Click(sender)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
1006
UID/usrCntlAPI.Designer.vb
generated
Normal file
1006
UID/usrCntlAPI.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
123
UID/usrCntlAPI.resx
Normal file
123
UID/usrCntlAPI.resx
Normal file
@@ -0,0 +1,123 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="pnlAnzeige.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
</root>
|
||||
309
UID/usrCntlAPI.vb
Normal file
309
UID/usrCntlAPI.vb
Normal file
@@ -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
|
||||
933
UID/usrCntlERS.Designer.vb
generated
Normal file
933
UID/usrCntlERS.Designer.vb
generated
Normal file
@@ -0,0 +1,933 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
|
||||
Partial Class usrCntlERS
|
||||
Inherits System.Windows.Forms.UserControl
|
||||
|
||||
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()>
|
||||
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.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
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
|
||||
123
UID/usrCntlERS.resx
Normal file
123
UID/usrCntlERS.resx
Normal file
@@ -0,0 +1,123 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="pnlAnzeige.Locked" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
</root>
|
||||
301
UID/usrCntlERS.vb
Normal file
301
UID/usrCntlERS.vb
Normal file
@@ -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
|
||||
@@ -71,6 +71,10 @@
|
||||
<PlatformTarget>x64</PlatformTarget>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="DocumentFormat.OpenXml, Version=2.5.5631.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>..\..\..\AVISO\Aviso\packages\DocumentFormat.OpenXml.2.7.2\lib\net46\DocumentFormat.OpenXml.dll</HintPath>
|
||||
</Reference>
|
||||
<Reference Include="Dynamsoft.Forms.Viewer, Version=7.0.0.320, Culture=neutral, PublicKeyToken=298ad97013b423eb, processorArchitecture=MSIL">
|
||||
<SpecificVersion>False</SpecificVersion>
|
||||
<HintPath>C:\Program Files (x86)\Dynamsoft\Dynamic .NET TWAIN 7.0\Redistributable\Assembly\For .NETFramework 4.0\Dynamsoft.Forms.Viewer.dll</HintPath>
|
||||
@@ -147,6 +151,12 @@
|
||||
<Compile Include="cGetMsgType.vb" />
|
||||
<Compile Include="cOREGONWorker.vb" />
|
||||
<Compile Include="cMAVIWorker.vb" />
|
||||
<Compile Include="frmInfo.Designer.vb">
|
||||
<DependentUpon>frmInfo.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="frmInfo.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="frmTRNCTS_NachrichtenVerarbeitung_OREGON.Designer.vb">
|
||||
<DependentUpon>frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -212,6 +222,9 @@
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="frmInfo.resx">
|
||||
<DependentUpon>frmInfo.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="frmTRNCTS_NachrichtenVerarbeitung_OREGON.resx">
|
||||
<DependentUpon>frmTRNCTS_NachrichtenVerarbeitung_OREGON.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
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 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"))
|
||||
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
|
||||
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
|
||||
|
||||
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
|
||||
|
||||
@@ -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,7 +5442,6 @@ Public Class frmDYNachrichtenVerarbeitung
|
||||
|
||||
|
||||
|
||||
|
||||
End If
|
||||
|
||||
If readEZA_Abgabenbescheid009 <> "" Then 'BEZUGSNR vorhanden
|
||||
@@ -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()
|
||||
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
|
||||
|
||||
53
initATLASAufschubkonten/frmInfo.Designer.vb
generated
Normal file
53
initATLASAufschubkonten/frmInfo.Designer.vb
generated
Normal file
@@ -0,0 +1,53 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmInfo
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
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.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
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
|
||||
120
initATLASAufschubkonten/frmInfo.resx
Normal file
120
initATLASAufschubkonten/frmInfo.resx
Normal file
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
16
initATLASAufschubkonten/frmInfo.vb
Normal file
16
initATLASAufschubkonten/frmInfo.vb
Normal file
@@ -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
|
||||
@@ -585,6 +585,17 @@ 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
|
||||
|
||||
|
||||
604
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
604
initATLASAufschubkonten/frmStartOptions.Designer.vb
generated
@@ -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
|
||||
|
||||
@@ -140,6 +140,102 @@
|
||||
WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/
|
||||
nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de
|
||||
CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
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=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
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=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
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=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
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=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox13.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
@@ -433,102 +529,9 @@
|
||||
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<data name="PictureBox12.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
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=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox11.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
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=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox10.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
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=
|
||||
</value>
|
||||
</data>
|
||||
<data name="PictureBox9.BackgroundImage" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
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=
|
||||
</value>
|
||||
</data>
|
||||
<metadata name="clmnMRN.UserAddedColumn" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
AAABAAEAgIAAAAEAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMgAAMQOAADEDgAAAAAAAAAA
|
||||
|
||||
@@ -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,7 +72,7 @@ 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 der Pfad zum programm ist
|
||||
PARAM = parameter(1)
|
||||
@@ -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()
|
||||
|
||||
|
||||
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)
|
||||
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
|
||||
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)
|
||||
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 = "")
|
||||
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)
|
||||
dest = toDirectory & cut_file(file).Replace("lock_", "")
|
||||
If IO.File.Exists(dest) Then
|
||||
dest = toDirectory & Now.ToString("yyMMdd_HHmmss.fff_") & cut_file(file)
|
||||
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.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
Body &= "<br><br>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.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
' Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
' Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
' Body &= "<br><br>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.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
Body &= "<br><br>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.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
' Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
' Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
' Body &= "<br><br>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.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
Body &= "<br><br>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.<br>Bei UID-Nummer mit dem Prüfungserbnis 'OK' wurde das Prüfdatum in den Kundenstamm eingetragen. "
|
||||
' Body &= "<br><b>Ungültige UID-Nummern bitte manuell bearbeiten!</b>"
|
||||
' Body &= "<br><br>Erstellt am: " & Now.ToShortDateString & ", um " & Now.ToShortTimeString
|
||||
' Body &= "<br><br>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
|
||||
Reference in New Issue
Block a user