diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb index d70e498..da5163e 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/EZA/cDakosyEZA.vb @@ -430,13 +430,13 @@ Public Class cDakosyEZA End Try Return LOADByAnmID End Function - Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean) As cDakosyEZA + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyEZA Try Dim EZA As New cDakosyEZA Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EZA WHERE eza_ObjectName=@bezugsNr ", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_EZA WHERE eza_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND eza_status BETWEEN 40 and 90 ", "") & " order by eza_LetzteBearbeitung desc ", conn) cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) Dim dr = cmd.ExecuteReader() If dr.Read Then @@ -448,8 +448,8 @@ Public Class cDakosyEZA Else propInfo.SetValue(EZA, dr.Item(l.Text)) End If - Next + If loadALL Then EZA.LOAD_Unterlagen() EZA.LOAD_Warenposition() @@ -912,6 +912,10 @@ Public Class cDakosyEZA Dim filiale = getFiliale(Me.eza_ObjectName, filialeBez) Dim abfertigungsnummer = getAbfertigungsnummer(Me.eza_ObjectName) + If abfertigungsnummer = "" Then + getFilialeAbfertigungsnummerFromSendung(filiale, abfertigungsnummer, DY.dy_SendungsId) + End If + If filiale <> "" And abfertigungsnummer <> "" Then If countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) = 0 Then ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("HEUREKA EZA ", "" & Me.eza_ObjectName, Now.ToString("yyyy.MM.dd HH:mm"), "al@verag.ag", "") @@ -968,6 +972,10 @@ Public Class cDakosyEZA Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + + Case "5501", "5601", "5701", "5801" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case Else + If IsNumeric(bezugsNr.ToString.Substring(0, 4)) Then Return bezugsNr.ToString.Substring(0, 4) 'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803 'filialeBez SUB, NKD, WAI,.-.. End Select @@ -996,6 +1004,17 @@ Public Class cDakosyEZA End If Return "" End Function + + Sub getFilialeAbfertigungsnummerFromSendung(ByRef filiale, ByRef abfertigungsnummer, dy_SendungsId) + If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId) + If SND IsNot Nothing Then + If SND.FilialenNr > 0 Then filiale = SND.FilialenNr + If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr + End If + End If + End Sub + Public Shared Sub DakosyEZADatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, EZA_Nr As String, ByRef notFound As Boolean, ByRef PosAnzahl As Integer) Dim DY As DAKOSY_Worker.cDakosyEZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(EZA_Nr, True) If DY Is Nothing Then @@ -1280,6 +1299,7 @@ Public Class cDakosy_EZA_Aufschub Property ezaAfb_ArtAufschubantrag As Object = Nothing Property ezaAfb_AufschubnehmerEORI As Object = Nothing Property ezaAfb_KontoNr As Object = Nothing + Property ezaAfb_HZA As Object = Nothing Property ezaAfb_AufschuBIN As Object = Nothing 'Public selButton As Object = Nothing ' Für die GUI @@ -1305,6 +1325,7 @@ Public Class cDakosy_EZA_Aufschub list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_AufschubnehmerEORI", ezaAfb_AufschubnehmerEORI)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_KontoNr", ezaAfb_KontoNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_AufschuBIN", ezaAfb_AufschuBIN)) + list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ezaAfb_HZA", ezaAfb_HZA)) Return list End Function diff --git a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb index 29f1d25..6c5a209 100644 --- a/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb +++ b/DAKOSY_Worker/DAKOSY/ATLAS/NCTS/cDakosyNCTSOut.vb @@ -499,13 +499,13 @@ Public Class cDakosyNCTSOut End Try Return LOADByAnmID End Function - Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean) As cDakosyNCTSOut + Shared Function LOADByBezugsNr(bezugsNr As String, loadALL As Boolean, Optional checkValidStatus As Boolean = False) As cDakosyNCTSOut Try Dim NCTS As New cDakosyNCTSOut Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL() - Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName=@bezugsNr ", conn) + Using cmd As New SqlCommand("SELECT TOP 1 * FROM tblDakosy_NCTSOut WHERE ncts_ObjectName LIKE @bezugsNr " & If(checkValidStatus, " AND ncts_status BETWEEN 40 and 90 ", "") & " order by ncts_LetzteBearbeitung desc", conn) cmd.Parameters.AddWithValue("@bezugsNr", bezugsNr) Dim dr = cmd.ExecuteReader() If dr.Read Then @@ -761,6 +761,11 @@ Public Class cDakosyNCTSOut Dim filialeBez = "" Dim filiale = getFiliale(Me.ncts_ObjectName, filialeBez) Dim abfertigungsnummer = getAbfertigungsnummer(Me.ncts_ObjectName) + + If abfertigungsnummer = "" Then + getFilialeAbfertigungsnummerFromSendung(filiale, abfertigungsnummer, DY.dy_SendungsId) + End If + If filiale <> "" And abfertigungsnummer <> "" Then ' If countSpedbuchEntrysFilialeAbf(filiale, abfertigungsnummer) = 0 Then If countSpedbuchEntrys(filiale, Me.ncts_ObjectName) = 0 Then @@ -815,6 +820,9 @@ Public Class cDakosyNCTSOut Case "5003" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 Case "5103" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 Case "5303" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case "5501", "5601", "5701", "5801" : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 + Case Else + If IsNumeric(bezugsNr.ToString.Substring(0, 4)) Then Return bezugsNr.ToString.Substring(0, 4) 'Case Else : Return bezugsNr.ToString.Substring(0, 4) '...... derzeit nur 4803 'Case "4801", "4803", "4805", "4807", "4811", "5003", "5103", "5303" : Return bezugsNr.ToString.Substring(0, 4) ...... derzeit nur 4803 'filialeBez SUB, NKD, WAI,.-.. End Select @@ -831,7 +839,7 @@ Public Class cDakosyNCTSOut If Not IsNumeric(s) Then Exit For abf &= s Next - + If IsNumeric(abf) Then If CLng(abf) < 99000000 Then ' wenn zu groß, fehlerhaft @@ -845,6 +853,16 @@ Public Class cDakosyNCTSOut End If Return "" End Function + Sub getFilialeAbfertigungsnummerFromSendung(ByRef filiale, ByRef abfertigungsnummer, dy_SendungsId) + If dy_SendungsId IsNot Nothing AndAlso IsNumeric(dy_SendungsId) Then + Dim SND As New VERAG_PROG_ALLGEMEIN.cSendungen(dy_SendungsId) + If SND IsNot Nothing Then + If SND.FilialenNr > 0 Then filiale = SND.FilialenNr + If SND.AbfertigungsNr > 0 Then abfertigungsnummer = SND.AbfertigungsNr + End If + End If + End Sub + Public Shared Sub DakosyNCTSDatenbereitstellung(ByRef SPEDITIONSBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch, NCTS_Nr As String, ByRef notFound As Boolean) Dim DY As DAKOSY_Worker.cDakosyNCTSOut = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(NCTS_Nr, True) diff --git a/DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb b/DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb index 29cd769..636d63b 100644 --- a/DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb +++ b/DAKOSY_Worker/DAKOSY/cDakosy_Zollanmeldungen.vb @@ -101,20 +101,28 @@ Public Class cDakosy_Zollanmeldungen ' ElseIf Then ' srchStrAbf = split(X) Else - Return False + ' Return False End If End If - If Not IsNumeric(srchStrFiliale) Or Not IsNumeric(srchStrAbf) Then Return False - If srchStrFiliale.Length <> 4 Then Return False - 'If srchStrAbf.Length > 8 Then srchStrAbf = srchStrAbf.Substring(0, 8) - If srchStrAbf.Length < 8 Then srchStrAbf = Me.dy_Erstellung.ToString("yy") & CInt(srchStrAbf).ToString("000000") + If IsNumeric(srchStrFiliale) AndAlso IsNumeric(srchStrAbf) AndAlso srchStrFiliale.Length = 4 Then + 'If srchStrAbf.Length > 8 Then srchStrAbf = srchStrAbf.Substring(0, 8) + If srchStrAbf.Length < 8 Then srchStrAbf = Me.dy_Erstellung.ToString("yy") & CInt(srchStrAbf).ToString("000000") + Dim sqlstr = " select [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where '" & srchStrAbf & "' like ('%' + cast(AbfertigungsNr as varchar(10))+ '%') and FilialenNr ='" & srchStrFiliale & "' and AbfertigungsNr >0" - Dim sqlstr = " select [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where '" & srchStrAbf & "' like ('%' + cast(AbfertigungsNr as varchar(10))+ '%') and FilialenNr ='" & srchStrFiliale & "' and AbfertigungsNr >0" + Dim dt2 As DataTable = SQL.loadDgvBySql(sqlstr, "AVISO") + If dt2 IsNot Nothing AndAlso dt2.Rows.Count > 0 Then + Me.dy_SendungsId = dt2.Rows(0)("tblSnd_SendungID") + Me.dy_AvisoId = dt2.Rows(0)("tblSnd_AvisoID") + Return True + End If + End If - Dim dt As DataTable = SQL.loadDgvBySql(sqlstr, "AVISO") + 'UNISPED: + Dim sqlstr2 = " select [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where '" & Me.dy_BezugsNr & "' like ( cast(tblSnd_DakosyRef as varchar(20))+ '%') AND tblSnd_DakosyRef is not null AND len(tblSnd_DakosyRef) > 10 " + Dim dt = SQL.loadDgvBySql(sqlstr2, "AVISO") If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then Me.dy_SendungsId = dt.Rows(0)("tblSnd_SendungID") Me.dy_AvisoId = dt.Rows(0)("tblSnd_AvisoID") diff --git a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj index a4a3aa1..672852b 100644 --- a/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj +++ b/DAKOSY_Worker/DAKOSY_Worker_lib.vbproj @@ -125,6 +125,7 @@ + True @@ -277,6 +278,9 @@ Designer + + Designer + MyApplicationCodeGenerator Application.Designer.vb diff --git a/DAKOSY_Worker/KD_EXPORT/KundenExport/VERAG_KundenStamm_Export_V2.Designer.vb b/DAKOSY_Worker/KD_EXPORT/KundenExport/VERAG_KundenStamm_Export_V2.Designer.vb new file mode 100644 index 0000000..f93e528 --- /dev/null +++ b/DAKOSY_Worker/KD_EXPORT/KundenExport/VERAG_KundenStamm_Export_V2.Designer.vb @@ -0,0 +1,1379 @@ +'' ------------------------------------------------------------------------------ +'' +'' Generated by Xsd2Code++. Version 5.0.0.47. www.xsd2code.com +'' VERAG_KundenStamm_Export_V2ListVisualBasicFalseFalseFalseOnlyIfDifferentFalseNet45AllTrueTrueTrueFalseFalseFalseFalseFalseNoneStartWithUnderscoreFalseFalseFalseFalseFalsePublicTrueFalseFalseFalseFalseFalseFalseFalseFalseTrueTrueTrueFalseTrueSerializeDeserializeSaveToFileLoadFromFileFalseTrueIndent2SpaceFalseFalseUTF8XmlSerializerFalseFalseFalseFalseFalseFalseFalseEntityBaseFalseFalse +'' +'' ------------------------------------------------------------------------------ +Imports System +Imports System.Diagnostics +Imports System.Xml.Serialization +Imports System.Collections +Imports System.Xml.Schema +Imports System.ComponentModel +Imports System.IO +Imports System.Text +Imports System.Xml +Imports System.Collections.Generic + +Namespace VERAG_KundenStamm_Export_V2 + + + Partial Public Class VERAG_Kundenstamm_IMPORT + +#Region "Private fields" + Private _transaktion As VERAG_Kundenstamm_IMPORTTransaktion + + Private _kundenDaten As List(Of VERAG_Kundenstamm_IMPORTKundenDaten) + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._kundenDaten = New List(Of VERAG_Kundenstamm_IMPORTKundenDaten)() + Me._transaktion = New VERAG_Kundenstamm_IMPORTTransaktion() + End Sub + + Public Property Transaktion() As VERAG_Kundenstamm_IMPORTTransaktion + Get + Return Me._transaktion + End Get + Set + Me._transaktion = Value + End Set + End Property + + + Public Property KundenDaten() As List(Of VERAG_Kundenstamm_IMPORTKundenDaten) + Get + Return Me._kundenDaten + End Get + Set + Me._kundenDaten = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_Kundenstamm_IMPORT)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORT object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_Kundenstamm_IMPORT object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_Kundenstamm_IMPORT object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORT, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORT) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORT) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_Kundenstamm_IMPORT + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_Kundenstamm_IMPORT) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_Kundenstamm_IMPORT + Return CType(Serializer.Deserialize(s), VERAG_Kundenstamm_IMPORT) + End Function +#End Region + + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORT object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_Kundenstamm_IMPORT object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_Kundenstamm_IMPORT object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORT, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORT) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORT) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_Kundenstamm_IMPORT + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_Kundenstamm_IMPORTTransaktion + +#Region "Private fields" + Private _version As Object + + Private _iOPartner As Object + + Private _iODivision1 As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Version() As Object + Get + Return Me._version + End Get + Set + Me._version = Value + End Set + End Property + + Public Property IOPartner() As Object + Get + Return Me._iOPartner + End Get + Set + Me._iOPartner = Value + End Set + End Property + + Public Property IODivision1() As Object + Get + Return Me._iODivision1 + End Get + Set + Me._iODivision1 = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_Kundenstamm_IMPORTTransaktion)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTTransaktion object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_Kundenstamm_IMPORTTransaktion object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_Kundenstamm_IMPORTTransaktion object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTTransaktion, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTTransaktion) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTTransaktion) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_Kundenstamm_IMPORTTransaktion + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_Kundenstamm_IMPORTTransaktion) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_Kundenstamm_IMPORTTransaktion + Return CType(Serializer.Deserialize(s), VERAG_Kundenstamm_IMPORTTransaktion) + End Function +#End Region + + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTTransaktion object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_Kundenstamm_IMPORTTransaktion object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_Kundenstamm_IMPORTTransaktion object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTTransaktion, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTTransaktion) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTTransaktion) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_Kundenstamm_IMPORTTransaktion + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_Kundenstamm_IMPORTKundenDaten + +#Region "Private fields" + Private _kundenNr As Object + + Private _eORI As Object + + Private _eORI_Niederlassung As Object + + Private _kurzname As Object + + Private _name1 As Object + + Private _name2 As Object + + Private _uID_Nr As Object + + Private _adresse As VERAG_Kundenstamm_IMPORTKundenDatenAdresse + + Private _kontakt As VERAG_Kundenstamm_IMPORTKundenDatenKontakt + + Private _aufschubkonten As List(Of VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + + Private _dakosy_Mandant As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Sub New() + MyBase.New + Me._aufschubkonten = New List(Of VERAG_Kundenstamm_IMPORTKundenDatenAufschub)() + Me._kontakt = New VERAG_Kundenstamm_IMPORTKundenDatenKontakt() + Me._adresse = New VERAG_Kundenstamm_IMPORTKundenDatenAdresse() + End Sub + + Public Property KundenNr() As Object + Get + Return Me._kundenNr + End Get + Set + Me._kundenNr = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_Niederlassung() As Object + Get + Return Me._eORI_Niederlassung + End Get + Set + Me._eORI_Niederlassung = Value + End Set + End Property + + Public Property Kurzname() As Object + Get + Return Me._kurzname + End Get + Set + Me._kurzname = Value + End Set + End Property + + Public Property Name1() As Object + Get + Return Me._name1 + End Get + Set + Me._name1 = Value + End Set + End Property + + Public Property Name2() As Object + Get + Return Me._name2 + End Get + Set + Me._name2 = Value + End Set + End Property + + Public Property UID_Nr() As Object + Get + Return Me._uID_Nr + End Get + Set + Me._uID_Nr = Value + End Set + End Property + + Public Property Adresse() As VERAG_Kundenstamm_IMPORTKundenDatenAdresse + Get + Return Me._adresse + End Get + Set + Me._adresse = Value + End Set + End Property + + Public Property Kontakt() As VERAG_Kundenstamm_IMPORTKundenDatenKontakt + Get + Return Me._kontakt + End Get + Set + Me._kontakt = Value + End Set + End Property + + + Public Property Aufschubkonten() As List(Of VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + Get + Return Me._aufschubkonten + End Get + Set + Me._aufschubkonten = Value + End Set + End Property + + Public Property Dakosy_Mandant() As Object + Get + Return Me._dakosy_Mandant + End Get + Set + Me._dakosy_Mandant = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_Kundenstamm_IMPORTKundenDaten)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDaten object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_Kundenstamm_IMPORTKundenDaten object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDaten object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDaten, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDaten) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDaten) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_Kundenstamm_IMPORTKundenDaten + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_Kundenstamm_IMPORTKundenDaten) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_Kundenstamm_IMPORTKundenDaten + Return CType(Serializer.Deserialize(s), VERAG_Kundenstamm_IMPORTKundenDaten) + End Function +#End Region + + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDaten object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_Kundenstamm_IMPORTKundenDaten object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDaten object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDaten, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDaten) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDaten) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_Kundenstamm_IMPORTKundenDaten + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_Kundenstamm_IMPORTKundenDatenAdresse + +#Region "Private fields" + Private _landKz As Object + + Private _plz As Object + + Private _ort As Object + + Private _strasse As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property LandKz() As Object + Get + Return Me._landKz + End Get + Set + Me._landKz = Value + End Set + End Property + + Public Property Plz() As Object + Get + Return Me._plz + End Get + Set + Me._plz = Value + End Set + End Property + + Public Property Ort() As Object + Get + Return Me._ort + End Get + Set + Me._ort = Value + End Set + End Property + + Public Property Strasse() As Object + Get + Return Me._strasse + End Get + Set + Me._strasse = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_Kundenstamm_IMPORTKundenDatenAdresse)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDatenAdresse object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_Kundenstamm_IMPORTKundenDatenAdresse object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDatenAdresse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAdresse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDatenAdresse) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAdresse) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_Kundenstamm_IMPORTKundenDatenAdresse + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_Kundenstamm_IMPORTKundenDatenAdresse) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_Kundenstamm_IMPORTKundenDatenAdresse + Return CType(Serializer.Deserialize(s), VERAG_Kundenstamm_IMPORTKundenDatenAdresse) + End Function +#End Region + + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDatenAdresse object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_Kundenstamm_IMPORTKundenDatenAdresse object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDatenAdresse object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAdresse, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDatenAdresse) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAdresse) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_Kundenstamm_IMPORTKundenDatenAdresse + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_Kundenstamm_IMPORTKundenDatenKontakt + +#Region "Private fields" + Private _eMail As Object + + Private _tel As Object + + Private _fax As Object + + Private _ansprechpartner As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property EMail() As Object + Get + Return Me._eMail + End Get + Set + Me._eMail = Value + End Set + End Property + + Public Property Tel() As Object + Get + Return Me._tel + End Get + Set + Me._tel = Value + End Set + End Property + + Public Property Fax() As Object + Get + Return Me._fax + End Get + Set + Me._fax = Value + End Set + End Property + + Public Property Ansprechpartner() As Object + Get + Return Me._ansprechpartner + End Get + Set + Me._ansprechpartner = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_Kundenstamm_IMPORTKundenDatenKontakt)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDatenKontakt object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_Kundenstamm_IMPORTKundenDatenKontakt object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDatenKontakt object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenKontakt, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDatenKontakt) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenKontakt) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_Kundenstamm_IMPORTKundenDatenKontakt + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_Kundenstamm_IMPORTKundenDatenKontakt) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_Kundenstamm_IMPORTKundenDatenKontakt + Return CType(Serializer.Deserialize(s), VERAG_Kundenstamm_IMPORTKundenDatenKontakt) + End Function +#End Region + + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDatenKontakt object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_Kundenstamm_IMPORTKundenDatenKontakt object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDatenKontakt object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenKontakt, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDatenKontakt) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenKontakt) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_Kundenstamm_IMPORTKundenDatenKontakt + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Partial Public Class VERAG_Kundenstamm_IMPORTKundenDatenAufschub + +#Region "Private fields" + Private _art As VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt + + Private _hauptzollamt As String + + Private _kontoNr As Object + + Private _bIN As Object + + Private _eORI As Object + + Private _eORI_Niederlassung As Object + + Private Shared sSerializer As XmlSerializer +#End Region + + Public Property Art() As VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt + Get + Return Me._art + End Get + Set + Me._art = Value + End Set + End Property + + Public Property Hauptzollamt() As String + Get + Return Me._hauptzollamt + End Get + Set + Me._hauptzollamt = Value + End Set + End Property + + Public Property KontoNr() As Object + Get + Return Me._kontoNr + End Get + Set + Me._kontoNr = Value + End Set + End Property + + Public Property BIN() As Object + Get + Return Me._bIN + End Get + Set + Me._bIN = Value + End Set + End Property + + Public Property EORI() As Object + Get + Return Me._eORI + End Get + Set + Me._eORI = Value + End Set + End Property + + Public Property EORI_Niederlassung() As Object + Get + Return Me._eORI_Niederlassung + End Get + Set + Me._eORI_Niederlassung = Value + End Set + End Property + + Private Shared ReadOnly Property Serializer() As XmlSerializer + Get + If (sSerializer Is Nothing) Then + sSerializer = New XmlSerializerFactory().CreateSerializer(GetType(VERAG_Kundenstamm_IMPORTKundenDatenAufschub)) + End If + Return sSerializer + End Get + End Property + +#Region "Serialize/Deserialize" + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDatenAufschub object into an XML string + ''' + ''' string XML value + Public Overridable Function Serialize() As String + Dim streamReader As System.IO.StreamReader = Nothing + Dim memoryStream As System.IO.MemoryStream = Nothing + Try + memoryStream = New System.IO.MemoryStream() + Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings() + xmlWriterSettings.Indent = True + xmlWriterSettings.IndentChars = " " + Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings) + Serializer.Serialize(xmlWriter, Me) + memoryStream.Seek(0, SeekOrigin.Begin) + streamReader = New System.IO.StreamReader(memoryStream) + Return streamReader.ReadToEnd + Finally + If (Not (streamReader) Is Nothing) Then + streamReader.Dispose() + End If + If (Not (memoryStream) Is Nothing) Then + memoryStream.Dispose() + End If + End Try + End Function + + ''' + ''' Deserializes workflow markup into an VERAG_Kundenstamm_IMPORTKundenDatenAufschub object + ''' + ''' string workflow markup to deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDatenAufschub object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAufschub, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + Try + obj = Deserialize(input) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAufschub) As Boolean + Dim exception As System.Exception = Nothing + Return Deserialize(input, obj, exception) + End Function + + Public Overloads Shared Function Deserialize(ByVal input As String) As VERAG_Kundenstamm_IMPORTKundenDatenAufschub + Dim stringReader As System.IO.StringReader = Nothing + Try + stringReader = New System.IO.StringReader(input) + Return CType(Serializer.Deserialize(XmlReader.Create(stringReader)), VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + Finally + If (Not (stringReader) Is Nothing) Then + stringReader.Dispose() + End If + End Try + End Function + + Public Overloads Shared Function Deserialize(ByVal s As System.IO.Stream) As VERAG_Kundenstamm_IMPORTKundenDatenAufschub + Return CType(Serializer.Deserialize(s), VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + End Function +#End Region + + ''' + ''' Serializes current VERAG_Kundenstamm_IMPORTKundenDatenAufschub object into file + ''' + ''' full path of outupt xml file + ''' output Exception value if failed + ''' true if can serialize and save into file; otherwise, false + Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean + exception = Nothing + Try + SaveToFile(fileName) + Return True + Catch e As System.Exception + exception = e + Return False + End Try + End Function + + Public Overridable Overloads Sub SaveToFile(ByVal fileName As String) + Dim streamWriter As System.IO.StreamWriter = Nothing + Try + Dim xmlString As String = Serialize() + Dim xmlFile As System.IO.FileInfo = New System.IO.FileInfo(fileName) + streamWriter = xmlFile.CreateText + streamWriter.WriteLine(xmlString) + streamWriter.Close() + Finally + If (Not (streamWriter) Is Nothing) Then + streamWriter.Dispose() + End If + End Try + End Sub + + ''' + ''' Deserializes xml markup from file into an VERAG_Kundenstamm_IMPORTKundenDatenAufschub object + ''' + ''' string xml file to load and deserialize + ''' Output VERAG_Kundenstamm_IMPORTKundenDatenAufschub object + ''' output Exception value if deserialize failed + ''' true if this Serializer can deserialize the object; otherwise, false + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAufschub, ByRef exception As System.Exception) As Boolean + exception = Nothing + obj = CType(Nothing, VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + Try + obj = LoadFromFile(fileName) + Return True + Catch ex As System.Exception + exception = ex + Return False + End Try + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As VERAG_Kundenstamm_IMPORTKundenDatenAufschub) As Boolean + Dim exception As System.Exception = Nothing + Return LoadFromFile(fileName, obj, exception) + End Function + + Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As VERAG_Kundenstamm_IMPORTKundenDatenAufschub + Dim file As System.IO.FileStream = Nothing + Dim sr As System.IO.StreamReader = Nothing + Try + file = New System.IO.FileStream(fileName, FileMode.Open, FileAccess.Read) + sr = New System.IO.StreamReader(file) + Dim xmlString As String = sr.ReadToEnd + sr.Close() + file.Close() + Return Deserialize(xmlString) + Finally + If (Not (file) Is Nothing) Then + file.Dispose() + End If + If (Not (sr) Is Nothing) Then + sr.Dispose() + End If + End Try + End Function + End Class + + + Public Enum VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt + + ''' + + Item10 + + ''' + + Item15 + + ''' + + Item20 + End Enum +End Namespace diff --git a/DAKOSY_Worker/KD_EXPORT/KundenExport/VERAG_KundenStamm_Export_V2.xsd b/DAKOSY_Worker/KD_EXPORT/KundenExport/VERAG_KundenStamm_Export_V2.xsd new file mode 100644 index 0000000..76225bd --- /dev/null +++ b/DAKOSY_Worker/KD_EXPORT/KundenExport/VERAG_KundenStamm_Export_V2.xsd @@ -0,0 +1,92 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/DAKOSY_Worker/cDakosyFunftions.vb b/DAKOSY_Worker/cDakosyFunftions.vb index 2d5a402..a7bab26 100644 --- a/DAKOSY_Worker/cDakosyFunftions.vb +++ b/DAKOSY_Worker/cDakosyFunftions.vb @@ -19,8 +19,9 @@ Public Class cDakosyFunftions Dim DY_pwd = "" Dim DY_port = "" Dim DY_PFAD_IN = "" + Dim DY_PFAD_IN_KD = "" - getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "") + getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD) Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd)) Using client = New SftpClient(ConnectionInfo) @@ -72,15 +73,17 @@ Public Class cDakosyFunftions Dim DY_pwd = "" Dim DY_port = "" Dim DY_PFAD_IN = "" + Dim DY_PFAD_IN_KD = "" - getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "") + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" + getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, DY_PFAD_IN, "", DY_PFAD_IN_KD) Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd)) Using client = New SftpClient(ConnectionInfo) client.Connect() 'client.Create(file, file) If misc Then - client.ChangeDirectory(DY_PFAD_IN.Replace("gebox", "misc")) + client.ChangeDirectory(DY_PFAD_IN_KD) 'DY_PFAD_IN.Replace("gebox", "misc")) Else client.ChangeDirectory(DY_PFAD_IN) End If @@ -107,21 +110,31 @@ Public Class cDakosyFunftions End Function - Shared Sub getSFTPLoginData(ByRef DY_server, ByRef DY_name, ByRef DY_pwd, ByRef DY_port, ByRef DY_PFAD_IN, ByRef DY_PFAD_OUT) + Shared Sub getSFTPLoginData(ByRef DY_server, ByRef DY_name, ByRef DY_pwd, ByRef DY_port, ByRef DY_PFAD_IN, ByRef DY_PFAD_OUT, ByRef DY_PFAD_IN_KD) If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then DY_server = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_SERVER", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) DY_name = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_NAME", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) DY_pwd = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_PASSWORD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) DY_port = cDY_Paramter.GET_PARAM_ByName("FTP_TEST_PORT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) - DY_PFAD_IN = "in/test/gebox/" - DY_PFAD_OUT = "out/test/" + + DY_PFAD_IN = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_IN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + DY_PFAD_OUT = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_OUT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + If DY_PFAD_IN = "" Then DY_PFAD_IN = "in/test/gebox/" + If DY_PFAD_OUT = "" Then DY_PFAD_OUT = "out/test/" + + DY_PFAD_IN_KD = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_IN_KD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) Else DY_server = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_SERVER", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) DY_name = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_NAME", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) DY_pwd = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_PASSWORD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) DY_port = cDY_Paramter.GET_PARAM_ByName("FTP_PROD_PORT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) - DY_PFAD_IN = "in/prod/gebox/" - DY_PFAD_OUT = "out/prod/" + + DY_PFAD_IN = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_IN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + DY_PFAD_OUT = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_OUT", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) + If DY_PFAD_IN = "" Then DY_PFAD_IN = "in/prod/gebox/" + If DY_PFAD_OUT = "" Then DY_PFAD_OUT = "out/prod/" + + DY_PFAD_IN_KD = cDY_Paramter.GET_PARAM_ByName("DY_PFAD_IN_KD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) End If End Sub @@ -162,7 +175,14 @@ Public Class cDakosyFunftions End Function - Shared Function sendData(Optional defaultFolder As String = "", Optional Dakosy_Mandant As String = "VERG") + Shared Function sendData(Optional defaultFolder As String = "") ', Optional Dakosy_Mandant As String = "VERG") + Dim Dakosy_Mandant = "VERG" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "UNISPED" : Dakosy_Mandant = "UNAT" + 'Case Else + ' Dakosy_Mandant = "VERG" + End Select + Dim dt = DAKOSY_Worker.cDakosyFunftions.getKDData If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then @@ -179,7 +199,14 @@ Public Class cDakosyFunftions Return False End Function - Shared Function sendDataByKdNr(KdNr As Integer, Optional defaultFolder As String = "", Optional Dakosy_Mandant As String = "VERG") + Shared Function sendDataByKdNr(KdNr As Integer, Optional defaultFolder As String = "") ', Optional Dakosy_Mandant As String = "VERG") + Dim Dakosy_Mandant = "VERG" + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "UNISPED" : Dakosy_Mandant = "UNAT" + 'Case Else + ' Dakosy_Mandant = "VERG" + End Select + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "IMEX" Then MsgBox("Übertrag derzeit nicht möglich!") Return False @@ -219,6 +246,14 @@ Public Class cDakosyFunftions End Function Shared Function generateVERAGKdData(dt As DataTable, path As String, ByRef saveFile As String, Optional Dakosy_Mandant As String = "VERG") As Boolean + Select Case Dakosy_Mandant + Case "UNAT" : Return generateVERAGKdData_V2(dt, path, saveFile, Dakosy_Mandant) + Case Else : Return generateVERAGKdData_V1(dt, path, saveFile, Dakosy_Mandant) + End Select + End Function + + + Shared Function generateVERAGKdData_V1(dt As DataTable, path As String, ByRef saveFile As String, Optional Dakosy_Mandant As String = "VERG") As Boolean Try Dim Interface_VERSION = "003" @@ -314,4 +349,113 @@ Public Class cDakosyFunftions End Function + Shared Function generateVERAGKdData_V2(dt As DataTable, path As String, ByRef saveFile As String, Optional Dakosy_Mandant As String = "VERG") As Boolean + Try + + 'Dim Interface_VERSION = "003" + + Dim XML As New DAKOSY_Worker.VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORT + + Dim TRANS As New DAKOSY_Worker.VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTTransaktion + TRANS.Version = "002" + TRANS.IOPartner = Dakosy_Mandant + + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA + Case "IMEX" : TRANS.IODivision1 = "IMEX" + Case "UNISPED" : TRANS.IODivision1 = "UNAT" : TRANS.IOPartner = "UNAT" + Case "ATILLA" : TRANS.IODivision1 = "ATIL" + Case Else + TRANS.IODivision1 = "VERG" + End Select + XML.Transaktion = TRANS + + + For Each ROW As DataRow In dt.Rows + Dim KD As New DAKOSY_Worker.VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDaten + KD.Dakosy_Mandant = Dakosy_Mandant + KD.KundenNr = ROW("KundenNr") + KD.EORI = ROW("EORITIN") + If ROW("EORITIN_NL") Is DBNull.Value OrElse If(ROW("EORITIN_NL"), "") = "" Then + KD.EORI_Niederlassung = "0000" + Else + KD.EORI_Niederlassung = ROW("EORITIN_NL") + End If + If ROW("Ordnungsbegriff") IsNot DBNull.Value Then KD.Kurzname = ROW("Ordnungsbegriff") + If ROW("Name 1") IsNot DBNull.Value Then KD.Name1 = ROW("Name 1") + + If ROW("Name 2") IsNot DBNull.Value Then KD.Name2 = ROW("Name 2") + If ROW("UstIdKz") IsNot DBNull.Value And ("UstIdNr") IsNot DBNull.Value Then KD.UID_Nr = ROW("UstIdKz") & ROW("UstIdNr") + + KD.Adresse = New DAKOSY_Worker.VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenAdresse + If ROW("Straße") IsNot DBNull.Value Then KD.Adresse.Strasse = ROW("Straße") + If ROW("PLZ") IsNot DBNull.Value Then KD.Adresse.Plz = ROW("PLZ") + If ROW("Ort") IsNot DBNull.Value Then KD.Adresse.Ort = ROW("Ort") + If ROW("LandKz") IsNot DBNull.Value Then KD.Adresse.LandKz = ROW("LandKzISO2") + + + + + KD.Kontakt = New DAKOSY_Worker.VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenKontakt + If ROW("E-Mail") IsNot DBNull.Value Then KD.Kontakt.EMail = ROW("E-Mail") + If ROW("Telefon") IsNot DBNull.Value Then KD.Kontakt.Tel = ROW("Telefon") + If ROW("Telefax") IsNot DBNull.Value Then KD.Kontakt.Fax = ROW("Telefax") + If ROW("Ansprechpartner") IsNot DBNull.Value Then KD.Kontakt.Ansprechpartner = If(ROW("Anrede") IsNot DBNull.Value, ROW("Anrede") & " ", "") & ROW("Ansprechpartner") + + + Dim KD_AKTO = VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten.LOAD_ListAufschubKTOByKdNr(KD.KundenNr) + + If KD_AKTO IsNot Nothing Then + Dim AKTOLIST = New List(Of VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenAufschub) + + For Each KTO In KD_AKTO + If If(KTO.kdAkto_bin, "").ToString.Trim <> String.Empty And + If(KTO.kdAkto_eori, "").ToString.Trim <> String.Empty And + If(KTO.kdAkto_hauptzollamt, "").ToString.Trim <> String.Empty And + If(KTO.kdAkto_kontonummer, "").ToString.Trim <> String.Empty Then + + + Dim AUFSCH As New DAKOSY_Worker.VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenAufschub + Select Case KTO.kdAkto_art + Case "10" : AUFSCH.Art = VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt.Item10 + Case "15" : AUFSCH.Art = VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt.Item15 + Case "20" : AUFSCH.Art = VERAG_KundenStamm_Export_V2.VERAG_Kundenstamm_IMPORTKundenDatenAufschubArt.Item20 + End Select + + AUFSCH.BIN = KTO.kdAkto_bin + AUFSCH.EORI = KTO.kdAkto_eori + If KTO.kdAkto_eoriNL IsNot Nothing Then AUFSCH.EORI_Niederlassung = KTO.kdAkto_eoriNL Else AUFSCH.EORI_Niederlassung = "0000" + AUFSCH.Hauptzollamt = KTO.kdAkto_hauptzollamt + AUFSCH.KontoNr = KTO.kdAkto_kontonummer + + AKTOLIST.Add(AUFSCH) + If AKTOLIST.Count = 2 Then Exit For 'max. 2 Aufschub + End If + Next + If AKTOLIST.Count > 0 Then KD.Aufschubkonten = AKTOLIST + End If + + XML.KundenDaten.Add(KD) + + Next + + Dim saveDir = path + If Not IO.Directory.Exists(saveDir) Then + IO.Directory.CreateDirectory(saveDir) + End If + Dim counter = 1 + While IO.File.Exists(saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml") + counter += 1 + End While + saveFile = saveDir & "VERAG_KD_" & counter.ToString("D4") & ".xml" + + XML.SaveToFile(saveFile) + + Return True + + Catch ex As Exception + MsgBox(ex.Message & ex.StackTrace) + Return False + End Try + End Function + End Class diff --git a/DAKOSY_Worker/cIMPORT_Codelisten.vb b/DAKOSY_Worker/cIMPORT_Codelisten.vb index 0622d9e..aaf9ffe 100644 --- a/DAKOSY_Worker/cIMPORT_Codelisten.vb +++ b/DAKOSY_Worker/cIMPORT_Codelisten.vb @@ -988,7 +988,7 @@ Public Class cDY_Paramter Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL Shared Function GET_PARAM_ByName(dyParam_name, TESTSYSTEM) As String - Return SQL.getValueTxtBySql("SELECT TOP 1 [dyParam_value] FROM [tbl_DY_Paramter] WHERE [dyParam_name]='" & dyParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) + Return SQL.getValueTxtBySql("SELECT TOP 1 [dyParam_value] FROM [tbl_DY_Paramter] WHERE [dyParam_name]='" & dyParam_name & "' AND dyParam_firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) End Function End Class diff --git a/DAKOSY_Worker/cZOLL_IMPORT.vb b/DAKOSY_Worker/cZOLL_IMPORT.vb index 56a467b..bf3f1d4 100644 --- a/DAKOSY_Worker/cZOLL_IMPORT.vb +++ b/DAKOSY_Worker/cZOLL_IMPORT.vb @@ -265,6 +265,21 @@ Public Class cZOLL_IMPORT ATLAS_SERVER_VERBINDUNG = "ATLAS" End If + If SendungId > 0 Then SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungId) + + If EZA_Nr = "" And NCTS_Nr = "" Then + If SENDUNG IsNot Nothing AndAlso If(SENDUNG.tblSnd_DakosyRef, "") <> "" Then + Select Case SENDUNG.tblSnd_Abfertigungsart_ID + Case 5, 6, 24, 33, 34, 37, 40 + NCTS_Nr = SENDUNG.tblSnd_DakosyRef + SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr + Case Else + EZA_Nr = SENDUNG.tblSnd_DakosyRef + SPEDITIONSBUCH.AtlasBezNrEZA = EZA_Nr + End Select + Zollsystem = 2 + End If + End If '------------------------------------------------------------------------------------------------------------- ' ATLAS / EZOLL @@ -295,57 +310,44 @@ Public Class cZOLL_IMPORT Case 2 'dakosy SPEDITIONSBUCH.Zollsystem = "D" If EZA_Nr <> "" Then - DAKOSY_Worker.cDakosyEZA.DakosyEZADatenbereitstellung(SPEDITIONSBUCH, EZA_Nr, notFound, PosAnzahl) - - ElseIf NCTS_Nr <> "" Then ' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr DAKOSY_Worker.cDakosyNCTSOut.DakosyNCTSDatenbereitstellung(SPEDITIONSBUCH, NCTS_Nr, notFound) - End If Me.notFound = notFound Case 3 'telotec SPEDITIONSBUCH.Zollsystem = "T" If EZA_Nr <> "" Then - TELOTEC_Worker.cTelotec_Anmeldung.TELOTECDatenbereitstellung(SPEDITIONSBUCH, EZA_Nr, notFound, "EZA", PosAnzahl) - - ElseIf NCTS_Nr <> "" Then ' SPEDITIONSBUCH.AtlasBezNrNCTS = NCTS_Nr TELOTEC_Worker.cTelotec_Anmeldung.TELOTECDatenbereitstellung(SPEDITIONSBUCH, NCTS_Nr, notFound, "NCTS", PosAnzahl) - End If Me.notFound = notFound Case Else 'Kein Zollsystem End Select - - If avisoLinkId = 0 Or SendungId = 0 Then Dim DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADByBezugsNr(If(EZA_Nr <> "", EZA_Nr, NCTS_Nr)) If DY IsNot Nothing Then If avisoLinkId = 0 Then avisoLinkId = If(DY.dy_AvisoId, 0) If SendungId = 0 Then SendungId = If(DY.dy_SendungsId, 0) End If - End If - '------------------------------------------------------------------------------------------------------------- - If SPEDITIONSBUCH.Abfertigungsdatum Is Nothing Then SPEDITIONSBUCH.Abfertigungsdatum = Now.ToShortDateString If SendungId > 0 Then SPEDITIONSBUCH.SendungID = SendungId ' Dim fNEF = DirectCast(Me.Owner, frmNacherfassungNEU) If SendungId = 0 And SPEDITIONSBUCH.SendungID > 0 Then SendungId = SPEDITIONSBUCH.SendungID 'Falls falsch übergeben - If SendungId > 0 Then SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungId) + If SendungId > 0 And SENDUNG Is Nothing Then SENDUNG = New VERAG_PROG_ALLGEMEIN.cSendungen(SendungId) ' Dim dt As DataTable = SQLAVISO.loadDataTableBySQL("SELECT * FROM tblSendungen WHERE tblSnd_SendungID='" & SendungId & "' ") If SENDUNG IsNot Nothing Then @@ -397,7 +399,6 @@ Public Class cZOLL_IMPORT MsgBox("BAR-Err: Beträge konnten nicht geladen werden!" & vbNewLine & ex.Message & ex.StackTrace) End Try - 'If If(SENDUNG.tblSnd_bar, False) Then 'SPEDITIONSBUCH.Bar = True ' If (SENDUNG.tblSnd_barBeleg IsNot Nothing) And SPEDITIONSBUCH.ErfassungsNr = "" Then SPEDITIONSBUCH.ErfassungsNr = "VERA/" & VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG & "/" & CDate(SPEDITIONSBUCH.Abfertigungsdatum).ToShortDateString & "/" & SENDUNG.tblSnd_barBeleg @@ -415,14 +416,11 @@ Public Class cZOLL_IMPORT SPEDITIONSBUCH.NCTS_Verzollungsadresse &= vbNewLine SPEDITIONSBUCH.NCTS_Verzollungsadresse = SPEDITIONSBUCH.NCTS_Verzollungsadresse.Trim - - End If If SPEDITIONSBUCH.Endempfänger Is Nothing OrElse SPEDITIONSBUCH.Endempfänger = "" Then SPEDITIONSBUCH.Endempfänger = SENDUNG.tblSnd_Endempfaenger End If - If IsNull(SPEDITIONSBUCH.KdAuftragsNr) Then SPEDITIONSBUCH.KdAuftragsNr = If(SENDUNG.tblSnd_KdAuftragsNr, "") If IsNull(SPEDITIONSBUCH.KdAuftragsNrAvisierer) Then SPEDITIONSBUCH.KdAuftragsNrAvisierer = If(SENDUNG.tblSnd_KdAuftragsNrAvisierer, "") If IsNull(SPEDITIONSBUCH.KdAuftragsNrEmpfaenger) Then SPEDITIONSBUCH.KdAuftragsNrEmpfaenger = If(SENDUNG.tblSnd_KdAuftragsNrEmpfaenger, "") @@ -450,11 +448,12 @@ Public Class cZOLL_IMPORT ' txtAuftraggeber.Text = Aviso.Auftraggeber ' txtAuftraggeberKdNr.Text = Aviso.Auftraggeber_KdNr - SPEDITIONSBUCH.Avisierer = Aviso.Auftraggeber - If getint(Aviso.Auftraggeber_KdNr) > 0 Then SPEDITIONSBUCH.AvisiererKundenNr = Aviso.Auftraggeber_KdNr + 'NICHT MEHR: + 'SPEDITIONSBUCH.Avisierer = Aviso.Auftraggeber + 'If getint(Aviso.Auftraggeber_KdNr) > 0 Then SPEDITIONSBUCH.AvisiererKundenNr = Aviso.Auftraggeber_KdNr - SPEDITIONSBUCH.Frachtführer = Aviso.Frächter - If getint(Aviso.Frächter_KdNr) > 0 Then SPEDITIONSBUCH.FrachtführerKundenNr = Aviso.Frächter_KdNr + 'SPEDITIONSBUCH.Frachtführer = Aviso.Frächter + 'If getint(Aviso.Frächter_KdNr) > 0 Then SPEDITIONSBUCH.FrachtführerKundenNr = Aviso.Frächter_KdNr SPEDITIONSBUCH.LKW_Kennzeichen = Aviso.LKW_Nr @@ -474,6 +473,17 @@ Public Class cZOLL_IMPORT If SENDUNG IsNot Nothing Then + + 'NEU: + SPEDITIONSBUCH.Avisierer = SENDUNG.tblSnd_Avisierer + If getint(SENDUNG.tblSnd_AvisiererKdNr) > 0 Then SPEDITIONSBUCH.AvisiererKundenNr = SENDUNG.tblSnd_AvisiererKdNr + + SPEDITIONSBUCH.Frachtführer = SENDUNG.tblSnd_Frachtfuehrer + If getint(SENDUNG.tblSnd_FrachtfuehrerKdNr) > 0 Then SPEDITIONSBUCH.FrachtführerKundenNr = SENDUNG.tblSnd_FrachtfuehrerKdNr + + + + If SPEDITIONSBUCH.AbsenderKundenNr Is Nothing OrElse SPEDITIONSBUCH.AbsenderKundenNr <= 0 Then If SENDUNG.tblSnd_AbsenderKdNr > 0 Then SPEDITIONSBUCH.AbsenderKundenNr = SENDUNG.tblSnd_AbsenderKdNr @@ -525,7 +535,7 @@ Public Class cZOLL_IMPORT End If - If (SENDUNG.tblSnd_Abfertigungsart_ID = 26 Or SENDUNG.tblSnd_Abfertigungsart_ID = 28) And NCTS_Nr <> "" Then + If (SENDUNG.tblSnd_Abfertigungsart_ID = 26 Or SENDUNG.tblSnd_Abfertigungsart_ID = 28 Or SENDUNG.tblSnd_Abfertigungsart_ID = 38) And NCTS_Nr <> "" Then 'Überstellungs-T SPEDITIONSBUCH.Abfertigungsart = 5 Else @@ -633,7 +643,9 @@ Public Class cZOLL_IMPORT If SPEDITIONSBUCH.Abfertigungsanzahl = 0 Then Return False Catch ex As Exception - VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail("Validierungsfehler SpedBuch - Trotzdem eingearbeitet!", ex.Message, ex.StackTrace, "al@verag.ag", "") + ' VERAG_PROG_ALLGEMEIN.cErrorHandler.sendERRORperMail(, ex.Message, ex.StackTrace, , "",) + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,, "Validierungsfehler SpedBuch - Trotzdem eingearbeitet!", "al@verag.ag", "al@verag.ag") + End Try Return True End Function diff --git a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb index d996923..1f747ed 100644 --- a/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb +++ b/DAKOSY_Worker/cZollsysteme_Aktenbeschriftung.vb @@ -29,6 +29,9 @@ 'End Sub Function getATAMRNBezugsnummer(BezugsNr As String, Abfertigungsart As String) As String + If BezugsNr.Length <= 12 Then Return "" + + BezugsNr = BezugsNr & "%" getATAMRNBezugsnummer = "" Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "IMEX" @@ -38,15 +41,16 @@ Select Case Abfertigungsart Case 38, 26 'AT ' getADFrom_EZOLL - getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr) 'Ü-T1 + getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr, True) 'Ü-T1 + Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen... Case 1, 2, 3, 28, 39 - getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr) + getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr, True) '... and Systeme Case Else - getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr) + getATAMRNBezugsnummer = load_NCTS_MRN_FromDAKOSY(BezugsNr, True) If getATAMRNBezugsnummer = "" Then 'Falls doch nicht - getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr) + getATAMRNBezugsnummer = load_EZA_ATA_FromDAKOSY(BezugsNr, True) End If End Select End Select @@ -54,6 +58,8 @@ End Function Function getDataByBezugsnummer(BezugsNr As String, Abfertigungsart As String) As Boolean + If BezugsNr.Length <= 12 Then Return "" + BezugsNr = BezugsNr & "%" getDataByBezugsnummer = False Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA ' Case "UNISPED" @@ -62,19 +68,20 @@ Select Case Abfertigungsart Case 38, 26 'AT ' getADFrom_EZOLL - getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr)'Ü-T1 + getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True) 'Ü-T1 + Sachbearbeiter = "" ' Bei Ü-T1 soll der SB leer sein, sonst wird dieser evtl. beim Austragen herangezogen... Case 1, 2, 3, 28, 39 - getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr) + getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) '... and Systeme Case Else - getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr) + getDataByBezugsnummer = load_NCTS_FromDAKOSY(BezugsNr, True) If Not getDataByBezugsnummer Then 'Falls doch nicht - getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr) + getDataByBezugsnummer = load_EZA_FromDAKOSY(BezugsNr, True) End If End Select End Select - Return False + End Function @@ -96,22 +103,22 @@ End Function - Function load_EZA_ATA_FromDAKOSY(BezugsNr) As String - Dim EZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True) + Function load_EZA_ATA_FromDAKOSY(BezugsNr, Optional checkValidStatus = False) As String + Dim EZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True, checkValidStatus) If EZA Is Nothing Then Return "" Return If(EZA.eza_ANR, If(EZA.eza_MRN, "")) End Function - Function load_NCTS_MRN_FromDAKOSY(BezugsNr) As String - Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True) + Function load_NCTS_MRN_FromDAKOSY(BezugsNr, Optional checkValidStatus = False) As String + Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True, checkValidStatus) If NCTS Is Nothing Then Return "" Return If(NCTS.ncts_MRN, If(NCTS.ncts_ANR, "")) End Function - Function load_EZA_FromDAKOSY(BezugsNr) As Boolean - Dim EZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True) + Function load_EZA_FromDAKOSY(BezugsNr As String, Optional checkValidStatus As Boolean = False) As Boolean + Dim EZA = DAKOSY_Worker.cDakosyEZA.LOADByBezugsNr(BezugsNr, True, True) If EZA Is Nothing Then Return False Return load_EZA_FromDAKOSY(EZA) End Function @@ -119,7 +126,7 @@ Function load_EZA_FromDAKOSY(EZA As DAKOSY_Worker.cDakosyEZA) As Boolean Try - If EZA Is Nothing Then Return Nothing + If EZA Is Nothing Then Return False EZA.LOAD_Warenposition() ' @@ -185,7 +192,8 @@ Dim AUFSCHUB_List As New List(Of String) For Each AB In EZA.eza_AUFSCHUB - addIfNotExists(AUFSCHUB_List, (If(AB.ezaAfb_KontoNr, "")).Trim) + Dim kto = (If(AB.ezaAfb_HZA, "") & If(AB.ezaAfb_KontoNr, "")).Trim + addIfNotExists(AUFSCHUB_List, kto & load_KdFromAKto(kto)) Next AbgabenKonto = listToString(AUFSCHUB_List) @@ -194,13 +202,17 @@ Return True Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) - Return Nothing + Return False End Try Return False End Function - Function load_NCTS_FromDAKOSY(BezugsNr) As Boolean - Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True) + Function load_KdFromAKto(kto) As String + Return SQL.getValueTxtBySql("SELECT TOP 1 Ordnungsbegriff FROM [tblKundenAufschubkonten] inner join adressen on adressennr = [kdAkto_KundenNr] where kdAkto_hauptzollamt + kdAkto_kontonummer ='" & kto & "'", "FMZOLL") + End Function + + Function load_NCTS_FromDAKOSY(BezugsNr As String, Optional checkValidStatus As Boolean = False) As Boolean + Dim NCTS = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True, checkValidStatus) If NCTS Is Nothing Then Return False Return load_NCTS_FromDAKOSY(NCTS) End Function diff --git a/UID/Classes/cDienstplanSchicht.vb b/UID/Classes/cDienstplanSchicht.vb index efb1568..204d6ca 100644 --- a/UID/Classes/cDienstplanSchicht.vb +++ b/UID/Classes/cDienstplanSchicht.vb @@ -25,7 +25,8 @@ Property dedet_ExcelMonatFarbe As Object Property dedet_ExcelMonatBezeichnung As String = "" - + Property dedet_Aktiv As Boolean = True + Property ZEITEN As New List(Of cDienstplanSchichtZeiten) Sub New() @@ -69,6 +70,7 @@ Me.dedet_ExcelMonatFarbe = If(row("dedet_ExcelMonatFarbe") IsNot DBNull.Value, row("dedet_ExcelMonatFarbe"), Nothing) Me.dedet_ExcelMonatBezeichnung = If(row("dedet_ExcelMonatBezeichnung") IsNot DBNull.Value, row("dedet_ExcelMonatBezeichnung"), "") + Me.dedet_Aktiv = CBool(row("dedet_Aktiv")) LOAD_ZEITEN(Me.dedet_id) End If diff --git a/UID/Dienstplan/frmDienstplanVariabel.vb b/UID/Dienstplan/frmDienstplanVariabel.vb index 1242f98..8ca94de 100644 --- a/UID/Dienstplan/frmDienstplanVariabel.vb +++ b/UID/Dienstplan/frmDienstplanVariabel.vb @@ -389,7 +389,7 @@ Public Class frmDienstplanVariabel ' Next FlowLayoutPanel.Controls.Clear() - Dim DTBenutzer As DataTable = ADMIN.AnzeigeTabelle(" SELECT * FROM [tblDienstplanEintraegeDetails] WHERE [dedet_niederlassung]='" & niederlassung & "' AND dedet_benutzerdefinierteSchicht=1 ORDER BY dedet_reihenfolge") + Dim DTBenutzer As DataTable = ADMIN.AnzeigeTabelle(" SELECT * FROM [tblDienstplanEintraegeDetails] WHERE [dedet_niederlassung]='" & niederlassung & "' AND dedet_benutzerdefinierteSchicht=1 AND dedet_aktiv=1 ORDER BY dedet_reihenfolge") For Each r As DataRow In DTBenutzer.Rows Dim SCHICHT As New cDienstplanSchicht(r("dedet_id")) Dim u As New usrCntlDienstWoche(SCHICHT, SETTINGS) diff --git a/UID/Dienstplan/frmSchichtenZeiten.Designer.vb b/UID/Dienstplan/frmSchichtenZeiten.Designer.vb index 4bb3b8e..0f249f6 100644 --- a/UID/Dienstplan/frmSchichtenZeiten.Designer.vb +++ b/UID/Dienstplan/frmSchichtenZeiten.Designer.vb @@ -103,6 +103,7 @@ Partial Class frmSchichtenZeiten Me.frbBGExcelMonat = New System.Windows.Forms.Button() Me.CheckBox3 = New System.Windows.Forms.CheckBox() Me.ColorDialog3 = New System.Windows.Forms.ColorDialog() + Me.cbxAktiv = New System.Windows.Forms.CheckBox() CType(Me.dgvSchihten, System.ComponentModel.ISupportInitialize).BeginInit() Me.grp.SuspendLayout() Me.pnl.SuspendLayout() @@ -877,12 +878,25 @@ Partial Class frmSchichtenZeiten Me.CheckBox3.Text = "BG Farbe:" Me.CheckBox3.UseVisualStyleBackColor = True ' + 'cbxAktiv + ' + Me.cbxAktiv.AutoSize = True + Me.cbxAktiv.Checked = True + Me.cbxAktiv.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxAktiv.Location = New System.Drawing.Point(598, 160) + Me.cbxAktiv.Name = "cbxAktiv" + Me.cbxAktiv.Size = New System.Drawing.Size(49, 17) + Me.cbxAktiv.TabIndex = 130 + Me.cbxAktiv.Text = "aktiv" + Me.cbxAktiv.UseVisualStyleBackColor = True + ' 'frmSchichtenZeiten ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.BackColor = System.Drawing.Color.White Me.ClientSize = New System.Drawing.Size(659, 400) + Me.Controls.Add(Me.cbxAktiv) Me.Controls.Add(Me.CheckBox3) Me.Controls.Add(Me.cbxSchichtArbeitszeit) Me.Controls.Add(Me.frbBGExcelMonat) @@ -990,4 +1004,5 @@ Partial Class frmSchichtenZeiten Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox Friend WithEvents ColorDialog3 As System.Windows.Forms.ColorDialog + Friend WithEvents cbxAktiv As CheckBox End Class diff --git a/UID/Dienstplan/frmSchichtenZeiten.vb b/UID/Dienstplan/frmSchichtenZeiten.vb index ee972f8..55640c7 100644 --- a/UID/Dienstplan/frmSchichtenZeiten.vb +++ b/UID/Dienstplan/frmSchichtenZeiten.vb @@ -110,7 +110,7 @@ End If txtExcelMonat.Text = SCHICHT.dedet_ExcelMonatBezeichnung - + cbxAktiv.Checked = SCHICHT.dedet_Aktiv txtZusatzAL.Text = SCHICHT.dedet_bezLeiter If SCHICHT.dedet_ExcelBgFarbe IsNot Nothing Then @@ -168,7 +168,7 @@ End If DP.updateEintraegeDetails_Benuterdef(dgvSchihten.SelectedRows(0).Cells("dedet_id").Value, txtDPBezeichnung.Text, txtProzent.Text, txtExcelBezeichnung.Text, txtExcelBezeichnung2.Text, txtExcelBezeichnung3.Text, txtExcelZeilen.Text, cbxBenutzerdefinierteSchicht.Checked, cbxSchichtArbeitszeit.Checked, - IIf(IsNumeric(txtReihenfolge.Text), txtReihenfolge.Text, 50), cbxTagesSchichtWechsel.Checked, txtSchichtWechselZu.Text, txtHotKey.Text, bg, bgExcel, txtZusatzAL.Text, bgExcelMonat, txtExcelMonat.Text) + IIf(IsNumeric(txtReihenfolge.Text), txtReihenfolge.Text, 50), cbxTagesSchichtWechsel.Checked, txtSchichtWechselZu.Text, txtHotKey.Text, bg, bgExcel, txtZusatzAL.Text, bgExcelMonat, txtExcelMonat.Text, cbxAktiv.Checked) End If ' d.dedet_bezeichnungDP = dr.Item("dedet_bezeichnungDP") diff --git a/UID/Dienstplan/usrCntlDienstplan.Designer.vb b/UID/Dienstplan/usrCntlDienstplan.Designer.vb index e17990a..058d6bc 100644 --- a/UID/Dienstplan/usrCntlDienstplan.Designer.vb +++ b/UID/Dienstplan/usrCntlDienstplan.Designer.vb @@ -31,6 +31,7 @@ Partial Class usrCntlDienstplan Me.btnDienstplan = New System.Windows.Forms.Button() Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel() + Me.cbxInaktiv = New System.Windows.Forms.CheckBox() Me.numJahr = New System.Windows.Forms.NumericUpDown() Me.cboMonat = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.btnAuswertung = New System.Windows.Forms.Button() @@ -46,7 +47,7 @@ Partial Class usrCntlDienstplan Me.tbVerag = New System.Windows.Forms.TabPage() Me.tbAtilla2 = New System.Windows.Forms.TabPage() Me.tbImex = New System.Windows.Forms.TabPage() - Me.cbxInaktiv = New System.Windows.Forms.CheckBox() + Me.tbFrontOffice = New System.Windows.Forms.TabPage() CType(Me.dgvMA, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.Panel3.SuspendLayout() @@ -154,6 +155,16 @@ Partial Class usrCntlDienstplan Me.Panel3.Size = New System.Drawing.Size(121, 771) Me.Panel3.TabIndex = 6 ' + 'cbxInaktiv + ' + Me.cbxInaktiv.AutoSize = True + Me.cbxInaktiv.Location = New System.Drawing.Point(6, 364) + Me.cbxInaktiv.Name = "cbxInaktiv" + Me.cbxInaktiv.Size = New System.Drawing.Size(82, 17) + Me.cbxInaktiv.TabIndex = 12 + Me.cbxInaktiv.Text = "inaktive MA" + Me.cbxInaktiv.UseVisualStyleBackColor = True + ' 'numJahr ' Me.numJahr.Location = New System.Drawing.Point(4, 482) @@ -288,6 +299,7 @@ Partial Class usrCntlDienstplan Me.tbFirmen.Controls.Add(Me.tbVerag) Me.tbFirmen.Controls.Add(Me.tbAtilla2) Me.tbFirmen.Controls.Add(Me.tbImex) + Me.tbFirmen.Controls.Add(Me.tbFrontOffice) Me.tbFirmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.tbFirmen.Location = New System.Drawing.Point(0, 42) Me.tbFirmen.Name = "tbFirmen" @@ -325,15 +337,15 @@ Partial Class usrCntlDienstplan Me.tbImex.Text = "IMEX" Me.tbImex.UseVisualStyleBackColor = True ' - 'cbxInaktiv + 'tbFrontOffice ' - Me.cbxInaktiv.AutoSize = True - Me.cbxInaktiv.Location = New System.Drawing.Point(6, 364) - Me.cbxInaktiv.Name = "cbxInaktiv" - Me.cbxInaktiv.Size = New System.Drawing.Size(82, 17) - Me.cbxInaktiv.TabIndex = 12 - Me.cbxInaktiv.Text = "inaktive MA" - Me.cbxInaktiv.UseVisualStyleBackColor = True + Me.tbFrontOffice.Location = New System.Drawing.Point(4, 33) + Me.tbFrontOffice.Name = "tbFrontOffice" + Me.tbFrontOffice.Padding = New System.Windows.Forms.Padding(3) + Me.tbFrontOffice.Size = New System.Drawing.Size(950, 0) + Me.tbFrontOffice.TabIndex = 3 + Me.tbFrontOffice.Text = "FRONTOFFICE" + Me.tbFrontOffice.UseVisualStyleBackColor = True ' 'usrCntlDienstplan ' @@ -378,4 +390,5 @@ Partial Class usrCntlDienstplan Friend WithEvents numJahr As NumericUpDown Friend WithEvents cboMonat As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cbxInaktiv As CheckBox + Friend WithEvents tbFrontOffice As TabPage End Class diff --git a/UID/Dienstplan/usrCntlDienstplan.vb b/UID/Dienstplan/usrCntlDienstplan.vb index 4359faa..7008862 100644 --- a/UID/Dienstplan/usrCntlDienstplan.vb +++ b/UID/Dienstplan/usrCntlDienstplan.vb @@ -56,6 +56,8 @@ Public Class usrCntlDienstplan Sub initNiederlassungen(Optional start = False) MyFlowLayoutPanel1.Controls.Clear() + If tbFirmen.TabPages.Count = 0 Then Exit Sub + If tbFirmen.SelectedIndex < 0 Then Exit Sub Dim s As New VERAG_PROG_ALLGEMEIN.SQL Dim dt As DataTable = s.loadDgvBySql("SELECT [dpset_id],[dpset_niederlassung] FROM [tblDienstSettings] WHERE dpset_firma='" & tbFirmen.SelectedTab.Text & "' order by dpset_reihenfolge ", "ADMIN") For Each r As DataRow In dt.Rows @@ -86,22 +88,42 @@ Public Class usrCntlDienstplan If start Then - 'Einschränkung DP Firma: - If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma IsNot Nothing Then + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma = "ALLE" Then + 'tbFirmen.Enabled = False + + + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "ATILLA" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "ATILLA" Then tbFirmen.TabPages.Remove(tbAtilla2) + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "IMEX" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "IMEX" Then tbFirmen.TabPages.Remove(tbImex) + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "VERAG" Then tbFirmen.TabPages.Remove(tbVerag) + If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "FRONTOFFICE" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "FRONTOFFICE" Then tbFirmen.TabPages.Remove(tbFrontOffice) + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma Case "ATILLA" : tbFirmen.SelectedTab = tbAtilla2 Case "IMEX" : tbFirmen.SelectedTab = tbImex Case "VERAG" : tbFirmen.SelectedTab = tbVerag + Case "FRONTOFFICE" : tbFirmen.SelectedTab = tbFrontOffice + ' Case "ALLE" : tbFirmen.SelectedTab = tbVerag : tbFirmen.Enabled = True Case Else : tbFirmen.SelectedTab = tbVerag End Select - If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) Then tbFirmen.Enabled = False End If + ''Einschränkung DP Firma: + 'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma IsNot Nothing Then + ' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma + ' Case "ATILLA" : tbFirmen.SelectedTab = tbAtilla2 + ' Case "IMEX" : tbFirmen.SelectedTab = tbImex + ' Case "VERAG" : tbFirmen.SelectedTab = tbVerag + ' Case "FRONTOFFICE" : tbFirmen.SelectedTab = tbFrontOffice + ' ' Case "ALLE" : tbFirmen.SelectedTab = tbVerag : tbFirmen.Enabled = True + ' Case Else : tbFirmen.SelectedTab = tbVerag + ' End Select + ' If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma = "ALLE" Then tbFirmen.Enabled = False + 'End If 'Wenn zusätzlich eingeschränkt auf NL: If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardDP IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardDP <> "" Then initButtons(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardDP) initDone = True - If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) Then + If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma = "ALLE" Then For Each b As Button In MyFlowLayoutPanel1.Controls b.Enabled = False tbFirmen.Enabled = False diff --git a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb index e6cbbf8..c0d8c11 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.Designer.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.Designer.vb @@ -61,6 +61,8 @@ Partial Class frmMitarbDetails Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.Label4 = New System.Windows.Forms.Label() Me.GroupBox2 = New System.Windows.Forms.GroupBox() + Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.Label53 = New System.Windows.Forms.Label() Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.txtALIASUser = New System.Windows.Forms.TextBox() Me.Label52 = New System.Windows.Forms.Label() @@ -161,8 +163,7 @@ Partial Class frmMitarbDetails Me.PictureBox6 = New System.Windows.Forms.PictureBox() Me.cboAdminBer = New System.Windows.Forms.ComboBox() Me.Label7 = New System.Windows.Forms.Label() - Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.Label53 = New System.Windows.Forms.Label() + Me.cboDPFirma2 = New VERAG_PROG_ALLGEMEIN.MyComboBox() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.Panel1.SuspendLayout() Me.TabControl2.SuspendLayout() @@ -296,6 +297,7 @@ Partial Class frmMitarbDetails ' 'TabPage2 ' + Me.TabPage2.Controls.Add(Me.cboDPFirma2) Me.TabPage2.Controls.Add(Me.cboDPFirma) Me.TabPage2.Controls.Add(Me.Label50) Me.TabPage2.Controls.Add(Me.Label38) @@ -327,7 +329,7 @@ Partial Class frmMitarbDetails Me.cboDPFirma.FormattingEnabled = True Me.cboDPFirma.Location = New System.Drawing.Point(7, 151) Me.cboDPFirma.Name = "cboDPFirma" - Me.cboDPFirma.Size = New System.Drawing.Size(198, 21) + Me.cboDPFirma.Size = New System.Drawing.Size(101, 21) Me.cboDPFirma.TabIndex = 107 ' 'Label50 @@ -647,6 +649,30 @@ Partial Class frmMitarbDetails Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Firmendaten" ' + 'cboTeam + ' + Me.cboTeam._allowedValuesFreiText = Nothing + Me.cboTeam._allowFreiText = False + Me.cboTeam._value = "" + Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList + Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboTeam.FormattingEnabled = True + Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) + Me.cboTeam.Location = New System.Drawing.Point(406, 116) + Me.cboTeam.Name = "cboTeam" + Me.cboTeam.Size = New System.Drawing.Size(136, 21) + Me.cboTeam.TabIndex = 101 + ' + 'Label53 + ' + Me.Label53.AutoSize = True + Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label53.Location = New System.Drawing.Point(403, 100) + Me.Label53.Name = "Label53" + Me.Label53.Size = New System.Drawing.Size(37, 13) + Me.Label53.TabIndex = 102 + Me.Label53.Text = "Team:" + ' 'cboALIASDomain ' Me.cboALIASDomain._allowedValuesFreiText = Nothing @@ -1728,29 +1754,17 @@ Partial Class frmMitarbDetails Me.Label7.TabIndex = 78 Me.Label7.Text = "Berechtigung:" ' - 'cboTeam + 'cboDPFirma2 ' - Me.cboTeam._allowedValuesFreiText = Nothing - Me.cboTeam._allowFreiText = False - Me.cboTeam._value = "" - Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList - Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.cboTeam.FormattingEnabled = True - Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"}) - Me.cboTeam.Location = New System.Drawing.Point(406, 116) - Me.cboTeam.Name = "cboTeam" - Me.cboTeam.Size = New System.Drawing.Size(136, 21) - Me.cboTeam.TabIndex = 101 - ' - 'Label53 - ' - Me.Label53.AutoSize = True - Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label53.Location = New System.Drawing.Point(403, 100) - Me.Label53.Name = "Label53" - Me.Label53.Size = New System.Drawing.Size(37, 13) - Me.Label53.TabIndex = 102 - Me.Label53.Text = "Team:" + Me.cboDPFirma2._allowedValuesFreiText = Nothing + Me.cboDPFirma2._allowFreiText = False + Me.cboDPFirma2._value = "" + Me.cboDPFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.cboDPFirma2.FormattingEnabled = True + Me.cboDPFirma2.Location = New System.Drawing.Point(106, 151) + Me.cboDPFirma2.Name = "cboDPFirma2" + Me.cboDPFirma2.Size = New System.Drawing.Size(101, 21) + Me.cboDPFirma2.TabIndex = 108 ' 'frmMitarbDetails ' @@ -1934,4 +1948,5 @@ Partial Class frmMitarbDetails Friend WithEvents Label52 As Label Friend WithEvents cboTeam As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents Label53 As Label + Friend WithEvents cboDPFirma2 As VERAG_PROG_ALLGEMEIN.MyComboBox End Class diff --git a/UID/Mitarbeiter/frmMitarbDetails.vb b/UID/Mitarbeiter/frmMitarbDetails.vb index cd8746a..1d51436 100644 --- a/UID/Mitarbeiter/frmMitarbDetails.vb +++ b/UID/Mitarbeiter/frmMitarbDetails.vb @@ -50,12 +50,23 @@ cboDPFirma.Items.Clear() cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE")) cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG")) cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED")) cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE")) + cboDPFirma2.Items.Clear() + cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) + cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE")) + cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG")) + cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA")) + cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX")) + cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED")) + cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR")) + cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE")) + cboALIASDomain.Items.Clear() cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) @@ -260,6 +271,7 @@ If mitarbeiter.mit_DpUserStandardDP IsNot Nothing Then cboDP.changeItem(mitarbeiter.mit_DpUserStandardDP) If mitarbeiter.mit_DpUserStandardFirma IsNot Nothing Then cboDPFirma.changeItem(mitarbeiter.mit_DpUserStandardFirma) + If mitarbeiter.mit_DpUserStandardFirma2 IsNot Nothing Then cboDPFirma2.changeItem(mitarbeiter.mit_DpUserStandardFirma2) cbxSpedBuch.Checked = mitarbeiter.mit_FMZollPersIDKasseIsnotSpedBuch @@ -484,6 +496,7 @@ mitarbeiter.mit_DpUserStandardDP = cboDP._value mitarbeiter.mit_DpUserStandardFirma = cboDPFirma._value + mitarbeiter.mit_DpUserStandardFirma2 = cboDPFirma2._value If IsNumeric(MyComboBox2._value) AndAlso MyComboBox2._value > 0 Then mitarbeiter.mit_standartFiliale = MyComboBox2._value diff --git a/UID/My Project/AssemblyInfo.vb b/UID/My Project/AssemblyInfo.vb index 5f672b8..069a3c0 100644 --- a/UID/My Project/AssemblyInfo.vb +++ b/UID/My Project/AssemblyInfo.vb @@ -18,7 +18,7 @@ Imports System.Runtime.InteropServices 'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird - + ' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: ' @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/UID/My Project/Resources.Designer.vb b/UID/My Project/Resources.Designer.vb index 7c6e919..caa12b9 100644 --- a/UID/My Project/Resources.Designer.vb +++ b/UID/My Project/Resources.Designer.vb @@ -60,6 +60,24 @@ Namespace My.Resources End Set End Property + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. + ''' + Friend ReadOnly Property adasasd23asdasdasd() As String + Get + Return ResourceManager.GetString("adasasd23asdasdasd", resourceCulture) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. + ''' + Friend ReadOnly Property adasdasd() As String + Get + Return ResourceManager.GetString("adasdasd", resourceCulture) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -375,15 +393,6 @@ Namespace My.Resources End Get End Property - ''' - ''' Sucht eine lokalisierte Zeichenfolge, die ähnelt. - ''' - Friend ReadOnly Property jjjiioioolokoik() As String - Get - Return ResourceManager.GetString("jjjiioioolokoik", resourceCulture) - End Get - End Property - ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -644,7 +653,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 1.8.8 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 1.9.1 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/UID/My Project/Resources.resx b/UID/My Project/Resources.resx index 72b1b8f..bfa32bb 100644 --- a/UID/My Project/Resources.resx +++ b/UID/My Project/Resources.resx @@ -188,7 +188,7 @@ Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; - 1.8.8 + 1.9.1 ..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -298,7 +298,10 @@ ..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - + + + + \ No newline at end of file diff --git a/UID/cSqlDb.vb b/UID/cSqlDb.vb index 89f0ef4..1e4f709 100644 --- a/UID/cSqlDb.vb +++ b/UID/cSqlDb.vb @@ -1512,8 +1512,8 @@ Public Class cMitarbeiter 'Änderung Dim sql = "INSERT INTO tblMitarbeiter " & - "(mit_username, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_teamId) VALUES " & - "(@mit_username,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_teamId)" + "(mit_username, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_teamId) VALUES " & + "(@mit_username,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_teamId)" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) @@ -1543,6 +1543,7 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_standartFiliale", m.mit_standartFiliale) cmd.Parameters.AddWithValue("@mit_DpUserStandardDP", m.mit_DpUserStandardDP) cmd.Parameters.AddWithValue("@mit_DpUserStandardFirma", m.mit_DpUserStandardFirma) + cmd.Parameters.AddWithValue("@mit_DpUserStandardFirma2", m.mit_DpUserStandardFirma2) cmd.Parameters.AddWithValue("@mit_info", m.mit_info) If m.mit_einstiegsdatum <> "" Then cmd.Parameters.AddWithValue("@mit_einstiegsdatum", m.mit_einstiegsdatum) Else cmd.Parameters.AddWithValue("@mit_einstiegsdatum", DBNull.Value) cmd.Parameters.AddWithValue("@mit_gekuendigt", m.mit_gekuendigt) @@ -1578,7 +1579,7 @@ Public Class cMitarbeiter Dim hAuswahl As String = "" Dim sql = "UPDATE tblMitarbeiter " & - "SET mit_username=@mit_username, mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_teamId=@mit_teamId " & + "SET mit_username=@mit_username, mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma,mit_DpUserStandardFirma2=@mit_DpUserStandardFirma2, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_teamId=@mit_teamId " & " WHERE mit_id=@mit_id " @@ -1611,6 +1612,7 @@ Public Class cMitarbeiter cmd.Parameters.AddWithValue("@mit_standardPreisliste", m.mit_standardPreisliste) cmd.Parameters.AddWithValue("@mit_DpUserStandardDP", m.mit_DpUserStandardDP) cmd.Parameters.AddWithValue("@mit_DpUserStandardFirma", m.mit_DpUserStandardFirma) + cmd.Parameters.AddWithValue("@mit_DpUserStandardFirma2", m.mit_DpUserStandardFirma2) cmd.Parameters.AddWithValue("@mit_info", m.mit_info) If m.mit_einstiegsdatum <> "" Then cmd.Parameters.AddWithValue("@mit_einstiegsdatum", m.mit_einstiegsdatum) Else cmd.Parameters.AddWithValue("@mit_einstiegsdatum", DBNull.Value) @@ -2912,12 +2914,12 @@ Public Class cDienstplan End Function - Public Function updateEintraegeDetails_Benuterdef(dedet_id, dedet_bezeichnungDP, dedet_ProzentGrafik, dedet_bezeichnungExcel, dedet_bezeichnungExcel2, dedet_bezeichnungExcel3, dedet_ZeilenExcel, dedet_benutzerdefinierteSchicht, dedet_stdWieArbeitszeit, dedet_reihenfolge, dedet_TagesWechsel, dedet_WechselZuSchicht, dedet_HotKey, dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe, dedet_bezLeiter, dedet_ExcelMonatFarbe, dedet_ExcelMonatBezeichnung) As Boolean + Public Function updateEintraegeDetails_Benuterdef(dedet_id, dedet_bezeichnungDP, dedet_ProzentGrafik, dedet_bezeichnungExcel, dedet_bezeichnungExcel2, dedet_bezeichnungExcel3, dedet_ZeilenExcel, dedet_benutzerdefinierteSchicht, dedet_stdWieArbeitszeit, dedet_reihenfolge, dedet_TagesWechsel, dedet_WechselZuSchicht, dedet_HotKey, dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe, dedet_bezLeiter, dedet_ExcelMonatFarbe, dedet_ExcelMonatBezeichnung, dedet_aktiv) As Boolean Dim hAuswahl As String = "" Dim sql As String = "UPDATE tblDienstplanEintraegeDetails " & "SET dedet_bezeichnungDP=@dedet_bezeichnungDP,dedet_ProzentGrafik=@dedet_ProzentGrafik,dedet_bezeichnungExcel=@dedet_bezeichnungExcel,dedet_bezeichnungExcel2=@dedet_bezeichnungExcel2,dedet_bezeichnungExcel3=@dedet_bezeichnungExcel3,dedet_ZeilenExcel=@dedet_ZeilenExcel,dedet_benutzerdefinierteSchicht=@dedet_benutzerdefinierteSchicht,dedet_stdWieArbeitszeit=@dedet_stdWieArbeitszeit, " & - " dedet_reihenfolge=@dedet_reihenfolge,dedet_TagesWechsel=@dedet_TagesWechsel,dedet_WechselZuSchicht=@dedet_WechselZuSchicht,dedet_HotKey=@dedet_HotKey ,dedet_bgAlternativeFarbe=@dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe=@dedet_ExcelBgFarbe,dedet_bezLeiter=@dedet_bezLeiter,dedet_ExcelMonatFarbe=@dedet_ExcelMonatFarbe,dedet_ExcelMonatBezeichnung=@dedet_ExcelMonatBezeichnung" & + " dedet_reihenfolge=@dedet_reihenfolge,dedet_TagesWechsel=@dedet_TagesWechsel,dedet_WechselZuSchicht=@dedet_WechselZuSchicht,dedet_HotKey=@dedet_HotKey ,dedet_bgAlternativeFarbe=@dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe=@dedet_ExcelBgFarbe,dedet_bezLeiter=@dedet_bezLeiter,dedet_ExcelMonatFarbe=@dedet_ExcelMonatFarbe,dedet_ExcelMonatBezeichnung=@dedet_ExcelMonatBezeichnung,dedet_aktiv=@dedet_aktiv " & " WHERE dedet_id=@dedet_id " @@ -2945,6 +2947,7 @@ Public Class cDienstplan cmd.Parameters.AddWithValue("@dedet_bezLeiter", dedet_bezLeiter) cmd.Parameters.AddWithValue("@dedet_ExcelMonatFarbe", dedet_ExcelMonatFarbe) cmd.Parameters.AddWithValue("@dedet_ExcelMonatBezeichnung", dedet_ExcelMonatBezeichnung) + cmd.Parameters.AddWithValue("@dedet_aktiv", dedet_aktiv) Try cmd.ExecuteNonQuery() diff --git a/initATLASAufschubkonten/cVERAG_Interface.vb b/initATLASAufschubkonten/cVERAG_Interface.vb index aff5af1..4afadcc 100644 --- a/initATLASAufschubkonten/cVERAG_Interface.vb +++ b/initATLASAufschubkonten/cVERAG_Interface.vb @@ -1,6 +1,15 @@ Public Class cVERAG_Interface Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL + + Shared GLO_NCTS_DY As DAKOSY_Worker.cDakosyNCTSOut = Nothing + Shared GLO_DY As DAKOSY_Worker.cDakosy_Zollanmeldungen = Nothing + Shared GLO_NCTS_TC As TELOTEC_Worker.cTelotec_Anmeldung = Nothing + + Shared GLO_AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing + Shared GLO_SND As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing + Shared cVERAG_Interface_Settings As New cVERAG_Interface_Settings 'defalut: Alles true + 'Shared Function copyFileFTP_OLD(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen) ', filePath As String) ' Try ' If NCTS_TMP Is Nothing Then Return False @@ -36,13 +45,18 @@ ' End Try 'End Function - Shared Function copyFileFTP_VERAGncts_DY_ByBezugsNr(BezugsNr As String) As Boolean + + + Shared Function copyFileFTP_VERAGncts_DY_ByBezugsNr(BezugsNr As String, ISett As cVERAG_Interface_Settings) As Boolean + cVERAG_Interface_Settings = ISett Dim DY_TMP = DAKOSY_Worker.cDakosy_Zollanmeldungen.LOADByBezugsNr(BezugsNr) Dim NCTS_TMP = DAKOSY_Worker.cDakosyNCTSOut.LOADByBezugsNr(BezugsNr, True) If DY_TMP Is Nothing Then Return False If NCTS_TMP Is Nothing Then Return False Return copyFileFTP_VERAGncts_DY(NCTS_TMP, DY_TMP, False) End Function + + Shared Function copyFileFTP_VERAGncts_DY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, Optional checkAlreadyProvided As Boolean = True) As Boolean Try If NCTS_TMP Is Nothing Then Return False @@ -50,64 +64,105 @@ If NCTS_TMP.ncts_ObjectName.ToString.StartsWith("DU") Then Return False If If(NCTS_TMP.ncts_firma, "").ToString = "DURMAZ" Then Return False + GLO_NCTS_DY = NCTS_TMP + GLO_DY = DY_TMP + + GLO_SND = Nothing + GLO_AVISO = Nothing + + If DY_TMP.dy_SendungsId IsNot Nothing AndAlso DY_TMP.dy_SendungsId > 0 Then + GLO_SND = New VERAG_PROG_ALLGEMEIN.cSendungen(DY_TMP.dy_SendungsId) + End If + + If DY_TMP.dy_AvisoId IsNot Nothing AndAlso DY_TMP.dy_AvisoId > 0 Then + GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(DY_TMP.dy_AvisoId) + End If + + ' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & NCTS_TMP.ncts_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL") - + Dim GRN = "" NCTS_TMP.LOAD_Sicherheitsangaben() If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then - Dim GRN = NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN - - Dim destFile = "" - Dim filePath = "" - Dim UniqueId = "" - - ' --> FTP Bereitstellung - Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing - - Dim FTP_Path = "" - Dim CooName = "" - Dim vorsystem = "DY" - If getPathsByGRN(GRN, FTP_Path, CooName) Then - NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId) - If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT, vorsystem, checkAlreadyProvided) Then - If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then - frmStartOptions.copyFile(filePath, FTP_Path, destFile) - If IO.File.Exists(destFile) Then insertFTPLOG(destFile, CooName, NCTS_VERAG_OUT, vorsystem) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyFileFTP") - End If - End If - End If - - - 'Dim destFile = "" - 'Dim filePath = "" - 'Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing - '' --> FTP Bereitstellung - 'Select Case GRN - ' Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" - ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath) - ' If filePath = "" Then Return False - ' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile) - ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP") - ' Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520" - ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath) - ' If filePath = "" Then Return False - ' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile) - ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP") - ' Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG - ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath) - ' If filePath = "" Then Return False - ' frmStartOptions.copyFile(filePath, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile) - ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP") - 'End Select + GRN = NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN End If - Return True + + Dim destFile = "" + Dim filePath = "" + Dim UniqueId = "" + ' --> FTP Bereitstellung + ' Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing + + Dim found As Boolean = False + Dim vorsystem = "DY" + Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects) + + If getFTP_Paths(GRN, IF_Obj) Then + + For Each o In IF_Obj + Select Case o.CooName + Case "EKOL" + Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY_V2_0_1(NCTS_TMP, DY_TMP, UniqueId) + copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) + Case Else + Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId) + copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) + End Select + Next + End If + + + 'If getFTP_Paths(GRN, IF_Obj) Then + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId) + ' copyNCTSToFTP(NCTS_VERAG_OUT, IF_Obj, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided) + 'End If + + 'Dim vorsystem = "DY" + 'Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects) + 'If getFTP_Paths(GRN, IF_Obj) Then + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, UniqueId) + ' For Each o In IF_Obj + ' If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT, vorsystem, checkAlreadyProvided) Then + ' If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then + ' frmStartOptions.copyFile(filePath, o.FTP_Path, destFile) + ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, o.CooName, NCTS_VERAG_OUT, vorsystem) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyFileFTP") + ' End If + ' End If + ' Next + 'End If + + + 'Dim destFile = "" + 'Dim filePath = "" + 'Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing + '' --> FTP Bereitstellung + 'Select Case GRN + ' Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath) + ' If filePath = "" Then Return False + ' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile) + ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP") + ' Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520" + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath) + ' If filePath = "" Then Return False + ' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile) + ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP") + ' Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP, DY_TMP, filePath) + ' If filePath = "" Then Return False + ' frmStartOptions.copyFile(filePath, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile) + ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.ncts_ObjectName, "", "copyFileFTP") + 'End Select + + Return found Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name) Return False End Try End Function - Shared Function copyFileFTP_VERAGncts_TC_ByBezugsNr(BezugsNr As String) As Boolean + Shared Function copyFileFTP_VERAGncts_TC_ByBezugsNr(BezugsNr As String, ISett As cVERAG_Interface_Settings) As Boolean + cVERAG_Interface_Settings = ISett Dim NCTS_TMP = TELOTEC_Worker.cTelotec_Anmeldung.LOAD_ByBezugsNr(BezugsNr) If NCTS_TMP Is Nothing Then Return False Return copyFileFTP_VERAGncts_TC(NCTS_TMP, False) @@ -123,57 +178,121 @@ Return False End Select + GLO_SND = Nothing + GLO_AVISO = Nothing + GLO_NCTS_TC = NCTS_TMP + + If NCTS_TMP.telanm_SendungsId IsNot Nothing AndAlso NCTS_TMP.telanm_SendungsId > 0 Then + GLO_SND = New VERAG_PROG_ALLGEMEIN.cSendungen(NCTS_TMP.telanm_SendungsId) + End If + + If NCTS_TMP.telanm_AvisoId IsNot Nothing AndAlso NCTS_TMP.telanm_AvisoId > 0 Then + GLO_AVISO = VERAG_PROG_ALLGEMEIN.cAviso.getAvisoById(NCTS_TMP.telanm_AvisoId) + End If + ' Dim filePath = SQL.getValueTxtBySql("select [dySt_pfad] from [tblDakosy_Statusmeldungen] where dySt_BezugsNr='" & NCTS_TMP.ncts_ObjectName & "' and [dySt_status]=5 and [dySt_pfad] is not null ", "FMZOLL") ' NCTS_TMP.LOAD_Sicherheitsangaben() + Dim GRN = "" If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then - Dim GRN = NCTS_TMP.SICHERHEIT(0).GRN - Dim destFile = "" - Dim filePath = "" - Dim UniqueId = "" - - ' --> FTP Bereitstellung - Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing - Dim FTP_Path = "" - Dim CooName = "" - Dim vorsystem = "TC" - If getPathsByGRN(GRN, FTP_Path, CooName) Then - NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, UniqueId) - If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT, vorsystem, checkAlreadyProvided) Then - If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then - frmStartOptions.copyFile(filePath, FTP_Path, destFile) - If IO.File.Exists(destFile) Then insertFTPLOG(destFile, CooName, NCTS_VERAG_OUT, vorsystem) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyFileFTP") - End If - End If - End If - - - 'Select Case GRN - ' Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" - ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath) - ' If filePath = "" Then Return False - ' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile) - ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP") - ' Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520" - ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath) - ' If filePath = "" Then Return False - ' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile) - ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP") - ' Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG - ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath) - ' If filePath = "" Then Return False - ' frmStartOptions.copyFile(filePath, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile) - ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP") - 'End Select + GRN = NCTS_TMP.SICHERHEIT(0).GRN End If - Return True + Dim destFile = "" + Dim filePath = "" + Dim UniqueId = "" + + ' --> FTP Bereitstellung + 'Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing + Dim found As Boolean = False + Dim vorsystem = "TC" + + Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects) + If getFTP_Paths(GRN, IF_Obj) Then + For Each o In IF_Obj + Select Case o.CooName + Case "EKOL" + Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC_V2_0_1(NCTS_TMP, UniqueId) + copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) + Case Else + Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, UniqueId) + copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) + End Select + Next + End If + + 'If getFTP_Paths(GRN, IF_Obj) Then + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, UniqueId) + ' copyNCTSToFTP(NCTS_VERAG_OUT, IF_Obj, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided) + 'End If + + + 'Select Case GRN + ' Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath) + ' If filePath = "" Then Return False + ' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\TOBB\OUT\", destFile) + ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "TOBB", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP") + ' Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520" + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath) + ' If filePath = "" Then Return False + ' frmStartOptions.copyFile(filePath, "\\ftps.verag.ag\FTP\OREGON\OUT\", destFile) + ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "OREGON", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP") + ' Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP, filePath) + ' If filePath = "" Then Return False + ' frmStartOptions.copyFile(filePath, "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", destFile) + ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, "VERAG", NCTS_VERAG_OUT) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & NCTS_TMP.telanm_BezugsNr, "", "copyFileFTP") + 'End Select + + Return found Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name) Return False End Try End Function - Shared Function copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(LRN As String) As Boolean + 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 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) + found = True + Else + Try + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP",,,,, NCTS_VERAG_OUT.ProcessData.ReferenzNumber) + Catch + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP") + End Try + End If + End If + End If + + 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 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) + found = True + Else + Try + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP",,,,, NCTS_VERAG_OUT.ProcessData.ReferenzNumber) + Catch + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile, "", "copyNCTSToFTP") + End Try + End If + End If + End If + + End Sub + + + + Shared Function copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(LRN As String, ISett As cVERAG_Interface_Settings) As Boolean + cVERAG_Interface_Settings = ISett Dim AnmId = SQL.getValueTxtBySql("SELECT TOP 1 AnmId FROM zsAnmRefs WHERE (VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL") If AnmId = "" Then Return False Return copyFileFTP_VERAGncts_EZOLL(AnmId, False) @@ -193,6 +312,12 @@ If dEZOLL.Rows.Count <= 0 Then Return False 'If NCTS_TMP.telanm_firma.ToString = "DURMAZ" Then Return False + + + GLO_SND = Nothing + GLO_AVISO = Nothing + + LRN = dEZOLL.Rows(0)("LRN") Select Case SQL.getValueTxtBySql("SELECT TOP 1 DecTy FROM zsAnmHea WHERE (VorgangID = 'AV') AND (AnmId = '" & AnmId & "')", "EZOLL") Case "T1", "T2", "T2L", "T-" @@ -207,53 +332,111 @@ Dim UniqueId = "" ' --> FTP Bereitstellung - Dim NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts = Nothing - - Dim FTP_Path = "" - Dim CooName = "" + Dim found As Boolean = False Dim vorsystem = "DHF" - If getPathsByGRN(GRN, FTP_Path, CooName) Then - NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmId, UniqueId) - If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT, vorsystem, checkAlreadyProvided) Then - If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then - frmStartOptions.copyFile(filePath, FTP_Path, destFile) - If IO.File.Exists(destFile) Then insertFTPLOG(destFile, CooName, NCTS_VERAG_OUT, vorsystem) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & LRN, "", "copyFileFTP") - End If - End If + Dim IF_Obj As New List(Of cVERAG_InterfaceSharedObjects) + If getFTP_Paths(GRN, IF_Obj) Then + For Each o In IF_Obj + Select Case o.CooName + Case "EKOL" + Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_1(AnmId, UniqueId) + copyNCTSToFTP_V2_0_1(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) + Case Else + Dim NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmId, UniqueId) + copyNCTSToFTP(NCTS_VERAG_OUT, o, vorsystem, filePath, destFile, UniqueId, checkAlreadyProvided, found) + End Select + Next End If - Return True + + 'If getFTP_Paths(GRN, FTP_Path, CooName) Then + ' NCTS_VERAG_OUT = genVERAG_OUT_NCTS_FromEZOLLByAnmId(AnmId, UniqueId) + ' If NCTS_VERAG_OUT IsNot Nothing AndAlso Not alreadyProvidedInInterface(NCTS_VERAG_OUT, vorsystem, checkAlreadyProvided) Then + ' If genXMLFile(NCTS_VERAG_OUT, filePath, vorsystem, UniqueId) <> "" Then + ' frmStartOptions.copyFile(filePath, FTP_Path, destFile) + ' If IO.File.Exists(destFile) Then insertFTPLOG(destFile, CooName, NCTS_VERAG_OUT, vorsystem) Else VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Datei existiert nicht: " & destFile & vbNewLine & LRN, "", "copyFileFTP") + ' End If + ' End If + 'End If + + Return found Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name) Return False End Try End Function - Shared Function getPathsByGRN(GRN, ByRef FTP_Path, ByRef CooName) As Boolean - Select Case GRN - Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" - FTP_Path = "\\ftps.verag.ag\FTP\TOBB\OUT\" - CooName = "TOBB" - Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520" - FTP_Path = "\\ftps.verag.ag\FTP\OREGON\OUT\" - CooName = "OREGON" - Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG - FTP_Path = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\" - CooName = "VERAG" - Case "16AT520000G000VA6" 'IMEX - FTP_Path = "\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\IMEX\" - CooName = "IMEX" - Case Else - Return False - End Select - Return True + + Shared Function getFTP_Paths(GRN As String, ByRef IF_Obj As List(Of cVERAG_InterfaceSharedObjects)) As Boolean + IF_Obj = New List(Of cVERAG_InterfaceSharedObjects) + Try + + Select Case GRN + Case "15TR0004000020917", "12TR0004000004665", "17TR0004000032349", "17TR0004000029518" + If cVERAG_Interface_Settings.acticeInterface_TOBB Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TOBB\OUT\", "TOBB")) + Case "18DE0000000073276", "19DE0000000075520", "18DE0000000075520" + If cVERAG_Interface_Settings.acticeInterface_OREGON Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\OREGON\OUT\", "OREGON")) + Case "17DE0000000071678", "05AT510000G000FP7" 'VERAG + If cVERAG_Interface_Settings.acticeInterface_VERAG Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\FTP\VERAG\", "VERAG")) + Case "16AT520000G000VA6" 'IMEX + If cVERAG_Interface_Settings.acticeInterface_IMEX Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\192.168.0.91\Datenarchiv\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_TEST AndAlso isFTP_TEST_NCTS() Then IF_Obj.Add(New cVERAG_InterfaceSharedObjects("\\ftps.verag.ag\FTP\TEST\OUT\", "TEST")) + + Return True + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return False + End Try End Function - Shared Function alreadyProvidedInInterface(NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, vorsystem As String, Optional checkAlreadyProvided As Boolean = True) As Boolean + + Shared Function isFTP_EKOL_NCTS() As Boolean + Try + If GLO_AVISO IsNot Nothing Then ' FRÄCHTER,AVISIERER + If GLO_AVISO.Frächter_KdNr > 0 Then + Select Case GLO_AVISO.Frächter_KdNr + Case 724284, 717845, 709869, 629246, 100041, 609759, 703729, 711217 'Zukunft: Kundenstamm--> NCTS_OUT_Partnersystem = "EKOL" + Return True + End Select + Select Case GLO_AVISO.Auftraggeber_KdNr + Case 724284, 717845, 709869, 629246, 100041, 609759, 703729, 711217 + Return True + End Select + End If + + If GLO_AVISO.Frächter.ToUpper.StartsWith("EKOL") Then Return True + If GLO_AVISO.Auftraggeber.ToUpper.StartsWith("EKOL") Then Return True + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + + Shared Function isFTP_TEST_NCTS() As Boolean + Try + If GLO_AVISO IsNot Nothing Then ' AndAlso GLO_AVISO.Frächter_KdNr > 0 Then ' FRÄCHTER,AVISIERER + If GLO_AVISO.Frächter.ToUpper.StartsWith("IBRAH") Then Return True + If GLO_AVISO.Auftraggeber.ToUpper.StartsWith("IBRAH") Then Return True + End If + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return False + End Function + + 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]='" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "' AND [ftp_art]='" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "' AND [ftp_status]='" & NCTS_VERAG_OUT.ProcessData.Status & "' AND [ftp_vorsystem]='" & vorsystem & "' ", "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 Return False End If Catch ex As Exception @@ -271,12 +454,46 @@ End If If VERAG_NCTS IsNot Nothing Then VERAG_NCTS.SaveToFile(XMLFilePath) + removeTypeFromXML(XMLFilePath) ' Type-Attribute entfernen End If Catch ex As Exception VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) End Try Return XMLFilePath End Function + + Shared Function genXMLFile_V2_0_1(VERAG_NCTS As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts, ByRef XMLFilePath As String, Code As String, UniqueId As String) As String + Try + If XMLFilePath = "" Then + Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\" & Code & "\" & Now.Year & "\" & Now.ToShortDateString & "\" + If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir) + XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_" & Code & "_" & UniqueId & ".xml" + End If + If VERAG_NCTS IsNot Nothing Then + VERAG_NCTS.SaveToFile(XMLFilePath) + removeTypeFromXML(XMLFilePath) ' Type-Attribute entfernen + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return XMLFilePath + End Function + + Shared Function removeTypeFromXML(XMLFilePath) As String + Try + Dim fileContents = IO.File.ReadAllText(XMLFilePath) + fileContents = fileContents.Replace(" xsi:type=""xsd:string""", "") + fileContents = fileContents.Replace(" xsi:type=""xsd:dateTime""", "") + fileContents = fileContents.Replace(" xsi:type=""xsd:decimal""", "") + fileContents = fileContents.Replace(" xsi:type=""xsd:int""", "") + IO.File.WriteAllText(XMLFilePath, fileContents) + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + Return XMLFilePath + End Function + + Shared Function genVERAG_OUT_NCTS_FromDAKOSY(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Try @@ -416,6 +633,162 @@ End Function + + + Shared Function genVERAG_OUT_NCTS_FromDAKOSY_V2_0_1(NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts + Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts + Try + If DY_TMP Is Nothing Then Return Nothing + If NCTS_TMP Is Nothing Then Return Nothing + If NCTS_TMP.ncts_ObjectName Is Nothing Then Return Nothing + NCTS_TMP.LOAD_Warenposition() + + VERAG_NCTS.Version = "2.0.1" ' Automaitsch, weil default ' doch nicht? + + If NCTS_TMP.ncts_firma <> "" Then + VERAG_NCTS.Company = NCTS_TMP.ncts_firma + Else + VERAG_NCTS.Company = "VERAG" + End If + VERAG_NCTS.Department = NCTS_TMP.ncts_niederlassung + + 'VERAG_NCTS.InternalReference.OfficeCode = If( + 'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung + + Select Case DY_TMP.dy_Status + Case < 50 + VERAG_NCTS.ProcessData.Status = 0 + Case 50, 53 + VERAG_NCTS.ProcessData.Status = 50 + Case 60 + VERAG_NCTS.ProcessData.Status = 60 + End Select + + VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.ncts_Trans_DatumZeit + + VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.ncts_MRN, "") + VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.ncts_ObjectName, "") + VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.ncts_ArtAnmeldung, "") + + If IsDate(If(NCTS_TMP.ncts_Wiedergestellungsdatum, "")) Then VERAG_NCTS.NCTS_Data.DatDeterminationLimit = CDate(If(NCTS_TMP.ncts_Wiedergestellungsdatum, "")) + 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, "") + + '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.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, "") + + 'Empfänger + VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ncts_Empfaenger_Name, "") + 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.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, "") + + 'Frächter + If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then + Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr) + Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr) + VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "") + 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.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, "") + VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr + Else + VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ncts_SumA_Befoerderer_Name, "") + 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.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, "") + End If + + If NCTS_TMP.ncts_SICHERHEITSANGABEN IsNot Nothing AndAlso NCTS_TMP.ncts_SICHERHEITSANGABEN.Count > 0 Then + VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_GRN, "") + VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.ncts_SICHERHEITSANGABEN(0).nctsSA_AbgabenBetrag, "0") + End If + + VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.ncts_GesamtRohmasse, "0") + Dim cntPos = 1 + If NCTS_TMP.ncts_WARENPOS IsNot Nothing Then + For Each POS In NCTS_TMP.ncts_WARENPOS + Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsNCTS_DataPosition + V_POS.PosNr = cntPos + Dim pkGes = 0 + Dim pkArt = "" + If POS.nctsWP_PACKSTUECKE IsNot Nothing Then + For Each PK In POS.nctsWP_PACKSTUECKE + If PK.nctsWpPk_PackstueckeAnzahl IsNot Nothing Then pkGes += PK.nctsWpPk_PackstueckeAnzahl + If PK.nctsWpPk_Verpackungsart IsNot Nothing Then pkArt = PK.nctsWpPk_Verpackungsart + Next + End If + V_POS.Quantity = pkGes + V_POS.Packaging = pkArt + V_POS.GrossWeight = POS.nctsWP_Rohmasse + V_POS.GoodsDescription = POS.nctsWP_Warenbezeichnung + + VERAG_NCTS.NCTS_Data.Position.Add(V_POS) + cntPos += 1 + Next + End If + + If False Then + Try + If DY_TMP.dy_VBD_dsId IsNot Nothing AndAlso IsNumeric(DY_TMP.dy_VBD_dsId) Then + Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(DY_TMP.dy_VBD_dsId) + Dim Path = DS.GET_TOP1_PATH() + If Path <> "" And IO.File.Exists(Path) Then + Dim ATT As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsAttachment + ATT.DocumentType = VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsAttachmentDocumentType.NCTS + ATT.FileType = "PDF" + ATT.Name = "NCTS_VBD_" & If(VERAG_NCTS.ProcessData.ProcedureCode, "") & ".pdf" + Convert.ToBase64String(System.IO.File.ReadAllBytes(Path)) + 'ATT.base64BinaryStream = Convert.ToBase64CharArray(System.IO.File.ReadAllBytes(Path)) + ATT.base64BinaryStream = System.Text.Encoding.UTF8.GetBytes(System.Convert.ToBase64String(System.IO.File.ReadAllBytes(Path))) + VERAG_NCTS.Attachments.Add(ATT) + End If + End If + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name) + End Try + + End If + 'If XMLFilePath = "" Then + ' Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\DY\" & Now.Year & "\" & Now.ToShortDateString & "\" + ' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir) + ' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_DY_" & DY_TMP.dy_Id & ".xml" + 'End If + + UniqueId = DY_TMP.dy_Id + 'VERAG_NCTS.SaveToFile(XMLFilePath) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.ncts_ObjectName, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return Nothing + End Try + Return VERAG_NCTS + + End Function + + Shared Function genVERAG_OUT_NCTS_FromEZOLLByLRN(LRN As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & @@ -634,6 +1007,223 @@ End Function + Shared Function genVERAG_OUT_NCTS_FromEZOLLByAnmId_V2_0_1(AnmID As String, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts + Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts + Dim LRN = "" + Try + + VERAG_NCTS.Version = "2.0.1" ' Automaitsch, weil default ' doch nicht? + + Dim Bestimmungszollstelle = "" + Dim Bürgschaft = "" + + Dim dEZOLL As DataTable = SQL.loadDgvBySql("SELECT LizenzNr, OperatorID, VorgangID, AnmID, GeaendertAm, GeaendertVon, CRN, LRN" & + " FROM zsAnmRefs" & + " WHERE (VorgangID = 'AV') AND (AnmID = '" & AnmID & "')" & + " ORDER BY GeaendertAm DESC", "EZOLL") + + If dEZOLL Is Nothing Then Return Nothing + If dEZOLL.Rows.Count = 0 Then Return Nothing + + 'TextBox2.ForeColor = Color.Green + Dim r As DataRow = dEZOLL.Rows(0) + + LRN = r.Item("LRN") + + If Not SQL.IsNull(r.Item("OperatorID")) Then + Select Case r.Item("OperatorID") + Case "1" + VERAG_NCTS.Company = "VERAG" + VERAG_NCTS.Department = "SUB" + Case "2" + VERAG_NCTS.Company = "VERAG" + VERAG_NCTS.Department = "SBG" + + Case "3" + VERAG_NCTS.Company = "VERAG" + VERAG_NCTS.Department = "NKD" + Case "4", "5" + VERAG_NCTS.Company = "ATILLA" + VERAG_NCTS.Department = "SUB" + Case "6" + If LRN.StartsWith("4801") Then + VERAG_NCTS.Company = "ATILLA" + Else + VERAG_NCTS.Company = "VERAG" + End If + VERAG_NCTS.Department = "SUB" + Case "8" + VERAG_NCTS.Company = "DURMAZ" + VERAG_NCTS.Department = "SBG" + Return Nothing + Case Else + VERAG_NCTS.Company = "ATILLA" + VERAG_NCTS.Department = "SUB" + + End Select + End If + + + If r.Item("GeaendertAm") IsNot DBNull.Value AndAlso IsDate(r.Item("GeaendertAm")) Then + VERAG_NCTS.ProcessData.TransactionDate = CDate(r.Item("GeaendertAm")) 'default + Else + VERAG_NCTS.ProcessData.TransactionDate = Now.ToShortDateString + End If + + VERAG_NCTS.ProcessData.MRN = If(r.Item("CRN") IsNot DBNull.Value, r.Item("CRN"), "") + VERAG_NCTS.ProcessData.ReferenzNumber = LRN + + Select Case (SQL.getValueTxtBySql("SELECT isnull(ErledigungsTypID,'') FROM zsAnmDHFRefs WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL")) + Case "F" + VERAG_NCTS.ProcessData.Status = 50 + Case "FB" + VERAG_NCTS.ProcessData.Status = 60 + Case Else + VERAG_NCTS.ProcessData.Status = 0 + End Select + + Dim DTzsAnmHea As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmHea WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") + If DTzsAnmHea.Rows().Count > 0 Then + Dim rDTzsAnmHea = DTzsAnmHea.Rows(0) + VERAG_NCTS.ProcessData.ProcedureCode = rDTzsAnmHea("DecTy") + VERAG_NCTS.NCTS_Data.SumGrossWeight = rDTzsAnmHea("TotGross") 'If(NCTS_TMP.ncts_GesamtRohmasse, "0") + VERAG_NCTS.ProcessData.TransactionDate = CDate(rDTzsAnmHea("DecDT")) + End If + + + + VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = SQL.isleernothing(SQL.getValueTxtBySql("SELECT Ref FROM zsAnmDepCO WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL")) + VERAG_NCTS.NCTS_Data.DatDeterminationLimit = SQL.isleernothing(SQL.getValueTxtBySql("SELECT DLimit FROM zsAnmCtrlRslt WHERE AnmID=" & AnmID & " ORDER BY GeaendertAm DESC", "EZOLL")) + + 'BestimmungsstelleDienststelle + Dim DTzsAnmDestCo As DataTable = SQL.loadDgvBySql("SELECT Ref FROM zsAnmDestCo WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") + If DTzsAnmDestCo.Rows().Count > 0 Then + If Not SQL.IsNull(DTzsAnmDestCo.Rows(0).Item("ref")) Then VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = DTzsAnmDestCo.Rows(0).Item("ref") + End If + + ' Kennzeichen + Dim DTzsAnmTransp As DataTable = SQL.loadDgvBySql("SELECT DepIdnt FROM zsAnmTransp WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") + If DTzsAnmTransp.Rows().Count > 0 Then + If Not SQL.IsNull(DTzsAnmTransp.Rows(0).Item("DepIdnt")) Then + VERAG_NCTS.NCTS_Data.LicensePlate = DTzsAnmTransp.Rows(0).Item("DepIdnt") + End If + End If + + 'Versender + Dim DTzsAnmSender As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmConorTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") + If DTzsAnmSender.Rows().Count > 0 Then + 'VERAG_NCTS.NCTS_Data.Sender.Name = DTzsAnmSender.Rows(0).Item("Na") + If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmSender.Rows(0).Item("Na") + If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = DTzsAnmSender.Rows(0).Item("Pst") + If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.Street = DTzsAnmSender.Rows(0).Item("Strt") + If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Sender.Adress.City = DTzsAnmSender.Rows(0).Item("Cty") + If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("Ctry")) Then + VERAG_NCTS.NCTS_Data.Sender.Adress.Country = DTzsAnmSender.Rows(0).Item("Ctry") + VERAG_NCTS.NCTS_Data.DepartureCountry = DTzsAnmSender.Rows(0).Item("Ctry") + End If + If Not SQL.IsNull(DTzsAnmSender.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Sender.EORI = DTzsAnmSender.Rows(0).Item("TIN") + 'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") + 'VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") + End If + + + 'Empfänger + Dim DTzsAnmConeeTra As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmConeeTra WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") + If DTzsAnmConeeTra.Rows().Count > 0 Then + If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmConeeTra.Rows(0).Item("Na") + If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = DTzsAnmConeeTra.Rows(0).Item("Pst") + If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = DTzsAnmConeeTra.Rows(0).Item("Strt") + If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Consignee.Adress.City = DTzsAnmConeeTra.Rows(0).Item("Cty") + If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("Ctry")) Then + VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = DTzsAnmConeeTra.Rows(0).Item("Ctry") + VERAG_NCTS.NCTS_Data.DestinationCountry = DTzsAnmConeeTra.Rows(0).Item("Ctry") + End If + If Not SQL.IsNull(DTzsAnmConeeTra.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Consignee.EORI = DTzsAnmConeeTra.Rows(0).Item("TIN") + 'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") + 'VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") + End If + + + 'Frächter + If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then + Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr) + Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr) + VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "") + 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.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, "") + VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr + Else + Dim DTzsAnmCarrier As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmCarrTra] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")", "EZOLL") + If DTzsAnmCarrier.Rows().Count > 0 Then + If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Na")) Then VERAG_NCTS.NCTS_Data.Consignee.Name = DTzsAnmCarrier.Rows(0).Item("Na") + If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Pst")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = DTzsAnmCarrier.Rows(0).Item("Pst") + If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Strt")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = DTzsAnmCarrier.Rows(0).Item("Strt") + If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Cty")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.City = DTzsAnmCarrier.Rows(0).Item("Cty") + If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("Ctry")) Then VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = DTzsAnmCarrier.Rows(0).Item("Ctry") + If Not SQL.IsNull(DTzsAnmCarrier.Rows(0).Item("TIN")) Then VERAG_NCTS.NCTS_Data.Carrier.EORI = DTzsAnmCarrier.Rows(0).Item("TIN") + 'VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") + 'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ncts_Empfaenger_NLNR, "") + End If + End If + + ' Tabelle zsAnmGrteeGrteeRef lesen. + Dim DTzsAnmGrteeGrteeRef As DataTable = SQL.loadDgvBySql("SELECT GRN, GVal" & + " FROM zsAnmGrteeGrteeRef" & + " WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ")" & + " ORDER BY GrteeID, GrteeRefID", "EZOLL") + + If DTzsAnmGrteeGrteeRef.Rows().Count > 0 Then + VERAG_NCTS.NCTS_Data.Guarantee.Amount = 0 + For Each DTzsAnmGrteeGrteeRef_row In DTzsAnmGrteeGrteeRef.Rows() + If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GRN")) Then VERAG_NCTS.NCTS_Data.Guarantee.GRN = DTzsAnmGrteeGrteeRef_row.item("GRN") + If Not SQL.IsNull(DTzsAnmGrteeGrteeRef_row.item("GVal")) Then VERAG_NCTS.NCTS_Data.Guarantee.Amount += DTzsAnmGrteeGrteeRef_row.item("GVal") + Next + End If + + 'POSITIONEN + Dim cntPos = 1 + Dim DTzsAnmGdsitem As DataTable = SQL.loadDgvBySql("SELECT * FROM zsAnmGdsitem WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") ORDER BY GdsItemID", "EZOLL") + If DTzsAnmGdsitem.Rows().Count > 0 Then + For Each DTzsAnmGdsitem_row In DTzsAnmGdsitem.Rows() + Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsNCTS_DataPosition + V_POS.PosNr = cntPos + Dim pkGes = 0 + Dim pkArt = "" + + Dim DTzsAnmGdsitemPk As DataTable = SQL.loadDgvBySql("SELECT * FROM [zsAnmGdsItemPack] WHERE (LizenzNr = '" & r.Item("LizenzNr") & "') And (OperatorID = " & r.Item("OperatorID") & ") And (VorgangID = '" & r.Item("VorgangID") & "') And (AnmID = " & AnmID & ") AND GdsItemID='" & DTzsAnmGdsitem_row.Item("GdsItemID") & "' ORDER BY GdsItemID", "EZOLL") + If DTzsAnmGdsitemPk.Rows().Count > 0 Then + For Each DTzsAnmGdsitemPk_row In DTzsAnmGdsitemPk.Rows() + If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Kind")) Then pkArt = DTzsAnmGdsitemPk_row.item("Kind") + If Not SQL.IsNull(DTzsAnmGdsitemPk_row.item("Nr")) Then pkGes += DTzsAnmGdsitemPk_row.item("Nr") + Next + End If + + V_POS.Quantity = pkGes + V_POS.Packaging = pkArt + If Not SQL.IsNull(DTzsAnmGdsitem_row.item("Gross")) Then V_POS.GrossWeight = DTzsAnmGdsitem_row.item("Gross") + + V_POS.GoodsDescription = DTzsAnmGdsitem_row.item("GdsDes") + + VERAG_NCTS.NCTS_Data.Position.Add(V_POS) + cntPos += 1 + Next + End If + + + UniqueId = AnmID + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & LRN, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return Nothing + End Try + Return VERAG_NCTS + + End Function + Shared Function getGRTY_fromEZOLL(LRN As String) As String Try Return SQL.getValueTxtBySql("SELECT TOP 1 GRN FROM zsAnmRefs inner join zsAnmGrteeGrteeRef on zsAnmGrteeGrteeRef.AnmID=zsAnmRefs.AnmID WHERE (zsAnmRefs.VorgangID = 'AV') AND (LRN = '" & LRN & "')", "EZOLL") @@ -643,6 +1233,145 @@ Return "" End Function + + + Shared Function genVERAG_OUT_NCTS_FromTELOTEC_V2_0_1(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts + Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_ncts + Try + If NCTS_TMP Is Nothing Then Return Nothing + If NCTS_TMP.telanm_BezugsNr Is Nothing Then Return Nothing + If NCTS_TMP.Hea_DecTy Is Nothing Then Return Nothing + If NCTS_TMP.Hea_DecTy <> "T1" And NCTS_TMP.Hea_DecTy <> "T2" And NCTS_TMP.Hea_DecTy <> "T2L" And NCTS_TMP.Hea_DecTy <> "T-" Then Return Nothing + + VERAG_NCTS.Version = "2.0.1" ' Automaitsch, weil default ' doch nicht? + + If NCTS_TMP.telanm_firma <> "" Then + VERAG_NCTS.Company = NCTS_TMP.telanm_firma + Else + VERAG_NCTS.Company = "IMEX" + End If + VERAG_NCTS.Department = NCTS_TMP.telanm_niederlassung + + + 'VERAG_NCTS.InternalReference.OfficeCode = If( + 'VERAG_NCTS.InternalReference.PositionNumber = NCTS_TMP.ncts_niederlassung + Select Case NCTS_TMP.telanm_Status + Case < 50 + VERAG_NCTS.ProcessData.Status = 0 + Case 50, 53 + VERAG_NCTS.ProcessData.Status = 50 + Case 60 + VERAG_NCTS.ProcessData.Status = 60 + End Select + + VERAG_NCTS.ProcessData.TransactionDate = NCTS_TMP.dec_CreateDate + + VERAG_NCTS.ProcessData.MRN = If(NCTS_TMP.telanm_CRN, "") + VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.telanm_BezugsNr, "") + VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.telanm_ART, "") + + If NCTS_TMP.CtrlRslt_DLimit IsNot Nothing AndAlso NCTS_TMP.CtrlRslt_DLimit.ToString <> "" Then + VERAG_NCTS.NCTS_Data.DatDeterminationLimit = CDate(NCTS_TMP.CtrlRslt_DLimit) + End If + VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.Transp_DepIdnt, "") + VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.DepCO_Ref, "") + VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.DestCO_Ref, "") + VERAG_NCTS.NCTS_Data.DepartureCountry = NCTS_TMP.Locs_Disp + VERAG_NCTS.NCTS_Data.DestinationCountry = If(NCTS_TMP.Locs_Dest, "") + + 'Versender + VERAG_NCTS.NCTS_Data.Sender.Name = If(NCTS_TMP.ConorTra_Na, "") + VERAG_NCTS.NCTS_Data.Sender.EORI = If(NCTS_TMP.ConorTra_TIN, "") + 'VERAG_NCTS.NCTS_Data.Sender.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "") + VERAG_NCTS.NCTS_Data.Sender.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "") + VERAG_NCTS.NCTS_Data.Sender.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "") + VERAG_NCTS.NCTS_Data.Sender.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "") + VERAG_NCTS.NCTS_Data.Sender.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "") + VERAG_NCTS.NCTS_Data.Sender.Adress.City = If(NCTS_TMP.ConorTra_Cty, "") + + 'Empfänger + VERAG_NCTS.NCTS_Data.Consignee.Name = If(NCTS_TMP.ConeeTra_Na, "") + VERAG_NCTS.NCTS_Data.Consignee.EORI = If(NCTS_TMP.ConeeTra_TIN, "") + 'VERAG_NCTS.NCTS_Data.Consignee.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "") + VERAG_NCTS.NCTS_Data.Consignee.UID_Nr = If(NCTS_TMP.ConeeTra_UIDCtry, "") & If(NCTS_TMP.ConeeTra_UID, "") + VERAG_NCTS.NCTS_Data.Consignee.Adress.Country = If(NCTS_TMP.ConeeTra_Ctry, "") + VERAG_NCTS.NCTS_Data.Consignee.Adress.Postcode = If(NCTS_TMP.ConeeTra_Pst, "") + VERAG_NCTS.NCTS_Data.Consignee.Adress.Street = If(NCTS_TMP.ConeeTra_Strt, "") + VERAG_NCTS.NCTS_Data.Consignee.Adress.City = If(NCTS_TMP.ConeeTra_Cty, "") + + ''Frächter + If GLO_AVISO IsNot Nothing AndAlso GLO_AVISO.Frächter_KdNr > 0 Then + Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(GLO_AVISO.Frächter_KdNr) + Dim KD = New VERAG_PROG_ALLGEMEIN.cKunde(GLO_AVISO.Frächter_KdNr) + VERAG_NCTS.NCTS_Data.Carrier.Name = If(AD.Name_1, "") + 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.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, "") + VERAG_NCTS.NCTS_Data.Carrier.CustomerCode = GLO_AVISO.Frächter_KdNr + Else + + 'VERAG_NCTS.NCTS_Data.Carrier.Name = If(NCTS_TMP.ConorTra_Na, "") + 'VERAG_NCTS.NCTS_Data.Carrier.EORI = If(NCTS_TMP.ConorTra_TIN, "") + ''VERAG_NCTS.NCTS_Data.Carrier.EORI_NL = If(NCTS_TMP.ncts_Versender_NLNR, "") + 'VERAG_NCTS.NCTS_Data.Carrier.UID_Nr = If(NCTS_TMP.ConorTra_UIDCtry, "") & If(NCTS_TMP.ConorTra_UID, "") + 'VERAG_NCTS.NCTS_Data.Carrier.Adress.Country = If(NCTS_TMP.ConorTra_Ctry, "") + 'VERAG_NCTS.NCTS_Data.Carrier.Adress.Postcode = If(NCTS_TMP.ConorTra_Pst, "") + 'VERAG_NCTS.NCTS_Data.Carrier.Adress.Street = If(NCTS_TMP.ConorTra_Strt, "") + 'VERAG_NCTS.NCTS_Data.Carrier.Adress.City = If(NCTS_TMP.ConorTra_Cty, "") + End If + + If NCTS_TMP.SICHERHEIT IsNot Nothing AndAlso NCTS_TMP.SICHERHEIT.Count > 0 Then + VERAG_NCTS.NCTS_Data.Guarantee.GRN = If(NCTS_TMP.SICHERHEIT(0).GRN, "") + VERAG_NCTS.NCTS_Data.Guarantee.Amount = If(NCTS_TMP.SICHERHEIT(0).GVal, "0") + End If + + VERAG_NCTS.NCTS_Data.SumGrossWeight = If(NCTS_TMP.Hea_TotGross, "0") + Dim cntPos = 1 + If NCTS_TMP.POSITIONSDATEN IsNot Nothing Then + For Each POS In NCTS_TMP.POSITIONSDATEN + Dim V_POS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS_V2_0_1.VERAG_out_nctsNCTS_DataPosition + V_POS.PosNr = cntPos + Dim pkGes = 0 + Dim pkArt = "" + If POS.PACKSTUECKE IsNot Nothing Then + For Each PK In POS.PACKSTUECKE + If PK.Pack_Nr IsNot Nothing Then pkGes += PK.Pack_Nr 'verpackt + If PK.Pack_Piec IsNot Nothing Then pkGes += PK.Pack_Piec 'unverpackt + If PK.Pack_Kind IsNot Nothing Then pkArt = PK.Pack_Kind + Next + End If + V_POS.Quantity = pkGes + V_POS.Packaging = pkArt + V_POS.GrossWeight = POS.Item_Gross + V_POS.GoodsDescription = POS.Item_GdsDes + + VERAG_NCTS.NCTS_Data.Position.Add(V_POS) + cntPos += 1 + Next + End If + UniqueId = NCTS_TMP.telanm_id + + 'If XMLFilePath = "" Then + ' Dim dir = "\\192.168.0.91\Datenarchiv\ZOLL_SCHNITTSTELLEN\VERAG\NCTS_OUT\TC\" & Now.Year & "\" & Now.ToShortDateString & "\" + ' If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir) + ' XMLFilePath = dir & "VERAG_NCTS_OUT_" & Now.ToString("ddMMyyyHHmmss") & "_TC_" & NCTS_TMP.telanm_id & ".xml" + 'End If + + + 'VERAG_NCTS.SaveToFile(XMLFilePath) + + Catch ex As Exception + VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace & vbNewLine & vbNewLine & "BezugsNr: " & NCTS_TMP.telanm_BezugsNr, System.Reflection.MethodInfo.GetCurrentMethod.Name) + Return Nothing + End Try + Return VERAG_NCTS + + End Function + Shared Function genVERAG_OUT_NCTS_FromTELOTEC(NCTS_TMP As TELOTEC_Worker.cTelotec_Anmeldung, ByRef UniqueId As String) As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Dim VERAG_NCTS As New VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts Try @@ -678,7 +1407,9 @@ VERAG_NCTS.ProcessData.ReferenzNumber = If(NCTS_TMP.telanm_BezugsNr, "") VERAG_NCTS.ProcessData.ProcedureCode = If(NCTS_TMP.telanm_ART, "") - VERAG_NCTS.NCTS_Data.DatDeterminationLimit = If(NCTS_TMP.CtrlRslt_DLimit, "") + If NCTS_TMP.CtrlRslt_DLimit IsNot Nothing AndAlso NCTS_TMP.CtrlRslt_DLimit.ToString <> "" Then + VERAG_NCTS.NCTS_Data.DatDeterminationLimit = CDate(NCTS_TMP.CtrlRslt_DLimit) + End If VERAG_NCTS.NCTS_Data.LicensePlate = If(NCTS_TMP.Transp_DepIdnt, "") VERAG_NCTS.NCTS_Data.DepartureCustomsOffice = If(NCTS_TMP.DepCO_Ref, "") VERAG_NCTS.NCTS_Data.DestinationCustomsOffice = If(NCTS_TMP.DestCO_Ref, "") @@ -764,8 +1495,8 @@ End Function - Shared Function insertFTPLOG(filePath As String, user As String, NCTS_VERAG_OUT As VERAG_PROG_ALLGEMEIN.VERAG_OUT_NCTS.VERAG_out_ncts, 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 & "','" & NCTS_VERAG_OUT.ProcessData.ReferenzNumber & "','" & NCTS_VERAG_OUT.ProcessData.ProcedureCode & "','" & NCTS_VERAG_OUT.ProcessData.Status & "','" & vorsystem & "')", "FMZOLL") + 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") End Function @@ -775,3 +1506,28 @@ End Class + + +Public Class cVERAG_InterfaceSharedObjects + + Property FTP_Path As String = "" + Property CooName As String = "" + + Sub New(FTP_Path, CooName) + Me.FTP_Path = FTP_Path + Me.CooName = CooName + End Sub + +End Class + + +Public Class cVERAG_Interface_Settings + + Property acticeInterface_OREGON As Boolean = True + Property acticeInterface_TOBB As Boolean = True + Property acticeInterface_EKOL As Boolean = True + Property acticeInterface_TEST As Boolean = True + Property acticeInterface_VERAG As Boolean = True + Property acticeInterface_IMEX As Boolean = True + +End Class diff --git a/initATLASAufschubkonten/cWorker_NCTS.vb b/initATLASAufschubkonten/cWorker_NCTS.vb index 8be307e..616d5c2 100644 --- a/initATLASAufschubkonten/cWorker_NCTS.vb +++ b/initATLASAufschubkonten/cWorker_NCTS.vb @@ -26,7 +26,7 @@ Public Class cWorker_NCTS outputFile.Close() - + Dim AnsprechpTMP_Email = "" Dim DETUDC As DAKOSY_Worker.DETUDC.DETUDC = DAKOSY_Worker.DETUDC.DETUDC.LoadFromFile(p) ' Dim NCTS As New DAKOSY_Worker.cDakosyNCTS @@ -162,26 +162,32 @@ Public Class cWorker_NCTS End If End If If DETUDC.ProcedureOwner.ContactPerson.MailAddress IsNot Nothing Then - Dim AnsprechpTMP_Email = DETUDC.ProcedureOwner.ContactPerson.MailAddress - If AnsprechpTMP_Email.Contains("@imex") Then - NCTS.ncts_firma = "IMEX" - NCTS.ncts_niederlassung = "IMEX" - 'GLOBAL--> EORI - ElseIf AnsprechpTMP_Email.Contains("@ambar") Then - NCTS.ncts_firma = "AMBAR" - NCTS.ncts_niederlassung = "AMBAR" - ElseIf AnsprechpTMP_Email.Contains("atilla@verag.ag") Or AnsprechpTMP_Email.Contains("@atilla") Then - NCTS.ncts_firma = "ATILLA" - NCTS.ncts_niederlassung = "SUB" - ElseIf AnsprechpTMP_Email.Contains("@durmaz") Then - NCTS.ncts_firma = "DURMAZ" - NCTS.ncts_niederlassung = "SBG" - 'GLOBAL--> EORI - ElseIf AnsprechpTMP_Email.Contains("@verag") Then - NCTS.ncts_firma = "VERAG" - ' EZA.eza_niederlassung = "IMEX" - 'GLOBAL--> EORI - End If + AnsprechpTMP_Email = DETUDC.ProcedureOwner.ContactPerson.MailAddress + + + 'If AnsprechpTMP_Email.Contains("@imex") Then + ' NCTS.ncts_firma = "IMEX" + ' NCTS.ncts_niederlassung = "IMEX" + ' 'GLOBAL--> EORI + 'ElseIf AnsprechpTMP_Email.Contains("@ambar") Then + ' NCTS.ncts_firma = "AMBAR" + ' NCTS.ncts_niederlassung = "AMBAR" + 'ElseIf AnsprechpTMP_Email.Contains("atilla@verag.ag") Or AnsprechpTMP_Email.Contains("@atilla") Then + ' NCTS.ncts_firma = "ATILLA" + ' NCTS.ncts_niederlassung = "SUB" + 'ElseIf AnsprechpTMP_Email.Contains("@durmaz") Then + ' NCTS.ncts_firma = "DURMAZ" + ' NCTS.ncts_niederlassung = "SBG" + ' 'GLOBAL--> EORI + 'ElseIf AnsprechpTMP_Email.Contains("@verag") Then + ' NCTS.ncts_firma = "VERAG" + ' ' EZA.eza_niederlassung = "IMEX" + ' 'GLOBAL--> EORI + 'ElseIf AnsprechpTMP_Email.Contains("@unisped") Then + ' NCTS.ncts_firma = "UNISPED" + ' NCTS.ncts_niederlassung = "ATSP" + ' 'GLOBAL--> EORI + 'End If End If End If End If @@ -371,6 +377,8 @@ Public Class cWorker_NCTS End If End If + frmDYNachrichtenVerarbeitung.tryGetFirmaNiederlassung(NCTS.ncts_firma, NCTS.ncts_niederlassung, If(AnsprechpTMP_Email, "").ToString, readNCTS_VersandanmeldungXML) + If If(NCTS.ncts_Status, 0) <= 5 Then NCTS.ncts_Status = DAKOSY_Worker.cDY_Statusliste.S_05 ' If If(NCTS.ncts_Status_KEWILL_Equivalent, 0) <= 5 Then NCTS.ncts_Status_KEWILL_Equivalent = DAKOSY_Worker.cDY_Statusliste.S_05 NCTS.ncts_Status_KEWILL_Equivalent = NCTS.ncts_Status @@ -842,29 +850,34 @@ Public Class cWorker_NCTS For Each l In lines If l.StartsWith("COM+") Then - If l.Contains("@imex") Then - NCTS.ncts_firma = "IMEX" - NCTS.ncts_niederlassung = "IMEX" - 'GLOBAL--> EORI - ElseIf l.Contains("@ambar") Then - NCTS.ncts_firma = "AMBAR" - NCTS.ncts_niederlassung = "AMBAR" + frmDYNachrichtenVerarbeitung.tryGetFirmaNiederlassung(NCTS.ncts_firma, NCTS.ncts_niederlassung, l, "") - ElseIf l.Contains("atilla@verag.ag") Or l.Contains("@atilla") Then - NCTS.ncts_firma = "ATILLA" - NCTS.ncts_niederlassung = "SUB" - ElseIf l.Contains("@durmaz") Then - NCTS.ncts_firma = "DURMAZ" - NCTS.ncts_niederlassung = "SBG" + 'If l.Contains("@imex") Then + ' NCTS.ncts_firma = "IMEX" + ' NCTS.ncts_niederlassung = "IMEX" + ' 'GLOBAL--> EORI + 'ElseIf l.Contains("@ambar") Then + ' NCTS.ncts_firma = "AMBAR" + ' NCTS.ncts_niederlassung = "AMBAR" + + 'ElseIf l.Contains("atilla@verag.ag") Or l.Contains("@atilla") Then + ' NCTS.ncts_firma = "ATILLA" + ' NCTS.ncts_niederlassung = "SUB" + 'ElseIf l.Contains("@durmaz") Then + ' NCTS.ncts_firma = "DURMAZ" + ' NCTS.ncts_niederlassung = "SBG" - 'GLOBAL--> EORI - ElseIf l.Contains("@verag") Then - NCTS.ncts_firma = "VERAG" - ' EZA.eza_niederlassung = "IMEX" - 'GLOBAL--> EORI + ' 'GLOBAL--> EORI + 'ElseIf l.Contains("@verag") Then + ' NCTS.ncts_firma = "VERAG" + ' ' EZA.eza_niederlassung = "IMEX" + ' 'GLOBAL--> EORI - End If + 'ElseIf l.Contains("@unisped") Then + ' NCTS.ncts_firma = "UNISPED" + ' NCTS.ncts_niederlassung = "ATSP" + 'End If End If Next @@ -944,28 +957,35 @@ Public Class cWorker_NCTS If DETBAE.AuthorisedConsignee.ContactPerson.MailAddress IsNot Nothing Then AnsprechpTMP_Email = DETBAE.AuthorisedConsignee.ContactPerson.MailAddress - If AnsprechpTMP_Email.Contains("@imex") Then - NCTS.ncts_firma = "IMEX" - NCTS.ncts_niederlassung = "IMEX" - 'GLOBAL--> EORI - ElseIf AnsprechpTMP_Email.Contains("@ambar") Then - NCTS.ncts_firma = "AMBAR" - NCTS.ncts_niederlassung = "AMBAR" - ElseIf AnsprechpTMP_Email.Contains("atilla@verag.ag") Or AnsprechpTMP_Email.Contains("@atilla") Then - NCTS.ncts_firma = "ATILLA" - NCTS.ncts_niederlassung = "SUB" - ElseIf AnsprechpTMP_Email.Contains("@durmaz") Then - NCTS.ncts_firma = "DURMAZ" - NCTS.ncts_niederlassung = "SBG" - 'GLOBAL--> EORI - ElseIf AnsprechpTMP_Email.Contains("@verag") Then - NCTS.ncts_firma = "VERAG" - ' EZA.eza_niederlassung = "IMEX" - 'GLOBAL--> EORI - End If + + 'If AnsprechpTMP_Email.Contains("@imex") Then + ' NCTS.ncts_firma = "IMEX" + ' NCTS.ncts_niederlassung = "IMEX" + ' 'GLOBAL--> EORI + 'ElseIf AnsprechpTMP_Email.Contains("@ambar") Then + ' NCTS.ncts_firma = "AMBAR" + ' NCTS.ncts_niederlassung = "AMBAR" + 'ElseIf AnsprechpTMP_Email.Contains("atilla@verag.ag") Or AnsprechpTMP_Email.Contains("@atilla") Then + ' NCTS.ncts_firma = "ATILLA" + ' NCTS.ncts_niederlassung = "SUB" + 'ElseIf AnsprechpTMP_Email.Contains("@durmaz") Then + ' NCTS.ncts_firma = "DURMAZ" + ' NCTS.ncts_niederlassung = "SBG" + ' 'GLOBAL--> EORI + 'ElseIf AnsprechpTMP_Email.Contains("@verag") Then + ' NCTS.ncts_firma = "VERAG" + ' ' EZA.eza_niederlassung = "IMEX" + 'ElseIf AnsprechpTMP_Email.Contains("@unisped") Then + ' NCTS.ncts_firma = "UNISPED" + ' NCTS.ncts_niederlassung = "ATSP" + ' 'GLOBAL--> EORIAnsprechpTMP_Email + 'End If End If + + frmDYNachrichtenVerarbeitung.tryGetFirmaNiederlassung(NCTS.ncts_firma, NCTS.ncts_niederlassung, If(AnsprechpTMP_Email, "").ToString, "") + Else - Return "" 'Keine Bezugsnummer + 'Return "" 'Keine Bezugsnummer End If End If @@ -1220,20 +1240,21 @@ Public Class cWorker_NCTS NCTS_TMP.ncts_Status_KEWILL_Equivalent = DY_TMP.dy_Status 'weil der Status bereit überprüft wurde --> neuste TransaktionsID End If 'NCTS_TMP.ncts_Status_KEWILL_Equivalent = STATUS.dySt_status - - If ANR <> "" Then NCTS_TMP.ncts_ANR = ANR - If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN + If ANR <> "" Or MRN <> "" Then + If ANR <> "" Then NCTS_TMP.ncts_ANR = ANR + If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN + End If NCTS_TMP.SAVE() 'Eintragen Else 'Update NCTS_TMP.UPDATE_Status(DY_TMP.dy_Status) 'weil der Status bereit überprüft wurde --> neuste TransaktionsID - - If ANR <> "" Then NCTS_TMP.ncts_ANR = ANR : NCTS_TMP.SAVE() - If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN : NCTS_TMP.SAVE() - + If ANR <> "" Or MRN <> "" Then + If ANR <> "" Then NCTS_TMP.ncts_ANR = ANR : NCTS_TMP.SAVE() + If MRN <> "" Then NCTS_TMP.ncts_MRN = MRN : NCTS_TMP.SAVE() + End If End If - saveDY_NCTS = NCTS_TMP + saveDY_NCTS = NCTS_TMP End Function Shared Sub SaveNCTS_FirmaNL(ByRef NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut, DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen, division As String) @@ -1271,6 +1292,9 @@ Public Class cWorker_NCTS Case "NEU" NCTS_TMP.ncts_firma = "VERAG" NCTS_TMP.ncts_niederlassung = "NEU" + Case "ATSP", "ATSPED" + NCTS_TMP.ncts_firma = "UNISPED" + NCTS_TMP.ncts_niederlassung = "ATSP" End Select NCTS_TMP.SAVE() End If @@ -1388,11 +1412,11 @@ Public Class cWorker_NCTS 'UNBEKANNT ????? End Select STATUS.dySt_ergCode = "DY_" & status_DY - STATUS.dySt_ergMitteilung = grund + STATUS.dySt_ergMitteilung = MRN & grund If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp 'EINTRAG IN tblDakosy_Zollanmeldungen - Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, STATUS.dySt_ergZeitpunkt, "NCTS") - Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = saveDY_NCTS(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, STATUS.dySt_ergZeitpunkt, , MRN) + Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, "NCTS") + Dim NCTS_TMP As DAKOSY_Worker.cDakosyNCTSOut = saveDY_NCTS(STATUS, DY_TMP, NCTS.Transaktion.IOReferenz, NCTS.Transaktion.IODatumZeit, , "") 'MRN) SaveNCTS_FirmaNL(NCTS_TMP, DY_TMP, division) @@ -1895,7 +1919,8 @@ Public Class cWorker_NCTS STATUS.dySt_status = DAKOSY_Worker.cDY_Statusliste.S_53 STATUS.dySt_ergCode = "TSTMP" - STATUS.dySt_ergMitteilung = "" + STATUS.dySt_ergMitteilung = MRN + ' STATUS.dySt_ergMitteilung = "" If tstmp IsNot Nothing Then STATUS.dySt_ergZeitpunkt = tstmp 'EINTRAG IN tblDakosy_Zollanmeldungen Dim DY_TMP As DAKOSY_Worker.cDakosy_Zollanmeldungen = FORM.saveDY_ZA(STATUS, NCTS.Transaktion.IOReferenz, If(tstmp, NCTS.Transaktion.IODatumZeit), "NCTS") diff --git a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb index 064aaf8..83e3c6f 100644 --- a/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb +++ b/initATLASAufschubkonten/frmDYNachrichtenVerarbeitung.vb @@ -36,6 +36,7 @@ Public Class frmDYNachrichtenVerarbeitung End Sub Sub initPfade() + If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "" Then VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG" Me.VERARBEITUNGS_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("VERARBEITUNGS_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) '"\\192.168.0.91\Datenarchiv\DAKOSY\TESTSYSTEM\Nachrichtendaten_Einarbeitung\" Me.ZIEL_PFAD = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) @@ -49,7 +50,7 @@ Public Class frmDYNachrichtenVerarbeitung Me.BOX_VERSION = DAKOSY_Worker.cDY_Paramter.GET_PARAM_ByName("BOX_VERSION", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) End Sub - + Private Sub frmDYNachrichtenVerarbeitung_Load(sender As Object, e As EventArgs) Handles Me.Load initPfade() @@ -99,7 +100,7 @@ Public Class frmDYNachrichtenVerarbeitung Dim DY_port = "" Dim DY_PFAD_out = "" - DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out) + DAKOSY_Worker.cDakosyFunftions.getSFTPLoginData(DY_server, DY_name, DY_pwd, DY_port, "", DY_PFAD_out, "") Dim ConnectionInfo As New ConnectionInfo(DY_server, DY_port, DY_name, New PasswordAuthenticationMethod(DY_name, DY_pwd)) @@ -107,8 +108,7 @@ Public Class frmDYNachrichtenVerarbeitung client.Connect() For Each f In client.ListDirectory(DY_PFAD_out) - ' MsgBox(f.Name) - If Not f.Name.StartsWith(".") Then + If Not f.Name.StartsWith(".") And Not f.IsDirectory Then 'Temp. DownloadPfad Dim destFilenameTMP = VERARBEITUNGS_PFAD + "." & If(IO.File.Exists(VERARBEITUNGS_PFAD & "." & f.Name), Now.ToString("yyMMdd_HHmmss.fff_"), "") & f.Name @@ -2794,7 +2794,10 @@ Public Class frmDYNachrichtenVerarbeitung If TMP.DutyDefermentApplicant IsNot Nothing AndAlso TMP.DutyDefermentApplicant.Identification IsNot Nothing Then AUFSCHUB.ezaAfb_AufschubnehmerEORI = TMP.DutyDefermentApplicant.Identification.ReferenceNumber End If + + AUFSCHUB.ezaAfb_AufschuBIN = TMP.AuthorisationNumber + AUFSCHUB.ezaAfb_HZA = TMP.AccountPrefix AUFSCHUB.ezaAfb_KontoNr = TMP.AccountNumber AUFSCHUB.ezaAfb_Aufschubart = TMP.Type AUFSCHUB.ezaAfb_ArtAufschubantrag = TMP.ApplicationType @@ -3603,27 +3606,35 @@ Public Class frmDYNachrichtenVerarbeitung ' ################################################### - If If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@imex") Then - EZA.eza_firma = "IMEX" - EZA.eza_niederlassung = "IMEX" - 'GLOBAL--> EORI - ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@ambar") Then - EZA.eza_firma = "AMBAR" - EZA.eza_niederlassung = "AMBAR" - 'GLOBAL--> EORI - ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("atilla@verag.ag") Or If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@atilla") Then - EZA.eza_firma = "ATILLA" - EZA.eza_niederlassung = "SUB" - 'GLOBAL--> EORI - ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@durmaz") Then - EZA.eza_firma = "DURMAZ" - EZA.eza_niederlassung = "SBG" - 'GLOBAL--> EORI - ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@verag") Then - EZA.eza_firma = "VERAG" - ' EZA.eza_niederlassung = "IMEX" - 'GLOBAL--> EORI - End If + 'If If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@imex") Then + ' EZA.eza_firma = "IMEX" + ' EZA.eza_niederlassung = "IMEX" + ' 'GLOBAL--> EORI + 'ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@ambar") Then + ' EZA.eza_firma = "AMBAR" + ' EZA.eza_niederlassung = "AMBAR" + ' 'GLOBAL--> EORI + 'ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("atilla@verag.ag") Or If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@atilla") Then + ' EZA.eza_firma = "ATILLA" + ' EZA.eza_niederlassung = "SUB" + ' 'GLOBAL--> EORI + 'ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@durmaz") Then + ' EZA.eza_firma = "DURMAZ" + ' EZA.eza_niederlassung = "SBG" + ' 'GLOBAL--> EORI + 'ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@verag") Then + ' EZA.eza_firma = "VERAG" + ' ' EZA.eza_niederlassung = "IMEX" + ' 'GLOBAL--> EORI + + 'ElseIf If(EZA.eza_AnmeldenderBearbeiterEMail, "").ToString.Contains("@unisped") Then + ' EZA.eza_firma = "UNISPED" + ' EZA.eza_niederlassung = "ATSP" + 'End If + + + tryGetFirmaNiederlassung(EZA.eza_firma, EZA.eza_niederlassung, (EZA.eza_AnmeldenderBearbeiterEMail, "").ToString, bezugsNr) + End If @@ -3645,6 +3656,63 @@ Public Class frmDYNachrichtenVerarbeitung End Function + + + Public Shared Sub tryGetFirmaNiederlassung(ByRef firma As String, ByRef niederlassung As String, Mail As String, BezugsNr As String) + If Mail.Contains("@imex") Then + firma = "IMEX" + niederlassung = "IMEX" + ElseIf Mail.Contains("@ambar") Then + firma = "AMBAR" + niederlassung = "AMBAR" + ElseIf Mail.Contains("atilla@verag.ag") Or Mail.Contains("@atilla") Then + firma = "ATILLA" + niederlassung = "SUB" + ElseIf Mail.Contains("@durmaz") Then + firma = "DURMAZ" + niederlassung = "SBG" + ElseIf Mail.Contains("@verag") Then + firma = "VERAG" + ElseIf Mail.Contains("@unisped") Then + firma = "UNISPED" + niederlassung = "ATSP" + End If + + If firma = "" Then + Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA 'Gehrt nur bei UNSPED + Case "UNISPED" + firma = "UNISPED" + niederlassung = "ATSP" + + End Select + End If + + If firma = "" Then + If BezugsNr <> "" And BezugsNr.Length > 4 Then + Select Case BezugsNr.Substring(0, 4) + Case "5501" + firma = "IMEX" + 'niederlassung = "IMEX" + Case "5701" + firma = "AMBAR" + niederlassung = "AMBAR" + Case "4801" + firma = "ATILLA" + niederlassung = "SUB" + 'Case "4801" + ' firma = "DURMAZ" + ' niederlassung = "SBG" + Case "4803", "5003", "5103", "5303", "4805", "4811" + firma = "VERAG" + Case "4801" + firma = "UNISPED" + niederlassung = "ATSP" + End Select + End If + End If + End Sub + + Function getEZAAresseFromLine(AdressTMP, typ) As DAKOSY_Worker.cDakosy_EZA_Adressen Dim ADR As New DAKOSY_Worker.cDakosy_EZA_Adressen ADR.ezaAd_AdressTyp = typ diff --git a/initATLASAufschubkonten/frmStartOptions.Designer.vb b/initATLASAufschubkonten/frmStartOptions.Designer.vb index f679c06..e667146 100644 --- a/initATLASAufschubkonten/frmStartOptions.Designer.vb +++ b/initATLASAufschubkonten/frmStartOptions.Designer.vb @@ -24,21 +24,64 @@ Partial Class frmStartOptions Private Sub InitializeComponent() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmStartOptions)) Me.pnl = New System.Windows.Forms.Panel() + Me.tbcntr = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.LinkLabel28 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel4 = New System.Windows.Forms.LinkLabel() Me.PictureBox13 = New System.Windows.Forms.PictureBox() + Me.picC0008 = New System.Windows.Forms.PictureBox() Me.LinkLabel26 = New System.Windows.Forms.LinkLabel() + Me.Label2 = New System.Windows.Forms.Label() + Me.LinkLabel5 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel6 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel23 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel7 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel24 = New System.Windows.Forms.LinkLabel() + Me.PictureBox1 = New System.Windows.Forms.PictureBox() + Me.Label5 = New System.Windows.Forms.Label() + Me.LinkLabel8 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel21 = New System.Windows.Forms.LinkLabel() + Me.PictureBox2 = New System.Windows.Forms.PictureBox() + Me.LinkLabel22 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel9 = New System.Windows.Forms.LinkLabel() + Me.Label4 = New System.Windows.Forms.Label() + Me.LinkLabel10 = New System.Windows.Forms.LinkLabel() + Me.Label1 = New System.Windows.Forms.Label() + Me.PictureBox3 = New System.Windows.Forms.PictureBox() + Me.LinkLabel11 = New System.Windows.Forms.LinkLabel() + Me.PictureBox4 = New System.Windows.Forms.PictureBox() + Me.LinkLabel12 = New System.Windows.Forms.LinkLabel() + Me.PictureBox5 = New System.Windows.Forms.PictureBox() + Me.LinkLabel13 = New System.Windows.Forms.LinkLabel() + Me.PictureBox6 = New System.Windows.Forms.PictureBox() + Me.LinkLabel14 = New System.Windows.Forms.LinkLabel() + Me.PictureBox7 = New System.Windows.Forms.PictureBox() + Me.LinkLabel15 = New System.Windows.Forms.LinkLabel() + Me.LinkLabel16 = New System.Windows.Forms.LinkLabel() + Me.PictureBox8 = New System.Windows.Forms.PictureBox() + Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.cbxISett_IMEX = New System.Windows.Forms.CheckBox() + Me.cbxISett_VERAG = New System.Windows.Forms.CheckBox() + Me.cbxISett_TEST = New System.Windows.Forms.CheckBox() + Me.cbxISett_EKOL = New System.Windows.Forms.CheckBox() + Me.cbxISett_TOBB = New System.Windows.Forms.CheckBox() + Me.cbxISett_OREGON = New System.Windows.Forms.CheckBox() + Me.PictureBox14 = New System.Windows.Forms.PictureBox() + Me.Label8 = New System.Windows.Forms.Label() + Me.Button1 = New System.Windows.Forms.Button() + Me.Label7 = New System.Windows.Forms.Label() + Me.LinkLabel27 = New System.Windows.Forms.LinkLabel() + Me.Label6 = New System.Windows.Forms.Label() + Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() + Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.CheckBox2 = New System.Windows.Forms.CheckBox() Me.LinkLabel25 = New System.Windows.Forms.LinkLabel() - Me.LinkLabel23 = New System.Windows.Forms.LinkLabel() - Me.LinkLabel24 = New System.Windows.Forms.LinkLabel() - Me.Label5 = New System.Windows.Forms.Label() - Me.LinkLabel21 = New System.Windows.Forms.LinkLabel() - Me.LinkLabel22 = New System.Windows.Forms.LinkLabel() - Me.Label4 = New System.Windows.Forms.Label() Me.CheckBox1 = New System.Windows.Forms.CheckBox() Me.cbxBu = New System.Windows.Forms.CheckBox() 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() @@ -47,68 +90,32 @@ Partial Class frmStartOptions Me.LinkLabel18 = New System.Windows.Forms.LinkLabel() Me.PictureBox9 = New System.Windows.Forms.PictureBox() Me.LinkLabel17 = New System.Windows.Forms.LinkLabel() - Me.PictureBox8 = New System.Windows.Forms.PictureBox() - Me.LinkLabel16 = New System.Windows.Forms.LinkLabel() - Me.LinkLabel15 = New System.Windows.Forms.LinkLabel() Me.cbxHistory = New System.Windows.Forms.CheckBox() - Me.PictureBox7 = New System.Windows.Forms.PictureBox() - Me.LinkLabel14 = New System.Windows.Forms.LinkLabel() - Me.PictureBox6 = New System.Windows.Forms.PictureBox() - Me.LinkLabel13 = New System.Windows.Forms.LinkLabel() - Me.PictureBox5 = New System.Windows.Forms.PictureBox() - Me.LinkLabel12 = New System.Windows.Forms.LinkLabel() - Me.PictureBox4 = New System.Windows.Forms.PictureBox() - Me.LinkLabel11 = New System.Windows.Forms.LinkLabel() - Me.PictureBox3 = New System.Windows.Forms.PictureBox() - Me.LinkLabel10 = New System.Windows.Forms.LinkLabel() - Me.LinkLabel9 = New System.Windows.Forms.LinkLabel() - Me.PictureBox2 = New System.Windows.Forms.PictureBox() - Me.LinkLabel8 = New System.Windows.Forms.LinkLabel() - Me.PictureBox1 = New System.Windows.Forms.PictureBox() - Me.LinkLabel7 = New System.Windows.Forms.LinkLabel() - Me.LinkLabel6 = New System.Windows.Forms.LinkLabel() - Me.LinkLabel5 = New System.Windows.Forms.LinkLabel() - Me.Label2 = New System.Windows.Forms.Label() - Me.picC0008 = New System.Windows.Forms.PictureBox() Me.btn = New System.Windows.Forms.Button() - Me.LinkLabel4 = New System.Windows.Forms.LinkLabel() - Me.Label1 = New System.Windows.Forms.Label() Me.LinkLabel2 = New System.Windows.Forms.LinkLabel() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() Me.LinkLabel3 = New System.Windows.Forms.LinkLabel() Me.lklAufschubkontenATLASEZOLL = New System.Windows.Forms.LinkLabel() Me.lblRoutineManager = New System.Windows.Forms.Label() - Me.MyTextBox1 = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.tbcntr = New System.Windows.Forms.TabControl() - Me.TabPage1 = New System.Windows.Forms.TabPage() - Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.LinkLabel27 = New System.Windows.Forms.LinkLabel() - Me.Label6 = New System.Windows.Forms.Label() - Me.Label7 = New System.Windows.Forms.Label() - Me.Button1 = New System.Windows.Forms.Button() - Me.txtVRGOut_BezugsNr = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.Label8 = New System.Windows.Forms.Label() - Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox() - Me.PictureBox14 = New System.Windows.Forms.PictureBox() Me.pnl.SuspendLayout() + Me.tbcntr.SuspendLayout() + Me.TabPage1.SuspendLayout() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.picC0008, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabPage2.SuspendLayout() + CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() 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.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.picC0008, System.ComponentModel.ISupportInitialize).BeginInit() - Me.tbcntr.SuspendLayout() - Me.TabPage1.SuspendLayout() - Me.TabPage2.SuspendLayout() - CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'pnl @@ -145,6 +152,82 @@ Partial Class frmStartOptions Me.pnl.Size = New System.Drawing.Size(790, 677) Me.pnl.TabIndex = 0 ' + 'tbcntr + ' + Me.tbcntr.Controls.Add(Me.TabPage1) + Me.tbcntr.Controls.Add(Me.TabPage2) + Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom + Me.tbcntr.Location = New System.Drawing.Point(0, 254) + Me.tbcntr.Name = "tbcntr" + Me.tbcntr.SelectedIndex = 0 + Me.tbcntr.Size = New System.Drawing.Size(788, 421) + Me.tbcntr.TabIndex = 19 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.LinkLabel28) + Me.TabPage1.Controls.Add(Me.LinkLabel4) + Me.TabPage1.Controls.Add(Me.PictureBox13) + Me.TabPage1.Controls.Add(Me.picC0008) + Me.TabPage1.Controls.Add(Me.LinkLabel26) + Me.TabPage1.Controls.Add(Me.Label2) + Me.TabPage1.Controls.Add(Me.LinkLabel5) + Me.TabPage1.Controls.Add(Me.LinkLabel6) + Me.TabPage1.Controls.Add(Me.LinkLabel23) + Me.TabPage1.Controls.Add(Me.LinkLabel7) + Me.TabPage1.Controls.Add(Me.LinkLabel24) + Me.TabPage1.Controls.Add(Me.PictureBox1) + Me.TabPage1.Controls.Add(Me.Label5) + Me.TabPage1.Controls.Add(Me.LinkLabel8) + Me.TabPage1.Controls.Add(Me.LinkLabel21) + Me.TabPage1.Controls.Add(Me.PictureBox2) + Me.TabPage1.Controls.Add(Me.LinkLabel22) + Me.TabPage1.Controls.Add(Me.LinkLabel9) + Me.TabPage1.Controls.Add(Me.Label4) + Me.TabPage1.Controls.Add(Me.LinkLabel10) + Me.TabPage1.Controls.Add(Me.Label1) + Me.TabPage1.Controls.Add(Me.PictureBox3) + Me.TabPage1.Controls.Add(Me.LinkLabel11) + Me.TabPage1.Controls.Add(Me.PictureBox4) + Me.TabPage1.Controls.Add(Me.LinkLabel12) + Me.TabPage1.Controls.Add(Me.PictureBox5) + Me.TabPage1.Controls.Add(Me.LinkLabel13) + Me.TabPage1.Controls.Add(Me.PictureBox6) + Me.TabPage1.Controls.Add(Me.LinkLabel14) + Me.TabPage1.Controls.Add(Me.PictureBox7) + Me.TabPage1.Controls.Add(Me.LinkLabel15) + Me.TabPage1.Controls.Add(Me.LinkLabel16) + Me.TabPage1.Controls.Add(Me.PictureBox8) + Me.TabPage1.Location = New System.Drawing.Point(4, 22) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(780, 395) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Zollverfahren" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'LinkLabel28 + ' + Me.LinkLabel28.AutoSize = True + Me.LinkLabel28.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel28.Location = New System.Drawing.Point(13, 234) + Me.LinkLabel28.Name = "LinkLabel28" + Me.LinkLabel28.Size = New System.Drawing.Size(197, 13) + Me.LinkLabel28.TabIndex = 55 + Me.LinkLabel28.TabStop = True + Me.LinkLabel28.Text = "Eingangsnachrichten abrufen UNISPED" + ' + 'LinkLabel4 + ' + Me.LinkLabel4.AutoSize = True + Me.LinkLabel4.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel4.Location = New System.Drawing.Point(11, 37) + Me.LinkLabel4.Name = "LinkLabel4" + Me.LinkLabel4.Size = New System.Drawing.Size(112, 13) + Me.LinkLabel4.TabIndex = 1 + Me.LinkLabel4.TabStop = True + Me.LinkLabel4.Text = "C0008 - NCTS Länder" + ' 'PictureBox13 ' Me.PictureBox13.BackgroundImage = CType(resources.GetObject("PictureBox13.BackgroundImage"), System.Drawing.Image) @@ -156,6 +239,17 @@ Partial Class frmStartOptions Me.PictureBox13.TabStop = False Me.PictureBox13.Visible = False ' + 'picC0008 + ' + Me.picC0008.BackgroundImage = CType(resources.GetObject("picC0008.BackgroundImage"), System.Drawing.Image) + Me.picC0008.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.picC0008.Location = New System.Drawing.Point(129, 32) + Me.picC0008.Name = "picC0008" + Me.picC0008.Size = New System.Drawing.Size(18, 18) + Me.picC0008.TabIndex = 7 + Me.picC0008.TabStop = False + Me.picC0008.Visible = False + ' 'LinkLabel26 ' Me.LinkLabel26.AutoSize = True @@ -167,6 +261,504 @@ Partial Class frmStartOptions Me.LinkLabel26.TabStop = True Me.LinkLabel26.Text = "I0700 - Maßeinheit" ' + '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(11, 158) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(205, 13) + Me.Label2.TabIndex = 11 + Me.Label2.Text = "DAKOSY Nachrichtenverarbeitung:" + ' + 'LinkLabel5 + ' + Me.LinkLabel5.AutoSize = True + Me.LinkLabel5.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel5.Location = New System.Drawing.Point(11, 185) + Me.LinkLabel5.Name = "LinkLabel5" + Me.LinkLabel5.Size = New System.Drawing.Size(177, 13) + Me.LinkLabel5.TabIndex = 12 + Me.LinkLabel5.TabStop = True + Me.LinkLabel5.Text = "Eingangsnachrichten abrufen TEST" + ' + 'LinkLabel6 + ' + Me.LinkLabel6.AutoSize = True + Me.LinkLabel6.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel6.Location = New System.Drawing.Point(295, 185) + Me.LinkLabel6.Name = "LinkLabel6" + Me.LinkLabel6.Size = New System.Drawing.Size(180, 13) + Me.LinkLabel6.TabIndex = 13 + Me.LinkLabel6.TabStop = True + Me.LinkLabel6.Text = "VERAG Kundendaten senden TEST" + ' + 'LinkLabel23 + ' + Me.LinkLabel23.AutoSize = True + Me.LinkLabel23.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel23.Location = New System.Drawing.Point(295, 313) + Me.LinkLabel23.Name = "LinkLabel23" + Me.LinkLabel23.Size = New System.Drawing.Size(180, 13) + Me.LinkLabel23.TabIndex = 21 + Me.LinkLabel23.TabStop = True + Me.LinkLabel23.Text = "Eingangsnachrichten abrufen PROD" + ' + 'LinkLabel7 + ' + Me.LinkLabel7.AutoSize = True + Me.LinkLabel7.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel7.Location = New System.Drawing.Point(11, 65) + Me.LinkLabel7.Name = "LinkLabel7" + Me.LinkLabel7.Size = New System.Drawing.Size(188, 13) + Me.LinkLabel7.TabIndex = 4 + Me.LinkLabel7.TabStop = True + Me.LinkLabel7.Text = "C0017 - Packstücke (Verpackungsart)" + ' + 'LinkLabel24 + ' + Me.LinkLabel24.AutoSize = True + Me.LinkLabel24.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel24.Location = New System.Drawing.Point(295, 288) + Me.LinkLabel24.Name = "LinkLabel24" + Me.LinkLabel24.Size = New System.Drawing.Size(177, 13) + Me.LinkLabel24.TabIndex = 19 + Me.LinkLabel24.TabStop = True + Me.LinkLabel24.Text = "Eingangsnachrichten abrufen TEST" + ' + 'PictureBox1 + ' + Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) + Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox1.Location = New System.Drawing.Point(205, 60) + Me.PictureBox1.Name = "PictureBox1" + Me.PictureBox1.Size = New System.Drawing.Size(18, 18) + Me.PictureBox1.TabIndex = 12 + Me.PictureBox1.TabStop = False + Me.PictureBox1.Visible = False + ' + '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(295, 261) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(184, 13) + Me.Label5.TabIndex = 17 + Me.Label5.Text = "MDM Nachrichtenverarbeitung:" + ' + 'LinkLabel8 + ' + Me.LinkLabel8.AutoSize = True + Me.LinkLabel8.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel8.Location = New System.Drawing.Point(295, 37) + Me.LinkLabel8.Name = "LinkLabel8" + Me.LinkLabel8.Size = New System.Drawing.Size(120, 13) + Me.LinkLabel8.TabIndex = 2 + Me.LinkLabel8.TabStop = True + Me.LinkLabel8.Text = "C0014 - Vorpapier Arten" + ' + 'LinkLabel21 + ' + Me.LinkLabel21.AutoSize = True + Me.LinkLabel21.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel21.Location = New System.Drawing.Point(11, 313) + Me.LinkLabel21.Name = "LinkLabel21" + Me.LinkLabel21.Size = New System.Drawing.Size(180, 13) + Me.LinkLabel21.TabIndex = 20 + Me.LinkLabel21.TabStop = True + Me.LinkLabel21.Text = "Eingangsnachrichten abrufen PROD" + ' + 'PictureBox2 + ' + Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image) + Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox2.Location = New System.Drawing.Point(421, 32) + Me.PictureBox2.Name = "PictureBox2" + Me.PictureBox2.Size = New System.Drawing.Size(18, 18) + Me.PictureBox2.TabIndex = 14 + Me.PictureBox2.TabStop = False + Me.PictureBox2.Visible = False + ' + 'LinkLabel22 + ' + Me.LinkLabel22.AutoSize = True + Me.LinkLabel22.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel22.Location = New System.Drawing.Point(11, 288) + Me.LinkLabel22.Name = "LinkLabel22" + Me.LinkLabel22.Size = New System.Drawing.Size(177, 13) + Me.LinkLabel22.TabIndex = 18 + Me.LinkLabel22.TabStop = True + Me.LinkLabel22.Text = "Eingangsnachrichten abrufen TEST" + ' + 'LinkLabel9 + ' + Me.LinkLabel9.AutoSize = True + Me.LinkLabel9.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel9.Location = New System.Drawing.Point(11, 210) + Me.LinkLabel9.Name = "LinkLabel9" + Me.LinkLabel9.Size = New System.Drawing.Size(180, 13) + Me.LinkLabel9.TabIndex = 14 + Me.LinkLabel9.TabStop = True + Me.LinkLabel9.Text = "Eingangsnachrichten abrufen PROD" + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label4.Location = New System.Drawing.Point(11, 261) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(211, 13) + Me.Label4.TabIndex = 16 + Me.Label4.Text = "TELOTEC Nachrichtenverarbeitung:" + ' + 'LinkLabel10 + ' + Me.LinkLabel10.AutoSize = True + Me.LinkLabel10.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel10.Location = New System.Drawing.Point(295, 65) + Me.LinkLabel10.Name = "LinkLabel10" + Me.LinkLabel10.Size = New System.Drawing.Size(104, 13) + Me.LinkLabel10.TabIndex = 5 + Me.LinkLabel10.TabStop = True + Me.LinkLabel10.Text = "C0010 - AES Länder" + ' + '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(8, 11) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(177, 13) + Me.Label1.TabIndex = 0 + Me.Label1.Text = "ZOLL.DE Codelisten einlesen:" + ' + 'PictureBox3 + ' + Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image) + Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox3.Location = New System.Drawing.Point(405, 60) + Me.PictureBox3.Name = "PictureBox3" + Me.PictureBox3.Size = New System.Drawing.Size(18, 18) + Me.PictureBox3.TabIndex = 17 + Me.PictureBox3.TabStop = False + Me.PictureBox3.Visible = False + ' + 'LinkLabel11 + ' + Me.LinkLabel11.AutoSize = True + Me.LinkLabel11.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel11.Location = New System.Drawing.Point(475, 65) + Me.LinkLabel11.Name = "LinkLabel11" + Me.LinkLabel11.Size = New System.Drawing.Size(202, 13) + Me.LinkLabel11.TabIndex = 6 + Me.LinkLabel11.TabStop = True + Me.LinkLabel11.Text = "A0122 - Art der Anmeldung (Überführung)" + ' + 'PictureBox4 + ' + Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) + Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox4.Location = New System.Drawing.Point(683, 60) + Me.PictureBox4.Name = "PictureBox4" + Me.PictureBox4.Size = New System.Drawing.Size(18, 18) + Me.PictureBox4.TabIndex = 19 + Me.PictureBox4.TabStop = False + Me.PictureBox4.Visible = False + ' + 'LinkLabel12 + ' + Me.LinkLabel12.AutoSize = True + Me.LinkLabel12.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel12.Location = New System.Drawing.Point(475, 37) + Me.LinkLabel12.Name = "LinkLabel12" + Me.LinkLabel12.Size = New System.Drawing.Size(159, 13) + Me.LinkLabel12.TabIndex = 3 + Me.LinkLabel12.TabStop = True + Me.LinkLabel12.Text = "A0127 - Beteiligten-Konstellation" + ' + 'PictureBox5 + ' + Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image) + Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox5.Location = New System.Drawing.Point(640, 32) + Me.PictureBox5.Name = "PictureBox5" + Me.PictureBox5.Size = New System.Drawing.Size(18, 18) + Me.PictureBox5.TabIndex = 21 + Me.PictureBox5.TabStop = False + Me.PictureBox5.Visible = False + ' + 'LinkLabel13 + ' + Me.LinkLabel13.AutoSize = True + Me.LinkLabel13.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel13.Location = New System.Drawing.Point(11, 95) + Me.LinkLabel13.Name = "LinkLabel13" + Me.LinkLabel13.Size = New System.Drawing.Size(110, 13) + Me.LinkLabel13.TabIndex = 7 + Me.LinkLabel13.TabStop = True + Me.LinkLabel13.Text = "I0400 - Währungsliste" + ' + 'PictureBox6 + ' + Me.PictureBox6.BackgroundImage = CType(resources.GetObject("PictureBox6.BackgroundImage"), System.Drawing.Image) + Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox6.Location = New System.Drawing.Point(127, 90) + Me.PictureBox6.Name = "PictureBox6" + Me.PictureBox6.Size = New System.Drawing.Size(18, 18) + Me.PictureBox6.TabIndex = 23 + Me.PictureBox6.TabStop = False + Me.PictureBox6.Visible = False + ' + 'LinkLabel14 + ' + Me.LinkLabel14.AutoSize = True + Me.LinkLabel14.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel14.Location = New System.Drawing.Point(295, 95) + Me.LinkLabel14.Name = "LinkLabel14" + Me.LinkLabel14.Size = New System.Drawing.Size(99, 13) + Me.LinkLabel14.TabIndex = 8 + Me.LinkLabel14.TabStop = True + Me.LinkLabel14.Text = "C0013 - Unterlagen" + ' + 'PictureBox7 + ' + Me.PictureBox7.BackgroundImage = CType(resources.GetObject("PictureBox7.BackgroundImage"), System.Drawing.Image) + Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox7.Location = New System.Drawing.Point(400, 90) + Me.PictureBox7.Name = "PictureBox7" + Me.PictureBox7.Size = New System.Drawing.Size(18, 18) + Me.PictureBox7.TabIndex = 25 + Me.PictureBox7.TabStop = False + Me.PictureBox7.Visible = False + ' + 'LinkLabel15 + ' + Me.LinkLabel15.AutoSize = True + Me.LinkLabel15.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel15.Location = New System.Drawing.Point(295, 210) + Me.LinkLabel15.Name = "LinkLabel15" + Me.LinkLabel15.Size = New System.Drawing.Size(183, 13) + Me.LinkLabel15.TabIndex = 15 + Me.LinkLabel15.TabStop = True + Me.LinkLabel15.Text = "VERAG Kundendaten senden PROD" + ' + 'LinkLabel16 + ' + Me.LinkLabel16.AutoSize = True + Me.LinkLabel16.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel16.Location = New System.Drawing.Point(475, 95) + Me.LinkLabel16.Name = "LinkLabel16" + Me.LinkLabel16.Size = New System.Drawing.Size(149, 13) + Me.LinkLabel16.TabIndex = 9 + Me.LinkLabel16.TabStop = True + Me.LinkLabel16.Text = "I0200 - Unterlageaerten (EZA)" + ' + 'PictureBox8 + ' + Me.PictureBox8.BackgroundImage = CType(resources.GetObject("PictureBox8.BackgroundImage"), System.Drawing.Image) + Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox8.Location = New System.Drawing.Point(630, 90) + Me.PictureBox8.Name = "PictureBox8" + Me.PictureBox8.Size = New System.Drawing.Size(18, 18) + Me.PictureBox8.TabIndex = 29 + Me.PictureBox8.TabStop = False + Me.PictureBox8.Visible = False + ' + 'TabPage2 + ' + Me.TabPage2.Controls.Add(Me.cbxISett_IMEX) + Me.TabPage2.Controls.Add(Me.cbxISett_VERAG) + Me.TabPage2.Controls.Add(Me.cbxISett_TEST) + Me.TabPage2.Controls.Add(Me.cbxISett_EKOL) + Me.TabPage2.Controls.Add(Me.cbxISett_TOBB) + Me.TabPage2.Controls.Add(Me.cbxISett_OREGON) + Me.TabPage2.Controls.Add(Me.PictureBox14) + Me.TabPage2.Controls.Add(Me.Label8) + Me.TabPage2.Controls.Add(Me.Button1) + Me.TabPage2.Controls.Add(Me.Label7) + Me.TabPage2.Controls.Add(Me.LinkLabel27) + Me.TabPage2.Controls.Add(Me.Label6) + Me.TabPage2.Controls.Add(Me.MyComboBox1) + Me.TabPage2.Controls.Add(Me.txtVRGOut_BezugsNr) + Me.TabPage2.Location = New System.Drawing.Point(4, 22) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(780, 395) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "VERAG Interface" + Me.TabPage2.UseVisualStyleBackColor = True + ' + 'cbxISett_IMEX + ' + Me.cbxISett_IMEX.AutoSize = True + Me.cbxISett_IMEX.Checked = True + Me.cbxISett_IMEX.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxISett_IMEX.Location = New System.Drawing.Point(298, 158) + Me.cbxISett_IMEX.Name = "cbxISett_IMEX" + Me.cbxISett_IMEX.Size = New System.Drawing.Size(52, 17) + Me.cbxISett_IMEX.TabIndex = 61 + Me.cbxISett_IMEX.Text = "IMEX" + Me.cbxISett_IMEX.UseVisualStyleBackColor = True + ' + 'cbxISett_VERAG + ' + Me.cbxISett_VERAG.AutoSize = True + Me.cbxISett_VERAG.Checked = True + Me.cbxISett_VERAG.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxISett_VERAG.Location = New System.Drawing.Point(298, 135) + Me.cbxISett_VERAG.Name = "cbxISett_VERAG" + Me.cbxISett_VERAG.Size = New System.Drawing.Size(63, 17) + Me.cbxISett_VERAG.TabIndex = 60 + Me.cbxISett_VERAG.Text = "VERAG" + Me.cbxISett_VERAG.UseVisualStyleBackColor = True + ' + 'cbxISett_TEST + ' + Me.cbxISett_TEST.AutoSize = True + Me.cbxISett_TEST.Checked = True + Me.cbxISett_TEST.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxISett_TEST.Location = New System.Drawing.Point(377, 112) + Me.cbxISett_TEST.Name = "cbxISett_TEST" + Me.cbxISett_TEST.Size = New System.Drawing.Size(54, 17) + Me.cbxISett_TEST.TabIndex = 59 + Me.cbxISett_TEST.Text = "TEST" + Me.cbxISett_TEST.UseVisualStyleBackColor = True + ' + 'cbxISett_EKOL + ' + Me.cbxISett_EKOL.AutoSize = True + Me.cbxISett_EKOL.Checked = True + Me.cbxISett_EKOL.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxISett_EKOL.Location = New System.Drawing.Point(377, 89) + Me.cbxISett_EKOL.Name = "cbxISett_EKOL" + Me.cbxISett_EKOL.Size = New System.Drawing.Size(54, 17) + Me.cbxISett_EKOL.TabIndex = 58 + Me.cbxISett_EKOL.Text = "EKOL" + Me.cbxISett_EKOL.UseVisualStyleBackColor = True + ' + 'cbxISett_TOBB + ' + Me.cbxISett_TOBB.AutoSize = True + Me.cbxISett_TOBB.Checked = True + Me.cbxISett_TOBB.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxISett_TOBB.Location = New System.Drawing.Point(298, 112) + Me.cbxISett_TOBB.Name = "cbxISett_TOBB" + Me.cbxISett_TOBB.Size = New System.Drawing.Size(55, 17) + Me.cbxISett_TOBB.TabIndex = 57 + Me.cbxISett_TOBB.Text = "TOBB" + Me.cbxISett_TOBB.UseVisualStyleBackColor = True + ' + 'cbxISett_OREGON + ' + Me.cbxISett_OREGON.AutoSize = True + Me.cbxISett_OREGON.Checked = True + Me.cbxISett_OREGON.CheckState = System.Windows.Forms.CheckState.Checked + Me.cbxISett_OREGON.Location = New System.Drawing.Point(298, 89) + Me.cbxISett_OREGON.Name = "cbxISett_OREGON" + Me.cbxISett_OREGON.Size = New System.Drawing.Size(73, 17) + Me.cbxISett_OREGON.TabIndex = 38 + Me.cbxISett_OREGON.Text = "OREGON" + Me.cbxISett_OREGON.UseVisualStyleBackColor = True + ' + 'PictureBox14 + ' + Me.PictureBox14.BackgroundImage = CType(resources.GetObject("PictureBox14.BackgroundImage"), System.Drawing.Image) + Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom + Me.PictureBox14.Location = New System.Drawing.Point(562, 65) + Me.PictureBox14.Name = "PictureBox14" + Me.PictureBox14.Size = New System.Drawing.Size(18, 18) + Me.PictureBox14.TabIndex = 56 + Me.PictureBox14.TabStop = False + Me.PictureBox14.Visible = False + ' + 'Label8 + ' + Me.Label8.AutoSize = True + Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.Label8.Location = New System.Drawing.Point(295, 46) + Me.Label8.Name = "Label8" + Me.Label8.Size = New System.Drawing.Size(176, 13) + Me.Label8.TabIndex = 3 + Me.Label8.Text = "Bereitstellen - Zollysytem/BezugsNr:" + ' + 'Button1 + ' + Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat + Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft + Me.Button1.Location = New System.Drawing.Point(484, 45) + Me.Button1.Name = "Button1" + Me.Button1.Size = New System.Drawing.Size(72, 38) + Me.Button1.TabIndex = 6 + Me.Button1.Text = "Daten --> FTP" + Me.Button1.UseVisualStyleBackColor = True + ' + '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(295, 20) + Me.Label7.Name = "Label7" + Me.Label7.Size = New System.Drawing.Size(79, 13) + Me.Label7.TabIndex = 1 + Me.Label7.Text = "VERAG OUT" + ' + 'LinkLabel27 + ' + Me.LinkLabel27.AutoSize = True + Me.LinkLabel27.Enabled = False + Me.LinkLabel27.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) + Me.LinkLabel27.Location = New System.Drawing.Point(14, 46) + Me.LinkLabel27.Name = "LinkLabel27" + Me.LinkLabel27.Size = New System.Drawing.Size(85, 13) + Me.LinkLabel27.TabIndex = 2 + Me.LinkLabel27.TabStop = True + Me.LinkLabel27.Text = "Eingang abrufen" + ' + '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(11, 20) + Me.Label6.Name = "Label6" + Me.Label6.Size = New System.Drawing.Size(66, 13) + Me.Label6.TabIndex = 0 + Me.Label6.Text = "VERAG IN" + ' + '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.Multiline = True + Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" + Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(119, 21) + Me.txtVRGOut_BezugsNr.TabIndex = 5 + ' 'CheckBox2 ' Me.CheckBox2.AutoSize = True @@ -188,70 +780,6 @@ Partial Class frmStartOptions Me.LinkLabel25.TabStop = True Me.LinkLabel25.Text = "ZOLARIS Anhänge" ' - 'LinkLabel23 - ' - Me.LinkLabel23.AutoSize = True - Me.LinkLabel23.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel23.Location = New System.Drawing.Point(295, 313) - Me.LinkLabel23.Name = "LinkLabel23" - Me.LinkLabel23.Size = New System.Drawing.Size(180, 13) - Me.LinkLabel23.TabIndex = 21 - Me.LinkLabel23.TabStop = True - Me.LinkLabel23.Text = "Eingangsnachrichten abrufen PROD" - ' - 'LinkLabel24 - ' - Me.LinkLabel24.AutoSize = True - Me.LinkLabel24.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel24.Location = New System.Drawing.Point(295, 288) - Me.LinkLabel24.Name = "LinkLabel24" - Me.LinkLabel24.Size = New System.Drawing.Size(177, 13) - Me.LinkLabel24.TabIndex = 19 - Me.LinkLabel24.TabStop = True - Me.LinkLabel24.Text = "Eingangsnachrichten abrufen TEST" - ' - '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(295, 261) - Me.Label5.Name = "Label5" - Me.Label5.Size = New System.Drawing.Size(184, 13) - Me.Label5.TabIndex = 17 - Me.Label5.Text = "MDM Nachrichtenverarbeitung:" - ' - 'LinkLabel21 - ' - Me.LinkLabel21.AutoSize = True - Me.LinkLabel21.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel21.Location = New System.Drawing.Point(11, 313) - Me.LinkLabel21.Name = "LinkLabel21" - Me.LinkLabel21.Size = New System.Drawing.Size(180, 13) - Me.LinkLabel21.TabIndex = 20 - Me.LinkLabel21.TabStop = True - Me.LinkLabel21.Text = "Eingangsnachrichten abrufen PROD" - ' - 'LinkLabel22 - ' - Me.LinkLabel22.AutoSize = True - Me.LinkLabel22.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel22.Location = New System.Drawing.Point(11, 288) - Me.LinkLabel22.Name = "LinkLabel22" - Me.LinkLabel22.Size = New System.Drawing.Size(177, 13) - Me.LinkLabel22.TabIndex = 18 - Me.LinkLabel22.TabStop = True - Me.LinkLabel22.Text = "Eingangsnachrichten abrufen TEST" - ' - 'Label4 - ' - Me.Label4.AutoSize = True - Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label4.Location = New System.Drawing.Point(11, 261) - Me.Label4.Name = "Label4" - Me.Label4.Size = New System.Drawing.Size(211, 13) - Me.Label4.TabIndex = 16 - Me.Label4.Text = "TELOTEC Nachrichtenverarbeitung:" - ' 'CheckBox1 ' Me.CheckBox1.AutoSize = True @@ -309,6 +837,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 = "10000" + Me.MyTextBox1._Waehrung = False + Me.MyTextBox1._WaehrungZeichen = True + Me.MyTextBox1.ForeColor = System.Drawing.Color.Black + Me.MyTextBox1.Location = New System.Drawing.Point(111, 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 = "10000" + ' 'PictureBox12 ' Me.PictureBox12.BackgroundImage = CType(resources.GetObject("PictureBox12.BackgroundImage"), System.Drawing.Image) @@ -397,39 +947,6 @@ Partial Class frmStartOptions Me.LinkLabel17.TabStop = True Me.LinkLabel17.Text = "Bundesanzeiger EZT" ' - 'PictureBox8 - ' - Me.PictureBox8.BackgroundImage = CType(resources.GetObject("PictureBox8.BackgroundImage"), System.Drawing.Image) - Me.PictureBox8.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox8.Location = New System.Drawing.Point(630, 90) - Me.PictureBox8.Name = "PictureBox8" - Me.PictureBox8.Size = New System.Drawing.Size(18, 18) - Me.PictureBox8.TabIndex = 29 - Me.PictureBox8.TabStop = False - Me.PictureBox8.Visible = False - ' - 'LinkLabel16 - ' - Me.LinkLabel16.AutoSize = True - Me.LinkLabel16.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel16.Location = New System.Drawing.Point(475, 95) - Me.LinkLabel16.Name = "LinkLabel16" - Me.LinkLabel16.Size = New System.Drawing.Size(149, 13) - Me.LinkLabel16.TabIndex = 9 - Me.LinkLabel16.TabStop = True - Me.LinkLabel16.Text = "I0200 - Unterlageaerten (EZA)" - ' - 'LinkLabel15 - ' - Me.LinkLabel15.AutoSize = True - Me.LinkLabel15.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel15.Location = New System.Drawing.Point(295, 210) - Me.LinkLabel15.Name = "LinkLabel15" - Me.LinkLabel15.Size = New System.Drawing.Size(183, 13) - Me.LinkLabel15.TabIndex = 15 - Me.LinkLabel15.TabStop = True - Me.LinkLabel15.Text = "VERAG Kundendaten senden PROD" - ' 'cbxHistory ' Me.cbxHistory.AutoSize = True @@ -440,214 +957,6 @@ Partial Class frmStartOptions Me.cbxHistory.Text = "History" Me.cbxHistory.UseVisualStyleBackColor = True ' - 'PictureBox7 - ' - Me.PictureBox7.BackgroundImage = CType(resources.GetObject("PictureBox7.BackgroundImage"), System.Drawing.Image) - Me.PictureBox7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox7.Location = New System.Drawing.Point(400, 90) - Me.PictureBox7.Name = "PictureBox7" - Me.PictureBox7.Size = New System.Drawing.Size(18, 18) - Me.PictureBox7.TabIndex = 25 - Me.PictureBox7.TabStop = False - Me.PictureBox7.Visible = False - ' - 'LinkLabel14 - ' - Me.LinkLabel14.AutoSize = True - Me.LinkLabel14.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel14.Location = New System.Drawing.Point(295, 95) - Me.LinkLabel14.Name = "LinkLabel14" - Me.LinkLabel14.Size = New System.Drawing.Size(99, 13) - Me.LinkLabel14.TabIndex = 8 - Me.LinkLabel14.TabStop = True - Me.LinkLabel14.Text = "C0013 - Unterlagen" - ' - 'PictureBox6 - ' - Me.PictureBox6.BackgroundImage = CType(resources.GetObject("PictureBox6.BackgroundImage"), System.Drawing.Image) - Me.PictureBox6.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox6.Location = New System.Drawing.Point(127, 90) - Me.PictureBox6.Name = "PictureBox6" - Me.PictureBox6.Size = New System.Drawing.Size(18, 18) - Me.PictureBox6.TabIndex = 23 - Me.PictureBox6.TabStop = False - Me.PictureBox6.Visible = False - ' - 'LinkLabel13 - ' - Me.LinkLabel13.AutoSize = True - Me.LinkLabel13.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel13.Location = New System.Drawing.Point(11, 95) - Me.LinkLabel13.Name = "LinkLabel13" - Me.LinkLabel13.Size = New System.Drawing.Size(110, 13) - Me.LinkLabel13.TabIndex = 7 - Me.LinkLabel13.TabStop = True - Me.LinkLabel13.Text = "I0400 - Währungsliste" - ' - 'PictureBox5 - ' - Me.PictureBox5.BackgroundImage = CType(resources.GetObject("PictureBox5.BackgroundImage"), System.Drawing.Image) - Me.PictureBox5.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox5.Location = New System.Drawing.Point(640, 32) - Me.PictureBox5.Name = "PictureBox5" - Me.PictureBox5.Size = New System.Drawing.Size(18, 18) - Me.PictureBox5.TabIndex = 21 - Me.PictureBox5.TabStop = False - Me.PictureBox5.Visible = False - ' - 'LinkLabel12 - ' - Me.LinkLabel12.AutoSize = True - Me.LinkLabel12.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel12.Location = New System.Drawing.Point(475, 37) - Me.LinkLabel12.Name = "LinkLabel12" - Me.LinkLabel12.Size = New System.Drawing.Size(159, 13) - Me.LinkLabel12.TabIndex = 3 - Me.LinkLabel12.TabStop = True - Me.LinkLabel12.Text = "A0127 - Beteiligten-Konstellation" - ' - 'PictureBox4 - ' - Me.PictureBox4.BackgroundImage = CType(resources.GetObject("PictureBox4.BackgroundImage"), System.Drawing.Image) - Me.PictureBox4.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox4.Location = New System.Drawing.Point(683, 60) - Me.PictureBox4.Name = "PictureBox4" - Me.PictureBox4.Size = New System.Drawing.Size(18, 18) - Me.PictureBox4.TabIndex = 19 - Me.PictureBox4.TabStop = False - Me.PictureBox4.Visible = False - ' - 'LinkLabel11 - ' - Me.LinkLabel11.AutoSize = True - Me.LinkLabel11.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel11.Location = New System.Drawing.Point(475, 65) - Me.LinkLabel11.Name = "LinkLabel11" - Me.LinkLabel11.Size = New System.Drawing.Size(202, 13) - Me.LinkLabel11.TabIndex = 6 - Me.LinkLabel11.TabStop = True - Me.LinkLabel11.Text = "A0122 - Art der Anmeldung (Überführung)" - ' - 'PictureBox3 - ' - Me.PictureBox3.BackgroundImage = CType(resources.GetObject("PictureBox3.BackgroundImage"), System.Drawing.Image) - Me.PictureBox3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox3.Location = New System.Drawing.Point(405, 60) - Me.PictureBox3.Name = "PictureBox3" - Me.PictureBox3.Size = New System.Drawing.Size(18, 18) - Me.PictureBox3.TabIndex = 17 - Me.PictureBox3.TabStop = False - Me.PictureBox3.Visible = False - ' - 'LinkLabel10 - ' - Me.LinkLabel10.AutoSize = True - Me.LinkLabel10.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel10.Location = New System.Drawing.Point(295, 65) - Me.LinkLabel10.Name = "LinkLabel10" - Me.LinkLabel10.Size = New System.Drawing.Size(104, 13) - Me.LinkLabel10.TabIndex = 5 - Me.LinkLabel10.TabStop = True - Me.LinkLabel10.Text = "C0010 - AES Länder" - ' - 'LinkLabel9 - ' - Me.LinkLabel9.AutoSize = True - Me.LinkLabel9.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel9.Location = New System.Drawing.Point(11, 210) - Me.LinkLabel9.Name = "LinkLabel9" - Me.LinkLabel9.Size = New System.Drawing.Size(180, 13) - Me.LinkLabel9.TabIndex = 14 - Me.LinkLabel9.TabStop = True - Me.LinkLabel9.Text = "Eingangsnachrichten abrufen PROD" - ' - 'PictureBox2 - ' - Me.PictureBox2.BackgroundImage = CType(resources.GetObject("PictureBox2.BackgroundImage"), System.Drawing.Image) - Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox2.Location = New System.Drawing.Point(421, 32) - Me.PictureBox2.Name = "PictureBox2" - Me.PictureBox2.Size = New System.Drawing.Size(18, 18) - Me.PictureBox2.TabIndex = 14 - Me.PictureBox2.TabStop = False - Me.PictureBox2.Visible = False - ' - 'LinkLabel8 - ' - Me.LinkLabel8.AutoSize = True - Me.LinkLabel8.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel8.Location = New System.Drawing.Point(295, 37) - Me.LinkLabel8.Name = "LinkLabel8" - Me.LinkLabel8.Size = New System.Drawing.Size(120, 13) - Me.LinkLabel8.TabIndex = 2 - Me.LinkLabel8.TabStop = True - Me.LinkLabel8.Text = "C0014 - Vorpapier Arten" - ' - 'PictureBox1 - ' - Me.PictureBox1.BackgroundImage = CType(resources.GetObject("PictureBox1.BackgroundImage"), System.Drawing.Image) - Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox1.Location = New System.Drawing.Point(205, 60) - Me.PictureBox1.Name = "PictureBox1" - Me.PictureBox1.Size = New System.Drawing.Size(18, 18) - Me.PictureBox1.TabIndex = 12 - Me.PictureBox1.TabStop = False - Me.PictureBox1.Visible = False - ' - 'LinkLabel7 - ' - Me.LinkLabel7.AutoSize = True - Me.LinkLabel7.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel7.Location = New System.Drawing.Point(11, 65) - Me.LinkLabel7.Name = "LinkLabel7" - Me.LinkLabel7.Size = New System.Drawing.Size(188, 13) - Me.LinkLabel7.TabIndex = 4 - Me.LinkLabel7.TabStop = True - Me.LinkLabel7.Text = "C0017 - Packstücke (Verpackungsart)" - ' - 'LinkLabel6 - ' - Me.LinkLabel6.AutoSize = True - Me.LinkLabel6.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel6.Location = New System.Drawing.Point(295, 185) - Me.LinkLabel6.Name = "LinkLabel6" - Me.LinkLabel6.Size = New System.Drawing.Size(180, 13) - Me.LinkLabel6.TabIndex = 13 - Me.LinkLabel6.TabStop = True - Me.LinkLabel6.Text = "VERAG Kundendaten senden TEST" - ' - 'LinkLabel5 - ' - Me.LinkLabel5.AutoSize = True - Me.LinkLabel5.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel5.Location = New System.Drawing.Point(11, 185) - Me.LinkLabel5.Name = "LinkLabel5" - Me.LinkLabel5.Size = New System.Drawing.Size(177, 13) - Me.LinkLabel5.TabIndex = 12 - Me.LinkLabel5.TabStop = True - Me.LinkLabel5.Text = "Eingangsnachrichten abrufen TEST" - ' - '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(11, 158) - Me.Label2.Name = "Label2" - Me.Label2.Size = New System.Drawing.Size(205, 13) - Me.Label2.TabIndex = 11 - Me.Label2.Text = "DAKOSY Nachrichtenverarbeitung:" - ' - 'picC0008 - ' - Me.picC0008.BackgroundImage = CType(resources.GetObject("picC0008.BackgroundImage"), System.Drawing.Image) - Me.picC0008.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.picC0008.Location = New System.Drawing.Point(129, 32) - Me.picC0008.Name = "picC0008" - Me.picC0008.Size = New System.Drawing.Size(18, 18) - Me.picC0008.TabIndex = 7 - Me.picC0008.TabStop = False - Me.picC0008.Visible = False - ' 'btn ' Me.btn.BackColor = System.Drawing.Color.Red @@ -663,27 +972,6 @@ Partial Class frmStartOptions Me.btn.Text = "X" Me.btn.UseVisualStyleBackColor = False ' - 'LinkLabel4 - ' - Me.LinkLabel4.AutoSize = True - Me.LinkLabel4.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel4.Location = New System.Drawing.Point(11, 37) - Me.LinkLabel4.Name = "LinkLabel4" - Me.LinkLabel4.Size = New System.Drawing.Size(112, 13) - Me.LinkLabel4.TabIndex = 1 - Me.LinkLabel4.TabStop = True - Me.LinkLabel4.Text = "C0008 - NCTS Länder" - ' - '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(8, 11) - Me.Label1.Name = "Label1" - Me.Label1.Size = New System.Drawing.Size(177, 13) - Me.Label1.TabIndex = 0 - Me.Label1.Text = "ZOLL.DE Codelisten einlesen:" - ' 'LinkLabel2 ' Me.LinkLabel2.AutoSize = True @@ -738,197 +1026,6 @@ Partial Class frmStartOptions Me.lblRoutineManager.TabIndex = 1 Me.lblRoutineManager.Text = "Routine Manager" ' - '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 = "10000" - Me.MyTextBox1._Waehrung = False - Me.MyTextBox1._WaehrungZeichen = True - Me.MyTextBox1.ForeColor = System.Drawing.Color.Black - Me.MyTextBox1.Location = New System.Drawing.Point(111, 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 = "10000" - ' - 'tbcntr - ' - Me.tbcntr.Controls.Add(Me.TabPage1) - Me.tbcntr.Controls.Add(Me.TabPage2) - Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Bottom - Me.tbcntr.Location = New System.Drawing.Point(0, 254) - Me.tbcntr.Name = "tbcntr" - Me.tbcntr.SelectedIndex = 0 - Me.tbcntr.Size = New System.Drawing.Size(788, 421) - Me.tbcntr.TabIndex = 19 - ' - 'TabPage1 - ' - Me.TabPage1.Controls.Add(Me.LinkLabel4) - Me.TabPage1.Controls.Add(Me.PictureBox13) - Me.TabPage1.Controls.Add(Me.picC0008) - Me.TabPage1.Controls.Add(Me.LinkLabel26) - Me.TabPage1.Controls.Add(Me.Label2) - Me.TabPage1.Controls.Add(Me.LinkLabel5) - Me.TabPage1.Controls.Add(Me.LinkLabel6) - Me.TabPage1.Controls.Add(Me.LinkLabel23) - Me.TabPage1.Controls.Add(Me.LinkLabel7) - Me.TabPage1.Controls.Add(Me.LinkLabel24) - Me.TabPage1.Controls.Add(Me.PictureBox1) - Me.TabPage1.Controls.Add(Me.Label5) - Me.TabPage1.Controls.Add(Me.LinkLabel8) - Me.TabPage1.Controls.Add(Me.LinkLabel21) - Me.TabPage1.Controls.Add(Me.PictureBox2) - Me.TabPage1.Controls.Add(Me.LinkLabel22) - Me.TabPage1.Controls.Add(Me.LinkLabel9) - Me.TabPage1.Controls.Add(Me.Label4) - Me.TabPage1.Controls.Add(Me.LinkLabel10) - Me.TabPage1.Controls.Add(Me.Label1) - Me.TabPage1.Controls.Add(Me.PictureBox3) - Me.TabPage1.Controls.Add(Me.LinkLabel11) - Me.TabPage1.Controls.Add(Me.PictureBox4) - Me.TabPage1.Controls.Add(Me.LinkLabel12) - Me.TabPage1.Controls.Add(Me.PictureBox5) - Me.TabPage1.Controls.Add(Me.LinkLabel13) - Me.TabPage1.Controls.Add(Me.PictureBox6) - Me.TabPage1.Controls.Add(Me.LinkLabel14) - Me.TabPage1.Controls.Add(Me.PictureBox7) - Me.TabPage1.Controls.Add(Me.LinkLabel15) - Me.TabPage1.Controls.Add(Me.LinkLabel16) - Me.TabPage1.Controls.Add(Me.PictureBox8) - Me.TabPage1.Location = New System.Drawing.Point(4, 22) - Me.TabPage1.Name = "TabPage1" - Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage1.Size = New System.Drawing.Size(780, 395) - Me.TabPage1.TabIndex = 0 - Me.TabPage1.Text = "Zollverfahren" - Me.TabPage1.UseVisualStyleBackColor = True - ' - 'TabPage2 - ' - Me.TabPage2.Controls.Add(Me.PictureBox14) - Me.TabPage2.Controls.Add(Me.MyComboBox1) - Me.TabPage2.Controls.Add(Me.Label8) - Me.TabPage2.Controls.Add(Me.txtVRGOut_BezugsNr) - Me.TabPage2.Controls.Add(Me.Button1) - Me.TabPage2.Controls.Add(Me.Label7) - Me.TabPage2.Controls.Add(Me.LinkLabel27) - Me.TabPage2.Controls.Add(Me.Label6) - Me.TabPage2.Location = New System.Drawing.Point(4, 22) - Me.TabPage2.Name = "TabPage2" - Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) - Me.TabPage2.Size = New System.Drawing.Size(780, 395) - Me.TabPage2.TabIndex = 1 - Me.TabPage2.Text = "VERAG Interface" - Me.TabPage2.UseVisualStyleBackColor = True - ' - 'LinkLabel27 - ' - Me.LinkLabel27.AutoSize = True - Me.LinkLabel27.Enabled = False - Me.LinkLabel27.LinkColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.LinkLabel27.Location = New System.Drawing.Point(14, 46) - Me.LinkLabel27.Name = "LinkLabel27" - Me.LinkLabel27.Size = New System.Drawing.Size(85, 13) - Me.LinkLabel27.TabIndex = 2 - Me.LinkLabel27.TabStop = True - Me.LinkLabel27.Text = "Eingang abrufen" - ' - '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(11, 20) - Me.Label6.Name = "Label6" - Me.Label6.Size = New System.Drawing.Size(66, 13) - Me.Label6.TabIndex = 0 - Me.Label6.Text = "VERAG IN" - ' - '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(295, 20) - Me.Label7.Name = "Label7" - Me.Label7.Size = New System.Drawing.Size(79, 13) - Me.Label7.TabIndex = 1 - Me.Label7.Text = "VERAG OUT" - ' - 'Button1 - ' - Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat - Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer)) - Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft - Me.Button1.Location = New System.Drawing.Point(484, 45) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(72, 38) - Me.Button1.TabIndex = 6 - Me.Button1.Text = "Daten --> FTP" - Me.Button1.UseVisualStyleBackColor = True - ' - '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.Multiline = True - Me.txtVRGOut_BezugsNr.Name = "txtVRGOut_BezugsNr" - Me.txtVRGOut_BezugsNr.Size = New System.Drawing.Size(119, 21) - Me.txtVRGOut_BezugsNr.TabIndex = 5 - ' - 'Label8 - ' - Me.Label8.AutoSize = True - Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) - Me.Label8.Location = New System.Drawing.Point(295, 46) - Me.Label8.Name = "Label8" - Me.Label8.Size = New System.Drawing.Size(176, 13) - Me.Label8.TabIndex = 3 - Me.Label8.Text = "Bereitstellen - Zollysytem/BezugsNr:" - ' - '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 - ' - 'PictureBox14 - ' - Me.PictureBox14.BackgroundImage = CType(resources.GetObject("PictureBox14.BackgroundImage"), System.Drawing.Image) - Me.PictureBox14.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom - Me.PictureBox14.Location = New System.Drawing.Point(562, 65) - Me.PictureBox14.Name = "PictureBox14" - Me.PictureBox14.Size = New System.Drawing.Size(18, 18) - Me.PictureBox14.TabIndex = 56 - Me.PictureBox14.TabStop = False - Me.PictureBox14.Visible = False - ' 'frmStartOptions ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) @@ -944,26 +1041,26 @@ Partial Class frmStartOptions Me.WindowState = System.Windows.Forms.FormWindowState.Minimized Me.pnl.ResumeLayout(False) Me.pnl.PerformLayout() + Me.tbcntr.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) + Me.TabPage1.PerformLayout() CType(Me.PictureBox13, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.picC0008, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabPage2.ResumeLayout(False) + Me.TabPage2.PerformLayout() + CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() 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.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox7, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox6, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox4, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox3, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.picC0008, System.ComponentModel.ISupportInitialize).EndInit() - Me.tbcntr.ResumeLayout(False) - Me.TabPage1.ResumeLayout(False) - Me.TabPage1.PerformLayout() - Me.TabPage2.ResumeLayout(False) - Me.TabPage2.PerformLayout() - CType(Me.PictureBox14, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub @@ -1034,4 +1131,11 @@ Partial Class frmStartOptions Friend WithEvents txtVRGOut_BezugsNr As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents Button1 As Button Friend WithEvents PictureBox14 As PictureBox + Friend WithEvents LinkLabel28 As LinkLabel + Friend WithEvents cbxISett_TEST As CheckBox + Friend WithEvents cbxISett_EKOL As CheckBox + Friend WithEvents cbxISett_TOBB As CheckBox + Friend WithEvents cbxISett_OREGON As CheckBox + Friend WithEvents cbxISett_VERAG As CheckBox + Friend WithEvents cbxISett_IMEX As CheckBox End Class diff --git a/initATLASAufschubkonten/frmStartOptions.resx b/initATLASAufschubkonten/frmStartOptions.resx index 046180e..facb9ac 100644 --- a/initATLASAufschubkonten/frmStartOptions.resx +++ b/initATLASAufschubkonten/frmStartOptions.resx @@ -262,151 +262,7 @@ CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - - - iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj - oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB - QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC - j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ - VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox - XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf - 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe - VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh - 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A - pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin - lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS - d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp - hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ - LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs - 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ - NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P - ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x - WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ - nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de - CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - - - + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB @@ -454,7 +310,151 @@ CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= - + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj + oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB + QSZ2JqhCKgEBNQFFoyKjnPAj4cdjz8d+jb8U/z/iaMR9z2WeE3XSdByEdYWFGVkYGaHKKQdWTVYF4YfC + j8VdjPsHwiALYezo89HTzWrNHNj42VigyikHDv0OC2POxrwDWYSOgZY+DNoRNMV5urMdVDn5gFOUU0rJ + VynOd7XvBSwW/QHiHx4LPPYDQ6DUpMzEEKqNPMDKw8on5ywXBHT9w+hT0d/QLPsefTr6Rei+0Iuqwaox + XGJcElBt5AMFT4UIYDBtjzkT8zPuQtxfNAuv+G/wn6CdoG3Bp8AnysjMSH78MXMyc0tZSbnZtNksDtsf + 9hJoODiRgC26EPcD6IDbPit9Oo3yjWz4Ffm5gXmTGaqVPMAuwC6il6ZXgx5vsedif4YfDH/kNsdtIlDe + VlRflDo5HpeFkUcj33jM89gqbigux8bNBlVNIeCR4pFX9ldO8F7qfTLyWORHmGUx52N+2/XYrRTRFTFh + 42PjAMYZVAcOwMzBzA2MXHUFDwVLGXsZDS4JLjZ0TeyC7CLghDLVeWvU8ahPyL7z3+u/STNdMwSqFD8A + pSBeOV41rTitYr/1ftNd57jmKnorygKDjpUBqQgU1BA0NKsym4JsESifAfFzyxmWXhKeEqxQpfgBpxin + lEqgSnLI3pBn0Wei30aeiNzlucQzWdxEXBKY1+DJGYeF12IuxBTJe8srsfAQkfKBQckFzJgp7vPdD4KS + d9ylOJAhL4AF73aHCQ5RwKpGjomViZWVl1VAP0u/wXeN70WYZbEXYi/7b/Lv0c3Q1eGR5eGBGokfKLgp + hALjZBuyq0EYaOkHoIErzWvN/cWMxSSAcSoLTO57oXK/gPhp4PbAqUAfO7MLsbMBHUVcTQD2FVLGRbIQ + LA5MfdNdZrnYolkIcswSs0ozL2Aw80KNIg5I20h7ApN5lGWdZQfQoPtAA8F1GZLFD4HVznGQZUD6NUgs + 8kjka5t2m25pW2kzFm4yShFgvuGVMJEwNq0wrXSd6bopeGfwA2RLkTHIUrfZbnvkXOWCQYkNagT5QNZZ + NsCu225Z9MnoD8By8TfQEkQ5eTHuJzDRHAMmnkJ2EXYhqBbKADCIeIGZ29t9nvvSqJNRL4AW/UKy8L7P + ap8Juum6BsBCgHotI25JbgkZBxkHtVC1JGDc7Qa2UX4CE8n3oJ1B64GpMlpYR5ifmZ2Zyq0iKFANUk3x + WOhxEFgYvLZus64EJhQtqBTtALDEsQ/aHnRf3FTcASpEWwBsbQkBLQW1uqiTUJABFxcXg7y8PJupqSm/ + nZ2diL29vSgyBooJm5ub88nKyrIC1VLezgQ2zRk9PT0F6urqVCdNmmQwbdo0Y2Q8efJk3ebmZkVXV1de + CQkJEjM9AwMAOTMC2xlgxuQAAAAASUVORK5CYII= + + + iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAABEhJREFUSEtj oDZg4WThlrSSdLPOtc53zHaMl5SUZGBnZ4fKUhMwMjCK6IloGhUYZdn32a/wX+Z/0Ge2z0L9eH0rQVVB diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb index f6c657d..ad27119 100644 --- a/initATLASAufschubkonten/frmStartOptions.vb +++ b/initATLASAufschubkonten/frmStartOptions.vb @@ -83,6 +83,15 @@ Public Class frmStartOptions f.Show() AddHandler f.FormClosed, AddressOf closeMe + Case "DY_EINARBEITUNG_UNISPED" + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" + Dim f As New frmDYNachrichtenVerarbeitung(True) + 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) @@ -990,12 +999,32 @@ Public Class frmStartOptions Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click Dim ok As Boolean = False Select Case MyComboBox1._value - Case "DY" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text) - Case "TC" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text) - Case "DHF" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text) + Case "DY" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_DY_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett) + Case "TC" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_TC_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett) + Case "DHF" : ok = cVERAG_Interface.copyFileFTP_VERAGncts_EZOLL_ByBezugsNr(txtVRGOut_BezugsNr.Text, getISett) End Select showPic(ok, PictureBox14) End Sub + + Function getISett ()As cVERAG_Interface_Settings + getISett = New cVERAG_Interface_Settings + getISett.acticeInterface_OREGON = cbxISett_OREGON.Checked + getISett.acticeInterface_TOBB = cbxISett_TOBB.Checked + getISett.acticeInterface_EKOL = cbxISett_EKOL.Checked + getISett.acticeInterface_TEST = cbxISett_TEST.Checked + getISett.acticeInterface_VERAG = cbxISett_VERAG.Checked + getISett.acticeInterface_IMEX = cbxISett_IMEX.Checked + End Function + + + Private Sub LinkLabel28_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel28.LinkClicked + Me.Visible = False + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" + Dim f As New frmDYNachrichtenVerarbeitung + f.ShowDialog() + Me.Visible = True + End Sub End Class \ No newline at end of file